PSION CD 2

home *** CD-ROM | disk | FTP | other *** search

/ PSION CD 2 / PsionCDVol2.iso / Programs / 554 / TileFallColour.SIS / TileFall.app / TileFall.txt

Wrap

Text File | 2000-04-30 | 6.8 KB | 745 lines

!C:\Programs\TileFall\TileFall.pre TBARLINK Z:\System\OPL\Toolbar mainO MAINWIN& GFXWIN& TPICWIN& UNDOWIN& HELPTHREAD& RSCID& TBARICON_NEW& TBARMASK_NEW& TBARICON_HS& TBARMASK_HS& TBARICON_UNDO& TBARMASK_UNDO& TBARICON_PREFS& TBARMASK_PREFS& SPRITE& SPRITEPTRBMP& SPRITEMASKBMP& MENUPOS% GSCRWIDTH% GSCRHEIGHT% GSCRTYPE% PATH$ TILEPATH$ SNDPATH$ GFXFILE$ TWIDTH% THEIGHT% BOARD% UNDO% UNDOOK% UNDOTLS% UNDOSCR% UNDOMXX% UNDOTILETYPE% TILECOUNT% BRDLEFT% BRDTOP% TILESX% TILESY% MAXCOL% PTRX% PTRY% PTRSHOWN% SCORE% REMAIN% SOUNDON% SNDSTAT& BRDSIZE% NUMTILE% TILESET$ # TILETYPE% SHIFT% CTRL% CANDO% REGNAME$ REGCODE$ TOURNMODE% TOURNROUND% TOURNROUNDS% TOURNSEED& TOURNNAME$ TOURNSCORES% TOURNBESTSCORES% TOURNBESTNAMES$ HSNAME$ VERSION$ MSGBOX GETSYSTEMSETTINGS LOADKEY LOADPREF LOADTSET% INTRO INITTOOLBAR INITGAME SAVEPREF (^!%' + TileSets\K Sounds\K TileFall.rscKW Unable to open + TileFall.rscKO TileFall.rscK )s Ba Blocks.tsetO )t Ba COLORAVAILABLE% GSCRWIDTH% GSCRHEIGHT% PATH$ GSCRTYPE% GFXFILE$ Support.er5K TileGfx.mbmK TileGfxS.mbmK TileGfxC.mbmK TileGfx.mbmK Support.er5K SEEDRAND INITSPRITE GSCRTYPE% TWIDTH% THEIGHT% GFXWIN& MAINWIN& GSCRWIDTH% GSCRHEIGHT% UNDOWIN& SPRITEPTRBMP& GFXFILE$ SPRITEMASKBMP& SPRITE& MAINWIN& xO2h{O2h{O SPTTBARINITC TBARINIT TBARBUTT TBARSHOW GSCRWIDTH% PATH$ GSCRTYPE% GSCRHEIGHT% TBARICON_NEW& GFXFILE$ TBARMASK_NEW& TBARICON_HS& TBARMASK_HS& TBARICON_UNDO& TBARMASK_UNDO& TBARICON_PREFS& TBARMASK_PREFS& MAINWIN& TBWIDTH% Support.er5K + Tile FallO + Tile FallO Support.er5K )N Ba K)O Ba )Q Ba K)R Ba )T Ba K)U Ba )W Ba K)X Ba )P Ba )S Ba )V Ba )Y Ba LOADTSET_DOIT% GSCRTYPE% TPICWIN& TILEPATH$ GFXWIN& GSCRTYPE% TWIDTH% THEIGHT% MAINWIN& SOUNDON% TILETYPE% BRDSIZE% NUMTILE% TILESET$ PATH$ TILEPATH$ CANDO% Blocks.tset TileFall.iniKO .TSETG`[ Blocks.tset PATH$ SOUNDON% BRDSIZE% NUMTILE% TILESET$ TILETYPE% TileFall.iniK( GETKEY% GFXFILE$ MAINWIN& GSCRHEIGHT% GSCRWIDTH% VERSION$ GSCRTYPE% CANDO% REGNAME$ OUOUOU ) Ba OUOUOU CLEARREMAINING DRAWPTR RNDBOARD SHOWREMAINING DRAWALL SCORE% UNDOOK% BRDLEFT% BRDTOP% TILESX% TWIDTH% TILESY% THEIGHT% BRDSIZE% MAXCOL% GSCRHEIGHT% TOURNMODE% REMAIN% GFXFILE$ MAINWIN& GSCRTYPE% TOURNROUND% TOURNROUNDS% PTRX% PTRY% )C Ba K)D Ba INITTOURNAMENTROUND INITGAME CANDO% BRDSIZE% NUMTILE% TOURNROUNDS% TOURNSEED& TOURNMODE% TOURNBESTSCORES% TOURNBESTNAMES$ + Tile Fall )z Ba ){ Ba )| Ba 5w}RW '{Q}JW |WBOd{Q}JW |WB}Jz )= Ba )> Ba 1,2,3,4,5,6,7,8,9,10 )/ Ba )0 Ba )2 Ba 2,3,4,5 )? Ba GETTOURNNAME TOURNROUND% TOURNSEED& TOURNNAME$ )@ Ba )A Ba )B Ba |WBOd{QIW SOUNDON% SNDSTAT& TBAROFFER% DRAWPTR SHIFT% CTRL% BRDLEFT% BRDTOP% TWIDTH% THEIGHT% TILESX% TILESY% PTRX% PTRY% PTRSHOWN% (^!%' {9\[\ {1\[0 YESNO% INITGAME TOURNMODE% )E Ba SHOWHS DOUNDO DOPREFS UNDOOK% TOURNMODE% MENUPOS% SHIFT% CTRL% )Z Ba )[ Ba On)\ Ba Ozh)] Ba Os)^ Ba Omh)_ Ba )Z Ba )[ Ba Onh)] Ba Os)^ Ba Omh)_ Ba )` Ba )a Ba )` Ba )a Ba Ot)b Ba Oc)c Ba Oo)d Ba )e Ba )f Ba Ok)g Ba Orh)h Ba OH)i Ba DRAWALL LOADTSET% MSGBOX INITGAME TILEPATH$ GSCRTYPE% TILESET$ BRDSIZE% NUMTILE% SOUNDON% TILETYPE% CANDO% TOURNMODE% *.*KW .TSETC .TSETCC ,...K ), Ba )/ Ba )0 Ba )2 Ba 2,3,4,5 )3 Ba )4 Ba )- Ba ). Ba )/ Ba )1 Ba )2 Ba )3 Ba )5 Ba )6 Ba )7 Ba )8 Ba + Tile Fall )9 Ba ): Ba ); Ba )< Ba ,...C[ .tsetK )u Ba SETSQR TILECOUNT% NUMTILE% TILESX% TILESY% MAXCOL% TILESY% BOARD% MAXCOL% TILESY% BOARD% DRAWTILE BRDLEFT% BRDTOP% TILESY% THEIGHT% TILESX% TWIDTH% GETSQR% GETSURR% TWIDTH% BRDLEFT% THEIGHT% BRDTOP% TILETYPE% GFXWIN& GETSQR% PTRSHOWN% BRDLEFT% TWIDTH% BRDTOP% THEIGHT% FLUSHKEY SHOWSCR SHOWREMAINING GETKEY% DOMENUS% KEYPRESS (^!%' TWIDTH% GSCRHEIGHT% SCORE% REMAIN% |*ffffff TWIDTH% GSCRHEIGHT% GSCRWIDTH% NUMTILE% THEIGHT% GFXWIN& TILECOUNT% 99W2H |*333333 TWIDTH% GSCRHEIGHT% THEIGHT% YESNO% CMDA% INITTOURNAMENT SHOWHS MERGEHS REGISTER DOUNDO DOPREFS SHOWTOURNSCORES MSGBOX INITTOURNAMENTROUND INITGAME ABOUT DOHELP DRAWPTR REMTILES TESTFIN% SHOWSCR SHOWREMAINING PLAYSND ADDHS% DOMENUS CTRL% SHIFT% TOURNMODE% TOURNSEED& PTRX% PTRY% TOURNROUND% TOURNROUNDS% SCORE% REMAIN% TOURNBESTSCORES% TOURNBESTNAMES$ TOURNNAME$ SNDPATH$ TOURNSCORES% TILESY% MAXCOL% PTRSHOWN% )? Ba )F Ba )G Ba K)D Ba 1000( )H Ba )I Ba )J Ba )I Ba HScore.sndKO GETSQR% PLAYSND MAKEUNDO TESTREM% SETSQR DRAWTILE CRUNCH SNDPATH$ MAXCOL% TILESY% SCORE% REMAIN% UNDOTLS% UNDOSCR% UNDOMXX% UNDOTILETYPE% TILECOUNT% (^!%' + Click.sndKO MAXCOL% TILESY% GETSQR% SETSQR DRAWTILE PLAYSND TILESY% MAXCOL% SNDPATH$ (^!%' Drop.sndKO GETSQR% PLAYSND SETSQR DRAWTILE TILESY% TWIDTH% BRDLEFT% BRDTOP% TILESX% THEIGHT% MAXCOL% SNDPATH$ PTRX% (^!%' hD\[ + Slide.sndKO GETSQR% TILESY% MAXCOL% UNDO% BOARD% UNDOOK% UNDOWIN& MAINWIN& BRDLEFT% BRDTOP% TILESX% TWIDTH% TILESY% THEIGHT% MSGBOX PLAYSND UNDOOK% SNDPATH$ BOARD% UNDO% REMAIN% UNDOTLS% SCORE% UNDOSCR% MAXCOL% UNDOMXX% TILECOUNT% UNDOTILETYPE% BRDLEFT% BRDTOP% UNDOWIN& TILESX% TWIDTH% TILESY% THEIGHT% Undo.sndKO LOADHS SAVEHS HSNAME$ + Tile Fall ) Ba )! Ba LOADHS GETKEY% GSCRWIDTH% GSCRHEIGHT% BRDSIZE% NUMTILE% GSCRTYPE% MAINWIN& |*ffffff )" Ba )# Ba )$ Ba )% Ba . K CREATEHS CLEARHS MSGBOX PATH$ BRDSIZE% NUMTILE% (^!%' TileFall.scrK( TileFall.scrK( )v Ba CREATEHS CLEARHS PATH$ BRDSIZE% NUMTILE% (^!%' TileFall.scrK( TileFall.scrK( K PATH$ TileFall.scrK( MSGBOX LOADHS ADDHS% SAVEHS NUMTILE% BRDSIZE% HSNAME$ CANDO% PATH$ GSCRHEIGHT% GSCRWIDTH% MAINWIN& + Tile Fall )} Ba )~ Ba *.sc* + Tile Fall )& Ba File,Folder,Disk( TileFall.scrKW )w Ba )x Ba )y Ba )' Ba QOx{UxO )( Ba 1K)* Ba )) Ba K)+ Ba GETKEY% TOURNROUNDS% GSCRHEIGHT% GSCRWIDTH% GSCRTYPE% TOURNROUND% TOURNSCORES% TOURNBESTSCORES% TOURNBESTNAMES$ MAINWIN& )K Ba ?RyO! )L Ba |*333333 |*333333 )M Ba |*333333 |*333333 |*333333 )I Ba HELPTHREAD& PATH$ O!h@[, TileFall.hlpK+ HELPTHREAD& + Tile Fall VALIDATEKEY% SAVEKEY DRAWALL CANDO% REGNAME$ REGCODE$ TILETYPE% (^!%' + Tile Fall + Tile Fall )j Ba )k Ba )l Ba )m Ba KeyCode:O + Tile Fall )n Ba )o Ba + Tile Fall )p Ba )q Ba )r Ba PATH$ REGNAME$ REGCODE$ (^!%' TileFall.keyK( VALIDATEKEY% PATH$ REGNAME$ REGCODE$ CANDO% (^!%' TileFall.keyKO DEHEX% (^!%' (^!%' GSCRWIDTH% GSCRHEIGHT% GSCRTYPE% GFXFILE$ VERSION$ MAINWIN& (^!%' +(Copyright 1996-2000 Adam Dawes & NEUON Email: adam@neuon.com URL: http://www.neuon.com START6 MAINw GETSYSTEMSETTINGS% INIT< INITSPRITEp INITTOOLBAR LOADTSET% LOADTSET_DOIT% LOADPREF. SAVEPREF5 INTRO INITGAME INITTOURNAMENT INITTOURNAMENTROUND GETTOURNNAME5 SEEDRAND PLAYSND FLUSHKEY4 GETKEY%K CMDA%[ CMDB% CMDC% CMDD% DOMENUS%0 DOPREFS RNDBOARD GETSQR% SETSQRM% DRAWALL DRAWTILE GETSURR%{' DRAWPTR SHOWSCRo) SHOWREMAINING CLEARREMAINING YESNO%=. KEYPRESS REMTILES TESTREM%y: DROPQ; CRUNCH TESTFIN%"? MAKEUNDO DOUNDO ADDHS%EB SHOWHS LOADHS SAVEHSUH CLEARHS CREATEHS MERGEHS SHOWTOURNSCORES3O DOHELPdR MSGBOX S REGISTERPS SAVEKEY LOADKEY VALIDATEKEY% DEHEX% ABOUT SYSTEM\