antoine-source/picknpile/SOURCES.IIGS/MAIN.SRC

****************************************************************
*
*              Pick'n Pile GS
*              --------------
*
* Version      :        Master
* Conversion   :        Atreid Concept SA
****************************************************************

         list off
         absaddr on
         instime on
         gen off
         symbol off
         keep Shell

         mcopy Sh.Macros


True           gequ $8000
False          gequ $0000
GSOS           gequ $e100b0



Shell          START Main

               phk
               plb
               tdc
               sta MyZp
               tcs
               sta MyStack
               lda #Decoy1Rout-1000
               sta Decoy1+1

               jsr InitStuff            ;preparation du jeu
               bcs AllDone

               jsr PlayWithIt           ;on va jouer

AllDone        anop                     ;on s'en va
               ldx #0
               lda #0
AllDoneClear   anop
               sta >$e12000,x
               sta >$012000,x
               inx
               inx
               cpx #32000
               bne AllDoneClear

               phd

               PushLong #MyVBL
               _DelHeartBeat

               ldx #0
FreeMemory     anop
               lda Handle1,x
               sta Temp
               lda Handle1+2,x
               sta Temp+2
               phx

               PushLong Temp
               _DisposeHandle

               plx
               inx
               inx
               inx
               inx
               cpx #31*4                ;dispose de 31 handles
               bne FreeMemory

               _SoundShutDown

               PushLong SoundZPhdl
               _DisposeHandle

               _IMShutDown

               _MTShutDown

               PushWord MyID
               _MMShutDown

               _TLShutDown

               PushLong #QuitParams
               PushWord #$2029
               jsl GSOS

               brk $F0





phplay1        str '1. 1 PLAYER'
phplay2        str '1. 2 PLAYERS'
phlevelhard    str '2. LEVEL HARD'
phleveleasy    str '2. LEVEL EASY'
phjoy          str '3. JOYSTICK'
phmouse        str '3. MOUSE KEYS'
phtictac1      str '4. TICTAC ON'
phtictac2      str '4. TICTAC OFF'
phgameover     str 'GAME OVER'
phextralife    str 'EXTRA LIFE'
phbest         str 'ENTER YOUR NAME'
phtolate       str 'SORRY TOO LATE !'
phplayer1      str 'PLAYER 1'
phplayer2      str 'PLAYER 2'
phready        str 'READY !'
phPause        str 'PAUSE'
name1          str ']]]]]]]]]]'
name2          str ']]]]]]]]]]'
phnumber1      str 'RANK  :'
phlevel1       str 'LEVEL :'
phname1        str 'NAME  :'
phscore        str 'SCORE :'
phhi           str 'BEST SCORES'

vbest          anop
               dc i2'10'
               str 'NICOLAS   '
               dc i4'100000'
               dc i2'8'
               str 'MICHEL    '
               dc i4'70000'
               dc i2'6'
               str 'VERONIQUE '
               dc i4'50000'
               dc i2'4'
               str 'SYLVIE    '
               dc i4'20000'
               dc i2'2'
               str 'SERGE     '
               dc i4'10000'
               ds 20
vbestend       anop

ErrStringMem   dc h'7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f',h'0d'
               dc h'7f7f',c' Memory Error ! ',h'7f7f',h'0d'
               dc h'7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f',h'0'
ErrStringDOS   dc h'7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f',h'0d'
               dc h'7f7f',c' Disk Error ! ',h'7f7f',h'0d'
               dc h'7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f',h'0'
ErrStringKey   dc c' Press a key. ',h'0'
ErrStringQuit  dc c' Leaving the game: ',h'0'

PassString     dc h'1f',c'Enter the password for...',h'1f0d0d'
               dc c'   Row   : ',h'1e',c'  '
PassStringX    dc c'1 ',h'1e0d'
               dc c'   Line  : ',h'1e',c' '
PassStringY    dc c'01 ',h'1e0d0d'
               dc c'      >>>',h'0'

CopyRights     dc h'1e',c'***** Pick n Pile *****',h'1e0d'
               dc c'   (c) UBI Soft 1990',h'0d0d'
               dc h'1f',c'     Atreid Concept