; Release Date : summer 2001
; Filename : wormy.86p (5kb)
; Author(s) : Shiar
-; Email Address : shiar0@hotmail.com
-; ICQ UIN : #43840958
+; 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)
; * LINK
; * fix first packet loss
; 1% * transmit game/level data
+; 1% * 1/3 worms over link
;;;1% * get g/o signal (l&l) working
-; 2% * send new peas' positions
+;;;1% * send new peas' positions
;100% = bugs fixed + levels done
#define cal call
#define psh push
#define dnz djnz
-;#define halt nop
#include "asm86.h"
#include "ti86asm.inc"
start:
nop
jp Start
- .dw 1
+ .db 1
+ nop
.dw WormTxt
.dw WormIcon
ld hl,txtLevsel
cal _vputs ;"< SELECT LEVELS >"
ld hl,$FC00+(2*16)
- cal hr
- ld hl,$FC00+(10*16)
- cal hr
+ ld b,16*9
+ cal menuinvloop
ld hl,$FC00+(56*16)
cal hr
ld hl,$0601 ;x=1
psh bc
cal ubergetkey
pop bc ;GET_KEY destr. b
- cp K_UP
- jr z,levup
- dec a ;K_DOWN
+ dec a ;cp K_DOWN
jr z,levdown
- cp K_SECOND-1
- jr z,loadlevel
+ sub K_UP-1
+ jr z,levup
pop hl
- cp K_RIGHT-1
+ inc a ;cp K_RIGHT
jp z,levelselectmenu
- cp K_EXIT-1
+ cp K_ENTER-K_RIGHT
+ jr z,loadlevel
+ sub K_EXIT-K_RIGHT
jp z,ExitNoStats
- cp K_ENTER-1
+ inc a ;cp K_SECOND
jr nz,levselectmenu
; jr z,loadlevel
timematchscore: ;piece of crap checking whether you've already won in timematch
ld a,(nrworms)
ld b,a ;# of worms
+ dec a
+ ret z ;singleplayer
ld hl,worm1+lives
ld de,worm2-worm1
ld a,(handledworm)