| SCTX |
scriptname Dark02WateryScript
short HideMessage
short Button
short pressed
short Enable
short CapDead
float Timer2
short Knock
float Timer3
short Enter
short Door
Float fQuestDelayTime
begin gamemode
;if GetStage Dark02Watery == 10
;if Dark2SneakyRef.GetDistance Player <= 200
;if HideMessage == 0
;MessageBox "You believe you could effectively hide in this crate and then be transported to the pirate ship Marie Elena. Do you wish to hide in the crate, or try to find your own way onboard the ship?" "Hide in the crate." "Do not hide in the crate."
;set HideMessage to 1
;endif
;endif
;endif
;if HideMessage == 1
;set button to GetButtonPressed
;if ( Button == 0 )
;set pressed to 1
;set HideMessage to 2
;player.movetomarker Drk2ShipSneakInRef
;endif
;if ( Button == 1 )
;; don't hide
;set HideMessage to 2
;return
;endif
;endif
If Pressed == 1
if player.GetInCell ICWaterfrontMarieElenaLowerDeck == 1
SetStage Dark02Watery 25
;MessageBox "Just as expected, the crate you are hiding in has been transported to the Marie Elena. You find yourself now in the ship's hold."
Set Pressed to 2
endif
endif
if CapDead == 1
set Timer2 to ( Timer2 + GetSecondsPassed )
endif
;this ltriggers the knock on the door
if Knock == 0
if Timer2 > 4
DarkPirate6RefDeck.Enable
DarkPirate5RefDeck.Enable
CapDoorRef.Say Dark02PirateDoor 1 DarkPirate6
set Timer2 to 0
set Knock to 1
endif
endif
if Knock == 1
set Timer3 to ( Timer3 + GetSecondsPassed )
endif
if Enter == 0
if Timer3 > 11
set Timer3 to 0
set Enter to 1
DarkPirate5RefDeck.moddisposition player, -100
DarkPirate6RefDeck.moddisposition player, -100
DarkPirate5RefDeck.MoveToMarker PirateAfterDeadRef1
DarkPirate6RefDeck.MoveToMarker PirateAfterDeadRef2
DarkPirate5RefDeck.SetAlert 1
DarkPirate6RefDeck.SetAlert 1
endif
endif
;if Door == 0
;if GetStage Dark02Watery >= 10 && GetStage Dark02Watery <= 25
;if player.GetInCell ICWaterfrontMarieElena == 1
;if player.GetInCell ICWaterfrontMarieElenaLowerDeck == 0
;if player.GetInCell ICWaterfrontMarieElenaMidDeck == 0
;if player.GetDistance PirateAfterDeadRef2 <= 600
;Setstage Dark02Watery 26
;Set Door to 1
;endif
;endif
;endif
;endif
;endif
if Door == 0
if GetStage Dark02Watery >= 10 && GetStage Dark02Watery <= 25
if player.GetInCell ICWaterfrontMarieElenaCaptainsCabin == 1
Setstage Dark02Watery 26
Set Door to 1
endif
endif
endif
end |