scn aaMyQuestScriptshort DoOnceBegin GameModeIf (DoOnce == 0) setstage MyQuest 10 set DoOnce to 1endifEnd
scn ObjectSCPTInt bDoOnceBegin GameMode If bDoOnce Return Else ;Do 'expensive stuff Set bDoOnce to 1 EndIfEnd
scn QuestSCPTInt bDoOnceBegin GameMode ;Do 'expensive stuff StopQuest QUSTEnd
scn QuestSCPTInt bDoOnceBegin GameMode If bDoOnce StopQuest Else ;Do 'expensive stuff Set bDoOnce to 1 EndIfEnd
scn QuestSCPTInt bQuickeningBegin GameMode If (bQuickening != Criterion) Set bQuickening to (bQuickening == 0) If bQuickening SetQuestDelay QUST 0 Else SetQuestDelay QUST .01 EndIf ElseIf bQuickening ;Fast Code Else ;Slow Code EndIfEnd