; ����� ����� ������� �� ��� �����������
;_______________________________________________________________________________
;
-; Version : 97% (0.97.115A)
-; Release Date : 2002 January 15
+; Version : 98% (0.98.118)
+; Release Date : 2002 January 18
; Author(s) : Shiar
; Email Address : wormy@shiar.org
; Web Page : www.shiar.org
; 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.
+;--- notes ---------------------------------------------------------------------
+
+; * Game README is wormy.txt
+; * Use for LEARNING practises ONLY!
+; * Don't _ever_ release altered code w/o permission!
+; * Give me credits when you use stuff inhere
+; * 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, 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
;_______________________________________________________________________________
; _______ _____ ______ _____
; | |_____| ____ |_____/ |_____|
;_______________________________________________________________________________
-; 97% = DONE
+; 97% = PREVIOUS
; X [15] lives >9 dispay
; X [15] sp modes not configurable
; X [16] LVL: episode #2: 10 sp levels
; 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?
+; X [116] incs at skiplevels effectively replaced by add (-4 bytes)
+; X [116] another 2 bytes shaved off
+; X [116] LINK: received gamemode now displayed correctly at g/o
+; X [116] gamecar right after gametype saves about 20 bytes
+; X [116] LINK: minimize sent data
+; X [116] remove +input in worm storage
+; X [116] head position init uses same data as tail (-4 bytes)
+; X [116] fix bug at no levels (115A intro)
+; X [117] saved 6 bytes by hardcoding some empty bytes in title graphics
+; X [117] two pieces of duplicate code removed
+; X [117] combined temporary storage for _D_HL_DECI and temp hiscore
+; X [117] more repetitious code shortened
+; X [117] wrong stack handling in checkpea, and unnecessary bloat
+; X [117] stopworm after eating pea (pea|wall overwrite fixed!)
+; X [117] old code removed from hitworm
+; X [117] replace jps by jrs (moved code around a bit)
+; X [117] scorebar doesn't diplay 1st wormname char anymore
+; X [117] scorebar can display both lives and score when appropriate
+; X [118] look at init-z in line routine again -> fixed steepline init-z
+; X [118] snake86 findpixel (saves 1 byte)
+; X [118] removed flash at new level start
+; X [118] begin growth set in normal worm init loop
+; X [118] bad code and potentially bad code reviewed and optimized
+; X [118] final sourcecode layout ((sub)captions, index, indents, etc)
+; 98% = CURRENT
+; X [119] ED: new 53 file format with support for 128 objects instead of 32
+; X [119] LVL: episode #4: 10 hard sp levels (ordered XO-XO-XO-X)
; 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: episode #1: add 2-3 circle- and line levels.
+; * LVL: episode #3: 6x5 multiplayer levels
+; * LVL: episode #5: 10 easy sp levels (do i _have_ to?)
+; * LVL: Eric? (ep#5?)
; * LVL: Wormage
; * LVL: Free Bird
; * LVL: Jonah?
+; 1% * fix any bugs that come up
+
+;--- future features -----------------------------------------------------------
+
+;just a maybe-list; NO guarantees!
;
-;100% = bugs fixed + levels done
-; * correct team winners
-; * arrow to offscreen peas
-;110% * sound
+; * correct team winners
+; * level compression
+; * arrow to offscreen peas
+; * sound
; * startpos
-;120% * coop (DON'T COUNT ON IT)
-; * pause in linkplay
+; * pause in linkplay
+; * coop (DON'T COUNT ON IT)
;_______________________________________________________________________________
; _/_/_____ __ _ _______ _ _ ______ _______
;#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 ---
+;--- permanent -----------------------------------------------------------------
ScrBuffer = $8420 ;-A3FF (20*FF=1FE0)
worm4p = $A400 ;-A5FF (200) %101001O0
;free = $A600 ;-A7FF (200)
worm2p = $A800 ;-ABFF (400) %10101O00
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)
+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-260) (peas)
;free = $AF06 ;-AFFF (F9)
worm1p = $B000 ;-B7FF (800) %1011O000
worm3p = $B800 ;-BBFF (400) %10111O00
datalevels = $FA00 ;-FA11 (12) (>=$C000)
nrlevels = $FA12 ;-FA1B (A) (<$FA70)
defspr = $F078 ;-F07F (8)
-defsprsz = 0
#endif
;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
drawctfpea1 = peaspos+4
drawctfpea2 = peaspos+6
+;--- layout --------------------------------------------------------------------
+
+;(wormN) set:
+heading = 0 ;level*
+pos = 2 ;level*
+pos2 = 4 ;level
+grow = 6 ;level
+died = 8 ;game:
+score = 9
+delay = 11
+lives = 12
+head = 13
+ ; �15B (wormNset)
+tail = 15 ; |also@next level
+storepos = 17 ; |
+reserv = 18 ; |loop (race:lap|ctf:pea)
+left = 19 ; |
+right = 20 ; |
+name = 21 ; |_
+
+wormsize = 30 ;^mark^
+
;_______________________________________________________________________________
; _____ ______ _____ ______ _______ _______ _______ ______ _______
; |_____] |_____/ | | | ____ |______ | |_____| |_____/ |
.db %1010010
jr nz,$+47
dec l
- .db " 97% .115A",0
+ .db " 98% .118",0
WormIcon:
.db 8,2
.db %00000000,%00111100
ld i,a
im 2 ;...it *does* work ;)
+;--- search levels -------------------------------------------------------------
+
restart:
cal _RAM_PAGE_7
ld hl,$BFFF ;VAT start
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:
; | | | |_____| | \_ |______ _____ __|__ | \_| __|__ |
;_______________________________________________________________________________
-;--- trig tables ---
+;--- trig tables ---------------------------------------------------------------
ld hl,trigtable ;I believe this
ld de,SinCosTable ;is one of the few
; | | | | | __|__ | \_| _____ | | | |______ | \_| |_____|
;_______________________________________________________________________________
-;---draw menu---
+;--- 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
ld hl,$FC00+$3E0 ;(*,62)
cal hr
dispmainmenu:
- ld a,(Gametype)
+ ld a,(gametype)
dec a ;will be inced @changegame
cal changedgame
ld hl,changegame ;dispmenusets ;mainMenu
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)
dnz hrloop
ret
-;--- options menu ---
+;--- options menu --------------------------------------------------------------
dispoptionmenu:
ld hl,txtoMenu
dispomenusets:
#ifdef spprotect
- ld a,(gameCar)
- and _datasingl
- jp nz,LetsGetThisPartyOn
+ ld a,(gamecar)
+ rra ;and _datasingl
+ jp nc,LetsGetThisPartyOn ;SP -> start game
#endif
cal clrold
cal cshowA ;limit
pop af ;a==0?
jr z,optionMenu ;do not display 0 behind 'None'
- ld a,c ;(gameCar)
+ ld a,c ;(gamecar)
rla ;and _dataPmult
jr nz,optionMenu ;in multifood limit == #peas
ld a,'0'
jr z,__optionMenu ;<-1
jr changedgrowth
-;--- main menu ---
+;--- main menu -----------------------------------------------------------------
mainMenu:
cal menupos
jr _mainMenu
change4spOnly:
- ld a,(Gametype)
+ ld a,(gametype)
cp 3
ret nc
pop hl ;cal
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
jr dispmenusets ;mainMenu
changegame:
- ld a,(Gametype)
+ ld a,(gametype)
inc a
cal changedgame
jr z,changegame
jr nc,changedgameok
xor a ;9 -> 0
changedgameok:
- ld (Gametype),a
+ ld (gametype),a
cal getnrlevels
xor a
cp (hl)
ret
bchangegame:
- ld a,(Gametype)
+ ld a,(gametype)
dec a
cal changedgame
jr z,bchangegame
jr _mainMenu
getnrlevels: ;for current gametype at hl
- ld hl,Gametype
+ ld hl,gametype
ld d,0
ld e,(hl)
ld hl,nrlevels
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
ld hl,$243E
ld (_penCol),hl
- rr c ;(gameCar)
+ rr c ;(gamecar)
ld hl,txtNo
jr nc,displink
ld hl,txtYes
psh bc
ld d,0
cal hlatlevel
- ld a,(Gametype)
+ ld a,(gametype)
or a ;gamesingle
jr nz,displvlname
ld a,(Level)
cal _vputs
jp mainMenu
-;--- handle menukeys ---
+;--- handle menukeys -----------------------------------------------------------
menucall:
psh bc
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
dec (hl) ;(namelength)
jr z,nameentered
- ld hl,chartable
+ ld hl,chartable-1
ld e,a
ld d,0
add hl,de
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 -1,"XTOJE0",0 ;enter|+|-|*|/|^|clear|-
- .db " WSNID9",0 ;(-)|3|6|9|)|tan|custom|-
- .db "ZVRMHC8",-1 ;.|2|5|8|(|cos|prgm|del
+chartable: ;("!@#$%,0" also used in _D_HL_DECI)
+ .db ".<>!" ;down|L|R|up|-|-|-|-
+ .db "w00t!" ;(makes code look way better)
+ .db "XTOJE0",-2 ;enter|+|-|*|/|^|clear|-
+ .db " WSNID9",-3 ;(-)|3|6|9|)|tan|custom|-
+ .db "ZVRMHC8",-4 ;.|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
+ .db "54321*",-5,$D0 ;F5|F4|F3|F2|F1|2nd|exit|more
nameentered:
pop ix ;stringbegin
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:
hlatlevel: ;d must be 0
psh hl ;loadgamecar
- ld a,(Gametype) ;8bytes -> 7bytes
+ ld a,(gametype)
add a,a
ld e,a ;=de
ld hl,datalevels
- add hl,de
+ 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
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:
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
ld d,0
add hl,de
ld a,(hl)
- ld (gameCar),a
+ ld (gamecar),a
ld c,a
inc hl
ld a,(hl)
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 ;+delay=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
- rra ;and _datalink
- jr nc,_StartLevel
+ ld a,(gamecar)
+ and _datalink
+ jr z,_StartLevel
-;--- link ---
+;--- link ----------------------------------------------------------------------
wormVhost = 095
wormVclient = 195
cp wormVclient
jr nz,host
-;--- client ---
+;--- client --------------------------------------------------------------------
client:
; ld hl,txtReceiv
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
+ ld b,8
+ cal recvstuff ;game setup
+ ld hl,gametype ;+gamecar
+ ld b,2
+ cal recvstuff ;transmit game
ex de,hl
ld b,168
- cal recvstuff
+ cal recvstuff ;level
+ ld d,b
+ cal loadtxtgame ;set CURtxtGame
_StartLevel:
jr StartLevel
pop hl ;error
jp DisplayMenu ;return to menu
-;--- set/send worms ---
+;--- set/send worms ------------------------------------------------------------
moveworm2:
ld hl,worm2+left
ld b,9
jp sendstuff
-;--- host ---
+;--- host ----------------------------------------------------------------------
host:
cp wormVhost
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 sendstuff ;setup
+ ld hl,gametype ;+gamecar
+ ld b,2
+ cal sendstuff ;game
ex de,hl
ld b,168
- cal sendstuff
+ cal sendstuff ;level
-;--- load level ---
+;--- load level ----------------------------------------------------------------
StartLevel:
pop hl ;loadgamecar
inc hl
ld l,(hl)
ld h,0
- ld a,(gameCar)
+ ld a,(gamecar)
rla
ld a,h ;(Left)=256
jr nc,setscorelimit
inc hl ;location of ending-code
jp (hl) ;go there ("call")
donextlevel:
- ld a,(Gametype)
+ ld bc,gametype
+ ld a,(bc)
or a ;gamesingle
psh af
cal nz,skiplvltitle
ld (lefttotal),a
dec a
xor (hl) ;bit (hl),7
- ld bc,gameCar
+ inc bc ;gamecar
ld a,(bc)
jr z,leftloaded
or 128+32
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
- inc hl
+ ld de,growsize
+ ldi
ld a,(hl)
inc hl
add hl,bc ;hl=behind sprite
jr setsprite
defaultsprite:
+#ifndef intlevels
+ ld a,42 ;always overwritten
+#else
ld a,defsprsz
+#endif
defsprsize =$-1
defsprite =$+1
ld de,defspr
#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
inc a ;ld a,1
ld (turn10),a
- inc a ;ld a,2
ld (flashtime),a
-;--- draw level ---
+;--- draw level ----------------------------------------------------------------
initlevel:
ld a,(de)
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
pop hl ; << levelp
- ld a,(Gametype)
+ ld a,(gametype)
cp gamerace ;or gamectf
jr c,levelhasbeensetup
ld de,peaspos
cal drawstuff
-;--- prepare ---
+;--- prepare -------------------------------------------------------------------
leveldone:
psh hl ; >> levelp new
res 3,(iy+5)
#endif
- ld a,(gameCar)
+ ld a,(gamecar)
rla ;bit __bitPmult,a
cal c,multnewpea ;a=0
rla ;bit __bitfood,a
ld (hl),$FF ;reset
nextturnok:
- ld a,(gameCar)
+ ld a,(gamecar)
and _datatime
jr z,nodispupdate
ld hl,turn10
cal forceshowstats ;update score
nodispupdate:
- ld a,(Gametype)
+ ld a,(gametype)
cp gamectf
jr nz,noctfpeas2draw
ld de,drawctfpea1
jp c,GameLoop
jp Exit ;jr?
-;--- pause menu ---
+;--- pause menu ----------------------------------------------------------------
disppausemenu:
ld hl,txtpMenu
ld de,$0004
ld (_curRow),de
-;--- who won? ---
+;--- who won? ------------------------------------------------------------------
findwinner:
ld hl,(worm1+score)
dnz finddmwinner
ld (dmwinner),a
-;--- display worms ---
+;--- display worms -------------------------------------------------------------
;x123456789012345678901
;>>>>>> GAME OVER <<<<<
pop hl
psh hl
- ld a,(Gametype)
+ ld a,(gametype)
cp gamedeathm
jr nz,nodmwinner ;deathmatch?
ld a,0 ;winner's deaths
pop bc
dnz displayWormStats
- ld a,(Gametype)
+ ld de,gametype
+ ld a,(de)
or a ;singleplayer (0) only
jr nz,hilevelcheckdone
checkhilevel:
cal _writeb_inc_ahl ;ld (ahl),c
hilevelcheckdone:
- ld a,(gameCar)
- and _datasingl
- jr z,hiscorecheckdone ;no SP
+ inc de
+ ld a,(de) ;gamecar
+ rra ;and _datasingl
+ jr c,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 ;new<old
jr z,NotNewHigh ;new<=old
-newhigh: ;New>Old
- 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
cal _vputs
ld hl,$0C07
ld (_curRow),hl
- ld hl,highsave+2
+ ld hl,savestr+2
cal _puts
- ld hl,(highsave)
+ ld hl,_curCol
+ inc (hl)
+ ld hl,(savestr)
cal _D_HL_DECI
cal _puts ;showHL
hiscorecheckdone:
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?
hiscrposa =$+1
adc a,0 ;ahl=saveloc
ret
-highsave:
- .db 0,0,"SHI ",0
+savestr: ;hiscore (00AAA) _D_HL_DECI (00000)
+ .db $BB,"w00t",0
iswinner:
ld a,10
ld a,'*'
jp _putc ;..then put *
-;--- quit ---
+;--- quit ----------------------------------------------------------------------
ExitNoStats:
cal linkok
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)
- and _datasingl
- jr nz,safewormsizedone
+ ld a,(gamecar)
+ rra ;and _datasingl
+ jr nc,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:
or a
jr z,inlink ;input by link
cal inkeys ;input by keys
- ld a,(gameCar)
- rra ;and _datalink
- ret nc ;no link
+ ld a,(gamecar)
+ and _datalink
+ ret z ;no link
ld c,l ;send our keys
jp Qsend
inlink:
inc (ix+grow)
nogrow:
- ld a,(gameCar)
+ ld a,(gamecar)
and _datatime
jr z,notimescore
ld e,1
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:
+wormmove:
psh bc ;pos
ld a,(hl)
add a,a
jr nc,notmoveY
inc c
notmoveY: ;bc=newpos
- ld (ix+pos),c
- ld (ix+pos+1),b
ld (ix+pos2),e
ld (ix+pos2+1),d
;-check-
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
- cal c,hitworm
+ cal chk4pixels ;d-=pixels at b,c
+ rl d ;<0 meaning there were >d pixels
+ cal c,hitworm ;so that wasn't us
-;--- draw worm ---
+;--- 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
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)
+ jr set4pixels ;redraw new last bit
+
+removetailbit:
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
+ cal res4pixels ;rm last bit
pop hl
- ld c,(hl)
- inc hl
- ld b,(hl)
- jr set4pixels
+ ret
res4pixels:
cal ResPixel
; |__|__| |_____| | \_ | | | | _____ | | __|__ |
;_______________________________________________________________________________
+;--- 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 ;%10 = carrying flag?
+ jr z,_wormdead ;if not just die
+ xor %11 ;drop flag
+ ld (ix+reserv),a
+ ld hl,drawctfpea1 ;restore #1
+ jr z,nottheotherflag ;which flag? (=and %1)
+ 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 af ;safe z-flag
+ psh bc ;safe position
+ cal DrawPea ;remove
+ ld e,20 ;flag captured+returned
+ cal z,IncScore
+ pop bc
+ pop af
+ ret nz ;flag taken: continue game ;drawworm
+ ld a,3 ;draw delay
+ ld (drawctfpea1),a ;redraw..
+ ld (drawctfpea2),a ;..both flags
+ ret ;drawworm
+
+;--- main ----------------------------------------------------------------------
+
hitworm:
- ld a,(gameCar)
-#ifdef optdie
-; if race - originally
- ld h,a
- cal checkhitotherworm
- ld a,h
-#endif
+ ld a,(gamecar)
bit __bitPctf,a
jr nz,chkctfpeas
rla ;and _dataPmult
- jp c,chkmultpeas
+ jr c,chkmultpeas
rla ;and _datafood
- jp c,wormdead ;no food
+ jr c,_wormdead ;no food
+
+;--- foodmatch|SP --------------------------------------------------------------
ld hl,0
PeaY =$-2
PeaX =$-1
cal chkpeahit
- jp nc,wormdead
-pickpea:
- cal DrawPea ;remove pea
+ jr nc,_wormdead
+
+;--- take pea ------------------------------------------------------------------
+
+ psh hl
cal NewPea
-pickpea_:
- ld a,(ix+grow)
+ pop hl
+pickedpea:
+ cal DrawPea ;remove pea
+ ld a,(ix+grow) ;grow
add a,15
peagrowth =$-1
ld (ix+grow),a
inc (ix+grow+1)
wormset2grow:
ld hl,Left
- dec (hl) ;dec left before display
+ dec (hl) ;dec left _before_ display
psh af
ld e,10
cal IncScore
pop af
- jp nz,Drawworm ;continue
- ld a,(Gametype)
+ 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
ex de,hl
cal _IncScore ;score+(40*level)
cal removeworm
- pop hl ;<<$some call
- pop hl ;<<call HandleWorm
pop hl ;<<call hitworm
+ pop hl ;<<call HandleWorm
+ pop hl ;<<$some other call
ld (ix+delay),2
jp Nextlevel
cp d
ret ;c=pea
-;--- other modes ---
-
-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
- inc hl ;ld hl,drawctfpea2
- inc hl ;restore #2
-nottheotherflag:
- ld (hl),3 ;draw delay 3 turns
- ret
-
-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
- ret nz ;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
- ret ;Drawworm
-
-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
- jp wormdead
-pickmultpea:
- ld a,247
- ld (de),a
- dec de
- ld (de),a
- cal DrawPea
- jp pickpea_
-
-;--- misc ---
-
-#ifdef optdie
-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
-#endif
+;--- misc ----------------------------------------------------------------------
checkhitlapline:
ld a,(peaspos) ;63
add a,2
ret
+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 ;<<call
WormDead:
inc (ix+died)
dec (ix+lives)
psh af
- ld a,(Gametype)
+ ld a,(gametype)
cp gamectf ;ctf no death penalty
cal nz,DecScore10
pop af
ld a,(wormbeglives)
or a ;0=no live limit
ret z ;don't end game
- ld a,(gameCar)
+ ld a,(gamecar)
and _datatime
jr z,anyworm ;quit at any worm's death
ld a,(nrworms) ;timematch: all worms must've died
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
+loadtxtgame: ;in:d=0; out:hl=txtGame+(gametype); destr:ade
+ 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
ret
-#endif
CheckPea: ;@hl; destr:abcde
ld c,l
ld d,0
_IncScore ; inc by de
cal ldscoreinhl
- ld a,(Gametype)
+ ld a,(gametype)
or a ;if singleplayer...
jr z,extralives
add hl,de ;score+=de
jp nc,Exit
showstats:
- ld a,(gameCar)
+ 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
+ and a
+ sbc hl,hl ;hl=0
ld (_penCol),hl
ld a,(nrworms)
ld b,a
ld ix,worm1
- ld a,(gameCar)
- and _datasingl
- jr nz,showstatsS
+ ld a,(gamecar)
+ rra ;and _datasingl
+ jr nc,showstatsS
showstatloop:
- psh bc
+#ifdef gamenames
#ifdef longnames
+ psh bc
ld b,3
psh ix
shownameloop: ;1st 3 chars
ld a,':'
cal _vputmap
pop ix
+ pop bc
#else
ld a,(ix+name)
cal __vputmap
ld a,':'
cal __vputmap
#endif
- cal showstat
+#endif
+ ld a,(wormbeglives)
+ or a
+ cal nz,showlives ;lives when initlives>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,(wormbeglives)
- or a
- jr nz,showlives
showscore:
cal ldscoreinhl
+ psh bc
cal _D_HL_DECI
+ pop bc
jr __vputs
-showlives:
- ld a,(ix+lives)
- jr cshowA00
-cshowA: ;small w/ leading 0
+cshowA: ;small w/ leading 0; 0='none'
or a ;destr. ahl
jr nz,cshowA00
ld hl,txtNone
jp _vputs
-cshowA00:
+
+showlives:
+ ld a,(ix+lives)
+cshowA00: ;small w/ leading 0
ld l,a
ld h,0
cal _divHLby10
ld (_penCol),a
ld a,(ix+lives)
cal cshowA0 ;showlives
- ld a,(gameCar)
+ ld a,(gamecar)
and _datafoodl
pop ix
ret z
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
; |_____/ | \_ | | |__|__|
;_______________________________________________________________________________
-;--- pixel ---
+;--- pixel ---------------------------------------------------------------------
-chk4pixels: ;&&
+chk4pixels:
cal CheckPixel
inc b
cal CheckPixel
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 ;&&& C`MON! THIS IS UGLY! *hit myself*
- 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)
; dec a ;4 = circle
; jp z,drawcircle
-;--- circle ---
+;--- circle --------------------------------------------------------------------
;IMHO, one weery nice routine. Oh lemme be proud just *once*.
;Not perfect since it uses a screwy lineroutine to draw stuff
pop hl
ret ;thats it
-;--- box ---
+;--- box -----------------------------------------------------------------------
drawbox: ;(d,e)-(h,l)
ld b,l ;Delta-y
dnz boxloop
ret
-;--- fatline ---
+;--- fatline -------------------------------------------------------------------
drawfatline:
cal drawline
dec h
; jp drawline
-;--- line ---
+;--- 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.
pop hl ; :<hl
linedrawxloop:
- psh af ;init z=dy-dx
+ psh af ;init z=2dy-dx
ld a,(hl)
or c ;|c:hl
ld (hl),a
ret
SteepLine:
- ld h,a ;h=deltay
- neg ;a=-deltay
- ld (line3sm+1),a
+ ld l,a
+ neg
+ ld (line3sm+1),a ;=-deltay
+ rra
+ ld h,a ;h=-deltay/2
ld a,b
- ld (line4sm+1),a ;a=deltax
- sub h ;a=deltax-deltay
- ld b,h ;b=deltay
+ ld (line4sm+1),a ;=deltax
+ add a,h ;a=deltax-deltay/2
+ ld b,l ;b=deltay
pop hl ; :<hl
linedrawyloop:
- psh af ;init z=2(dx-dy)
+ psh af ;init z=2dx-dy
ld a,(hl)
or c ;|c:hl
ld (hl),a
timeout = $8000
lossout = 20
-;--- multiple bytes ---
+;--- multiple bytes ------------------------------------------------------------
sendstuff:
psh de
pop de
ret
-;--- foo ---
+;--- foo -----------------------------------------------------------------------
receivenewpeaoverlink:
cal Qrecv ;Crecv
ld h,c
ret
sendnewpeaoverlink:
- ld a,(gameCar)
- rra ;and _datalink
- ret nc ;no link
+ ld a,(gamecar)
+ and _datalink
+ ret z ;no link
ld a,(worm1+left)
or a
jr z,receivenewpeaoverlink
ld c,h
; jr Qsend ;that's why it's here
-;--- send ---
+;--- send ----------------------------------------------------------------------
Qsend: ;--- try to send 8 bits in C; CF=error --- destr:abcde ---
nop \ nop
ld (linklosses),a ;reset number of losses
ret ;=ok
-;--- recv ---
+;--- recv ----------------------------------------------------------------------
Crecv: ;--- receive 8 bits into A/C --- destr:abCde ---
cal Qrecv
ld (linklosses),a ;reset number of losses
ret
-;--- common ---
+;--- common --------------------------------------------------------------------
linkok:
ld a,D0HD1H
; |_____/ | | | | |
;_______________________________________________________________________________
-;--- graphics ---
+;--- graphics ------------------------------------------------------------------
wtPicture: ;title
-.db %00011110,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000001,%11000000,%00000000,%00000000,%00000001,%10000000,%00000000,%00001111,%10000000
-.db %00111110,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000001,%11100000,%00000000,%00000011,%11000010,%01000011,%10011100,%00110000,%01100000
-.db %01110000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%01110000,%00111000,%00001100,%00110001,%00110100,%01100011,%01000000,%00010000
+; %00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
+.db %00011110, %00000001,%11000000,%00000000,%00000000,%00000001,%10000000,%00000000,%00001111,%10000000
+.db %00111110, %00000001,%11100000,%00000000,%00000011,%11000010,%01000011,%10011100,%00110000,%01100000
+.db %01110000, %00000000,%01110000,%00111000,%00001100,%00110001,%00110100,%01100011,%01000000,%00010000
.db %01100000,%01111100,%00000001,%11111111,%00000000,%11110000,%01111001,%11100000,%00110000,%01111100,%00010001,%11001001,%00001000,%00100000,%10000010,%00010000
.db %11100000,%11111110,%00000011,%11111111,%10000011,%11111000,%11111111,%11110000,%00110000,%11101100,%00010001,%11000100,%10000001,%00000100,%10001110,%00001000
.db %11000001,%11000111,%00000111,%00000001,%11000111,%10011001,%11001111,%00111000,%00110000,%11000110,%00001100,%00000010,%01100010,%10011100,%00010001,%00001000
txtGO: .db 5,5,5,5,5," GAME OVER ",$CF,$CF,$CF,$CF,$CF,0
#endif
-;--- menus ---
+;--- menus ---------------------------------------------------------------------
-txtMenu: .db "Mode",0 ;1st menu item
- .db "Level",0 ;2nd
- .db "Link",0 ;...
- .db "Worms",0
- .db "worm #",0
-posMenu: .db 5
+txtMenu: .db "Mode",0 ;1st menu item
+ .db "Level",0 ;2nd
+ .db "Link",0 ;...
+ .db "Worms",0
+ .db "worm #",0
+posMenu: .db 5
.dw $2418,$231E,$2824,$1F2A,$1730
-txtteamed: .db " vs 2",0
-txtMenuR: .db "controls",0
-txtoMenu: .db "Back",0 ;1st menu item
- .db "Lives",0 ;2nd
- .db "Limit",0 ;...
- .db "Speed",0
- .db "Rotation",0
- .db "Growth",0
-posoMenu: .db 6
+txtteamed: .db " vs 2",0 ;4th tail
+txtMenuR: .db "controls",0 ;6th
+
+txtoMenu: .db "Back",0 ;1st menu item
+ .db "Lives",0 ;2nd
+ .db "Limit",0 ;...
+ .db "Speed",0
+ .db "Rotation",0
+ .db "Growth",0
+posoMenu: .db 6
.dw $2618,$251E,$2524,$222A,$1A30,$1C36
-txtpMenu: .db "Resume",0 ;1st menu item
- .db "Turn Off",0 ;2nd
- .db "Contrast",$CF,5,0 ;...
- .db "Exit",0
-pospMenu: .db 4
+
+txtpMenu: .db "Resume",0 ;1st menu item
+ .db "Turn Off",0 ;2nd
+ .db "Contrast",$CF,5,0 ;...
+ .db "Exit",0
+pospMenu: .db 4
.dw $3418,$331E,$2F24,$3A2A
-;--- text ---
-
-txtGame: .db "Singleplayer",0
-txtGame1: .db "Peaworm",0
-txtGame2: .db "Tron",0
-txtGame3: .db "Deathmatch",0
-txtGame4: .db "Foodmatch",0
-txtGame5: .db "Multifoodmatch",0
-txtGame6: .db "Timematch",0
-txtGame7: .db "Race",0
-txtGame8: .db "CTF" ;,0
-posGame: .db 0
- .db txtGame1-txtGame
- .db txtGame2-txtGame
- .db txtGame3-txtGame
- .db txtGame4-txtGame
- .db txtGame5-txtGame
- .db txtGame6-txtGame
- .db txtGame7-txtGame
- .db txtGame8-txtGame
-
-txtNone: .db "None",0
-txtDef: .db "Default",0
-txtYes: .db "Yes",0
-txtNo: .db "No",0
-txtKleft: .db ":left",0
-txtKright: .db "/right",0
+;--- text ----------------------------------------------------------------------
+
+txtGame: .db "Singleplayer",0
+txtGame1: .db "Peaworm",0
+txtGame2: .db "Tron",0
+txtGame3: .db "Deathmatch",0
+txtGame4: .db "Foodmatch",0
+txtGame5: .db "Multifoodmatch",0
+txtGame6: .db "Timematch",0
+txtGame7: .db "Race",0
+txtGame8: .db "CTF";,0
+posGame: .db 0
+ .db txtGame1-txtGame
+ .db txtGame2-txtGame
+ .db txtGame3-txtGame
+ .db txtGame4-txtGame
+ .db txtGame5-txtGame
+ .db txtGame6-txtGame
+ .db txtGame7-txtGame
+ .db txtGame8-txtGame
+
+txtNone: .db "None",0
+txtDef: .db "Default",0
+txtYes: .db "Yes",0
+txtNo: .db "No",0
+txtKleft: .db ":left",0
+txtKright: .db "/right",0
posLevsel = $0320
txtLevsel: .db $CF," SELECT LEVELS ",5,0
-txtWaitn: .db "Waiting" ;"...",0
-txtReceiv: .db "...",0
+txtWaitn: .db "Waiting";"...",0
+txtReceiv: .db "...",0
#ifdef readytext
-txtReady: .db "Prepare!",0
-txtposReady = 7
+txtReady: .db "Prepare!",0
+txtposReady = 7
#endif
-txtLevel: .db "Level ",0
-txtWorms: .db "Worms: 0",0 ;follows txtLevel
-txtName: .db "Name",0
-txtWinner: .db "Wins",$D8 ;follows txtName
-txtDied: .db "Died",$D8 ;follows txtWinner
-txtScore: .db "Score",0 ;follows txtDied
-txtLeft: .db " left",0 ;follows txtScore
-txthiscore:.db "HiScore:" ;,0
-
-;--- foo ---
-
-trigtable: .db 0, 3, 6, 9, 12, 15, 18, 21
- .db 24, 27, 30, 33, 36, 39, 42, 45
- .db 48, 51, 54, 57, 59, 62, 65, 67
- .db 70, 73, 75, 78, 80, 82, 85, 87
- .db 89, 91, 94, 96, 98,100,102,103
- .db 105,107,108,110,112,113,114,116
- .db 117,118,119,120,121,122,123,123
- .db 124,125,125,126,126,126,126,126,127
+txtLevel: .db "Level ",0
+txtWorms: .db "Worms: 0",0 ;follows txtLevel
+txtName: .db "Name",0
+txtWinner: .db "Wins",$D8 ;follows txtName
+txtDied: .db "Died",$D8 ;follows txtWinner
+txtScore: .db "Score",0 ;follows txtDied
+txtLeft: .db " left",0 ;follows txtScore
+txthiscore:.db "HiScore:";,0
+
+;--- foo -----------------------------------------------------------------------
+
+trigtable: .db 0, 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 45
+ .db 48, 51, 54, 57, 59, 62, 65, 67, 70, 73, 75, 78, 80, 82, 85, 87
+ .db 89, 91, 94, 96, 98,100,102,103,105,107,108,110,112,113,114,116
+ .db 117,118,119,120,121,122,123,123,124,125,125,126,126,126,126,126
+ .db 127
#ifdef intlevels
-datalevels:.dw LevelDef, LevelDefM,LevelDefT
- .dw LevelDefM,LevelDefM,LevelDefM,LevelDefM
- .dw LevelDefR,LevelDefC
-nrlevels: .db 2,3,1,3,3,3,3,3,1,0 ;=defaults
+datalevels:.dw LevelDef,LevelDefM,LevelDefT,LevelDefM,LevelDefM
+ .dw LevelDefM,LevelDefM,LevelDefR,LevelDefC
+nrlevels: .db 2,3,1,3,3,3,3,3,1,0
defhiscrpos:
- .db 0,0,"SHI", 0,0,"SHI", 0,0,"SHI", 0,0,"SHI", 0,0,"SHI"
+ .db 0,0,"SHI",0,0,"SHI",0,0,"SHI",0,0,"SHI",0,0,"SHI"
#else
-defhiscrpos = 0
+defhiscrpos = -42
#endif
-;--- game settings ---
+;--- game settings -------------------------------------------------------------
+
+savestart:;---
-_datalink = %00000001 ;linkplay (1!)
+worm1set: .dw worm1p
+ .db %11110111,1,K_RIGHT,K_LEFT
+worm1name: .db "WORMY ",0 ;15 bytes
+worm2set: .dw worm2p
+ .db %11111011,0,K_F2,K_F1
+worm2name: .db "VIPER ",0
+worm3set: .dw worm3p
+ .db %11111011,1,K_COMMA,K_STO
+worm3name: .db "NIBBLER ",0
+worm4set: .dw worm4p
+ .db %11111101,0,K_PLUS,K_ENTER
+worm4name: .db "JIM ",0
+
+_datasingl = %00000001 ;singleplayer=0 (=hiscore+keep_length+nextlevel)
_datafoodl = %00000010 ;left=0 limit
-_datasingl = %00000100 ;singleplayer=1 (=hiscore+keep_length+nextlevel) &&1?
+_datalink = %00000100 ;linkplay (1!)
_dataPctf = %00001000 ;ctf peas=1
-__bitPctf = 3
+__bitPctf = 3
_datatime = %00010000 ;time incs score (timematch)
;reserved %00100000 ;for future use
_datafood = %01000000 ;food present=0 (6!)
_dataPmult = %10000000 ;multiple peas=1 (no _datafood) (7!)
-savestart: ; �game info (see above)
- ; | �lives (0=unlimited)
- ; | | �nrworms (can be altered by user)
- ; | | | �level (reset to 1 at startup)
- ; | | | | �speed/delay (-1=def)
- ; | | | | | �grow speed (-1=none; 0=continuous)
- ; | | | | | | �turn speed (8=def)
- ; | | | | | | | �score limit (0=none)
-gamesingle = 0 ; | | | | | | | |
-datasingle:.db %00000110,3,1,1,-1,-1, 8, 0 ;Singleplayer (SP; 3 lives)
+ ; �game info (see above)
+ ; | �lives (0=unlimited)
+ ; | | �nrworms (can be altered by user)
+ ; | | | �level (reset to 1 at startup)
+ ; | | | | �speed/delay (-1=def)
+ ; | | | | | �grow speed (-1=none; 0=continuous)
+ ; | | | | | | �turn speed (8=def)
+ ; | | | | | | | �score limit (0=none)
+gamesingle = 0 ; | | | | | | | |
+datasingle:.db %00000010,3,1,1,-1,-1, 8, 0 ;Singleplayer (SP; 3 lives)
gamepeas = 1
-datapeas: .db %00000100,1,1,1,-1,126,8, 0 ;Peaworm (SP; 1 live, 127 growth)
+datapeas: .db %00000000,1,1,1,-1,126,8, 0 ;Peaworm (SP; 1 live, 127 growth)
gametron = 2
-datatron: .db %01010100,1,1,1,-1, 0, 8, 0 ;Tron (SP; 1 live, cont.growth)
+datatron: .db %01010000,1,1,1,-1, 0, 8, 0 ;Tron (SP; 1 live, cont.growth)
gamedeathm = 3
-datadeathm:.db %01000000,3,2,1,-1,49, 8, 0 ;Deathmatch (3 lives, 50 growth)
+datadeathm:.db %01000001,3,2,1,-1,49, 8, 0 ;Deathmatch (3 lives, 50 growth)
gamefoodm = 4
-datafoodm: .db %00000000,0,2,1,-1,-1, 8,10 ;Foodmatch (100 score)
+datafoodm: .db %00000001,0,2,1,-1,-1, 8,10 ;Foodmatch (100 score)
gamemfoodm = 5
-datamfoodm:.db %11000010,0,2,1,-1,-1, 8,10 ;MuchFoodmatch (10 peas)
+datamfoodm:.db %11000011,0,2,1,-1,-1, 8,10 ;MuchFoodmatch (10 peas)
gametimem = 6
-datatimem: .db %01010000,1,2,1,-1, 0, 8, 0 ;Timematch (1 live, cont.growth)
+datatimem: .db %01010001,1,2,1,-1, 0, 8, 0 ;Timematch (1 live, cont.growth)
gamerace = 7
-datarace: .db %01000000,0,2,1,-1,-1, 8,10 ;Race (100 score)
+datarace: .db %01000001,0,2,1,-1,-1, 8,10 ;Race (100 score)
gamectf = 8
-datactf: .db %01001000,0,6,1,-1,-1, 8,10 ;CTF (100 score)
-
-worm1set: .dw worm1p,worm1p
- .db %11110111,1,-01,K_RIGHT,K_LEFT
-worm1name: .db "WORMY ",0
-worm2set: .dw worm2p,worm2p
- .db %11111011,0,-01,K_F2,K_F1
-worm2name: .db "VIPER ",0
-worm3set: .dw worm3p,worm3p
- .db %11111011,1,-01,K_COMMA,K_STO
-worm3name: .db "NIBBLER ",0
-worm4set: .dw worm4p,worm4p
- .db %11111101,0,-01,K_PLUS,K_ENTER
-worm4name: .db "JIM ",0
-
-Gametype: .db 0 ;last gamemode
-
-saveend:
-
- ;set:
-heading = 0 ;level*
-pos = 2 ;level*
-pos2 = 4 ;level
-grow = 6 ;level
-died = 8 ;game
-score = 9 ;game
-delay = 11 ;game
- ;19B @game
-lives = 12
-head = 13 ;4B (head=tail)
-tail = 15 ;also@next level
-storepos = 17
-reserv = 18 ;loop (race:lap|ctf:pea)
-input = 19 ;---currently unused afaik---
-left = 20
-right = 21
-name = 22
-wormsize = 31
-
-startdelay = 30
-rspawndelay = 30
-maxnamesize = 8+1
+datactf: .db %01001001,0,6,1,-1,-1, 8,10 ;CTF (100 score)
+
+gametype: .db 0 ;last gamemode
+gamecar: ;made before needed (not saved)
+
+saveend:;---
+
+startdelay = 17
+rspawndelay = 31
+maxnamesize = 8+1
#ifdef intlevels
-defsprsz = 4
+ .db $42 ;gamecar
+defsprsz = 4
defspr: .db %01100000
.db %11110000
.db %11110000
.db %01100000
deflevels: .db "Internal Levels",0
- .db "by Shiar" ;,0
+ .db "by Shiar";,0
.db 0,deflevels/256,deflevels&255
#endif
git.shiar.nl / wormy.git / blobdiff