; Title : Worm
-; Version : 89%
-; Release Date : april 2000???
-; Filename : worm.86p (4kb)
+; Version : 91%
+; Release Date : may 2000
+; Filename : worm.86p (5kb)
; Author(s) : Shiar
; Email Address : shiar@mailroom.com
; ICQ UIN : #43840958
;----------- TO-DO -----------
;-----------------------------
-; 89% = DONE
+; 91% = DONE
-; 3% * linkplay
-; 1% * titlescreen
+; 2% * fix deaths linkplay and transmit game/level data
; 2% * make linkplay available for all gametypes (not just deathmatch)
-; * game types:
-; 1% * ctf: take enemy flag (right-bottom) and return to your flag (left-top)
-; 1% * domination?: take control points by running over them and hold them
+; 1% * fix pea XOR problem in ctf (+dom?)
+; * fix wormstop
+; 1% * domination?: take control points by running over them and hold them
+; * customizable keys
; * complete readme (+custom level info)
; 2% * ... (pollish, &&&)
;-----------------------------
;-----------------------------
+#define buffer ;use display buffer (otherwise write directly to screen)
+#define readymask ;"grays" out the field before starting a level
+
+;#define readytext ;displays "prepare" before level starts
+;#define invincible ;worms cannot die =)
+
#define cal call
#define psh push
#define dnz djnz
_mm_ldir = $52ED ;24bit ldir
_RAM_PAGE_1 = $47E3 ;set $8000+ to page 1
_RAM_PAGE_7 = $47F3
-_PTEMP_END = $D29A
+_PTEMP_END = $D29A ;end of VAT
_load_ram_ahl = $462F ;ahl->page+hl
_writeb_inc_ahl = $5567 ;ld (ahl),c
+_jforce = $409C ;TI-OS stack restored
+_EXLP = $4493 ;swap (hl),(de) b times
;-----------------------------
;------- data storage -------
;--- permanent
-resbit = 2 ;and%111110**
-
ScrBuffer = $8820 ;-A7FF (20*FF=1FE0)
-worm1p = $A800 ;-ABFF (400) %10101O00
-worm1 = $AC00 ;-AC1D (30d)
-worm2 = $AC1E ;-AC3B (1E)
-worm3 = $AC3C ;-AC59 (1E)
-worm4 = $AC5A ;-AC77 (1E)
-balls = $AC78 ;-ACFF (3x45d)
+worm2p = $A800 ;-ABFF (400) %10101O00
+worm1 = $AC00 ;-AC1D (31d)
+worm2 = $AC1F ;-AC3B (1F)
+worm3 = $AC3E ;-AC59 (1F)
+worm4 = $AC5D ;-AC77 (1F)
+balls = $AC7C ;-ACFF (3x43d)
SinCosTable = $AD00 ;-AE00 (4x40)
;free $AE01 ;-AFFF (1FF)
-worm2p = $B000 ;-B3FF (400) %10110O00
-DispBuffer = $B400 ;-B790 (10x57d)
- ;free $B791 ;-B7FF (6F)
+worm1p = $B000 ;-B7FF (800) %1011O000
worm3p = $B800 ;-BBFF (400) %10111O00
- ;free $BC00 ;-BFFF (400)
+ ;free $BF91 ;-BFFF (6F)
;program $D748 ;-E7FF (106D+4A)
;free $E800 ;-EFFF (800)
worm4p = $F000 ;-F3FF (400) %11110O00
leveldata = $F400 ;-FA70 (<=671)
+peaspos = $AE01
+
;--- temporary
-templevels = $B400 ;(3*levelstr_on_calc)
+templevels = $BC00 ;(3*strings) @init
+namelength = $BC00 ;(1) @menu
+#ifdef buffer
+DispBuffer = $BC00 ;(10x57d) @game
+#else
+DispBuffer = $FC70
+#endif
;-----------------------------
;------- program start -------
.org _asm_exec_ram
-WormVersion = 089
+WormVersion = 091
start:
nop
.dw WormIcon
WormMsg:
- .db "WORM by SHIAR -- pre-beta 89%",0
+ .db "WORM by SHIAR -- pre-beta 91%",0
WormIcon:
.db 9,2
.db %10010110,%01101111
.db %11000011,%10000000
levelhead = 'w'
-levelhead2 = 89 ;worm levels header = "89"
+levelhead2 = 91 ;worm levels header = "91"
Start:
ld (SpSave),sp
cal _runindicoff
cal _flushallmenus
- cal _clrLCD
cal _RAM_PAGE_7
ld hl,$BFFF ;VAT start
or a
sbc hl,bc
pop hl
- jp z,levelloaded ;no ext files
+ jp z,_clrWindow ;no ext files: exit
dispnextlevel:
cal _RAM_PAGE_1
psh hl
cal _clrWindow
- ld a,4
+ ld a,2
ld (_curRow),a
+ ld hl,txtLevsel
+ cal _puts ;"< Select levels: >"
+ ld hl,$0004
+ ld (_curRow),hl
pop hl
ld a,(hl)
cp 255
ld (curlevel),a
DisplayMenu:
cal _clrWindow
- ld hl,txtWelcome
- cal _puts
+ ld de,$FC42 ;(10,2)
+ ld hl,wtPicture
+ ld a,16 ;height
+disptitleloop:
+ ld bc,8 ;width
+ ldir
+ ex de,hl
+ ld bc,8 ;next line
+ add hl,bc
+ ex de,hl
+ dec a
+ jr nz,disptitleloop
+
+ ld hl,txtMenu
+ ld de,$0D5A
+ ld (_penCol),de
+ cal _vputs ;by Shiar
ld de,$0207
ld (_curRow),de
cal _puts ;---
dec e ;$0206
ld (_curRow),de
- cal _puts ;Level
+ cal _puts ;Level <00>
dec e ;$0205
ld (_curRow),de
- cal _puts ;Worms: 2
+ cal _puts ;Worms <2>
dec e ;$0204
ld (_curRow),de
ld hl,(CURtxtGame)
notselect
cp K_EXIT
jp z,ExitNoStats
+ cp K_LEFT
+ jr z,selleft
cp K_RIGHT
ld a,b
jr nz,mainMenu
ld hl,nrlevels
add hl,de
ld d,(hl) ;max level for sel.game
+curlevel =$+1
ld a,1
-curlevel =$-1
inc a
cp d
jr c,changedlevel
- ld a,1
+ ld a,d
changedlevel:
ld (curlevel),a
-dispcurlevel:
- ld hl,$0806
+_dispcurlevel:
+ ld hl,$0906
ld (_curRow),hl
cal showA
+_mainMenu:
+ jr mainMenu
+
+selleft:
+ ld a,b
+ dec a
+ jr z,bchangenrworms
+ dec a
+ jr nz,mainMenu
+
+bchangelevel:
+ ld a,(curlevel)
+ dec a
+ jr nz,changedlevel
jr mainMenu
changegame:
cal _puts
ld (NEXTtxtGame),hl
howmanyworms:
+ ld hl,nrworms
ld a,(Gametype)
cp 2
- ld a,1
- jr c,oneworm
-nrworms =$+1
- ld a,2
-oneworm:
- jr dispnrworms ;jr mainMenu
+ ld (hl),1
+ jr c,dispnrworms
+ inc (hl) ;2
+ jr dispnrworms ;mainMenu
changenrworms:
ld a,(Gametype)
- cp 2
- jr c,mainMenu ;type 0/1
+ cp 2 ;&&
+ jr c,_mainMenu ;type 0/1
ld hl,nrworms
ld a,(hl)
inc a
cp 5
- jr c,changednrworms
- ld a,1
+ jr nc,dispcurlevel
changednrworms:
ld (hl),a
dispnrworms:
+ ld a,(hl) ;hl=nrworms
ld hl,$0905
ld (_curRow),hl
- cal showA
+ add a,'0'
+ cal _putc
+dispcurlevel
ld a,(curlevel)
- jr dispcurlevel ;mainMenu
+ jr _dispcurlevel ;mainMenu
+
+bchangenrworms:
+ ld hl,nrworms
+ ld a,(hl)
+ dec a
+ cp 2 ;2-4
+ jr nc,changednrworms
+ jr dispcurlevel
menucall:
psh bc
cp 2
ld a,1
jr c,wormnrname
- ld a,(nrworms)
+nrworms =$+1
+ ld a,1
wormnrname:
add a,'0'
cal _putc
sub '0'
+
+ ld d,a ;1x
add a,a ;2x
ld e,a
add a,a ;4x
add a,a ;8x
add a,a ;16x
add a,e ;18x
+ add a,d ;19x
ld e,a
- ld d,0
- ld ix,worm1name-18
+ ld d,0 ;de=a
+
+ ld ix,worm1name-19
add ix,de
ld a,maxnamelength
cal entername
entername:
ld h,1
- ld l,h
+ ld l,h ;)
ld (_curRow),hl
ld (namelength),a
enternameloop:
jr nz,waitnokeypressed
ret
-namelength:
- .db 0
chartable:
- .db 0,".<>!",0,0,0,0
- .db 0,"xtoje0",0 ;enter..clear
- .db " wsnid9",0 ;(-)..custom
- .db "zvrmhc8",0 ;dot..del
- .db "yuqlgb7#" ;0..xvar
- .db 0,"-pkfa6'" ;on..alpha
- .db "54321*",0,0 ;F5..more
+ .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
;--proc
skipballs:
inc hl
dnz skipballs
+
+skipflags:
+ ld a,(Gametype)
+ cp gamectf
+ jr nz,noflagstoskip
+ inc hl
+ inc hl
+ inc hl
+ inc hl
+noflagstoskip:
+
cal skiplines ;lines
skiplines: ;boxes
ld a,(hl) ;lines/boxes
add a,a
inc a
ld b,a ;4x(hl)+1
+
skiplb
inc hl
dnz skiplb
cal _clrWindow
ld a,WormVersion
cal send
- jr c,client ;2nd
+ jr nc,client ;2nd
host:
ld hl,txtWaiting
cal _puts
cal receive
cp WormVersion
- jp nz,LinkBreak
+; jp nz,linkiniterror
cal send
+ jr c,linkiniterror
- ld hl,SwapPos
- ld (hl),$f6
+; cal sendname
+; cal receivename
+
+ ld a,$18
jr multiplayer
+linkiniterror:
+ pop hl
+ jp DisplayMenu
+
+sendname:
+ ld hl,worm1+name
+ ld b,maxnamelength
+sendnameloop:
+ ld a,(hl)
+ inc hl
+ psh bc
+ psh hl
+ cal send
+ pop hl
+ pop bc
+; dnz sendnameloop
+ ret
+receivename:
+ ld hl,worm2+name
+ ld b,maxnamelength
+recvnameloop:
+ psh bc
+ psh hl
+ cal receive
+ pop hl
+ pop bc
+ ld (hl),a
+ inc hl
+; dnz recvnameloop
+ ret
+
client:
ld hl,txtReceive
cal _puts
- cal receive
+ cal Qreceive
+ jp c,linkiniterror
cp WormVersion
- jp nz,LinkBreak
+; jp nz,linkiniterror
+; cal receivename
+; cal sendname
+
+ ld a,$f6
multiplayer:
+ ld (SwapPos),a
ld a,2
ld (nrworms),a
GameOver:
cal _clrLCD
- ld hl,0
- ld (worm1+died),hl
-;+died=0 \ +score1=0
- ld (worm2+died),hl
- ld (worm3+died),hl
- ld (worm4+died),hl
- inc h
- ld (worm1+score+1),hl
-;+score2=0 \ +delay=1
- ld (worm2+score+1),hl
- ld (worm3+score+1),hl
- ld (worm4+score+1),hl
- ld hl,worm1set+4
- ld de,worm1+lives
-;&&&>*
- cal _MOV5B ;9xld(de),(hl)
- cal _mov9b
- ld hl,worm2set+4
- ld de,worm2+lives
- cal _MOV5B
- cal _mov9b
- ld hl,worm3set+4
- ld de,worm3+lives
- cal _MOV5B
- cal _mov9b
- ld hl,worm4set+4
- ld de,worm4+lives
- cal _MOV5B
- cal _mov9b
+ ld hl,worm1set
+ ld de,worm1
+ ld a,4 ;4x (all worms)
+createwormsloop:
+ ex de,hl
+ ld bc,died
+ add hl,bc
+ ld (hl),0 ;died=0
+ inc hl
+ ld (hl),0 ;score=0
+ inc hl
+ ld (hl),0 ;score+1=0
+ inc hl
+ ld (hl),2 ;delay=2
+ inc hl
+ ex de,hl ;de=wormX+head
+ ld bc,19
+ ldir ;copy 19 bytes
+ dec a ;loop
+ jr nz,createwormsloop
ld a,(Gametype)
cp 1 ;=peaworm
jr nz,worminitdone
- ld (worm1+lives),a ;&&&<*
+ ld (worm1+lives),a
worminitdone:
- pop hl
+ pop hl ;begin of current level
StartLevel:
ld de,Left
jp nz,nextlevel
psh hl
- ld b,150
-waitsomemore:
- halt
- dnz waitsomemore
+ cal releasekeys
cal _clrWindow
pop hl
;show end msg or smtn
ldir
toobad_noballs:
-#ifdef 0
- ld a,(gameCar)
- and _datahunt
- jr z,nohunter
- ld a,huntersize
- ld (worm2+grow),a
-nohunter:
-#endif
-
ex de,hl
+#ifndef invincible
ld (thislevel),de
- psh de
- ld hl,worm1set
- ld de,worm1+head
- cal _MOV4B
- ld hl,worm2set
- ld de,worm2+head
- cal _MOV4B
- ld hl,worm3set
- ld de,worm3+head
- cal _MOV4B
- ld hl,worm4set
- ld de,worm4+head
- cal _MOV4B
- pop de
+#endif
ld hl,worm1
ld a,(gameCar)
ld c,64
ldir
-;-draw lines-
pop hl ; << levelp
+ ld a,(Gametype)
+ cp gamectf
+ jr nz,noctf
+ ld de,peaspos
+ ld bc,4
+ ldir
+ psh hl
+ cal DrawAllPeas
+ pop hl
+noctf:
+
+;-draw lines-
+
ld a,(hl)
inc hl
or a
nofood:
ld bc,(worm1+pos)
cal DisplayField
+
+#ifdef readymask
+ ld hl,$FC70
+ ld d,%10101010
+ ld c,56
+maskloop:
+ ld a,d
+ xor %11111111
+ ld d,a
+ ld b,$10
+maskline:
+ ld a,(hl)
+ or d
+ ld (hl),a
+ inc hl
+ dnz maskline
+ dec c
+ jr nz,maskloop
+#endif
+
+#ifdef readytext
ld hl,$FDE0
ld de,$FDE1
ld (hl),%11111111
ld hl,txtReady
cal _puts
res 3,(iy+5)
+#endif
ld a,0
gameCar =$-1
and _datalink
- jr z,SwapPos ;no link
+ jr z,initfinished ;no link
+
xor a
- ld (worm2+input),a
+ ld (worm2+input),a ;worm 2 via link
ld (worm2+left),a
- ld (Speed),a
-
+ ld (Speed),a ;max.speed
SwapPos: ;$18 xx -> $F6 xx
+ ; jr xx -> or xx
jr initfinished
inc a
- ld (worm2+left),a
- ld hl,(worm1+pos)
- ld de,(worm2+pos)
- ld (worm2+pos),hl
- ld (worm1+pos),de
- ld a,(worm1+heading)
- ld b,a
- ld a,(worm2+heading)
- ld (worm1+heading),a
- ld a,b
- ld (worm2+heading),a
+ ld (worm2+left),a ;1
+ ld hl,worm1
+ ld de,worm2
+ ld b,4 ;+heading +pos
+ cal _EXLP ;swap positions
+;&&& over link
+ ld hl,worm1+name
+ ld de,worm2+name
+ ld b,maxnamelength
+ cal _EXLP ;swap positions
initfinished:
- ld b,0
+ ld b,startdelay
ReadyDelay:
halt
dnz ReadyDelay
+ cal releasekeys
;-----------------------------
;----------- LOOP ------------
jr nz,Delay
NoDelay:
- cal handlethoseneatlittleballs
+ ld a,0
+nrballs =$-1
+ or a
+ cal nz,handlethoseneatlittleballs
ld ix,worm1
ld a,(nrworms)
jr Exit
WormDead:
+#ifdef invincible
+ jp stopworm
+#else
ld a,2
ld (flashtime),a
ld (ix+delay),respawndelay
ld a,$A7 ;exit@end of turn
ld (CheckExit),a ;set exit state
ret ;finish turn
+#endif
Exit:
ld sp,0 ;pop all
SpSave = $-2
+ ld a,D0HD1H
+ out (7),a
cal _clrWindow
ld hl,txtGO
cal _puts
ld bc,input-died
add hl,bc ;+input
xor a
- cp (hl)
+ cp (hl) ;input=0 = link
jr nz,NoLinkIndic
- ld b,7
+ ld b,7 ;{DOWN}
inc hl ;+left
cp (hl)
jr z,hostLinkIndic
- dec b
+ dec b ;{UP}
hostLinkIndic:
ld a,8
ld (_curCol),a
ld a,13
ld (_curCol),a
ld a,(hl) ;worm+died
- psh hl
cal showA
pop hl
+ psh hl
ld a,16
ld (_curCol),a
checkhilevel:
ld hl,nrlevels
ld a,(Level)
- inc a
cp (hl)
jr c,hilevelcheckdone
ld (hl),a ;save local
cal showHL
hiscorecheckdone:
+ cal releasekeys
waitkey:
halt
halt
cal GET_KEY
cp K_ENTER
jp z,DisplayMenu
-; cp K_EXIT
+ cp K_SECOND
+ jp z,DisplayMenu
+ cp K_EXIT
jr nz,waitkey
;x123456789012345678901
cal _SET_MM_NUM_BYTES
cal _mm_ldir
+ cal releasekeys
res 4,(iy+9)
set 2,(iy+13)
jp _clrWindow
loadhiscoreposinahl:
+ ld a,(Level)
+ ld b,a
ld a,(Gametype)
or a
externalhiscoresavepos:
ld hl,0
hiscrposhl =$-2
ret z ;(Gametype)=0
+addlevelposition:
cal _AHL_PLUS_2_PG3
+ dnz addlevelposition
ret
;-----------------------------
;----------- worm ------------
;-----------------------------
-inlink:
- ld a,0
-sendbyte =$-1
- ld b,(ix+left)
- dec b
- jr z,receivefirst
- cal send
- cal receive
- ld l,a
- ret
-receivefirst:
- psh af
- cal receive
- ld l,a
- pop af
- psh hl
- cal send
- pop hl
- ret
-
-inkeys: ;use jp not call!
- out (1),a ;nop\nop
- in a,(1)
- ld b,a
- and (ix+right)
- jr z,notright
- ld a,l
- add a,8
- ld l,a
-notright:
- ld a,b
- and (ix+left)
- ret z
- ld a,l
- sub 8
- ld l,a
- ret
-
-chkinput:
- ld bc,donediddelydone
- psh bc ;ret-dest.
-inputcall:
- ld a,(ix+input)
- or a
- jr nz,inkeys
- jr inlink
-
respawncheck:
cp respawndelay-1
jr nz,unnamedlabel
+ cal saverespawncounter
removeworm:
ld h,(ix+tail+1)
ld l,(ix+tail)
inc hl
ld b,(hl)
inc hl
- res resbit,h
+ cal resbit
psh hl
cal res4pixels
pop hl
;de=ix+head
ld (ix+tail+1),d
- ld (ix+tail),e
+ ld (ix+tail),e ;head=tail/size=0
+ ret
unnamedlabel:
cp 1
respawndue:
ld l,a
cal inputcall
+ ld (sendbyte),a
ld a,h ;previous
cp l ;changed?
ret z
+ ld (ix+delay),a ;=0
+ ret
saverespawncounter:
- ld (ix+delay),h
+ ld (ix+delay),a
+ jr inputcall
+; ld a,(ix+input)
+; or a
+; jr z,inlink
+; ret
+
+inkeys: ;use jp not call!
+ out (1),a ;nop\nop
+ in a,(1)
+ ld b,a
+ and (ix+right)
+ jr z,notright
+ ld a,l
+ add a,8
+ ld l,a
+notright:
+ ld a,b
+ and (ix+left)
+ ret z
+ ld a,l
+ sub 8
+ ld l,a
+ ret
+
+inputcall:
+ ld a,(ix+input)
+ or a
+ jr nz,inkeys
+
+inlink:
+ ld a,0
+sendbyte =$-1
+ ld b,(ix+left)
+ dec b
+ jr z,receivefirst
+ psh hl
+ cal send
+ cal receive
+ pop hl
+ ld l,a
+ ret
+receivefirst:
+ psh af
+ psh hl
+ cal receive
+ pop hl
+ ld l,a
+ pop af
+ psh hl
+ cal send
+ pop hl
ret
;------- handle worm ---------
HandleWorm:
ld a,(ix+delay)
dec a
- jr nz,respawncheck
+ jp nz,respawncheck
ld l,(ix+heading)
- jr chkinput
+ cal inputcall
donediddelydone:
ld a,l
ld (sendbyte),a
ld e,(ix+pos2)
ld d,(ix+pos2+1)
+ 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
+
;-------- move worm ----------
Wormmove:
Hitworm:
ld a,(gameCar)
ld h,a
- and _datafood
- jp z,WormDead
+ and _datadie
+ cal z,checkhitotherworm
ld a,h
- and _datahunt
- cal nz,checkhitotherworm
+ and _datamultpeas ;&&bit
+ jr nz,multiple_peas
+ ld a,h
+ and _datafood
+ jp z,WormDead ;no food
ld hl,0
PeaY =$-2
PeaX =$-1
- ld a,(sprsize)
- inc a
- ld d,a
- ld a,b
- sub h
- inc a
- cp d ;=(sprsize)+1
- jp nc,WormDead
- ld a,c
- sub l
- inc a
- cp d
+ cal chkpeahit
jp nc,WormDead
cal DrawPea ;remove pea
ld a,(ix+grow)
ld de,10
cal IncScore
pop af
- jr nz,still_alive_not_dead
+ jp nz,Drawworm ;continue
ld a,(gameCar)
and _datafoodl
- jr z,still_alive_not_dead
+ jp z,Drawworm
ld a,(Gametype)
or a
jp nz,Exit ;stack restored
cal _HLTIMES10
ex de,hl
cal IncScore ;score+(40*level)
+ cal removeworm
pop hl ; << call
pop hl ; << call
pop hl ; << levelp new
+ ld (ix+delay),2
jp StartLevel
+chkpeahit: ;hl=peapos
+ ld a,(sprsize)
+ inc a
+ ld d,a
+ ld a,b
+ sub h
+ inc a
+ cp d ;=(sprsize)+1
+ ret nc ;nc=no pea
+ ld a,c
+ sub l
+ inc a
+ cp d
+ ret ;c=pea
+
+flagcaptured:
+ psh hl
+ ld de,30
+ cal IncScore
+ pop hl
+sillylabel:
+ cal WormDead
+DrawAllPeas:
+ ld hl,(peaspos)
+ cal DrawPea
+ ld hl,(peaspos+2)
+ jp DrawPea
+
+multiple_peas:
+ ld hl,(peaspos) ;1st pea
+ psh hl
+ ld a,(ix+reserv)
+ ld e,a ;push a
+ and %01
+ jr nz,sel_ownpea
+ ld hl,(peaspos+2) ;2nd pea
+sel_ownpea:
+ cal chkpeahit
+ pop hl ;(peapos) 1st pea
+ jp c,stopworm ;own pea hit
+
+ ld a,e ;peek a (that x86 asm for pop\push ;)
+ and %01
+ jr z,sel_otherpea
+ ld hl,(peaspos+2) ;2nd pea
+sel_otherpea:
+ cal chkpeahit
+ jp c,hitflag
+
+;no peas hit
+ ld a,e
+ cal flagtoken
+ jp z,WormDead
+ ld b,a ;%10
+ srl b ;%01
+ add a,b ;%11
+ ld (ix+reserv),a
+ cal DrawPea ;restore own flag
+ jr sillylabel ;inv both\die
+
+hitflag: ;correct pea hit
+ ld a,e ;pop a
+ xor %01 ;0=1;1=0
+ ld (ix+reserv),a
+ cal flagtoken
+ psh af ;safe z-flag
+ cal DrawPea ;remove
+ pop af
+ jr z,flagcaptured
+ jr stopworm
+
+flagtoken:
+ and %01 ;current
+ add a,a ;<< for cp
+ ld b,a ;in b
+ ld a,e
+ and %10 ;own
+ cp b ;same?
+ ret ;Z=yes: no flag taken
+
;-----------------------------
-checkhitotherworm:
- .db $dd,$7d ;ld a,lx
- cp worm2&255
- ret nz
-ThisIsJustASillyUselessLabel:
- ld hl,(worm1+tail)
- ld de,(worm1+head)
nextotherwormbit:
ld a,c
sub (hl)
sub (hl)
inc a
cp 4
- jr c,otherwormHIT ;yes
+ ret c ;nz ;yes
nothit1:
inc hl
- res resbit,h
+ cal resbit
+ChkWorm:
cal _cphlde
jr nz,nextotherwormbit
- ret
+ ret ;z
checkhitlapline:
ld a,63
ld (ix+reserv),a
ret
-otherwormHIT:
- psh ix
- ld de,10
- cal IncScore
+checkhitotherworm:
+ .db $dd,$7d ;ld a,lx
+ cp worm2&255
+ psh ix
+ jr nz,chkworm2 ; ret nz
ld ix,worm1
- cal WormDead
- pop ix
- pop bc
-still_alive_not_dead:
+ jr chkworm
+chkworm2:
+ ld ix,worm2
+
+chkworm:
+ ld h,(ix+tail+1)
+ ld l,(ix+tail)
+ ld e,(ix+head)
+ ld d,(ix+head+1)
+ cal ChkWorm
+ pop ix
+ ret z ;not hit
+ pop bc ;call
+stopworm:
+ ld bc,0
+previouspos =$-2
+ ld de,0
+ ld (ix+pos),c
+ ld (ix+pos+1),b
+ ld (ix+pos2),e
+ ld (ix+pos2+1),d
+ ret
;-------- draw worm ----------
Drawworm:
- ld a,(gameCar)
- and _datahunt
- cal nz,HuntingTimeScore
-
ld c,(ix+pos)
ld b,(ix+pos+1)
- ld a,(gameCar)
- and _datalaps
- cal nz,checkhitlapline
+ ld a,(Gametype)
+ cp gamerace
+ cal z,checkhitlapline
ld l,(ix+head)
ld h,(ix+head+1)
inc hl
ld (hl),b
inc hl
- res resbit,h
+ cal resbit
ld (ix+head),l
ld (ix+head+1),h
inc hl
ld b,(hl)
inc hl
- res resbit,h
+ cal resbit
ld (ix+tail),l
ld (ix+tail+1),h
;-----------------------------
handlethoseneatlittleballs:
- ld a,0
-nrballs =$-1
- or a
- ret z
-
ld hl,balls
- ld b,a
+ ld b,a ;a=(nrballs)
handleballs
psh bc
psh hl
;----------- procs -----------
;-----------------------------
+releasekeys:
+ halt
+ ld a,%10000000 ;all key-masks
+ out (1),a
+ in a,(1)
+ inc a ;cp %11111111 (no keys pressed)
+ jr nz,releasekeys ;keep waitin
+ cal GET_KEY ;clear buffer
+ ret
+
+resbit:
+ ld a,h
+ and (ix+storepos)
+ ld h,a
+ ret
+
randompos:
ld b,a
Random: ;(2..b+2)
ld c,l
ld de,peasprite
spritepos =$-2
- cal PutSprite ;||-ed
- ret
+ jp PutSprite ;||-ed
;----------- score -----------
pop hl
ret
-HuntingTimeScore:
- .db $dd,$7d ;ld a,lx
- cp worm2&255
- ret z ;=worm#2
- dec (ix+reserv)
- ret nz
- ld hl,10
-
IncScore:
ld h,(ix+score+1)
ld l,(ix+score)
jr nc,NotMinXScroll
xor a
NotMinXScroll:
- cp 128
+ cp 128
FieldWidth = $-1
- jr c,NotMaxXScroll
- ld a,(FieldWidth)
+ jr c,NotMaxXScroll
+ ld a,(FieldWidth)
NotMaxXScroll:
psh af ; >> 3
and %11111000
inc c
CopyScreen:
add hl,bc
- ld b,57
+ ld b,57
CopyScreenLoop:
psh bc ; >> 4
ld bc,16
AfterShiftDelay:
halt
AfterShift:
+#ifdef buffer
ld hl,DispBuffer
ld de,$fc00+$70
ld bc,1024-$70
ldir
+#endif
pop de ; << 1
pop bc ; << 0k
ret
TIMEOUT = $1000
-receive:
- cal GET_KEY
- cp K_EXIT
- jp z,LinkBreak
+checklink:
+ pop hl
+ dec de
+ ld a,d
+ or e
+ jr z,LinkFailed
+
+ ld a,$BF
+ out (1),a
+; nop \ nop
+ in a,(1)
+ psh af
+ ld a,%11111111
+ out (1),a
+ pop af
+ bit 6,a
+ jp z,Exit
+
in a,(7)
and %11
+ jp (hl)
+
+;--------------
+;---- SEND ---- 8 bits in a
+;-------------- destr:bcdehl
+send:
+ ld c,a
+ ld b,8+1 ;bits to send
+ jr checksend
+sendloop:
+ rr c ;bit to send (in cf)
+ ld a,D0LD1H ;0: lower white
+ jr nc,sendbit
+ ld a,D0HD1L ;1: lower red
+sendbit:
+ out (7),a ;lower one (send bit)
+ ld de,TIMEOUT
+waitacksend:
+ cal checklink ;other calc must lower other whire
+ jr nz,waitacksend
+checksend:
+ ld a,D0HD1H ;ok to raise both
+ out (7),a
+ ld de,TIMEOUT
+finishsend:
+ cal checklink
+ cp %11 ;both raised (by other calc)
+ jr nz,finishsend
+ dnz sendloop ;repeat for all bits
+ .db $F6 ;or NN ;nc
+LinkFailed:
+ scf ;c=error
+ ret
+
+;--------------
+;---- RECV ---- 8 bits to a
+;-------------- destr:bcdehl
+receive:
+ halt ;&&&
+ ld de,TIMEOUT
+ cal checklink
+ jr z,receive
cp %11
jr z,receive
cal Qreceive
ret
Qreceive:
- ld b,8
- jr ReceiveCont
+ ld b,8 ;bits to receive
receiveloop:
ld de,TIMEOUT
WaitRecBit:
- cal CheckLink
- jr z,LinkFailed
+ cal checklink
+ jr z,LinkFailed ;both low = error
cp %11
- jr z,WaitRecBit
-ReceiveCont:
- sub 2
- ld a,2
+ jr z,WaitRecBit ;both on = nothing sent
+recvbit:
+ rra ;received bit in cf
+ ld a,%10
ld d,D0LD1H
- jr c,ReceiveLow
- rra
- ld d,D0HD1L
-ReceiveLow:
- rr c
- ld (AckBit),a
- ld a,d
- out (7),a
+ jr c,savebit ;lower white as well
+ rra ;ld a,%01
+ ld d,D0HD1L ;lower red
+savebit:
+ rr c ;save bit
+ ld (AckBit),a
+ ld a,d
+ out (7),a ;lower other (both low)
ld de,TIMEOUT
-WaitAckRec:
- cal CheckLink
+waitackrecv:
+ cal checklink
+; jr z,waitackrecv ;wait for one to go high
cp 0
AckBit =$-1
- jr nz,WaitAckRec
+ jr nz,waitackrecv
ld a,D0HD1H
- out (7),a
- ld d,4
-WaitReadyRec:
- dec d
- jr z,ReadyRec
- in a,(7)
- cp %11
- jr nz,WaitReadyRec
-ReadyRec:
- dnz receiveloop
- jr LinkSuccess
-
-send:
- ld b,9
- ld c,a
- jr SendAcked
-SendBits:
- rr c
- ld a,D0LD1H
- jr nc,SendLow
- ld a,D0HD1L
-SendLow:
- out (7),a
- ld de,TIMEOUT
-WaitAckSend:
- cal CheckLink
- jr nz,WaitAckSend
-SendAcked:
- ld a,D0HD1H
- out (7),a
- ld de,TIMEOUT
-WaitReadySend:
- cal CheckLink
- cp %11
- jr nz,WaitReadySend
- dnz SendBits
-LinkSuccess:
- ld a,c ;pop a
- ret
-
-LinkFailed:
- scf
- ld a,c
+ out (7),a ;raise both
+ dnz receiveloop ;repeat for all bits
+ or a ;nc
+ ld a,c ;a=byte received
ret
-LinkBreak:
- ld a,D0HD1H
- out (7),a
- jp Exit
-
-CheckLink:
- pop hl
- dec de
- ld a,d
- or e
- jr z,LinkFailed
-
- ld a,$BF
- out (1),a
- nop \ nop
- in a,(1)
- psh af
- ld a,%11111111
- out (1),a
- pop af
- bit 6,a
-
- in a,(7)
- and %11
- jp (hl)
-
;-----------------------------
;---------- levels -----------
;---------- data -------------
;-----------------------------
-txtWelcome: .db "Welcome to Worm!! ",
- .db "by Shiar",0
+wtPicture:
+.db %00011110,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
+.db %00111110,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
+.db %01110000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
+.db %01100000,%01111100,%00000001,%11111111,%00000000,%11110000,%01111001,%11100000
+.db %11100000,%11111110,%00000011,%11111111,%10000011,%11111000,%11111111,%11110000
+.db %11000001,%11000111,%00000111,%00000001,%11000111,%10011001,%11001111,%00111000
+.db %11000001,%10000011,%00000110,%00000000,%11100110,%00000001,%10011111,%10011000
+.db %11000001,%10000011,%00000110,%11000000,%01101110,%00000011,%10111001,%11011100
+.db %11000001,%11000111,%00000110,%11000000,%01101100,%00000011,%00110000,%11001100
+.db %11000000,%11000110,%00000110,%11000000,%01101100,%00000011,%00110000,%11001100
+.db %11100000,%11101110,%00001110,%11000000,%01101100,%00000011,%00111001,%11001100
+.db %01100000,%01111100,%00001100,%11000000,%01101100,%00000011,%00011111,%10001100
+.db %01110000,%00111000,%00011100,%11100000,%11101110,%00000011,%00001111,%00001100
+.db %00111000,%11111110,%00111000,%01110001,%11000110,%00000011,%10000000,%00011100
+.db %00011111,%11101111,%11110000,%00111111,%10000111,%00000001,%10000000,%00011000
+.db %00001111,%10000011,%11100000,%00011111,%00000011,%00000001,%10000000,%00011000
+
+txtMenu: .db "by Shiar",0
.db "Have fun!",0 ;4th menu item
- .db "Level 00",0 ;3rd
- .db "Worms: 0",0 ;2nd
+ .db "Level ",$CF,"??",5,0 ;3rd
+ .db "Worms ",$CF,"?",5,0 ;2nd
txtGame: .db "Singleplayer",0 ;0 (1st)
-txtGame2: .db "Peaworm ",0 ;1
+txtGame2: .db "Peaworm ",0 ;1 (next 1st)
.db "Deathmatch",0 ;2
.db "Foodmatch ",0 ;3
- .db "LinkMatch",0 ;4 (>options)
- .db "Hunting ",0 ;5
- .db "Race ",0 ;6
- .db "CTF ",0 ;7
- .db "Domination",0 ;(>=8)
+ .db "LinkMatch",0 ;4
+ .db "Race ",0 ;5
+ .db "CTF ",0 ;6
+ .db "Domination",0 ;7
+txtLevsel: .db $CF," Select levels: ",5,0
txtName: .db "Enter name player ",0
txtWaiting: .db "Waiting...",0
txtReceive: .db "Receiving..." ;,0
gamesdata:
-_datalink = %00000001
-_datalivel = %00000010 ;ix+lives=0 limit
+_datalink = %00000001 ;linkplay
+_datalivel = %00000010 ;lives=0 limit
_datafoodl = %00000100 ;left=0 limit
_datanextl = %00001000 ;next level if left=0
_datasingl = %00001000 ;singleplayer=1
_datafood = %00010000 ;food present
-_datahunt = %00100000
-_datalaps = %01000000 ;give lap score
+_________ = %00100000 ;
+_datadie = %01000000 ;worm dies on impact
_datascore = %10000000 ;score>=100 limit
+_datamultpeas = %00100000
+
+gamesingle = 0
+datasingle: .db %01011110
+gamepeas = 1
+datapeas: .db %01011010
+gamedeathm = 2
+datadeathm: .db %01000010
+gamefoodm = 3
+datafoodm: .db %11010000
+gamelinkm = 4
+datalinkm: .db %01000011
+gamerace = 5
+datarace: .db %10000000
+gamectf = 6
+datactf: .db %11100000
+gamedomin = 7
+datadomin: .db %01000000 ;==(8 modes)
-datasingle: .db %00011110
-datapeas: .db %00011010
-datadeathm: .db %00000010
-datafoodm: .db %10010000
-datalinkm: .db %00000011
-datahuntin: .db %10100000
-datarace: .db %11000000
-datactf: .db %00000000 ;==(8 modes)
-;datadomin: .db %00000000
datalevels: .dw LevelDef, LevelDef
.dw LevelDefM,LevelDefM
.dw LevelDefM,LevelDefM
nrlevels: .db 2,2,2,2,2,2,2,2
worm1set: .dw worm1p,worm1p
- .db 3,0,%01111110,%10,%100 ;< >
+ .db %11110111,3,%00,%01111110,%10,%100 ;< >
worm1name: .db "worm #01",0
worm2set: .dw worm2p,worm2p
- .db 3,0,%00111111,%10000,%1000 ;f1 f2
+ .db %11111011,3,%11,%00111111,%10000,%1000 ;f1 f2
worm2name: .db "worm #02",0
worm3set: .dw worm3p,worm3p
- .db 3,0,%01011111,%10,%100 ;sto ,
+ .db %11111011,3,0,%01011111,%10,%100 ;sto ,
worm3name: .db "worm #03",0
worm4set: .dw worm4p,worm4p
- .db 3,0,%01111101,%10,%1 ;enter +
+ .db %11111011,3,0,%01111101,%10,%1 ;enter +
worm4name: .db "worm #04",0
-hipeaworm: .dw 0
end:
defsprsize = 4
died = 8 ;game
score = 9 ;game
delay = 11 ;game
-
-head = 12 ;level
-tail = 14 ;level
-lives = 16 ;game
-reserv = 17 ;loop
+ ;19B @game
+head = 12 ;4B (head=tail)
+tail = 14 ;also@next level
+storepos = 16
+lives = 17
+reserv = 18 ;loop
;race:lap
- ;hunt:time
-input = 18 ;&
-left = 19 ;&
-right = 20 ;&
-name = 21 ;game
-wormsize = 30
-
-respawndelay = 80
-maxnamelength = 9
+ ;ctf:pea
+input = 19
+left = 20
+right = 21
+name = 22
+wormsize = 31
+
+startdelay = 30
+respawndelay = 30
+maxnamelength = 8+1
;-----------------------------
;----------- end -------------
git.shiar.nl / wormy.git / blobdiff