begin RuneStoneWarper_SC
short msglevel
short messageOn
short ControlIO
short OnPCEquip
short PCSkipEquip
short Destination
set PCSkipEquip to 1
IF ( OnPCEquip == 1 )
set OnPCEquip to 0
set ControlIO to 2
EndIF
IF ( ControlIO != 2 )
IF ( ControlIO == 1 )
set msglevel to 0
set messageON to 0
set Destination to 0
set ControlIO to 0
EndIF
return
endif
IF ( messageOn == 0 )
IF ( msglevel == 2 )
set msglevel to 1
MessageBox "ZIEL AUSWÄHLEN:", "> ABBRUCH <", "> WEITER <", "Ziel 01", "Ziel 02", "Ziel 03", "Ziel 04", "Ziel 05"
set messageOn to 1
ElseIF ( msglevel == 1 )
set msglevel to 2
MessageBox "ZIEL AUSWÄHLEN:", "> ABBRUCH <", "> ZURÜCK <", "Ziel 06", "Ziel 07", "Ziel 08", "Ziel 09", "Ziel 10"
set messageOn to 1
ElseIF ( msglevel == 0 )
set msglevel to 2
MessageBox "DURCH BALMORA SPRINGEN?" "NEIN" "JA"
set messageOn to 1
EndIF
Return
EndIF
set Destination to GetButtonPressed
IF ( Destination <= 1 )
IF ( Destination >= 0 )
set messageOn to 0
EndIF
IF ( Destination == 0 )
set ControlIO to 1
EndIF
return
EndIF
set Destination to ( ( Destination - 7 ) + ( msglevel * 5 ) )
playsound "thunder2"
IF ( Destination == 0 )
player->PositionCell -21792, -12087, 882, 270, "Balmora"
ElseIF ( Destination == 1 )
player->PositionCell -23864, -13594, 1335, 270, "Balmora"
ElseIF ( Destination == 2 )
player->PositionCell -21323, -18235, 1184, 0, "Balmora"
ElseIF ( Destination == 3 )
player->PositionCell -20682, -15185, 320, 90, "Balmora"
ElseIF ( Destination == 4 )
player->PositionCell -16670, -12305, 547, 270, "Balmora"
ElseIF ( Destination == 5 )
player->PositionCell -17717, -15265, 555, 180, "Balmora"
ElseIF ( Destination == 6 )
player->PositionCell -24933, -13259, 1110, 0, "Balmora"
ElseIF ( Destination == 7 )
player->PositionCell -24813, -10220, 1375, 180, "Balmora"
ElseIF ( Destination == 8 )
player->PositionCell -15120, -14262, 790, 270, "Balmora"
ElseIF ( Destination == 9 )
player->PositionCell -24576, -16072, 615, 65, "Balmora"
EndIF
set ControlIO to 1
End