X-Git-Url: http://git.shiar.nl/wormy.git/blobdiff_plain/1be4b87255fd59f1f29438afb6a43a1c81e51d2b..61a9cc74b83fcbc7593fe8b89d27a6daa42c1c6a:/wormy.z80 diff --git a/wormy.z80 b/wormy.z80 index a2c919b..e3150cd 100644 --- a/wormy.z80 +++ b/wormy.z80 @@ -1,64 +1,125 @@ -; Title : Wormy -; Version : 93% -; Release Date : summer 2001 -; Filename : wormy.86p (5kb) -; Author(s) : Shiar -; Email Address : shiar0@hotmail.com -; ICQ UIN : #43840958 -; Web Page : www.shiar.org -; Description : ruling Nibbles-like game 1-4 players -; Where to get this game : www.shiar.org (home of Wormy) -; Other games by author(s) : Nemesis beta -; Additional Credits to : Matthew Shepcar (wrote original Peaworm, end'98) -; Jonah Cohen (helped writing worm) - -;----------------------------- -;----------- TO-DO ----------- -;----------------------------- - -; 93% = DONE - -; * internal levels -; * check levels/gametype -; * enough hiscore saves! -; * complete readme -; 1% * misc (pollish, bugs, &&&) -; * LINK -; 2% * fix deaths linkplay and transmit game/level data -; 2% * make linkplay available for all gametypes (not just deathmatch) -; * CTF -; 1% * fix pea XOR problem in ctf (+dom?) -; * fix wormstop -; 1% * domination?: take control points by running over them and hold them - +;___ÜÛÛÛ________________________________________________________ÜÜÜÜ____________ +; ÛÛÛß ÛÛÛÛÝ +; ÛÛÛ ßÛÛÛ ÞÛÛÜ +;ÞÛÛ ÜÛÛÛÜ ÜÜÛÛÛÛÜÜ ÜÛÛÛÛ ÜÛÛÜ ÜÛÛÜ ÞÛÛ ÛÛÛÛÛ +;ÛÛÝ ÛÛÛÛÛÛÛ ÜÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÜ ÛÛ ÛÛÛ ÛÛÛ +;ÛÛ ÛÛß ßÛÛ ÞÛÛßß ßÛÛÛ ÛÛÛß ÛÛÝ ÛÛß ÛÛÛÛ ßÛÛ ÛÛÝ ÞÛÛÝ ÞÛÛ +;ÛÛ ÛÛ ÛÛ ÛÛ Ü ÛÛÝ ÞÛÛÝ ÞÛÛ ÛÛÛÛÛÛ ÛÛÝ ÛÛÛ ÛÛÛ ÛÛ +;ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÞÛÛ ÛÛÛ ÛÛÝ ÛÛÛß ÞÛÛ ßÛÛ ÛÛÛ ÞÛÛÛ ÛÛ +;ÛÛ ÛÛÝ ÞÛÛ ÛÛ ÛÛ ÛÛ ÛÛÝ ÛÛÝÞÛÛÝ ÛÛÝ ÛÛ ÛÛÛÛÛÛß ÛÛ +;ÛÛ ÞÛÛ ÛÛÝ ÞÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÞÛÛ ÛÛÝ ÛÛÝ ßÛÛÛß ÞÛÛ +;ÛÛÝ ÛÛÜ ÜÛÛ ÛÛÝ ÛÛ ÛÛ ÛÛÝ ÛÛ ÞÛÛÝ ÞÛÛÝ ÛÛÝ ÛÛÝ +;ÞÛÛ ÛÛÛÛÛ ÞÛÛ ÛÛÝ ÞÛÛ ÛÛÝ ÛÛ ßÛÛÜÜÛÛß ÛÛÛ ÞÛÛ +; ÛÛÛ ÛÛÛ ÛÛÝ ÞÛÛ ÛÛÝ ÛÛÛ ÛÛÝ ßÛÛÛÛß ÞÛÛ ÛÛÛ +; ÛÛÛÜ ÜÛÛÛÛÛÜ ÜÛÛÛ ÛÛÝ ÛÛÛ ÞÛÛÝ ÛÛÝ ÛÛÛÜÜ ÜÛÛÛ +; ÛÛÛÛÛÛÛß ßÛÛÛÛÛÛÛ ÞÛÛÜÜÛÛÛÝ ÛÛÛ ÞÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÝ +; ßÛÛÛß ßÛÛßß ßÛÛÛÛÛß ÛÛ ÛÛÝ ßÛÛÛÛÛÛÛÛÛß +;_______________________________________________________________________________ +; +; Version : 97% (0.97.115A) +; Release Date : 2002 January 15 +; Author(s) : Shiar +; Email Address : wormy@shiar.org +; Web Page : www.shiar.org +; Description : perfect Nibbles game with free movement, nine +; game modes, for 1-4 players +; Where to get this game : www.shiar.org +; Other games by author(s) : Nemesis beta +; Additional Credits to : Matthew Shepcar : wrote original Peaworm, end'98 +; Jonah Cohen : helped writing worm +; Files : wormy.z80 (89kB) : 515ad14b922572bdc8a96e780b8b24ca +; wormy.86p (6512) : efef32a8c541b4585087f55deb31f51d +;_______________________________________________________________________________ + +;--- notes --- + +; * Use for LEARNING practises ONLY! +; Don't _ever_ release altered code w/o permission! +; Please notify me of using code, and give me credits! +; * Code was originally by Scabby (Matthew Shepcar), +; a few lines by Jonah Cohen, +; and everything else by me - Shiar (Mischa Poslawsky). +; * Although I've commented & labeled quite some stuff, I can't guarantee +; everybody will understand it. This is probably not the best source +; to learn z80 from. w00t the Shyer Way (tm). +; * Also read wormy.txt please, thank you +; * Don't scroll down if you get scared easily. + +;_______________________________________________________________________________ +; _______ _____ ______ _____ +; | | | | \ | | +; | |_____| ____ |_____/ |_____| +;_______________________________________________________________________________ + +; 97% = DONE +; X [15] lives >9 dispay +; X [15] sp modes not configurable +; X [16] LVL: episode #2: 10 sp levels +; X [17] lives stats for every liveslimited game (also !dm) +; X [18] LINK: fix transmit game/level data +; X [19] datalevels+nrlevels not in program if !intlevels +; X [19] mem at worm #4 (still 12 bytes or so.. or more? or less?) +; X [19] alter level editor to use new address and set level id #97 +; X [19A] team score! +; X [19A] autogrowth doesn't always work -> init (turn) +; X [111] ED: disabled objects counted causing CRASH when writing hiscore! +; X [111] LINK: init+multiple pea transmit seems to work.. +; X [111] LINK: host/client swapped (host now sends level config) +; X [111] LINK: optimize transmit (most initcode same for client+host) +; X [113] menu limit in multifm not x10 +; X [113] wormhit procedure seperate (called now) +; X [114] LINK: peas sent again :P +; X [114] internal level check and sprite storage removed +; X [115] layout data stuff at bottom +; X [115] ED: init place bar fixed +; X [115] ED: keys also usable together with mouse +; X [115] ED: improved version handling +; X [115] LINK: receive message not needed anymore afaik +; X [115A] $D8 used for spacing at g/o screen. i rule B) +; X [115A] exit at g/o goes back to menu +; X [115A] more in menu lets you reselect the levelfile +; X [115A] LINK: fixed waiting mode (minor display problem) +; * word-value display storage in chartable hole?? +; 1% * misc (bugs, &&&, pollish, &&, &) +; * look at init-z in line routine again +; * rare pea|wall overwrite <- apply stopworm fix? +; 1% * LINK: >Somehow do a lot of testing with 2 calcs< *sigh* +; * LINK: called "Linkmatch" at g/o +; * LINK: minimize sent data (Gametype for example) +; * LVL: episode #3: at least 5 lvls for each mp mode +; * LVL: episode #4: 10 sp levels, including multipeas +; 1% * LVL: episode #5: ... +; * LVL: Wormage +; * LVL: Free Bird +; * LVL: Jonah? +; ;100% = bugs fixed + levels done - -;----------------------------- -;----------------------------- -;--------- W O R M --------- -;----------------------------- -;----------------------------- - -#define buffer ;use display buffer (otherwise write directly to screen) -#define readymask ;"greys" out the field before starting a level -;#define hlines ;horizontal-line routine for more speed drawing boxes - -;#define readytext ;displays "prepare" before level starts -;#define invincible ;worms cannot die =) - -#define cal call -#define psh push -#define dnz djnz +; * correct team winners +; * arrow to offscreen peas +;110% * sound +; * startpos +;120% * coop (DON'T COUNT ON IT) +; * pause in linkplay + +;_______________________________________________________________________________ +; _/_/_____ __ _ _______ _ _ ______ _______ +; _/_/ | | \ | | | | | | \ |______ +; / / __|__ | \_| |_____ |_____ |_____| |_____/ |______ +;_______________________________________________________________________________ #include "asm86.h" #include "ti86asm.inc" -_SHRACC = $4383 -_SHLACC = $438B + #define cal call + #define psh push + #define dnz djnz + +_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) @@ -75,91 +136,127 @@ _LOAD_ABS_SRC_ADDR = $5209 ;ahl = mm.ldir source _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 +_MM_LDIR_SET_SIZE = $524D ;_SET_MM_NUM_BYTES + _mm_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 +_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 ------- -;----------------------------- - -;--- permanent - -ScrBuffer = $8820 ;-A7FF (20*FF=1FE0) +_GETB_AHL = $46C3 ;a=(ahl) \ hl=ahl + + #define buffer ;use display buffer (otherwise write directly to screen) + #define readymask ;"greys" out the field before starting a level + #define coolzgfx ;nice graphics for game over screen + #define spprotect ;options not changable for singleplayer modes +;#define intlevels ;-internal levels +;#define readytext ;-displays "prepare" before level starts +;#define invincible ;-worms cannot die =) +;#define optdie ;-in race games worms dont die when they run into each other + +;_______________________________________________________________________________ +; _______ _______ _____ ______ _______ ______ _______ +; |______ | | | |_____/ |_____| | ____ |______ +; ______| | |_____| | \_ | | |_____| |______ +;_______________________________________________________________________________ + +;--- permanent --- + +ScrBuffer = $8420 ;-A3FF (20*FF=1FE0) +worm4p = $A400 ;-A5FF (200) %101001O0 +;free = $A600 ;-A7FF (200) worm2p = $A800 ;-ABFF (400) %10101O00 -worm1 = $AC00 ;-AC1D (31d) -worm2 = $AC1F ;-AC3B (1F) -worm3 = $AC3E ;-AC59 (1F) -worm4 = $AC5D ;-AC77 (1F) -balls = $AC7C ;-ACFF (3x43d) -SinCosTable = $AD00 ;-AE00 (4x40) - ;free $AE01 ;-AFFF (1FF) +SinCosTable = $AC00 ;-AD00 (4*40) +worm1 = $AD01 ;-AD1F (1F) +worm2 = $AD20 ;-AD3E (1F) +worm3 = $AD3F ;-AD5D (1F) +worm4 = $AD5E ;-AD7C (1F) +balls = $AD7D ;-AE00 (<=3x44d) +turn10 = $AE01 ;-AE01 (1) (counter) +peaspos = $AE02 ;-AF05 (4-260) (peas) +;free = $AF06 ;-AFFF (F9) worm1p = $B000 ;-B7FF (800) %1011O000 worm3p = $B800 ;-BBFF (400) %10111O00 - ;free $BF91 ;-BFFF (6F) - - ;program $D748 ;-E7FF (106D+4A) - ;free $E800 ;-EFFF (800) -worm4p = $F000 ;-F3FF (400) %11110O00 -leveldata = $F400 ;-FA70 (<=671) +;buffer = $BC00 ;-BF90 (390) +;free = $BF91 ;-BFFF (6F) +;program = $D748 ;-EFFF (186D+4A) ;6327 +leveldata = $F080 ;-F9FF (<=97F) +#ifndef intlevels +datalevels = $FA00 ;-FA11 (12) (>=$C000) +nrlevels = $FA12 ;-FA1B (A) (<$FA70) +defspr = $F078 ;-F07F (8) +defsprsz = 0 +#endif -peaspos = $AE01 +;MEM|8---9---A---B---C---D---E---F---| ;there's something wrong +; |..[------]||[]|......[-----]|[].| ;if you still understand < OUTDATED < +; | SCREEN 2* 13 PRGM 4LV | ;after looking at this -;--- temporary +;--- temporary --- namelength = $BC00 ;(1) @menu +datalink = $BC00 ;(8) @init #ifdef buffer DispBuffer = $BC00 ;(10x57d) @game #else DispBuffer = $FC70 #endif - -;----------------------------- -;------- program start ------- -;----------------------------- - -.org _asm_exec_ram - -wormVhost = 093 -wormVclient = 193 - -start: - nop - jp Start - .dw 1 - .dw WormTxt - .dw WormIcon - -WormTxt: - .db "WORMY by SHIAR -- beta 93%",0 +linklevel = $AECC ;(<=134) @game+init +lefttotalb = $BF91 ;(1) @game +drawctfpea1 = peaspos+4 +drawctfpea2 = peaspos+6 + +;_______________________________________________________________________________ +; _____ ______ _____ ______ _______ _______ _______ ______ _______ +; |_____] |_____/ | | | ____ |______ | |_____| |_____/ | +; | | \_ |_____| |_____| _____ ______| | | | | \_ | +;_______________________________________________________________________________ + + .org %1101011101001000 + +start: ;turn back NOW! + nop ;and so it begins... + jp Start + ld bc,$5242 + rst 10h + .dw WormIcon + ld d,a + ld c,a + ld d,d + ld c,l + ld e,c + jr nz,$+100 + ld a,c + jr nz,$+$55 + ld c,b + .dw 16713 + .db %1010010 + jr nz,$+47 + dec l + .db " 97% .115A",0 WormIcon: - .db 9,2 - .db %10010110,%01101111 - .db %10110101,%01001011 - .db %01110011,%01001001 - .db %00000011,%10000000 - .db %00000001,%11100000 - .db %00111000,%11111000 - .db %01111110,%00111111 - .db %11101111,%00001111 - .db %11000011,%10000000 + .db 8,2 + .db %00000000,%00111100 + .db %00000000,%01010010 + .db %00000000,%01100001 + .db %01100011,%10011001 + .db %10010100,%01101001 + .db %10011001,%00011001 + .db %01000010,%11000001 + .db %00111100,%00111110 levelhead = 'w' -levelhead2 = 93 ;wormy levels header = "93" +levelhead2 = 97 ;wormy levels header = "97" int_handler: - ex af,af' - in a,($03) + ex af,af' + in a,($03) bit 3,a - jp z,$0039 + jp z,$0039 res 0,a out ($03),a - jp $0039 + jp $0039 int_end: Start: @@ -170,23 +267,24 @@ Start: im 1 ld a,$D4 ld h,a - ld l,0 ;ld hl,$D400 + ld l,0 ;ld hl,$D400 ld d,a - ld e,1 ;ld de,$D401 + ld e,1 ;ld de,$D401 ld b,e - ld c,l ;ld bc,$0100 - dec a ;ld a,$D3 + ld c,l ;ld bc,$0100 + dec a ;ld a,$D3 ld (hl),a ldir ld hl,int_handler ld d,a - ld e,a ;ld de,$D3D3 + ld e,a ;ld de,$D3D3 ld bc,int_end-int_handler ldir - inc a ;ld a,$D4 + inc a ;ld a,$D4 ld i,a - im 2 + im 2 ;...it *does* work ;) +restart: cal _RAM_PAGE_7 ld hl,$BFFF ;VAT start ld ix,templevels @@ -240,111 +338,92 @@ stringfound: inc ix _searchnext: cal _RAM_PAGE_7 - jr searchnext + jr searchnext loadgametype: psh de - inc bc - inc bc cal _Get_Word_ahl ;ld de,(ahl++) psh af - ld a,d - or e - jr z,defaultlevels ld a,e ;set new level ld (bc),a inc bc ld a,d ld (bc),a - dec bc -defaultlevels: + inc bc pop af pop de ;counter - dec d ;8x + dec d ;9x jr nz,loadgametype ret +;_______________________________________________________________________________ +; _______ _ _ _______ _______ _______ _______ _______ +; | |______ \ / |______ |______ | |______ | | +; |_____ |______ \/ _____ ______| |______ |_____ |______ |_____ | +;_______________________________________________________________________________ + searchcomplete: ld a,255 ld (ix),a ;end mark +#ifdef intlevels + ld ix,templevels-6 +#else + ld ix,templevels-3 +#endif + cp (ix+3) ;1st=255 + jp z,ExitNoStats ;->no lvls + cp (ix+6) ;2nd=255 + jr z,loadlevel1 ;->1 lvl +levelselectmenu: ;load next page + psh ix ;offset + ld a,-2 + ld (availevels),a cal _clrWindow - ld hl,templevels-3 - psh hl - ld hl,$0020 + ld hl,$0320 ld (_penCol),hl ld hl,txtLevsel - cal _vputs ;"< Select levels: >" + cal _vputs ;"< SELECT LEVELS >" + ld hl,$FC00+(2*16) + ld b,16*9 + cal menuinvloop + ld hl,$FC00+$380 ;(*,56) + cal hr ld hl,$0601 ;x=1 ld (_penCol),hl - pop hl dispnextlevel: - ld a,(hl) + ld de,3 + add ix,de + ld a,(ix) + ld b,a inc a ;cp 255 - jr z,_levselect - ld a,(hl) ;ade=(hl) + jr z,__levselect displevel: - inc hl - ld d,(hl) - inc hl - ld e,(hl) - inc hl - psh hl - ex de,hl ;ahl=ade=(hl) - cal _load_ram_ahl ;hl=ahl - ld b,(hl) ;b=title size - cal _vputs ld hl,_penCol ld (hl),$01 ;x=1 inc hl ld a,(hl) add a,6 ld (hl),a ;y+6 + cp 49 ;bottom of screen + jr nc,_levselect ld hl,availevels inc (hl) - pop hl + ld a,b ;(ix+0) + ld h,(ix+1) + ld l,(ix+2) ;ahl=(ix) + cal _load_ram_ahl ;hl=ahl + cal _vputs 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 \ halt - psh bc - cal GET_KEY - 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 - cp K_EXIT-1 - ret z - cp K_ENTER-1 - jr nz,levselect -; jr z,loadlevel +loadlevel1: + psh ix + pop hl + ld b,-2 + jr loadlevel -loadlevel: +readylevelfile: ;selected level at ahl +; ld hl,templevels-3/0 ld a,b add a,3 ;sellev+3 (#0==-3) ld e,a @@ -352,37 +431,105 @@ loadlevel: 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 - inc hl ld d,(hl) inc hl ld e,(hl) ex de,hl ;ahl=ade skiptitle: - ld b,a ;psh ahl + ld d,a ;psh ahl psh hl cal _GETB_AHL ;ld a,(ahl) pop hl or a - ld a,b ;pop ahl + ld a,d ;pop ahl psh af cal _INC_PTR_AHL ;ahl++ pop af ;cp 0 jr nz,skiptitle ;goto #0-terminator + ret + +levup: + cal menupos + dec b ;up + ld a,b + cp -3 + jr nz,levselect + inc b ;undo + jr levselect +levdown: + cal menupos + inc b ;down + ld a,b + cp -2 +availevels =$-1 + jr nz,levselect + dec b ;back up +levselect: + cal menupos + ld hl,$3900 + ld (_penCol),hl + pop hl + psh hl + cal readylevelfile + cal _load_ram_ahl ;hl=ahl + ld de,$FFA0 ;desc.text + xor a +levdescclearloop: + ld (de),a ;empty + inc de + cp d ;de>$FFFF (offscreen) + jr nz,levdescclearloop + cal _vputs + jr levselectmenu+1 +__levselect: +#ifdef intlevels + ld ix,templevels-6 ;reset 2 1st page +#else + ld ix,templevels-3 +#endif +_levselect: + ld b,-2 ;level selected + jr levselect +levselectmenu: + psh hl + psh bc + cal ubergetkey + pop bc ;GET_KEY destr. b + dec a ;cp K_DOWN + jr z,levdown + sub K_UP-1 + jr z,levup + pop hl + inc a ;cp K_RIGHT + jp z,levelselectmenu + cp K_ENTER-K_RIGHT + jr z,loadlevel + sub K_EXIT-K_RIGHT + jp z,ExitNoStats + inc a ;cp K_SECOND + jr nz,levselectmenu +; jr z,loadlevel + +loadlevel: + cal readylevelfile +#ifdef intlevels + or a ;levelfile on page 0 (=internal) + jr z,levelloaded +#endif + cal skiptitle ;skip description cal _Get_Word_ahl ld (leveldataSize),de - ld d,8 ;counter - ld bc,datalevels-2 + + ld d,9 ;counter + ld bc,datalevels cal loadgametype - ld (hilvlposa),a + ld (hilvlposa),a ;singleplayer levels ld (hilvlposhl),hl - ld d,4 + ld d,5 cal loadgametype cal _SET_ABS_SRC_ADDR ;levelsstart @@ -391,8 +538,7 @@ skiptitle: cal _SET_ABS_DEST_ADDR ;store in mem. ld hl,0 leveldataSize =$-2 - cal _SET_MM_NUM_BYTES - cal _mm_ldir + cal _MM_LDIR_SET_SIZE cal _LOAD_ABS_SRC_ADDR ;->ahl ld (hiscrposa),a @@ -412,23 +558,25 @@ levelloaded: ld hl,datasingle+3 ld b,8 + ld de,8 setdeflevels: ld (hl),1 ;def=level#1 - inc hl - inc hl - inc hl - inc hl + add hl,de ;next dnz setdeflevels -;----------------------------- -;----- build trig tables ----- -;----------------------------- +;_______________________________________________________________________________ +; _______ _____ ______ _______ _____ __ _ _____ _______ +; | | | | | |_____/ |______ | | \ | | | +; | | | |_____| | \_ |______ _____ __|__ | \_| __|__ | +;_______________________________________________________________________________ - ld hl,TrigPrecalc - ld de,SinCosTable - psh de ; >> 1 - ld bc,65 - ldir +;--- trig tables --- + + ld hl,trigtable ;I believe this + ld de,SinCosTable ;is one of the few + psh de ;pieces of original + ld bc,65 ;Peaworm code still + ldir ;left intact.. dec hl ld b,63 MirrorSineWave: @@ -437,7 +585,7 @@ MirrorSineWave: ld (de),a inc de dnz MirrorSineWave - pop hl ; << 0k + pop hl ;SinCosTable ld b,128+64 NegativeSineWave: xor a @@ -447,33 +595,299 @@ NegativeSineWave: inc de dnz NegativeSineWave -;----------------------------- -;---------- menu ------------- -;----------------------------- +;_______________________________________________________________________________ +; _______ _______ _____ __ _ _______ _______ __ _ _ _ +; | | | |_____| | | \ | | | | |______ | \ | | | +; | | | | | __|__ | \_| _____ | | | |______ | \_| |_____| +;_______________________________________________________________________________ + +;---draw menu--- -DisplayMenu: ;---draw menu--- +DisplayMenu: + cal linkok cal _clrWindow ld de,$FC40 ;(0,4) ld hl,wtPicture ld bc,16*16 ldir - + ld hl,$FC00+$010 ;(*,01) + cal hr + ld hl,$FC00+$160 ;(*,22) + cal hr + ld hl,$FC00+$3E0 ;(*,62) + cal hr +dispmainmenu: + ld a,(Gametype) + dec a ;will be inced @changegame + cal changedgame + ld hl,changegame ;dispmenusets ;mainMenu + psh hl ;jump here after ret ld hl,txtMenu ld ix,posMenu - ld b,6 +;Mode|Level|Link|Worms|worm #|controls +; jr dispmenucommon ;cal + +dispmenucommon_: + ld b,36*16/4 +dispmenucommon: + ld de,$FD80 ;begin pos + xor a +clroldmenuloop: + ld (de),a + inc de + ld (de),a + inc de + ld (de),a + inc de + ld (de),a + inc de + dnz clroldmenuloop + + ld b,(ix) dispmenuloop: - ld d,(ix) + ld d,(ix+1) inc ix - ld e,(ix) + ld e,(ix+1) inc ix ld (_penCol),de - cal _vputs ;Mode \ Level \ Limit \ Worms \ worm # \ controls + cal _vputs dnz dispmenuloop +; ld b,0 ;b=menu# + ret - ld b,0 ;b=menu# - jr _dispmenusets ;mainMenu +hr: ;draw horizontal line at hl + ld b,16 +; jp menuinvloop ;shorter but not good for pausescreen +hrloop: + ld (hl),-1 + inc hl + dnz hrloop + ret + +;--- options menu --- + +dispoptionmenu: + ld hl,txtoMenu + ld ix,posoMenu +;Back|Lives|Limit|Speed|Rotation|Growth + cal dispmenucommon_ + +dispomenusets: +#ifdef spprotect + ld a,(gameCar) + and _datasingl + jp nz,LetsGetThisPartyOn +#endif + 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,c ;(gameCar) + rla ;and _dataPmult + jr nz,optionMenu ;in multifood limit == #peas + 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 + sub K_LEFT + jr z,seloleft + dec a ;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 20 + 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 -;--- menu loop --- +;--- main menu --- mainMenu: cal menupos @@ -482,22 +896,37 @@ mainMenu: select: ;2nd/enter cal menupos ld a,b - sub 4 ;4th item? + dec a ;2nd item: level + jp z,dispoptionmenu + sub 3 ;5th item: wormname jp z,changeworms - dec a ;5th? + dec a ;6th: controls jp z,changekeys - jp LetsGetThisPartyOn ;1/2/3/5 + jp LetsGetThisPartyOn ;otherwise + +changenrworms: + cal change4spOnly + ld a,(hl) ;hl=nrworms + inc a + cp 7 + jr nc,mainMenu ;may not be >4+2 +changednrworms: + ld (hl),a + jr _dispmenusets ;mainMenu + notselect cp K_EXIT jp z,ExitNoStats + cp K_MORE + jp z,restart psh af cal menupos cal loadgamecar inc hl pop af - cp K_LEFT + sub K_LEFT jr z,selleft - cp K_RIGHT + dec a ;K_RIGHT ld a,b jr nz,mainMenu @@ -505,23 +934,21 @@ selright: or a jr z,changegame dec a - jp z,changelevel ;&&&jr?? + jr z,changelevel dec a - jr z,changelives + jr z,changelink dec a jr z,changenrworms ; dec a ; jr z,changecurworm changecurworm: -; hl=nrworms - ld a,(curworm) - cp (hl) - jr nc,mainMenu ;may not become >(nrworms) - inc a -changedcurworm: - ld (curworm),a - jr _dispmenusets ;mainMenu + ld hl,curworm + ld a,(hl) + cp 4 + jr nc,mainMenu ;may not become >4 + inc (hl) + jr _dispmenusets ;mainMenu selleft: ld a,b @@ -530,84 +957,77 @@ selleft: dec a jr z,bchangelevel dec a - jr z,bchangelives + jr z,bchangelink dec a jr z,bchangenrworms ; dec a ; jr z,bchangecurworm bchangecurworm: - ld a,(curworm) - dec a ;0-3 - jr nz,changedcurworm ;save >0 + ld hl,curworm + ld a,(hl) + dec (hl) ;0-3 + jr nz,_dispmenusets ;save >0 + inc (hl) +_mainMenu: jr mainMenu -changenrworms: - ld a,(Gametype) +bchangenrworms: + cal change4spOnly + ld a,(hl) ;hl=nrworms + dec a ;0-(3+2) 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: + jr nc,changednrworms ;save >=2 + jr _mainMenu + +change4spOnly: + ld a,(Gametype) + cp 3 + ret nc + pop hl ;cal + jr _mainMenu ;don't change for singleplayer + +changelink: +bchangelink: + cal change4spOnly + dec hl ;inced earlier + dec hl ;gameCar + ld a,1 ;change LS-bit (=link) + xor (hl) ;0=1; 1=0 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,0 -Gametype =$-1 + ld a,(Gametype) inc a + cal changedgame + jr z,changegame + jr dispmenusets ;mainMenu changedgame: - and 7 ;mod 8 + cp 9 + jr c,changedgameok + sub 255-8 ;-1 -> 8 + jr nc,changedgameok + xor a ;9 -> 0 +changedgameok: ld (Gametype),a - jr dispmenusets ;mainMenu + cal getnrlevels + xor a + cp (hl) + ret bchangegame: ld a,(Gametype) dec a - jr changedgame - -changelives: - cal changelivesInit - inc a - cp 100 - jr nc,_mainMenu ;&& _? -changedlives: - ld (hl),a + cal changedgame + jr z,bchangegame jr dispmenusets ;mainMenu -bchangelives: - cal changelivesInit - dec a - jr z,_mainMenu - 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 _mainMenu ;singleplayer (no limit) 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 + cal getnrlevels cp (hl) ;max level for sel.game pop hl jr z,_mainMenu @@ -622,13 +1042,20 @@ bchangelevel: jr nz,changedlevel jr _mainMenu +getnrlevels: ;for current gametype at hl + ld hl,Gametype + ld d,0 + ld e,(hl) + ld hl,nrlevels + add hl,de + ret + getcustomkey: cal _vputs dec ix waitcustomkey: - halt \ halt psh hl - cal GET_KEY + cal ubergetkey pop hl or a jr z,waitcustomkey @@ -641,28 +1068,15 @@ waitcustomkey: changekeys: cal getwormname - ld hl,txtKeyleft + ld hl,txtKleft cal getcustomkey ;left cal getcustomkey ;right ; jr dispmenusets -;---display current settings--- +;--- display current settings --- dispmenusets: - 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 - + cal clrold ld de,$183E ld (_penCol),de ld d,0 @@ -677,36 +1091,47 @@ clroldsetsloop: ld (CURtxtGame),hl ;save for g/o cal _vputs ;Singleplayer - cal loadgamecar - psh hl - ld hl,$243E - ld (_penCol),hl - cal cshowA ;liveslimit - sub '0' ;original A - ld l,a - ld a,c - and _datascore - ld a,' ' - jr z,limitok - ld a,'0' -limitok: - cal _vputmap ;x10 - ld hl,$2A3E ;worms ld (_penCol),hl - pop hl ;cal loadgamecar - inc hl + cal loadgamecar psh hl + inc hl ld a,(hl) + dec a ;0-5 + and 3 ;0-3 + inc a ;1-4 add a,'0' cal _vputmap + ld a,(hl) + cp 5 + ld hl,txtteamed + cal nc,_vputs + + ld hl,$243E + ld (_penCol),hl + rr c ;(gameCar) + ld hl,txtNo + jr nc,displink + ld hl,txtYes +displink: + cal _vputs ld hl,$1E3E ;level ld (_penCol),hl - pop hl ;loadgamecar; hl++ - inc hl - ld a,(hl) ;(curlevel) - cal cshowA + pop hl ;loadgamecar + psh bc + ld d,0 + cal hlatlevel + ld a,(Gametype) + or a ;gamesingle + jr nz,displvlname + ld a,(Level) + cal cshowA00 + jr lvldisped +displvlname: + cal _vputs +lvldisped: + pop bc ld hl,$3032 ld (_penCol),hl @@ -717,13 +1142,13 @@ curworm =$-1 ld hl,$303E ld (_penCol),hl cal getwormname - ld hl,worm1name-18 - add hl,de + psh ix ;wormNname + pop hl ;ld hl,ix cal _vputs ld hl,$363E ;controls ld (_penCol),hl -; ld hl,txtMenu -; cal _vputs + ld hl,txtMenuR + cal _vputs jp mainMenu ;--- handle menukeys --- @@ -731,8 +1156,7 @@ curworm =$-1 menucall: psh bc menuwaitkey: - halt \ halt - cal GET_KEY + cal ubergetkey or a jr z,menuwaitkey pop bc ;GET_KEY destr. b @@ -807,62 +1231,53 @@ getwormname: ;of (curworm) 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 ;end mark - jp DisplayMenu - -entername: - ld h,1 - ld l,h ;) - ld (_curRow),hl + psh ix + pop hl ;ld hl,ix + psh hl + ld b,8 +emptyname: + ld (hl),' ' + inc hl + dnz emptyname + ld a,maxnamesize ld (namelength),a enternameloop: + ld hl,$FF07 ;begin pos + ld a,6 ;nr of lines + cal clroldcustom + ld hl,$303E + ld (_penCol),hl + pop hl + psh hl + ld (ix),0 + cal __vputs + ld (ix),' ' ld a,'_' - cal _putc - ld hl,_curCol - dec (hl) + cal __vputmap nokeypressed: - halt - cal GET_KEY + cal ubergetkey or a jr z,nokeypressed + ld hl,namelength cp K_DEL jr nz,continue backspace: - ld hl,namelength ld a,(hl) - cp maxnamelength + cp maxnamesize jr nc,nokeypressed inc (hl) - dec ix - ld a,' ' - ld (ix),a - cal _putc - ld hl,_curCol - dec (hl) - dec (hl) jr enternameloop continue: cp K_ENTER - ret z + jr z,nameentered cp K_EXIT - ret z - - ld hl,namelength - dec (hl) - ret z + jr z,nameentered + dec (hl) ;(namelength) + jr z,nameentered ld hl,chartable ld e,a ld d,0 @@ -870,26 +1285,87 @@ continue: ld a,(hl) or a jr z,nokeypressed - ld (ix),a - cal _putc inc ix cal releasekeys jr enternameloop - +savestr: + .db "00000" ;,0 ;&&&somehow put in chartable's 5-byte hole chartable: - .db 0,".<>!",0,0,0,0 ;down,L,R,up - .db 0,"XTOJE0",0 ;enter..clear - .db " WSNID9",0 ;(-)..custom - .db "ZVRMHC8",0 ;dot..del - .db "YUQLGB7#" ;0..xvar - .db $D9,"-PKFA6'" ;on..alpha - .db "54321*",0,$D0 ;F5..more + .db 0,".<>!",0,0,0,0 ;down|L|R|up|-|-|-|- + .db -1,"XTOJE0",0 ;enter|+|-|*|/|^|clear|- + .db " WSNID9",0 ;(-)|3|6|9|)|tan|custom|- + .db "ZVRMHC8",-1 ;.|2|5|8|(|cos|prgm|del + .db "YUQLGB7#" ;0|1|4|7|ee|sin|table|xvar + .db $D9,"-PKFA6'" ;on|sto|,|x2|ln|log|graph|alpha + .db "54321*",-1,$D0 ;F5|F4|F3|F2|F1|2nd|exit|more + +nameentered: + pop ix ;stringbegin + ld (ix+8),0 ;end mark + jp DisplayMenu + +;_______________________________________________________________________________ +; _______ _____ _______ _______ _____ ______ _____ _______ _______ +; | | | | |______ | |_____] |_____/ | | | |______ +; | | | __|__ ______| |_____ _____ | | \_ |_____| |_____ ______| +;_______________________________________________________________________________ + +ubergetkey: + halt ;woo hoo + halt ;save them batteries! yeah! + jp GET_KEY + +clrold: + ld hl,$FD97 ;begin pos + ld a,35 ;nr of lines +clroldcustom: + ld de,7 ;bytes to add +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 + +hlatlevel: ;d must be 0 + psh hl ;loadgamecar + ld a,(Gametype) ;8bytes -> 7bytes + add a,a + ld e,a ;=de + ld hl,datalevels + add hl,de + cal _ldHLind ;ld hl,(hl) + pop de ;de=loadgamecar + inc de \ inc de + ld a,(de) ;(curlevel) + ld (Level),a + ld d,a ;begin level +skiplevelloop: + dec d ;levels to skip + ret z + cal skiplevel + jr skiplevelloop + ret ;hl=begin of correct level -;--proc +skiplvltitle: ;zf=singleplayer + ld a,(hl) + or a ;null-terminator + inc hl + jr nz,skiplvltitle + ret skiplevel: ;@hl - destr:ab - alter:hl + ld a,(Gametype) + or a ;gamesingle + psh af + cal nz,skiplvltitle inc hl inc hl inc hl @@ -902,8 +1378,7 @@ skipsprite: ld b,(hl) ;balls inc b inc b ;skip 6 - ld a,c - cp _datasp + pop af ;cp (Gametype),0 jr z,skipworms inc b ;multiplayer lvl inc b @@ -919,18 +1394,21 @@ skipballs: skipflags: ld a,(Gametype) + cp gamerace + jr z,skiplaps cp gamectf jr nz,noflagstoskip inc hl inc hl +skiplaps: inc hl inc hl noflagstoskip: skipobjects: - ld a,(hl) - inc hl - or a + xor a + or (hl) + inc hl ;nf ret z ;0=end inc hl inc hl @@ -940,7 +1418,7 @@ skipobjects: loadgamecar: ;in: (Gametype) -;out: Gametype+1=hl +;out: hl=dataTYPE ;build: c=(gameCar)=(hl-1) ; a=(wormbeglives)=(hl) ;destr: acdehl @@ -948,6 +1426,7 @@ loadgamecar: 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 @@ -959,108 +1438,30 @@ loadgamecar: ld (wormbeglives),a ret -;----------------------------- -;-------- start game --------- -;----------------------------- +;_______________________________________________________________________________ +; _______ _______ _______ ______ _______ ______ _______ _______ _______ +; |______ | |_____| |_____/ | | ____ |_____| | | | |______ +; ______| | | | | \_ | _____ |_____| | | | | | |______ +;_______________________________________________________________________________ LetsGetThisPartyOn: ld a,$17 ;no exit ld (CheckExit),a ;set exit state - cal loadgamecar - ld b,a ;psh a - inc hl ;nrworms - ld a,(hl) - ld (nrworms),a - ld l,b ;pop a - ld h,0 ;hl=a - cal _HLTIMES10 ;hl=10*(hl) - ld (scorelimit),hl ;set limit - - cal loadgamecar ;nc - psh hl - ld a,(Gametype) ;4bytes -> 3bytes - add a,a ;3->2bytes - add a,24+1 ;go to datalevels - ld e,a ;=de - sbc hl,de ;datalevels - - ld a,c ;(gameCar) - and _datascore - jr nz,scorelimitset - dec a ;ld a,$FF ;=no_limit - ld (scorelimit),a -scorelimitset: - - cal _ldHLind ;ld hl,(hl) - pop de ;de=loadgamecar - inc de \ inc de - ld a,(de) ;(curlevel) - ld (Level),a - ld d,a ;begin level -skiplevelloop: - dec d ;levels to skip - jr z,levelsskipped - cal skiplevel - jr skiplevelloop -levelsskipped: - - psh hl ;1st level - ld a,c - and _datalink - jr z,GameOver - -linkmatch: - cal _clrWindow - ld c,wormVhost - cal Qsend - ld hl,txtWaiting - cal _puts - cal Crecv - ld a,c - cp wormVclient - jr z,client - cp wormVhost - jr nz,linkiniterror -host: - ld c,wormVclient - cal Qsend - ld a,$18 - jr multiplayer - -linkiniterror: - pop hl - jp DisplayMenu - -client: - ld hl,txtReceive - cal _puts - ld a,$E6 -multiplayer: - ld (SwapPos),a - ld a,2 - ld (nrworms),a - -;----------------------------- -;--------- game over --------- -;----------------------------- - -GameOver: - ld a,%11000000 - out (7),a ;link normal - cal _clrLCD +setupworms: ld hl,worm1set ld de,worm1 ld a,4 ;4x (all worms) createwormsloop: ex de,hl - ld bc,died + ld bc,died ;0008 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 @@ -1073,34 +1474,241 @@ wormbeglives =$-1 dec a ;loop jr nz,createwormsloop - pop hl ;begin of current level +OhMyGodItsALabel: ;pj34r my coding skillz + cal loadgamecar + psh hl ;datatype + cal hlatlevel + ex (sp),hl ;pop \ psh leveldata + psh hl ;psh loadgamecar + ld a,0 +gameCar =$-1 + rra ;and _datalink + jr nc,_StartLevel -StartLevel: - ld de,Left - ld a,(hl) - inc a ;=255? - jp nz,nextlevel +;--- link --- - ld hl,Level - dec (hl) ;curlevel-- (not beyond last lvl) - psh hl - cal releasekeys +wormVhost = 095 +wormVclient = 195 + +linkmatch: cal _clrWindow - pop hl -;show end msg or smtn - ld bc,Exit - psh bc ;where to go afterwards - inc hl ;location of ending-code - jp (hl) ;go there ("call") -nextlevel: - ldi - ld de,Speed - ldi - ld de,peagrowth - ldi - ld a,(hl) - ld (worm1+grow),a - ld (worm2+grow),a + ld c,wormVhost + cal Qsend + ld hl,txtWaitn + cal _puts + cal Crecv + ld a,c + cp wormVclient + jr nz,host + +;--- client --- + +client: +; ld hl,txtReceiv +; cal _puts ;shouldnt be necessary since this part always seems to work afaik + + ;name/keys: wormy#1 = worm #1 = ok + ; 2 = link = 0 + link (name1) + ; 3 = worm #2 = #2 + local(name2) + ; 4 = link = 0 + link (name2) + ld e,worm3+left&255 + cal moveworm2 ;3=2 + ld l,worm1+name&255 + cal sendworm + ld l,worm2+left&255 + cal linkworm ;worm2+4 over link + pop hl ;loadgamecar + pop de ;leveldata + ld de,linklevel + ld hl,datalink + psh de + psh hl ;loadgamecar + ld b,8 ;&&&&&&& + cal recvstuff + ld hl,gameCar + ld b,1 + cal recvstuff + ld hl,Gametype + ld b,1 + cal recvstuff + ex de,hl + ld b,168 + cal recvstuff + +_StartLevel: + jr StartLevel + +linkerror: + pop hl ;error + jp DisplayMenu ;return to menu + +;--- set/send worms --- + +moveworm2: + ld hl,worm2+left +moveworm: ;hl=wormN+left + ld d,worm1/256 + ld bc,11 + ldir ;keys+name worm(de) = worm(hl) + ret +linkworm: ;hl=wormN+left + ld (hl),0 ;worm1|2+left + inc hl + inc hl ;+name + ld b,9 + cal recvstuff + ld bc,worm3-worm1-11 ;+2 + add hl,bc ;b=0 + ld (hl),b ;worm3|4+left + inc hl + inc hl ;+name + ld b,9 + jp recvstuff +sendworm: ;hl=wormN+name + ld b,9 + cal sendstuff + ld bc,worm3-worm1-9 + add hl,bc ;worm(N+2)+name + ld b,9 + jp sendstuff + +;--- host --- + +host: + cp wormVhost + jr nz,linkerror + ld c,wormVclient + cal Qsend + + ;name/keys: wormy#1 = link = 0 + link (name1) + ; 2 = worm #1 = #1 + local(name1) + ; 3 = link = 0 + link (name2) + ; 4 = worm #2 = #2 + local(name2) + ld e,worm4+left&255 + cal moveworm2 ;4=2 + ld e,worm2+left&255 + ld hl,worm1+left + cal moveworm ;2=1 + ld l,worm1+left&255 + cal linkworm ;worm1+3 over link + ld l,worm2+name&255 + cal sendworm + pop hl ;loadgamecar + pop de ;leveldata + psh de + psh hl ;loadgamecar + ld b,8 + cal sendstuff + ld hl,gameCar + ld b,1 + cal sendstuff + ld hl,Gametype + ld b,1 + cal sendstuff + ex de,hl + ld b,168 + cal sendstuff + +;--- load level --- + +StartLevel: + pop hl ;loadgamecar + ld a,(hl) + ld (wormbeglives),a + inc hl ;nrworms + ld b,$11 ;=ignore (ld) + ld a,(hl) + cp 5 + jr c,teamset + sub 2 + ld b,$CD ;=continue (call) +teamset: + ld (nrworms),a + ld a,b + ld (doteam),a ;do team score (CD) or not (11) + inc hl ;level + inc hl + ld a,(hl) + ld (customspeed),a + inc hl + ld a,(hl) + ld (growspeed),a + ld (turn),a + inc hl + ld a,(hl) + ld (turnleft),a + ld (turnright),a ;more efficient + inc hl + ld l,(hl) + ld h,0 + ld a,(gameCar) + rla + ld a,h ;(Left)=256 + jr nc,setscorelimit + ld a,l + ld l,h +setscorelimit: + ld (customleft),a + cal _HLTIMES10 ;hl=10*(hl) + ld (scorelimit),hl + +Nextlevel: + cal _clrWindow + pop hl ;begin of current level + ld a,(hl) + inc a ;=255? + jp nz,donextlevel + + psh hl + ld hl,Level + dec (hl) ;curlevel-- (not beyond last lvl) + cal releasekeys + pop hl +;show end msg or smtn + ld bc,Exit + psh bc ;where to go afterwards + inc hl ;location of ending-code + jp (hl) ;go there ("call") +donextlevel: + ld a,(Gametype) + or a ;gamesingle + psh af + cal nz,skiplvltitle + ld a,(hl) + and 127 + jr nz,setleft +customleft =$+1 + ld a,0 +setleft: + ld (Left),a + inc a + ld (lefttotal),a + dec a + xor (hl) ;bit (hl),7 + ld bc,gameCar + ld a,(bc) + jr z,leftloaded + or 128+32 +leftloaded: + ld (bc),a + inc de + inc hl + ld de,Speed + ld a,0 +customspeed =$-1 + inc a ;$FF=def + jr nz,setspeed + ld a,(hl) ;speed from level + inc a +setspeed: + dec a + ld (de),a ;custom speed + inc hl + ld de,peagrowth + ldi + ld a,(hl) + ld (worm1+grow),a ;&&sh + ld (worm2+grow),a ld (worm3+grow),a ld (worm4+grow),a ld (beginsize),a @@ -1117,10 +1725,10 @@ nextlevel: add hl,bc ;hl=behind sprite jr setsprite defaultsprite: - ld a,defspritesz + ld a,defsprsz defsprsize =$-1 defsprite =$+1 - ld de,defspriteimg + ld de,defspr setsprite: ;de=@sprite ;a=sprsize ld (sprsize),a ld (spritepos),de @@ -1145,34 +1753,41 @@ toobad_noballs: #endif ld hl,worm1 - ld a,(gameCar) - cp _datasp + pop af ;cp (Gametype),0 ld b,1 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 + inc hl + inc hl + ld (hl),a ;growH=0 - ld bc,(worm2-worm1)-5 + ld bc,(worm2-worm1)-7 add hl,bc - pop bc ; << 0k + pop bc ;<0 dnz worminit -;-------- draw level --------- + inc a ;ld a,1 + ld (turn10),a + inc a ;ld a,2 + ld (flashtime),a + +;--- draw level --- +initlevel: ld a,(de) inc de sub 128 @@ -1197,23 +1812,23 @@ setfieldy: add hl,hl add hl,hl add hl,hl - add hl,hl + add hl,hl ;32=scr.width ex de,hl ld hl,ScrBuffer psh hl ; >> 1 psh de ; >> 2 ld de,ScrBuffer+1 - ld bc,63 + ld bc,63 ;first 2 rows ld (hl),%11111111 - ldir + ldir ;draw upper border inc hl - ld (hl),%11000000 + ld (hl),%11000000 ;first left border inc hl ld b,31 ClearLine: - ld (hl),c - inc hl + ld (hl),c ;=0 + inc hl ;clear rest of line dnz ClearLine psh hl ; >> 3 @@ -1225,12 +1840,12 @@ ClearLine: rra rra ld l,a - ld h,0 + ld h,c ;0 add hl,de pop af ; << 3 and %00000111 ld b,a - ld c,0 +; ld c,0 ld a,%11000000 jr z,NoVertShift VertShift: @@ -1253,29 +1868,26 @@ NoVertShift: pop hl ; << levelp ld a,(Gametype) - cp gamectf - jr nz,noctf + cp gamerace ;or gamectf + jr c,levelhasbeensetup ld de,peaspos - ld bc,4 + ld c,2 ;ld bc,2 (2 bytes) + jr z,loadextralevelstuff ;cp gamerace + ld c,4 ;ld bc,4 (2nd flag in ctf) +loadextralevelstuff: ldir - psh hl - cal DrawAllPeas - pop hl -noctf: + ld a,1 ;draw delay + ld (drawctfpea1),a + ld (drawctfpea2),a +levelhasbeensetup: cal drawstuff -;----------------------------- +;--- prepare --- +leveldone: psh hl ; >> levelp new - cal showstats - ld a,(gameCar) - and _datafood - jr z,nofood - cal NewPea -nofood: - ld bc,(worm1+pos) - cal DisplayField + cal forceshowstats #ifdef readymask ld hl,$FC70 @@ -1295,7 +1907,6 @@ maskline: dec c jr nz,maskloop #endif - #ifdef readytext ld hl,$FDE0 ld de,$FDE1 @@ -1310,21 +1921,14 @@ maskline: res 3,(iy+5) #endif - ld a,0 -gameCar =$-1 - and _datalink - jr z,initfinished ;no link - xor a - ld (Speed),a ;max.speed -SwapPos: ;$18 xx -> $E6 xx - ; jr xx -> and xx - jr sethost -setclient: - ld (worm1+left),a ;worm 1 via link - jr initfinished -sethost: - ld (worm2+left),a ;worm 2 via link -initfinished: + ld a,(gameCar) + rla ;bit __bitPmult,a + cal c,multnewpea ;a=0 + rla ;bit __bitfood,a + cal nc,NewPea +nofood: + ld bc,(worm1+pos) + cal DisplayField ld b,startdelay ReadyDelay: @@ -1332,13 +1936,20 @@ ReadyDelay: dnz ReadyDelay cal releasekeys -;----------------------------- -;----------- LOOP ------------ -;----------------------------- +;_______________________________________________________________________________ +; ______ _______ _______ _______ _____ _____ _____ +; | ____ |_____| | | | |______ | | | | | |_____] +; |_____| | | | | | |______ _____ |_____ |_____| |_____| | +;_______________________________________________________________________________ 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 @@ -1352,7 +1963,7 @@ screeninvertloop: ld (hl),a inc hl xor a - cp h + cp h ;end at >$FFFF jr nz,screeninvertloop noflash: @@ -1366,7 +1977,40 @@ Delay: jr nz,Delay NoDelay: - ld (handledworm),a ;=0 + ld (handledworm),a ;reset + + ld hl,turn + ld a,(hl) + inc a ;-1 + jr z,nextturnok + dec (hl) + dec a ;>=0 + jr nz,nextturnok +growspeed =$+1 + ld (hl),$FF ;reset +nextturnok: + + ld a,(gameCar) + and _datatime + jr z,nodispupdate + ld hl,turn10 + dec (hl) + jr nz,nodispupdate ;just once every 10 turns + ld (hl),10 ;reset counter + cal forceshowstats ;update score +nodispupdate: + + ld a,(Gametype) + cp gamectf + jr nz,noctfpeas2draw + ld de,drawctfpea1 + ld hl,(peaspos) + cal tryDrawPea ;pea#1 + ld de,drawctfpea2 + ld hl,(peaspos+2) + cal tryDrawPea ;pea#2 +noctfpeas2draw: + ld a,0 nrballs =$-1 @@ -1384,106 +2028,148 @@ handleworms: add ix,bc pop bc ld hl,handledworm - inc (hl) ;1..nrworms + inc (hl) ;0..nrworms-1 dnz handleworms -;----------------------------- -;---------- keys ------------- -;----------------------------- +;_______________________________________________________________________________ +; _ _ _______ __ __ _______ +; |____/ |______ \_/ |______ +; | \_ |______ | ______| +;_______________________________________________________________________________ HandleKeys: ld a,%10111111 out (1),a in a,(1) rla ;MORE? - jr c,CheckExit - ld bc,$0103 - out (c),b - halt ;pause/off - ld b,11 - out (c),b - + jr nc,disppausemenu CheckExit: rla ;=$17 (c=EXIT-key) ;or$A7 (c=0) jp c,GameLoop - jr Exit - -WormDead: -#ifdef invincible - jp stopworm -#else - ld a,2 - ld (flashtime),a - ld (ix+delay),respawndelay - -thislevel =$+1 - ld hl,0 - ld de,0 -handledworm =$-2 - add hl,de - add hl,de - add hl,de - ld a,(hl) - inc hl - ld (ix+heading),a - ld a,(hl) - ld (ix+pos),a - inc hl - ld a,(hl) - ld (ix+pos+1),a + jp Exit ;jr? + +;--- pause menu --- + +disppausemenu: + ld hl,txtpMenu + ld ix,pospMenu +;Resume|Turn Off|Contrast|Exit|| + ld b,25*16/4 + cal dispmenucommon + ld hl,$FC00+$170 ;(*,23) + cal hr + ld hl,$FC00+$310 ;(*,49) + cal hr + cal menupos - inc (ix+died) - dec (ix+lives) +pauseMenu: + psh bc +pmenuwaitkey: + cal ubergetkey + or a + jr z,pmenuwaitkey + pop bc ;GET_KEY + ld d,b ;c=new b + cp K_UP + jr nz,pmenunotup + dec d +pmenunotup: + cp K_DOWN + jr nz,pmenunotdown + inc d +pmenunotdown: psh af - ld de,10 - cal DecScore + cal menupos + ld a,d ;new pos + and 3 ;0-3 + ld b,a + cal menupos pop af - ret nz ;HandleWorm done - ld a,(gameCar) - and _datalivel - 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 -#endif + cp K_ENTER + jr z,pselect + cp K_SECOND + jr nz,notpselect +pselect: + ld a,b + or a ;1: continue + jr z,donepausing + dec a ;2: off + jr z,turnoff + dec a ;3: contrast + jr z,pauseMenu + jr Exit ;4: exit +notpselect + cp K_EXIT + jr z,donepausing + ld hl,CONTRAST + sub K_LEFT + jr z,contrastdown + dec a ;K_RIGHT + jr nz,pauseMenu +contrastup: + inc (hl) + jr setcontrast +contrastdown: + dec (hl) +setcontrast: + ld a,(hl) + out (2),a + jr pauseMenu + +turnoff: + ld bc,$0103 + out (c),b + halt ;pause/off + ld b,11 + out (c),b + ld b,1 + jr pauseMenu + +donepausing: + cal releasekeys + jp GameLoop + +;_______________________________________________________________________________ +; ______ _______ _______ _______ _____ _ _ _______ ______ +; | ____ |_____| | | | |______ | | \ / |______ |_____/ +; |_____| | | | | | |______ _____ |_____| \/ |______ | \_ +;_______________________________________________________________________________ Exit: + cal releasekeys 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 +#ifdef coolzgfx + ld de,$FC30 ;(0,1) + ld hl,wtWormy + ld bc,16*7 + ldir + ld hl,$FC10 + ld b,16*11 + cal menuinvloop ;invert + ld hl,$FC00+$180 + cal hr ;menuinvloop w/ b=16 + ld hl,$FC00+$E0 + cal hr + ld hl,_curRow + ld (hl),2 +#else 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 + inc h ;$FC00+$180 + cal hr ;menuinvloop w/ b=16 + ld hl,$FC00+$E0 + cal hr ld hl,_curRow inc (hl) +#endif ld hl,txtGame CURtxtGame =$-2 cal _puts @@ -1495,25 +2181,77 @@ CURtxtGame =$-2 ld (_penCol),de ld hl,txtName cal _vputs ;Name - ld a,$4F + ld a,$3C ld (_penCol),a cal _vputs ;Died Score ld de,$0004 ld (_curRow),de +;--- who won? --- + +findwinner: + ld hl,(worm1+score) + ld (winnerscore),hl + ld b,3 ;(nrworms)-1 + ld hl,worm2+score +findwinnerloop: + psh hl + cal _ldHLind + ld de,(winnerscore) + ld a,h + cp d + jr c,nonewwinner ;hd + ld a,e + cp l + jr nc,nonewwinner ;l$FB) + ld hl,worm1+died +finddmwinner: + cp (hl) + jr c,nonewdmwinner + ld a,(hl) ;less deaths +nonewdmwinner: + ld de,worm2-worm1 + add hl,de + dnz finddmwinner + ld (dmwinner),a + +;--- display worms --- + +;x123456789012345678901 +;>>>>>> GAME OVER <<<<< +;2Multiplayer +;3Level 01 +;4 Died Score: +;5NameName 03 00070 +;6Worm#02 @ 05 00120 +;7Worm#03 15 00030 +;8Snaky @ 00 04820 + ld a,(nrworms) ld b,a ld hl,worm1+died displayWormStats: psh bc - psh hl + psh hl ld bc,left-died add hl,bc ;+left xor a - cp (hl) ;input=0 = link + cp (hl) ;left=0 = link jr nz,NoLinkIndic - ld a,8 + ld a,9 ld (_curCol),a ld a,$DC ;-O cal _putc @@ -1523,23 +2261,43 @@ NoLinkIndic: inc hl inc hl ;+name cal _puts - pop hl + psh hl ld a,13 ld (_curCol),a ld a,(hl) ;worm+died - cal showA + cal showA0 pop hl - psh hl - ld a,16 - ld (_curCol),a + psh hl + ld a,(Gametype) + cp gamedeathm + jr nz,nodmwinner ;deathmatch? + ld a,0 ;winner's deaths +dmwinner =$-1 + cp (hl) ;equals this worm? + scf ;jr nz,notwinner + cal z,iswinner +nodmwinner: + jr c,notwinner ;no singleplayer winners inc hl ;worm+score cal _ldHLind ;ld hl,(hl) - cal showHL ;worm+score - + ld de,0 +winnerscore =$-2 + cal _cphlde ;==highest score.. + cal z,iswinner +notwinner: + ld a,16 + ld (_curCol),a + pop hl + psh hl + inc hl ;worm+score + cal _ldHLind + cal _D_HL_DECI + cal _puts ;showHL pop hl + ld bc,worm2-worm1 add hl,bc pop bc @@ -1564,63 +2322,104 @@ hilevelcheckdone: ld a,(gameCar) and _datasingl - - jr z,hiscorecheckdone + jr z,hiscorecheckdone ;no SP checkhiscore: cal loadhiscoreposinahl - cal _Get_Word_ahl ;de=old_hi - psh de - cal _RAM_PAGE_1 ;&& - pop de - ld hl,(worm1+score) - - ld a,h ;New - cp d ;Old - jr c,NotNewHigh ;NewOld - - ld a,e ;old - cp l ;new - jr nc,NotNewHigh ;new=Old - ex de,hl + ld de,(highsave) ;de=prev. hiscore + ld hl,(worm1+score) ;hl=worm1's score + cal _cphlde ;sub hl,de + jr c,NotNewHigh ;newOld + ld (highsave),hl ;store new hiscore + ld de,highsave+2 ;to + ld hl,worm1+name ;from + ld bc,3 ;3 chars + ldir ;store new hiname cal loadhiscoreposinahl - cal _Set_Word_ahl ;de->(ahl) - cal _RAM_PAGE_1 + cal _SET_ABS_DEST_ADDR ;to ahl + xor a + ld hl,highsave + cal _SET_ABS_SRC_ADDR ;from local + ld hl,5 + cal _MM_LDIR_SET_SIZE ;save new + cal _RAM_PAGE_1 + ld hl,_curRow + dec (hl) + cal iswinner -NotNewHigh: ;de=current hiscore - ld hl,$0807 - ld (_curRow),hl +NotNewHigh: + ld hl,$3149 + ld (_penCol),hl ld hl,txthiscore + cal _vputs + ld hl,$0C07 + ld (_curRow),hl + ld hl,highsave+2 cal _puts - ex de,hl ;pop - cal showHL + ld hl,(highsave) + cal _D_HL_DECI + cal _puts ;showHL hiscorecheckdone: - cal releasekeys waitkey: - halt - halt - cal GET_KEY + ld hl,DisplayMenu + psh hl ;main menu +waitkeyloop: + cal ubergetkey cp K_ENTER - jp z,DisplayMenu + ret z cp K_SECOND - jp z,DisplayMenu + ret z cp K_EXIT - jr nz,waitkey + jr nz,waitkeyloop + ret -;x123456789012345678901 -;>>>>>> GAME OVER <<<<< -;2Multiplayer -;3Level 01 -;4 Died Score: -;5NameName 03 00070 -;6Worm#02 @ 05 00120 -;7Worm#03 15 00030 -;8Snaky @ 00 04820 +loadhiscoreposinahl: + ld hl,0 ;for peaworm and singleplayer + ld a,(Gametype) + or a ;Singleplayer? + jr z,hi__ + dec a ;peaworm? + jr z,hi_ + ld a,(nrlevels+1) ;skip peaworm slots if tron mode +hi_: + ld bc,(Level) + add a,c + ld b,a ;levels to skip (including 1 for singleplayer) + ld de,5 ;to add per level +addlevelposition: + add hl,de ;one word+3 bytes for name + dnz addlevelposition +hi__: + xor a ;ahl=0(+hl) + ld bc,defhiscrpos +hiscrposhl =$-2 + add hl,bc +hiscrposa =$+1 + adc a,0 ;ahl=saveloc + ret +highsave: + .db 0,0,"SHI ",0 + +iswinner: + ld a,10 + ld (_curCol),a + ld a,'*' + jp _putc ;..then put * + +;--- quit --- ExitNoStats: + cal linkok ld hl,_asapvar rst 20h ;_ABS_MOV10TOOP1 rst 10h ;_FINDSYM @@ -1634,8 +2433,7 @@ ExitNoStats: ld hl,savestart cal _SET_ABS_SRC_ADDR ld hl,saveend-savestart - cal _SET_MM_NUM_BYTES - cal _mm_ldir + cal _MM_LDIR_SET_SIZE cal releasekeys res 4,(iy+9) @@ -1643,49 +2441,18 @@ ExitNoStats: im 1 ;remove keyfix 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 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 - 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 - ret - -;----------------------------- -;----------- worm ------------ -;----------------------------- +;_______________________________________________________________________________ +; _ _ _ _____ ______ _______ _______ _______ _ _ _______ _______ +; | | | | | |_____/ | | | |______ | | | |______ |______ +; |__|__| |_____| | \_ | | | _____ ______| | |_____| | | +;_______________________________________________________________________________ respawncheck: - cp respawndelay-1 + cp rspawndelay-1 jr nz,unnamedlabel cal saverespawncounter removeworm: - ld h,(ix+tail+1) + ld h,(ix+tail+1) ;& ld l,(ix+tail) ld d,(ix+head+1) ld e,(ix+head) @@ -1700,6 +2467,8 @@ removewormloop: cal res4pixels pop hl inc (ix+grow) + jr nz,DoesWormTailEqualsWormHead + inc (ix+grow+1) ;+256 DoesWormTailEqualsWormHead: cal _cphlde jr nz,removewormloop @@ -1710,6 +2479,7 @@ DoesWormTailEqualsWormHead: ld a,0 beginsize =$-1 ld (ix+grow),a + ld (ix+grow+1),0 ;high safewormsizedone: ;de=ix+head @@ -1732,10 +2502,6 @@ respawndue: saverespawncounter: ld (ix+delay),a jr inputcall -; ld a,(ix+input) -; or a -; jr z,inlink -; ret chkkey: ;key=a dec a @@ -1766,6 +2532,7 @@ inkeys: ;use jp not call! jr nc,notright ld a,l add a,8 +turnright =$-1 ld l,a notright: ld a,(ix+right) @@ -1773,6 +2540,7 @@ notright: ret nc ld a,l sub 8 +turnleft =$-1 ld l,a ret inputcall: @@ -1781,39 +2549,46 @@ inputcall: jr z,inlink ;input by link cal inkeys ;input by keys ld a,(gameCar) - and _datalink - ret z ;no link + rra ;and _datalink + ret nc ;no link ld c,l ;send our keys - psh hl - cal Qsend ;Csend - pop hl - ret + jp Qsend inlink: - psh hl cal Qrecv ;Crecv - pop hl ld l,c ret -;------- handle worm --------- +;_______________________________________________________________________________ +; _ _ _ _____ ______ _______ _______ _____ _ _ _______ +; | | | | | |_____/ | | | |_____| | | \ / |______ +; |__|__| |_____| | \_ | | | _____ | | |_____ __|__ \/ |______ +;_______________________________________________________________________________ HandleWorm: - ld a,(gameCar) - cpl - and _datalivel - add a,(ix+lives) + xor a + cp (ix+lives) + jr nz,alive + ld a,(wormbeglives) or a - ret z ;dead + ret nz ;live limit +alive: ld a,(ix+delay) dec a jp nz,respawncheck - ld a,(Gametype) - cp gametron - jr nz,notron - ld de,1 + xor a + cp 0 +turn =$-1 + jr nz,nogrow + inc (ix+grow) +nogrow: + + ld a,(gameCar) + and _datatime + jr z,notimescore + ld e,1 cal IncScore -notron: +notimescore: ld l,(ix+heading) cal inputcall @@ -1826,6 +2601,7 @@ donediddelydone: ld e,(ix+pos2) ld d,(ix+pos2+1) +#ifdef optdie psh hl ld hl,previouspos ld (hl),c @@ -1837,11 +2613,12 @@ donediddelydone: inc hl ld (hl),d pop hl +#endif -;-------- move worm ---------- +;--- move worm --- Wormmove: - psh bc ; >> pos + psh bc ;pos ld a,(hl) add a,a add a,d @@ -1867,13 +2644,13 @@ notnegY: jr nc,notmoveY inc c notmoveY: ;bc=newpos - ld (ix+pos2),e - ld (ix+pos2+1),d ld (ix+pos),c ld (ix+pos+1),b + ld (ix+pos2),e + ld (ix+pos2+1),d ;-check- - pop hl ; << pos (old) + pop hl ;pos (old) ld a,h sub b and 1 @@ -1889,231 +2666,22 @@ notmoveY: ;bc=newpos GotFour: cal chk4pixels rl d - jp nc,Drawworm - -;--------- worm hit ---------- - -Hitworm: - ld a,(gameCar) - ld h,a - and _datadie - cal z,checkhitotherworm - ld a,h - and _datamultpeas ;&&bit - jr nz,multiple_peas - ld a,h - and _datafood - jp z,WormDead ;no food - - ld hl,0 -PeaY =$-2 -PeaX =$-1 - cal chkpeahit - jp nc,WormDead - cal DrawPea ;remove pea - ld a,(ix+grow) - add a,15 -peagrowth =$-1 - ld (ix+grow),a - cal NewPea - ld hl,Left - dec (hl) - psh af - ld de,10 - cal IncScore - pop af - jp nz,Drawworm ;continue - ld a,(gameCar) - and _datafoodl - jp z,Drawworm - ld a,(Gametype) - or a - jp nz,Exit ;stack restored - - ld hl,Level - ld a,(hl) - inc (hl) - ld l,a ;hl=Level - ld h,0 - add hl,hl - add hl,hl - cal _HLTIMES10 - ex de,hl - cal IncScore ;score+(40*level) - cal removeworm - pop hl ; << call - pop hl ; << call - pop hl ; << levelp new - ld (ix+delay),2 - jp StartLevel - -chkpeahit: ;hl=peapos - ld a,(sprsize) - inc a - ld d,a - ld a,b - sub h - inc a - cp d ;=(sprsize)+1 - ret nc ;nc=no pea - ld a,c - sub l - inc a - cp d - ret ;c=pea - -flagcaptured: - psh hl - ld de,30 - cal IncScore - pop hl -sillylabel: - cal WormDead -DrawAllPeas: - ld hl,(peaspos) - cal DrawPea - ld hl,(peaspos+2) - jp DrawPea - -multiple_peas: - ld hl,(peaspos) ;1st pea - psh hl - ld a,(ix+reserv) - ld e,a ;push a - and %01 - jr nz,sel_ownpea - ld hl,(peaspos+2) ;2nd pea -sel_ownpea: - cal chkpeahit - pop hl ;(peapos) 1st pea - jp c,WormDead ;stopworm ;own pea hit - - ld a,e ;peek a (that's x86 asm for pop\push ;) - and %01 - jr z,sel_otherpea - ld hl,(peaspos+2) ;2nd pea -sel_otherpea: - cal chkpeahit - jp c,hitflag - -;no peas hit - ld a,e - cal flagtoken - jp z,WormDead - ld b,a ;%10 - srl b ;%01 - add a,b ;%11 - ld (ix+reserv),a - cal DrawPea ;restore own flag - jr sillylabel ;inv both\die - -hitflag: ;correct pea hit - ld a,e ;pop a - xor %01 ;0=1;1=0 - ld (ix+reserv),a - cal flagtoken - psh af ;safe z-flag - cal DrawPea ;remove - pop af - jr z,flagcaptured - jr stopworm - -flagtoken: - and %01 ;current - add a,a ;<< for cp - ld b,a ;in b - ld a,e - and %10 ;own - cp b ;same? - ret ;Z=yes: no flag taken - -;----------------------------- - -nextotherwormbit: - ld a,c - sub (hl) - inc hl - inc a - cp 4 - jr nc,nothit1 ;no - ld a,b - sub (hl) - inc a - cp 4 - ret c ;nz ;yes -nothit1: - inc hl - cal resbit -ChkWorm: - cal _cphlde - jr nz,nextotherwormbit - ret ;z - -checkhitlapline: - ld a,63 - sub b - jr z,nextlaphalf - inc a - ret nz -nextlaphalf: - ld a,c - and 32 ;y>=32? - jr nz,nolap - cp (ix+reserv) - jr z,nolap - psh bc - ld de,20 - cal IncScore - pop bc - xor a -nolap: - ld (ix+reserv),a - ret - -checkhitotherworm: - .db $dd,$7d ;ld a,lx - cp worm2&255 - psh ix - jr nz,chkworm2 ; ret nz - ld ix,worm1 - jr chkworm -chkworm2: - ld ix,worm2 - -chkworm: - ld h,(ix+tail+1) - ld l,(ix+tail) - ld e,(ix+head) - ld d,(ix+head+1) - cal ChkWorm - pop ix - ret z ;not hit - pop bc ;call -stopworm: - ld bc,0 -previouspos =$-2 - ld de,0 - ld (ix+pos),c - ld (ix+pos+1),b - ld (ix+pos2),e - ld (ix+pos2+1),d - ret + cal c,hitworm -;-------- draw worm ---------- +;--- draw worm --- Drawworm: ld c,(ix+pos) 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) @@ -2126,10 +2694,14 @@ Drawworm: ld (ix+head),l ld (ix+head+1),h - ld a,(ix+grow) - dec a + ld l,(ix+grow) + ld h,(ix+grow+1) + dec hl + ld a,h + or l jr z,removetail - ld (ix+grow),a + ld (ix+grow),l + ld (ix+grow+1),h ret removetail: @@ -2142,6 +2714,13 @@ removetail: cal resbit ld (ix+tail),l ld (ix+tail+1),h + psh hl + cal res4pixels + pop hl + ld c,(hl) + inc hl + ld b,(hl) + jr set4pixels res4pixels: cal ResPixel @@ -2157,9 +2736,11 @@ ResPixel: ld (hl),a ret -;----------------------------- -;---------- ball ------------- -;----------------------------- +;_______________________________________________________________________________ +; ______ _____ _ _ __ _ _______ __ __ ______ _______ +; |_____] | | | | | \ | | \_/ |_____] |_____| | | +; |_____] |_____| |_____| | \_| |_____ | |_____] | | |_____ |_____ +;_______________________________________________________________________________ handlethoseneatlittleballs: ld hl,balls @@ -2252,18 +2833,226 @@ checkballhit: pop de ret -;----------------------------- -;----------- procs ----------- -;----------------------------- +;_______________________________________________________________________________ +; _ _ _ _____ ______ _______ __ __ _ _ _____ _______ +; | | | | | |_____/ | | | \_/ |_____| | | +; |__|__| |_____| | \_ | | | | _____ | | __|__ | +;_______________________________________________________________________________ -releasekeys: - halt - ld a,%10000000 ;all key-masks - out (1),a - in a,(1) - inc a ;cp %11111111 (no keys pressed) - jr nz,releasekeys ;keep waitin - cal GET_KEY ;clear buffer +hitworm: + ld a,(gameCar) +#ifdef optdie +; if race - originally + ld h,a + cal checkhitotherworm + ld a,h +#endif + bit __bitPctf,a + jr nz,chkctfpeas + rla ;and _dataPmult + jp c,chkmultpeas + rla ;and _datafood + jp c,wormdead ;no food + + ld hl,0 +PeaY =$-2 +PeaX =$-1 + cal chkpeahit + jp nc,wormdead +pickpea: + cal DrawPea ;remove pea + cal NewPea +pickpea_: + ld a,(ix+grow) + add a,15 +peagrowth =$-1 + ld (ix+grow),a + jr nc,wormset2grow + inc (ix+grow+1) +wormset2grow: + ld hl,Left + dec (hl) ;dec left before display + psh af + ld e,10 + cal IncScore + pop af + jp nz,Drawworm ;continue + ld a,(Gametype) + or a + jp nz,Exit ;stack restored + + ld hl,Level + ld a,(hl) + inc (hl) + ld l,a ;hl=Level + ld h,0 + add hl,hl + add hl,hl + cal _HLTIMES10 + ex de,hl + cal _IncScore ;score+(40*level) + cal removeworm + pop hl ;<<$some call + pop hl ;<yline -> a=1 + xor a ;y a=0 +checklap: + cp (ix+reserv) + ret z ;same as before + ld (ix+reserv),a ;1st time + ld e,a + ld a,(handledworm) + and 1 ;group 0 (1,3) or 1 (2,4) + xor e + ret z ;(group 0 and yyline) + psh bc + ld e,20 + cal IncScore ;lap! + pop bc + ret + +;_______________________________________________________________________________ +; _____ ______ _____ _______ _______ +; |_____] |_____/ | | | |______ +; | | \_ |_____| |_____ ______| +;_______________________________________________________________________________ + +releasekeys: + halt + ld a,%10000000 ;all key-masks + out (1),a + in a,(1) + inc a ;cp %11111111 (no keys pressed) + jr nz,releasekeys ;keep waitin + cal GET_KEY ;clear buffer ret resbit: @@ -2285,18 +3074,95 @@ Seed =$+1 add a,2 ret -NewPea: - ld a,(FieldWidth) - add a,127-4 - cal randompos - ld h,a - ld a,(FieldHeight) - add a,56-4 - cal randompos - ld l,a - ld (PeaY),hl +wormdead: + pop hl ;<0: don't exit + dnz checklives +anyworm: + ld a,$A7 ;exit@end of turn + ld (CheckExit),a ;set exit state + ret ;finish turn + +#ifdef optdie +checkhitotherworm: + .db $dd,$7d ;ld a,lx + cp worm2&255 + psh ix + jr nz,chkworm2 ;ret nz + ld ix,worm1 + jr chkworm +chkworm2: + ld ix,worm2 +chkworm: + ld h,(ix+tail+1) + ld l,(ix+tail) + ld e,(ix+head) + ld d,(ix+head+1) + cal ChkWorm + pop ix + ret z ;not hit + pop bc ;call +stopworm: + ld bc,0 +previouspos =$-2 + ld de,0 + ld (ix+pos),c + ld (ix+pos+1),b + ld (ix+pos2),e + ld (ix+pos2+1),d + ret +#endif -CheckPea: +CheckPea: ;@hl; destr:abcde ld c,l ld a,(sprsize) ld e,a @@ -2309,23 +3175,125 @@ chkloopx: cal FindPixel and (hl) pop hl - jr nz,NewPea ;pixel found + ret nz ;nz=pixel found inc b dec d jr nz,chkloopx inc c dec e jr nz,chkloopy -;all ok; empty space + ret ;z=empty space + +tryDrawPea: ;hl=peapos;bc=dopea + ld a,(de) + or a ;0=drawn + ret z + psh de + cal CheckPea + pop de + ret nz ;unsuccesful + ex de,hl + dec (hl) ;hl=appeartime + ex de,hl ;hl=peaspos + jr z,DrawPea + ret + +multnewpea: + ld de,peaspos + ld a,(Left) + ld b,a +multpealoop: + psh bc + psh de + cal NewPea + pop de + ld hl,PeaY + ldi + ldi + pop bc + dnz multpealoop + ld a,-1 + ret +NewPea: + ld a,(FieldWidth) + add a,127-4 + cal randompos + ld h,a + ld a,(FieldHeight) + add a,56-4 + cal randompos + ld l,a + cal CheckPea + jr nz,NewPea + cal sendnewpeaoverlink + ld (PeaY),hl DrawPea: ;hl=(PeaY) ld b,h ld c,l +drawpea_: ld de,0 spritepos =$-2 - jp PutSprite ;||-ed +; jp PutSprite + +PutSprite: ;||@(b,c) + ;by SHIAR only ix saved + cal FindPixel + ld (beginbit),a + ld a,0 +sprsize =$-1 + ld b,a ;rows +sprloopy: + psh bc ;rows + psh hl + ld a,(de) + ld c,a + inc de + ld a,(sprsize) + ld b,a ;width +beginbit =$+1 + ld a,1 +sprloopx: + sla c ;draw? + jr nc,sprnodraw + psh af + xor (hl) + ld (hl),a + pop af +sprnodraw: + rrca ;next bit + jp nc,nextbitok + inc hl ;next byte +nextbitok: + dnz sprloopx + + pop hl + ld bc,32 ;next line + add hl,bc + pop bc + dnz sprloopy + ret + +;_______________________________________________________________________________ +; _______ _______ _____ ______ _______ +; |______ | | | |_____/ |______ +; ______| |_____ |_____| | \_ |______ +;_______________________________________________________________________________ -;----------- score ----------- +addteamscore: + ld a,(handledworm) + cp 2 + ld de,worm3-worm1 + jr c,bla + ld de,worm1-worm3 +bla: + psh ix + add ix,de + ex de,hl + cal ldscoreinhl + pop ix + add hl,de + ret _divHLby1000: psh hl @@ -2337,39 +3305,92 @@ divideagain: ;3x pop hl ret -IncScore: - ld h,(ix+score+1) - ld l,(ix+score) +DecScore10: + cal ldscoreinhl + ld de,-10 + add hl,de + jr nc,showstats ;<0=0 + jr scorecommon + +extralives: cal _divHLby1000 ld c,a - add hl,de + add hl,de ;increase score cal _divHLby1000 cp c jr z,scorecommon ;hl/1000 not increased inc (ix+lives) jr scorecommon -DecScore: ;&&& - ld h,(ix+score+1) - ld l,(ix+score) - or a - sbc hl,de - jr c,showstats ;<0=0 + +timematchscore: + ;piece of crap checking whether you've already won in timematch + ld a,(nrworms) + ld b,a ;# of worms + dec a + ret z ;singleplayer + ld hl,worm1+lives + ld de,worm2-worm1 + ld a,(handledworm) + ld c,a ;wormcounter +chktimematchover: + xor a + cp c + jr z,nneexxtt ;yourself + cp (hl) + ret nz ;someone else still alive + dec hl ;+del0ay + dec hl ;+score+1 + ld a,(hl) + cp (ix+score+1) + jr c,nneexxtt_ ;you>him + ret nz ;not highest + dec hl ;+score + ld a,(hl) + cp (ix+score) + ret nc ;you<=him + inc hl +nneexxtt_: + inc hl + inc hl +nneexxtt: + dec c + add hl,de + dnz chktimematchover + jp anyworm ;g/o + +IncScore: ;inc score by e + ld d,0 +_IncScore ; inc by de + cal ldscoreinhl + ld a,(Gametype) + or a ;if singleplayer... + jr z,extralives + add hl,de ;score+=de scorecommon: ld (ix+score+1),h - ld (ix+score),l + ld (ix+score),l ;save +doteam: + cal addteamscore ;cal=CD | ld de,*=11 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: + ld a,(gameCar) + and _datatime + jr nz,timematchscore ;no disp for timematches + ld hl,$FC00 ;&&&only necessary in deathmatch + ld b,6*16-1 +clearstats: + ; ld (hl),a ;=0 + ;&&&&&& + inc hl + dnz clearstats +forceshowstats: psh ix ld h,0 ld l,h @@ -2378,37 +3399,69 @@ showstatsEven4tron: ld b,a ld ix,worm1 ld a,(gameCar) - and _datanextl + and _datasingl jr nz,showstatsS showstatloop: psh bc +#ifdef longnames + ld b,3 + psh ix +shownameloop: ;1st 3 chars + ld a,(ix+name) + or a + jr z,nameshown + cal __vputmap + inc ix + dnz shownameloop +nameshown: + ld a,':' + cal _vputmap + pop ix +#else + ld a,(ix+name) + cal __vputmap + ld a,':' + cal __vputmap +#endif cal showstat ld de,worm2-worm1 - add ix,de + add ix,de ;next ld hl,_penCol ld a,(hl) - add a,10 + add a,4 ;div ld (hl),a pop bc dnz showstatloop pop ix ret -showstat: - ld a,(gameCar) - and _datascore - jr z,showlives +showstat: ;(multiplayer) + ld a,(wormbeglives) + or a + jr nz,showlives showscore: - ld h,(ix+score+1) - ld l,(ix+score) + cal ldscoreinhl cal _D_HL_DECI - jr __vputs + jr __vputs showlives: - ld a,(Gametype) - cp gametron - jr z,showscore - ld a,(ix+lives) + jr cshowA00 + +cshowA: ;small w/ leading 0 + or a ;destr. ahl + jr nz,cshowA00 + ld hl,txtNone + jp _vputs +cshowA00: + ld l,a + ld h,0 + cal _divHLby10 + psh af + ld a,l + add a,'0' + cal __vputmap + pop af +cshowA0: add a,'0' __vputmap: psh ix @@ -2416,37 +3469,30 @@ __vputmap: pop ix ret -showstatsS: +showstatsS: ;(singleplayer) ld hl,txtLevel cal __vputs ld a,0 Level =$-1 cp 10 - jr c,tilllevel9 - ld l,a - ld h,0 - cal _divHLby10 psh af - ld a,l - add a,'0' - cal __vputmap + cal c,cshowA0 pop af -tilllevel9: - add a,'0' - cal __vputmap + cal nc,cshowA00 - ld a,98 + ld a,97 ld (_penCol),a cal showscore ld a,123 ld (_penCol),a - cal showlives + ld a,(ix+lives) + cal cshowA0 ;showlives ld a,(gameCar) and _datafoodl pop ix ret z showleft: - ld a,31 + ld a,33 ld (_penCol),a ld a,0 Left =$-1 @@ -2463,7 +3509,7 @@ showLevel: ld hl,txtLevel cal _puts ld a,(Level) -showA: +showA0: ;big w/ leading 0 ld l,a ld h,0 cal _divHLby10 @@ -2475,41 +3521,32 @@ showA: add a,'0' jp _putc -cshowA: - 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 - _D_HL_DECI: - ld de,savestr+4 + ld de,savestr+5 ld b,5 ldhld: cal _divHLby10 add a,'0' - ld (de),a dec de + ld (de),a dnz ldhld - ld hl,savestr + ex de,hl ;ld hl,savestr + ret + +ldscoreinhl: + ld h,(ix+score+1) + ld l,(ix+score) ret -savestr: - .db "00000",0 -;----------------------------- +;_______________________________________________________________________________ +; ______ _____ _______ _____ _______ __ __ +; | \ | |______ |_____] | |_____| \_/ +; |_____/ __|__ ______| | |_____ | | | +;_______________________________________________________________________________ -DisplayField: - ld a,c - sub 29 +DisplayField: ;all done by Jonah Cohen iirc. (-scrolling is scary-) + ld a,c ;not the fastest routine outthere, but it does get the job done. + sub 29 ;if something doesn't work, I probably _did_ alter it ;) jr nc,NotMinYScroll xor a NotMinYScroll: @@ -2729,7 +3766,11 @@ ChunkRow: ld c,$37 ;scf ret -;----------- draw ------------ +;_______________________________________________________________________________ +; ______ ______ _______ _ _ _ +; | \ |_____/ |_____| | | | +; |_____/ | \_ | | |__|__| +;_______________________________________________________________________________ ;--- pixel --- @@ -2745,279 +3786,84 @@ chk4pixels: ;&& ret CheckPixel: ;at bc in d cal FindPixel - and (hl) - ret z - dec d - ret - -;CLEM's FIND_PIXEL (131+? cycles; 28+4 bytes) -;(b,c) to hl:a; "destroyes" ahl - -FindPixel: ;(b,c) to hl:a - ld h,0 - ld l,c ;hl=y - add hl,hl - add hl,hl - ld a,b ;a=x - rra - add hl,hl - rra - add hl,hl - add hl,hl ;hl=32*y - rra ;a=x/8 - or l - ld l,a - ld a,b - and 7 - cpl - rlca - rlca - rlca - ld (FP_Bit),a - xor a -FP_Bit =$+1 - set 0,a - - psh de ;&&& - ld de,ScrBuffer - add hl,de - pop de - ret - -;--- sprite --- - -PutSprite: ;||@(b,c) - ;by SHIAR only ix saved - cal FindPixel -putspr: - ld (beginbit),a - ld a,0 -sprsize =$-1 - ld b,a ;rows -sprloopy: - psh bc ;rows - psh hl - ld a,(de) - ld c,a - inc de - ld a,(sprsize) - ld b,a ;width -beginbit =$+1 - ld a,1 -sprloopx: - sla c ;draw? - jr nc,sprnodraw - psh af - xor (hl) - ld (hl),a - pop af -sprnodraw: - rrca ;next bit - jp nc,nextbitok - inc hl ;next byte -nextbitok: - dnz sprloopx - - pop hl - ld bc,32 ;next line - add hl,bc - pop bc - dnz sprloopy - ret - -;--- objects --- - -drawstuff: - ld a,(hl) - inc hl - or a ;0 = - ret z ;no more - - ld d,(hl) - inc hl - ld e,(hl) - inc hl - ld b,(hl) - inc hl - psh hl - ld l,(hl) - ld h,b - - dec a ;1 = line - cal z,drawline - dec a ;2 = fatline - 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 - jr 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 - inc l - inc e - dnz boxloop - ret -#endif - -drawfatline: - cal drawline - inc d - inc h - cal drawline - inc e - inc l - cal drawline - dec d - dec h - jp drawline - -;LINE (d,e)-(h,l) -;destroyes a - -drawline: ;(d,e)-(h,l) - psh bc ;destr: a - psh hl - psh de - ld a,d - cp h - jr c,lineOrdered - ex de,hl -lineOrdered: - ld b,d - ld c,e - psh hl - psh bc - cal FindPixel - pop bc - pop de -connectedLine: - psh hl - ld h,c - ld c,a - ld a,d - sub b - ld b,a - ld a,e - jr nz,LineNotPoint - cp h - jr nz,LineNotPoint - pop hl - jr DoneLine -LineNotPoint: - sub h - ld de,32 - jr nc,LinePositiveY - neg - ld de,-32 -LinePositiveY: - cp b - jr nc,SteepLine - add a,a - ld (line2sm+1),a - ld h,a + and (hl) + ret z + dec d + ret + +;CLEM's FIND_PIXEL (131+? cycles; 28+4 bytes) +;(b,c) to hl:a; "destroyes" ahl + +FindPixel: ;(b,c) to hl:a + ld h,0 + ld l,c ;hl=y + add hl,hl + add hl,hl + ld a,b ;a=x + rra + add hl,hl + rra + add hl,hl + add hl,hl ;hl=32*y + rra ;a=x/8 + or l + ld l,a + ld a,b + and 7 + cpl + rlca + rlca + rlca + ld (FP_Bit),a xor a - sub b - add a,a - ld (line1sm+1),a - ld a,h - sub b - pop hl -LineLoopGentle: - psh af - ld a,(hl) - or c - ld (hl),a - rrc c - jr nc,$+3 - inc hl - pop af - jp m,line2sm -line1sm: - add a,0 +FP_Bit =$+1 + set 0,a + + psh de ;&&& C`MON! THIS IS UGLY! *hit myself* + ld de,ScrBuffer add hl,de -line2sm: - add a,0 - dnz LineLoopGentle -DoneLine: - ld a,(hl) - or c - ld (hl),a pop de - pop hl - pop bc ret -SteepLine: - ld h,a - neg - add a,a - ld (line3sm+1),a - ld a,b - add a,a - ld (line4sm+1),a - sub h - ld b,h - pop hl -LineLoopSteep: - psh af + +;--- objects --- + +drawstuff: ld a,(hl) - or c - ld (hl),a - add hl,de - pop af - jp m,line4sm -line3sm: - add a,0 - rrc c - jr nc,$+3 inc hl -line4sm: - add a,0 - dnz LineLoopSteep - jr DoneLine + or a ;0 = + ret z ;no more + + ld d,(hl) + inc hl + ld e,(hl) + inc hl + ld b,(hl) + inc hl + psh hl + ld l,(hl) + ld h,b + cal drawsmtn + pop hl + inc hl + jr drawstuff + +drawsmtn: + dec a ;1 = line + jr z,drawline + dec a ;2 = fatline + jr z,drawfatline + dec a ;3 = box + jr z,drawbox +; dec a ;4 = circle +; jp z,drawcircle + +;--- circle --- + +;IMHO, one weery nice routine. Oh lemme be proud just *once*. +;Not perfect since it uses a screwy lineroutine to draw stuff +;but, just _look_ at it. Ain't it grand? Z80 at its best. +;Nice comments, also. So here we go: Shiar's Circle Routine: +;(using the Bresenham method) drawcircle: ;(d,e),h ;de=x,y; h=z ld c,h ;c=yy=z @@ -3082,180 +3928,198 @@ circledraw: ;destr:de ld b,c ld c,a ;ex b,c pop hl + ret ;thats it + +;--- box --- + +drawbox: ;(d,e)-(h,l) + ld b,l ;Delta-y + ld l,e +boxloop: + cal drawline + inc l + inc e + dnz boxloop ret +;--- fatline --- + +drawfatline: + cal drawline + inc d + inc h + cal drawline + inc e + inc l + cal drawline + dec d + dec h +; jp drawline + +;--- line --- +;A lot like Scabby's line routine in Wonderworm (dunno whether he wrote it +;himself tho.) I did make a few optimizations and commented the thing. +;A nice routine (also Bresenham), but for Wormy not perfect since really +;large lines (>128 pixels in length or something) won't be flawless. +drawline: ;(d,e)-(h,l) + psh bc ;destr: a + psh hl + psh de + ld a,d ;a=d=x + cp h ;h=xx + jr c,lineXincs ;if x>xx + ex de,hl ;make x + ld c,a ;c=mask (always) + ld a,h ;a=xx + sub b ;xx-x + ld b,a ;b=deltax (always>0) + ld a,l ;a=yy + jr nz,lineexists ;deltax!=0 + cp e ;yy==y + jr nz,lineexists ;deltay!=0 + pop hl ; :=100 limit -_datamultpeas = %00100000 -_datasp = %01011110 - -datalevels: .dw LevelDef, LevelDefM - .dw LevelDefT,LevelDefM - .dw LevelDefM,LevelDefM - .dw LevelDefM,LevelDefC -nrlevels: .db 1,3,1,3,3,3,3,1 ;=defaults - -savestart: - -gamesingle = 0 -datasingle: .db %01011110,3,1,1 ;3 lives (