X-Git-Url: http://git.shiar.net/wormy.git/blobdiff_plain/6624b13cbde902470fcebf219beb843fe07e5aed..711d2428b9a29f7c412e208f87f109b9671424a3:/wormy.z80 diff --git a/wormy.z80 b/wormy.z80 index 386a5bc..b7db1ce 100644 --- a/wormy.z80 +++ b/wormy.z80 @@ -1,6 +1,6 @@ ; Title : Wormy -; Version : 92% -; Release Date : june 2000 +; Version : 93% +; Release Date : summer 2001 ; Filename : wormy.86p (5kb) ; Author(s) : Shiar ; Email Address : shiar0@hotmail.com @@ -16,14 +16,13 @@ ;----------- TO-DO ----------- ;----------------------------- -; 92% = DONE +; 93% = DONE -; * customizable keys ; * internal levels ; * check levels/gametype ; * enough hiscore saves! ; * complete readme -; 2% * misc (pollish, bugs, &&&) +; 1% * misc (pollish, bugs, &&&) ; * LINK ; 2% * fix deaths linkplay and transmit game/level data ; 2% * make linkplay available for all gametypes (not just deathmatch) @@ -41,7 +40,9 @@ ;----------------------------- #define buffer ;use display buffer (otherwise write directly to screen) -#define readymask ;"grays" out the field before starting a level +#define readymask ;"greys" out the field before starting a level +;#define hlines ;horizontal-line routine for more speed drawing boxes + ;(doesn't work properly) ;#define readytext ;displays "prepare" before level starts ;#define invincible ;worms cannot die =) @@ -53,12 +54,12 @@ #include "asm86.h" #include "ti86asm.inc" -_SHRACC = $4383 -_SHLACC = $438B +_SHRACC = $4383 ;4x srl a +_SHLACC = $438B ;4x sll a _divHLby10 = $4044 ;hl=hl/10 _divAby10 = $4DAF ;a=a/10 _HLTIMES10 = $41BF ;hl=hl*10 -_cphlde = $403C +_cphlde = $403C ;cp hl,de _clrWindow = $4A86 ;clear screen _asapvar = $D6FC ;own name (worm) _MOV4B = $429B ;4x ld (de),(hl) @@ -76,12 +77,13 @@ _SET_ABS_DEST_ADDR = $5285 ;set destination for mm.ldir = ahl _SET_MM_NUM_BYTES = $464F ;number of bytes for mm.ldir = ahl _mm_ldir = $52ED ;24bit ldir _RAM_PAGE_1 = $47E3 ;set $8000+ to page 1 -_RAM_PAGE_7 = $47F3 +_RAM_PAGE_7 = $47F3 ;"""" 7 _PTEMP_END = $D29A ;end of VAT _load_ram_ahl = $462F ;ahl->page+hl _writeb_inc_ahl = $5567 ;ld (ahl),c _jforce = $409C ;TI-OS stack restored _EXLP = $4493 ;swap (hl),(de) b times +_GETB_AHL = $46C3 ;a=(ahl) \ hl=ahl ;----------------------------- ;------- data storage ------- @@ -124,18 +126,18 @@ DispBuffer = $FC70 .org _asm_exec_ram -wormVhost = 092 -wormVclient = 192 +wormVhost = 093 +wormVclient = 193 start: nop jp Start .dw 1 - .dw WormMsg + .dw WormTxt .dw WormIcon -WormMsg: - .db "WORMY by SHIAR -- alpha 92%",0 +WormTxt: + .db "WORMY by SHIAR -- beta 93%",0 WormIcon: .db 9,2 .db %10010110,%01101111 @@ -149,7 +151,7 @@ WormIcon: .db %11000011,%10000000 levelhead = 'w' -levelhead2 = 92 ;wormy levels header = "92" +levelhead2 = 93 ;wormy levels header = "93" int_handler: ex af,af' @@ -188,7 +190,7 @@ Start: cal _RAM_PAGE_7 ld hl,$BFFF ;VAT start - ld bc,templevels + ld ix,templevels searchloop: ld de,(_PTEMP_END+1) ;VAT end or a ;nc @@ -200,20 +202,17 @@ searchloop: cp $0C ;string jr z,stringfound searchnext: - cal _RAM_PAGE_7 pop hl dec hl ;5x dec hl dec hl dec hl dec hl - psh bc ld b,(hl) ;name size inc b skipname: dec hl dnz skipname - pop bc jr searchloop stringfound: @@ -226,23 +225,23 @@ stringfound: ex de,hl ;ld ahl,(hl) cal _AHL_PLUS_2_PG3 ;string id cal _Get_Word_ahl ;ld de,(ahl) - cal _RAM_PAGE_1 - ld (bc),a + ld (ix),a ld a,levelhead cp e - jr nz,searchnext ;not worm + jr nz,_searchnext ;not worm ld a,levelhead2 cp d - jr nz,searchnext - - inc bc - ld a,h - ld (bc),a - inc bc - ld a,l - ld (bc),a - inc bc - jr searchnext + jr nz,_searchnext + inc ix ;save level's ahl + ld a,h + ld (ix),a + inc ix + ld a,l + ld (ix),a + inc ix +_searchnext: + cal _RAM_PAGE_7 + jr searchnext loadgametype: psh de @@ -267,70 +266,115 @@ defaultlevels: ret searchcomplete: - cal _RAM_PAGE_1 ld a,255 - ld (bc),a ;end mark + ld (ix),a ;end mark + + cal _clrWindow ld hl,templevels-3 -dispnextlevel: - cal _RAM_PAGE_1 psh hl - cal _clrWindow - ld a,2 - ld (_curRow),a + ld hl,$0020 + ld (_penCol),hl ld hl,txtLevsel - cal _puts ;"< Select levels: >" - ld hl,$0004 - ld (_curRow),hl + cal _vputs ;"< Select levels: >" + ld hl,$0601 ;x=1 + ld (_penCol),hl pop hl +dispnextlevel: ld a,(hl) - cp 255 ;&& - jr nz,displevel - ld hl,templevels-3 - ld a,(hl) + inc a ;cp 255 + jr z,_levselect + ld a,(hl) ;ade=(hl) displevel: inc hl ld d,(hl) inc hl ld e,(hl) - inc hl ;ade=(hl) - psh hl ;HL - ld c,a - ld h,d - ld l,e ;cde=ahl=(hl) + inc hl + psh hl + ex de,hl ;ahl=ade=(hl) cal _load_ram_ahl ;hl=ahl ld b,(hl) ;b=title size - psh bc - cal _putps ;destr=abchl - pop bc ;cde=hl - pop hl ;HL + cal _vputs + ld hl,_penCol + ld (hl),$01 ;x=1 + inc hl + ld a,(hl) + add a,6 + ld (hl),a ;y+6 + ld hl,availevels + inc (hl) + pop hl + jr dispnextlevel + +levup: + cal menupos + dec b ;up + ld a,b + cp -4 + jr nz,levselected + inc b ;undo + jr levselected +levdown: + cal menupos + inc b ;down + ld a,b + cp -3 +availevels =$-1 + jr nz,levselected + dec b ;back up +levselected: + jp menupos + +_levselect: + ld b,-3 ;level selected + cal menupos levselect: - halt - psh hl - psh de + halt \ halt psh bc cal GET_KEY - pop bc - pop de - pop hl - cp K_RIGHT - jr z,dispnextlevel - sub K_SECOND + pop bc ;GET_KEY destr. b + cp K_UP + cal z,levup + dec a ;K_DOWN + cal z,levdown + cp K_SECOND-1 jr z,loadlevel - dec a ;K_EXIT + cp K_EXIT-1 ret z - cp K_ENTER-K_EXIT+256 + cp K_ENTER-1 jr nz,levselect +; jr z,loadlevel loadlevel: - ld a,c + ld a,b + add a,3 ;sellev+3 (#0==-3) + ld e,a + add a,a ;*2 + add a,e ;*3 + ld e,a + ld d,0 ;de=sellev*3 + ld hl,templevels-3 + add hl,de + ld a,(hl) ;ade=(hl) or a ;levelfile on page 0 (=internal) jr z,levelloaded - ex de,hl ;ahl=cde - inc b ;b=titlesize+1 + inc hl + ld d,(hl) + inc hl + ld e,(hl) + ex de,hl ;ahl=ade skiptitle: - cal _INC_PTR_AHL - dnz skiptitle + ld b,a ;psh ahl + psh hl + cal _GETB_AHL ;ld a,(ahl) + pop hl + or a + ld a,b ;pop ahl + psh af + cal _INC_PTR_AHL ;ahl++ + pop af ;cp 0 + jr nz,skiptitle ;goto #0-terminator cal _Get_Word_ahl ld (leveldataSize),de @@ -367,6 +411,14 @@ levelloaded: ld a,r ld (Seed),a + ld hl,datasingle+3 + ld b,8 + ld de,8 +setdeflevels: + ld (hl),1 ;def=level#1 + add hl,de ;next + dnz setdeflevels + ;----------------------------- ;----- build trig tables ----- ;----------------------------- @@ -398,61 +450,297 @@ NegativeSineWave: ;---------- menu ------------- ;----------------------------- - ld a,1 - ld (curlevel),a - -;--- draw menu --- - -DisplayMenu: +DisplayMenu: ;---draw menu--- + cal linkok cal _clrWindow - ld de,$FC42 ;(10,2) + ld de,$FC40 ;(0,4) ld hl,wtPicture - ld a,16 ;height -disptitleloop: - ld bc,8 ;width + ld bc,16*16 ldir - ex de,hl - ld bc,8 ;next line - add hl,bc - ex de,hl - dec a - jr nz,disptitleloop + ld hl,$FC00+$160 + cal hr + ld hl,$FC00+$3E0 + cal hr +dispmainmenu: + ld hl,dispmenusets ;mainMenu + psh hl ;jump here after ret ld hl,txtMenu - ld de,$0D5A - ld (_penCol),de - cal _vputs ;by Shiar - - ld de,$0207 - ld (_curRow),de - cal _puts ;Level <00> - dec e ;$0206 - ld (_curRow),de - cal _puts ;Limit <00> - dec e ;$0205 - ld (_curRow),de - cal _puts ;Worms <2> - dec e ;$0204 - ld (_curRow),de - ld hl,(CURtxtGame) - cal _puts ;Singleplayer + ld ix,posMenu +;Mode|Level|Limit|Worms|worm #|controls +; jr dispmenucommon ;cal +dispmenucommon: + ld de,$FD80 ;begin pos + ld b,36*16/3 xor a - cal menudraw - jr howmanyworms +clroldmenuloop: + ld (de),a + inc de + ld (de),a + inc de + ld (de),a + inc de + dnz clroldmenuloop + + ld b,6 +dispmenuloop: + ld d,(ix) + inc ix + ld e,(ix) + inc ix + ld (_penCol),de + cal _vputs + dnz dispmenuloop +; ld b,0 ;b=menu# + ret + +hr: ;draw horizontal line at hl + ld b,16 +hrloop: + ld (hl),-1 + inc hl + dnz hrloop + ret ;--- menu loop --- +dispoptionmenu: + ld hl,txtoMenu + ld ix,posoMenu +;Back|Lives|Limit|Speed|Rotation|Growth + cal dispmenucommon + +dispomenusets: + cal clrold + + ld hl,$1E3E + ld (_penCol),hl + cal loadgamecar + psh hl + cal cshowA ;lives + + ld hl,$2A3E + ld (_penCol),hl + pop hl ;loadgamecar + inc hl \ inc hl \ inc hl + psh hl + ld a,(hl) ;(Speed) + inc a ;1..99 + jr nz,dispspeed + ld hl,txtDef + cal _vputs + jr dispspeeddone +dispspeed: + cal cshowA +dispspeeddone: + + ld hl,$363E + ld (_penCol),hl + pop hl ;loadgamecar + inc hl + psh hl + ld a,(hl) ;(growth) + inc a ;-1=None; 0..98->1..99 + cal cshowA + + ld hl,$303E + ld (_penCol),hl + pop hl ;loadgamecar + inc hl + psh hl + ld a,(hl) + cp 8 + jr nz,dispturn + ld hl,txtDef + cal _vputs + jr dispturndone +dispturn: + cal cshowA ;turn speed +dispturndone: + + ld hl,$243E + ld (_penCol),hl + pop hl ;loadgamecar + inc hl + ld a,(hl) ;(scorelimit) + or a + psh af + cal cshowA ;limit + pop af ;a==0? + jr z,optionMenu ;do not display 0 behind 'None' + ld a,'0' + cal _vputmap ;x10 + +optionMenu: + cal menupos + cal menucall + jr nz,notoselect +oselect: + cal menupos + ld a,b + or a ;1st item? + jp z,dispmainmenu ;mainMenu + jr optionMenu +notoselect + cp K_EXIT + jp z,dispmainmenu + psh af + cal menupos + cal loadgamecar + inc hl + pop af + cp K_LEFT + jr z,seloleft + cp K_RIGHT + ld a,b + jr nz,optionMenu + +seloright: + dec a + jr z,changelives + dec a + jr z,changelimit + dec a + jr z,changespeed + dec a + jr z,changeturn + dec a + jr z,changegrowth + +seloleft: + ld a,b + dec a + jr z,bchangelives + dec a + jr z,bchangelimit + dec a + jr z,bchangespeed + dec a + jr z,bchangeturn + dec a + jr z,bchangegrowth +_optionMenu: + jr optionMenu + +changelives: + cal loadgamecar ;a=(hl) + inc a + cp 100 + jr nc,optionMenu ;>99 +changedlives: + ld (hl),a +_dispomenusets: + jp dispomenusets ;optionMenu +bchangelives: + cal loadgamecar + sub 1 ;dec does not set cf + jr c,optionMenu ;<0 + jr changedlives + +changelimit: + cal changelimitInit + inc a + cp 100 + jr nc,optionMenu ;>99 +changedlimit: + ld (hl),a + jr _dispomenusets ;optionMenu +bchangelimit: + cal changelimitInit + sub 1 ;dec does not set cf + jr c,optionMenu ;<0 + jr changedlimit +changelimitInit: + cal loadgamecar + ld de,6 + add hl,de + ld a,(hl) ;(scorelimit) + ret + +changespeed: + cal changespeedInit + inc a + cp 99 + jr nc,_optionMenu ;>98 +changedspeed: + dec hl ;(Speed) + ld (hl),a + jr _dispomenusets ;optionMenu +bchangespeed: + cal changespeedInit + dec a + cp -2 +__optionMenu: ;w/ zf + jr z,_optionMenu ;<-1 + jr changedspeed +changespeedInit: + cal loadgamecar + ld de,3 + add hl,de + ld a,(hl) ;(Speed) + inc hl ;=saves 2 bytes :P + ret + +changeturn: + cal changespeedInit + inc hl ;(turnspeed) + ld a,(hl) + inc a + cp 26 + jr nc,_optionMenu ;>25 +changedturn: + ld (hl),a + jr _dispomenusets ;optionMenu +bchangeturn: + cal changespeedInit + inc hl + ld a,(hl) + dec a + cp 3 + jr c,_optionMenu ;<3 + jr changedturn + +changegrowth: + cal changespeedInit + ld a,(hl) + inc a + cp 99 + jr nc,_optionMenu ;>98 +changedgrowth: + ld (hl),a + jr _dispomenusets ;optionMenu +bchangegrowth: + cal changespeedInit + ld a,(hl) + dec a + cp -2 + jr z,__optionMenu ;<-1 + jr changedgrowth + +;--- + mainMenu: + cal menupos cal menucall jr nz,notselect select: ;2nd/enter + cal menupos ld a,b - dec a ;2nd item + dec a ;2nd item: level + jp z,dispoptionmenu + sub 3 ;5th item: wormname jp z,changeworms - jp LetsGetThisPartyOn ;1/3/4 + dec a ;6th: controls + jp z,changekeys + jp LetsGetThisPartyOn ;otherwise notselect cp K_EXIT jp z,ExitNoStats + psh af + cal menupos + cal loadgamecar + inc hl + pop af cp K_LEFT jr z,selleft cp K_RIGHT @@ -463,141 +751,184 @@ selright: or a jr z,changegame dec a - jr z,changenrworms + jp z,changelevel ;&&&jr?? + dec a +; jr z,changelives dec a - jp z,changelives + jr z,changenrworms +; dec a +; jr z,changecurworm -changelevel: - ld hl,Gametype - ld d,0 - ld e,(hl) - ld hl,nrlevels - add hl,de - ld d,(hl) ;max level for sel.game -curlevel =$+1 - ld a,1 +changecurworm: +; hl=nrworms + ld a,(curworm) + cp (hl) + jr nc,mainMenu ;may not become >(nrworms) inc a - cp d - jr c,changedlevel - ld a,d -changedlevel: - ld (curlevel),a -_dispcurlevel: - ld hl,$0807 - ld (_curRow),hl - cal showA - jp displives ;mainMenu +changedcurworm: + ld (curworm),a + jr _dispmenusets ;mainMenu selleft: ld a,b + or a + jr z,bchangegame dec a - jr z,bchangenrworms + jr z,bchangelevel dec a - jp z,bchangelives +; jr z,bchangelives dec a - jr nz,mainMenu + jr z,bchangenrworms +; dec a +; jr z,bchangecurworm -bchangelevel: - ld a,(curlevel) - dec a - jr nz,changedlevel +bchangecurworm: + ld a,(curworm) + dec a ;0-3 + jr nz,changedcurworm ;save >0 + jr mainMenu + +changenrworms: + ld a,(Gametype) + cp 2 + jr c,mainMenu ;type 0/1 + ;hl=nrworms + ld a,(hl) + inc a + cp 5 + jr nc,mainMenu ;may not be >4 +changednrworms: + ld (hl),a +_dispmenusets: + jr dispmenusets ;mainMenu +bchangenrworms: + ;hl=nrworms + ld a,(hl) + dec a ;0-3 + jr nz,changednrworms ;save >0 _mainMenu: jr mainMenu changegame: - ld a,1 - ld (curlevel),a ld a,0 Gametype =$-1 - ld hl,txtGame2 -NEXTtxtGame =$-2 inc a +changedgame: and 7 ;mod 8 - jr nz,okilydokily - ld hl,txtGame -okilydokily: ld (Gametype),a - ld de,$0204 - ld (_curRow),de - ld (CURtxtGame),hl - cal _puts - ld (NEXTtxtGame),hl -howmanyworms: - ld hl,nrworms + jr dispmenusets ;mainMenu +bchangegame: ld a,(Gametype) - cp 2 - ld (hl),1 - jr c,dispnrworms - inc (hl) ;2 - jr dispnrworms ;mainMenu + dec a + jr changedgame -changenrworms: +changelevel: + inc hl ;hl=loadgamecar+2 + psh hl + ld a,(hl) ;(curlevel) + ld hl,Gametype + ld d,0 + ld e,(hl) + ld hl,nrlevels + add hl,de + cp (hl) ;max level for sel.game + pop hl + jr z,_mainMenu + inc a +changedlevel: + ld (hl),a + jr dispmenusets ;mainMenu +bchangelevel: + inc hl + ld a,(hl) ;(curlevel) + dec a + jr nz,changedlevel + jr _mainMenu + +getcustomkey: + cal _vputs + dec ix +waitcustomkey: + halt \ halt + psh hl + cal GET_KEY + pop hl + or a + jr z,waitcustomkey + cp K_EXIT + ret z + cp K_MORE + jr z,waitcustomkey + ld (ix),a + ret + +changekeys: + cal getwormname + ld hl,txtKeyleft + cal getcustomkey ;left + cal getcustomkey ;right +; jr dispmenusets + +;---display current settings--- + +dispmenusets: + cal clrold + ld de,$183E + ld (_penCol),de + ld d,0 ld a,(Gametype) - cp 2 ;&& - jr c,_mainMenu ;type 0/1 + ld e,a + ld hl,posGame + add hl,de ;hl=posGame+(Gametype) + ld a,(hl) ;str.offset + ld e,a ;^d=0^ + ld hl,txtGame + add hl,de ;txtGameX + ld (CURtxtGame),hl ;save for g/o + cal _vputs ;Singleplayer - ld hl,nrworms + ld hl,$2A3E ;worms + ld (_penCol),hl + cal loadgamecar + inc hl + psh hl ld a,(hl) - inc a - cp 5 - jr nc,dispcurlevel -changednrworms: - ld (hl),a -dispnrworms: - ld a,(hl) ;hl=nrworms - ld hl,$0805 - ld (_curRow),hl add a,'0' - cal _putc -dispcurlevel: - ld a,(curlevel) - jr _dispcurlevel ;mainMenu + cal _vputmap -bchangenrworms: - ld hl,nrworms - ld a,(hl) - dec a ;1-3 - jr nz,changednrworms - jr dispcurlevel + ld hl,$243E + ld (_penCol),hl + rr c ;(gameCar) + ld hl,txtYes + jr c,displink + ld hl,txtNo +displink: + cal _vputs + ld hl,$1E3E ;level + ld (_penCol),hl + pop hl ;loadgamecar; hl++ + inc hl + ld a,(hl) ;(curlevel) + cal cshowA -changelives: - cal changelivesInit - inc a - cp 100 - jr nc,displives -changedlives: - ld (hl),a -displives: - cal loadgamecar - ld hl,$0806 - ld (_curRow),hl - cal showA ;liveslimit - sub '0' ;original A - ld l,a - ld a,c - and _datascore - ld a,' ' - jr z,limitok - ld a,'0' -limitok: - cal _putc ;x10 + ld hl,$3032 + ld (_penCol),hl + ld a,1 +curworm =$-1 + add a,'0' + cal _vputmap + ld hl,$303E + ld (_penCol),hl + cal getwormname + ld hl,worm1name-18 + add hl,de + cal _vputs + ld hl,$363E ;controls + ld (_penCol),hl + ld hl,txtMenu6 + cal _vputs jp mainMenu -bchangelives: - cal changelivesInit - dec a - jr z,displives - jr changedlives - -changelivesInit: - cal loadgamecar ;c=(gameCar) -;a=(hl)=(Gametype+1)=(wormbeglives) - ld a,(Gametype) ;&&& - cp 3 - ld a,(hl) - ret nc ;change lives - pop hl ;restore stack - jr displives ;--- handle menukeys --- @@ -608,7 +939,7 @@ menuwaitkey: cal GET_KEY or a jr z,menuwaitkey - pop bc ;pop a as b + pop bc ;GET_KEY destr. b cp K_UP cal z,menuup cp K_DOWN @@ -617,68 +948,80 @@ menuwaitkey: ret z cp K_SECOND ret ;z=select -menupos: + +menupos: ;highlight #b + ld c,b ;psh b ld a,b - add a,4 - ld h,0 + add a,3 + add a,a + add a,a + sub b + add a,a + add a,a + add a,a ;*24 + ld h,$FC/4 ld l,a - ld (_curRow),hl - ret -menuclr: - cal menupos - ld a,' ' - jp _putc + add hl,hl + add hl,hl ;$FD20+item*96 + ld b,16*7 +menuinvloop: + ld a,(hl) + cpl + ld (hl),a + inc hl + dnz menuinvloop + ld b,c ;pop b + ret ;a=-1 menudown: - cal menuclr + cal menupos inc b jr menuupdown menuup: - cal menuclr + cal menupos dec b menuupdown: ld a,b - and %11 ;4=0;-1=3 -menudraw: + cp 6 + jr nz,menunewchk + xor a ;6=0 +menunewchk: + inc b + jr nz,menunewok + ld a,5 ;-1=5 +menunewok: ld b,a - cal menupos - ld a,'*' - jp _putc ;a=K_STO + jr menupos ;--- change name --- -; of worm#(nrworms) -;or #1 if Gametype<2 - -changeworms: - cal _clrWindow - ld hl,txtName - cal _puts ;"Enter name player " - ld a,(Gametype) - cp 2 - ld a,1 - jr c,wormnrname -nrworms =$+1 - ld a,1 -wormnrname: - add a,'0' - cal _putc - sub '0' +; of worm#(curworm) - ld d,a ;1x +getwormname: ;of (curworm) + ld a,(curworm) add a,a ;2x ld e,a add a,a ;4x add a,a ;8x add a,a ;16x add a,e ;18x - add a,d ;19x ld e,a ld d,0 ;de=a - ld ix,worm1name-19 + ld ix,worm1name-18 add ix,de + ret + +changeworms: + cal _clrWindow + ld hl,txtEName + cal _puts ;"Enter name player " + ld a,(curworm) + add a,'0' + cal _putc + + cal getwormname ld a,maxnamelength cal entername - ld (ix),0 + ld (ix),0 ;end mark jp DisplayMenu entername: @@ -750,6 +1093,22 @@ chartable: ;--proc +clrold: + ld hl,$FD97 ;begin pos + ld de,7 ;bytes to add + ld a,35 ;nr of lines +clroldsettings: + ld c,9 ;bytes to clear +clroldsetsloop: + ld (hl),d ;=0 + inc hl + dec c + jr nz,clroldsetsloop + add hl,de + dec a + jr nz,clroldsettings + ret + skiplevel: ;@hl - destr:ab - alter:hl inc hl inc hl @@ -808,6 +1167,8 @@ loadgamecar: ld hl,datasingle ld a,(Gametype) add a,a + add a,a + add a,a ;8 bytes per mode ld e,a ld d,0 add hl,de @@ -828,30 +1189,43 @@ LetsGetThisPartyOn: ld (CheckExit),a ;set exit state cal loadgamecar - ld l,a - ld h,0 ;hl=a - cal _HLTIMES10 ;hl=10*(hl) - ld (scorelimit),hl ;set limit + psh hl + ld (wormbeglives),a + inc hl ;nrworms + ld a,(hl) + ld (nrworms),a + inc hl ;level + inc hl + ld a,(hl) + ld (customspeed),a + inc hl + ld a,(hl) + ld (growspeed),a + inc hl + ld a,(hl) + ld (turnleft),a + ld (turnright),a ;more efficient + inc hl + ld l,(hl) + ld h,0 + cal _HLTIMES10 ;hl=10*(hl) + ld (scorelimit),hl - cal loadgamecar ;nc - ld e,24+1 ;=de + pop hl ;loadgamecar + psh hl + ld a,(Gametype) ;8bytes -> 7bytes + ld e,a + add a,a ;nc + add a,e + add a,a ;8->2bytes + add a,24+1 ;go to datalevels + ld e,a ;=de sbc hl,de ;datalevels - ld a,c ;(gameCar) - and _datasingl - jr z,notsingle - ld a,1 - ld (nrworms),a -notsingle: - ld a,c - and _datascore - jr nz,scorelimitset - dec a ;ld a,$FF ;=no_limit - ld (scorelimit),a -scorelimitset: - cal _ldHLind ;ld hl,(hl) - ld a,(curlevel) + pop de ;de=loadgamecar + inc de \ inc de + ld a,(de) ;(curlevel) ld (Level),a ld d,a ;begin level skiplevelloop: @@ -862,7 +1236,7 @@ skiplevelloop: levelsskipped: psh hl ;1st level - ld a,c + ld a,(gameCar) and _datalink jr z,GameOver @@ -873,28 +1247,27 @@ linkmatch: ld hl,txtWaiting cal _puts cal Crecv -; ld a,c + ld a,c cp wormVclient jr z,client cp wormVhost - jr nz,linkiniterror + jr z,host + pop hl ;error + jp DisplayMenu ;return to menu host: ld c,wormVclient cal Qsend ld a,$18 jr multiplayer - -linkiniterror: - pop hl - jp DisplayMenu - client: ld hl,txtReceive cal _puts - - ld a,$f6 + ld a,$E6 multiplayer: +; cal linkok + ld a,D0LD1L + out (7),a ld (SwapPos),a ld a,2 ld (nrworms),a @@ -912,11 +1285,12 @@ createwormsloop: ex de,hl ld bc,died add hl,bc - ld (hl),0 ;died=0 + ld b,0 + ld (hl),b ;died=0 inc hl - ld (hl),0 ;score=0 + ld (hl),b ;score=0 inc hl - ld (hl),0 ;score+1=0 + ld (hl),b ;score+1=0 inc hl ld (hl),2 ;delay=2 inc hl @@ -930,7 +1304,6 @@ wormbeglives =$-1 jr nz,createwormsloop pop hl ;begin of current level - StartLevel: ld de,Left ld a,(hl) @@ -938,6 +1311,8 @@ StartLevel: jp nz,nextlevel psh hl + ld hl,Level + dec (hl) ;curlevel-- (not beyond last lvl) cal releasekeys cal _clrWindow pop hl @@ -948,6 +1323,13 @@ StartLevel: jp (hl) ;go there ("call") nextlevel: ldi + ld a,0 +customspeed =$-1 + inc a ;$FF=def + jr z,defspeed + dec a + ld (hl),a ;store new speed +defspeed: ld de,Speed ldi ld de,peagrowth @@ -1005,24 +1387,23 @@ toobad_noballs: jr z,worminit ld b,4 worminit: - psh bc ; >> 1 + psh bc ;>1 ex de,hl - ldi ;d + ldi ;d ld a,SinCosTable/256 ld (de),a inc de - ldi ;y - ldi ;x + ldi ;y + ldi ;x ex de,hl - xor a - ld (hl),a ;y2 + ld (hl),a ;y2 inc hl - ld (hl),a ;x2 + ld (hl),a ;x2 ld bc,(worm2-worm1)-5 add hl,bc - pop bc ; << 0k + pop bc ;<0 dnz worminit ;-------- draw level --------- @@ -1030,20 +1411,28 @@ worminit: ld a,(de) inc de sub 128 + jr nc,setfieldx + xor a ;fieldx<128 +setfieldx: ld (FieldWidth),a ld a,(de) inc de + ld l,a sub 57 + jr nc,setfieldy + xor a ;fieldy<57 +setfieldy: ld (FieldHeight),a - add a,57-5 psh de ; >> levelp + ld a,l ;pop + sub 5 ld l,a ld h,0 add hl,hl add hl,hl add hl,hl add hl,hl - add hl,hl + add hl,hl ;32=scr.width ex de,hl ld hl,ScrBuffer @@ -1160,25 +1549,42 @@ maskline: gameCar =$-1 and _datalink jr z,initfinished ;no link - xor a - ld (worm2+input),a ;worm 2 via link - ld (worm2+left),a - ld (Speed),a ;max.speed -SwapPos: ;$18 xx -> $F6 xx - ; jr xx -> or xx +SwapPos: ;$18 xx -> $E6 xx + ; jr xx -> and xx + jr sethost +setclient: + ld (worm1+left),a ;worm 1... + ld (worm3+left),a ;and worm 3 via link + cal Crecv + ld a,c + ld (worm2+name+0),a + cal Crecv + ld a,c + ld (worm2+name+1),a + cal Crecv + ld a,c + ld (worm2+name+2),a + cal Crecv + ld a,c + ld (worm2+name+3),a + cal Crecv + ld a,c + ld (worm2+name+4),a jr initfinished - inc a - ld (worm2+left),a ;1 - ld hl,worm1 - ld de,worm2 - ld b,4 ;+heading +pos - cal _EXLP ;swap positions -;&&& over link - ld hl,worm1+name - ld de,worm2+name - ld b,maxnamelength - cal _EXLP ;swap positions +sethost: + ld (worm2+left),a ;worm 2+4.. + ld (worm4+left),a ;..over link + ld c,'T' + cal Qsend + ld c,'e' + cal Qsend + ld c,'s' + cal Qsend + ld c,'t' + cal Qsend + ld c,0 + cal Qsend initfinished: ld b,startdelay @@ -1192,8 +1598,13 @@ ReadyDelay: ;----------------------------- GameLoop: - ld bc,(worm1+pos) - cal DisplayField + ld bc,(worm1+pos) ;camera worm #1 + ld a,(worm1+left) + or a ;if #1 not over link + jr nz,showfield + ld bc,(worm2+pos) ;otherwise view from #2 +showfield: + cal DisplayField ;display piece of level ld a,1 flashtime =$-1 @@ -1221,13 +1632,27 @@ Delay: jr nz,Delay NoDelay: + ld (handledworm),a ;reset + + ld hl,turn + ld a,(hl) + inc a ;-1 + jr z,nextturnok + dec (hl) + dec a ;0 (now <0) + jr nz,nextturnok +growspeed =$+1 + ld (hl),$FF +nextturnok: + ld a,0 nrballs =$-1 or a cal nz,handlethoseneatlittleballs ld ix,worm1 - ld a,(nrworms) + ld a,1 +nrworms =$-1 ld b,a handleworms: psh bc @@ -1235,6 +1660,8 @@ handleworms: ld bc,worm2-worm1 add ix,bc pop bc + ld hl,handledworm + inc (hl) ;1..nrworms dnz handleworms ;----------------------------- @@ -1268,15 +1695,23 @@ WormDead: ld (ix+delay),respawndelay thislevel =$+1 + ld hl,0 ld de,0 - ld a,(de) - inc de +handledworm =$-2 + add hl,de + add hl,de + add hl,de + ld a,(hl) + inc hl ld (ix+heading),a - ld a,(de) - ld (ix+pos),a - inc de - ld a,(de) - ld (ix+pos+1),a + ld a,(hl) + ld (ix+pos),a ;y + inc hl + ld a,(hl) + ld (ix+pos+1),a ;x + xor a + ld (ix+pos2),a ;y2 + ld (ix+pos2+1),a ;x2 inc (ix+died) dec (ix+lives) @@ -1285,9 +1720,23 @@ thislevel =$+1 cal DecScore pop af ret nz ;HandleWorm done - ld a,(gameCar) - and _datalivel - ret z + ld a,(wormbeglives) + or a ;0=no live limit + ret z ;don't end game + ld a,(Gametype) + cp gametron + jr nz,anyworm ;if not Tron, quit at any worm's death + ld a,(nrworms) + ld b,a ;# of worms + ld hl,worm1+lives-(worm2-worm1) + ld de,worm2-worm1 + xor a ;check for 0 lives +checklives: + add hl,de ;next worm + cp (hl) ;lives==0? + ret nz ;any >0: don't exit + dnz checklives +anyworm: ld a,$A7 ;exit@end of turn ld (CheckExit),a ;set exit state ret ;finish turn @@ -1296,24 +1745,41 @@ thislevel =$+1 Exit: ld sp,0 ;pop all SpSave = $-2 - ld a,D0HD1H - out (7),a + ld a,D0LD1L + out (7),a ;both wires low = game over signal cal _clrWindow ld hl,txtGO cal _puts + ld hl,$FC00 + ld b,16*8 + cal menuinvloop ;invert + inc h ;$FD80 + ld b,16 + cal menuinvloop ;
+ ld hl,$FCE0 + ld b,16 + cal menuinvloop ;
+; ld l,$74 +; ld b,8 +; cal menuinvloop + ld hl,_curRow + inc (hl) ld hl,txtGame CURtxtGame =$-2 cal _puts - ld de,0002 - ld (_curRow),de + ld a,$0D ;$0D02 + ld (_curCol),a cal showLevel - ld de,$0B03 + + ld de,$1901 + ld (_penCol),de + ld hl,txtName + cal _vputs ;Name + ld a,$4F + ld (_penCol),a + cal _vputs ;Died Score + ld de,$0004 ld (_curRow),de - ld hl,txtDied - cal _puts - cal _puts ;txtScore - xor a - ld (_curCol),a ld a,(nrworms) ld b,a @@ -1322,26 +1788,18 @@ displayWormStats: psh bc psh hl - ld bc,input-died - add hl,bc ;+input + ld bc,left-died + add hl,bc ;+left xor a cp (hl) ;input=0 = link jr nz,NoLinkIndic - ld b,7 ;{DOWN} - inc hl ;+left - cp (hl) - jr z,hostLinkIndic - dec b ;{UP} -hostLinkIndic: ld a,8 ld (_curCol),a - ld a,b + ld a,$DC ;-O cal _putc xor a ld (_curCol),a - dec hl NoLinkIndic: - inc hl inc hl inc hl ;+name cal _puts @@ -1375,7 +1833,7 @@ checkhilevel: ld a,(Level) cp (hl) jr c,hilevelcheckdone - ld (hl),a ;save local + ld (hl),a ;save local ld c,a ld a,0 hilvlposa =$-1 @@ -1386,8 +1844,7 @@ hilevelcheckdone: ld a,(gameCar) and _datasingl - - jr z,hiscorecheckdone + jr z,hiscorecheckdone ;no SP checkhiscore: cal loadhiscoreposinahl cal _Get_Word_ahl ;de=old_hi @@ -1433,7 +1890,7 @@ waitkey: jr nz,waitkey ;x123456789012345678901 -;1----- GAME OVER ----- +;>>>>>> GAME OVER <<<<< ;2Multiplayer ;3Level 01 ;4 Died Score: @@ -1443,6 +1900,7 @@ waitkey: ;8Snaky @ 00 04820 ExitNoStats: + cal linkok ld hl,_asapvar rst 20h ;_ABS_MOV10TOOP1 rst 10h ;_FINDSYM @@ -1466,36 +1924,30 @@ ExitNoStats: jp _clrWindow loadhiscoreposinahl: - ld a,(Level) - ld b,a - - ld h,0 ;hl= - ld a,(nrlevels+1) ;# peaworm lvls - add a,a - ld l,a - + ld h,0 ld a,(Gametype) - dec a - ld c,a - dec a ;z=(Gametype)=2 - jr z,tronhi - ld l,h ;hl=0 -tronhi: - - xor a ;ahl=0(+x) - psh bc + cp 2 + ld l,h ;hl=0 for peaworm and singleplayer + jr nz,hi_ + ld a,(nrlevels+1) + ld l,a ;skip peaworm slots for tron mode +hi_: + or a ;Singleplayer? + ld b,0 ;offset 0 for SP + jr z,hi__ + ld a,(Level) + ld b,a ;levels to skip (including 1 for singleplayer) +addlevelposition: + inc hl ;add one word per level + dnz addlevelposition +hi__: + add hl,hl ;one WORD per hiscore + xor a ;ahl=0(+hl) ld bc,defhiscrpos hiscrposhl =$-2 add hl,bc - pop bc - adc a,0 -hiscrposa =$-1 ;ahl=saveloc - - inc c - ret z ;(Gametype)=0 -addlevelposition: - cal _AHL_PLUS_2_PG3 - dnz addlevelposition +hiscrposa =$+1 + adc a,0 ;ahl=saveloc ret ;----------------------------- @@ -1546,7 +1998,6 @@ unnamedlabel: respawndue: ld l,a cal inputcall - ld (sendbyte),a ld a,h ;previous cp l ;changed? ret z @@ -1555,65 +2006,83 @@ respawndue: saverespawncounter: ld (ix+delay),a jr inputcall -; ld a,(ix+input) -; or a -; jr z,inlink -; ret -inkeys: ;use jp not call! - out (1),a ;nop\nop - in a,(1) +chkkey: ;key=a + dec a ld b,a - and (ix+right) - jr z,notright + srl b + srl b + srl b ;b=a/8 + and 7 ;a=a\8 + ld c,a ;push keybit + ld a,-1 + out (1),a + inc b + ld a,%01111111 ;default +bitmask: + rlca ;rotate left + dnz bitmask ;a/8 times + out (1),a ;send bitmask + in a,(1) ;input keys + ld b,c ;pop keybit + inc b +keybit: + rra + dnz keybit ;check match (cf set) + ret + +inkeys: ;use jp not call! + cal chkkey + jr nc,notright ld a,l add a,8 +turnright =$-1 ld l,a notright: - ld a,b - and (ix+left) - ret z + ld a,(ix+right) + cal chkkey + ret nc ld a,l sub 8 +turnleft =$-1 ld l,a ret - inputcall: - ld a,(ix+input) + ld a,(ix+left) or a - jr nz,inkeys - + jr z,inlink ;input by link + cal inkeys ;input by keys + ld a,(gameCar) + and _datalink + ret z ;no link + ld c,l ;send our keys + jp Qsend inlink: - ld b,(ix+left) - dec b - jr z,receivefirst - psh hl - ld c,0 -sendbyte =$-1 - cal Csend - cal Crecv - pop hl - ld l,c - ret -receivefirst: - psh hl - cal Crecv - pop hl + cal Qrecv ;Crecv ld l,c - psh hl - ld a,(sendbyte) - ld c,a - cal Csend - pop hl ret ;------- handle worm --------- HandleWorm: + xor a + cp (ix+lives) + jr nz,alive + ld a,(wormbeglives) + or a + ret nz ;live limit +alive: ld a,(ix+delay) dec a jp nz,respawncheck + xor a + cp 0 +turn =$-1 + jr nz,nogrow + inc (ix+grow) +nogrow: + ld a,(Gametype) cp gametron jr nz,notron @@ -1624,8 +2093,6 @@ notron: ld l,(ix+heading) cal inputcall donediddelydone: - ld a,l - ld (sendbyte),a ld (ix+heading),l ld h,(ix+heading+1) @@ -1794,9 +2261,9 @@ multiple_peas: sel_ownpea: cal chkpeahit pop hl ;(peapos) 1st pea - jp c,stopworm ;own pea hit + jp c,WormDead ;stopworm ;own pea hit - ld a,e ;peek a (that x86 asm for pop\push ;) + ld a,e ;peek a (that's x86 asm for pop\push ;) and %01 jr z,sel_otherpea ld hl,(peaspos+2) ;2nd pea @@ -1914,14 +2381,13 @@ Drawworm: ld b,(ix+pos+1) ld a,(Gametype) - ld d,a cp gamerace cal z,checkhitlapline cal set4pixels dec c - ld a,d - cp gametron + ld a,(growspeed) + or a ;0=tron ret z ;keep tail in "Tron" ld l,(ix+head) @@ -2167,13 +2633,17 @@ scorecommon: ld (ix+score),l ld de,0 scorelimit =$-2 - inc e - jr z,showstats ;de=$FF??=no limit - dec e + ld a,d + or e + jr z,showstats ;de=0=no limit cal _cphlde jp nc,Exit showstats: + ld a,(Gametype) + cp gametron + ret z +showstatsEven4tron: psh ix ld h,0 ld l,h @@ -2199,19 +2669,18 @@ showstatloop: ret showstat: - ld a,(gameCar) - and _datascore - jr z,showlives + ld a,(Gametype) + cp gametron + jr z,showscore + ld a,(wormbeglives) + or a ;0=death limit + jr nz,showlives showscore: ld h,(ix+score+1) ld l,(ix+score) cal _D_HL_DECI jr __vputs showlives: - ld a,(Gametype) - cp gametron - jr z,showscore - ld a,(ix+lives) add a,'0' __vputmap: @@ -2254,16 +2723,7 @@ showleft: ld (_penCol),a ld a,0 Left =$-1 - ld l,a - ld h,0 - cal _divHLby10 - psh af - ld a,l - add a,'0' - cal __vputmap - pop af - add a,'0' - cal __vputmap + cal cshowA ld hl,txtLeft __vputs: @@ -2288,6 +2748,23 @@ showA: add a,'0' jp _putc +cshowA: + or a + jr nz,cshowavalue + ld hl,txtNone + jp _vputs +cshowavalue: + ld l,a + ld h,0 + cal _divHLby10 + psh af + ld a,l + add a,'0' + cal __vputmap + pop af + add a,'0' + jp __vputmap + showHL: cal _D_HL_DECI jp _puts @@ -2650,6 +3127,14 @@ drawstuff: cal z,drawfatline dec a ;3 = box cal z,drawbox + dec a ;4 = circle + cal z,drawcircle + dec a ;5 = hline +#ifdef hlines + cal z,drawhline +#else + cal z,drawline +#endif pop hl inc hl @@ -2657,6 +3142,36 @@ drawstuff: drawbox: ;(d,e)-(h,l) ld b,l ;Delta-y +#ifdef hlines +boxloop: + cal drawhline + inc e + dnz boxloop + ret +drawhline: ;(d,e)-(h,e) + psh bc + ld b,d + ld c,e + psh hl + cal FindPixel + ld c,a ;starting mask + ld a,h + sub b + ld b,a + inc b ;1+x2-x1 +hlineloop: + ld a,(hl) + or c + ld (hl),a + rrc c ;mask >> + jr nc,hlinenext + inc hl ;next byte +hlinenext: + dnz hlineloop + pop hl + pop bc + ret +#else ld l,e boxloop: cal drawline @@ -2664,6 +3179,7 @@ boxloop: inc e dnz boxloop ret +#endif drawfatline: cal drawline @@ -2680,8 +3196,8 @@ drawfatline: ;LINE (d,e)-(h,l) ;destroyes a -drawline: - psh bc +drawline: ;(d,e)-(h,l) + psh bc ;destr: a psh hl psh de ld a,d @@ -2781,53 +3297,128 @@ line4sm: dnz LineLoopSteep jr DoneLine +drawcircle: ;(d,e),h ;de=x,y; h=z + ld c,h ;c=yy=z + ld a,h + neg + ld l,a ;l=-z + xor a + ld b,a ;b=xx=0 + dec a ;-$00** + ld h,a ;hl=zz=-z +circloop: + psh de ;x,y + ex (sp),hl ;push zz \ pop x,y + cal circledraw ;(x-xx,y+yy)-(x+xx,y+yy) + ;(x-xx,y-yy)-(x+xx,y-yy) + cal circledraw ;(x-yy,y+xx)-(x+yy,y+xx) + ;(x-yy,y-xx)-(x+yy,y-xx) + + ex (sp),hl ;push x,y \ pop zz + xor a + ld d,a ;d=0 + dec a ;-256=yy + inc b ;xx++ + jr circloop + +circledraw: ;destr:de + psh hl + ld a,h ;hl=x,y + sub b ;bc=xx,yy + ld d,a ;d=x-xx + add hl,bc ;h=x+xx; l=y+yy + ld e,l ;e=y+yy + cal drawline ;(h-b,l+c)-(h+b,l+c) + ld a,l + sub c ;a=y again + sub c + ld l,a ;l=y-yy + ld e,l ;e=l=y-yy + cal drawline ;(h-b,l-c)-(h+b,l-c) + ld a,b ;swap xx and yy + ld b,c + ld c,a ;ex b,c + pop hl + ret + + + + + + + + ;----------------------------- ;----------- link ------------ ;----------------------------- -timeout = $800 +linkok: + ld a,D0HD1H + out (7),a ;raise both wires = link ok + ret -checklink: - dec de +timeout = $8000 +lossout = 20 + +checklink: ;load wires in A and check for timeout + dec de ;decrease timer ld a,d or e - jr z,linkerror - - ld a,$BF - out (1),a - in a,(1) - bit 6,a - jp z,Exit - + jr nz,linkfine ;ok if de>0 +;de==0 = timeout + cal linkok + ld a,0 ;losses so far +linklosses =$-1 + inc a ;and this is another one + ld (linklosses),a + pop de ;return from link + cp lossout ;quit if too many errors + ret c ;otherwise just continue +linkerr: + jp Exit +linkfine: in a,(7) and %11 ret -linkerror: - scf - ld a,%11 - pop hl - ret - ;-------------- ;---- SEND ---- ;-------------- -Csend: ;--- send 8 bits in A --- destr:abcdehl --- - ld c,a -Csendloop: +Csend: + ld b,32 +csendwait: + nop + dnz csendwait cal Qsend - ret nc ;NC = all ok - ld a,D0HD1H - out (7),a ;both high - jr Csendloop ;CF = error + jr c,Csend + ret -Qsend: ;--- try to send 8 bits in C; CF=error --- destr:abcdehl --- - ld de,timeout - cal checklink - cp %11 ;are they? - scf - ret nz ;nope, wait +Qsend: ;try to send 8 bits in C; CF=error --- destr:abcde + in a,(7) + and %11 ;both wires low = exit signal + jr z,linkerr ;error otherwise ld b,8 ;bits to send sendloop: ld de,timeout @@ -2846,9 +3437,10 @@ sendfinish: cal checklink cp %11 ;both raised (by other calc) jr nz,sendfinish - nop \ nop +; nop \ nop dnz sendloop ;repeat for all bits xor a ;nc... + ld (linklosses),a ;reset number of losses ret ;=ok ;-------------- @@ -2858,17 +3450,12 @@ sendfinish: Crecv: ;--- receive 8 bits into A/C --- destr:abcdehl --- cal Qrecv ret nc ;return if all went ok - ld a,D0HD1H - out (7),a ;raise both on error jr Crecv ;and try again -Qrecv: ;--- receive 8 bits into A/C; CF=error --- destr:abcdehl --- - ld de,timeout - cal checklink - jp z,Exit ;both low = error, quit - cp %11 - scf - ret z ;both high = nothing yet, wait +Qrecv: ;--- receive 8 bits into A/C; CF=error --- destr:abcde --- + in a,(7) + and %11 + jr z,linkerr ;both low = error, quit ld b,8 ;bits to receive recvloop: ld de,timeout @@ -2891,19 +3478,19 @@ recvwaitack: recvfinish: dnz recvloop ;repeat for all bits xor a ;nc=no error - ld a,c ;result in a + ld (linklosses),a ;reset number of losses ret + ;----------------------------- ;---------- levels ----------- ;----------------------------- LevelDef: - .db 5,4,15,15,0,0 ;peas,speed,growth,begin_size,sprite,balls - .db 0,2,63 ;start d, y, x - .db 128,57 ;field width (128-255), height (57-255) - .db 0 ;no additional lines, boxes - + .db 5,4,15,15,0,0 ;peas,speed,growth,begin_size,sprite,balls + .db 0,2,63 ;start d, y, x + .db 128,57 ;field width (128-255), height (57-255) + .db 0 ;no additional lines, boxes .db 255 ret @@ -2919,50 +3506,89 @@ LevelDefM: .db 128,57 .db 0 -LevelDefT: + .db 8,5,18,12,0,0 + .db $40,30,2,$C0,30,125, $00,2,64,$80,54,64 + .db 128,57 + .db 4,40,26,20,0 + .db 4,90,40,11,0,0 + +LevelDefT: ;tron=no delay + .db 8,4,18,12,5 + .db %1110000,%10001000,%10001000,%10001000,%1110000,0 + .db $40,30,64,$C0,30,64, $00,30,64,$80,30,64 + .db 128,57 + .db 0 + +LevelDefC: ;ctf .db 8,4,18,12,5 .db %1110000,%10001000,%10001000,%10001000,%1110000,0 .db $40,30,64,$C0,30,64, $00,30,64,$80,30,64 .db 128,57 + .db 10,10,50,50 .db 0 ;----------------------------- ;---------- data ------------- ;----------------------------- +wdPicture = 16 wtPicture: -.db %00011110,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000 -.db %00111110,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000 -.db %01110000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000 -.db %01100000,%01111100,%00000001,%11111111,%00000000,%11110000,%01111001,%11100000 -.db %11100000,%11111110,%00000011,%11111111,%10000011,%11111000,%11111111,%11110000 -.db %11000001,%11000111,%00000111,%00000001,%11000111,%10011001,%11001111,%00111000 -.db %11000001,%10000011,%00000110,%00000000,%11100110,%00000001,%10011111,%10011000 -.db %11000001,%10000011,%00000110,%11000000,%01101110,%00000011,%10111001,%11011100 -.db %11000001,%11000111,%00000110,%11000000,%01101100,%00000011,%00110000,%11001100 -.db %11000000,%11000110,%00000110,%11000000,%01101100,%00000011,%00110000,%11001100 -.db %11100000,%11101110,%00001110,%11000000,%01101100,%00000011,%00111001,%11001100 -.db %01100000,%01111100,%00001100,%11000000,%01101100,%00000011,%00011111,%10001100 -.db %01110000,%00111000,%00011100,%11100000,%11101110,%00000011,%00001111,%00001100 -.db %00111000,%11111110,%00111000,%01110001,%11000110,%00000011,%10000000,%00011100 -.db %00011111,%11101111,%11110000,%00111111,%10000111,%00000001,%10000000,%00011000 -.db %00001111,%10000011,%11100000,%00011111,%00000011,%00000001,%10000000,%00011000 - -txtMenu: .db "by Shiar",0 - .db "Level 00",0 ;4th menu item - .db "Limit 00 ",0 ;3rd - .db "Worms 0",0 ;2nd -txtGame: .db "Singleplayer",0 ;0 (1st) -txtGame2: .db "Peaworm ",0 ;1 (next 1st) - .db "Tron ",0 ;2 - .db "Deathmatch",0 ;3 - .db "Foodmatch ",0 ;4 - .db "LinkMatch",0 ;5 - .db "Race ",0 ;6 - .db "CTF ",0 ;7 +.db %00000000,%00000000,%00000111,%10000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%01110000,%00000000,%00000000,%00000000,%00000000,%00000000 +.db %00000000,%00000000,%00001111,%10000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%01111000,%00000000,%00000000,%00000110,%01111011,%00100000 +.db %00000000,%00000000,%00011100,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00011100,%00001110,%00000000,%00001001,%00010011,%01000000 +.db %00000000,%00000000,%00011000,%00011111,%00000000,%01111111,%11000000,%00111100,%00011110,%01111000,%00001100,%00011111,%00000000,%10100111,%00110000,%10000000 +.db %00000000,%00000000,%00111000,%00111111,%10000000,%11111111,%11100000,%11111110,%00111111,%11111100,%00001100,%00111011,%00000000,%10100001,%00001001,%01100000 +.db %00000000,%00000000,%00110000,%01110001,%11000001,%11000000,%01110001,%11100110,%01110011,%11001110,%00001100,%00110001,%10000000,%01001110,%01110010,%01100000 +.db %00000000,%00000000,%00110000,%01100000,%11000001,%10000000,%00111001,%10000000,%01100111,%11100110,%00001110,%01110001,%10000000,%00000000,%00000000,%00000000 +.db %00000000,%00000000,%00110000,%01100000,%11000001,%10110000,%00011011,%10000000,%11101110,%01110111,%00001110,%01110001,%10000000,%00000000,%00000000,%00000000 +.db %00000000,%00000000,%00110000,%01110001,%11000001,%10110000,%00011011,%00000000,%11001100,%00110011,%00000111,%11100001,%10000000,%00000000,%00000000,%00000000 +.db %00000000,%00000000,%00110000,%00110001,%10000001,%10110000,%00011011,%00000000,%11001100,%00110011,%00000011,%11000011,%10000000,%00000000,%00000000,%00000000 +.db %00000000,%00000000,%00111000,%00111011,%10000011,%10110000,%00011011,%00000000,%11001110,%01110011,%00000000,%00000011,%00110101,%01001001,%10000000,%00000000 +.db %00000000,%00000000,%00011000,%00011111,%00000011,%00110000,%00011011,%00000000,%11000111,%11100011,%10000000,%00000011,%01000101,%00010101,%01000011,%01100011 +.db %00000000,%00000000,%00011100,%00001110,%00000111,%00111000,%00111011,%10000000,%11000011,%11000001,%10000000,%00000111,%01100101,%01010101,%01000101,%01010100 +.db %00000000,%00000000,%00001110,%00111111,%10001110,%00011100,%01110001,%10000000,%11100000,%00000001,%11100000,%00001110,%00110111,%01011101,%10010101,%01100101 +.db %00000000,%00000000,%00000111,%11111011,%11111100,%00001111,%11100001,%11000000,%01100000,%00000000,%11111111,%11111100,%00010101,%01010101,%01000101,%01010101 +.db %00000000,%00000000,%00000011,%11100000,%11111000,%00000111,%11000000,%11000000,%01100000,%00000000,%00111111,%11111000,%01100101,%01010101,%01000110,%01010011 + +txtMenu: .db "Mode",0 ;1st menu item + .db "Level",0 ;2nd + .db "Link",0 ;... + .db "Worms",0 + .db "worm #",0 +txtMenu6: .db "controls",0 +posMenu: .dw $2418,$231E,$2824,$1F2A,$1730,$1936 +txtoMenu: .db "Back",0 ;1st menu item + .db "Lives",0 ;2nd + .db "Limit",0 ;... + .db "Speed",0 + .db "Rotation",0 + .db "Growth",0 +posoMenu: .dw $2618,$251E,$2524,$222A,$1A30,$1C36 +txtGame: .db "Singleplayer",0 +txtGame1: .db "Peaworm",0 +txtGame2: .db "Tron",0 +txtGame3: .db "Deathmatch",0 +txtGame4: .db "Foodmatch",0 +txtGame5: .db "Timematch",0 +txtGame6: .db "Race",0 +txtGame7: .db "CTF",0 ; .db "Domination",0 ;8 -txtLevsel: .db $CF," Select levels: ",5,0 -txtName: .db "Enter name player ",0 +posGame: .db 0,txtGame1-txtGame + .db txtGame2-txtGame + .db txtGame3-txtGame + .db txtGame4-txtGame + .db txtGame5-txtGame + .db txtGame6-txtGame + .db txtGame7-txtGame + +txtNone: .db "None",0 +txtDef: .db "Default",0 +txtYes: .db "Yes",0 +txtNo: .db "No",0 +txtKeyleft: .db ":left",0 +txtKeyright:.db "/right",0 +txtLevsel: .db $CF," Select levels ",5,0 +txtEName: .db "Enter name player ",0 txtWaiting: .db "Waiting...",0 txtReceive: .db "Receiving..." ;,0 @@ -2978,69 +3604,73 @@ TrigPrecalc: .db 127 txtLevel: .db "Level ",0 -txtWorms: .db "Worms: 0",0 ;follows txtLevel -txtDied: .db "Died ",0 -txtScore: .db "Score",0 ;follows txtDied -txtLeft: .db " left",0 ;follows txtScore +txtWorms: .db "Worms: 0",0 ;follows txtLevel +txtName: .db "Name",0 +txtDied: .db "Died " ;follows txtName +txtScore: .db "Score",0 ;follows txtDied +txtLeft: .db " left",0 ;follows txtScore txthiscore:.db "HiScore:",0 txtReady: .db "Prepare!",0 txtposReady = 7 -txtGO: .db "----- GAME OVER -----",0 - -_datalink = %00000001 ;linkplay -_datalivel = %00000010 ;lives=0 limit -_datafoodl = %00000100 ;left=0 limit -_datanextl = %00001000 ;next level if left=0 -_datasingl = %00001000 ;singleplayer=1 - ;1=hiscore+keep_length -_datafood = %00010000 ;food present -_datadie = %01000000 ;worm dies on impact -_datascore = %10000000 ;score>=100 limit -_datamultpeas = %00100000 -_datasp = %01011110 +txtGO: .db 5,5,5,5,5," GAME OVER ",$CF,$CF,$CF,$CF,$CF,0 + +_datalink = %0000001 ;linkplay + +_datafoodl = %0000010 ;left=0 limit +_datanextl = %0000100 ;next level if left=0 +_datasingl = %0000100 ;singleplayer=1 (=hiscore+keep_length) +_datamultpeas = %0001000 ;multiple peas=1 +_datatime = %0010000 ;time incs score +_datafood = %0100000 ;food present +_datadie = %1000000 ;worm dies on impact +_datasp = %1100110 datalevels: .dw LevelDef, LevelDefM .dw LevelDefT,LevelDefM .dw LevelDefM,LevelDefM - .dw LevelDefM,LevelDefM -nrlevels: .db 1,2,2,2,2,2,2,1 ;=defaults - -savestart: - -gamesingle = 0 -datasingle: .db %01011110,3 ;3 lives ( -worm1name: .db "worm #01",0 + .db %11110111,%00,-01,K_RIGHT,K_LEFT +worm1name: .db "Wormy ",0 worm2set: .dw worm2p,worm2p - .db %11111011,%11,%00111111,%10000,%1000 ;f1 f2 -worm2name: .db "worm #02",0 + .db %11111011,%11,-01,K_F2,K_F1 +worm2name: .db "Viper ",0 worm3set: .dw worm3p,worm3p - .db %11111011,0,%01011111,%10,%100 ;sto , -worm3name: .db "worm #03",0 + .db %11111011,%00,-01,K_COMMA,K_STO +worm3name: .db "Nibbler ",0 worm4set: .dw worm4p,worm4p - .db %11111011,0,%01111101,%10,%1 ;enter + -worm4name: .db "worm #04",0 + .db %11111011,%00,-01,K_PLUS,K_ENTER +worm4name: .db "Jim ",0 defhiscrpos: - .dw 0,0,0,0,0 + .dw 0,0,0,0,0,0 saveend: @@ -3057,9 +3687,7 @@ lives = 12 head = 13 ;4B (head=tail) tail = 15 ;also@next level storepos = 17 -reserv = 18 ;loop - ;race:lap - ;ctf:pea +reserv = 18 ;loop (race:lap|ctf:pea) input = 19 left = 20 right = 21 @@ -3082,13 +3710,13 @@ maxnamelength = 8+1 .db " shiar0@hotmail.com",0 defspritesz = 4 -defspriteimg: .db %01100000 - .db %11110000 - .db %11110000 - .db %01100000 +defspriteimg: .db %01100000 + .db %11110000 + .db %11110000 + .db %01100000 deflevels: - .db 15,"Internal Levels" + .db "Internal Levels" ;,0 .db 0,deflevels/256,deflevels&255 templevels: @@ -3099,4 +3727,4 @@ templevels: .end -.end +.end \ No newline at end of file