IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::Kidnapping.$.!Kidnap

SpriteFree 176
RMAFree 88
ScreenSize 80
HideCommandWindow
Set Alps$NoMouseInput 0
Set Alps$ShowAddress 0
Set Adventure$Root <Obey$Dir>
Set AlpsGame$Resources <Adventure$Root>.Resources.
Set AlpsGame$Data <Adventure$Root>.Alps
Set Alps$Pictures <Adventure$Root>.Pictures.

IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT 0
RMEnsure ParadiseRM 1.00 RMLoad <AlpsGame$Resources>Paradise
RMEnsure TrackerModule 5.06 RMLoad ADFFS:trackers.TrackerMod

| Regulate intro speed
Set Key$0 20ONERRORGOTO960|M30LLL=0:GOTO70|M185Z%=TIME|M910GOTO960|M990QUIT|M1100DEFPROCw(T%):IF(T% AND 3)=0 THEN REPEATUNTILTIME>Z%|M1110ENDPROC|M1120DEFPROCs(T%):IF(T% AND 3)=0 THEN Z%=TIME|M1130ENDPROC|M
Set Key$1 195PROCs(n)|M215PROCw(n)|M255PROCs(n)|M275PROCw(n)|M315PROCs(n)|M335PROCw(n)|M375PROCs(n)|M395PROCw(n)|M465Z%=0|M475PROCs(n)|M485PROCw(n)|M555Z%=0|M565PROCs(n)|M575PROCw(n)|M165GOTO410|MRUN|F|M
ECHO <21>
FX 200,0
FX 225,1
FX 21,0
FX 138,0,128
FX 138,0,129
BASIC -load <Adventure$Root>.!RunImage1
Set Key$0 1590QUIT|MRUN|F|M
ECHO <21>
FX 138,0,128
BASIC -load <Adventure$Root>.!RunImage2
FX 20
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT
UnSet Alps$NoMouseInput
UnSet Alps$ShowAddress
UnSet Adventure$Root
UnSet AlpsGame$Resources
UnSet AlpsGame$Data
UnSet Alps$Pictures