OBJECT=M_ITEMP0 M_ITEMP0:TYPE=INTEGER OBJECT=M_ITEMP1 M_ITEMP1:TYPE=INTEGER OBJECT=M_ITEMP2 M_ITEMP2:TYPE=INTEGER OBJECT=M_STEMP0 M_STEMP0:TYPE=STRING OBJECT=M_STEMP1 M_STEMP1:TYPE=STRING OBJECT=M_BTEMP0 M_BTEMP0:TYPE=BOOL OBJECT=M_IPOSY M_IPOSY:TYPE=INTEGER OBJECT=M_IPOPY M_IPOPY:TYPE=INTEGER OBJECT=M_IDIR M_IDIR:TYPE=INTEGER M_IDIR:VALUE=1 OBJECT=M_BSLIDER M_BSLIDER:TYPE=BOOL M_BSLIDER:VALUE=FALSE OBJECT=M_ISLIDERX M_ISLIDERX:TYPE=INTEGER OBJECT=M_SSCENENAME M_SSCENENAME:TYPE=STRING M_SSCENENAME:VALUE=ARCADE OBJECT=M_IACTION M_IACTION:TYPE=INTEGER M_IACTION:VALUE=-1 OBJECT=M_IDOACTION M_IDOACTION:TYPE=INTEGER M_IDOACTION:VALUE=-1 M_IDOACTION:ONBRUTALCHANGED^0={GAME^RUNENV(M_SSCENENAME,"_NEWGAME_");} M_IDOACTION:ONBRUTALCHANGED^1={GAME^RUNENV(M_SSCENENAME,"_LOADGAME_");} M_IDOACTION:ONBRUTALCHANGED^7={GAME^RUNENV(M_SSCENENAME,"BEHCREDITSGLOBAL");SHOW^RUN(FALSE);HIDEEXP^RUN();} OBJECT=M_BPOPUP M_BPOPUP:TYPE=BOOL M_BPOPUP:VALUE=FALSE OBJECT=M_SPOPACTION M_SPOPACTION:TYPE=STRING OBJECT=M_IPOPARG M_IPOPARG:TYPE=INTEGER OBJECT=M_BRESUME M_BRESUME:TYPE=BOOL OBJECT=M_ANNSTL M_ANNSTL:TYPE=ANIMO M_ANNSTL:VISIBLE=TRUE M_ANNSTL:FILENAME=$COMMON\STL_MENU.ANN M_ANNSTL:TOCANVAS=TRUE M_ANNSTL:PRIORITY=0 M_ANNSTL:FPS=30 M_ANNSTL:PRELOAD=TRUE M_ANNSTL:RELEASE=TRUE M_ANNSTL:MONITORCOLLISION=FALSE M_ANNSTL:MONITORCOLLISIONALPHA=FALSE M_ANNSTL:ONFRAMECHANGED^ELAPSE={M_ITEMP0^SET([M_IDIR*20]);M_IPOSY^ADD(M_ITEMP0);M_GRPMENU^MOVE(0,M_ITEMP0);M_ITEMP1^SET([M_IPOSY*255]);M_ITEMP1^DIV(-540);M_ENTER^SETOPACITY(M_ITEMP1);M_ITEMP1^SET([255-M_ITEMP1]);M_GRPMENU^SETOPACITY(M_ITEMP1);@IF("M_IDIR'-1&&M_IPOSY'-60","BFITMP9","");@IF("M_IPOSY'0||M_IPOSY'-540","BFITMP12","");} OBJECT=M_CONTINUE M_CONTINUE:TYPE=ANIMO M_CONTINUE:VISIBLE=TRUE M_CONTINUE:FILENAME=$COMMON\M_CONTINUE.ANN M_CONTINUE:TOCANVAS=TRUE M_CONTINUE:PRIORITY=4001 M_CONTINUE:FPS=16 M_CONTINUE:PRELOAD=TRUE M_CONTINUE:RELEASE=TRUE M_CONTINUE:MONITORCOLLISION=FALSE M_CONTINUE:MONITORCOLLISIONALPHA=FALSE OBJECT=M_EXIT M_EXIT:TYPE=ANIMO M_EXIT:VISIBLE=TRUE M_EXIT:FILENAME=$COMMON\M_EXIT.ANN M_EXIT:TOCANVAS=TRUE M_EXIT:PRIORITY=4001 M_EXIT:FPS=16 M_EXIT:PRELOAD=TRUE M_EXIT:RELEASE=TRUE M_EXIT:MONITORCOLLISION=FALSE M_EXIT:MONITORCOLLISIONALPHA=FALSE OBJECT=M_LOAD1 M_LOAD1:TYPE=ANIMO M_LOAD1:VISIBLE=TRUE M_LOAD1:FILENAME=$COMMON\M_LOAD1.ANN M_LOAD1:TOCANVAS=TRUE M_LOAD1:PRIORITY=4002 M_LOAD1:FPS=16 M_LOAD1:PRELOAD=TRUE M_LOAD1:RELEASE=TRUE M_LOAD1:MONITORCOLLISION=FALSE M_LOAD1:MONITORCOLLISIONALPHA=FALSE OBJECT=M_LOAD2 M_LOAD2:TYPE=ANIMO M_LOAD2:VISIBLE=TRUE M_LOAD2:FILENAME=$COMMON\M_LOAD2.ANN M_LOAD2:TOCANVAS=TRUE M_LOAD2:PRIORITY=4002 M_LOAD2:FPS=16 M_LOAD2:PRELOAD=TRUE M_LOAD2:RELEASE=TRUE M_LOAD2:MONITORCOLLISION=FALSE M_LOAD2:MONITORCOLLISIONALPHA=FALSE OBJECT=M_LOAD3 M_LOAD3:TYPE=ANIMO M_LOAD3:VISIBLE=TRUE M_LOAD3:FILENAME=$COMMON\M_LOAD3.ANN M_LOAD3:TOCANVAS=TRUE M_LOAD3:PRIORITY=4002 M_LOAD3:FPS=16 M_LOAD3:PRELOAD=TRUE M_LOAD3:RELEASE=TRUE M_LOAD3:MONITORCOLLISION=FALSE M_LOAD3:MONITORCOLLISIONALPHA=FALSE OBJECT=M_LOAD4 M_LOAD4:TYPE=ANIMO M_LOAD4:VISIBLE=TRUE M_LOAD4:FILENAME=$COMMON\M_LOAD4.ANN M_LOAD4:TOCANVAS=TRUE M_LOAD4:PRIORITY=4002 M_LOAD4:FPS=16 M_LOAD4:PRELOAD=TRUE M_LOAD4:RELEASE=TRUE M_LOAD4:MONITORCOLLISION=FALSE M_LOAD4:MONITORCOLLISIONALPHA=FALSE OBJECT=M_SAVE1 M_SAVE1:TYPE=ANIMO M_SAVE1:VISIBLE=TRUE M_SAVE1:FILENAME=$COMMON\M_SAVE1.ANN M_SAVE1:TOCANVAS=TRUE M_SAVE1:PRIORITY=4002 M_SAVE1:FPS=16 M_SAVE1:PRELOAD=TRUE M_SAVE1:RELEASE=TRUE M_SAVE1:MONITORCOLLISION=FALSE M_SAVE1:MONITORCOLLISIONALPHA=FALSE OBJECT=M_SAVE2 M_SAVE2:TYPE=ANIMO M_SAVE2:VISIBLE=TRUE M_SAVE2:FILENAME=$COMMON\M_SAVE2.ANN M_SAVE2:TOCANVAS=TRUE M_SAVE2:PRIORITY=4002 M_SAVE2:FPS=16 M_SAVE2:PRELOAD=TRUE M_SAVE2:RELEASE=TRUE M_SAVE2:MONITORCOLLISION=FALSE M_SAVE2:MONITORCOLLISIONALPHA=FALSE OBJECT=M_SAVE3 M_SAVE3:TYPE=ANIMO M_SAVE3:VISIBLE=TRUE M_SAVE3:FILENAME=$COMMON\M_SAVE3.ANN M_SAVE3:TOCANVAS=TRUE M_SAVE3:PRIORITY=4002 M_SAVE3:FPS=16 M_SAVE3:PRELOAD=TRUE M_SAVE3:RELEASE=TRUE M_SAVE3:MONITORCOLLISION=FALSE M_SAVE3:MONITORCOLLISIONALPHA=FALSE OBJECT=M_SAVE4 M_SAVE4:TYPE=ANIMO M_SAVE4:VISIBLE=TRUE M_SAVE4:FILENAME=$COMMON\M_SAVE4.ANN M_SAVE4:TOCANVAS=TRUE M_SAVE4:PRIORITY=4002 M_SAVE4:FPS=16 M_SAVE4:PRELOAD=TRUE M_SAVE4:RELEASE=TRUE M_SAVE4:MONITORCOLLISION=FALSE M_SAVE4:MONITORCOLLISIONALPHA=FALSE OBJECT=M_NEW M_NEW:TYPE=ANIMO M_NEW:VISIBLE=TRUE M_NEW:FILENAME=$COMMON\M_NEW.ANN M_NEW:TOCANVAS=TRUE M_NEW:PRIORITY=4001 M_NEW:FPS=16 M_NEW:PRELOAD=TRUE M_NEW:RELEASE=TRUE M_NEW:MONITORCOLLISION=FALSE M_NEW:MONITORCOLLISIONALPHA=FALSE OBJECT=M_ENTER M_ENTER:TYPE=ANIMO M_ENTER:VISIBLE=TRUE M_ENTER:FILENAME=$COMMON\M_ENTER.ANN M_ENTER:TOCANVAS=TRUE M_ENTER:PRIORITY=3999 M_ENTER:FPS=16 M_ENTER:PRELOAD=TRUE M_ENTER:RELEASE=TRUE M_ENTER:MONITORCOLLISION=FALSE M_ENTER:MONITORCOLLISIONALPHA=FALSE OBJECT=M_NO M_NO:TYPE=ANIMO M_NO:VISIBLE=TRUE M_NO:FILENAME=$COMMON\M_NO.ANN M_NO:TOCANVAS=TRUE M_NO:PRIORITY=4002 M_NO:FPS=16 M_NO:PRELOAD=TRUE M_NO:RELEASE=TRUE M_NO:MONITORCOLLISION=FALSE M_NO:MONITORCOLLISIONALPHA=FALSE OBJECT=M_YES M_YES:TYPE=ANIMO M_YES:VISIBLE=TRUE M_YES:FILENAME=$COMMON\M_YES.ANN M_YES:TOCANVAS=TRUE M_YES:PRIORITY=4002 M_YES:FPS=16 M_YES:PRELOAD=TRUE M_YES:RELEASE=TRUE M_YES:MONITORCOLLISION=FALSE M_YES:MONITORCOLLISIONALPHA=FALSE OBJECT=M_ANNSTL1 M_ANNSTL1:TYPE=ANIMO M_ANNSTL1:VISIBLE=TRUE M_ANNSTL1:FILENAME=$COMMON\STL_MENU1.ANN M_ANNSTL1:TOCANVAS=TRUE M_ANNSTL1:PRIORITY=0 M_ANNSTL1:FPS=30 M_ANNSTL1:PRELOAD=TRUE M_ANNSTL1:RELEASE=TRUE M_ANNSTL1:MONITORCOLLISION=FALSE M_ANNSTL1:MONITORCOLLISIONALPHA=FALSE M_ANNSTL1:ONFRAMECHANGED^ELAPSE={M_ITEMP0^SET([M_IDIR*10]);M_IPOPY^ADD(M_ITEMP0);M_GRPPOPUP^MOVE(0,M_ITEMP0);M_ITEMP1^SET([M_IPOPY*255]);M_ITEMP1^DIV(80);M_ITEMP1^SET([255-M_ITEMP1]);M_GRPPOPUP^SETOPACITY(M_ITEMP1);@IF("M_IPOPY'0||M_IPOPY'80","BFITMP15","");} OBJECT=M_KLEPSYDRA M_KLEPSYDRA:TYPE=ANIMO M_KLEPSYDRA:VISIBLE=TRUE M_KLEPSYDRA:FILENAME=$COMMON\KLEPSYDRA.ANN M_KLEPSYDRA:TOCANVAS=TRUE M_KLEPSYDRA:PRIORITY=3999 M_KLEPSYDRA:FPS=16 M_KLEPSYDRA:PRELOAD=TRUE M_KLEPSYDRA:RELEASE=TRUE M_KLEPSYDRA:MONITORCOLLISION=FALSE M_KLEPSYDRA:MONITORCOLLISIONALPHA=FALSE M_KLEPSYDRA:ONFINISHED^PANEL={ADDEXP^RUN(0);} OBJECT=M_WAND M_WAND:TYPE=ANIMO M_WAND:VISIBLE=FALSE M_WAND:FILENAME=$COMMON\M_WAND.ANN M_WAND:TOCANVAS=TRUE M_WAND:PRIORITY=3999 M_WAND:FPS=16 M_WAND:PRELOAD=TRUE M_WAND:RELEASE=TRUE M_WAND:MONITORCOLLISION=FALSE M_WAND:MONITORCOLLISIONALPHA=FALSE OBJECT=M_BKG M_BKG:TYPE=IMAGE M_BKG:VISIBLE=TRUE M_BKG:FILENAME=$COMMON\M_BKG.IMG M_BKG:TOCANVAS=TRUE M_BKG:PRIORITY=3999 M_BKG:PRELOAD=TRUE M_BKG:RELEASE=TRUE M_BKG:MONITORCOLLISION=FALSE M_BKG:MONITORCOLLISIONALPHA=FALSE OBJECT=M_MUSBTN M_MUSBTN:TYPE=IMAGE M_MUSBTN:VISIBLE=TRUE M_MUSBTN:FILENAME=$COMMON\M_MUSBTN.IMG M_MUSBTN:TOCANVAS=TRUE M_MUSBTN:PRIORITY=4001 M_MUSBTN:PRELOAD=TRUE M_MUSBTN:RELEASE=TRUE M_MUSBTN:MONITORCOLLISION=FALSE M_MUSBTN:MONITORCOLLISIONALPHA=FALSE OBJECT=M_HIGH1 M_HIGH1:TYPE=IMAGE M_HIGH1:VISIBLE=TRUE M_HIGH1:FILENAME=$COMMON\M_HIGH1.IMG M_HIGH1:TOCANVAS=TRUE M_HIGH1:PRIORITY=4000 M_HIGH1:PRELOAD=TRUE M_HIGH1:RELEASE=TRUE M_HIGH1:MONITORCOLLISION=FALSE M_HIGH1:MONITORCOLLISIONALPHA=FALSE OBJECT=M_HIGH2 M_HIGH2:TYPE=IMAGE M_HIGH2:VISIBLE=TRUE M_HIGH2:FILENAME=$COMMON\M_HIGH2.IMG M_HIGH2:TOCANVAS=TRUE M_HIGH2:PRIORITY=4000 M_HIGH2:PRELOAD=TRUE M_HIGH2:RELEASE=TRUE M_HIGH2:MONITORCOLLISION=FALSE M_HIGH2:MONITORCOLLISIONALPHA=FALSE OBJECT=M_HIGH3 M_HIGH3:TYPE=IMAGE M_HIGH3:VISIBLE=TRUE M_HIGH3:FILENAME=$COMMON\M_HIGH3.IMG M_HIGH3:TOCANVAS=TRUE M_HIGH3:PRIORITY=4000 M_HIGH3:PRELOAD=TRUE M_HIGH3:RELEASE=TRUE M_HIGH3:MONITORCOLLISION=FALSE M_HIGH3:MONITORCOLLISIONALPHA=FALSE OBJECT=M_HIGH4 M_HIGH4:TYPE=IMAGE M_HIGH4:VISIBLE=TRUE M_HIGH4:FILENAME=$COMMON\M_HIGH4.IMG M_HIGH4:TOCANVAS=TRUE M_HIGH4:PRIORITY=4000 M_HIGH4:PRELOAD=TRUE M_HIGH4:RELEASE=TRUE M_HIGH4:MONITORCOLLISION=FALSE M_HIGH4:MONITORCOLLISIONALPHA=FALSE OBJECT=M_SHOT1 M_SHOT1:TYPE=IMAGE M_SHOT1:VISIBLE=TRUE M_SHOT1:FILENAME=$COMMON\M_SHOT1.IMG M_SHOT1:TOCANVAS=TRUE M_SHOT1:PRIORITY=4000 M_SHOT1:PRELOAD=TRUE M_SHOT1:RELEASE=TRUE M_SHOT1:MONITORCOLLISION=FALSE M_SHOT1:MONITORCOLLISIONALPHA=FALSE OBJECT=M_SHOT2 M_SHOT2:TYPE=IMAGE M_SHOT2:VISIBLE=TRUE M_SHOT2:FILENAME=$COMMON\M_SHOT2.IMG M_SHOT2:TOCANVAS=TRUE M_SHOT2:PRIORITY=4000 M_SHOT2:PRELOAD=TRUE M_SHOT2:RELEASE=TRUE M_SHOT2:MONITORCOLLISION=FALSE M_SHOT2:MONITORCOLLISIONALPHA=FALSE OBJECT=M_SHOT3 M_SHOT3:TYPE=IMAGE M_SHOT3:VISIBLE=TRUE M_SHOT3:FILENAME=$COMMON\M_SHOT3.IMG M_SHOT3:TOCANVAS=TRUE M_SHOT3:PRIORITY=4000 M_SHOT3:PRELOAD=TRUE M_SHOT3:RELEASE=TRUE M_SHOT3:MONITORCOLLISION=FALSE M_SHOT3:MONITORCOLLISIONALPHA=FALSE OBJECT=M_SHOT4 M_SHOT4:TYPE=IMAGE M_SHOT4:VISIBLE=TRUE M_SHOT4:FILENAME=$COMMON\M_SHOT4.IMG M_SHOT4:TOCANVAS=TRUE M_SHOT4:PRIORITY=4000 M_SHOT4:PRELOAD=TRUE M_SHOT4:RELEASE=TRUE M_SHOT4:MONITORCOLLISION=FALSE M_SHOT4:MONITORCOLLISIONALPHA=FALSE OBJECT=M_POP M_POP:TYPE=IMAGE M_POP:VISIBLE=TRUE M_POP:FILENAME=$COMMON\M_POP.IMG M_POP:TOCANVAS=TRUE M_POP:PRIORITY=4000 M_POP:PRELOAD=TRUE M_POP:RELEASE=TRUE M_POP:MONITORCOLLISION=FALSE M_POP:MONITORCOLLISIONALPHA=FALSE OBJECT=BTNSLIDER BTNSLIDER:TYPE=BUTTON BTNSLIDER:VISIBLE=TRUE BTNSLIDER:ENABLE=TRUE BTNSLIDER:DRAGGABLE=TRUE BTNSLIDER:GFXSTANDARD=M_MUSBTN BTNSLIDER:ONDRAGGING={M_ITEMP0^SET(M_MUSBTN^GETPOSITIONY());M_ITEMP0^CLAMP(115,415);M_MUSBTN^SETPOSITION(M_ISLIDERX,M_ITEMP0);M_ITEMP0^SUB(115);M_ITEMP0^MUL(800);M_ITEMP0^DIV(300);M_ITEMP0^SET([800-M_ITEMP0]);G_ARRSETTINGS^CHANGEAT(1,M_ITEMP0);GAME^RUNENV(M_SSCENENAME,"_VOLUME_");} BTNSLIDER:ONENDDRAGGING={__SAVE_SETTINGS__^RUN();} BTNSLIDER:ONFOCUSON={@IF(M_SNDVOLUME^ISPLAYING(),"_","FALSE","BFITMP16","");} OBJECT=BTNEXIT BTNEXIT:TYPE=BUTTON BTNEXIT:VISIBLE=TRUE BTNEXIT:ENABLE=TRUE BTNEXIT:DRAGGABLE=FALSE BTNEXIT:GFXSTANDARD=M_EXIT BTNEXIT:ONFOCUSON={STOPALLSOUNDS^RUN();M_SNDEXIT^PLAY();HIGHLIGHT^RUN(0);M_EXIT^PLAY("ONFOCUSON");} BTNEXIT:ONFOCUSOFF={M_EXIT^PLAY("ONNOEVENT");} BTNEXIT:ONCLICKED={STOPALLSOUNDS^RUN();M_SNDPOPEXIT^PLAY();M_SPOPACTION^SET("EXIT");M_IPOPARG^SET(0);POPUP^RUN();} OBJECT=BTNNEW BTNNEW:TYPE=BUTTON BTNNEW:VISIBLE=TRUE BTNNEW:ENABLE=TRUE BTNNEW:DRAGGABLE=FALSE BTNNEW:GFXSTANDARD=M_NEW BTNNEW:ONFOCUSON={STOPALLSOUNDS^RUN();M_SNDNEWGAME^PLAY();HIGHLIGHT^RUN(0);M_NEW^PLAY("ONFOCUSON");} BTNNEW:ONFOCUSOFF={M_NEW^PLAY("ONNOEVENT");} BTNNEW:ONCLICKED={STOPALLSOUNDS^RUN();M_SNDPOPNEW^PLAY();M_SPOPACTION^SET("NEWGAME");M_IPOPARG^SET(0);POPUP^RUN();} OBJECT=BTNCONTINUE BTNCONTINUE:TYPE=BUTTON BTNCONTINUE:VISIBLE=TRUE BTNCONTINUE:ENABLE=TRUE BTNCONTINUE:DRAGGABLE=FALSE BTNCONTINUE:GFXSTANDARD=M_CONTINUE BTNCONTINUE:ONFOCUSON={@IF(M_SNDCONTINUE^ISPLAYING(),"_","FALSE","BFITMP17","");HIGHLIGHT^RUN(0);M_CONTINUE^PLAY("ONFOCUSON");} BTNCONTINUE:ONFOCUSOFF={M_CONTINUE^PLAY("ONNOEVENT");} BTNCONTINUE:ONCLICKED={@IF("M_BRESUME","_","TRUE","BFITMP18","BFITMP19");} OBJECT=BTNLOAD1 BTNLOAD1:TYPE=BUTTON BTNLOAD1:VISIBLE=TRUE BTNLOAD1:ENABLE=TRUE BTNLOAD1:DRAGGABLE=FALSE BTNLOAD1:GFXSTANDARD=M_LOAD1 BTNLOAD1:ONFOCUSON={@IF(M_SNDLOAD^ISPLAYING(),"_","FALSE","BFITMP20","");M_LOAD1^PLAY("ONFOCUSON");HIGHLIGHT^RUN(1);} BTNLOAD1:ONFOCUSOFF={M_LOAD1^PLAY("ONNOEVENT");} BTNLOAD1:ONCLICKED={STOPALLSOUNDS^RUN();M_SNDPOPLOAD^PLAY();M_SPOPACTION^SET("LOADGAME");M_IPOPARG^SET(1);POPUP^RUN();} OBJECT=BTNLOAD2 BTNLOAD2:TYPE=BUTTON BTNLOAD2:VISIBLE=TRUE BTNLOAD2:ENABLE=TRUE BTNLOAD2:DRAGGABLE=FALSE BTNLOAD2:GFXSTANDARD=M_LOAD2 BTNLOAD2:ONFOCUSON={@IF(M_SNDLOAD^ISPLAYING(),"_","FALSE","BFITMP21","");M_LOAD2^PLAY("ONFOCUSON");HIGHLIGHT^RUN(2);} BTNLOAD2:ONFOCUSOFF={M_LOAD2^PLAY("ONNOEVENT");} BTNLOAD2:ONCLICKED={STOPALLSOUNDS^RUN();M_SNDPOPLOAD^PLAY();M_SPOPACTION^SET("LOADGAME");M_IPOPARG^SET(2);POPUP^RUN();} OBJECT=BTNLOAD3 BTNLOAD3:TYPE=BUTTON BTNLOAD3:VISIBLE=TRUE BTNLOAD3:ENABLE=TRUE BTNLOAD3:DRAGGABLE=FALSE BTNLOAD3:GFXSTANDARD=M_LOAD3 BTNLOAD3:ONFOCUSON={@IF(M_SNDLOAD^ISPLAYING(),"_","FALSE","BFITMP22","");M_LOAD3^PLAY("ONFOCUSON");HIGHLIGHT^RUN(3);} BTNLOAD3:ONFOCUSOFF={M_LOAD3^PLAY("ONNOEVENT");} BTNLOAD3:ONCLICKED={STOPALLSOUNDS^RUN();M_SNDPOPLOAD^PLAY();M_SPOPACTION^SET("LOADGAME");M_IPOPARG^SET(3);POPUP^RUN();} OBJECT=BTNLOAD4 BTNLOAD4:TYPE=BUTTON BTNLOAD4:VISIBLE=TRUE BTNLOAD4:ENABLE=TRUE BTNLOAD4:DRAGGABLE=FALSE BTNLOAD4:GFXSTANDARD=M_LOAD4 BTNLOAD4:ONFOCUSON={@IF(M_SNDLOAD^ISPLAYING(),"_","FALSE","BFITMP23","");M_LOAD4^PLAY("ONFOCUSON");HIGHLIGHT^RUN(4);} BTNLOAD4:ONFOCUSOFF={M_LOAD4^PLAY("ONNOEVENT");} BTNLOAD4:ONCLICKED={STOPALLSOUNDS^RUN();M_SNDPOPLOAD^PLAY();M_SPOPACTION^SET("LOADGAME");M_IPOPARG^SET(4);POPUP^RUN();} OBJECT=BTNSAVE1 BTNSAVE1:TYPE=BUTTON BTNSAVE1:VISIBLE=TRUE BTNSAVE1:ENABLE=TRUE BTNSAVE1:DRAGGABLE=FALSE BTNSAVE1:GFXSTANDARD=M_SAVE1 BTNSAVE1:ONFOCUSON={@IF(M_SNDSAVE^ISPLAYING(),"_","FALSE","BFITMP24","");M_SAVE1^PLAY("ONFOCUSON");HIGHLIGHT^RUN(1);} BTNSAVE1:ONFOCUSOFF={M_SAVE1^PLAY("ONNOEVENT");} BTNSAVE1:ONCLICKED={STOPALLSOUNDS^RUN();M_SNDPOPSAVE^PLAY();M_SPOPACTION^SET("SAVEGAME");M_IPOPARG^SET(1);POPUP^RUN();} OBJECT=BTNSAVE2 BTNSAVE2:TYPE=BUTTON BTNSAVE2:VISIBLE=TRUE BTNSAVE2:ENABLE=TRUE BTNSAVE2:DRAGGABLE=FALSE BTNSAVE2:GFXSTANDARD=M_SAVE2 BTNSAVE2:ONFOCUSON={@IF(M_SNDSAVE^ISPLAYING(),"_","FALSE","BFITMP25","");M_SAVE2^PLAY("ONFOCUSON");HIGHLIGHT^RUN(2);} BTNSAVE2:ONFOCUSOFF={M_SAVE2^PLAY("ONNOEVENT");} BTNSAVE2:ONCLICKED={STOPALLSOUNDS^RUN();M_SNDPOPSAVE^PLAY();M_SPOPACTION^SET("SAVEGAME");M_IPOPARG^SET(2);POPUP^RUN();} OBJECT=BTNSAVE3 BTNSAVE3:TYPE=BUTTON BTNSAVE3:VISIBLE=TRUE BTNSAVE3:ENABLE=TRUE BTNSAVE3:DRAGGABLE=FALSE BTNSAVE3:GFXSTANDARD=M_SAVE3 BTNSAVE3:ONFOCUSON={@IF(M_SNDSAVE^ISPLAYING(),"_","FALSE","BFITMP26","");M_SAVE3^PLAY("ONFOCUSON");HIGHLIGHT^RUN(3);} BTNSAVE3:ONFOCUSOFF={M_SAVE3^PLAY("ONNOEVENT");} BTNSAVE3:ONCLICKED={STOPALLSOUNDS^RUN();M_SNDPOPSAVE^PLAY();M_SPOPACTION^SET("SAVEGAME");M_IPOPARG^SET(3);POPUP^RUN();} OBJECT=BTNSAVE4 BTNSAVE4:TYPE=BUTTON BTNSAVE4:VISIBLE=TRUE BTNSAVE4:ENABLE=TRUE BTNSAVE4:DRAGGABLE=FALSE BTNSAVE4:GFXSTANDARD=M_SAVE4 BTNSAVE4:ONFOCUSON={@IF(M_SNDSAVE^ISPLAYING(),"_","FALSE","BFITMP27","");M_SAVE4^PLAY("ONFOCUSON");HIGHLIGHT^RUN(4);} BTNSAVE4:ONFOCUSOFF={M_SAVE4^PLAY("ONNOEVENT");} BTNSAVE4:ONCLICKED={STOPALLSOUNDS^RUN();M_SNDPOPSAVE^PLAY();M_SPOPACTION^SET("SAVEGAME");M_IPOPARG^SET(4);POPUP^RUN();} OBJECT=BTNMENU BTNMENU:TYPE=BUTTON BTNMENU:VISIBLE=TRUE BTNMENU:ENABLE=TRUE BTNMENU:DRAGGABLE=FALSE BTNMENU:GFXSTANDARD=M_ENTER BTNMENU:ONFOCUSON={M_ENTER^PLAY("ONFOCUSON");} BTNMENU:ONFOCUSOFF={M_ENTER^PLAY("ONNOEVENT");} BTNMENU:ONCLICKED={TOGGLE^RUN();} OBJECT=BTNYES BTNYES:TYPE=BUTTON BTNYES:VISIBLE=TRUE BTNYES:ENABLE=TRUE BTNYES:DRAGGABLE=FALSE BTNYES:GFXSTANDARD=M_YES BTNYES:ONFOCUSON={@IF(M_SNDYES^ISPLAYING(),"_","FALSE","BFITMP28","");M_YES^PLAY("ONFOCUSON");} BTNYES:ONFOCUSOFF={M_YES^PLAY("ONNOEVENT");} BTNYES:ONCLICKED={M_BPOPUP^SET(TRUE);POPUP^RUN();} OBJECT=BTNNO BTNNO:TYPE=BUTTON BTNNO:VISIBLE=TRUE BTNNO:ENABLE=TRUE BTNNO:DRAGGABLE=FALSE BTNNO:GFXSTANDARD=M_NO BTNNO:ONFOCUSON={@IF(M_SNDNO^ISPLAYING(),"_","FALSE","BFITMP31","");M_NO^PLAY("ONFOCUSON");} BTNNO:ONFOCUSOFF={M_NO^PLAY("ONNOEVENT");} BTNNO:ONCLICKED={M_BPOPUP^SET(FALSE);POPUP^RUN();} OBJECT=M_GRPMENU M_GRPMENU:TYPE=GROUP OBJECT=M_GRPPOPUP M_GRPPOPUP:TYPE=GROUP OBJECT=M_GRPBUTONS M_GRPBUTONS:TYPE=GROUP OBJECT=M_SNDNEWGAME M_SNDNEWGAME:TYPE=SOUND M_SNDNEWGAME:FILENAME=NAR_F114.WAV M_SNDNEWGAME:PRELOAD=FALSE M_SNDNEWGAME:FLUSHAFTERPLAYED=FALSE OBJECT=M_SNDCONTINUE M_SNDCONTINUE:TYPE=SOUND M_SNDCONTINUE:FILENAME=NAR_F115.WAV M_SNDCONTINUE:PRELOAD=FALSE M_SNDCONTINUE:FLUSHAFTERPLAYED=FALSE OBJECT=M_SNDLOAD M_SNDLOAD:TYPE=SOUND M_SNDLOAD:FILENAME=NAR_F116.WAV M_SNDLOAD:PRELOAD=FALSE M_SNDLOAD:FLUSHAFTERPLAYED=FALSE OBJECT=M_SNDSAVE M_SNDSAVE:TYPE=SOUND M_SNDSAVE:FILENAME=NAR_F117.WAV M_SNDSAVE:PRELOAD=FALSE M_SNDSAVE:FLUSHAFTERPLAYED=FALSE OBJECT=M_SNDPOPNEW M_SNDPOPNEW:TYPE=SOUND M_SNDPOPNEW:FILENAME=NAR_F118.WAV M_SNDPOPNEW:PRELOAD=FALSE M_SNDPOPNEW:FLUSHAFTERPLAYED=FALSE OBJECT=M_SNDPOPLOAD M_SNDPOPLOAD:TYPE=SOUND M_SNDPOPLOAD:FILENAME=NAR_F119.WAV M_SNDPOPLOAD:PRELOAD=FALSE M_SNDPOPLOAD:FLUSHAFTERPLAYED=FALSE OBJECT=M_SNDPOPSAVE M_SNDPOPSAVE:TYPE=SOUND M_SNDPOPSAVE:FILENAME=NAR_F120.WAV M_SNDPOPSAVE:PRELOAD=FALSE M_SNDPOPSAVE:FLUSHAFTERPLAYED=FALSE OBJECT=M_SNDEXIT M_SNDEXIT:TYPE=SOUND M_SNDEXIT:FILENAME=NAR_F121.WAV M_SNDEXIT:PRELOAD=FALSE M_SNDEXIT:FLUSHAFTERPLAYED=FALSE OBJECT=M_SNDPOPEXIT M_SNDPOPEXIT:TYPE=SOUND M_SNDPOPEXIT:FILENAME=NAR_F122.WAV M_SNDPOPEXIT:PRELOAD=FALSE M_SNDPOPEXIT:FLUSHAFTERPLAYED=FALSE OBJECT=M_SNDYES M_SNDYES:TYPE=SOUND M_SNDYES:FILENAME=NAR_F123.WAV M_SNDYES:PRELOAD=FALSE M_SNDYES:FLUSHAFTERPLAYED=FALSE OBJECT=M_SNDNO M_SNDNO:TYPE=SOUND M_SNDNO:FILENAME=NAR_F124.WAV M_SNDNO:PRELOAD=FALSE M_SNDNO:FLUSHAFTERPLAYED=FALSE OBJECT=M_SNDDONKNOW M_SNDDONKNOW:TYPE=SOUND M_SNDDONKNOW:FILENAME=NAR_F125.WAV M_SNDDONKNOW:PRELOAD=FALSE M_SNDDONKNOW:FLUSHAFTERPLAYED=FALSE OBJECT=M_SNDVOLUME M_SNDVOLUME:TYPE=SOUND M_SNDVOLUME:FILENAME=NAR_F126.WAV M_SNDVOLUME:PRELOAD=FALSE M_SNDVOLUME:FLUSHAFTERPLAYED=FALSE OBJECT=M_ARRGAMESETS M_ARRGAMESETS:TYPE=ARRAY OBJECT=M_ARRCHARACTERS M_ARRCHARACTERS:TYPE=ARRAY OBJECT=M_ARRPIOTR M_ARRPIOTR:TYPE=ARRAY OBJECT=CONSTRUCTOR CONSTRUCTOR:TYPE=BEHAVIOUR CONSTRUCTOR:CODE={M_ARRPIOTR^ADD("LABIRYNT","MIOTLY","CAT","BARANDALF","DRAGON","SHOOTER");M_SHOT1^SETPOSITION(579,85);M_SHOT2^SETPOSITION(579,185);M_SHOT3^SETPOSITION(579,285);M_SHOT4^SETPOSITION(579,385);M_ARRCHARACTERS^ADD("BUREKTOR","GULDRYK","SNEJK","WALDIMORS","SPIELMAUSTER","CHRUMBURAK");M_ARRCHARACTERS^ADD("BARANDALF","KROLOWA","KAMIEN","SMOK","GASIENICA");M_GRPMENU^ADD("M_BKG","M_HIGH1","M_HIGH2","M_HIGH3","M_HIGH4","M_MUSBTN","M_SHOT1","M_SHOT2","M_SHOT3","M_SHOT4");M_GRPMENU^ADD("M_CONTINUE","M_EXIT","M_NEW","M_LOAD1","M_LOAD2","M_LOAD3","M_LOAD4","M_SAVE1","M_SAVE2","M_SAVE3","M_SAVE4");M_GRPBUTONS^ADD("BTNSLIDER","BTNEXIT","BTNNEW","BTNCONTINUE","BTNLOAD1","BTNLOAD2","BTNLOAD3","BTNLOAD4");M_GRPBUTONS^ADD("BTNSAVE1","BTNSAVE2","BTNSAVE3","BTNSAVE4");M_GRPBUTONS^DISABLEBUTVISIBLE();M_GRPPOPUP^ADD("M_POP","M_YES","M_NO");M_IPOPY^SET(80);M_GRPPOPUP^MOVE(0,M_IPOPY);BTNNO^DISABLEBUTVISIBLE();BTNYES^DISABLEBUTVISIBLE();M_GRPMENU^MOVE(0,-540);M_IPOSY^SET(-540);M_ISLIDERX^SET(M_MUSBTN^GETPOSITIONX());M_ITEMP0^SET([800-G_ARRSETTINGS^GET(1)]);M_ITEMP0^MUL(300);M_ITEMP0^DIV(800);M_MUSBTN^MOVE(0,M_ITEMP0);HIGHLIGHT^RUN(0);G_ARRREXSPELLS^LOAD("$COMMON\SPELLS0.ARR");@IF(G_ARRREXSPELLS^GETSIZE(),"<","17","BFITMP34","");@IF(G_ARRREXSPELLS^GET(15),"_","0","BFITMP35","BFITMP36");M_WAND^HIDE();} OBJECT=NEWGAME NEWGAME:TYPE=BEHAVIOUR NEWGAME:CODE={M_ITEMP0^SET(G_ARRDATAS^GETSIZE());HIDEEXP^RUN();@LOOP("{M_STEMP0^SET(["$COMMON\"+G_ARRDATAS^GET(_I_)+"_DEF.DTA"]);M_STEMP1^SET(["$COMMON\"+G_ARRDATAS^GET(_I_)+"0.DTA"]);M_STEMP0^COPYFILE(M_STEMP0,M_STEMP1);}",0,M_ITEMP0,1);M_STEMP0^COPYFILE("$COMMON\ITEMS_DEF.DTA","$COMMON\ITEMS0.DTA");G_ARRCUTSCENES^REMOVEALL();G_ARRCUTSCENES^SAVE("$COMMON\CUTSCENES0.ARR");M_STEMP0^COPYFILE("$COMMON\QUESTIONS_DEF.ARR","$COMMON\QUESTIONS0.ARR");M_STEMP0^COPYFILE("$COMMON\QUESTIONS_DEF.ARR","$COMMON\QUESTIONS_ASKED0.ARR");@LOOP("{M_STEMP0^SET(["$COMMON\"+M_ARRCHARACTERS^GET(_I_)+"_HIST0.ARR"]);M_STEMP0^COPYFILE("$COMMON\QUESTIONS_DEF.ARR",M_STEMP0);}",0,M_ARRCHARACTERS^GETSIZE(),1);G_ARRREXSPELLS^REMOVEALL();G_ARRREXSPELLS^ADD(0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0);G_ARRREXSPELLS^SAVE("$COMMON\SPELLS0.ARR");DEFSETS^RUN();M_STEMP0^COPYFILE("$COMMON\QUESTIONS_DEF.ARR","$COMMON\INVEST0.ARR");@LOOP("{M_STEMP0^SET(["$COMMON\"+M_ARRPIOTR^GET(_I_)+"_DEF.ARR"]);M_STEMP1^SET(["$COMMON\"+M_ARRPIOTR^GET(_I_)+"0.ARR"]);M_STEMP0^COPYFILE(M_STEMP0,M_STEMP1);}",0,M_ARRPIOTR^GETSIZE(),1);M_IACTION^SET(0);M_KLEPSYDRA^HIDE();M_WAND^HIDE();TOGGLE^RUN();} OBJECT=NEWGAMESTART NEWGAMESTART:TYPE=BEHAVIOUR NEWGAMESTART:CODE={M_ITEMP0^SET(G_ARRDATAS^GETSIZE());HIDEEXP^RUN();@LOOP("{M_STEMP0^SET(["$COMMON\"+G_ARRDATAS^GET(_I_)+"_DEF.DTA"]);M_STEMP1^SET(["$COMMON\"+G_ARRDATAS^GET(_I_)+"0.DTA"]);M_STEMP0^COPYFILE(M_STEMP0,M_STEMP1);}",0,M_ITEMP0,1);M_STEMP0^COPYFILE("$COMMON\ITEMS_DEF.DTA","$COMMON\ITEMS0.DTA");G_ARRCUTSCENES^REMOVEALL();G_ARRCUTSCENES^SAVE("$COMMON\CUTSCENES0.ARR");M_STEMP0^COPYFILE("$COMMON\QUESTIONS_DEF.ARR","$COMMON\QUESTIONS0.ARR");M_STEMP0^COPYFILE("$COMMON\QUESTIONS_DEF.ARR","$COMMON\QUESTIONS_ASKED0.ARR");@LOOP("{M_STEMP0^SET(["$COMMON\"+M_ARRCHARACTERS^GET(_I_)+"_HIST0.ARR"]);M_STEMP0^COPYFILE("$COMMON\QUESTIONS_DEF.ARR",M_STEMP0);}",0,M_ARRCHARACTERS^GETSIZE(),1);G_ARRREXSPELLS^REMOVEALL();G_ARRREXSPELLS^ADD(0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0);G_ARRREXSPELLS^SAVE("$COMMON\SPELLS0.ARR");DEFSETS^RUN();M_STEMP0^COPYFILE("$COMMON\QUESTIONS_DEF.ARR","$COMMON\INVEST0.ARR");@LOOP("{M_STEMP0^SET(["$COMMON\"+M_ARRPIOTR^GET(_I_)+"_DEF.ARR"]);M_STEMP1^SET(["$COMMON\"+M_ARRPIOTR^GET(_I_)+"0.ARR"]);M_STEMP0^COPYFILE(M_STEMP0,M_STEMP1);}",0,M_ARRPIOTR^GETSIZE(),1);M_IACTION^SET(0);M_KLEPSYDRA^HIDE();M_WAND^HIDE();} OBJECT=SAVEGAME SAVEGAME:TYPE=BEHAVIOUR SAVEGAME:CODE={M_ITEMP1^SET($1);M_ITEMP0^SET(G_ARRDATAS^GETSIZE());@LOOP("{M_STEMP0^SET(["$COMMON\"+G_ARRDATAS^GET(_I_)+"0.DTA"]);M_STEMP1^SET(["$COMMON\"+G_ARRDATAS^GET(_I_)+M_ITEMP1+".DTA"]);M_STEMP0^COPYFILE(M_STEMP0,M_STEMP1);}",0,M_ITEMP0,1);M_STEMP0^SET(["$COMMON\ITEMS"+M_ITEMP1+".DTA"]);M_STEMP0^COPYFILE("$COMMON\ITEMS0.DTA",M_STEMP0);M_STEMP0^SET(["$COMMON\CUTSCENES"+M_ITEMP1+".ARR"]);G_ARRCUTSCENES^SAVE(M_STEMP0);M_STEMP0^SET(["$COMMON\M_SHOT"+M_ITEMP1+".IMG"]);M_STEMP0^COPYFILE("$COMMON\SAVE.IMG",M_STEMP0);M_STEMP1^SET(["M_SHOT"+M_ITEMP1]);*M_STEMP1^LOAD(M_STEMP0);M_ITEMP0^SET([M_ITEMP1-1]);M_ITEMP0^MUL(100);M_ITEMP0^ADD(85);*M_STEMP1^SETPOSITION(579,M_ITEMP0);*M_STEMP1^SETPRIORITY(4000);M_STEMP0^SET(["$COMMON\QUESTIONS"+M_ITEMP1+".ARR"]);M_STEMP0^COPYFILE("$COMMON\QUESTIONS0.ARR",M_STEMP0);M_STEMP0^SET(["$COMMON\QUESTIONS_ASKED"+M_ITEMP1+".ARR"]);M_STEMP0^COPYFILE("$COMMON\QUESTIONS_ASKED0.ARR",M_STEMP0);@LOOP("{M_STEMP0^SET(["$COMMON\"+M_ARRCHARACTERS^GET(_I_)+"_HIST0.ARR"]);M_STEMP1^SET(["$COMMON\"+M_ARRCHARACTERS^GET(_I_)+"_HIST"+M_ITEMP1+".ARR"]);M_STEMP0^COPYFILE(M_STEMP0,M_STEMP1);}",0,M_ARRCHARACTERS^GETSIZE(),1);@IF(G_ARRREXSPELLS^GETSIZE(),"<","17","BFITMP37","");M_STEMP0^SET(["$COMMON\SPELLS"+M_ITEMP1+".ARR"]);G_ARRREXSPELLS^SAVE(M_STEMP0);M_STEMP0^SET(["$COMMON\GAME"+M_ITEMP1+".ARR"]);M_ARRGAMESETS^CHANGEAT(0,G_SARCADEOBJECTS);M_ARRGAMESETS^CHANGEAT(1,G_SLASTOBJECTS);M_ARRGAMESETS^CHANGEAT(2,G_SDIALOGCHARACTER);M_ARRGAMESETS^CHANGEAT(3,G_SDIALOGRETURN);M_STEMP1^SET(G_ITKTPM);M_ARRGAMESETS^CHANGEAT(4,M_STEMP1);M_STEMP1^SET(G_IKRETACTIVE);M_ARRGAMESETS^CHANGEAT(5,M_STEMP1);M_ARRGAMESETS^SAVE(M_STEMP0);M_STEMP0^SET(["$COMMON\INVEST"+M_ITEMP1+".ARR"]);M_STEMP0^COPYFILE("$COMMON\INVEST0.ARR",M_STEMP0);@LOOP("{M_STEMP0^SET(["$COMMON\"+M_ARRPIOTR^GET(_I_)+"0.ARR"]);M_STEMP1^SET(["$COMMON\"+M_ARRPIOTR^GET(_I_)+M_ITEMP1+".ARR"]);M_STEMP0^COPYFILE(M_STEMP0,M_STEMP1);}",0,M_ARRPIOTR^GETSIZE(),1);} OBJECT=LOADGAME LOADGAME:TYPE=BEHAVIOUR LOADGAME:CODE={M_ITEMP1^SET($1);M_ITEMP0^SET(G_ARRDATAS^GETSIZE());@LOOP("{M_STEMP0^SET(["$COMMON\"+G_ARRDATAS^GET(_I_)+M_ITEMP1+".DTA"]);M_STEMP1^SET(["$COMMON\"+G_ARRDATAS^GET(_I_)+"0.DTA"]);M_STEMP0^COPYFILE(M_STEMP0,M_STEMP1);}",0,M_ITEMP0,1);M_STEMP0^SET(["$COMMON\ITEMS"+M_ITEMP1+".DTA"]);M_STEMP0^COPYFILE(M_STEMP0,"$COMMON\ITEMS0.DTA");M_STEMP0^SET(["$COMMON\CUTSCENES"+M_ITEMP1+".ARR"]);G_ARRCUTSCENES^LOAD(M_STEMP0);G_ARRCUTSCENES^SAVE("$COMMON\CUTSCENES0.ARR");M_STEMP0^SET(["$COMMON\QUESTIONS"+M_ITEMP1+".ARR"]);M_STEMP0^COPYFILE(M_STEMP0,"$COMMON\QUESTIONS0.ARR");M_STEMP0^SET(["$COMMON\QUESTIONS_ASKED"+M_ITEMP1+".ARR"]);M_STEMP0^COPYFILE(M_STEMP0,"$COMMON\QUESTIONS_ASKED0.ARR");@LOOP("{M_STEMP1^SET(["$COMMON\"+M_ARRCHARACTERS^GET(_I_)+"_HIST0.ARR"]);M_STEMP0^SET(["$COMMON\"+M_ARRCHARACTERS^GET(_I_)+"_HIST"+M_ITEMP1+".ARR"]);M_STEMP0^COPYFILE(M_STEMP0,M_STEMP1);}",0,M_ARRCHARACTERS^GETSIZE(),1);M_STEMP0^SET(["$COMMON\SPELLS"+M_ITEMP1+".ARR"]);G_ARRREXSPELLS^LOAD(M_STEMP0);@IF(G_ARRREXSPELLS^GETSIZE(),"<","17","BFITMP38","");M_STEMP0^SET(["$COMMON\GAME"+M_ITEMP1+".ARR"]);M_ARRGAMESETS^LOAD(M_STEMP0);@IF(M_ARRGAMESETS^GETSIZE(),"<","6","BFITMP39","BFITMP40");M_STEMP0^COPYFILE(M_STEMP0,"$COMMON\GAME0.ARR");M_STEMP0^SET(["$COMMON\INVEST"+M_ITEMP1+".ARR"]);M_STEMP0^COPYFILE(M_STEMP0,"$COMMON\INVEST0.ARR");@LOOP("{M_STEMP1^SET(["$COMMON\"+M_ARRPIOTR^GET(_I_)+"0.ARR"]);M_STEMP0^SET(["$COMMON\"+M_ARRPIOTR^GET(_I_)+M_ITEMP1+".ARR"]);M_STEMP0^COPYFILE(M_STEMP0,M_STEMP1);}",0,M_ARRPIOTR^GETSIZE(),1);ADDEXP^RUN(0);M_IACTION^SET(1);TOGGLE^RUN();} OBJECT=FADEIN FADEIN:TYPE=BEHAVIOUR FADEIN:CODE={M_IDIR^SET(1);M_ANNSTL^PLAY("ELAPSE");} OBJECT=FADEOUT FADEOUT:TYPE=BEHAVIOUR FADEOUT:CODE={@IF("M_IPOSY","_","0","BFITMP41","");} OBJECT=TOGGLE TOGGLE:TYPE=BEHAVIOUR TOGGLE:CODE={@IF("M_IPOSY","_","-540","BFITMP42","");@IF("M_IPOSY","_","0","BFITMP43","");} OBJECT=ISVISIBLE ISVISIBLE:TYPE=BEHAVIOUR ISVISIBLE:CODE={@IF("M_IPOSY","_","0","BFITMP44","BFITMP45");@RETURN(M_BTEMP0);} OBJECT=DEFSETS DEFSETS:TYPE=BEHAVIOUR DEFSETS:CODE={M_ARRGAMESETS^REMOVEALL();G_ITKTPM^RANDOM(0,7);M_STEMP0^SET(G_ITKTPM);M_ARRGAMESETS^ADD("INTRO_1","NULL","BUREKTOR","NULL",M_STEMP0,"0");M_ARRGAMESETS^SAVE("$COMMON\GAME0.ARR");G_SARCADEOBJECTS^SET(M_ARRGAMESETS^GET(0));G_SLASTOBJECTS^SET(M_ARRGAMESETS^GET(1));G_SDIALOGCHARACTER^SET(M_ARRGAMESETS^GET(2));G_SDIALOGRETURN^SET(M_ARRGAMESETS^GET(3));G_ITKTPM^SET(M_ARRGAMESETS^GET(4));G_IKRETACTIVE^SET(M_ARRGAMESETS^GET(5));} OBJECT=RESUMEGAME RESUMEGAME:TYPE=BEHAVIOUR RESUMEGAME:CODE={M_ARRGAMESETS^LOAD("$COMMON\GAME0.ARR");@IF(M_ARRGAMESETS^GETSIZE(),"<","6","BFITMP46","");G_SARCADEOBJECTS^SET(M_ARRGAMESETS^GET(0));G_SLASTOBJECTS^SET(M_ARRGAMESETS^GET(1));G_SDIALOGCHARACTER^SET(M_ARRGAMESETS^GET(2));G_SDIALOGRETURN^SET(M_ARRGAMESETS^GET(3));G_ITKTPM^SET(M_ARRGAMESETS^GET(4));G_IKRETACTIVE^SET(M_ARRGAMESETS^GET(5));M_IACTION^SET(1);M_BRESUME^SET(FALSE);TOGGLE^RUN();} OBJECT=SAVESETS SAVESETS:TYPE=BEHAVIOUR SAVESETS:CODE={@IF(M_ARRGAMESETS^GETSIZE(),"<","6","BFITMP47","BFITMP48");} OBJECT=SAVEEXP SAVEEXP:TYPE=BEHAVIOUR SAVEEXP:CODE={@IF(G_ARRREXSPELLS^GETSIZE(),"<","16","BFITMP49","BFITMP50");} OBJECT=EXIT EXIT:TYPE=BEHAVIOUR EXIT:CODE={M_IACTION^SET(7);TOGGLE^RUN();} OBJECT=HIGHLIGHT HIGHLIGHT:TYPE=BEHAVIOUR HIGHLIGHT:CODE={M_ITEMP0^SET($1);@LOOP("{M_ITEMP1^SET(_I_);M_STEMP0^SET(["M_HIGH"+M_ITEMP1]);@IF("M_ITEMP0","_","M_ITEMP1","BFITMP51","BFITMP52");}",1,4,1);} OBJECT=POPUP POPUP:TYPE=BEHAVIOUR POPUP:CODE={@IF("M_IPOPY","_","0","BFITMP53","");@IF("M_IPOPY","_","80","BFITMP54","");} OBJECT=SETRESUME SETRESUME:TYPE=BEHAVIOUR SETRESUME:CODE={M_BRESUME^SET(TRUE);} OBJECT=ADDEXP ADDEXP:TYPE=BEHAVIOUR ADDEXP:CODE={G_ARRREXSPELLS^ADDAT(13,$1);@IF(G_ARRREXSPELLS^GET(15),"_","1","BFITMP57","BFITMP58");SAVEEXP^RUN();} OBJECT=LEVELUP LEVELUP:TYPE=BEHAVIOUR LEVELUP:CODE={@IF("G_ARRREXSPELLS^GET(13)<150&&G_ARRREXSPELLS^GET(13)>-1","BFITMP60","BFITMP61");@RETURN(M_BTEMP0);} OBJECT=SHOWEXP SHOWEXP:TYPE=BEHAVIOUR SHOWEXP:CODE={M_BTEMP0^SET($1);@IF("M_BTEMP0","_","TRUE","BFITMP62","BFITMP63");} OBJECT=HIDEEXP HIDEEXP:TYPE=BEHAVIOUR HIDEEXP:CODE={M_KLEPSYDRA^HIDE();} OBJECT=SETSCENE SETSCENE:TYPE=BEHAVIOUR SETSCENE:CODE={M_SSCENENAME^SET($1);M_WAND^HIDE();M_BRESUME^SET(FALSE);@IF(G_ARRREXSPELLS^GET(15),"_","1","BFITMP64","");SHOWWAND^RUN(FALSE);SHOW^RUN(TRUE);} OBJECT=SHOW SHOW:TYPE=BEHAVIOUR SHOW:CODE={M_BTEMP0^SET($1);@IF("M_BTEMP0","_","TRUE","BFITMP65","BFITMP66");} OBJECT=SHOWWAND SHOWWAND:TYPE=BEHAVIOUR SHOWWAND:CODE={M_BTEMP0^SET($1);@IF("M_BTEMP0","_","TRUE","BFITMP67","BFITMP68");} OBJECT=GETEXP GETEXP:TYPE=BEHAVIOUR GETEXP:CODE={M_ITEMP0^SET(G_ARRREXSPELLS^GET(13));@RETURN(M_ITEMP0);} OBJECT=STOPALLSOUNDS STOPALLSOUNDS:TYPE=BEHAVIOUR STOPALLSOUNDS:CODE={M_SNDNEWGAME^STOP(FALSE);M_SNDCONTINUE^STOP(FALSE);M_SNDLOAD^STOP(FALSE);M_SNDSAVE^STOP(FALSE);M_SNDPOPLOAD^STOP(FALSE);M_SNDPOPNEW^STOP(FALSE);M_SNDPOPSAVE^STOP(FALSE);M_SNDEXIT^STOP(FALSE);M_SNDPOPEXIT^STOP(FALSE);M_SNDYES^STOP(FALSE);M_SNDNO^STOP(FALSE);M_SNDDONKNOW^STOP(FALSE);M_SNDVOLUME^STOP(FALSE);} OBJECT=BFITMP9 BFITMP9:TYPE=BEHAVIOUR BFITMP9:CODE={GAME^RUNENV(M_SSCENENAME,"BEHPAUSEEND");} OBJECT=BFITMP10 BFITMP10:TYPE=BEHAVIOUR BFITMP10:CODE={BTNMENU^ENABLE();M_GRPBUTONS^DISABLEBUTVISIBLE();BTNNO^DISABLEBUTVISIBLE();BTNYES^DISABLEBUTVISIBLE();M_GRPBUTONS^DISABLE();BTNYES^DISABLE();BTNNO^DISABLE();M_IDOACTION^SET(M_IACTION);M_IACTION^SET(-1);} OBJECT=BFITMP11 BFITMP11:TYPE=BEHAVIOUR BFITMP11:CODE={M_GRPBUTONS^ENABLE();BTNYES^ENABLE();BTNNO^ENABLE();} OBJECT=BFITMP12 BFITMP12:TYPE=BEHAVIOUR BFITMP12:CODE={M_ANNSTL^STOP(FALSE);@IF("M_IPOSY","_","-540","BFITMP10","BFITMP11");}; OBJECT=BFITMP13 BFITMP13:TYPE=BEHAVIOUR BFITMP13:CODE={*M_SPOPACTION^RUN(M_IPOPARG);} OBJECT=BFITMP14 BFITMP14:TYPE=BEHAVIOUR BFITMP14:CODE={@IF("M_BPOPUP","_","TRUE","BFITMP13","");}; OBJECT=BFITMP15 BFITMP15:TYPE=BEHAVIOUR BFITMP15:CODE={M_ANNSTL1^STOP(FALSE);@IF("M_IPOPY","_","80","BFITMP14","");}; OBJECT=BFITMP16 BFITMP16:TYPE=BEHAVIOUR BFITMP16:CODE={STOPALLSOUNDS^RUN();M_SNDVOLUME^PLAY();} OBJECT=BFITMP17 BFITMP17:TYPE=BEHAVIOUR BFITMP17:CODE={STOPALLSOUNDS^RUN();M_SNDCONTINUE^PLAY();} OBJECT=BFITMP18 BFITMP18:TYPE=BEHAVIOUR BFITMP18:CODE={RESUMEGAME^RUN();} OBJECT=BFITMP19 BFITMP19:TYPE=BEHAVIOUR BFITMP19:CODE={TOGGLE^RUN();} OBJECT=BFITMP20 BFITMP20:TYPE=BEHAVIOUR BFITMP20:CODE={STOPALLSOUNDS^RUN();M_SNDLOAD^PLAY();} OBJECT=BFITMP21 BFITMP21:TYPE=BEHAVIOUR BFITMP21:CODE={STOPALLSOUNDS^RUN();M_SNDLOAD^PLAY();} OBJECT=BFITMP22 BFITMP22:TYPE=BEHAVIOUR BFITMP22:CODE={STOPALLSOUNDS^RUN();M_SNDLOAD^PLAY();} OBJECT=BFITMP23 BFITMP23:TYPE=BEHAVIOUR BFITMP23:CODE={STOPALLSOUNDS^RUN();M_SNDLOAD^PLAY();} OBJECT=BFITMP24 BFITMP24:TYPE=BEHAVIOUR BFITMP24:CODE={STOPALLSOUNDS^RUN();M_SNDSAVE^PLAY();} OBJECT=BFITMP25 BFITMP25:TYPE=BEHAVIOUR BFITMP25:CODE={STOPALLSOUNDS^RUN();M_SNDSAVE^PLAY();} OBJECT=BFITMP26 BFITMP26:TYPE=BEHAVIOUR BFITMP26:CODE={STOPALLSOUNDS^RUN();M_SNDSAVE^PLAY();} OBJECT=BFITMP27 BFITMP27:TYPE=BEHAVIOUR BFITMP27:CODE={STOPALLSOUNDS^RUN();M_SNDSAVE^PLAY();} OBJECT=BFITMP28 BFITMP28:TYPE=BEHAVIOUR BFITMP28:CODE={STOPALLSOUNDS^RUN();M_SNDYES^PLAY();} OBJECT=BFITMP29 BFITMP29:TYPE=BEHAVIOUR BFITMP29:CODE={M_SNDDONKNOW^PLAY();} OBJECT=BFITMP30 BFITMP30:TYPE=BEHAVIOUR BFITMP30:CODE={M_SNDNO^PLAY();} OBJECT=BFITMP31 BFITMP31:TYPE=BEHAVIOUR BFITMP31:CODE={STOPALLSOUNDS^RUN();M_ITEMP0^RANDOM(0,100);@IF("M_ITEMP0","<","50","BFITMP29","BFITMP30");}; OBJECT=BFITMP32 BFITMP32:TYPE=BEHAVIOUR BFITMP32:CODE={DEFSETS^RUN();} OBJECT=BFITMP33 BFITMP33:TYPE=BEHAVIOUR BFITMP33:CODE={G_SARCADEOBJECTS^SET(M_ARRGAMESETS^GET(0));G_SLASTOBJECTS^SET(M_ARRGAMESETS^GET(1));G_SDIALOGCHARACTER^SET(M_ARRGAMESETS^GET(2));G_SDIALOGRETURN^SET(M_ARRGAMESETS^GET(3));G_ITKTPM^SET(M_ARRGAMESETS^GET(4));G_IKRETACTIVE^SET(M_ARRGAMESETS^GET(5));} OBJECT=BFITMP34 BFITMP34:TYPE=BEHAVIOUR BFITMP34:CODE={G_ARRREXSPELLS^REMOVEALL();G_ARRREXSPELLS^ADD(0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0);G_ARRREXSPELLS^SAVE("$COMMON\SPELLS0.ARR");} OBJECT=BFITMP35 BFITMP35:TYPE=BEHAVIOUR BFITMP35:CODE={M_KLEPSYDRA^HIDE();} OBJECT=BFITMP36 BFITMP36:TYPE=BEHAVIOUR BFITMP36:CODE={ADDEXP^RUN(0);} OBJECT=BFITMP37 BFITMP37:TYPE=BEHAVIOUR BFITMP37:CODE={G_ARRREXSPELLS^REMOVEALL();G_ARRREXSPELLS^ADD(0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0);} OBJECT=BFITMP38 BFITMP38:TYPE=BEHAVIOUR BFITMP38:CODE={G_ARRREXSPELLS^REMOVEALL();G_ARRREXSPELLS^ADD(0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0);} OBJECT=BFITMP39 BFITMP39:TYPE=BEHAVIOUR BFITMP39:CODE={DEFSETS^RUN();} OBJECT=BFITMP40 BFITMP40:TYPE=BEHAVIOUR BFITMP40:CODE={G_SARCADEOBJECTS^SET(M_ARRGAMESETS^GET(0));G_SLASTOBJECTS^SET(M_ARRGAMESETS^GET(1));G_SDIALOGCHARACTER^SET(M_ARRGAMESETS^GET(2));G_SDIALOGRETURN^SET(M_ARRGAMESETS^GET(3));G_ITKTPM^SET(M_ARRGAMESETS^GET(4));G_IKRETACTIVE^SET(M_ARRGAMESETS^GET(5));} OBJECT=BFITMP41 BFITMP41:TYPE=BEHAVIOUR BFITMP41:CODE={M_IDIR^SET(-1);M_ANNSTL^PLAY("ELAPSE");} OBJECT=BFITMP42 BFITMP42:TYPE=BEHAVIOUR BFITMP42:CODE={GAME^RUNENV(M_SSCENENAME,"__PAUSESTART__");GAME^RUNENV(M_SSCENENAME,"B_PAUSE_START");BTNMENU^DISABLEBUTVISIBLE();BTNNO^DISABLEBUTVISIBLE();BTNYES^DISABLEBUTVISIBLE();BTNEXIT^DISABLEBUTVISIBLE();BTNCONTINUE^DISABLEBUTVISIBLE();CANVASOBSERVER^SAVE("$COMMON\SAVE.IMG",0.15,0.15);FADEIN^RUN();M_GRPMENU^RESUME();M_CONTINUE^PLAY("ONNOEVENT");M_SAVE1^PLAY("ONNOEVENT");M_SAVE2^PLAY("ONNOEVENT");M_SAVE3^PLAY("ONNOEVENT");M_SAVE4^PLAY("ONNOEVENT");M_LOAD1^PLAY("ONNOEVENT");M_LOAD2^PLAY("ONNOEVENT");M_LOAD3^PLAY("ONNOEVENT");M_LOAD4^PLAY("ONNOEVENT");} OBJECT=BFITMP43 BFITMP43:TYPE=BEHAVIOUR BFITMP43:CODE={M_GRPBUTONS^DISABLEBUTVISIBLE();BTNNO^DISABLEBUTVISIBLE();BTNYES^DISABLEBUTVISIBLE();M_LOAD1^DISABLE();BTNYES^DISABLE();BTNNO^DISABLE();FADEOUT^RUN();} OBJECT=BFITMP44 BFITMP44:TYPE=BEHAVIOUR BFITMP44:CODE={M_BTEMP0^SET(TRUE);} OBJECT=BFITMP45 BFITMP45:TYPE=BEHAVIOUR BFITMP45:CODE={M_BTEMP0^SET(FALSE);} OBJECT=BFITMP46 BFITMP46:TYPE=BEHAVIOUR BFITMP46:CODE={DEFSETS^RUN();} OBJECT=BFITMP47 BFITMP47:TYPE=BEHAVIOUR BFITMP47:CODE={DEFSETS^RUN();} OBJECT=BFITMP48 BFITMP48:TYPE=BEHAVIOUR BFITMP48:CODE={M_ARRGAMESETS^CHANGEAT(0,G_SARCADEOBJECTS);M_ARRGAMESETS^CHANGEAT(1,G_SLASTOBJECTS);M_ARRGAMESETS^CHANGEAT(2,G_SDIALOGCHARACTER);M_ARRGAMESETS^CHANGEAT(3,G_SDIALOGRETURN);M_STEMP1^SET(G_ITKTPM);M_ARRGAMESETS^CHANGEAT(4,M_STEMP1);M_STEMP1^SET(G_IKRETACTIVE);M_ARRGAMESETS^CHANGEAT(5,M_STEMP1);M_ARRGAMESETS^SAVE("$COMMON\GAME0.ARR");} OBJECT=BFITMP49 BFITMP49:TYPE=BEHAVIOUR BFITMP49:CODE={G_ARRREXSPELLS^ADD(0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0);G_ARRREXSPELLS^SAVE("$COMMON\SPELLS0.ARR");} OBJECT=BFITMP50 BFITMP50:TYPE=BEHAVIOUR BFITMP50:CODE={G_ARRREXSPELLS^SAVE("$COMMON\SPELLS0.ARR");} OBJECT=BFITMP51 BFITMP51:TYPE=BEHAVIOUR BFITMP51:CODE={*M_STEMP0^SHOW();} OBJECT=BFITMP52 BFITMP52:TYPE=BEHAVIOUR BFITMP52:CODE={*M_STEMP0^HIDE();} OBJECT=BFITMP53 BFITMP53:TYPE=BEHAVIOUR BFITMP53:CODE={M_GRPBUTONS^ENABLE();M_IDIR^SET(1);M_ANNSTL1^PLAY("ELAPSE");} OBJECT=BFITMP54 BFITMP54:TYPE=BEHAVIOUR BFITMP54:CODE={M_GRPBUTONS^DISABLEBUTVISIBLE();BTNNO^ENABLE();BTNYES^ENABLE();M_IDIR^SET(-1);M_ANNSTL1^PLAY("ELAPSE");} OBJECT=BFITMP55 BFITMP55:TYPE=BEHAVIOUR BFITMP55:CODE={M_ITEMP1^SET(G_ARRREXSPELLS^GET(13));M_ITEMP1^DIV(10);M_ITEMP1^INC();M_KLEPSYDRA^SHOW();M_KLEPSYDRA^SETFRAME("PLAY",M_ITEMP1);} OBJECT=BFITMP56 BFITMP56:TYPE=BEHAVIOUR BFITMP56:CODE={M_KLEPSYDRA^PLAY("MIGA");G_ARRREXSPELLS^CHANGEAT(16,1);} OBJECT=BFITMP57 BFITMP57:TYPE=BEHAVIOUR BFITMP57:CODE={@IF(G_ARRREXSPELLS^GET(13),"<","150","BFITMP55","BFITMP56");}; OBJECT=BFITMP58 BFITMP58:TYPE=BEHAVIOUR BFITMP58:CODE={M_KLEPSYDRA^STOP(FALSE);M_KLEPSYDRA^HIDE();} OBJECT=BFITMP59 BFITMP59:TYPE=BEHAVIOUR BFITMP59:CODE={M_ITEMP0^SUB(150);G_ARRREXSPELLS^CHANGEAT(13,M_ITEMP0);} OBJECT=BFITMP60 BFITMP60:TYPE=BEHAVIOUR BFITMP60:CODE={M_BTEMP0^SET(FALSE);} OBJECT=BFITMP61 BFITMP61:TYPE=BEHAVIOUR BFITMP61:CODE={M_ITEMP0^SET(G_ARRREXSPELLS^GET(13));@IF("M_ITEMP0",">","149","BFITMP59","");G_ARRREXSPELLS^ADDAT(14,1);G_ARRREXSPELLS^SUBAT(12,3);G_ARRREXSPELLS^SAVE("SPELLS0.DTA");M_KLEPSYDRA^PLAY("PANEL");M_BTEMP0^SET(TRUE);G_ARRREXSPELLS^CHANGEAT(16,0);}; OBJECT=BFITMP62 BFITMP62:TYPE=BEHAVIOUR BFITMP62:CODE={G_ARRREXSPELLS^CHANGEAT(15,1);M_KLEPSYDRA^SHOW();ADDEXP^RUN(0);} OBJECT=BFITMP63 BFITMP63:TYPE=BEHAVIOUR BFITMP63:CODE={G_ARRREXSPELLS^CHANGEAT(15,0);M_KLEPSYDRA^STOP(FALSE);M_KLEPSYDRA^HIDE();SAVEEXP^RUN();} OBJECT=BFITMP64 BFITMP64:TYPE=BEHAVIOUR BFITMP64:CODE={M_KLEPSYDRA^SHOW();ADDEXP^RUN(0);} OBJECT=BFITMP65 BFITMP65:TYPE=BEHAVIOUR BFITMP65:CODE={BTNMENU^ENABLE();} OBJECT=BFITMP66 BFITMP66:TYPE=BEHAVIOUR BFITMP66:CODE={BTNMENU^DISABLE();} OBJECT=BFITMP67 BFITMP67:TYPE=BEHAVIOUR BFITMP67:CODE={M_WAND^SHOW();} OBJECT=BFITMP68 BFITMP68:TYPE=BEHAVIOUR BFITMP68:CODE={M_WAND^HIDE();}