BROWSE.TXTPHamsterSpeak BenchmarksResults printed to g_debug.txtARCHINYM.LMP'ohrrpgce OHRRPGCE zenzizenzic 20110506 DEFPAL1.BINOHRRPGCE.STT HP.MPAtkAimHitsDefDogCtrSpdType 1Type 2Type 3Type 4Type 5Type 6Type 7Type 8FireIceLitEarthOtherOtherOtherOtherHeadBodyArmsLegsMagWilMP~" "" $ ExperienceItemDONEAUTOSORTTRASHWeapon-REMOVE--EXIT-DiscardCannotLevelYesNoEXITQ7-for next5REMOVE8Pay6\gCancel(+(CANCEL)aNEW GAMECEXIT~cPAUSE Quit Playing?3*,OFXYes=-]No/#CANCEL-}ItemsSpells#Status}A_EquipldOrderW0XTeamB8$zSaveHGQuit<*HMapV61Volume^Buy [a dzSellOipInnILOHHireYExit4vh CANNOT SELLoVA Worthfok@ tPO Trade for%OrRand aVḛ Worth Nothing @#SoldQЙU` Trade forrЈ` ׃ Joins for(Ei' Cannot Affordڍ#J Cannot Hire##U| PurchasedJoined!in stockEquip:No Room In PartyReplace Old Data? Who's Status? Who's Spells? Equip Who?Nothing Has Nothing Cannot StealStolemissfaillearnedFoundGainedWeak to Strong toAbsorbsNo Elemental Effects has no spells Which Hero? Name the HeroFound aFound THE INN COSTSYou have CANNOT RUN! Level up for levels foranddaydayshourhoursminuteminutesLevel MP$D damage from $E$D damage from $E Immune to $EAbsorbs $A damage from $EFireIceLitEarthOtherOtherOtherOther Type 1-killer Type 2-killer Type 3-killer Type 4-killer Type 5-killer Type 6-killer Type 7-killer Type 8-killer Element17 Element18 Element19 Element20 Element21 Element22 Element23 Element24 Element25 Element26 Element27 Element28 Element29 Element30 Element31 Element32 Element33 Element34 Element35 Element36 Element37 Element38 Element39 Element40 Element41 Element42 Element43 Element44 Element45 Element46 Element47 Element48 Element49 Element50 Element51 Element52 Element53 Element54 Element55 Element56 Element57 Element58 Element59 Element60 Element61 Element62 Element63 Element64Elemental Effects:OHRRPGCE.PT8OHRRPGCE.MAPDEFPAL0.BINOHRRPGCE.PT3 OHRRPGCE.E00 @@OHRRPGCE.DT6POHRRPGCE.TMNDEFPAL2.BINATTACK.BIN0DEFPAL8.BINLOOKUP1.BIN(vmainOHRRPGCE.SNG"" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" OHRRPGCE.PT4@OHRRPGCE.DOX.OHRRPGCE.PT0DEFPAL7.BINOHRRPGCE.T00 @@@UICOLORS.BIN~PnfCn(SZds<biFBWRl6t0DEFPAL5.BINOHRRPGCE.SHO(SONGDATA.BIN PALETTES.BIN#""1/+?;4LH<]WGqjT|amwĵƋ֔;G}S  *$&A2;X=QoEmW{fwÜӰ"  >*0^9@}IQYbiuĀЗݮ/4. +9AVV$sl-6@ɭITh|ߐ@F>' Y2E]!y"$%'=uOYZ4Pk--___ku-"F4^FvXk}ס 0Mbp}..GG__x(x0benchmark:doomflamesrecalc=$benchmark:doomflamescreateanddestroy<benchmark:doomflamesupdate;benchmark:doomflamesupdateOHRRPGCE.PT6OHRRPGCE.ITM????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????FIXBITS.BINDEFPAL4.BINOHRRPGCE.TILOHRRPGCE.PT1BOHRRPGCE.EFSdOHRRPGCE.L00 GENERAL.RELD]RELD h# Arrow Keys D-Pad ENTER(O)ESC(A) OHRRPGCEhOHRRPGCE wip 20140216.6408 gfx_sdl+fb/music_sdl FreeBASIC 0.23.0 (08-07-2011) -g -exx Linux 32-bitwip P3  OHRRPGCEhOHRRPGCE wip 20150209.6993 gfx_sdl+fb/music_sdl FreeBASIC 0.23.0 (08-07-2011) -g -exx Linux 32-bitwip w3 Q Q general_data buttonnamescodekeyboardouyaeditor_version long_version branch_name build_daterevisionbranch_revisionprev_editor_versionsOHRRPGCE.PT2DEFPAL6.BINOHRRPGCE.PT5@OHRRPGCE.STFTMENUITEM.BIN@  OHRRPGCE.MXSOHRRPGCE.MAS  !&#+(1- 61":5%?/?'>   $!(#,"%0'(4,,821;75=99><< &,1 !4%$7+(:0.<43=87?;:?==?    $ +%2+90?2?5?7$?:)?<.??3?  "+04%7 ,9 3< ;>?>?>(??1??9?? !(/7 >??''?..?44?88?<<  #)/#5(;,?1?7 ?;????-#   $ $*(1,8/?3?"6?+8?1;?6<?;>"#(  $+/49!#=$(?*-?02?57?9:?==(', "',0#4)70:5<:".*0     !$%(*+//429!4>#7?)<?63/4 #).%3,94!><)?>1??9??647   &+!0%5)!8-%;0(=4->83>;8?=<98: " ' ,16:&>$3?29?:;:<   ! ' - 3 7&9+ ;0<5=9&>;/?=8??? %/8? "?*?1?!5?*8?1:?6<?;>?OHRRPGCE.Z00MRELD 3"@@      !"#$%&'()*+,-./0123456789:;<=>?zonemapwhzonesrowsyOHRRPGCE.FNTD((D(P@x`**$BB$0HH0????>>__$.k*k:""0JMMR P>cAAc>>>>````0 >AAA>B@BaqQIOF!AIMO{18$"! 'GEEE}9<~KIIy0aq6III6OIIi?fff6cA$$$$$Ac6QY"IUM x||xIII6>cAAA"AAc>IIIA >cAQq2AA0pAA?wc@@@@@~  ~~ 0>AAA>?!1a^ 9oF&oMY{2?@@?0`0? ?cwwcxxaqYMGCAAA 0`AA  @@@@@@@@8|DDAwwA>AcA*6*NNKK>>?~?"IUU">H00H~@"<@ @   @ H8 =====pxt* 0x8 d:B#4(.Au*@*;{{;<>><>V)Q)V ZX@XZ 0Pxg|b=-%)m?"IOA"`QOAOQ`U'U*III*!!!A!+ZhZ+AUIUAH00@  %S)Q"TT"Q6sAs67sAs7$ff$OHRRPGCE.PT7wwwwwwwwwxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwxwwwwwwwwwwwwwwxOHRRPGCE.MNPOHRRPGCE.PAL0\EU5`JZ;nBINSIZE.BIN0T "6@~"ZOHRRPGCE.SAY8MENUS.BINOHRRPGCE.TAPPOHRRPGCE.N00O OHRRPGCE.VEH Default BoatDefault AirshipDefault Speeder@OHRRPGCE.DT1????????????????????????????????????????????????????????????????OHRRPGCE.D00OHRRPGCE.GEN@c$cc@<jROJ o' $^3L 7  `1 U -QH Z  OPo ?9 @X fB 6Z{ f/  XO 2vb %sM:|   7 8 I{ q e , BW& A P - . I OHRRPGCE.FORPOHRRPGCE.DT0????????????????????????????????????????????????????????????????OHRRPGCE.HSPHSHamsterSpeak 3Sb 1 3P 3 545 SCRIPTS.TXT]walkherotox 32766 2 0 0 walkherotoy 32765 2 0 0 walknpctox 32764 2 0 0 walknpctoy 32763 2 0 0 setnpcspeed 32762 2 0 4 swapbyname 32761 2 0 0 renamehero 32760 1 0 getherolevel 32759 1 0 autosave 32758 0 stringtoglobals 32757 3 0 0 0 globalstostring 32756 3 0 0 0 showstringat 32755 3 0 0 0 centerstringat 32754 3 0 160 100 hidestring 32753 1 0 stringstyle 32752 2 0 0 stringisvisible 32751 1 0 hsd:savestring 32750 1 0 hsd:restorestring 32749 2 0 0 lastascii 32748 0 inputstring 32747 6 0 40 0 1 -654321 -654321 currentdisplaytile 32746 2 0 0 waitforsound 32745 1 0 getenemyname 32744 2 0 0 getenemystat 32743 2 0 0 setenemystat 32742 3 0 0 0 setenemyname 32741 2 0 0 getenemyappearance 32740 2 0 0 setenemyappearance 32739 3 0 0 0 setvictorymusic 32738 1 0 getvictorymusic 32737 0 getdeathscript 32736 0 getloadscript 32735 0 setloadscript 32734 1 0 setbattlewaitmode 32733 1 1 setcaterpillarmode 32732 1 1 setnohpleveluprestore 32731 1 1 setnompleveluprestore 32730 1 1 setinnnorevivemode 32729 1 1 setfullheroswapmode 32728 1 1 hidebattlereadymeter 32727 1 1 hidebattlehealthmeter 32726 1 1 setdebugkeysdisable 32725 1 1 setdeadheroesgainexperience 32724 1 1 setcappedherostat 32723 4 0 0 0 0 getdamagecap 32722 0 setdamagecap 32721 1 0 getinventorysize 32720 0 setinventorysize 32719 1 0 extendedscancodesenabled 32718 0 getlevelcap 32717 0 setlevelcap 32716 1 0 getmaptileset 32715 0 getambientmusic 32714 0 setambientmusic 32713 1 -1 allowminimap 32712 1 1 allowsaveanywhere 32711 1 1 cancelmapnamedisplay 32710 0 setmapedgemode 32709 2 0 0 getmapedgemode 32708 0 setharmtiledamage 32707 1 0 setharmtileflash 32706 1 0 getfootoffset 32705 0 setfootoffset 32704 1 0 getinsteadofbattlescript 32703 0 setinsteadofbattlescript 32702 1 0 geteachstepscript 32701 0 seteachstepscript 32700 1 0 getonkeypressscript 32699 0 setonkeypressscript 32698 1 0 drawnpcsaboveheroes 32697 1 1 daysofplay 32696 0 hoursofplay 32695 0 minutesofplay 32694 0 secondsofplay 32693 0 setdaysofplay 32692 1 0 sethoursofplay 32691 1 0 setminutesofplay 32690 1 0 setsecondsofplay 32689 1 0 firstmenuitem 32688 1 0 waitformenu 32687 1 0 getmenuboxstyle 32686 1 0 setmenuboxstyle 32685 2 0 0 getmenutextcolor 32684 1 0 setmenutextcolor 32683 2 0 0 getmenumaxrows 32682 1 0 setmenumaxrows 32681 2 0 0 getmenuoffsetx 32680 1 0 setmenuoffsetx 32679 2 0 0 getmenuoffsety 32678 1 0 setmenuoffsety 32677 2 0 0 getmenuanchorx 32676 1 0 setmenuanchorx 32675 2 0 0 getmenuanchory 32674 1 0 setmenuanchory 32673 2 0 0 getmenutextalign 32672 1 0 setmenutextalign 32671 2 0 0 getmenuminchars 32670 1 0 setmenuminchars 32669 2 0 0 getmenumaxchars 32668 1 0 setmenumaxchars 32667 2 0 0 getmenuborder 32666 1 0 setmenuborder 32665 2 0 0 getmenuonclosescript 32664 1 0 setmenuonclosescript 32663 2 0 0 getmenubit 32662 2 0 0 setmenubit 32661 3 0 0 1 setmenuitem 32660 7 0 0 0 0 0 0 0 setmenuitemtype 32659 2 0 0 getmenuitemtype 32658 1 0 setmenuitemsubtype 32657 2 0 0 getmenuitemsubtype 32656 1 0 setmenuitemtag 32655 3 0 0 1 getmenuitemtag 32654 2 0 1 setmenuitemsettag 32653 2 0 0 getmenuitemsettag 32652 1 0 setmenuitemtogtag 32651 2 0 0 getmenuitemtogtag 32650 1 0 getmenuitembit 32649 2 0 0 setmenuitembit 32648 3 0 0 1 setmenuitemextra 32647 3 0 0 0 getmenuitemextra 32646 2 0 0 loadenemysprite 32645 3 0 0 -1 replaceenemysprite 32644 4 0 0 0 -1 firstspritechild 32643 1 0 nextspritesibling 32642 1 0 firstcontainerchild 32641 1 0 nextcontainersibling 32640 1 0 firstrectchild 32639 1 0 nextrectsibling 32638 1 0 freeslicechildren 32637 1 0 realignslice 32636 5 0 0 0 -1 -1 centerslice 32635 1 0 setslicescreenx 32634 2 0 0 setslicescreeny 32633 2 0 0 putslicescreen 32632 3 0 0 0 setpadding 32631 2 0 0 main 32630 0 appenddecimal100 32629 2 0 0 runbenchmark 32628 2 0 0 benchmark:forloop 32627 0 benchmark:whileloop 32626 0 benchmark:continueloop 32625 0 benchmark:ifthen 32624 0 benchmark:ifelse 32623 0 benchmark:enterfor 32622 0 benchmark:doublebreak 32621 0 benchmark:trivialswitch 32620 0 benchmark:biggerswitch 32619 0 benchmark:oneargoverhead 32618 0 benchmark:twoargoverhead 32617 0 benchmark:assignment 32616 0 benchmark:addition 32615 0 benchmark:stringassignment 32614 0 benchmark:scriptmisccommandoverhead 32613 0 benchmark:sfunctionscommandoverhead 32612 0 benchmark:milliseconds 32611 0 benchmark:oneargcommand 32610 0 benchmark:oneargcommandwithvariable 32609 0 benchmark:morecomplexoneargcommand 32608 0 benchmark:slicex 32607 0 benchmark:firstchild 32606 0 benchmark:creatinganddeletingslices 32605 0 emptyscript 32604 0 emptymultiargscript 32603 4 0 0 0 0 returnvalue 32602 0 exitreturnvalue 32601 0 benchmark:callscript 32600 0 benchmark:callmultiargscript 32599 0 benchmark:runscriptbyid 32598 0 benchmark:callandreturnvalue 32597 0 benchmark:callandexitreturningvalue 32596 0 benchmark:readglobal 32595 0 benchmark:writeglobal 32594 0 fibonacci 32593 1 0 benchmark:recursivefibonacci 32592 0 benchmark:createanddeletelotsaslices 32591 0 getforcex 32590 1 0 getforcey 32589 1 0 setforcex 32588 3 0 0 1 setforcey 32587 3 0 0 1 setforce 32586 4 0 0 0 1 getforce 32585 2 0 0 getforceextraslot 32584 1 0 sgn 32583 1 0 pushbubbleaway 32582 2 0 0 benchmark:eatsoapmania 32581 0 benchmark:xormap 32580 0 crappysqrt 32579 1 0 benchmark:crappysqrt 32578 0 doominitialiseflames 32577 0 doomflamesrecalc 32576 0 doomflamesupdate 32575 0 benchmark:doomflamesrecalc 32574 0 benchmark:doomflamescreateanddestroy 32573 0 benchmark:doomflamesupdate 32572 0 SCRIPTS.BIN * walkherotox walkherotoy walknpctox walknpctoy setnpcspeed swapbyname renamehero getherolevelautosavestringtoglobalsglobalstostring showstringatcenterstringat hidestring stringstylestringisvisiblehsd:savestringhsd:restorestring lastascii inputstringcurrentdisplaytile waitforsound getenemyname getenemystat setenemystat setenemynamegetenemyappearancesetenemyappearancesetvictorymusicgetvictorymusicgetdeathscript getloadscript setloadscriptsetbattlewaitmodesetcaterpillarmodesetnohpleveluprestoresetnompleveluprestoresetinnnorevivemodesetfullheroswapmodehidebattlereadymeterhidebattlehealthmetersetdebugkeysdisablesetdeadheroesgainexperiencesetcappedherostat getdamagecap setdamagecapgetinventorysizesetinventorysizeextendedscancodesenabled getlevelcap setlevelcap getmaptilesetgetambientmusicsetambientmusic allowminimapallowsaveanywherecancelmapnamedisplaysetmapedgemodegetmapedgemodesetharmtiledamagesetharmtileflash getfootoffset setfootoffsetgetinsteadofbattlescriptsetinsteadofbattlescriptgeteachstepscriptseteachstepscriptgetonkeypressscriptsetonkeypressscriptdrawnpcsaboveheroes daysofplay hoursofplay minutesofplay secondsofplay setdaysofplaysethoursofplaysetminutesofplaysetsecondsofplay firstmenuitem waitformenugetmenuboxstylesetmenuboxstylegetmenutextcolorsetmenutextcolorgetmenumaxrowssetmenumaxrowsgetmenuoffsetxsetmenuoffsetxgetmenuoffsetysetmenuoffsetygetmenuanchorxsetmenuanchorxgetmenuanchorysetmenuanchorygetmenutextalignsetmenutextaligngetmenumincharssetmenumincharsgetmenumaxcharssetmenumaxchars getmenuborder setmenubordergetmenuonclosescriptsetmenuonclosescript getmenubit setmenubit setmenuitemsetmenuitemtypegetmenuitemtypesetmenuitemsubtypegetmenuitemsubtypesetmenuitemtaggetmenuitemtagsetmenuitemsettaggetmenuitemsettagsetmenuitemtogtaggetmenuitemtogtaggetmenuitembitsetmenuitembitsetmenuitemextragetmenuitemextraloadenemyspritereplaceenemyspritefirstspritechildnextspritesiblingfirstcontainerchildnextcontainersiblingfirstrectchild~nextrectsibling}freeslicechildren| realignslice{ centerslicezsetslicescreenxysetslicescreenyxputslicescreenw setpaddingvmainuappenddecimal100t runbenchmarksbenchmark:forlooprbenchmark:whileloopqbenchmark:continuelooppbenchmark:ifthenobenchmark:ifelsenbenchmark:enterformbenchmark:doublebreaklbenchmark:trivialswitchkbenchmark:biggerswitchjbenchmark:oneargoverheadibenchmark:twoargoverheadhbenchmark:assignmentgbenchmark:additionfbenchmark:stringassignmente#benchmark:scriptmisccommandoverheadd#benchmark:sfunctionscommandoverheadcbenchmark:millisecondsbbenchmark:oneargcommanda#benchmark:oneargcommandwithvariable`"benchmark:morecomplexoneargcommand_benchmark:slicex^benchmark:firstchild]#benchmark:creatinganddeletingslices\ emptyscript[emptymultiargscriptZ returnvalueYexitreturnvalueXbenchmark:callscriptWbenchmark:callmultiargscriptVbenchmark:runscriptbyidUbenchmark:callandreturnvalueT#benchmark:callandexitreturningvalueSbenchmark:readglobalRbenchmark:writeglobalQ fibonacciPbenchmark:recursivefibonacciO$benchmark:createanddeletelotsaslicesN getforcexM getforceyL setforcexK setforceyJsetforceIgetforceHgetforceextraslotGsgnFpushbubbleawayEbenchmark:eatsoapmaniaDbenchmark:xormapC crappysqrtBbenchmark:crappysqrtAdoominitialiseflames@doomflamesrecalc?doomflamesupdate>benchmark:doomflamesrecalc=$benchmark:doomflamescreateanddestroy<benchmark:doomflamesupdateCOMMANDS.BINy*S%3?NZdo+5JZex0DWju 5KZkv  ( 7 E U b q    / @ Q c s   ( : H W h ~    - ; L Z h s }   . > M [ h u '>JZk|*:L^r )8FWet )8CN[jx%5GWjz*@Sev 7HXds1?M[kw$2BWhx+EVi%7Nh|.BYm $3DTfw';IXi{ 2BSat#6IWjz 3GXh{ '5CRbx  1 C U c w !!!-!D!U!f!x!!!!!!!! ""2"B"R"a"p"|"""""""""##4#F#X#v###### $$,$;$J$Z$k$|$$$$$$$ %%/%>%J%V%n%%%%%%%%&&'&7&G&W&g&~&&&&&&&& '('0';'I'Y'h'|''''''((*(9(J(`(v(((((())3)I)Y)j){))))))))*%*:*Q*h*noopwait waitforall waitforhero waitfornpc suspendnpcs suspendplayer resumenpcs resumeplayer waitforkeywalkhero showtextboxchecktagsettagusedoorfightformationgetitem deleteitemleadergetmoney losemoneypaymoneyunequip forceequip setheroframe setnpcframesuspendoverlayplaysongstopsongkeyvalrankincaterpillar showbackdropshowmapdismountvehicleusenpcuseshopcamerafollowsherocamerafollowsnpc pancamera focuscamera waitforcameraheroxheroynpcxnpcysuspendobstructionresumeobstructionsuspendherowallssuspendnpcwallsresumeherowallswalknpcsetherodirectionsetnpcdirectiongetdefaultweaponsetdefaultweaponsuspendcatapillarresumecatapillarwaitfortextbox equipwhere teleporttomapsuspendrandomenemysresumerandomenemys getherostat resumeoverlayaddhero deletehero swapouthero swapinheroroominactivepartylockhero unlockherogameoversetdeathscript fadescreenout fadescreenin showvaluealternpc shownovalue currentmap setherospeed inventory setherostatsuspendboxadvanceresumeboxadvanceadvancetextboxsetheropositionsetnpcpositionswapbypositionfindherocheckequipmentresumenpcwallssetheroz readmapblock writemapblock readpassblockwritepassblock npcdirection herodirection resetpalette tweakpalette readcolor writecolor updatepalette seedrandomgreyscalepalettesetheropicturesetheropalettegetheropicturegetheropalette readglobal writeglobal heroiswalkingsuspendcaterpillarresumecaterpillar npcreference npcatspotgetnpcid npccopycount changenpcid createnpc deletenpc teachspell forgetspell readspell writespell knowsspell canlearnspell herobyslot herobyrankputheroputnpc putcamera heropixelx heropixely npcpixelx npcpixely camerapixelx camerapixely loadtilesetpickherorenameherobyslot readgeneral writegeneral statusscreen showminimap spellsmenu itemsmenu equipmenu ordermenuteammenu initmouse mousepixelx mousepixely mousebuttonputmouse mouseregion npcatpixel saveinslot lastsaveslotsuspendrandomenemiesresumerandomenemiessavemenu saveslotused importglobals exportglobals loadfromslot deletesave runscriptbyid npciswalkingreadgmap writegmapmapwidth mapheightreadnpc setherolevelgiveexperience herolevelled spellslearntgetmusicvolumesetmusicvolumesetformationsong heroframenpcframenpcextra setnpcextra playsound pausesound stopsound systemhour systemminute systemsecond currentsong getheroname setheroname getitemname getmapname getattackname showstring clearstring appendascii appendnumber copystringconcatenatestrings stringlength deletechar replacecharasciifromstringpositionstring setstringbit getstringbit stringcolorstringxstringy systemday systemmonth systemyear stringcompare readenemydatawriteenemydatatrace getsongnameloadmenu keyispressedsoundisplaying searchstring trimstringstringfromtextbox expandstringjoystickbutton joystickaxiswaitforscancode savemapstate loadmapstate resetmapstatedeletemapstate partymoneysetmoneysetstringfromtableappendstringfromtablesettileanimationoffsetgettileanimationoffsetanimationstarttilesuspendmapmusicresumemapmusic checkherowall checknpcwallsettimer stoptimer readtimergetcolorsetcolorrgb extractcolormainmenu loadpalettetotalexperienceexperiencetolevelexperiencetonextlevel setexperience millisecondsopenmenu readmenuint writemenuintreadmenuitemintwritemenuitemint createmenu closemenutopmenubringmenuforward addmenuitemdeletemenuitemgetmenuitemcaptionsetmenuitemcaption getlevelmp setlevelmp bottommenu previousmenunextmenumenuitembyslotpreviousmenuitem nextmenuitemselectedmenuitemselectmenuitem parentmenu getmenuid swapmenuitemsfindmenuitemcaption findmenuid menuisopen menuitemslotoutsidebattlecure changetileset layertilesetgetformationsongaddenemytoformationfindenemyinformationdeleteenemyfromformationformationslotenemyformationslotxformationslotysetformationbackgroundgetformationbackground lastformationrandomformationformationsetfrequencyformationprobabilitycurrenttextbox getherospeedloadherosprite freespriteputslicesetspritevisiblesetspritepalettereplaceherospritesetspriteframeloadwalkaboutspritereplacewalkaboutspriteloadweaponspritereplaceweaponspriteloadsmallenemyspritereplacesmallenemyspriteloadmediumenemyspritereplacemediumenemyspriteloadlargeenemyspritereplacelargeenemyspriteloadattackspritereplaceattackspriteloadborderspritereplaceborderspriteloadportraitspritereplaceportraitsprite clonespritegetspriteframespriteframecountslicexslicey setslicex setslicey slicewidth sliceheight sethorizalign setvertalignsethorizanchor setvertanchornumberfromstring sliceissprite spritelayer freeslice firstchild nextsiblingcreatecontainer setparentcheckparentage slicescreenx slicescreenysliceiscontainer createrect sliceisrect setslicewidthsetsliceheight getrectstyle setrectstyle getrectfgcol setrectfgcol getrectbgcol setrectbgcol getrectborder setrectborder getrecttrans setrecttransslicecollidepoint slicecollide slicecontains clampslicehorizflipspritevertflipspritespriteishorizflippedspriteisvertflipped settoppadding gettoppaddingsetleftpaddinggetleftpaddingsetbottompaddinggetbottompaddingsetrightpaddinggetrightpadding fillparentisfillingparent slicetofront slicetoback lastchild ysortchildren setsortorder sortchildrenprevioussibling getsortorder getsliceextra setsliceextra getspritetypegetspritesetnumbergetspritepalette suspendtimers resumetimerssetslicevisiblegetslicevisible sliceedgex sliceedgey createtext setslicetext gettextcolor settextcolorgetwrapsetwrap sliceistext gettextbg settextbg getoutline setoutline usemenuitem sliceatpixelfindcollidingslice parentslice childcount lookupslice resetgame sliceisvalid iteminslot setiteminslotitemcountinslotsetitemcountinslot placespriteupdateleveluplearningmoveslicebelowmovesliceabove slicechildresetheropictureresetheropalettesetsliceclippinggetsliceclipping creategrid sliceisgridsetgridcolumnsgetgridcolumns setgridrows getgridrowsshowgrid gridisshownloadslicecollection setsliceedgex setsliceedgeygetslicelookupsetslicelookuptracevalueinternalmapcurereadattackname spellslearnedallocatetimerssetnpcignoreswallsgetnpcignoreswallssetnpcobstructsgetnpcobstructs setnpcusable getnpcusable setnpcmoves getnpcmovesreadzone writezone zoneatspotzonenumberoftiles getzonename getzoneextra setzoneextrauseitem useiteminslot mouseclickloadbackdropspritereplacebackdropspritegetspritetranssetspritetranssetherobaseelementalresistherobaseelementalresistasintherototalelementalresistasintsetslicevelocityxsetslicevelocityygetslicevelocityxgetslicevelocityysetslicevelocity stopslice movesliceto movesliceby waitforslice sliceismoving createellipsesliceisellipsesetellipsebordercolsetellipsefillcolgetellipsebordercolgetellipsefillcol _checkpointmenuitembytrueslotmenuitemtrueslot getheroslice getnpcslicegetdoorxgetdoorygetdoordestinationidgetdoordestinationmap doorexistsgetattackcaptiongetrectfuzzinesssetrectfuzziness textboxline getslicetext getinputtextenableinputtextinputtextenabled setherohandx setherohandy getherohandx getherohandygetdefaultherohandxgetdefaultherohandy checkonetime setonetime microsecondsenemyelementalresistasintherozgetherostatcapsetherostatcapgetitemmaximumstacksizenpczsetnpcz dooratspot suspenddoors resumedoorsrunningondesktoprunningonmobilerunningonconsoleinputstringwithvirtualkeyboardgetitemdescriptionsetspritesetnumbergetspritedefaultpal npcisdisabled stringsprintf scripterror getscriptnamegetcallingscriptidcamerafollowsslicegetactivebattlepauseonallmenussetactivebattlepauseonallmenusdissolvespritecanceldissolvespriteisdissolvingwaitfordissolvehidevirtualgamepadshowvirtualgamepadautovirtualgamepad getvertalign gethorizalign getvertanchorgethorizanchorsetselectsliceindexgetselectsliceindex createselect sliceisselectslicechildindex createscroll sliceisscrollsetscrollbarstylegetscrollbarstylesetscrollcheckdepthgetscrollcheckdepth scrolltochild32766.HSZ2, ) + "$27) ; AC32765.HSZ2, ) , "$27) ; AC32764.HSZ2, ) -4"$27) ;4AC32763.HSZ2, ) .4"$27) ;4AC32762.HSZRN 32761.HSZN  ZZ&5?+0    9=DJHY32760.HSZ Z!.&*232759.HSZb@ 32758.HSZ "  '+32757.HSZ ^ #)2^.0:aqv@N^ EL.JRWYLJfh.mWm~0.0sJ0~J00Js32756.HSZ ` $(.7`35<cBP` GN3LTY[NLk535mrwyr}L5` 32755.HSZ~  32754.HSZ  #' 32753.HSZJ 32752.HSZR 32751.HSZV 32750.HSZ"&   32749.HSZZ i 32748.HSZ!AD`+Gc 'C_{#?l(WDs7b':M`s2aIKPYUW*^W6fs kqow|~A q0|B q.|C q |D q|E q!| F  q"$|)G1< 6q:#@|EHMX RqV\|aIit nqr$x|}J q%|K q&|L q2|M q1|N q| O q |%P-8 2q6<|AQIT NqRX|]Rep jqnt|yS q|T q|U q/|V q|W q-|X  q|!Y)4 .q2,8|=ZEN JqrRXZc^|g|r} wq{X|@| qX|:|3 qX|r|4  qX|!|&5.9 3q7=XCNG|L^R|^]h bqflXr{v||7 q X|U|8 q X|(|9 q X | )|$  q (X.92|7~=|B`JU OqS YX_jc|h_n|y ~q X|+|= qX|{|[ qX|}|]  q'X!,%|*:0|5;=F BqJXPYT|]|hq mquX{|<|2 qX|>| q&X|?| qX | ||\ #q-6 2q)@I EqES\ Xqafo kq}ny ~q q! qR q q g q% qA q]  qy ) %q-|8I=DB=B~MSX XW\|B32747.HSZ  4<O%'*.22:AC HM2MUeZc _akqx va| _an 2v_2v_222    &6   $g+20>\`4eDO IMS2X22 joM+uyM ,  c232746.HSZ 8 '%,%160<32745.HSZn   32744.HSZ   $ ).32743.HSZr >32742.HSZn >32741.HSZZ-7 $"("35?AE3KMK32740.HSZV 32739.HSZR 32738.HSZb 32737.HSZf 32736.HSZJ *32735.HSZJ 932734.HSZF 932733.HSZ "$e)  .2"32732.HSZ "$e)  .2"32731.HSZ "$e)  .2"32730.HSZ "$e)  .2"32729.HSZ "$e)  .2"32728.HSZ  "$e)  .2"32727.HSZ @"$e)  .2"32726.HSZ "$e)  .2"32725.HSZ "$e)  .2"32724.HSZ "$)  .2"32723.HSZjM J $!"*?J /8 46 4=CH4ST"=32722.HSZJ ?32721.HSZF ?32720.HSZ% " U X).838832719.HSZ   $5@).  3X9>UD>INaS_X_]32718.HSZ   32717.HSZJ W32716.HSZ #.!',W32715.HSZJ 32714.HSZ^ 32713.HSZ   ($,29@ 7=32712.HSZF 32711.HSZF 32710.HSZF 32709.HSZn 32708.HSZJ 32707.HSZF  32706.HSZF  32705.HSZJ  32704.HSZF  32703.HSZJ  32702.HSZF  32701.HSZJ 32700.HSZF 32699.HSZJ 32698.HSZF 32697.HSZF 32696.HSZJ 332695.HSZJ 432694.HSZJ 532693.HSZJ 632692.HSZ 332691.HSZ *  #(432690.HSZ *  <#(532689.HSZ *  <#(632688.HSZb$32687.HSZn  . 32686.HSZV  32685.HSZR  32684.HSZV  32683.HSZR  32682.HSZV 32681.HSZR 32680.HSZV 32679.HSZR 32678.HSZV 32677.HSZR 32676.HSZV 32675.HSZR 32674.HSZV 32673.HSZR 32672.HSZV 32671.HSZR 32670.HSZV 32669.HSZR 32668.HSZV 32667.HSZR 32666.HSZV 32665.HSZR 32664.HSZV 32663.HSZR 32662.HSZ7 *4 !#$(.2;32661.HSZJH 3" ',-17 < AF,32660.HSZ& )3=%'/19;C232659.HSZR 32658.HSZV 32657.HSZR 32656.HSZV 32655.HSZ ' $  "-2$ 6<"32654.HSZ( % !#.3% 7;!@32653.HSZR 32652.HSZV 32651.HSZR 32650.HSZV 32649.HSZ7 *4 !#$(.2;32648.HSZJH 3" ',-17 < AF,32647.HSZ 4#)+2032646.HSZ 5#',.332645.HSZ~)C & M"$/6& 4:>O"$IN& 5RVQ"$32644.HSZ*C ' N#%05' 9=P#%IP' NTXR#%32643.HSZ2.@ j#+ !'!48+g<D32642.HSZ2.@ k#+ !'!48+g<D32641.HSZ2.@ j#+ !'!48+q<D32640.HSZ2.@ k#+ !'!48+q<D32639.HSZ2.@ j#+ !'!48+s<D~32638.HSZ2.@ k#+ !'!48+s<D~32637.HSZ j *.$&ki 332636.HSZ*0b c $- "(d 6=- ;"Ae ;32635.HSZR| 32634.HSZ# o!^(-1\32633.HSZ# p!_(-1]32632.HSZD \ o %0*.] p 32631.HSZ    32630.HSZfehnw{w'.:AMT`gsz %18FMY`lswww/6GN_fw~wl2sussitsi tri tqitpitoitni tmi  t%li,%3t8ki?*FtKjiR/Yt^iie4ltqhix8tgi;tfiAteiItdiQtciUtbiZtaict `ikt_i#n*t/^i6r=?tD]iKzRtWXi^~etjWiqxt}VitUitTitSitRsssistiPi= stiOi=#(st-iEi4=;@stEiDiLSXst]iBidkpstui>i|=sti=iAsti<iiiiiusss<IMicro-benchmarksfor loop while loop continue loopif thenif else enter for double breaktrivial switch bigger switchone arg overheadtwo arg overhead assignmentadditionstring assignmentscriptmisc command overheadsfunctions command overhead millisecondsone arg commandone arg command with variablemore complex one arg commandslice X first childcreating and deleting slices call scriptcall multiarg scriptrun script by idcall and return valuecall and exit returning value read global write globalGeneral benchmarksrecursive fibonaccicreate and delete lotsa sliceseat soap maniaxor map crappy sqrtDOOM flames recalcDOOM flames create and destroyDOOM flames update1Benchmark score for interpreter (lower's better): Total score:32629.HSZJB d %')- 2790>HCHJ .32628.HSZ ")-1nsz~zztzz ''9 ;'=cDNT`IKRIYK^se^jl'x?B9 ;'Ire^ ^y^ ' yuy9' '2N # ;'%*8I/r3j>E ^CI^# ;'V*[af ^Ckps3  '# ;'|* ^ ^d'u%u0 Benchmark:  times:  best microseconds per run:  best nanoseconds per run: ( average microseconds (excl. outliers): ' average nanoseconds (excl. outliers): 32627.HSZn 32626.HSZ   32625.HSZ   "*& 32624.HSZ d !!!!!!!!!!'),32623.HSZ d !!!!!!!!!!'),32622.HSZ d !!!!!!!!!!)+32621.HSZ d !!!!!!!!!!%) 32620.HSZ d !!!!!!!!!!(**32619.HSZ d !!!!!!!!!! 02225272232618.HSZ d !!!!!!!!!!32617.HSZ d++++++++++32616.HSZ d !!!!!!!!!!&32615.HSZ d !!!!!!!!!!&(32614.HSZ d !(-4;BIPW^&&&2&9&@&G &N &U&\&cfoofoofoofoofoofoofoofoofoofoo32613.HSZ d !!!!!!!!!!<32612.HSZ d !!!!!!!!!!P32611.HSZ d !!!!!!!!!!32610.HSZ d !!!!!!!!!!32609.HSZ  d ))))))))))-32608.HSZ d !!!!!!!!!!32607.HSZ hd ,,,,,,,,,,\032606.HSZ hd ,,,,,,,,,,j032605.HSZ h$. )li232604.HSZ32603.HSZ32602.HSZ:32601.HSZ:32600.HSZ d !!!!!!!!!!\32599.HSZ d !!!!!!!!!![((((32598.HSZ d !!!!!!!!!!%\32597.HSZ d !!!!!!!!!!Z32596.HSZ d !!!!!!!!!!Y32595.HSZ d !!!!!!!!!!r32594.HSZ d !!!!!!!!!!s&c32593.HSZ #(1Q,Q532592.HSZ:Q32591.HSZRL l "'.m ,4=@9;DiHj,i,32590.HSZVI 32589.HSZVI 32588.HSZ^J 32587.HSZ^J 32586.HSZv H32585.HSZf H32584.HSZ #32583.HSZ"7  (- 1532582.HSZ#9S !(*/4!L?DHNMOGIKY^bMMgGk32581.HSZ l!<%F**32580.HSZ  "'O/15b<>@MEGa<>Md<>UEZc<>32579.HSZ 'E!%-3:V 8d?HDFMOTP]H(\cjuhWnDsy@8DxDZDA@D(D D!D& .AY 3:8?PFHDKPWTUbsY gnl?8xHD}T   ? THD ? ?32578.HSZ PC32577.HSZ l@') +/79;=?DUahIKP*;Z\U7mfDfnp32576.HSZF 5C] %*,d13k:<A3HJOQ V[1egiiosAty~CrArrrO:32575.HSZ2 k')+4IUb9;@BGNPGZ\r`hq~mouHz|Zac|<dHzmm  kz32574.HSZ.@32573.HSZJAi 32572.HSZ.?SOURCE.LUMPEDCPLOTSCR.HSD*# PLOTSCR.HSD # This file holds the language definition for OHRRPGCE plotscripting. # modifying this file may have undesired/disasterous effects, # but reading it can be somewhat educational. Especially the constants. # Use same capitalisation as HSpeak does, pad to length 3 plotscr version, begin "3P ", # Version number used for feature checking # and displaying future-version warnings in Game/Custom; # only very rarely necessary to increment (don't when # new commands are added; that's detected separately), # otherwise leave alone to allow forwards compatibility. "3S " # Minimum supported version of hspeak; # Custom/Game don't care about this. end include, scancode.hsi #-------------------------------------------------------------------------- # hard coded functions define function, begin 0,noop,0 # no operation 1,wait,1,1 # wait(cycles) 2,waitforall,0 # wait for script-related walking&panning to stop 3,waitforhero,1,0 # wait for hero to stop moving 4,waitfornpc,1,0 # wait for npc to stop moving 5,suspendnpcs,0 # pause normal NPC movement 6,suspendplayer,0 # stop the player from controlling stuff (except text boxes) 7,resumenpcs,0 # resume npc automation 8,resumeplayer,0 # unlock players controls 9,waitforkey,1,99 # wait for a keypress 10,walkhero,3,0,2,1 # walk hero(who,direction,distance) 11,showtextbox,1,1 # show a text box 12,checktag,1,0 # returns the value of a tag 13,settag,2,0,0 # set tag(#,true/false) 15,usedoor,1,0 # use door(#) 16,fightformation,1,0 # fight formation(#) 17,getitem,2,0,1 # get item(item,quantity) 18,deleteitem,2,0,1 # delete item(item,quantity) 19,leader,0 # returns the current leader 20,getmoney,1,0 # get money(amount) 21,losemoney,1,0 #? lose money(amount) no checking 22,paymoney,1,0 # returns false and subtracts nothing if cannot afford 23,unequip,2,0,1 # (who,where) 24,forceequip,3,0,1,0 # (who,where,item) 25,setheroframe,2,0,0 # (who,frame) frame is 0 or 1 26,setNPCframe,2,0,0 # (who,frame) frame is 0 or 1 27,suspendoverlay,0 # turns off overhead tiles 28,playsong,1,0 # play song(#) 29,stopsong,0 # stop the music 30,keyval,1,0 # check key by scancode - returns value from keyval array 31,rankincaterpillar,1,0 # finds the heros position in the caterpillar 32,showbackdrop,1,0 # showbackdrop (#) 33,showmap,0 # cancels a showbackdrop 34,dismountvehicle,0 # dismount whatever vehicle you may be riding 35,useNPC,1,0 # trigger an NPC remotely 37,useshop,1,0 #? use shop(#) 38,camerafollowshero,1,0 # make camera follow a hero 39,camerafollowsnpc,1,0 # make camera follow an npc 40,pancamera,3,0,1,2 # pan camera(direction,distance,pixelstep) 41,focuscamera,3,0,0,2 # focus camera(x,y,pixelstep) 42,waitforcamera,0 # waits for pan or focus to finish 43,herox,1,0 # returns the hero's x coordinate 44,heroy,1,0 # returns the hero's y coordinate 45,npcx,1,0 # returns the npc's x coordinate 46,npcy,1,0 # returns the npc's y coordinate 47,suspendobstruction,0 # lets heros walk through NPCs and vice versa 48,resumeobstruction,0 # restores normal obstruction behavior 49,suspendherowalls,0 # lets heros walk through walls 50,suspendNPCwalls,0 # lets heros and npcs walk through walls 51,resumeherowalls,0 # restores normal hero wall behavior 52,walknpc,3,0,2,1 # walk npc(who,direction,distance) 53,setherodirection,2,0,2 # set hero direction(who,direction) 54,setnpcdirection,2,0,2 # set npc direction(who,direction) 55,getdefaultweapon,1,0 # (who) 56,setdefaultweapon,2,0,0 # (who,item) 57,suspendcatapillar,0 # misspelled alias for backcompat 58,resumecatapillar,0 # misspelled alias for backcompat 59,waitfortextbox,0 # waits for text box to go away 60,equipwhere,2,0,0 #? (who,item) returns the slot that an item can be equipped in, or false if the hero cant equip it 61,teleporttomap,3,0,0,0 # teleport to map (map,x,y) 62,suspendrandomenemys,0 # misspelled alias for backcompat 63,resumerandomenemys,0 # misspelled alias for backcompat 64,getherostat,3,0,0,0 # returns a hero's stat (who,stat,cur/max) 65,resumeoverlay,0 # turns overhead tiles back on 66,addhero,1,0 # adds a hero to the party 67,deletehero,1,0 # deletes a hero from the party 68,swapouthero,1,0 # move a hero out of the active party 69,swapinhero,1,0 # moves a hero into the active party (if there is room) 70,roominactiveparty,0 # returns the number of empty slots in the active party (0-3) 71,lockhero,1,0 # prevents swapping of a hero 72,unlockhero,1,0 #? reverses lockhero 73,gameover,0 # returns you to the title screen 74,setdeathscript,1,0 # changes what script is run when you die 75,fadescreenout,3,0,0,0 # fade screen out (red,green,blue) 76,fadescreenin,0 # fade back to color after fade screen out 77,showvalue,1,0 # display a number in the bottom left corner 78,alterNPC,3,0,0,0 # replaces one of an NPC's stats 79,shownovalue,0 # hide the number from showvalue 80,currentmap,0 # returns the number of the current map 81,setherospeed,2,0,4 # changes a heros walking speed 82,inventory,1,0 # returns the count of a given item 83,setherostat,4,0,0,1,0 # alters a hero's stats (who,stat,value,cur/max) 84,suspendboxadvance,0 # prevents user from advancing text boxes 85,resumeboxadvance,0 # reverses suspendboxadvance 86,advancetextbox,0 # as if the user had pressed a key 87,setheroposition,3,0,0,0 # arbitrarily set x,y 88,setNPCposition,3,0,0,0 # arbitrarily set x,y 89,swapbyposition,2,0,0 # swap two hero slots 90,findhero,1,0 # locate hero slot by hero name 91,checkequipment,2,0,1 # what is a hero equipped with? (who,where) #92,daysofplay,0 # returns the days, these opcodes remain for compatability #93,hoursofplay,0 # returns the hours #94,minutesofplay,0 # returns the minutes 95,resumeNPCwalls,0 # restores normal NPC wall behavior 96,setheroz,2,0,0 # sets the hero's vertical position 97,readmapblock,3,0,0,0 # get mapblock x,y,layer 98,writemapblock,4,0,0,0,0 # set mapblock x,y,value,layer 99,readpassblock,2,0,0 # get passblock x,y 100,writepassblock,3,0,0,0 # set passblock x,y,value 101,NPCdirection,1,0 # return an NPC's direction 102,herodirection,1,0 # return a hero's direction 103,resetpalette,0 # return the master palette to defaults 104,tweakpalette,5,0,0,0,0,255 # alter the master palette 105,readcolor,2,0,0 # return a color value 106,writecolor,3,0,0,0 # change a color value 107,updatepalette,0 # apply changes made with writecolor 108,seedrandom,1,0 #? reseed the random number generator 109,greyscalepalette,2,0,255# convert the palette to greyscale 110,setheropicture,3,0,0,1 # who,picture,type 111,setheropalette,3,0,0,1 # who,palette,type 112,getheropicture,2,0,1 # who,type 113,getheropalette,2,0,1 # who,type 114,readglobal,1,0 # index 115,writeglobal,2,0,0 # index,value 116,heroiswalking,1,0 # (who) #117,NPCiswalking,1,0 #x obsolete, backwards compatability only 118,suspendcaterpillar,0 # other heros stop following the leader, and can be manipulated separately. 119,resumecaterpillar,0 # turns catapillar party back on 120,NPCreference,2,0,0 # get an NPC reference by ID number 121,NPCatspot,3,0,0,0 # get nth NPC reference on tile (X,Y,n) 122,getNPCID,1,0 # get the ID number of an NPC reference 123,NPCcopycount,1,0 # find out how many copys of an NPC ID are on the map 124,changeNPCID,2,0,0 # given an NPC reference, changes its ID 125,createNPC,4,0,0,0,2 # create an NPC by ID at a location and return its reference 126,destroyNPC,1,0 # destroy the referenced NPC 126,deleteNPC,1,0 # alias 127,teachspell,2,0,0 # (who,spell) tries to teach a hero a spell 128,forgetspell,2,0,0 # (who,spell) forget a learned spell 129,readspell,3,0,0,0 # (who,list,slot) returns the number of the spell in a slot 130,writespell,4,0,0,0,0 # (who,list,slot,spell) forces a hero to learn a spell 131,knowsspell,2,0,0 # (who,spell) returns true if the hero already knows this spell 132,canlearnspell,3,0,0,0 # (who,spell,learntype) returns true if the hero can learn the spell 133,herobyslot,1,0 # returns the hero ID/name of the hero at a particular slot in the party 134,herobyrank,1,0 # returns the hero ID/name of the hero at a particular rank in the caterpillar 135,puthero,3,0,0,0 #? (who,x,y) set hero pixel-position 136,putnpc,3,0,0,0 # (who,x,y) set npc pixel position 137,putcamera,2,0,0 # (x,y) set screen pixel position 138,heropixelx,1,0 #? (who) get hero pixel x 139,heropixely,1,0 #? (who) get hero pixel y 140,npcpixelx,1,0 # (who) get npc pixel x 141,npcpixely,1,0 # (who) get npc pixel y 142,camerapixelx,0 #? get camera pixel x 143,camerapixely,0 #? get camera pixel y 144,loadtileset,2,-1,-1 # load a new tileset for the current map 145,pickhero,0 # lets you manually pick a hero 146,renameherobyslot,1,0 # lets you manually rename a hero 147,readgeneral,1,0 # directly read from the in-memory array of general game data 148,writegeneral,2,0,0 # directly write to the in-memory array of general game data. If you crash your game with this command, don't be too surprised 150,statusscreen,1,0 # display the status screen for a hero 151,showminimap,0 # display the mini-map 152,spellsmenu,1,0 # display the spell menu for a hero 153,itemsmenu,0 # display the items menu 154,equipmenu,1,-1 # display the equip menu for a hero #155,savemenu,0 # obsolete in favor of ID 170 157,ordermenu,0 # display the order menu 158,teammenu,0 # display the team menu 159,initmouse,0 # init mouse, return true if a mouse is installed 160,mousepixelx,0 # returns mouse x coordinate on the screen 161,mousepixely,0 # returns mouse y coordinate on the screen 162,mousebutton,1,0 # returns true if the specified button is pressed 163,putmouse,2,160,100 # places the mouse at a point on the screen 164,mouseregion,4,-1,-1,-1,-1 # define the rectangle in which the mouse can move (xmin, xmax, ymin, ymax) 165,npcatpixel,3,0,0,0 # returns NPC at pixel x,y, third arg is which npc (on -1 returns number of npcs at pixel) 166,saveinslot,1,0 # save game in slot 167,lastsaveslot,0 # returns the last save slot the game was saved in, false if unsaved 168,suspendrandomenemies,0 # keeps random enemies from attacking 169,resumerandomenemies,0 # undoes suspendrandomenemies 170,savemenu,1,-1 # display the save menu 171,saveslotused,1,1 # returns true if a saved game exists in the specified slot 172,importglobals,3,1,-1,-1 # (slot) or (slot, id) or (slot, first, last) reads a range of globals from a save slot 173,exportglobals,3,1,0,16383 # (slot) or (slot, first, last) writes a range of globals to a save slot 174,loadfromslot,1,1 # loads saved game from slot 175,deletesave,1,1 # delete (hide from load/save screen - data not *actaully* deleted) specified slot 176,runscriptbyid,-1 # run a script by its id number and pass any number of arguments 177,NPCiswalking,1,0 # (who) returns true if walking (for real, unlike the old implementation) 178,readgmap,1,0 # read from general map data array 179,writegmap,2,0,0 # write a gmap data item 180,mapwidth,1,-1 # returns map height in tiles (map id) 181,mapheight,1,-1 # returns map width in tiles (map id) 182,readNPC,2,0,0 # reads information about an NPC on the current map (corresponds to alterNPC) 183,setherolevel,3,0,0,1 # change a hero's level 184,giveexperience,2,-1,1 # (who, how much) gives a hero or the active party experience 185,herolevelled,1,0 # number of levels gained last battle/giveexperience command. 186,spellslearnt,2,0,0 # deprecated, use "spells learned" instead. 187,getmusicvolume,0 # music volume on a scale of 0-255 regardless of implementation 188,setmusicvolume,1,128 # set music volume on a scale of 0-255 #189,getformationsong,1,0 # returns the song associated with a given formation + 1 (obsoleted by opcode 307) 190,setformationsong,2,0,0 # sets the song associated with a given formation 191,heroframe,1,0 # get hero walkabout frame 192,npcframe,1,0 # get npc walkabout frame 193,npcextra,2,0,1 # get npc extra data (ref, 0 - 2) 194,setnpcextra,3,0,1,0 # set npc extra data (ref, 0 - 2, value) #195,loadsound,2,0,0 # loads a sound into a slot(slot, sfx) #DO NOT USE #196,freesound,1,1 # frees an sfx slot(slot) #DO NOT USE 197,playsound,3,1,0,0 # plays an sfx (num, loop?, preempt?) 198,pausesound,1,1 # pauses an sfx (num) (stop, but don't rewind) 199,stopsound,1,1 # stops an sfx (num) (stop, and rewind) 200,systemhour,0 201,systemminute,0 202,systemsecond,0 203,currentsong,0 204,getheroname,2,0,0 # (string, hero) - puts the name of hero(hero) in string(string) 205,setheroname,2,0,0 # (string, hero) - sets the name of hero(hero) to string(string) 206,getitemname,2,0,0 # (string, item) - puts the name of item(item) in string(string) 207,getmapname,2,0,0 # (string, map) - puts the name of map(map) in string(string) 208,getattackname,2,0,0 # deprecated. Use "read attack name" instead #209,getglobalstring,2,0,0 # (string, global) - puts the global string (global) in string(string) 210,showstring,1,0 #shows string on the bottom(stringID) 211,clearstring,1,0 #deletes the data from string(stringID) 212,appendascii,2,0,0 #adds ascii to string(stringID,ascii) 213,appendnumber,2,0,0 #adds number to string(stringID,number) 214,copystring,2,0,0 #copies string from one to another(sourceID,destinationID) 215,concatenatestrings,2,0,0 #adds two strings(sourceID,destinationID) 216,stringlength,1,0 #returns the length of string(stringID) 217,deletechar,2,0,1 #deletes character from string(stringID,position) 218,replacechar,3,0,1,0 #replaces character in the specified string(stringID,position,ascii) 219,asciifromstring,2,0,1 #returns the ascii in the string(ascii number)(stringID,position) 220,positionstring,3,0,0,0 #move a string to a position on the screen(stringID,x,y) 221,setstringbit,3,0,0,0 #set a string bit, such as: visibility, style(stringID,bit,value) 222,getstringbit,2,0,0 #return a string bit, such as: visibility, style(stringID,bit) 223,stringcolor,3,0,-1,0 #set a string's foreground and background color(stringID,fColor,bColor) 224,stringx,1,0 #return a string's X position(stringID) 225,stringy,1,0 #return a string's Y position(stringID) 226,systemday,0 #returns system day 227,systemmonth,0 #returns system month 228,systemyear,0 #returns system year 229,stringcompare,2,0,0 #returns whether two strings are the same(stringID1, stringID2) 230,readenemydata,2,0,0 #reads enemy data(enemy,dataposition) 231,writeenemydata,3,0,0,0 #writes enemy data(enemy,dataposition,value) 232,trace,1,0 #writes the provided string to G_DEBUG.txt 233,getsongname,2,0,0 #get song name and store in string (string id, song) 234,loadmenu,1,-1 #show loadmenu (really load/quit?) 235,keyispressed,2,0,0 #check key by scancode, returns a bool 236,soundisplaying,1,0 #checks to see if a sound is playing (soundID) #237,soundslots,0 #returns the number of slots available 238,searchstring,3,0,0,1 #Search string, (ID1,ID2,start) 239,trimstring,3,0,-1,1 #Trims the specified string, (ID, start,length) 240,stringfromtextbox,4,0,0,0,0 #(obsolete) get a line from a textbox (string, box, line, ignored) 241,expandstring,1,0 #expand ${Hxx}, etc in a string(ID) 242,joystickbutton,2,0,0 #returns whether a given button is pressed (button, joystick) 243,joystickaxis,3,0,100,0 #returns the axis position (axis,multiplier,joystick) 244,waitforscancode,1,0 #waits for a specific scancode 245,savemapstate,2,255,255 #save map data to a temp file (savebits, customid) 246,loadmapstate,2,255,255 #load map data from a temp file (loadbits, customid) 247,resetmapstate,1,255 #reload original map data (loadbits) 248,deletemapstate,1,255 #delete temp map state files (deletebits) 249,partymoney,0 #retrieves amount of gold 250,setmoney,1,0 #sets amount of gold 251,setstringfromtable,2,0,0 #string support function 252,appendstringfromtable,2,0,0 #string support function 253,settileanimationoffset,3,0,0,0 #set offset from starting tile (animation pattern 0/1, offset, layer) 254,gettileanimationoffset,2,0,0 #get offset from starting tile (animation pattern 0/1, layer) 255,animationstarttile,2,0,0 #tile number which this tile starts its animation pattern off as (id of a tile, layer) 256,suspendmapmusic,0 #prevent ambient music from playing on entering a map 257,resumemapmusic,0 #reverse above 258,checkherowall,2,0,0 #check passability in a direction relative to a hero 259,checknpcwall,2,0,0 #check passability in a direction relative to an NPC 260,settimer,6,0,-1,-1,-1,-1,-1#start (or modify) a timer(id, count, speed, trigger, string, flags) 261,stoptimer,1,0 #convenience for settimer(id,-1,0) 262,readtimer,1,0 #returns the count of a timer(id) 263,getcolor,1,0 #returns a 32-bit color from the master palette(index) 264,setcolor,2,0,0 #writes a 32-bit color to the master palette(index,val) 265,rgb,3,0,0,0 #mixes red, green and blue into a 32-bit color(r, g, b) 266,extractcolor,2,0,0 #extracts an RGB component from a 32-bit color(color, component) 267,mainmenu,0 #opens the main menu 268,loadpalette,1,0 #load master palette 269,totalexperience,1,0 #experience gained by a hero 270,experiencetolevel,1,0 #total experience to reach a level 271,experiencetonextlevel,1,0 #experience to level up 272,setexperience,3,0,0,1 #set total experience (who,amount,allow spell forgetting) 273,milliseconds,0 #timer in milliseconds 274,openmenu,2,0,0 #openmenu(menuID) 275,readmenuint,2,0,0 #read menu int(menuhandle,intid) 276,writemenuint,3,0,0,0 #write menu int(menuhandle,intid,n) 277,readmenuitemint,2,0,0 #read menu item int(menuitemhandle,intid) 278,writemenuitemint,3,0,0,0 #write menu item int(menuitemhandle,intid,n) 279,createmenu,0 #create a blank menu 280,closemenu,1,0 #close menu(handle) 281,topmenu,0 #return a handle to the topmost menu 282,bringmenuforward,1,0 #bring menu forward(menu handle) 283,addmenuitem,1,0 #add menu item(menuhandle) appends, returns menuitemhandle 284,deletemenuitem,1,0 #delete menu item(menuitemhandle) 285,getmenuitemcaption,2,0,0 #get menu item caption(menuitemhandle, string ID) 286,setmenuitemcaption,2,0,0 #set menu item caption(menuitemhandle, string ID) 287,getlevelmp,3,0,0,0 #get level mp(hero party slot, mp level, currentstat|maximumstat) 288,setlevelmp,3,0,0,0 #set level mp(hero party slot, mp level, new value) 289,bottommenu,0 #return a handle to the bottommost menu 290,previousmenu,1,0 #given a menu handle, return a handle to the menu beneath it 291,nextmenu,1,0 #given a menu handle, return a handle to the menu on top of it 292,menuitembyslot,3,0,0,true #menu item by slot(menu handle, slotnum, visible only) returns menuitemhandle 293,previousmenuitem,2,0,true #given a menuitemhandle return handle to the menu item before it 294,nextmenuitem,2,0,true #given a menuitemhandle return handle to the menu item after it 295,selectedmenuitem,1,-1 #selected menu item(menu handle) returns menuitemhandle 296,selectmenuitem,1,0 #select menu item(menu item handle) moves the cursor 297,parentmenu,1,0 #parent menu(menu item handle) returns menu handle 298,getmenuid,1,0 #menu ID(menu handle) returns the ID of the menu 299,swapmenuitems,2,0,0 #swap menu items(handle1, handle2) 300,findmenuitemcaption,4,0,0,0,1 #find menu item caption(menu handle, string ID, search after handle=false, visible only=true) 301,findmenuid,1,0 #find menu(menu ID) search open menus for menu ID and return menu handle 302,menuisopen,1,0 #menu is open(menu handle) # return true as long as the handle is still valid 303,menuitemslot,1,0 #menu item slot(menu item handle) returns a menu slot number 304,outsidebattlecure,3,0,0,-1 #backcompat only, should prefer "map cure" 305,changetileset,2,-1,-1 #similar to loadtileset. (tileset,layer) 306,layertileset,1,0 #layer tileset(layer) returns tileset number in use 307,getformationsong,1,0 #returns the song associated with a given formation 308,addenemytoformation,5,0,0,85,95,-1 #add enemy to formation(formation, enemy id, x, y, slot = -1) returns slot or -1 309,findenemyinformation,3,0,0,0 #find enemy in formation(formation, enemy id, number) returns slot or -1 310,deleteenemyfromformation,2,0,0 #delete enemy from formation(formation, slot) 311,formationslotenemy,2,0,0 #formation slot enemy (formation, slot) returns enemy in slot 312,formationslotx,2,0,0 #formation slot x(formation, slot) returns x of enemy in slot 313,formationsloty,2,0,0 #formation slot y(formation, slot) returns y of enemy in slot 314,setformationbackground,4,0,0,1,0 #set formation background(formation, background, animation frames, animation ticks) 315,getformationbackground,1,0 #get formation background(formation) returns background number 316,lastformation,0 #last formation fought 317,randomformation,1,0 #pick a formation from a formation set 318,formationsetfrequency,1,0 #returns (as percentage) set frequency 319,formationprobability,2,0,0 #returns (as percentage) formation being picked from formation set probability 320,currenttextbox,0 #currently displayed textbox or -1 321,getherospeed,1,0 #hero walk speed (hero) 322,loadherosprite,2,0,-1 #load hero sprite (number, palette) 323,freesprite,1,0 #frees a sprite (id) 324,putslice,3,0,0,0 #change the position of a slice 325,setspritevisible,2,0,0 #alias for set slice visible 326,setspritepalette,2,0,0 #set sprite palette(id, pal) 327,replaceherosprite,3,0,0,-1 #replaces the sprite with a hero sprite (id, num, pal) 328,setspriteframe,2,0,0 #what it says on the tin(id, num) 329,loadwalkaboutsprite,2,0,-1 #load walkabout sprite (number, palette) 330,replacewalkaboutsprite,3,0,0,-1 #replaces the sprite with a walkabout sprite (id, num, pal) 331,loadweaponsprite,2,0,-1 #load weapon sprite (number, palette) 332,replaceweaponsprite,3,0,0,-1 #replaces the sprite with a weapon sprite (id, num, pal) 333,loadsmallenemysprite,2,0,-1 #load enemy sprite (number, palette) 334,replacesmallenemysprite,3,0,0,-1 #replaces the sprite with an enemy sprite (id, num, pal) 335,loadmediumenemysprite,2,0,-1 #load enemy sprite (number, palette) 336,replacemediumenemysprite,3,0,0,-1 #replaces the sprite with an enemy sprite (id, num, pal) 337,loadlargeenemysprite,2,0,-1 #load enemy sprite (number, palette) 338,replacelargeenemysprite,3,0,0,-1 #replaces the sprite with an enemy sprite (id, num, pal) 339,loadattacksprite,2,0,-1 #load attack sprite (number, palette) 340,replaceattacksprite,3,0,0,-1 #replaces the sprite with an attack sprite (id, num, pal) 341,loadbordersprite,2,0,-1 #load a textbox border (number, palette) 342,replacebordersprite,3,0,0,-1 #replaces the sprite with a textbox border (id, num, pal) 343,loadportraitsprite,2,0,-1 #load a character portrait (number, palette) 344,replaceportraitsprite,3,0,0,-1 #replaces the sprite with a character portrait (id, num, pal) 345,clonesprite,2,0, 0 #returns a copy of the given sprite(ID, pal) 346,getspriteframe,1,0 #returns the current frame number of a sprite 347,spriteframecount,1,0 #returns the number of frames a sprite has 348,slicex,1,0 #returns the x position of a slice relative to its parent 349,slicey,1,0 #returns the y position of a slice relative to its parent 350,setslicex,2,0,0 #set the x position of a slice relative to its parent 351,setslicey,2,0,0 #set the y position of a slice relative to its parent 352,slicewidth,1,0 #returns the width of a slice 353,sliceheight,1,0 #returns the height of a slice 354,sethorizalign,2,0,0 #changes the horizontal alignment of a slice to its parent 355,setvertalign,2,0,0 #changes the vertical alignment of a slice to its parent 356,sethorizanchor,2,0,0 #changes the horizontal anchor of a slice 357,setvertanchor,2,0,0 #changes the vertical anchor of a slice 358,numberfromstring,2,0,0 #look in a string for a number and return it 359,sliceissprite,1,0 #return true if the provided slice handle points to a sprite 360,spritelayer,0 #return a handle to the plotsprite layer 361,freeslice,1,0 #free a slice and all its children 362,firstchild,1,0 #return the first child of a slice or 0 if none 363,nextsibling,1,0 #return the next sibling of a slice or 0 if none 364,createcontainer,2,0,0 #create a container slice (width, height) 365,setparent,2,0,0 #move a slice to a new parent 366,checkparentage,2,0,0 #check to see if a slice is a child (or grandchild) of another 367,slicescreenx,1,0 #return a slice's x position relative to the screen 368,slicescreeny,1,0 #return a slice's y position relative to the screen 369,sliceiscontainer,1,0 #return true if a slice is a container 370,createrect,3,0,0,0 #create a rect slice (width, height, style) 371,sliceisrect,1,0 #return true if a slice is a rect 372,setslicewidth,2,0,0 #change the width of a resizeable slice 373,setsliceheight,2,0,0 #change the height of a resizeable slice 374,getrectstyle,1,0 #return the style of a rect slice 375,setrectstyle,2,0,0 #change the style of a rect slice 376,getrectfgcol,1,0 #return the fgcol of a rect slice 377,setrectfgcol,2,0,0 #change the fgcol of a rect slice 378,getrectbgcol,1,0 #return the bgcol of a rect slice 379,setrectbgcol,2,0,0 #change the bgcol of a rect slice 380,getrectborder,1,0 #return the border of a rect slice 381,setrectborder,2,0,0 #change the border of a rect slice 382,getrecttrans,1,0 #return the translucency of a rect slice 383,setrecttrans,2,0,0 #change the translucency of a rect slice 384,slicecollidepoint,3,0,0,0 #check a point for collision with a slice 385,slicecollide,2,0,0 #check a pair of slices for collision 386,slicecontains,2,0,0 #check if slice2 is completely inside slice1 387,clampslice,2,0,0 #move slice1 so that it is inside slice2 388,horizflipsprite,2,0,1 #flip a sprite horizontally 389,vertflipsprite,2,0,1 #flip a sprite vertically 390,spriteishorizflipped,1,0 #return true if a sprite is flipped horiz. 391,spriteisvertflipped,1,0 #return true if a sprite is flipped vert. 392,settoppadding,2,0,0 #change a slice's top-padding 393,gettoppadding,1,0 #return a slice's top-padding 394,setleftpadding,2,0,0 #change a slice's left-padding 395,getleftpadding,1,0 #return a slice's left-padding 396,setbottompadding,2,0,0 #change a slice's bottom-padding 397,getbottompadding,1,0 #return a slice's bottom-padding 398,setrightpadding,2,0,0 #change a slice's right-padding 399,getrightpadding,1,0 #return a slice's right-padding 400,fillparent,2,0,1 #make a slice fill its parent 401,isfillingparent,1,0 #returns true if a slice is set to fill 402,slicetofront,1,0 #move a slice in front of its siblings 403,slicetoback,1,0 #move a slice behind its siblings 404,lastchild,1,0 #find the last child of a parent slice 405,ysortchildren,1,0 #sort the children of a slice by Y value 406,setsortorder,2,0,0 #set sort value on a slice for sortchildren 407,sortchildren,2,0,1 #sort siblings by their setsortorder value 408,previoussibling,1,0 #return the previous sibling of a slice or 0 if none 409,getsortorder,1,0 #get sort value for sortchildren for a slice 410,getsliceextra,2,0,0 #get slice extra (0-2) data (slice, extra) 411,setsliceextra,3,0,0,0 #set slice extra (0-2) data (slice, extra, value) 412,getspritetype,1,0 #get type of a sprite slice or -1 if not 413,getspritesetnumber,1,0 #get record number of a sprite slice 414,getspritepalette,1,0 #get palette number of a sprite slice 415,suspendtimers,0 #stop all timers without resetting them 416,resumetimers,0 #makes timers paused with "suspend timers" continue 417,setslicevisible,2,0,0 #change sprite visibilty(id, vis) 418,getslicevisible,1,0 #return a slice's visibility bit 419,sliceedgex,2,0,0 #return the x pos of a given edge of a slice 420,sliceedgey,2,0,0 #return the y pos of a given edge of a slice 421,createtext,0 #create a new text slice 422,setslicetext,2,0,0 #copy a string into a text slice 423,gettextcolor,1,0 #return a text strings color 424,settextcolor,2,0,0 #change a text strings color 425,getwrap,1,0 #return true if a text slice wraps 426,setwrap,2,0,1 #change the wrapping state of a text slice 427,sliceistext,1,0 #return true if the given slice handle is a text slice 428,gettextbg,1,0 #return text background color 429,settextbg,2,0,0 #change text background color 430,getoutline,1,0 #return true if text uses outline 431,setoutline,2,0,1 #change text's outline mode 432,usemenuitem,1,0 #given a menu item handle, activate it 433,sliceatpixel,5,0,0,0,0,1 #find descendant or child slices containing a screen position 434,findcollidingslice,4,0,0,0,1 #find descendant or child slices colliding with a slice 435,parentslice,1,0 #return a slice's parent 436,childcount,1,0 #return number of children of a slice 437,lookupslice,2,0,0 #find a slice using a lookup code constant 438,resetgame,0 #reset the game 439,sliceisvalid,1,0 #checks for a real, non-deleted slice handle 440,iteminslot,1,0 #read inventory by position 441,setiteminslot,2,0,0 #write inventory by position 442,itemcountinslot,1,0 #read item count by position 443,setitemcountinslot,2,0,0 #write item count by position 444,putsprite,3,0,0,0 #change a sprite's position (handle, x, y) 444,placesprite,3,0,0,0 #change a sprite's position (handle, x, y) 445,updateleveluplearning,2,0,1 #refresh spells learned from level ups 446,moveslicebelow,2,0,0 #make a slice the previous sibling of another slice 447,movesliceabove,2,0,0 #make a slice the next sibling of another slice 448,slicechild,2,0,0 #the nth child of a slice, counting from 0 449,resetheropicture,2,0,1 #reset a hero's picture to their default 450,resetheropalette,2,0,1 #reset a hero's palette to their default 451,setsliceclipping,2,0,1 #set whether a slice will crop its children 452,getsliceclipping,1,0 #return whether a slice will crop its children 453,creategrid,4,0,0,1,1 #create a grid slice of a specified size 454,sliceisgrid,1,0 #true if the slice is a grid 455,setgridcolumns,2,0,1 #change grid horizontal count 456,getgridcolumns,1,0 #return the number of horizontal cells 457,setgridrows,2,0,1 #change grid vertical count 458,getgridrows,1,0 #return the number of vertical cells 459,showgrid,2,0,1 #make a grid visible 460,gridisshown,1,0 #return true if grid is visible 461,loadslicecollection,1,0 #load a collection of slices 462,setsliceedgex,3,0,0,0 #set a slice's position by an arbitrary edge 463,setsliceedgey,3,0,0,0 #set a slice's position by an arbitrary edge 464,getslicelookup,1,0 #get a slice's lookup code 465,setslicelookup,2,0,0 #change a slice's lookup code 466,tracevalueinternal,-1 #tracevalue is translated to this 467,mapcure,3,0,0,-1 #uses a cure attack on a hero 468,readattackname,2,0,0 #puts an attack name in a string (string id, attack id+1 / attack .hsi constant) 469,spellslearned,2,0,0 #number spells and spell ids hero learnt at last battle/giveexperience command. 470,allocatetimers,1,16 #change the number of timers #471,unusedtimer,0 #find a timer id that's not in use, or allocate more 472,setnpcignoreswalls,2,0,1 #set whether an npc can pass walls (npcref, bool) 473,getnpcignoreswalls,1,0 #get whether an npc can pass walls (npcref) 474,setnpcobstructs,2,0,1 #set whether an npc obstructs (npcref, bool) 475,getnpcobstructs,1,0 #get whether an npc obstructs (npcref) 476,setnpcusable,2,0,1 #set whether an npc can be used (npcref, bool) 477,getnpcusable,1,0 #get whether an npc can be used (npcref) 478,setnpcmoves,2,0,1 #set whether an npc's movetype used (npcref, bool) 479,getnpcmoves,1,0 #get whether an npc's movetype used (npcref) 480,readzone,3,0,0,0 #test whether a tile is in a zone (zone id, x, y) 481,writezone,4,0,0,0,1 #set whether a tile is in a zone (zone id, x, y, true/false) 482,zoneatspot,3,0,0,0 #get the nth zone set at a tile (x, y, n) 483,zonenumberoftiles,1,0 #get the number of tiles in this zone (zone id) #484,drawwithzone,3,0,0,0 #write to map layer (zone id, layer num, tile) (unimplemented) #485,zonenexttilex,3,0,-1,-1 #x coordinate of next tile in zone (zone id, current x, current y) (unimplemented) #486,zonenexttiley,3,0,-1,-1 #y coordinate of next tile in zone (zone id, current x, current y) (unimplemented) # 487,getzonename,2,0,0 #read zone name (string, zone id) 488,getzoneextra,2,0,0 #get zone extra data (zone id, extra field) 489,setzoneextra,3,0,0,0 #set zone extra data (zone id, extra field, value) 490,useitem,1,0 # use an item as if you had used it from the item menu 491,useiteminslot,1,0 # use item in a given inventory slot 492,mouseclick,1,0 # returns true if the specified button is pressed (button) 493,loadbackdropsprite,1,0 # load backdrop sprite (number) 494,replacebackdropsprite,2,0,-1 # replaces the sprite with a backdrop sprite (handle, number) 495,getspritetrans,1,0 # whether the sprite is drawn transparently (handle) 496,setspritetrans,2,0,1 # set whether the sprite is drawn transparently (handle, bool) 497,setherobaseelementalresist,3,-1,0,100 # set percentage damage taken from an element (hero, element, percent) 498,herobaseelementalresistasint,2,-1,0 # percentage damage taken from an element rounded to an int (hero, element) 499,herototalelementalresistasint,2,-1,0 # percentage damage taken from an element rounded to an int (hero, element) 500,setslicevelocityx,3,0,0,-1 #set slice velocity x(sl, pixels per tick, ticks) # negative left, positive right 501,setslicevelocityy,3,0,0,-1 #set slice velocity y(sl, pixels per tick, ticks) # negative up, positive down 502,getslicevelocityx,1,0 #return x velocity in pixels per tick 503,getslicevelocityy,1,0 #return y velocity in pixels per tick 504,setslicevelocity,4,0,0,0,-1 #set both x and y velocity simultaneously (sl, x vel, y vel, ticks) 505,stopslice,1,0 #cancel all of a slice's movement 506,movesliceto,4,0,0,0,0 #move a slice until it has the new desired x and y (sl, x, y, ticks) 507,movesliceby,4,0,0,0,0 #move a slice until it has the new desired relative x and y (sl, rel x, rel y, ticks) 508,waitforslice,1,0 #wait for a slice to stop moving 509,sliceismoving,1,0 #return true if the slice has velocity or target 510,createellipse,4,0,0,-1,-1 #width, height, border color, fill color 511,sliceisellipse,1,0 #return true if the slice is an ellipse 512,setellipsebordercol,2,0,0 #change border color 513,setellipsefillcol,2,0,0 #change fill color 514,getellipsebordercol,1,0 #change border color 515,getellipsefillcol,1,0 #change fill color 516,_checkpoint,0 #dumps checkpoint screenshot for automated testing. Only works when run with the -autotest command line argument 517,menuitembytrueslot,2,0,0 #return a menu item handle, based on the order in Custom (menu handle, slot no.) 518,menuitemtrueslot,1,0 #slot no. of a menu item as it appears in Custom (menu item handle) 519,getheroslice,1,0 #get the slice representing a hero walkabout 520,getNPCslice,1,0 #get the slice representing an NPC walkabout 521,getdoorx,1,0 #x coordinate of given door 522,getdoory,1,0 #y coordinate of given door 523,getdoordestinationid,1,0 #door id of given door's exit 524,getdoordestinationmap,1,0 #map number of given door's exit 525,doorexists,1,0 #returns true if the given door exists 526,getattackcaption,2,0,0 #puts an attack's caption in a string (string id, attack id+1 / attack .hsi constant) 527,getrectfuzziness,1,0 #get rect fuzz percentange 528,setrectfuzziness,2,0,50 #set rect fuzz percentange 529,textboxline,5,0,0,-1,1,0 #get a line of text from a textbox (string, box, line, expand, strip) 530,getslicetext,2,0,0 #get the contents of a text slice (string, slice) 531,getinputtext,1,0 #get user textual input since last tick (string) 532,enableinputtext,1,1 #whether to enable getinputtext (enable?) 533,inputtextenabled,0 #(undocumented) whether getinputtext is enabled 534,setherohandx,3,0,0,0 #Change hand position for battle weapons (who, frame, new x) 535,setherohandy,3,0,0,0 #Change hand position for battle weapons (who, frame, new y) 536,getherohandx,2,0,0 #Read hero hand position for battle weapons (who, frame) 537,getherohandy,2,0,0 #Read hero hand position for battle weapons (who, frame) 538,getdefaultherohandx,2,0,0 #Read default hero hand position for battle weapons (who, frame) 539,getdefaultherohandy,2,0,0 #Read default hero hand position for battle weapons (who, frame) 540,checkonetime,1,0 #returns the value of a onetime npc tag 541,setonetime,2,0,0 #set onetime npc tag(#,true/false) 542,microseconds,0 #microsecond timer 543,enemyelementalresistasint,2,0,0 #get percentage elemental damage for an enemy (id, element) 544,heroz,1,0 #a hero's Z coordinate (party slot) 545,getherostatcap,1,0 #get the cap for a stat; 0 if none (stat) 546,setherostatcap,2,0,0 #set the cap for a stat (stat, value or 0) 547,getitemmaximumstacksize,1,0 #get the maximum size of a stack of a certain item (item id) 548,npcz,1,0 #npc's Z value, in pixels (npcref) 549,setnpcz,2,0,0 #set npc's Z value, in pixels (npcref, z) 550,dooratspot,2,0,0 #get door ID on tile, or -1 (x, y) 551,suspenddoors,1,0 #doors don't trigger when stepped on 552,resumedoors,1,0 #undoes suspend doors 553,runningondesktop,0 #returns true if the device is Windows/Mac/Linux 554,runningonmobile,0 #returns true if the device is Android 555,runningonconsole,0 #returns true if the device is OUYA 556,inputstringwithvirtualkeyboard,3,0,-1,-1 # (string id, max length, only player) 557,getitemdescription,2,0,0 #(string, item) - puts the description of item(item) in string(string) 558,setspritesetnumber,2,0,0 #(sprite slice handle, set num) 559,getspritedefaultpal,1,0 #(sprite slice handle) - returns default palette number 560,npcisdisabled,1,0 #(npc reference) returns true if the npc exists, but is disabled by tags or one-time use #561,unused #562,unused #563,unused #564,unused 565,stringsprintf,-1 #(dest string id, format string id, args...) Format a string, like sprintf 566,scripterror,1,-1 #(string id) Show a script error 567,getscriptname,2,0,0 #(string id, script id) Get name of a script 568,getcallingscriptid,1,1 #(depth) Get ID number of a parent or ancestor script 569,camerafollowsslice,1,0 #(slice) Center camera on slice 570,getactivebattlepauseonallmenus,0 # returns true or false based on the global bitset 571,setactivebattlepauseonallmenus,1,0, #(true/false) change the global bitset (not saved) 572,dissolvesprite,6,0,0,-1,0,0,1 #(slice handle, dissolve:type, ticks, start tick, backwards, auto animate) 573,canceldissolve,1,0 #(slice handle) stop/reset dissolve 574,spriteisdissolving,1,0 #(slice handle) return true if sprite is in the middle of a dissolve state 575,waitfordissolve,1,0 #(slice handle) wait for an "dissolve sprite" command to finish (only if auto animate) 576,hidevirtualgamepad,0 # force-hide virtual gamepad on platforms that support it 577,showvirtualgamepad,0 # force-show virtual gamepad on platforms that support it 578,autovirtualgamepad,0 # automatic show/hide virtual gamepad on platforms that support it (default) 579,getvertalign,1,0 # return a slice's alignment. Compare with edge: constants 580,gethorizalign,1,0 # return a slice's alignment. Compare with edge: constants 581,getvertanchor,1,0 # return a slice's anchor. Compare with edge: constants 582,gethorizanchor,1,0 # return a slice's anchor. Compare with edge: constants 583,setselectsliceindex,2,0,0 # change the currently selected child of a select slice by index 584,getselectsliceindex,1,0 # return the index of the currently selected child of a select slice 585,createselect,2,0,0 # create a select slice of a specified size 586,sliceisselect,1,0 # true if the slice is a select 587,slicechildindex,1,0 # Return the current integer index of this slice relative to its siblings 588,createscroll,2,0,0 # create a scroll slice of a specified size 589,sliceisscroll,1,0 # true if the slice is a scroll 590,setscrollbarstyle,2,0,0 # change scroll slice scrollbar style 591,getscrollbarstyle,1,0 # return current scroll slice scrollbar style 592,setscrollcheckdepth,2,0,0 # change a scroll's child-check-depth 593,getscrollcheckdepth,1,0 # return a scroll's current child-check-depth 594,scrolltochild,2,0,0 # cause all the children of a Scroll Slice to move until a specific child is in view # Don't forget to update maxScriptCmdID in const.bi when adding new commands end #-------------------------------------------------------------------------- # soft coded functions script,walkherotoX,hsd:who,hsd:n,begin if (hsd:n<>heroX(hsd:who)) then(walk hero(hsd:who,east,hsd:n--heroX(hsd:who))) end script,walkherotoY,hsd:who,hsd:n,begin if (hsd:n<>heroY(hsd:who)) then(walk hero(hsd:who,south,hsd:n--heroY(hsd:who))) end script,walkNPCtoX,hsd:who,hsd:n,begin if (hsd:n<>NPCX(hsd:who)) then(walk NPC(hsd:who,east,hsd:n--NPCX(hsd:who))) end script,walkNPCtoY,hsd:who,hsd:n,begin if (hsd:n<>NPCY(hsd:who)) then(walk NPC(hsd:who,south,hsd:n--NPCY(hsd:who))) end script,setNPCspeed,hsd:who,hsd:newspeed=4,begin alterNPC(hsd:who,NPCstat:movespeed,hsd:newspeed) end script,swapbyname,hsd:hero1,hsd:hero2,begin hsd:hero1:=findhero(hsd:hero1) hsd:hero2:=findhero(hsd:hero2) if (hsd:hero1==-1,or,hsd:hero2==-1) then (return(false)) else (return(true),swapbyposition(hsd:hero1,hsd:hero2)) end script,renamehero,hsd:who=0,begin variable(hsd:slot) hsd:slot:=findhero(hsd:who) if(hsd:slot>=0) then(renameherobyslot(hsd:slot),return(true)) else(return(false)) end # this exploits an undocumented feature of getherostat. Don't use the # same method to set the hero level (use setherolevel instead) script,getherolevel,hsd:who=0,begin return(getherostat(hsd:who,12,currentstat)) end script,autosave,begin if (lastsaveslot==0) then(return(savemenu)) else(saveinslot(lastsaveslot),return(lastsaveslot)) end script,stringtoglobals,hsd:stringID,hsd:start,hsd:length,begin variable(hsd:temp,hsd:padding) if (hsd:stringID>=0,and,hsd:stringID<=31) then( if (hsd:length>=1) then( if (hsd:length+hsd:start>>4097) then(hsd:length:=4097--hsd:start) hsd:padding:=hsd:length--stringlength(hsd:stringID) hsd:length:=stringlength(hsd:stringID) for (hsd:temp,1,hsd:length) do( writeglobal(hsd:start,asciifromstring(hsd:stringID,hsd:temp)) hsd:start+=1 ) for (hsd:temp,hsd:start,hsd:start+hsd:padding--1) do( writeglobal(hsd:temp,256) ) ) ) end script,globalstostring,hsd:stringID,hsd:start,hsd:length,begin variable(hsd:temp) variable(hsd:temp2) if (hsd:stringID>=0,and,hsd:stringID<=31) then( clearstring(hsd:stringID) if (hsd:length>=1) then( if (hsd:length+hsd:start>>4097) then(hsd:length:=4097--hsd:start) for (hsd:temp,1,hsd:length) do( hsd:temp2:=readglobal(hsd:start+(hsd:temp--1)) if (hsd:temp2>=0,and,hsd:temp2<=255) then(appendascii(hsd:stringID,hsd:temp2)) ) ) ) end script,showstringat,hsd:stringID,hsd:x=0,hsd:y=0,begin setstringbit(hsd:stringID,0,1) positionstring(hsd:stringID,hsd:x,hsd:y) end script,centerstringat,hsd:stringID,hsd:x=160,hsd:y=100,begin setstringbit(hsd:stringID,0,1) positionstring(hsd:stringID,hsd:x--(stringlength(hsd:stringID)*4),hsd:y) end script,hidestring,hsd:stringID,begin setstringbit(hsd:stringID,0,0) end script,stringstyle,hsd:stringID,hsd:style=0,begin setstringbit(hsd:stringID,1,hsd:style) end script,stringisvisible,hsd:stringID,begin return(getstringbit(hsd:stringID,0)) end # Internal functions, do not use # To get around the 32 string limitation... script, hsd:save string, hsd:id, begin variable (hsd:sl) hsd:sl := create text set slice visible(hsd:sl, false) set slice text(hsd:sl, hsd:id) clear string(hsd:id) return (hsd:sl) end script, hsd:restore string, hsd:id, hsd:saved, begin get slice text(hsd:id, hsd:saved) free slice(hsd:saved) end # Improvement (but which requires enableinputtext) # script, last ascii, begin # variable (hsd:saved) # hsd:saved := hsd:savestring(0) # get input text(0) # if (string length(0)) then ( # return (ascii from string(0, 1)) # ) # hsd:restore string(0, hsd:saved) # end script, last ascii, begin variable(hsd:code, hsd:shift) hsd:shift := keyispressed(42) || keyispressed(54) if(keyval(30) >> 1) then (hsd:code := 65) #A... if(keyval(48) >> 1) then (hsd:code := 66) if(keyval(46) >> 1) then (hsd:code := 67) if(keyval(32) >> 1) then (hsd:code := 68) if(keyval(18) >> 1) then (hsd:code := 69) if(keyval(33) >> 1) then (hsd:code := 70) if(keyval(34) >> 1) then (hsd:code := 71) if(keyval(35) >> 1) then (hsd:code := 72) if(keyval(23) >> 1) then (hsd:code := 73) if(keyval(36) >> 1) then (hsd:code := 74) if(keyval(37) >> 1) then (hsd:code := 75) if(keyval(38) >> 1) then (hsd:code := 76) if(keyval(50) >> 1) then (hsd:code := 77) if(keyval(49) >> 1) then (hsd:code := 78) if(keyval(24) >> 1) then (hsd:code := 79) if(keyval(25) >> 1) then (hsd:code := 80) if(keyval(16) >> 1) then (hsd:code := 81) if(keyval(19) >> 1) then (hsd:code := 82) if(keyval(31) >> 1) then (hsd:code := 83) if(keyval(20) >> 1) then (hsd:code := 84) if(keyval(22) >> 1) then (hsd:code := 85) if(keyval(47) >> 1) then (hsd:code := 86) if(keyval(17) >> 1) then (hsd:code := 87) if(keyval(45) >> 1) then (hsd:code := 88) if(keyval(21) >> 1) then (hsd:code := 89) if(keyval(44) >> 1) then (hsd:code := 90)#...Z if(keyval(2) >> 1) then (if(hsd:shift) then (hsd:code :=33) else (hsd:code :=49)) # 1... if(keyval(3) >> 1) then (if(hsd:shift) then (hsd:code :=64) else (hsd:code :=50)) if(keyval(4) >> 1) then (if(hsd:shift) then (hsd:code :=35) else (hsd:code :=51)) if(keyval(5) >> 1) then (if(hsd:shift) then (hsd:code :=36) else (hsd:code :=52)) if(keyval(6) >> 1) then (if(hsd:shift) then (hsd:code :=37) else (hsd:code :=53)) if(keyval(7) >> 1) then (if(hsd:shift) then (hsd:code :=94) else (hsd:code :=54)) if(keyval(8) >> 1) then (if(hsd:shift) then (hsd:code :=38) else (hsd:code :=55)) if(keyval(9) >> 1) then (if(hsd:shift) then (hsd:code :=42) else (hsd:code :=56)) if(keyval(10) >> 1) then (if(hsd:shift) then (hsd:code :=40) else (hsd:code :=57)) if(keyval(11) >> 1) then (if(hsd:shift) then (hsd:code :=41) else (hsd:code :=48)) # ...0 if(keyval(41) >> 1) then (if(hsd:shift) then (hsd:code :=126) else (hsd:code :=96)) # ` ~ if(keyval(12) >> 1) then (if(hsd:shift) then (hsd:code :=95) else (hsd:code :=45)) # - _ if(keyval(13) >> 1) then (if(hsd:shift) then (hsd:code := 43) else (hsd:code := 61)) # = + if(keyval(26) >> 1) then (if(hsd:shift) then (hsd:code := 123) else (hsd:code := 91)) # [ { if(keyval(27) >> 1) then (if(hsd:shift) then (hsd:code := 125) else (hsd:code := 93)) # ] } if(keyval(39) >> 1) then (if(hsd:shift) then (hsd:code := 58) else (hsd:code := 59)) # ; : if(keyval(40) >> 1) then (if(hsd:shift) then (hsd:code := 34) else (hsd:code := 39)) # ' " if(keyval(51) >> 1) then (if(hsd:shift) then (hsd:code := 60) else (hsd:code := 44)) # , < if(keyval(52) >> 1) then (if(hsd:shift) then (hsd:code := 62) else (hsd:code := 46)) # . > if(keyval(53) >> 1) then (if(hsd:shift) then (hsd:code := 63) else (hsd:code := 47)) # / ? if(keyval(43) >> 1) then (if(hsd:shift) then (hsd:code := 124) else (hsd:code := 92)) # \ | #if(keyval(40) >> 1) then (hsd:code := 47) # Num / WTF? What's the hsd:code for the other "/"? if(keyval(55) >> 1) then (hsd:code := 42) # Num * if(keyval(71) >> 1) then (hsd:code := 55) # Num 7 if(keyval(72) >> 1) then (hsd:code := 56) # Num 8 if(keyval(73) >> 1) then (hsd:code := 57) # Num 9 if(keyval(74) >> 1) then (hsd:code := 45) # Num - if(keyval(75) >> 1) then (hsd:code := 52) # Num 4 if(keyval(76) >> 1) then (hsd:code := 53) # Num 5 if(keyval(77) >> 1) then (hsd:code := 54) # Num 6 if(keyval(78) >> 1) then (hsd:code := 43) # Num + if(keyval(79) >> 1) then (hsd:code := 49) # Num 1 if(keyval(80) >> 1) then (hsd:code := 50) # Num 2 if(keyval(81) >> 1) then (hsd:code := 51) # Num 3 if(keyval(82) >> 1) then (hsd:code := 48) # Num 0 if(keyval(83) >> 1) then (hsd:code := 46) # Num . if(keyval(57) >> 1) then (hsd:code := 32) #Space if(hsd:code <= 90 && hsd:code >= 65) then, begin if(hsd:shift == false) then (hsd:code += 32) end return (hsd:code) end script, input string, hsd:str, hsd:max len=40, hsd:useexist=0, hsd:center=1, hsd:positionx=-654321, hsd:positiony=-654321, begin variable(hsd:done, hsd:key, hsd:show, hsd:tmp str, hsd:saved, hsd:enable input) hsd:enable input := input text enabled enable input text (true) if(hsd:useexist) else(clear string(hsd:str)) trim string(hsd:str,1,hsd:maxlen) hsd:show:=getstringbit(hsd:str,0)==false if(hsd:positiony <> -654321 || hsd:show) then( if(hsd:positionx == -654321) then(hsd:positionx := 160) if(hsd:positiony == -654321) then(hsd:positiony := 110) if(hsd:center) then( center string at(hsd:str,hsd:positionx,hsd:positiony) )else( show string at(hsd:str,hsd:positionx,hsd:positiony) ) )else( hsd:positionx := string x(hsd:str) hsd:positiony := string y(hsd:str) ) hsd:tmp str := hsd:str,xor,1 hsd:saved := hsd:save string(hsd:tmp str) while(not(hsd:done)) do, begin if(hsd:center) then(center string at(hsd:str,hsd:positionx,hsd:positiony)) wait if(keyval(28)>>1 || keyval(103)>>1) then(hsd:done:=true, return(true)) else( if(keyval(14)>>1) then(delete char(hsd:str,string length(hsd:str))) get input text(hsd:tmp str) concatenate strings(hsd:str, hsd:tmp str) trim string(hsd:str, 1, hsd:max len) while(key is pressed(1)) do, begin hsd:done:=true return(false) if(read general(44),and,2) then(wait) else(suspendplayer, wait, resumeplayer) end ) end enable input text (hsd:enable input) hsd:restore string(hsd:tmp str,hsd:saved) if(hsd:show) then(hide string(hsd:str)) end script,currentdisplaytile,hsd:tile,hsd:layernumber=0,begin if(hsd:tile>=160) then( return(animationstarttile(hsd:tile,hsd:layernumber)+gettileanimationoffset((hsd:tile--160)/48,hsd:layernumber)) ) else(return(hsd:tile)) end script, wait for sound, hsd:soundid, begin while(sound is playing(hsd:soundid)) do(wait(1)) end #-------------------------------------------------------------------------- #read/write enemy wrappers script,getenemyname,hsd:enemyID,hsd:stringID,begin variable(hsd:t) clearstring(hsd:stringID) for (hsd:t,1,readenemydata(hsd:enemyID,0)) do( appendascii(hsd:stringID,readenemydata(hsd:enemyID,hsd:t)) end end script,getenemystat,hsd:enemyID,hsd:stat,begin return(readenemydata(hsd:enemyID,hsd:stat+62)) end script,setenemystat,hsd:enemyID,hsd:stat,hsd:value,begin writeenemydata(hsd:enemyID,hsd:stat+62,hsd:value) end script,setenemyname,hsd:enemyID,hsd:stringID,begin variable(hsd:t,hsd:t2) if(stringlength(hsd:stringID)>=16) then (hsd:t2:=16) else (hsd:t2:=stringlength(hsd:stringID)) writeenemydata(hsd:enemyID,0,hsd:t2) for(hsd:t,1,hsd:t2) do ( writeenemydata(hsd:enemyID,hsd:t,asciifromstring(hsd:stringID,hsd:t)) ) end #get/set enemy appearance are now simply wrappers. too much confusion to remove them now script,getenemyappearance,hsd:enemyID,hsd:appearance,begin return(readenemydata(hsd:enemyID,hsd:appearance)) end script,setenemyappearance,hsd:enemyID,hsd:appearance,hsd:value,begin writeenemydata(hsd:enemyID,hsd:appearance,hsd:value) end #-------------------------------------------------------------------------- # read/write general wrappers script,set victory music,hsd:song,begin write general(3,hsd:song+1) end script,get victory music,begin return(read general(3)--1) end script,get death script,begin return(read general(42)) end script,get load script,begin return(read general(57)) end script,set load script,hsd:ID=0,begin write general(57,hsd:ID) end script,set battle wait mode,hsd:bit=1,begin if(hsd:bit) then(hsd:bit:=1) write general(101,(read general(101),and,-2)+hsd:bit) end script,set caterpillar mode,hsd:bit=1,begin if(hsd:bit) then(hsd:bit:=2) write general(101,(read general(101),and,-3)+hsd:bit) end script,set no HP level up restore,hsd:bit=1,begin if(hsd:bit) then(hsd:bit:=4) write general(101,(read general(101),and,-5)+hsd:bit) end script,set no MP level up restore,hsd:bit=1,begin if(hsd:bit) then(hsd:bit:=8) write general(101,(read general(101),and,-9)+hsd:bit) end script,set inn no revive mode,hsd:bit=1,begin if(hsd:bit) then(hsd:bit:=16) write general(101,(read general(101),and,-17)+hsd:bit) end script,set full hero swap mode,hsd:bit=1,begin if(hsd:bit) then(hsd:bit:=32) write general(101,(read general(101),and,-33)+hsd:bit) end script,hide battle ready meter,hsd:bit=1,begin if(hsd:bit) then(hsd:bit:=64) write general(101,(read general(101),and,-65)+hsd:bit) end script,hide battle health meter,hsd:bit=1,begin if(hsd:bit) then(hsd:bit:=128) write general(101,(read general(101),and,-129)+hsd:bit) end script,set debug keys disable,hsd:bit=1,begin if(hsd:bit) then(hsd:bit:=256) write general(101,(read general(101),and,-257)+hsd:bit) end script,set dead heroes gain experience,hsd:bit=1,begin if(hsd:bit) then(hsd:bit:=8) write general(177,(read general(177),and,-9)+hsd:bit) end script,set capped hero stat,hsd:who,hsd:stat,hsd:value,hsd:stat type=current stat,begin variable(hsd:cap) if (hsd:stat type <> base stat) then ( hsd:cap := get hero stat cap(hsd:stat) if(hsd:cap>>0, and, hsd:cap<> 600) then(write general(85, 0)) else(write general(85, (hsd:newsize + 2) / 3 * 3 -- 1)) end script, extended scancodes enabled, begin return((readgeneral(177),and,256)<>0) end script, get level cap, begin return(readgeneral(87)) end script, set level cap, hsd:cap, begin if(hsd:cap >= 0 && hsd:cap <= readgeneral(191)) then(writegeneral(87, hsd:cap)) end #-------------------------------------------------------------------------- # read/write gmap wrappers script,get map tileset,begin return(read gmap(0)) end script, get ambient music, begin return (read gmap(1) -- 1) end script, set ambient music, hsd:song=-1, begin write gmap(1,hsd:song + 1) if (hsd:song >= 0) then (play song (hsd:song)) else (if (hsd:song == -1) then (stop song)) end script,allow minimap,hsd:setting=1,begin write gmap(2,hsd:setting) end script,allow save anywhere,hsd:setting=1,begin write gmap(3,hsd:setting) end script,cancel map name display,begin write gmap(4,0) end script,set map edge mode,mode=0,hsd:tile=0,begin write gmap(5,mode) write gmap(6,hsd:tile) end script,get map edge mode,begin return(read gmap(5)) end script,set harm tile damage,hsd:damage=0,begin write gmap(9,hsd:damage) end script,set harm tile flash,hsd:colour=0,begin write gmap(10,hsd:colour) end script,get footoffset,begin return(read gmap(11)) end script,set footoffset,hsd:offset=0,begin write gmap(11,hsd:offset) end script,get instead of battle script,begin return (read gmap(13)) end script,set instead of battle script,hsd:ID=0,begin write gmap(13,hsd:ID) end script,get each step script,begin return (read gmap(14)) end script,set each step script,hsd:ID=0,begin write gmap(14,hsd:ID) end script,get on keypress script,begin return (read gmap(15)) end script,set on keypress script,hsd:ID=0,begin write gmap(15,hsd:ID) end script,draw npcs above heroes,hsd:setting=1,begin write gmap(16,hsd:setting) end #-------------------------------------------------------------------------- # new wrappers/re-inventing of the wheel commands script, days of play, begin return(read general(51)) end script, hours of play, begin return(read general(52)) end script, minutes of play, begin return(read general(53)) end script, seconds of play, begin return(read general(54)) end script,set days of play,hsd:d, begin if(hsd:d >= 0) then (write general(51,hsd:d)) end script,set hours of play,hsd:h, begin if(hsd:h >= 0, and, hsd:h << 24) then (write general(52,hsd:h)) end script,set minutes of play,hsd:m, begin if(hsd:m >= 0, and, hsd:m << 60) then (write general(53,hsd:m)) end script,set seconds of play,hsd:s, begin if(hsd:s >= 0, and, hsd:s << 60) then (write general(54,hsd:s)) end #-------------------------------------------------------------------------- # menu wrappers script, first menu item, hsd:menuhandle, begin exit returning(menu item by slot(hsd:menuhandle, 0)) end script, wait for menu, hsd:menuhandle, begin while(menu is open(hsd:menuhandle)) do(wait(1)) end #-------------------------------------------------------------------------- # menu data wrappers script, get menu boxstyle, hsd:menuhandle, begin exit returning(read menu int(hsd:menuhandle, 12)) end script, set menu boxstyle, hsd:menuhandle, hsd:n=0, begin write menu int(hsd:menuhandle, 12, hsd:n) end script, get menu textcolor, hsd:menuhandle, begin exit returning(read menu int(hsd:menuhandle, 13)) end script, set menu textcolor, hsd:menuhandle, hsd:n=0, begin write menu int(hsd:menuhandle, 13, hsd:n) end script, get menu max rows, hsd:menuhandle, begin exit returning(read menu int(hsd:menuhandle, 14)) end script, set menu max rows, hsd:menuhandle, hsd:n=0, begin write menu int(hsd:menuhandle, 14, hsd:n) end script, get menu offset x, hsd:menuhandle, begin exit returning(read menu int(hsd:menuhandle, 16)) end script, set menu offset x, hsd:menuhandle, hsd:n=0, begin write menu int(hsd:menuhandle, 16, hsd:n) end script, get menu offset y, hsd:menuhandle, begin exit returning(read menu int(hsd:menuhandle, 17)) end script, set menu offset y, hsd:menuhandle, hsd:n=0, begin write menu int(hsd:menuhandle, 17, hsd:n) end script, get menu anchor x, hsd:menuhandle, begin exit returning(read menu int(hsd:menuhandle, 18)) end script, set menu anchor x, hsd:menuhandle, hsd:n=0, begin write menu int(hsd:menuhandle, 18, hsd:n) end script, get menu anchor y, hsd:menuhandle, begin exit returning(read menu int(hsd:menuhandle, 19)) end script, set menu anchor y, hsd:menuhandle, hsd:n=0, begin write menu int(hsd:menuhandle, 19, hsd:n) end script, get menu text align, hsd:menuhandle, begin exit returning(read menu int(hsd:menuhandle, 20)) end script, set menu text align, hsd:menuhandle, hsd:n=0, begin write menu int(hsd:menuhandle, 20, hsd:n) end script, get menu min chars, hsd:menuhandle, begin exit returning(read menu int(hsd:menuhandle, 21)) end script, set menu min chars, hsd:menuhandle, hsd:n=0, begin write menu int(hsd:menuhandle, 21, hsd:n) end script, get menu max chars, hsd:menuhandle, begin exit returning(read menu int(hsd:menuhandle, 22)) end script, set menu max chars, hsd:menuhandle, hsd:n=0, begin write menu int(hsd:menuhandle, 22, hsd:n) end script, get menu border, hsd:menuhandle, begin exit returning(read menu int(hsd:menuhandle, 23)) end script, set menu border, hsd:menuhandle, hsd:n=0, begin write menu int(hsd:menuhandle, 23, hsd:n) end script, get menu on close script, hsd:menuhandle, begin exit returning(read menu int(hsd:menuhandle, 24)) end script, set menu on close script, hsd:menuhandle, hsd:n=0, begin write menu int(hsd:menuhandle, 24, hsd:n) end script, get menu bit, hsd:handle, hsd:bit, begin variable(hsd:n) hsd:n := read menu int(hsd:handle, 15) if(hsd:n,and,2^hsd:bit) then(exit returning(true)) exit returning(false) end script, set menu bit, hsd:handle, hsd:bit, hsd:value=1, begin variable(hsd:n) hsd:n := read menu int(hsd:handle, 15) if(hsd:value) then(hsd:n := hsd:n, or, 2^hsd:bit) else(hsd:n := hsd:n, and, (-1, xor, 2^hsd:bit)) write menu int(hsd:handle, 15, hsd:n) end #-------------------------------------------------------------------------- # menu item data wrappers script, set menu item, hsd:handle, hsd:type=0, hsd:subtype=0, hsd:tag1=0, hsd:tag2=0, hsd:stag=0, hsd:togtag=0, begin write menu item int(hsd:handle, 22, hsd:type) write menu item int(hsd:handle, 23, hsd:subtype) write menu item int(hsd:handle, 24, hsd:tag1) write menu item int(hsd:handle, 25, hsd:tag2) write menu item int(hsd:handle, 26, hsd:stag) write menu item int(hsd:handle, 27, hsd:togtag) end script, set menu item type, hsd:handle, hsd:n=0, begin write menu item int(hsd:handle, 22, hsd:n) end script, get menu item type, hsd:handle, begin exit returning(read menu item int(hsd:handle, 22)) end script, set menu item subtype, hsd:handle, hsd:n=0, begin write menu item int(hsd:handle, 23, hsd:n) end script, get menu item subtype, hsd:handle, begin exit returning(read menu item int(hsd:handle, 23)) end script, set menu item tag, hsd:handle, hsd:n=0, hsd:whichtag=1, begin if(hsd:whichtag == 1) then(write menu item int(hsd:handle, 24, hsd:n)) if(hsd:whichtag == 2) then(write menu item int(hsd:handle, 25, hsd:n)) end script, get menu item tag, hsd:handle, hsd:whichtag=1, begin if(hsd:whichtag == 1) then(exit returning(read menu item int(hsd:handle, 24))) if(hsd:whichtag == 2) then(exit returning(read menu item int(hsd:handle, 25))) end script, set menu item settag, hsd:handle, hsd:n=0, begin write menu item int(hsd:handle, 26, hsd:n) end script, get menu item settag, hsd:handle, begin exit returning(read menu item int(hsd:handle, 26)) end script, set menu item togtag, hsd:handle, hsd:n=0, begin write menu item int(hsd:handle, 27, hsd:n) end script, get menu item togtag, hsd:handle, begin exit returning(read menu item int(hsd:handle, 27)) end script, get menu item bit, hsd:handle, hsd:bit, begin variable(hsd:n) hsd:n := read menu item int(hsd:handle, 28) if(hsd:n,and,2^hsd:bit) then(exit returning(true)) exit returning(false) end script, set menu item bit, hsd:handle, hsd:bit, hsd:value=1, begin variable(hsd:n) hsd:n := read menu item int(hsd:handle, 28) if(hsd:value) then(hsd:n := hsd:n, or, 2^hsd:bit) else(hsd:n := hsd:n, and, (-1, xor, 2^hsd:bit)) write menu item int(hsd:handle, 28, hsd:n) end script, set menu item extra, hsd:handle, hsd:extra=0, hsd:n=0, begin if(hsd:extra >= 0 && hsd:extra <= 2) then, begin write menu item int(hsd:handle, 29+hsd:extra, hsd:n) end end script, get menu item extra, hsd:handle, hsd:extra=0, begin if(hsd:extra >= 0 && hsd:extra <= 2) then, begin exit returning(read menu item int(hsd:handle, 29+hsd:extra)) end end script, load enemy sprite, hsd:size, hsd:number, hsd:pal = -1, begin if(hsd:size == EnemySize:small) then(return(load small enemy sprite(hsd:number, hsd:pal))) if(hsd:size == EnemySize:medium) then(return(load medium enemy sprite(hsd:number, hsd:pal))) if(hsd:size == EnemySize:large) then(return(load large enemy sprite(hsd:number, hsd:pal))) end script, replace enemy sprite, hsd:ID, hsd:size, hsd:number, hsd:pal = -1, begin if(hsd:size == EnemySize:small) then(return(replace small enemy sprite(hsd:ID, hsd:number, hsd:pal))) if(hsd:size == EnemySize:medium) then(return(replace medium enemy sprite(hsd:ID, hsd:number, hsd:pal))) if(hsd:size == EnemySize:large) then(return(replace large enemy sprite(hsd:ID, hsd:number, hsd:pal))) end #-------------------------------------------------------------------------- # slice commands script, first sprite child, hsd:parent, begin variable(hsd:sl) hsd:sl := first child(hsd:parent) if(hsd:sl==0) then(exit returning(0)) if(slice is sprite(hsd:sl)) then(exit returning(hsd:sl)) exit returning(next sprite sibling(hsd:sl)) end script, next sprite sibling, hsd:sib, begin variable(hsd:sl) hsd:sl := next sibling(hsd:sib) if(hsd:sl==0) then(exit returning(0)) if(slice is sprite(hsd:sl)) then(exit returning(hsd:sl)) exit returning(next sprite sibling(hsd:sl)) end script, first container child, hsd:parent, begin variable(hsd:sl) hsd:sl := first child(hsd:parent) if(hsd:sl==0) then(exit returning(0)) if(slice is container(hsd:sl)) then(exit returning(hsd:sl)) exit returning(next container sibling(hsd:sl)) end script, next container sibling, hsd:sib, begin variable(hsd:sl) hsd:sl := next sibling(hsd:sib) if(hsd:sl==0) then(exit returning(0)) if(slice is container(hsd:sl)) then(exit returning(hsd:sl)) exit returning(next container sibling(hsd:sl)) end script, first rect child, hsd:parent, begin variable(hsd:sl) hsd:sl := first child(hsd:parent) if(hsd:sl==0) then(exit returning(0)) if(slice is rect(hsd:sl)) then(exit returning(hsd:sl)) exit returning(next rect sibling(hsd:sl)) end script, next rect sibling, hsd:sib, begin variable(hsd:sl) hsd:sl := next sibling(hsd:sib) if(hsd:sl==0) then(exit returning(0)) if(slice is rect(hsd:sl)) then(exit returning(hsd:sl)) exit returning(next rect sibling(hsd:sl)) end script, free slice children, hsd:parent, begin variable(hsd:sl, hsd:next) hsd:sl := first child(hsd:parent) while(hsd:sl) do( hsd:next := next sibling(hsd:sl) free slice(hsd:sl) hsd:sl := hsd:next ) end script, realign slice, hsd:sl, hsd:halign, hsd:valign, hsd:hanchor=-1, hsd:vanchor=-1, begin set horiz align(hsd:sl, hsd:halign) set vert align(hsd:sl, hsd:valign) if(hsd:hanchor <> -1) then(set horiz anchor(hsd:sl, hsd:hanchor)) if(hsd:vanchor <> -1) then(set vert anchor(hsd:sl, hsd:vanchor)) end script, center slice, hsd:sl, begin realign slice(hsd:sl, 1, 1, 1, 1) end script, set slice screen x, hsd:sl, hsd:newx, begin variable(hsd:oldx, hsd:diff) hsd:oldx := slice screen x(hsd:sl) hsd:diff := hsd:newx -- hsd:oldx set slice x(hsd:sl, slice x(hsd:sl) + hsd:diff) end script, set slice screen y, hsd:sl, hsd:newy, begin variable(hsd:oldy, hsd:diff) hsd:oldy := slice screen y(hsd:sl) hsd:diff := hsd:newy -- hsd:oldy set slice y(hsd:sl, slice y(hsd:sl) + hsd:diff) end script, put slice screen, hsd:sl, hsd:newx, hsd:newy, begin put slice(hsd:sl, slice x(hsd:sl) + hsd:newx -- slice screen x(hsd:sl), slice y(hsd:sl) + hsd:newy -- slice screen y(hsd:sl)) end script, set padding, hsd:sl, hsd:newpadding, begin set left padding (hsd:sl, hsd:newpadding) set right padding (hsd:sl, hsd:newpadding) set top padding (hsd:sl, hsd:newpadding) set bottom padding(hsd:sl, hsd:newpadding) end #-------------------------------------------------------------------------- # script triggers define trigger,begin 0, script 1, plotscript end #-------------------------------------------------------------------------- # betweenable operators define operator,begin 20 ^ exponent 30,mod,modulus 30 / divide 30 * multiply 40 -- subtract 40 + add 50 == equal 50 <> notequal 50 << lessthan 50 >> greaterthan 50 < lessthan 50 > greaterthan 50 <= lessthanorequalto 50 >= greaterthanorequalto 60,xor,xor 60,and,and 60,or, or 65 && logand 70 || logor 70 ^^ logxor 80 := setvariable 80 += increment 80 -= decrement 80 $+ concatenatestrings 80 $= copystring end #-------------------------------------------------------------------------- # global constants define constant, begin 0,zero 1,one 2,two 3,three 4,four 5,five 6,six 7,seven 8,eight 9,nine 10,ten 0,false 1,true 0,off 1,on 0,north 1,east 2,south 3,west 0,up 2,down 3,left 1,right 0,upkey 1,downkey 2,leftkey 3,rightkey 4,usekey 5,cancelkey 5,menukey 99,anykey 0,me 0,none -1,autonumber 0,currentstat 1,maximumstat 2,basestat 1,northwall 2,eastwall 4,southwall 8,westwall 16,vehicleA 32,vehicleB 64,harmtile 128,overheadtile 0,inside battle 1,outside battle 2,hero portrait 0,NPCstat:picture 1,NPCstat:palette 2,NPCstat:movetype 0,NPCmovetype:standstill 1,NPCmovetype:wander 2,NPCmovetype:pace 3,NPCmovetype:rightturns 4,NPCmovetype:leftturns 5,NPCmovetype:randomturns 6,NPCmovetype:chaseyou 7,NPCmovetype:avoidyou 8,NPCmovetype:walkinplace 3,NPCstat:movespeed 4,NPCstat:displaytext 5,NPCstat:whenactivated 0,NPCwhenactivated:changedirection 1,NPCwhenactivated:faceplayer 2,NPCwhenactivated:donotfaceplayer 6,NPCstat:giveitem # Note: item num + 1 7,NPCstat:pushability 0,NPCpush:off 1,NPCpush:full 2,NPCpush:horizontal 3,NPCpush:vertical 4,NPCpush:uponly 5,NPCpush:rightonly 6,NPCpush:downonly 7,NPCpush:leftonly 8,NPCstat:activation 0,NPCactivation:use 1,NPCactivation:touch 2,NPCactivation:stepon 12,NPCstat:script 13,NPCstat:scriptargument 14,NPCstat:vehicle 15,NPCstat:defaultmovementzone 16,NPCstat:defaultavoidancezone 0,color:red 1,color:green 2,color:blue 0,leftbutton 1,rightbutton 2,middlebutton -1,getcount 0,string:outline 1,string:flat 53,Enemy:Picture 54,Enemy:Palette 55,Enemy:PictureSize 0, EnemySize:small 1, EnemySize:medium 2, EnemySize:large 56,Enemy:Gold 57,Enemy:Experience 58,Enemy:Item 59,Enemy:ItemPercent 60,Enemy:RareItem 61,Enemy:RareItemPercent 17,Stealability -1, IsNotStealable 0, StealableOnce 1, StealableInfinity 18, StealableItem 19, StealableItemChance 20, StealableRareItem 21, StealableRareItemchance 0, Crop 1, Wrap 2, Defaulttile -1,party 0, extra 0 1, extra 1 2, extra 2 0, x axis 1, y axis 1,mapstate:mapsettings 2,mapstate:npclocations 4,mapstate:npcdefinitions 8,mapstate:tilemap 16,mapstate:passmap 32,mapstate:zonemap #64,mapstate:foemap 6,mapstate:npcs 56,mapstate:tiles 255,mapstate:all 0,timer:stop #use in speed -1,timer:default #use in any -2,timer:gameover#use in trigger 1,timerflag:critical 2,timerflag:battle 4,timerflag:menu 0,menutype:label 1,menutype:special 2,menutype:menu 3,menutype:textbox 4,menutype:script 0,menuspecial:items 1,menuspecial:spells 2,menuspecial:status 3,menuspecial:equip 4,menuspecial:order 5,menuspecial:team 6,menuspecial:orderteam 7,menuspecial:map 8,menuspecial:save 9,menuspecial:load 10,menuspecial:quit 11,menuspecial:volume 0,menuitembit:Hide when disabled 1,menuitembit:Close menu when selected 2,menuitembit:skip close script 0,menubit:translucent box 1,menubit:never show scrollbar 2,menubit:allow gameplay 3,menubit:suspend player even if gameplay allowed 4,menubit:no box 5,menubit:no close 6,menubit:no controls 7,menubit:prevent main menu 0,align:center -1,align:left 1,align:right -1,align:top 1,align:bottom -1,tileset:default -1,song:silence -2,song:same as map -2,song:same as last map -1,any enemy 0,inv:max 0,edge:left 1,edge:center 2,edge:right 0,edge:top 1,edge:middle 2,edge:bottom 0,spritetype:hero 1,spritetype:smallenemy 2,spritetype:mediumenemy 3,spritetype:largeenemy 4,spritetype:walkabout 5,spritetype:weapon 6,spritetype:attack 7,spritetype:border 8,spritetype:portrait 9,spritetype:backdrop -1,border:line -2,border:none 0,trans:solid 1,trans:fuzzy 2,trans:hollow 0,hand:Attack A 1,hand:Attack B 0,dissolve:random scatter 1,dissolve:crossfade 2,dissolve:diagonal vanish 3,dissolve:sink into ground 4,dissolve:squash 5,dissolve:melt 6,dissolve:vapourise 7,dissolve:phase out 8,dissolve:squeeze 9,dissolve:shrink 10,dissolve:flicker -1,dissolvetime:default end # define constant, begin -100000, sl:root -100001, sl:textbox text -100002, sl:textbox portrait -100003, sl:textbox choice0 -100004, sl:textbox choice1 -100016, sl:textbox box -100017, sl:textbox portrait box -100018, sl:textbox choice box -100019, sl:textbox root -100005, sl:script layer -100006, sl:textbox layer -100007, sl:string layer -100008, sl:maproot -100009, sl:obsolete overhead -100010, sl:walkabout layer -100011, sl:hero layer -100012, sl:npc layer -100013, sl:walkabout sprite component -100014, sl:walkabout shadow component -100015, sl:backdrop -101000, sl:map layer0 -101001, sl:map layer1 -101002, sl:map layer2 -101003, sl:map layer3 -101004, sl:map layer4 -101005, sl:map layer5 -101006, sl:map layer6 -101007, sl:map layer7 -102000, sl:status portrait -102001, sl:status walkabout -102002, sl:status battlesprite -102003, sl:status page select -102004, sl:status statlist -102005, sl:status hide if no mp -102006, sl:status hide if no lmp -102007, sl:status hide if max lev -102008, sl:plank holder -102009, sl:status hide if no portrait -102010, sl:item itemlist -102011, sl:item exitbutton -102012, sl:item sortbutton -102013, sl:item trashbutton -102014, sl:plank menu selectable -102015, sl:spell listlist -102016, sl:spell spelllist -102017, sl:spell hide if no list -102018, sl:spell cancelbutton end # SCANCODE.HSI # this include file defines a whole mess of key: constants for use with # the "key is pressed" command. This is more complete than it needs to be :) define constant,begin 01,key:Esc 02,key:1 02,key:Exclamation 03,key:2 03,key:At Sign 04,key:3 04,key:Hash 05,key:4 05,key:Dollar Sign 06,key:5 06,key:Percent 07,key:6 07,key:Circumflex 08,key:7 08,key:Ampersand 09,key:8 09,key:Asterix 09,key:Asterisk 10,key:9 10,key:Left Parenthesis 11,key:0 11,key:Right Parenthesis 12,key:Minus 12,key:Underscore 13,key:Equals 13,key:Plus 14,key:Backspace 15,key:Tab 16,key:Q 17,key:W 18,key:E 19,key:R 20,key:T 21,key:Y 22,key:U 23,key:I 24,key:O 25,key:P 26,key:Left Bracket 26,key:Left Brace 27,key:Right Bracket 27,key:Right Brace 28,key:Enter 29,key:Ctrl 30,key:A 31,key:S 32,key:D 33,key:F 34,key:G 35,key:H 36,key:J 37,key:K 38,key:L 39,key:Semicolon 39,key:Colon 40,key:Quote 40,key:Doublequote 40,key:Apostrophe 41,key:Backquote 41,key:Tilde 42,key:Left Shift 43,key:Backslash 43,key:Pipe 44,key:Z 45,key:X 46,key:C 47,key:V 48,key:B 49,key:N 50,key:M 51,key:Comma 51,key:Left Caret 52,key:Period 52,key:Right Caret 53,key:Slash 53,key:Question Mark 54,key:Right Shift 55,key:Numpad Asterix 55,key:Numpad Asterisk 56,key:Alt 57,key:Space 58,key:Capslock 59,key:F1 60,key:F2 61,key:F3 62,key:F4 63,key:F5 64,key:F6 65,key:F7 66,key:F8 67,key:F9 68,key:F10 69,key:Numlock 70,key:Scroll Lock 71,key:Home 72,key:Up 73,key:Page Up 74,key:Numpad Minus 75,key:Left 77,key:Right 78,key:Numpad Plus 79,key:End 80,key:Down 81,key:Page Down 82,key:Insert 83,key:Delete 87,key:F11 88,key:F12 91,key:Left Win Logo 91,key:Left Command #Macintosh 92,key:Right Win Logo 92,key:Right Command #Macintosh 93,key:Context 94,key:F13 95,key:F14 96,key:F15 97,key:Shift 98,key:Left Alt 99,key:Right Alt 100,key:Left Ctrl 101,key:Right Ctrl 102,key:Numpad Slash # previously key:Slash 103,key:Numpad Enter # previously key:Enter 104,key:Numpad 7 # previously key:Home 105,key:Numpad 8 # previously key:Up 106,key:Numpad 9 # previously key:Page Up 108,key:Numpad 4 # previously key:Left 109,key:Numpad 5 110,key:Numpad 6 # previously key:Right 112,key:Numpad 1 # previously key:End 113,key:Numpad 2 # previously key:Down 114,key:Numpad 3 # previously key:Page Down 115,key:Numpad 0 # previously key:Insert 116,key:Numpad Period # previously key:Delete 117,key:Print Screen 118,key:Pause # previously key:Numlock 119,key:Filtered Alt # Same as key:Alt, but try to filter out keypresses which are part of window manager combinations #keys >= 128 are NOT scan codes, per se, but for other devices (mouse, joystick) # note that these only work for key is pressed, not for keyval 128,joy:button 1 129,joy:button 2 130,joy:button 3 131,joy:button 4 132,joy:button 5 133,joy:button 6 134,joy:button 7 135,joy:button 8 136,joy:button 9 137,joy:button 10 138,joy:button 11 139,joy:button 12 140,joy:button 13 141,joy:button 14 142,joy:button 15 143,joy:button 16 144,joy:x left 145,joy:x right 146,joy:y up 147,joy:y down end BENCHMARK.HSIT# HamsterSpeak constant definitions for benchmark.rpg define constant, begin 0,stat:HP 1,stat:MP 2,stat:Atk 3,stat:Aim 4,stat:Def 5,stat:Dog 6,stat:Mag 7,stat:Wil 8,stat:Spd 9,stat:Ctr 10,stat:MP~ 11,stat:Hits 0,element:Fire 1,element:Ice 2,element:Lit 3,element:Earth 4,element:Other 5,element:Other 2 6,element:Other 3 7,element:Other 4 8,element:Type 1killer 9,element:Type 2killer 10,element:Type 3killer 11,element:Type 4killer 12,element:Type 5killer 13,element:Type 6killer 14,element:Type 7killer 15,element:Type 8killer 1,slot:Weapon 2,slot:Head 3,slot:Body 4,slot:Arms 5,slot:Legs end BENCHMARK.HSS\include, plotscr.hsd define constant, begin 100, NUM RUNS # Number of loops to run micro-benchmarks 1000, MICRO LOOPCOUNT # Global variable IDs 5000, TIMES ARRAY 99, UNUSED GLOBAL 100, fire array 1, BENCHMARK NAME STRING end plotscript, main, begin variable (score, score2, loops) wait (50) $2 = "Micro-benchmarks" trace (2) $2 = "" trace (2) loops := MICRO LOOPCOUNT $1 = "for loop" score += run benchmark (@benchmark: for loop, loops) $1 = "while loop" score += run benchmark (@benchmark: while loop, loops) $1 = "continue loop" score += run benchmark (@benchmark: continue loop, loops) $1 = "if then" score += run benchmark (@benchmark: if then, loops) $1 = "if else" score += run benchmark (@benchmark: if else, loops) $1 = "enter for" score += run benchmark (@benchmark: enter for, loops) $1 = "double break" score += run benchmark (@benchmark: double break, loops) $1 = "trivial switch" score += run benchmark (@benchmark: trivial switch, loops) $1 = "bigger switch" score += run benchmark (@benchmark: bigger switch, loops) $1 = "one arg overhead" score += run benchmark (@benchmark: one arg overhead, loops) $1 = "two arg overhead" score += run benchmark (@benchmark: two arg overhead, loops) $1 = "assignment" score += run benchmark (@benchmark: assignment, loops) $1 = "addition" score += run benchmark (@benchmark: addition, loops) $1 = "string assignment" score += run benchmark (@benchmark: string assignment, loops) $1 = "scriptmisc command overhead" score += run benchmark (@benchmark: scriptmisc command overhead, loops) $1 = "sfunctions command overhead" score += run benchmark (@benchmark: sfunctions command overhead, loops) $1 = "milliseconds" score += run benchmark (@benchmark: milliseconds, loops) $1 = "one arg command" score += run benchmark (@benchmark: one arg command, loops) $1 = "one arg command with variable" score += run benchmark (@benchmark: one arg command with variable, loops) $1 = "more complex one arg command" score += run benchmark (@benchmark: more complex one arg command, loops) $1 = "slice X" score += run benchmark (@benchmark: slice X, loops) $1 = "first child" score += run benchmark (@benchmark: first child, loops) $1 = "creating and deleting slices" score2 += run benchmark (@benchmark: creating and deleting slices, loops) $1 = "call script" score += run benchmark (@benchmark: call script, loops) $1 = "call multiarg script" score += run benchmark (@benchmark: call multiarg script, loops) $1 = "run script by id" score += run benchmark (@benchmark: run script by id, loops) $1 = "call and return value" score += run benchmark (@benchmark: call and return value, loops) $1 = "call and exit returning value" score += run benchmark (@benchmark: call and exit returning value, loops) $1 = "read global" score += run benchmark (@benchmark: read global, loops) $1 = "write global" score += run benchmark (@benchmark: write global, loops) $2 = "" trace (2) $2 = "General benchmarks" trace (2) $2 = "" trace (2) # General benchmarks get more weight in the total benchmark score. # The 'scores' (running times) of these benchmarks are weighted so that they # all contribute roughly the same score at time of writing. $1 = "recursive fibonacci" score += run benchmark (@benchmark: recursive fibonacci, 1) * 2 $1 = "create and delete lotsa slices" score2 += run benchmark (@benchmark: create and delete lotsa slices, 1) * 2 / 3 $1 = "eat soap mania" score2 += run benchmark (@benchmark: eat soap mania, 1) * 2 $1 = "xor map" score2 += run benchmark (@benchmark: xor map, 1) * 2 $1 = "crappy sqrt" score += run benchmark (@benchmark: crappy sqrt, 1) * 2 $1 = "DOOM flames recalc" score += run benchmark (@benchmark: DOOM flames recalc, 1) * 2 $1 = "DOOM flames create and destroy" score2 += run benchmark (@benchmark: DOOM flames create and destroy, 1) * 2 $1 = "DOOM flames update" DOOM initialise flames score += run benchmark (@benchmark: DOOM flames update, 1) * 2 free slice (flames container) # This score doesn't depend on the speed of implementation of any commands $1 = "Benchmark score for interpreter (lower's better):" append number (1, score) trace (1) show string at (1, 0, 180) score += score2 $2 = "Total score:" append number (2, score) trace (2) show string (2) wait (60) game over end # Given 100*X, append X to 'string' as a decimal script, append decimal 100, string, number, begin append number (string, number / 100) $string + "." variable (i) for (i, 1, 0, -1) do ( append ascii (string, 48 + (number / (10 ^ i)), mod, 10) ) end script, run benchmark, script id, loops, begin variable (i, j, n, time, best, worst, avg) $2 = "Benchmark: " 2 $+ 1 show string (2) wait (1) for (i, 0, NUM RUNS -- 1) do ( time := microseconds run script by id (script id) time := microseconds -- time write global (TIMES ARRAY + i, time) ) 2 $= 1 $2 + " times:" trace (2) best := 999999 $2 = "" for (i, 0, NUM RUNS -- 1) do ( time := read global (TIMES ARRAY + i) $2 + " " append number (2, time) if (time << best) then (best := time) ) trace (2) if (loops == 1) then ( # General benchmark $2 = " best microseconds per run: " append number (2, best) ) else ( # Micro-benchmark $2 = " best nanoseconds per run: " append decimal 100 (2, 100000 * best / loops) ) trace (2) # remove top half in a really lazy way for (i, 1, NUM RUNS / 2) do ( worst := 0 for (j, 0, NUM RUNS -- 1) do ( time := read global (TIMES ARRAY + j) if (time > worst) then (worst := time) ) for (j, 0, NUM RUNS -- 1) do ( time := read global (TIMES ARRAY + j) if (time == worst) then ( write global (TIMES ARRAY + j, 0) break ) ) ) # average for (j, 0, NUM RUNS -- 1) do ( time := read global (TIMES ARRAY + j) if (time > 0) then ( avg += time * 100 n += 1 ) ) avg := avg / n if (loops == 1) then ( # General benchmark $2 = " average microseconds (excl. outliers): " append decimal 100 (2, avg) ) else ( # Micro-benchmark $2 = " average nanoseconds (excl. outliers): " append decimal 100 (2, 1000 * avg / loops) ) trace (2) $2 = "" trace (2) # Return a score (total score is actually just total time spent) return (avg / 100) end ###################################### MICRO BENCHMARKS ####################################### script, benchmark: for loop, begin variable (i) for (i, 0, MICRO LOOPCOUNT) do () end script, benchmark: while loop, begin variable (i) i := MICRO LOOPCOUNT while (i) do (i -= 1) end script, benchmark: continue loop, begin variable (i) i := MICRO LOOPCOUNT do ( i -= 1 if (i) then (continue) ) end # script, benchmark: for loop overhead, begin # variable (i) # for (i, 0, MICRO LOOPCOUNT) do () # end script, benchmark: if then, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( if (i) then () if (i) then () if (i) then () if (i) then () if (i) then () if (i) then () if (i) then () if (i) then () if (i) then () if (i) then () ) end script, benchmark: if else, begin variable (i, dummy) for (i, 0, MICRO LOOPCOUNT / 10) do ( if (dummy) then () if (dummy) then () if (dummy) then () if (dummy) then () if (dummy) then () if (dummy) then () if (dummy) then () if (dummy) then () if (dummy) then () if (dummy) then () ) end script, benchmark: enter for, begin variable (i, j) for (i, 0, MICRO LOOPCOUNT / 10) do ( for (j, 0, 0, 1) do () for (j, 0, 0, 1) do () for (j, 0, 0, 1) do () for (j, 0, 0, 1) do () for (j, 0, 0, 1) do () for (j, 0, 0, 1) do () for (j, 0, 0, 1) do () for (j, 0, 0, 1) do () for (j, 0, 0, 1) do () for (j, 0, 0, 1) do () ) end script, benchmark: double break, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( do( do(break(2)) ) do( do(break(2)) ) do( do(break(2)) ) do( do(break(2)) ) do( do(break(2)) ) do( do(break(2)) ) do( do(break(2)) ) do( do(break(2)) ) do( do(break(2)) ) do( do(break(2)) ) ) end script, benchmark: trivial switch, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( switch (i) do ( case(0) do() ) switch (i) do ( case(0) do() ) switch (i) do ( case(0) do() ) switch (i) do ( case(0) do() ) switch (i) do ( case(0) do() ) switch (i) do ( case(0) do() ) switch (i) do ( case(0) do() ) switch (i) do ( case(0) do() ) switch (i) do ( case(0) do() ) switch (i) do ( case(0) do() ) ) end script, benchmark: bigger switch, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( switch (i) do ( case(0)do() case(1)do() case(2)do() case(3)do() case(4)do() ) switch (i) do ( case(0)do() case(1)do() case(2)do() case(3)do() case(4)do() ) switch (i) do ( case(0)do() case(1)do() case(2)do() case(3)do() case(4)do() ) switch (i) do ( case(0)do() case(1)do() case(2)do() case(3)do() case(4)do() ) switch (i) do ( case(0)do() case(1)do() case(2)do() case(3)do() case(4)do() ) switch (i) do ( case(0)do() case(1)do() case(2)do() case(3)do() case(4)do() ) switch (i) do ( case(0)do() case(1)do() case(2)do() case(3)do() case(4)do() ) switch (i) do ( case(0)do() case(1)do() case(2)do() case(3)do() case(4)do() ) switch (i) do ( case(0)do() case(1)do() case(2)do() case(3)do() case(4)do() ) switch (i) do ( case(0)do() case(1)do() case(2)do() case(3)do() case(4)do() ) ) end # Note this is not a test of actual overhead (difference between two commands # taking one and two args and not doing anything would be better) script, benchmark: one arg overhead, begin variable (i, x) for (i, 0, MICRO LOOPCOUNT / 10) do ( x x x x x x x x x x ) end script, benchmark: two arg overhead, begin variable (i, x) for (i, 0, MICRO LOOPCOUNT / 10) do ( x, 0 x, 0 x, 0 x, 0 x, 0 x, 0 x, 0 x, 0 x, 0 x, 0 ) end script, benchmark: assignment, begin variable (i, x) for (i, 0, MICRO LOOPCOUNT / 10) do ( x := 0 x := 0 x := 0 x := 0 x := 0 x := 0 x := 0 x := 0 x := 0 x := 0 ) end script, benchmark: addition, begin variable (i, x, y) for (i, 0, MICRO LOOPCOUNT / 10) do ( x + y x + y x + y x + y x + y x + y x + y x + y x + y x + y ) end script, benchmark: string assignment, begin variable (i, x) for (i, 0, MICRO LOOPCOUNT / 10) do ( $3 = "foo" $3 = "foo" $3 = "foo" $3 = "foo" $3 = "foo" $3 = "foo" $3 = "foo" $3 = "foo" $3 = "foo" $3 = "foo" ) end script, benchmark: scriptmisc command overhead, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( # a command with trivial implementation, in scriptmisc last formation last formation last formation last formation last formation last formation last formation last formation last formation last formation ) end script, benchmark: sfunctions command overhead, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( # a command with trivial implementation, in sfunctions current map current map current map current map current map current map current map current map current map current map ) end script, benchmark: milliseconds, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( # a command with trivial implementation, in sfunctions milliseconds milliseconds milliseconds milliseconds milliseconds milliseconds milliseconds milliseconds milliseconds milliseconds ) end script, benchmark: one arg command, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( # a command that does a minimal amount of error checking/processing with its argument set money (0) set money (0) set money (0) set money (0) set money (0) set money (0) set money (0) set money (0) set money (0) set money (0) ) end script, benchmark: one arg command with variable, begin variable (i, x) x := 0 for (i, 0, MICRO LOOPCOUNT / 10) do ( # I expect there to be no difference to the above set money (x) set money (x) set money (x) set money (x) set money (x) set money (x) set money (x) set money (x) set money (x) set money (x) ) end script, benchmark: more complex one arg command, begin variable (i, sl) for (i, 0, MICRO LOOPCOUNT / 10) do ( item in slot (0) item in slot (0) item in slot (0) item in slot (0) item in slot (0) item in slot (0) item in slot (0) item in slot (0) item in slot (0) item in slot (0) ) end script, benchmark: slice X, begin variable (i, sl) sl := sprite layer for (i, 0, MICRO LOOPCOUNT / 10) do ( # testing the overhead of a typical slice command slice x (sl) slice x (sl) slice x (sl) slice x (sl) slice x (sl) slice x (sl) slice x (sl) slice x (sl) slice x (sl) slice x (sl) ) end script, benchmark: first child, begin variable (i, sl) sl := sprite layer for (i, 0, MICRO LOOPCOUNT / 10) do ( # testing the overhead of a slice command returning a slice handle first child (sl) first child (sl) first child (sl) first child (sl) first child (sl) first child (sl) first child (sl) first child (sl) first child (sl) first child (sl) ) end script, benchmark: creating and deleting slices, begin variable (i, sl) sl := sprite layer for (i, 0, MICRO LOOPCOUNT) do ( # testing the overhead of a slice command returning a slice handle sl := create container (0, 0) free slice (sl) ) end script, empty script, begin end script, empty multiarg script, a, b, c, d, begin end script, return value, begin return (0) end script, exit return value, begin exit returning (0) end script, benchmark: call script, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( empty script empty script empty script empty script empty script empty script empty script empty script empty script empty script ) end script, benchmark: call multiarg script, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( empty multiarg script (i, i, i, i) empty multiarg script (i, i, i, i) empty multiarg script (i, i, i, i) empty multiarg script (i, i, i, i) empty multiarg script (i, i, i, i) empty multiarg script (i, i, i, i) empty multiarg script (i, i, i, i) empty multiarg script (i, i, i, i) empty multiarg script (i, i, i, i) empty multiarg script (i, i, i, i) ) end script, benchmark: run script by id, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( run script by id (@empty script) run script by id (@empty script) run script by id (@empty script) run script by id (@empty script) run script by id (@empty script) run script by id (@empty script) run script by id (@empty script) run script by id (@empty script) run script by id (@empty script) run script by id (@empty script) ) end script, benchmark: call and return value, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( return value return value return value return value return value return value return value return value return value return value ) end script, benchmark: call and exit returning value, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( exit return value exit return value exit return value exit return value exit return value exit return value exit return value exit return value exit return value exit return value ) end script, benchmark: read global, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( read global (0) read global (0) read global (0) read global (0) read global (0) read global (0) read global (0) read global (0) read global (0) read global (0) ) end script, benchmark: write global, begin variable (i) for (i, 0, MICRO LOOPCOUNT / 10) do ( write global (UNUSED GLOBAL, 0) write global (UNUSED GLOBAL, 0) write global (UNUSED GLOBAL, 0) write global (UNUSED GLOBAL, 0) write global (UNUSED GLOBAL, 0) write global (UNUSED GLOBAL, 0) write global (UNUSED GLOBAL, 0) write global (UNUSED GLOBAL, 0) write global (UNUSED GLOBAL, 0) write global (UNUSED GLOBAL, 0) ) end ###################################### GENERAL BENCHMARKS ####################################### script, fibonacci, n, begin if (n <= 1) then (return (1)) else ( return (fibonacci (n -- 1) + fibonacci (n -- 2)) ) end script, benchmark: recursive fibonacci, begin fibonacci (14) end script, benchmark: create and delete lotsa slices, begin variable (i, parent, sl) parent := create container for (i, 0, 2000) do ( set parent(create container, parent) if (i, mod, 5) else ( free slice(first child(parent)) ) ) free slice(parent) end #------------------- some scripts from Don't Eat Soap ----------------------------- define constant(2, bubble push speed) script, get force x, sl, begin exit returning(get force(sl, x axis)) end script, get force y, sl, begin exit returning(get force(sl, y axis)) end script, set force x, sl, n, sign_=1, begin set force(sl, x axis, n, sign_) end script, set force y, sl, n, sign_=1, begin set force(sl, y axis, n, sign_) end script, set force, sl, axis, value, sign_=1, begin set slice extra(sl, get force extra slot(axis), value * sign_) end script, get force, sl, axis, begin exit returning(get slice extra(sl, get force extra slot(axis))) end script, get force extra slot, axis, begin switch(axis) do( case(x axis) do(exit returning(extra 0)) case(y axis) do(exit returning(extra 1)) ) end script, sgn, n, begin if(n >> 0) then(exit returning(1)) if(n << 0) then(exit returning(-1)) exit returning(0) end script, push bubble away, who, bub, begin variable(xdiff, ydiff) xdiff := slice edge x(bub, edge:center) -- slice edge x(who, edge:center) ydiff := slice edge y(bub, edge:center) -- slice edge y(who, edge:center) set force x(bub, get force x(bub) + bubble push speed * sgn(xdiff)) set force y(bub, get force y(bub) + bubble push speed * sgn(ydiff)) end #------------------------------------------------------------------------ # Test lots of calls of tiny scripts script, benchmark: eat soap mania, begin variable (i, sl) sl := create container for (i, 0, 60) do ( push bubble away (sl, sl) ) end script, benchmark: xor map, begin variable (i, x, y, layer) #for (i, 0, 29) do ( for (y, 0, 15) do ( for (x, 0, 15) do ( for (layer, 0, 2) do ( write map block (x, y, (255, xor, read map block (x, y, layer)), layer) ) write pass block (x, y, (255, xor, read pass block (x, y))) ) ) #) end script, crappy sqrt, fi, begin variable (start, divi, approx) approx := -1 if (fi >= 32581) then (return (181)) else, begin #Prevent overflows if (fi << 100) then (start := 0, divi := start ^ 2) else ( if (fi >= 22500) then (start := 150) else ( if (fi >= 14400) then (start := 120) else ( if (fi >= 8100) then (start := 90) else ( if (fi >= 4225) then (start := 65) else ( if (fi >= 1600) then (start := 40) else ( if (fi >= 900) then (start := 30) else ( if (fi >= 400) then (start := 20) else (start := 10) )))))) divi := start ^ 2 if (fi / 3 >> divi / 2) then (start := (start / 5) * 6, divi := start ^ 2) if (fi / 4 >> divi / 3) then (start := (start / 7) * 8, divi := start ^ 2) ) while (approx == -1) do, begin if (divi >= fi) then (approx := start) else ( increment (start) divi := start ^ 2 ) end if (divi == fi) then (return (approx)) else, begin if ((divi -- approx) == fi) then (return (approx -- 1)) else (return (fi / approx + 1)) end end end # Test flow control script, benchmark: crappy sqrt, begin variable (i) for (i, 0, 80) do (crappy sqrt (i)) end #------------------- some scripts from DoomRPG (stripped down) ----------------------------- global variable, begin 1, flames container end define constant, begin # Starting ID of a 2D array of FIRE HEIGHT * FIRE WIDTH global variables. # Cells from bottom to top, left to right. Each contains a value from 0 to 255 #300, fire array 3, CELL WIDTH 3, CELL HEIGHT 107, FIRE WIDTH 5, FIRE HEIGHT 15, FIELD HEIGHT 383, DECAY 12, COOLING MIN MIN 40, COOLING MIN MAX 12, COOLING RANGE end script, DOOM initialise flames, begin variable (x, y, i, sl) flames container := create container (320, FIELD HEIGHT) set slice visible (flames container, false) # create the "pixel" slices for (i, 0, FIRE HEIGHT -- 1) do ( for (x, 0, 320 -- 1, CELL WIDTH) do ( y := FIELD HEIGHT -- i * CELL HEIGHT sl := load border sprite (0) set parent (sl, flames container) put slice (sl, x, y) ) ) end script, DOOM flames recalc, begin variable (xi, yi, val, ptr, ptr below, new val, low limit) for (yi, 1, FIRE HEIGHT -- 1) do ( ptr := fire array + yi * FIRE WIDTH + 1 ptr below := ptr -- FIRE WIDTH low limit := COOLING MIN MIN + (COOLING MIN MAX -- COOLING MIN MIN) * yi / (FIREHEIGHT -- 1) for (xi, 1, FIRE WIDTH -- 2) do ( write global (ptr, 67 * (2 * (read global(ptr) + read global(ptr below)) + read global(ptr below -- 1) + read global(ptr below + 1) -- random(low limit, low limit + COOLING RANGE) ) / (DECAY) ) ptr += 1 ptr below += 1 ) ) end script, DOOM flames update, begin # update slices (bottom to top) variable (sl, ptr, i, x, y, val) sl := slice child (flames container, FIRE WIDTH) #skip first row ptr := fire array + FIRE WIDTH for (i, FIRE WIDTH, FIRE WIDTH * FIRE HEIGHT -- 1) do ( y := FIREHEIGHT -- i / FIRE WIDTH x := i, mod, FIRE WIDTH val := read global (ptr) if (val >= 16 * 16) then ( set sprite frame (sl, 0) ) else ( val += read map block (x, y) *60/ 100 set sprite frame (sl, 15 -- (abs(val) + val) / (16 * 2)) ) ptr += 1 sl := next sibling (sl) ) end #------------------------------------------------------------------------ # Test reading and writing globals with quite a bit of math script, benchmark: DOOM flames recalc, begin variable (i) #for (i, 0, 49) do ( DOOM flames recalc #) end # Test creating and deleting lots of slices script, benchmark: DOOM flames create and destroy, begin DOOM initialise flames free slice (flames container) end # Test iterating over slices, reading globals and map blocks, and "set sprite frame", with some math/logic script, benchmark: DOOM flames update, begin variable (i) #for (i, 0, 49) do ( DOOM flames update #) end OHRRPGCE.P00 @@DEFPAL3.BIN