X-Git-Url: http://git.shiar.nl/wormy.git/blobdiff_plain/9ed28d246aef107b01273e08b6594598a4e12fcb..3d225e408bf05bd9c50959bda8ffd2eeef19e5fe:/wormy.z80 diff --git a/wormy.z80 b/wormy.z80 index 0ff73a0..576ac70 100644 --- a/wormy.z80 +++ b/wormy.z80 @@ -1,55 +1,134 @@ -; Title : Wormy -; Version : 96% (0.96.C21) -; Release Date : UUHHhhh... soon?!? -; Filename : wormy.86p (5kb) -; Author(s) : Shiar -; Email Address : wormy@shiar.org -; 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 ----------- -;----------------------------- - -; 96% = DONE - -; * complete readme -; 1% * misc (pollish, bugs, &&&) -; * mem at worm #4 (still 12 bytes or so.....) -; * fix line proc (+large circles) -; * LINK -; 1% * fix transmit game/level data - -;100% = bugs fixed + levels done - -;>110%: sound, startpos -;>120%: coop (DON'T COUNT ON IT) - -;----------------------------- -;----------------------------- -;------- W O R M Y --------- -;----------------------------- -;----------------------------- - -#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 intlevels ;internal levels -;#define readytext ;displays "prepare" before level starts -;#define invincible ;worms cannot die =) -;#define optdie ;in race games worms don't die when they run into each other - -#define cal call -#define psh push -#define dnz djnz +;___▄███________________________________________________________▄▄▄▄____________ +; ███▀ ████▌ +; ███ ▀███ ▐██▄ +;▐██ ▄███▄ ▄▄████▄▄ ▄████ ▄██▄ ▄██▄ ▐██ █████ +;██▌ ███████ ▄██████████ ███████ ████████████▄ ██ ███ ███ +;██ ██▀ ▀██ ▐██▀▀ ▀███ ███▀ ██▌ ██▀ ████ ▀██ ██▌ ▐██▌ ▐██ +;██ ██ ██ ██ ▄ ██▌ ▐██▌ ▐██ ██████ ██▌ ███ ███ ██ +;██ ██ ██ ██ ██ ▐██ ███ ██▌ ███▀ ▐██ ▀██ ███ ▐███ ██ +;██ ██▌ ▐██ ██ ██ ██ ██▌ ██▌▐██▌ ██▌ ██ ██████▀ ██ +;██ ▐██ ██▌ ▐██ ██ ██ ██ ██ ▐██ ██▌ ██▌ ▀███▀ ▐██ +;██▌ ██▄ ▄██ ██▌ ██ ██ ██▌ ██ ▐██▌ ▐██▌ ██▌ ██▌ +;▐██ █████ ▐██ ██▌ ▐██ ██▌ ██ ▀██▄▄██▀ ███ ▐██ +; ███ ███ ██▌ ▐██ ██▌ ███ ██▌ ▀████▀ ▐██ ███ +; ███▄ ▄█████▄ ▄███ ██▌ ███ ▐██▌ ██▌ ███▄▄ ▄███ +; ███████▀ ▀███████ ▐██▄▄███▌ ███ ▐██ ██████████████▌ +; ▀███▀ ▀██▀▀ ▀█████▀ ██ ██▌ ▀█████████▀ +;_______________________________________________________________________________ +; +; Version : 100% (1.00.36) +; Release Date : 2002 March 6 +; Author(s) : Shiar +; Email Address : wormy@shiar.org +; Web Page : http://shiar.nl +; License: : GNU General Public License version 3 +; Description : perfect Nibbles game with free movement, nine game +; modes, for 1-4 players, many levels and editor +; Other games by author(s) : Nemesis beta +; Additional Credits to : Matthew Shepcar : wrote original Peaworm, end'98 +; Jonah Cohen : helped writing worm +;_______________________________________________________________________________ + +;--- notes --------------------------------------------------------------------- + +; * Game README is wormy.txt +; * All code under the GPL version 3 +; * You may alter and redistribute (parts of) this code +; but only under the same license; credits would be appreciated +; * I'm not responsible for any damage this might cause, yada yada... +; * Although I've commented & labeled quite some stuff, due to +; crazy optimizations and weird coding, it may be harder to +; understand than the average blob of code. This is probably _not_ +; the best source to learn z80 from. w00t the Shyer Way (tm). +; * Email me. If you've got suggestions|patches|questions: tell me. +; * Don't scroll down if you get scared easily. + +;--- index --------------------------------------------------------------------- + +; * TO_DO : future features +; * #INCLUDE +; * STORAGE : permanent; temporary; layout +; * PROG_START : search levels +; * LEV_SELECT +; * MORE_INIT : trig tables +; * MAIN_MENU : draw menu; options menu; main menu; display +; current settings; handle menukeys; change name +; * MISC_PROCS +; * START_GAME : link; client; set/send worms; host; load game; +; draw level; prepare +; * GAME_LOOP +; * KEYS : pause menu +; * GAME_OVER : who won?; display worms; quit +; * WORM_STUFF +; * WORM_ALIVE : move worm; draw worm +; * BOUNCYBALL +; * WORMY_HIT : multifood; ctf; main; foodmatch|SP; take pea; +; misc +; * PROCS +; * SCORE +; * DISPLAY +; * DRAW : pixel; findpixel; objects; circle; box; +; fatline; line +; * LINK! : multiple bytes; foo; send; recv; common +; * INT_LEVELS +; * DATA : graphics; menus; text; foo; game settings +; * THAT'S_ALL + +;_______________________________________________________________________________ +; _______ _____ ______ _____ +; | | | | \ | | +; | |_____| ____ |_____/ |_____| +;_______________________________________________________________________________ + +; 99% = PREVIOUS +; X [34] freeze when no space left to place pea (break after 10k tries) +; X [34] wow another bit of code 'reniced' (easter egg or something :) +; X [34] two more jp to jr +; X [34] highly improved randomizer (values >127 were rare) +; X [36] replace 'left' at the change-control prompt +; X [36] ED: fixed immediate exit at level preview when using enter key +; X [36] bouncies drawn after placing peas (causing overwrites) +; X [36] FIX: skip string length bytes when running from yas +; X [36] ED: pointer to ending message realigned +; X [36] LVL: end messages fixed in affected episodes +;100% = CURRENT +; * scorebar last digit (at 128-3) not displayed by _vputs :( +; * save last played level (in levelfile prolly) +; * automatically start players in multiplayer games after certain time +; * muliplayer bonuses/powerups (shrink, lives, stun, inverse, etc.) +; * levels with random pixels appearing during game +; * no borders (move players from one side to another) +; * hiding levels crashes?? (ishell 2.01 rom 1.6) +; * use selected player on main menu as first player in singleplayer games + + +;--- future features ----------------------------------------------------------- + +;just a maybe-list; NO guarantees! +; +; * correct team winners +; * level compression +; * ubersized bouncies (sprites) +; * arrow to offscreen peas +; * w00t AI +; * sound +; * startpos +; * pause in linkplay +; * coop (DON'T COUNT ON IT) + +;_______________________________________________________________________________ +; _/_/_____ __ _ _______ _ _ ______ _______ +; _/_/ | | \ | | | | | | \ |______ +; / / __|__ | \_| |_____ |_____ |_____| |_____/ |______ +;_______________________________________________________________________________ #include "asm86.h" #include "ti86asm.inc" + + #define cal call + #define psh push + #define dnz djnz + _SHRACC = $4383 ;4x srl a _SHLACC = $438B ;4x sll a _divHLby10 = $4044 ;hl=hl/10 @@ -62,11 +141,11 @@ _MOV4B = $429B ;4x ld (de),(hl) _MOV5B = $4297 ;5x ld (de),(hl) _mov9b = $4283 ;9x ld (de),(hl) _ldHLind = $4010 ;ld hl,(hl) -_swapt_ = $45F3 ;ex_ahl_bde +_swapt_ = $45F3 ;ex ahl,bde (doesn't work?) _Get_Word_ahl = $521D ;ld de,(ahl) _Set_Word_ahl = $5221 ;ld (ahl),de -_INC_PTR_AHL = $4637 ;ahl=ahl+1 -_AHL_PLUS_2_PG3 = $4C3F ;ahl=ahl+2 +_INC_PTR_AHL = $4637 ;inc ahl +_AHL_PLUS_2_PG3 = $4C3F ;add ahl,2 _SET_ABS_SRC_ADDR = $4647 ;set source for mm.ldir =ahl _LOAD_ABS_SRC_ADDR = $5209 ;ahl = mm.ldir source _SET_ABS_DEST_ADDR = $5285 ;set destination for mm.ldir = ahl @@ -80,38 +159,59 @@ _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 ------- -;----------------------------- - -;--- permanent - -ScrBuffer = $8820 ;-A7FF (20*FF=1FE0) +_GETB_AHL = $46C3 ;a=(ahl) \ hl=ahl +_OP1TOOP6 = $4263 + + #define id2 ;yas2 level identifier - this'll add (65) bytes + #define buffer ;use display buffer, otherwise write directly to screen (11) + #define readymask ;"greys" out the field before starting a level (20) +;#define readytext ;-displays "prepare" before level starts (42) + #define coolzgfx ;nice graphics for game over screen (98) + #define spprotect ;options not changable for singleplayer modes +;#define intlevels ;-internal levels + ;-to become invincible, define the magic word :D + +levelhead = 'w' +levelhead2 = 97 ;wormy levels header = "0" + +;_______________________________________________________________________________ +; _______ _______ _____ ______ _______ ______ _______ +; |______ | | | |_____/ |_____| | ____ |______ +; ______| | |_____| | \_ | | |_____| |______ +;_______________________________________________________________________________ + +;--- 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 (4*40) -turn10 = $AE01 ;-AE01 (1) (counter) -peaspos = $AE02 ;-AE05 (4) (peas) -;free = $AE06 ;-AFFF (1FA) +SinCosTable = $AC00 ;-AD00 (4*40) +worm1 = $AD01 ;-AD1E (1E) +worm2 = $AD1F ;-AD3C (1E) +worm3 = $AD3D ;-AD5A (1E) +worm4 = $AD5B ;-AD78 (1E) +balls = $AD79 ;-AE00 (<=3x2D) (bb<=45) +turn10 = $AE01 ;-AE01 (1) (counter) +peaspos = $AE02 ;-AF05 (4-104) (peas) +;free = $AF06 ;-AFFF (F9) worm1p = $B000 ;-B7FF (800) %1011O000 worm3p = $B800 ;-BBFF (400) %10111O00 +;buffer = $BC00 ;-BF90 (390) ;free = $BF91 ;-BFFF (6F) -;program = $D748 ;-EFFF (186D+4A) -worm4p = $F000 ;-F3FF (400) %11110O00 -leveldata = $F400 ;-FA70 (<=671) - ;can you believe i actually left $269 bytes of memory unused?!? +;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) +#endif -;MEM|8---9---A---B---C---D---E---F---| -; |..[------]||[]|......[-----]|[].| -; | SCREEN 2* 13 PRGM 4LV | +;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 @@ -120,21 +220,56 @@ DispBuffer = $BC00 ;(10x57d) @game #else DispBuffer = $FC70 #endif - -;----------------------------- -;------- program start ------- -;----------------------------- +linklevel = $AECC ;(<=134) @game+init +lefttotalb = $BF91 ;(1) @game +drawctfpea1 = peaspos+4 +drawctfpea2 = peaspos+6 + +;--- layout -------------------------------------------------------------------- + +;(wormN) offs: set: +heading = 0 ;level* +pos = 2 ;level* +pos2 = 4 ;level +grow = 6 ;level +died = 8 ;game: +score = 9 +wdelay = 11 +lives = 12 +head = 13 + ; ┌15B (wormNset) +tail = 15 ; │also@next level +storepos = 17 ; │ +reserv = 18 ; │loop (race:lap|ctf:pea) +wleft = 19 ; │ +wright = 20 ; │ +name = 21 ; │_ + +wormsize = 30 ;^mark^ + +;_______________________________________________________________________________ +; _____ ______ _____ ______ _______ _______ _______ ______ _______ +; |_____] |_____/ | | | ____ |______ | |_____| |_____/ | +; | | \_ |_____| |_____| _____ ______| | | | | \_ | +;_______________________________________________________________________________ .org %1101011101001000 -start: +start: ;turn back NOW! + nop ;and so it begins... + jp codestart +#ifndef id2 + ld bc,$5242 + rst 10h + .dw WormIcon +#else + ld (bc),a nop - jp Start - ld bc,42 - .org $-1 ;3y3 M 1337! - .dw WormTxt - .dw WormIcon -WormTxt: + ld d,h + rst 10h + .dw WormIcon + .dw WormData +#endif ld d,a ld c,a ld d,d @@ -144,24 +279,70 @@ WormTxt: ld a,c jr nz,$+$55 ld c,b - .dw 16713 - .db %1010010 + .dw 16713 + .db %1010010 jr nz,$+47 dec l - .db " 96% C21",0 + .db " v1.00.36",0 WormIcon: - .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 = 95 ;wormy levels header = "95" + .db 8,2 ;Rkaydees' icon: + .db %00000000,%00111100 ; XX + .db %00000000,%01010010 ; XXX + .db %00000000,%01100001 ; XX + .db %01100011,%10011001 ; XX + .db %10010100,%01101001 ; XX + .db %10011001,%00011001 ; XX + .db %01000010,%11000001 ; X XX + .db %00111100,%00111110 ; XXXX +#ifdef id2 +WormData: + .db 1 + .dw wormlevel +wormlevel: + .db 4 ;priority + .db 12 ;string + .db "wor" ;description + .dw yasexec ;execution routine + .dw yascomment-yasdetect + .dw yasdetect-$-1 ;detection routine + .dw yasicon-yascomment + .dw yascomment-$-1 ;comment routine + .dw yasdataend-yasicon + .dw yasicon-$-1 ;icon routine +yasexec: + rst 10h + ex de,hl + ld a,b + cal _AHL_PLUS_2_PG3 ;skip past length bytes + cal skiptitle ;title (plus size+header <- all non-0) +; cal skiptitle ;description + jp leveldataAHL-3 +yasdetect: + cal _AHL_PLUS_2_PG3 ;skip past length bytes + cal _Get_Word_ahl + ld hl,levelhead+(levelhead2*256) + cal _cphlde + ret z + scf + ret +yascomment: + inc hl + inc hl ;skip header + ret +yasicon: + ld hl,$F400+levelicon-yasicon + ld bc,6+(256*1) + or a + ret +levelicon: + .db %00011100 ;..XXX... ...XXX.. + .db %00011110 ;.X...X.. ...XXXX. + .db %00000011 ;.X..X... ......XX + .db %10000001 ;X..X..XX X......X + .db %01011011 ;X..X..XX .X.XX.XX + .db %01101110 ;X...XXX. .XX.XXX. +yasdataend: +#endif int_handler: ex af,af' @@ -173,31 +354,12 @@ int_handler: jp $0039 int_end: -Start: - ld (SpSave),sp +;--- search levels ------------------------------------------------------------- + +codestart: cal _runindicoff cal _flushallmenus - im 1 - ld a,$D4 - ld h,a - ld l,0 ;ld hl,$D400 - ld d,a - ld e,1 ;ld de,$D401 - ld b,e - 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 bc,int_end-int_handler - ldir - inc a ;ld a,$D4 - ld i,a - im 2 ;...it *does* work ;) - cal _RAM_PAGE_7 ld hl,$BFFF ;VAT start ld ix,templevels @@ -213,11 +375,8 @@ searchloop: jr z,stringfound searchnext: pop hl - dec hl ;5x - dec hl - dec hl - dec hl - dec hl + ld de,-5 + add hl,de ld b,(hl) ;name size inc b skipname: @@ -240,18 +399,15 @@ stringfound: cp e jr nz,_searchnext ;not worm ld a,levelhead2 - cp d + cp d ;=0 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 + ld (ix+1),h ;save level's ahl + ld (ix+2),l + ld de,3 ;&&&d=0 + add ix,de _searchnext: cal _RAM_PAGE_7 - jr searchnext + jr searchnext loadgametype: psh de @@ -265,10 +421,16 @@ loadgametype: 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 @@ -278,7 +440,11 @@ searchcomplete: #else ld ix,templevels-3 #endif -levelselectmenu: + 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 @@ -290,16 +456,23 @@ levelselectmenu: ld hl,$FC00+(2*16) ld b,16*9 cal menuinvloop - ld hl,$FC00+(56*16) + ld hl,$FC00+$380 ;(*,56) cal hr - ld hl,$0601 ;x=1 + ld hl,$0C01 ;x=1 ld (_penCol),hl dispnextlevel: - ld a,(ix+3) - ld b,a + ld de,3 + add ix,de ;goto next + ld a,(ix) + ld h,(ix+1) + ld l,(ix+2) + cal _load_ram_ahl ;hl=ahl + cal _vputs + ld hl,availevels + inc (hl) + ld a,(ix+3) ;next inc a ;cp 255 jr z,__levselect -displevel: ld hl,_penCol ld (hl),$01 ;x=1 inc hl @@ -308,17 +481,14 @@ displevel: ld (hl),a ;y+6 cp 49 ;bottom of screen jr nc,_levselect - ld de,3 - add ix,de - ld hl,availevels - inc (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 +loadlevel1: + psh ix + pop hl + ld b,-2 + jr loadlevel + readylevelfile: ;selected level at ahl ; ld hl,templevels-3/0 ld a,b @@ -380,7 +550,7 @@ levdescclearloop: cp d ;de>$FFFF (offscreen) jr nz,levdescclearloop cal _vputs - jr levselectmenu+1 + jr levselectmenuloop+1 __levselect: #ifdef intlevels ld ix,templevels-6 ;reset 2 1st page @@ -390,7 +560,7 @@ __levselect: _levselect: ld b,-2 ;level selected jr levselect -levselectmenu: +levselectmenuloop: psh hl psh bc cal ubergetkey @@ -407,24 +577,26 @@ levselectmenu: sub K_EXIT-K_RIGHT jp z,ExitNoStats inc a ;cp K_SECOND - jr nz,levselectmenu + jr nz,levselectmenuloop ; jr z,loadlevel loadlevel: cal readylevelfile +#ifdef intlevels or a ;levelfile on page 0 (=internal) jr z,levelloaded +#endif cal skiptitle ;skip description - +leveldataAHL: cal _Get_Word_ahl ld (leveldataSize),de - ld d,8 ;counter + ld d,9 ;counter ld bc,datalevels cal loadgametype ld (hilvlposa),a ;singleplayer levels ld (hilvlposhl),hl - ld d,4 + ld d,5 cal loadgametype cal _SET_ABS_SRC_ADDR ;levelsstart @@ -447,6 +619,36 @@ leveldataSize =$-2 levelloaded: cal _RAM_PAGE_1 +;_______________________________________________________________________________ +; _______ _____ ______ _______ _____ __ _ _____ _______ +; | | | | | |_____/ |______ | | \ | | | +; | | | |_____| | \_ |______ _____ __|__ | \_| __|__ | +;_______________________________________________________________________________ + +; cal _runindicoff ;this is after level selection (run from yas1 or restart) +; cal _flushallmenus ;so this stuff should already be done earlier or by yas + ld (SpSave),sp + + im 1 + ld a,$D4 + ld h,a + ld l,0 ;ld hl,$D400 + ld d,a + ld e,1 ;ld de,$D401 + ld b,e + 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 bc,int_end-int_handler + ldir + inc a ;ld a,$D4 + ld i,a + im 2 ;...it *does* work ;) + res 2,(iy+13) ;appAutoScroll ld a,r ld (Seed),a @@ -459,15 +661,13 @@ setdeflevels: add hl,de ;next dnz setdeflevels -;----------------------------- -;----- build trig tables ----- -;----------------------------- +;--- trig tables --------------------------------------------------------------- - ld hl,TrigPrecalc - ld de,SinCosTable - psh de - ld bc,65 - ldir + 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: @@ -486,16 +686,31 @@ 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 + ld a,3 +optimize__w00t: ;may look like crap, but actually saves 3 bytes! + ldi + ld bc,6 + ex de,hl + add hl,bc + ex de,hl ;add de,6 + ld c,16-7 ;=bc + ldir + dec a + jr nz,optimize__w00t + ld c,13*16 ;=bc ldir ld hl,$FC00+$010 ;(*,01) cal hr @@ -504,16 +719,14 @@ DisplayMenu: ;---draw menu--- ld hl,$FC00+$3E0 ;(*,62) cal hr dispmainmenu: - ld hl,Gametype - ld a,(hl) + ld a,(gametype) dec a ;will be inced @changegame - and 7 - ld (hl),a + cal changedgame ld hl,changegame ;dispmenusets ;mainMenu psh hl ;jump here after ret ld hl,txtMenu ld ix,posMenu -;Mode|Level|Limit|Worms|worm #|controls +;Mode|Level|Link|Worms|worm #|controls ; jr dispmenucommon ;cal dispmenucommon_: @@ -522,14 +735,11 @@ dispmenucommon: ld de,$FD80 ;begin pos xor a clroldmenuloop: + ld c,4 ld (de),a inc de - ld (de),a - inc de - ld (de),a - inc de - ld (de),a - inc de + dec c + jr nz,clroldmenuloop+2 dnz clroldmenuloop ld b,(ix) @@ -553,7 +763,7 @@ hrloop: dnz hrloop ret -;--- menu loop --- +;--- options menu -------------------------------------------------------------- dispoptionmenu: ld hl,txtoMenu @@ -562,13 +772,18 @@ dispoptionmenu: cal dispmenucommon_ dispomenusets: +#ifdef spprotect + ld a,(gamecar) + and _datasingl + jp nz,LetsGetThisPartyOn ;SP -> start game +#endif cal clrold ld hl,$1E3E ld (_penCol),hl cal loadgamecar psh hl - cal cshowA0 ;lives + cal cshowA ;lives ld hl,$2A3E ld (_penCol),hl @@ -582,7 +797,7 @@ dispomenusets: cal _vputs jr dispspeeddone dispspeed: - cal cshowA0 + cal cshowA dispspeeddone: ld hl,$363E @@ -592,7 +807,7 @@ dispspeeddone: psh hl ld a,(hl) ;(growth) inc a ;-1=None; 0..98->1..99 - cal cshowA0 + cal cshowA ld hl,$303E ld (_penCol),hl @@ -606,7 +821,7 @@ dispspeeddone: cal _vputs jr dispturndone dispturn: - cal cshowA0 ;turn speed + cal cshowA ;turn speed dispturndone: ld hl,$243E @@ -616,9 +831,12 @@ dispturndone: ld a,(hl) ;(scorelimit) or a psh af - cal cshowA0 ;limit + 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 @@ -647,30 +865,30 @@ notoselect jr nz,optionMenu seloright: - dec a + dec a ;Lives jr z,changelives - dec a + dec a ;Limit jr z,changelimit - dec a + dec a ;Speed jr z,changespeed - dec a + dec a ;Rotation jr z,changeturn - dec a + dec a ;Growth jr z,changegrowth - + ;Back seloleft: ld a,b - dec a + dec a ;Lives jr z,bchangelives - dec a + dec a ;Limit jr z,bchangelimit - dec a + dec a ;Speed jr z,bchangespeed - dec a + dec a ;Rotation jr z,bchangeturn - dec a + dec a ;Growth jr z,bchangegrowth -_optionMenu: +_optionMenu: ;Back jr optionMenu changelives: @@ -768,7 +986,7 @@ bchangegrowth: jr z,__optionMenu ;<-1 jr changedgrowth -;--- +;--- main menu ----------------------------------------------------------------- mainMenu: cal menupos @@ -784,9 +1002,22 @@ select: ;2nd/enter dec a ;6th: controls jp z,changekeys 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,codestart psh af cal menupos cal loadgamecar @@ -799,71 +1030,57 @@ notselect jr nz,mainMenu selright: - or a + or a ;Mode jr z,changegame - dec a + dec a ;Level jr z,changelevel - dec a + dec a ;Link jr z,changelink - dec a + dec a ;Worms jr z,changenrworms -; dec a +; dec a ;worm# ; jr z,changecurworm changecurworm: -; hl=nrworms - ld a,(curworm) - cp (hl) - jr nc,mainMenu ;may not become >(nrworms) - inc a -changedcurworm: - ld (curworm),a + ld hl,curworm + ld a,(hl) + cp 4 + jr nc,mainMenu ;may not become >4 + inc (hl) jr _dispmenusets ;mainMenu selleft: ld a,b - or a + or a ;Mode jr z,bchangegame - dec a + dec a ;Level jr z,bchangelevel - dec a + dec a ;Link jr z,bchangelink - dec a + dec a ;Worms jr z,bchangenrworms -; dec a +; dec a ;worm# ; 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: - cal change4spOnly - ld a,(hl) ;hl=nrworms - inc a - cp 5 - jr nc,mainMenu ;may not be >4 -changednrworms: - ld (hl),a - jr _dispmenusets ;mainMenu -changenrwormsInit: - ld a,(Gametype) - cp 3 - ld a,(hl) ;hl=nrworms - ret bchangenrworms: cal change4spOnly ld a,(hl) ;hl=nrworms - dec a ;0-3 + dec a ;0-(3+2) cp 2 jr nc,changednrworms ;save >=2 -_mainMenu: - jr mainMenu + jr _mainMenu change4spOnly: - ld a,(Gametype) + ld a,(gametype) cp 3 ret nc pop hl ;cal @@ -873,7 +1090,7 @@ changelink: bchangelink: cal change4spOnly dec hl ;inced earlier - dec hl ;gameCar + dec hl ;gamecar ld a,1 ;change LS-bit (=link) xor (hl) ;0=1; 1=0 ld (hl),a @@ -881,20 +1098,25 @@ _dispmenusets: jr dispmenusets ;mainMenu changegame: - ld a,(Gametype) + ld a,(gametype) inc a cal changedgame jr z,changegame jr dispmenusets ;mainMenu changedgame: - and 7 ;mod 8 - ld (Gametype),a + cp 9 + jr c,changedgameok + sub 255-8 ;-1 -> 8 + jr nc,changedgameok + xor a ;9 -> 0 +changedgameok: + ld (gametype),a cal getnrlevels xor a cp (hl) ret bchangegame: - ld a,(Gametype) + ld a,(gametype) dec a cal changedgame jr z,bchangegame @@ -920,7 +1142,7 @@ bchangelevel: jr _mainMenu getnrlevels: ;for current gametype at hl - ld hl,Gametype + ld hl,gametype ld d,0 ld e,(hl) ld hl,nrlevels @@ -937,36 +1159,29 @@ waitcustomkey: or a jr z,waitcustomkey cp K_EXIT - ret z + ret z ;cancel cp K_MORE - jr z,waitcustomkey + jr z,waitcustomkey ;ignore ld (ix),a ret changekeys: cal getwormname - ld hl,txtKeyleft + ld hl,txtKleft cal getcustomkey ;left + ld a,93 + ld (_penCol),a cal getcustomkey ;right ; jr dispmenusets -;---display current settings--- +;--- display current settings -------------------------------------------------- dispmenusets: - cal clrold ld de,$183E ld (_penCol),de - ld d,0 - ld a,(Gametype) - 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 + cal clrold + cal loadtxtgame + cal _vputs ;Singleplayer or smtn ld hl,$2A3E ;worms ld (_penCol),hl @@ -974,12 +1189,19 @@ dispmenusets: 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) + rr c ;(gamecar) ld hl,txtNo jr nc,displink ld hl,txtYes @@ -992,11 +1214,11 @@ displink: psh bc ld d,0 cal hlatlevel - ld a,(Gametype) + ld a,(gametype) or a ;gamesingle jr nz,displvlname ld a,(Level) - cal cshowA0 + cal cshowA00 jr lvldisped displvlname: cal _vputs @@ -1021,7 +1243,7 @@ curworm =$-1 cal _vputs jp mainMenu -;--- handle menukeys --- +;--- handle menukeys ----------------------------------------------------------- menucall: psh bc @@ -1082,21 +1304,20 @@ menunewok: ld b,a jr menupos -;--- change name --- -; of worm#(curworm) +;--- change name --------------------------------------------------------------- getwormname: ;of (curworm) ld a,(curworm) - add a,a ;2x ld e,a + add a,a ;2x add a,a ;4x add a,a ;8x add a,a ;16x - add a,e ;18x + sub e ;15x ld e,a ld d,0 ;de=a - ld ix,worm1name-18 + ld ix,worm1name-15 add ix,de ret @@ -1110,7 +1331,7 @@ emptyname: ld (hl),' ' inc hl dnz emptyname - ld a,maxnamelength + ld a,maxnamesize ld (namelength),a enternameloop: ld hl,$FF07 ;begin pos @@ -1120,9 +1341,8 @@ enternameloop: ld (_penCol),hl pop hl psh hl - ld (ix),0 + ld (ix),a ;clroldcustom -> a=0 cal __vputs - ld (ix),' ' ld a,'_' cal __vputmap nokeypressed: @@ -1135,12 +1355,13 @@ nokeypressed: jr nz,continue backspace: ld a,(hl) - cp maxnamelength + cp maxnamesize jr nc,nokeypressed inc (hl) dec ix jr enternameloop continue: + ld d,0 cp K_ENTER jr z,nameentered cp K_EXIT @@ -1148,9 +1369,8 @@ continue: dec (hl) ;(namelength) jr z,nameentered - ld hl,chartable - ld e,a - ld d,0 + ld hl,chartable-1 + ld e,a ;d=0 add hl,de ld a,(hl) or a @@ -1161,29 +1381,32 @@ continue: jr enternameloop 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 - -nameentered: + .db ".<>!" ;down|L|R|up|-|-|-|-|[enter] + .db "w00t!" ;(makes code look way better) + .db "XTOJE0",'w' ;+|-|*|/|^|clear|- w + .db " WSNID9",$F8 ;(-)|3|6|9|)|tan|custom|- o + .db "ZVRMHC8",$A7 ;.|2|5|8|(|cos|prgm|[del] o + .db "YUQLGB7#",$C2 ;0|1|4|7|ee|sin|table|xvar|[on] t + .db "-PKFA6'" ;sto|,|x2|ln|log|graph|alpha + .db "54321*",$AE,$D0 ;F5|F4|F3|F2|F1|2nd|[exit]|more + +nameentered: ;d=0 pop ix ;stringbegin - ld (ix+8),0 ;end mark + ld (ix+8),d ;end mark jp DisplayMenu -;----------------------------- -;------- procs-n-stuff ------- -;----------------------------- +;_______________________________________________________________________________ +; _______ _____ _______ _______ _____ ______ _____ _______ _______ +; | | | | |______ | |_____] |_____/ | | | |______ +; | | | __|__ ______| |_____ _____ | | \_ |_____| |_____ ______| +;_______________________________________________________________________________ ubergetkey: halt ;woo hoo halt ;save them batteries! yeah! jp GET_KEY -clrold: +clrold: ;destr:acdehl (acd=0) ld hl,$FD97 ;begin pos ld a,35 ;nr of lines clroldcustom: @@ -1202,22 +1425,21 @@ clroldsetsloop: hlatlevel: ;d must be 0 psh hl ;loadgamecar - 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 a,(gametype) + add a,a ld e,a ;=de - sbc hl,de ;datalevels + ld hl,datalevels + add hl,de ;+2*mode cal _ldHLind ;ld hl,(hl) - pop de ;de=loadgamecar - inc de \ inc de - ld a,(de) ;(curlevel) + ex (sp),hl ;hl=loadgamecar + ld e,2 ;=de + add hl,de + ld a,(hl) ;(curlevel) ld (Level),a - ld d,a ;begin level + ld c,a ;begin level + pop hl ;@level1 skiplevelloop: - dec d ;levels to skip + dec c ;levels to skip ret z cal skiplevel jr skiplevelloop @@ -1230,15 +1452,13 @@ skiplvltitle: ;zf=singleplayer jr nz,skiplvltitle ret -skiplevel: ;@hl - destr:ab - alter:hl - ld a,(Gametype) +skiplevel: ;@hl; de=2 - destr:ab - alter:hl + ld a,(gametype) or a ;gamesingle psh af cal nz,skiplvltitle - inc hl - inc hl - inc hl - inc hl ;skip 4 + add hl,de + add hl,de ;skip 4 ld b,(hl) ;spritesize inc b skipsprite: @@ -1247,52 +1467,39 @@ skipsprite: ld b,(hl) ;balls inc b inc b ;skip 6 - pop af ;cp (Gametype),0 - jr z,skipworms + pop af ;cp (gametype),0 + jr z,skipstuff inc b ;multiplayer lvl inc b inc b ;skip other 3 worms (9 bytes) -skipworms: - ld a,b - add a,a - add a,b - ld b,a ;3x(balls+2) -skipballs: - inc hl - dnz skipballs - -skipflags: - ld a,(Gametype) - cp gamerace +skipstuff: + add hl,de + inc hl ;3x(balls+2) + dnz skipstuff + sub gamerace ;a=(gametype) jr z,skiplaps - cp gamectf - jr nz,noflagstoskip - inc hl - inc hl + dec a ;gamectf + jr nz,skipobjects + add hl,de skiplaps: - inc hl - inc hl -noflagstoskip: - + add hl,de skipobjects: xor a or (hl) inc hl ;nf ret z ;0=end - inc hl - inc hl - inc hl - inc hl + add hl,de + add hl,de jr skipobjects loadgamecar: -;in: (Gametype) +;in: (gametype) ;out: hl=dataTYPE -;build: c=(gameCar)=(hl-1) +;build: c=(gamecar)=(hl-1) ; a=(wormbeglives)=(hl) ;destr: acdehl ld hl,datasingle - ld a,(Gametype) + ld a,(gametype) add a,a add a,a add a,a ;8 bytes per mode @@ -1300,16 +1507,18 @@ loadgamecar: ld d,0 add hl,de ld a,(hl) - ld (gameCar),a + ld (gamecar),a ld c,a inc hl ld a,(hl) ld (wormbeglives),a ret -;----------------------------- -;-------- start game --------- -;----------------------------- +;_______________________________________________________________________________ +; _______ _______ _______ ______ _______ ______ _______ _______ _______ +; |______ | |_____| |_____/ | | ____ |_____| | | | |______ +; ______| | | | | \_ | _____ |_____| | | | | | |______ +;_______________________________________________________________________________ LetsGetThisPartyOn: ld a,$17 ;no exit @@ -1324,35 +1533,38 @@ createwormsloop: ld bc,died ;0008 add hl,bc ; ld b,0 - ld (hl),b ;died=0 + ld (hl),b ;+died=0 inc hl - ld (hl),b ;score=0 + ld (hl),b ;+score=0 inc hl - ld (hl),b ;score+1=0 + ld (hl),b ;+score+1=0 inc hl - ld (hl),2 ;delay=2 + ld c,2 + ld (hl),c ;+wdelay=2 inc hl - ld (hl),3 ;lives=x + ld (hl),3 ;+lives=x wormbeglives =$-1 inc hl ex de,hl ;de=wormX+head - ld bc,18 - ldir ;copy 18 bytes + ldir ;+head=+tail (2) + dec hl + dec hl + ld c,wormsize-tail ;=bc + ldir ;copy 15 bytes dec a ;loop jr nz,createwormsloop -OhMyGodItsALabel: ;pj34r my coding skillz +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 + ld a,(gamecar) rra ;and _datalink - jp nc,StartLevel ;&&&jr + jr nc,_StartLevel -;--------- link ------------ +;--- link ---------------------------------------------------------------------- wormVhost = 095 wormVclient = 195 @@ -1361,128 +1573,134 @@ linkmatch: cal _clrWindow ld c,wormVhost cal Qsend - ld hl,txtWaiting + ld hl,txtWaitn cal _puts cal Crecv ld a,c cp wormVclient - jr z,client - cp wormVhost - jr z,host - pop hl ;error - jp DisplayMenu ;return to menu + jr nz,host + +;--- client -------------------------------------------------------------------- -host: - ld c,wormVclient - cal Qsend - jr sethost client: - ld hl,txtReceive - cal _puts -setclient: - ;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 de,worm2+left - ld hl,worm1+left - ldi ;keys worm#2 = worm#1 - ldi ;+right - ld de,worm4+left - ldi ;keys worm#4 = worm#2 - ldi - xor a - ld (worm1+left),a ;worm 1... - ld (worm3+left),a ;and worm 3 via link - ld hl,worm1+name - ld b,9 - cal recvstuff - ld hl,worm2+name - ld b,9 - cal sendstuff +; 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+wleft&255 + cal moveworm2 ;3=2 + ld l,worm1+name&255 + cal sendworm + ld l,worm2+wleft&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 sendstuff - ld hl,gameCar - ld b,1 - cal sendstuff - ld hl,Gametype - ld b,1 - cal sendstuff + cal recvstuff ;game setup + ld hl,gametype ;+gamecar + ld b,2 + cal recvstuff ;transmit game ex de,hl ld b,168 - cal sendstuff + cal recvstuff ;level + ld d,b + cal loadtxtgame ;set CURtxtGame + +_StartLevel: jr StartLevel -sendstuff: - psh de -sendstuffloop: - psh bc - ld c,(hl) - inc hl - cal Qsend - pop bc - dnz sendstuffloop - pop de + +linkerror: + pop hl ;error + jp DisplayMenu ;return to menu + +;--- set/send worms ------------------------------------------------------------ + +moveworm2: + ld hl,worm2+wleft +moveworm: ;hl=wormN+wleft + ld d,worm1/256 + ld bc,11 + ldir ;keys+name worm(de) = worm(hl) ret -recvstuff: - psh de -recvstuffloop: - psh bc - cal Qrecv - ld (hl),c +linkworm: ;hl=wormN+wleft + ld (hl),0 ;worm1|2+wleft inc hl - pop bc - dnz recvstuffloop - pop de - ret -sethost: - ;name/keys: wormy#1 = worm #1 = ok - ; 2 = link = 0 + link (name1) - ; 3 = worm #2 = #2 + local(name2) - ; 4 = link = 0 + link (name2) - ld de,worm3+left - ld hl,worm2+left - ldi ;keys worm#3 = worm#2 - ldi ;+right - xor a - ld (worm2+left),a ;worm 2+4.. - ld (worm4+left),a ;..over link - ld hl,worm1+name + inc hl ;+name + ld b,9 + cal recvstuff + ld bc,worm3-worm1-11 ;+2 + add hl,bc ;b=0 + ld (hl),b ;worm3|4+wleft + inc hl + inc hl ;+name + ld b,9 + jp recvstuff +sendworm: ;hl=wormN+name ld b,9 cal sendstuff - ld hl,worm2+name + ld bc,worm3-worm1-9 + add hl,bc ;worm(N+2)+name ld b,9 - cal recvstuff + 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+wleft&255 + cal moveworm2 ;4=2 + ld e,worm2+wleft&255 + ld hl,worm1+wleft + cal moveworm ;2=1 + ld l,worm1+wleft&255 + cal linkworm ;worm1+3 over link + ld l,worm2+name&255 + cal sendworm pop hl ;loadgamecar pop de ;leveldata - ld hl,templevels ;&&&&&&& - ld de,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 + cal sendstuff ;setup + ld hl,gametype ;+gamecar + ld b,2 + cal sendstuff ;game ex de,hl ld b,168 - cal recvstuff + cal sendstuff ;level -;-------- load level --------- +;--- 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) @@ -1490,6 +1708,7 @@ StartLevel: inc hl ld a,(hl) ld (growspeed),a + ld (turn),a inc hl ld a,(hl) ld (turnleft),a @@ -1497,6 +1716,14 @@ StartLevel: inc hl ld l,(hl) ld h,0 + ld a,(gamecar) + rla ;and _dataPmult + 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 @@ -1518,12 +1745,33 @@ Nextlevel: inc hl ;location of ending-code jp (hl) ;go there ("call") donextlevel: - ld a,(Gametype) + ld de,gametype + ld a,(de) or a ;gamesingle psh af - cal nz,skiplvltitle - ld de,Left - ldi + jr nz,customnrpeas +;--sp-- + inc de + ld a,(de) ;gamecar + rla ;prepare a + rlc (hl) ;bit 7 of (hl)... + rra ;...to bit 7 of (gamecar) + rrc (hl) ;restore (hl) + ld (de),a + ld a,(hl) + and 127 ;actual #peas + jr setnrpeas +;--!sp-- +customnrpeas: + cal skiplvltitle + ld a,0 +customleft =$-1 + +setnrpeas: + ld (Left),a + inc a + ld (lefttotal),a + inc hl ld de,Speed ld a,0 customspeed =$-1 @@ -1537,13 +1785,8 @@ setspeed: inc hl ld de,peagrowth ldi - ld a,(hl) - ld (worm1+grow),a - ld (worm2+grow),a - ld (worm3+grow),a - ld (worm4+grow),a - ld (beginsize),a - inc hl + ld de,growsize + ldi ld a,(hl) inc hl @@ -1556,10 +1799,14 @@ setspeed: add hl,bc ;hl=behind sprite jr setsprite defaultsprite: - ld a,defspritesz +#ifndef intlevels + ld a,42 ;always overwritten +#else + ld a,defsprsz +#endif defsprsize =$-1 defsprite =$+1 - ld de,defspriteimg + ld de,defspr setsprite: ;de=@sprite ;a=sprsize ld (sprsize),a ld (spritepos),de @@ -1584,27 +1831,30 @@ toobad_noballs: #endif ld hl,worm1 - pop af ;cp (Gametype),0 + pop af ;cp (gametype),0 ld b,1 jr z,worminit ld b,4 worminit: 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 + ld a,(growsize) + ld (hl),a ;+growL inc hl - ld (hl),a ;growH=0 + xor a + ld (hl),a ;+growH=0 ld bc,(worm2-worm1)-7 add hl,bc @@ -1613,10 +1863,9 @@ worminit: inc a ;ld a,1 ld (turn10),a - inc a ;ld a,2 ld (flashtime),a -;-------- draw level --------- +;--- draw level ---------------------------------------------------------------- initlevel: ld a,(de) @@ -1637,13 +1886,7 @@ setfieldy: 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 ;32=scr.width + cal ldhl32a ex de,hl ld hl,ScrBuffer @@ -1698,7 +1941,7 @@ NoVertShift: pop hl ; << levelp - ld a,(Gametype) + ld a,(gametype) cp gamerace ;or gamectf jr c,levelhasbeensetup ld de,peaspos @@ -1714,28 +1957,37 @@ levelhasbeensetup: cal drawstuff -;--------- prepare ----------- +;--- prepare ------------------------------------------------------------------- leveldone: psh hl ; >> levelp new cal forceshowstats + cal handlethoseneatlittleballs + + ld a,(gamecar) + rla ;and _dataPmult + cal c,multnewpea ;a=0 + rla ;and _datafood + cal nc,NewPea +nofood: + ld bc,(worm1+pos) + cal DisplayField #ifdef readymask ld hl,$FC70 - ld d,%10101010 - ld c,56 + ld de,57*256+%10101010 maskloop: - ld a,d - xor %11111111 - ld d,a + ld a,e + cpl + ld e,a ld b,$10 maskline: ld a,(hl) - or d + and e ld (hl),a inc hl dnz maskline - dec c + dec d jr nz,maskloop #endif #ifdef readytext @@ -1752,28 +2004,21 @@ maskline: res 3,(iy+5) #endif - ld a,(gameCar) - and _datafood - jr z,nofood - ld ix,worm1 - cal NewPea -nofood: - ld bc,(worm1+pos) - cal DisplayField - ld b,startdelay ReadyDelay: halt dnz ReadyDelay cal releasekeys -;----------------------------- -;----------- LOOP ------------ -;----------------------------- +;_______________________________________________________________________________ +; ______ _______ _______ _______ _____ _____ _____ +; | ____ |_____| | | | |______ | | | | | |_____] +; |_____| | | | | | |______ _____ |_____ |_____| |_____| | +;_______________________________________________________________________________ GameLoop: ld bc,(worm1+pos) ;camera worm #1 - ld a,(worm1+left) + ld a,(worm1+wleft) or a ;if #1 not over link jr nz,showfield ld bc,(worm2+pos) ;otherwise view from #2 @@ -1813,13 +2058,13 @@ NoDelay: inc a ;-1 jr z,nextturnok dec (hl) - dec a ;0 (now <0) + dec a ;>=0 jr nz,nextturnok growspeed =$+1 - ld (hl),$FF + ld (hl),$FF ;reset nextturnok: - ld a,(gameCar) + ld a,(gamecar) and _datatime jr z,nodispupdate ld hl,turn10 @@ -1829,7 +2074,7 @@ nextturnok: cal forceshowstats ;update score nodispupdate: - ld a,(Gametype) + ld a,(gametype) cp gamectf jr nz,noctfpeas2draw ld de,drawctfpea1 @@ -1840,11 +2085,7 @@ nodispupdate: cal tryDrawPea ;pea#2 noctfpeas2draw: - - ld a,0 -nrballs =$-1 - or a - cal nz,handlethoseneatlittleballs + cal handlethoseneatlittleballs ld ix,worm1 ld a,1 @@ -1860,9 +2101,11 @@ handleworms: inc (hl) ;0..nrworms-1 dnz handleworms -;----------------------------- -;---------- keys ------------- -;----------------------------- +;_______________________________________________________________________________ +; _ _ _______ __ __ _______ +; |____/ |______ \_/ |______ +; | \_ |______ | ______| +;_______________________________________________________________________________ HandleKeys: ld a,%10111111 @@ -1874,9 +2117,9 @@ CheckExit: rla ;=$17 (c=EXIT-key) ;or$A7 (c=0) jp c,GameLoop - jp Exit ;jr? + jr Exit -;------- pause menu ------- +;--- pause menu ---------------------------------------------------------------- disppausemenu: ld hl,txtpMenu @@ -1957,6 +2200,12 @@ donepausing: cal releasekeys jp GameLoop +;_______________________________________________________________________________ +; ______ _______ _______ _______ _____ _ _ _______ ______ +; | ____ |_____| | | | |______ | | \ / |______ |_____/ +; |_____| | | | | | |______ _____ |_____| \/ |______ | \_ +;_______________________________________________________________________________ + Exit: cal releasekeys ld sp,0 ;pop all @@ -1972,9 +2221,9 @@ SpSave = $-2 ld hl,$FC10 ld b,16*11 cal menuinvloop ;invert - ld hl,$FD80 + ld hl,$FC00+$180 cal hr ;menuinvloop w/ b=16 - ld hl,$FCE0 + ld hl,$FC00+$E0 cal hr ld hl,_curRow ld (hl),2 @@ -1984,9 +2233,9 @@ SpSave = $-2 ld hl,$FC00 ld b,16*8 cal menuinvloop ;invert - inc h ;$FD80 + inc h ;$FC00+$180 cal hr ;menuinvloop w/ b=16 - ld hl,$FCE0 + ld hl,$FC00+$E0 cal hr ld hl,_curRow inc (hl) @@ -2002,12 +2251,14 @@ CURtxtGame =$-2 ld (_penCol),de ld hl,txtName cal _vputs ;Name - ld a,$3D + 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 @@ -2046,7 +2297,17 @@ nonewdmwinner: dnz finddmwinner ld (dmwinner),a -;---display worms--- +;--- 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 @@ -2055,10 +2316,10 @@ displayWormStats: psh bc psh hl - ld bc,left-died - add hl,bc ;+left + ld bc,wleft-died + add hl,bc ;+wleft xor a - cp (hl) ;input=0 = link + cp (hl) ;wleft=0 = link jr nz,NoLinkIndic ld a,9 ld (_curCol),a @@ -2080,7 +2341,7 @@ NoLinkIndic: pop hl psh hl - ld a,(Gametype) + ld a,(gametype) cp gamedeathm jr nz,nodmwinner ;deathmatch? ld a,0 ;winner's deaths @@ -2103,7 +2364,8 @@ notwinner: psh hl inc hl ;worm+score cal _ldHLind - cal showHL + cal _D_HL_DECI + cal _puts ;showHL pop hl ld bc,worm2-worm1 @@ -2111,7 +2373,8 @@ notwinner: pop bc dnz displayWormStats - ld a,(Gametype) + ld de,gametype + ld a,(de) or a ;singleplayer (0) only jr nz,hilevelcheckdone checkhilevel: @@ -2128,38 +2391,38 @@ hilvlposhl =$-2 ;save external cal _writeb_inc_ahl ;ld (ahl),c hilevelcheckdone: - ld a,(gameCar) + inc de + ld a,(de) ;gamecar and _datasingl jr z,hiscorecheckdone ;no SP checkhiscore: - cal loadhiscoreposinahl + cal loadhiscoreposinahl ;cf=0 (and) cal _SET_ABS_SRC_ADDR ;from ahl (lvlfile) +;-wild insertation- xor a - ld hl,highsave + ;Be Root to fix a Unix problem + ld hl,savestr + ;ReBoot to fix a Windows problem cal _SET_ABS_DEST_ADDR ;to local - ld hl,5 ;5 bytes - cal _MM_LDIR_SET_SIZE ;get old score+name - cal _RAM_PAGE_1 - - ld de,(highsave) ;de=prev. hiscore + ;W00t W00t to fix an assembly problem + cal mmldir5 ;get old score+name + ld de,(savestr) ;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 +newhigh: ;New>Old + ld (savestr),hl ;store new hiscore + ld de,savestr+2 ;to ld hl,worm1+name ;from ld bc,3 ;3 chars ldir ;store new hiname - cal loadhiscoreposinahl + cal loadhiscoreposinahl ;cf=0 (jr c) cal _SET_ABS_DEST_ADDR ;to ahl xor a - ld hl,highsave + ld hl,savestr cal _SET_ABS_SRC_ADDR ;from local - ld hl,5 - cal _MM_LDIR_SET_SIZE ;save new - cal _RAM_PAGE_1 + cal mmldir5 ;save new score+name ld hl,_curRow dec (hl) cal iswinner @@ -2171,57 +2434,31 @@ NotNewHigh: cal _vputs ld hl,$0C07 ld (_curRow),hl - ld hl,highsave+2 + ld hl,savestr+2 cal _puts - ld hl,(highsave) - cal showHL + ld hl,_curCol + inc (hl) + ld hl,(savestr) + cal _D_HL_DECI + cal _puts ;showHL hiscorecheckdone: waitkey: + 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 - -;x123456789012345678901 -;>>>>>> GAME OVER <<<<< -;2Multiplayer -;3Level 01 -;4 Died Score: -;5NameName 03 00070 -;6Worm#02 @ 05 00120 -;7Worm#03 15 00030 -;8Snaky @ 00 04820 - -ExitNoStats: - cal linkok - ld hl,_asapvar - rst 20h ;_ABS_MOV10TOOP1 - rst 10h ;_FINDSYM - ld hl,savestart-_asm_exec_ram+4 - xor a - add hl,de - adc a,b ;ahl=bde+4 - cal _SET_ABS_DEST_ADDR - - xor a - ld hl,savestart - cal _SET_ABS_SRC_ADDR - ld hl,saveend-savestart - cal _MM_LDIR_SET_SIZE - - cal releasekeys - res 4,(iy+9) - set 2,(iy+13) - im 1 ;remove keyfix - jp _clrWindow + jr nz,waitkeyloop + ret loadhiscoreposinahl: - ld hl,0 ;for peaworm and singleplayer - ld a,(Gametype) + sbc hl,hl ;cf=0 + ld a,(gametype) or a ;Singleplayer? jr z,hi__ dec a ;peaworm? @@ -2243,8 +2480,8 @@ hiscrposhl =$-2 hiscrposa =$+1 adc a,0 ;ahl=saveloc ret -highsave: - .db 0,0,"WOR ",0 +savestr: ;hiscore (01ABC) _D_HL_DECI (01234) + .db $BB,"w00t",0 iswinner: ld a,10 @@ -2252,48 +2489,67 @@ iswinner: ld a,'*' jp _putc ;..then put * -;----------------------------- -;----------- worm ------------ -;----------------------------- +;--- quit ---------------------------------------------------------------------- + +ExitNoStats: + cal linkok + ld hl,_asapvar + rst 20h ;_ABS_MOV10TOOP1 + rst 10h ;_FINDSYM + ld hl,savestart-_asm_exec_ram+4 + xor a + add hl,de + adc a,b ;ahl=bde+4 + cal _SET_ABS_DEST_ADDR + + xor a + ld hl,savestart + cal _SET_ABS_SRC_ADDR + ld hl,saveend-savestart + cal _MM_LDIR_SET_SIZE + + cal releasekeys + res 4,(iy+9) + set 2,(iy+13) + im 1 ;remove keyfix + jp _clrWindow + +;_______________________________________________________________________________ +; _ _ _ _____ ______ _______ _______ _______ _ _ _______ _______ +; | | | | | |_____/ | | | |______ | | | |______ |______ +; |__|__| |_____| | \_ | | | _____ ______| | |_____| | | +;_______________________________________________________________________________ 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) jr DoesWormTailEqualsWormHead ;chk4 size=0 removewormloop: - ld c,(hl) - inc hl - ld b,(hl) - inc hl - cal resbit - psh hl - cal res4pixels - pop hl + cal removetailbit inc (ix+grow) jr nz,DoesWormTailEqualsWormHead inc (ix+grow+1) ;+256 DoesWormTailEqualsWormHead: cal _cphlde - jr nz,removewormloop + jr nz,removewormloop ;head=tail/size=0 - ld a,(gameCar) + ld a,(gamecar) and _datasingl - jr nz,safewormsizedone + jr nz,savetailpos + ld (ix+grow+1),a ;=0 ld a,0 -beginsize =$-1 +growsize =$-1 ld (ix+grow),a - ld (ix+grow+1),0 ;high -safewormsizedone: - ;de=ix+head - ld (ix+tail+1),d - ld (ix+tail),e ;head=tail/size=0 +savetailpos: + ld (ix+tail+1),h + ld (ix+tail),l ret unnamedlabel: @@ -2306,10 +2562,10 @@ respawndue: ld a,h ;previous cp l ;changed? ret z - ld (ix+delay),a ;=0 + ld (ix+wdelay),a ;=0 ret saverespawncounter: - ld (ix+delay),a + ld (ix+wdelay),a jr inputcall chkkey: ;key=a @@ -2344,7 +2600,7 @@ inkeys: ;use jp not call! turnright =$-1 ld l,a notright: - ld a,(ix+right) + ld a,(ix+wright) cal chkkey ret nc ld a,l @@ -2353,11 +2609,11 @@ turnleft =$-1 ld l,a ret inputcall: - ld a,(ix+left) + ld a,(ix+wleft) or a jr z,inlink ;input by link cal inkeys ;input by keys - ld a,(gameCar) + ld a,(gamecar) rra ;and _datalink ret nc ;no link ld c,l ;send our keys @@ -2367,9 +2623,11 @@ inlink: ld l,c ret -;----------------------------- -;------- handle worm --------- -;----------------------------- +;_______________________________________________________________________________ +; _ _ _ _____ ______ _______ _______ _____ _ _ _______ +; | | | | | |_____/ | | | |_____| | | \ / |______ +; |__|__| |_____| | \_ | | | _____ | | |_____ __|__ \/ |______ +;_______________________________________________________________________________ HandleWorm: xor a @@ -2379,7 +2637,7 @@ HandleWorm: or a ret nz ;live limit alive: - ld a,(ix+delay) + ld a,(ix+wdelay) dec a jp nz,respawncheck @@ -2390,7 +2648,7 @@ turn =$-1 inc (ix+grow) nogrow: - ld a,(gameCar) + ld a,(gamecar) and _datatime jr z,notimescore ld e,1 @@ -2408,24 +2666,10 @@ donediddelydone: ld e,(ix+pos2) ld d,(ix+pos2+1) -#ifdef optdie - psh hl - ld hl,previouspos - ld (hl),c - inc hl - ld (hl),b - inc hl - inc hl - ld (hl),e - inc hl - ld (hl),d - pop hl -#endif - -;-------- move worm ---------- +;--- move worm ----------------------------------------------------------------- -Wormmove: - psh bc ; >> pos +wormmove: + psh bc ;pos ld a,(hl) add a,a add a,d @@ -2453,206 +2697,33 @@ notnegY: notmoveY: ;bc=newpos ld (ix+pos2),e ld (ix+pos2+1),d - ld (ix+pos),c - ld (ix+pos+1),b ;-check- - pop hl ; << pos (old) + pop hl ;pos (old) ld a,h - sub b - and 1 + sub b ;Xold-Xnew + and 1 ;abs ld h,a ld a,l sub c - and 1 - add a,h - ld d,4 + and 1 ;|Yold-Ynew| + add a,h ;pixels moved |Dx|+|Dy| + ld d,4 ;same pos = 4of4 bytes drawn jr z,GotFour - xor 3 - ld d,a + xor 3 ;1 pixel = 2of4 blank; 2 pixels = 3of4 blank + ld d,a ;#pixels that should be drawn GotFour: - cal chk4pixels - rl d - jp nc,Drawworm + cal chk4pixels ;d-=pixels at b,c + rl d ;<0 meaning there were >d pixels + cal c,hitworm ;so that wasn't us -;--------- worm hit ---------- +;--- draw worm ----------------------------------------------------------------- -Hitworm: - ld a,(gameCar) - ld h,a -#ifdef optdie - and _datadie - cal z,checkhitotherworm - ld a,h -#endif - and _datamultpeas ;&&bit - jr nz,chkctfpeas - 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 - jr nc,wormset2grow - inc (ix+grow+1) -wormset2grow: - cal NewPea - ld hl,Left - dec (hl) - psh af - ld e,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 - ld (ix+delay),2 - jp Nextlevel - -chkpeahit: ;bc=ownpos;hl=peapos (destr:ad) - 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 - -chkctfpeas: - ld hl,(peaspos) ;1st pea - ld a,(ix+reserv) - ld e,a ;push a - and %01 ;ourpea (0|1) - jr z,sel_otherpea - ld hl,(peaspos+2) ;2nd pea ;&&&ex de,hl? -sel_otherpea: - cal chkpeahit - jr c,hitflag -;no peas hit: - ld a,e ;peek a (that's x86asm for pop\push ;) - bit 1,a ;%10 = carrying flag? - jp z,WormDead ;if not just die - xor %11 ;drop flag - ld (ix+reserv),a - psh af - cal WormDead - pop af ;which flag? (=and %1) - ld hl,drawctfpea1 ;restore #1 - jr z,nottheotherflag - ld hl,drawctfpea2 ;restore #2 -nottheotherflag: - ld (hl),3 ;draw delay 3 turns - ret - -drawctfpea1: .db 0 -drawctfpea2: .db 0 - -hitflag: ;correct pea hit - ld a,e ;pop a - xor %11 ;invert flag taken + ownflag - ld (ix+reserv),a - and %10 ;just returned? - psh af ;safe z-flag - cal DrawPea ;remove - pop af - jr nz,Drawworm ;flag taken, continue game - psh hl - ld e,20 ;flag captured+returned - cal IncScore - pop hl - ld a,3 ;draw delay - ld (drawctfpea1),a ;redraw.. - ld (drawctfpea2),a ;..both flags - jr Drawworm - -;----------------------------- - -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,(peaspos) ;63 - sub b ;x==63 - jr z,nextlaphalf - inc a - ret nz -nextlaphalf: - ld a,(peaspos+1) ;yline - cp c ;ypos - ld a,1 - jr nc,checklap ;y>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 - -;-------- draw worm ---------- - -Drawworm: - ld c,(ix+pos) - ld b,(ix+pos+1) +drawworm: + ld (ix+pos),c + ld (ix+pos+1),b - ld a,(Gametype) + ld a,(gametype) cp gamerace cal z,checkhitlapline @@ -2668,7 +2739,10 @@ Drawworm: inc hl ld (hl),b inc hl - cal resbit + ;(resbit) + ld a,h + and (ix+storepos) + ld h,a ld (ix+head),l ld (ix+head+1),h @@ -2685,20 +2759,26 @@ Drawworm: removetail: ld l,(ix+tail) ld h,(ix+tail+1) + cal removetailbit + cal savetailpos ;ld (ix+tail),hl ld c,(hl) inc hl ld b,(hl) - inc hl - cal resbit - ld (ix+tail),l - ld (ix+tail+1),h - psh hl - cal res4pixels - pop hl + jr set4pixels ;redraw new last bit + +removetailbit: ld c,(hl) inc hl ld b,(hl) - jr set4pixels + inc hl + ;(resbit) + ld a,h + and (ix+storepos) + ld h,a + psh hl + cal res4pixels ;rm last bit + pop hl + ret res4pixels: cal ResPixel @@ -2714,13 +2794,19 @@ ResPixel: ld (hl),a ret -;----------------------------- -;---------- ball ------------- -;----------------------------- +;_______________________________________________________________________________ +; ______ _____ _ _ __ _ _______ __ __ ______ _______ +; |_____] | | | | | \ | | \_/ |_____] |_____| | | +; |_____] |_____| |_____| | \_| |_____ | |_____] | | |_____ |_____ +;_______________________________________________________________________________ handlethoseneatlittleballs: + ld a,0 +nrballs =$-1 + or a + ret z ;no bouncies to handle + ld b,a ;(nrballs) ld hl,balls - ld b,a ;a=(nrballs) handleballs psh bc psh hl @@ -2809,46 +2895,250 @@ checkballhit: pop de ret -;----------------------------- -;----------- procs ----------- -;----------------------------- +;_______________________________________________________________________________ +; _ _ _ _____ ______ _______ __ __ _ _ _____ _______ +; | | | | | |_____/ | | | \_/ |_____| | | +; |__|__| |_____| | \_ | | | | _____ | | __|__ | +;_______________________________________________________________________________ + +;--- multifood ----------------------------------------------------------------- + +chkmultpeas: + ld de,peaspos-1 + ld hl,lefttotalb +lefttotal =$+1 + ld (hl),0 +chkmultpealoop: + ex de,hl + inc hl + ld e,(hl) + inc hl + ld d,(hl) + ex de,hl + psh de + cal chkpeahit + pop de + jr c,pickmultpea + ld hl,lefttotalb + dec (hl) + jr nz,chkmultpealoop + jr _wormdead +pickmultpea: + ld a,247 + ld (de),a + dec de + ld (de),a + jp pickedpea + +;--- ctf ----------------------------------------------------------------------- + +chkctfpeas: ;ctf + ld hl,(peaspos) ;1st pea + ld a,(ix+reserv) + ld e,a ;push a + and %01 ;ourpea (0|1) + jr z,sel_otherpea + ld hl,(peaspos+2) ;2nd pea +sel_otherpea: + cal chkpeahit + jr c,hitflag +;no peas hit: + ld a,e ;peek a (that's x86asm for pop\push ;) + bit 1,a ;%1O = carrying flag? + jr z,_wormdead ;if not just die + and %1 ;which flag? + ld hl,drawctfpea1 ;restore #1 + jr nz,nottheotherflag + inc hl ;ld hl,drawctfpea2 + inc hl ;restore #2 +nottheotherflag: + ld (hl),3 ;draw delay 3 turns +_wormdead: + jp wormdead + +hitflag: ;correct pea hit + ld a,e ;pop a + xor %11 ;invert flag taken + ownflag + ld (ix+reserv),a + and %10 ;just returned? + psh bc ;safe position + psh af ;safe z-flag + cal DrawPea ;remove + pop af + pop bc + ret nz ;flag taken: continue game ;drawworm + ld e,20 ;flag captured+returned + psh bc + cal IncScore + pop bc + ld a,3 ;draw delay + ld (drawctfpea1),a ;redraw.. + ld (drawctfpea2),a ;..both flags + ret ;drawworm + +;--- main ---------------------------------------------------------------------- + +hitworm: + ld a,(gamecar) + bit __bitPctf,a + jr nz,chkctfpeas + rla ;and _dataPmult + jr c,chkmultpeas + rla ;and _datafood + jr c,_wormdead ;no food + +;--- foodmatch|SP -------------------------------------------------------------- + + ld hl,0 +PeaY =$-2 +PeaX =$-1 + cal chkpeahit + jp nc,wormdead + +;--- take pea ------------------------------------------------------------------ + + psh hl + cal NewPea + pop hl +pickedpea: + cal DrawPea ;remove pea + ld a,(ix+grow) ;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 + ld c,(ix+pos) ;same position + ld b,(ix+pos+1) ;we'll just leave pos2 - doubt anybody will care|notice.. + ret nz ;(Left)>0 ;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 ;<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 +releasekeys: ;---------->promise me you'll never let go... + halt ;-------------------->i won't let go.... ld a,%10000000 ;all key-masks out (1),a - in a,(1) + in a,(1) ;--------------->i'll never let go..... inc a ;cp %11111111 (no keys pressed) jr nz,releasekeys ;keep waitin cal GET_KEY ;clear buffer - ret - -resbit: - ld a,h - and (ix+storepos) - ld h,a - ret + ret ;--------------------->*die* (we are VICTORIOUS! muha) randompos: ld b,a Random: ;(2..b+2) - ld a,r + ld a,r ;0..127 + scf ;not just even values: + rla ;6543210C Seed =$+1 add a,0 ld (Seed),a - and %01111110 cp b jr nc,Random add a,2 ret -WormDead: -#ifdef invincible - jp stopworm -#endif +ldhl32a: + ld l,a + ld h,0 ;=hl + add hl,hl + add hl,hl + add hl,hl + add hl,hl + add hl,hl ;32=scr.width + ret ;ld hl,32*a + +mmldir5: + ld hl,5 ;=ahl + cal _MM_LDIR_SET_SIZE + jp _RAM_PAGE_1 + +wormdead: + pop hl ;<0 + ld a,' ' + cal __vputmap ;small div + ld a,(gametype) + cp gamedeathm + cal nz,showscore ;score in !dm + ld a,$D8 + cal __vputmap ;div + ld de,worm2-worm1 add ix,de ;next - ld hl,_penCol - ld a,(hl) - add a,4 ;div - ld (hl),a - pop bc dnz showstatloop pop ix ret -showstat: ;(multiplayer) - ld a,(Gametype) - cp gamedeathm - jr z,showlives showscore: - ld h,(ix+score+1) - ld l,(ix+score) + cal ldscoreinhl + psh bc cal _D_HL_DECI + pop bc jr __vputs + +cshowA: ;small w/ leading 0; 0='none' + or a ;destr. ahl + jr nz,cshowA00 + ld hl,txtNone + jp _vputs + showlives: ld a,(ix+lives) -showA: ;small w/o leading 0 (&&&combine w/ cshowA0??) - cp 10 - jr c,showleastsign +cshowA00: ;small w/ leading 0 ld l,a ld h,0 cal _divHLby10 @@ -3188,7 +3511,7 @@ showA: ;small w/o leading 0 (&&&combine w/ cshowA0??) add a,'0' cal __vputmap pop af -showleastsign: +cshowA0: add a,'0' __vputmap: psh ix @@ -3201,24 +3524,29 @@ showstatsS: ;(singleplayer) cal __vputs ld a,0 Level =$-1 - cal showA + cp 10 + psh af + cal c,cshowA0 + pop af + cal nc,cshowA00 - ld a,98 + ld a,97 ld (_penCol),a cal showscore ld a,123 ld (_penCol),a - cal showlives - ld a,(gameCar) + 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 - cal cshowA0 + cal cshowA ld hl,txtLeft __vputs: @@ -3243,46 +3571,32 @@ showA0: ;big w/ leading 0 add a,'0' jp _putc -cshowA0: ;small w/ leading 0 - 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 - _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: @@ -3291,13 +3605,7 @@ FieldHeight =$-1 jr c,NotMaxYScroll ld a,(FieldHeight) NotMaxYScroll: - ld l,a - ld h,0 - add hl,hl - add hl,hl - add hl,hl - add hl,hl - add hl,hl + cal ldhl32a psh bc ; >> 1 psh de ; >> 2 ld de,ScrBuffer @@ -3502,11 +3810,15 @@ ChunkRow: ld c,$37 ;scf ret -;----------- draw ------------ +;_______________________________________________________________________________ +; ______ ______ _______ _ _ _ +; | \ |_____/ |_____| | | | +; |_____/ | \_ | | |__|__| +;_______________________________________________________________________________ -;--- pixel --- +;--- pixel --------------------------------------------------------------------- -chk4pixels: ;&& +chk4pixels: cal CheckPixel inc b cal CheckPixel @@ -3523,41 +3835,39 @@ CheckPixel: ;at bc in d dec d ret -;CLEM's FIND_PIXEL (131+? cycles; 28+4 bytes) -;(b,c) to hl:a; "destroyes" ahl +;--- findpixel ----------------------------------------------------------------- +;Based on Snake86's findpixel +;160-262 cycles; 31 bytes FindPixel: ;(b,c) to hl:a + psh bc ld h,0 - ld l,c ;hl=y + ld l,c ;hl=y add hl,hl add hl,hl - ld a,b ;a=x + ld a,b ;a=x rra add hl,hl rra add hl,hl - add hl,hl ;hl=32*y - rra ;a=x/8 + add hl,hl ;hl=32y + rra ;a=x/8 or l ld l,a - ld a,b + ld a,b ;x 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 + inc a + ld b,a + ld a,1 +pixelloop: + rrca + dnz pixelloop + ld bc,ScrBuffer + add hl,bc + pop bc ;destr:none ret -;--- objects --- +;--- objects ------------------------------------------------------------------- drawstuff: ld a,(hl) @@ -3589,6 +3899,14 @@ drawsmtn: ; 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 ld a,h @@ -3638,6 +3956,8 @@ circledraw: ;destr:de psh hl ld a,h ;hl=x,y sub b ;bc=xx,yy + jr nc,$+3 ;x x=0 ld d,a ;d=x-xx add hl,bc ;h=x+xx; l=y+yy ld e,l ;e=y+yy @@ -3645,6 +3965,8 @@ circledraw: ;destr:de ld a,l sub c ;a=y again sub c + jr nc,$+3 ;y y=0 ld l,a ;l=y-yy ld e,l ;e=l=y-yy cal drawline ;(h-b,l-c)-(h+b,l-c) @@ -3652,7 +3974,9 @@ circledraw: ;destr:de ld b,c ld c,a ;ex b,c pop hl - ret + ret ;thats it + +;--- box ----------------------------------------------------------------------- drawbox: ;(d,e)-(h,l) ld b,l ;Delta-y @@ -3664,6 +3988,8 @@ boxloop: dnz boxloop ret +;--- fatline ------------------------------------------------------------------- + drawfatline: cal drawline inc d @@ -3676,8 +4002,12 @@ drawfatline: dec h ; jp drawline -;LINE (d,e)-(h,l) -;destroyes a +;--- 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 @@ -3722,7 +4052,7 @@ lineYincs: ;lets assume y incs as well pop hl ; :