X-Git-Url: http://git.shiar.nl/wormy.git/blobdiff_plain/7ad6d272ed2820c7e2c8c884d1184072168d80d0..8804e9541b51585f5f9bb062568e34965a0a52e8:/wormy.z80

diff --git a/wormy.z80 b/wormy.z80
index ab13324..18efe0c 100644
--- a/wormy.z80
+++ b/wormy.z80
@@ -16,36 +16,39 @@
 ;    ßÛÛÛß     ßÛÛßß       ßÛÛÛÛÛß     ÛÛ       ÛÛÝ              ßÛÛÛÛÛÛÛÛÛß
 ;_______________________________________________________________________________
 ;
-; Version                  :                                       97% (0.97.19)
-; Release Date             :                                      2002 January 9
+; Version                  :                                      97% (0.97.116)
+; Release Date             :                                     2002 January 16
 ; 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)
+; Description              :       perfect Nibbles game with free movement, nine
+;                                                    game modes, for 1-4 players
+; Where to get this game   :                                       www.shiar.org
 ; Other games by author(s) :                                        Nemesis beta
 ; Additional Credits to    : Matthew Shepcar  :   wrote original Peaworm, end'98
 ;                            Jonah Cohen      :              helped writing worm
 ; Files                    : wormy.z80 (89kB) : 515ad14b922572bdc8a96e780b8b24ca
-;                            wormy.86p (6532) : efef32a8c541b4585087f55deb31f51d
+;                            wormy.86p (6512) : efef32a8c541b4585087f55deb31f51d
 ;_______________________________________________________________________________
 
-;NOTES:
-;* Use for LEARNING practises ONLY!
-;   Don't _ever_ release altered code w/o permission!
-;* 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 ---
+
+;     * Use for LEARNING practises ONLY!
+;        Don't _ever_ release altered code w/o permission!
+;         Please notify me of using code, and give me credits!
+;     * Code was originally by Scabby (Matthew Shepcar),
+;        a few lines by Jonah Cohen,
+;         and everything else by me - Shiar (Mischa Poslawsky).
+;     * Although I've commented & labeled quite some stuff, I can't guarantee
+;        everybody will understand it. This is probably not the best source
+;         to learn z80 from. w00t the Shyer Way (tm).
+;     * Also read wormy.txt please, thank you
+;     * Don't scroll down if you get scared easily.
 
 ;_______________________________________________________________________________
-; _______  _____        ______   _____
-;    |    |     |       |     \ |     |
-;    |    |_____| _____ |_____/ |_____|
+; _______  _____       ______   _____
+;    |    |     |      |     \ |     |
+;    |    |_____| ____ |_____/ |_____|
 ;_______________________________________________________________________________
 
 ; 97% = DONE
@@ -57,29 +60,51 @@
 ;     X [19] datalevels+nrlevels not in program if !intlevels
 ;     X [19] mem at worm #4 (still 12 bytes or so.. or more? or less?)
 ;     X [19] alter level editor to use new address and set level id #97
+;     X [19A] team score!
+;     X [19A] autogrowth doesn't always work -> init (turn)
+;     X [111] ED: disabled objects counted causing CRASH when writing hiscore!
+;     X [111] LINK: init+multiple pea transmit seems to work..
+;     X [111] LINK: host/client swapped (host now sends level config)
+;     X [111] LINK: optimize transmit (most initcode same for client+host)
+;     X [113] menu limit in multifm not x10
+;     X [113] wormhit procedure seperate (called now)
+;     X [114] LINK: peas sent again :P
+;     X [114] internal level check and sprite storage removed
+;     X [115] layout data stuff at bottom
+;     X [115] ED: init place bar fixed
+;     X [115] ED: keys also usable together with mouse
+;     X [115] ED: improved version handling
+;     X [115] LINK: receive message not needed anymore afaik
+;     X [115A] $D8 used for spacing at g/o screen. i rule B)
+;     X [115A] exit at g/o goes back to menu
+;     X [115A] more in menu lets you reselect the levelfile
+;     X [115A] LINK: fixed waiting mode (minor display problem)
+;     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)
+;     * word-value display storage in chartable hole??
 ;  1% * misc (bugs, &&&, pollish, &&, &)
-;     * menu s/limit/peas in multifm
-;     * autogrowth doesn't always work
 ;     * look at init-z in line routine again
-;     * team score!
-;     * random pixel still occurs
-;     * LINK: optimize transmit
+;     * rare pea|wall overwrite <- apply stopworm fix?
 ;  1% * LINK: >Somehow do a lot of testing with 2 calcs< *sigh*
-;     * LINK: called "Linkmatch" at g/o
 ;     * LVL: episode #3: at least 5 lvls for each mp mode
 ;     * LVL: episode #4: 10 sp levels, including multipeas
 ;  1% * LVL: episode #5: ...
 ;     * LVL: Wormage
 ;     * LVL: Free Bird
 ;     * LVL: Jonah?
-
+;
 ;100% = bugs fixed + levels done
-;>    * switchable scoredecrease on death?
-;     * wall at pickup position fix
+;     * correct team winners
 ;     * arrow to offscreen peas
 ;110% * sound
 ;     * startpos
 ;120% * coop (DON'T COUNT ON IT)
+;     * pause in linkplay
 
 ;_______________________________________________________________________________
 ;  _/_/_____ __   _ _______        _     _ ______  _______
@@ -148,13 +173,13 @@ 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
@@ -165,6 +190,7 @@ 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---|	;there's something wrong
@@ -185,6 +211,28 @@ lefttotalb  = $BF91 ;(1)         @game
 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^
+
 ;_______________________________________________________________________________
 ;  _____   ______  _____   ______       _______ _______ _______  ______ _______
 ; |_____] |_____/ |     | |  ____       |______    |    |_____| |_____/    |
@@ -212,7 +260,7 @@ start:		;turn back NOW!
  .db  %1010010
   jr  nz,$+47
   dec l
- .db  " 97% .19",0
+ .db  " 97% .116",0
 WormIcon:
  .db  8,2
  .db  %00000000,%00111100
@@ -262,6 +310,7 @@ Start:
   ld  i,a
   im  2 ;...it *does* work ;)
 
+restart:
   cal _RAM_PAGE_7
   ld  hl,$BFFF ;VAT start
   ld  ix,templevels
@@ -277,11 +326,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:
@@ -364,7 +410,7 @@ levelselectmenu: ;load next page
   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  (_penCol),hl
@@ -492,8 +538,10 @@ levselectmenu:
 
 loadlevel:
   cal readylevelfile
+#ifdef intlevels
   or  a ;levelfile on page 0 (=internal)
   jr  z,levelloaded
+#endif
   cal skiptitle ;skip description
 
   cal _Get_Word_ahl
@@ -547,7 +595,7 @@ setdeflevels:
 
 ;--- trig tables ---
 
-  ld  hl,TrigPrecalc ;I believe this
+  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
@@ -592,14 +640,14 @@ DisplayMenu:
   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
   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_:
@@ -649,7 +697,7 @@ dispoptionmenu:
 
 dispomenusets:
 #ifdef spprotect
-  ld  a,(gameCar)
+  ld  a,(gamecar)
   and _datasingl
   jp  nz,LetsGetThisPartyOn
 #endif
@@ -710,6 +758,9 @@ dispturndone:
   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
 
@@ -880,8 +931,8 @@ changenrworms:
   cal change4spOnly
   ld  a,(hl) ;hl=nrworms
   inc a
-  cp  5
-  jr  nc,mainMenu ;may not be >4
+  cp  7
+  jr  nc,mainMenu ;may not be >4+2
 changednrworms:
   ld  (hl),a
   jr  _dispmenusets ;mainMenu
@@ -889,6 +940,8 @@ changednrworms:
 notselect
   cp  K_EXIT
   jp  z,ExitNoStats
+  cp  K_MORE
+  jp  z,restart
   psh af
   cal menupos
   cal loadgamecar
@@ -913,13 +966,11 @@ selright:
 ; 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:
@@ -936,27 +987,24 @@ selleft:
 ; 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
 
-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
@@ -966,7 +1014,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
@@ -974,7 +1022,7 @@ _dispmenusets:
   jr  dispmenusets ;mainMenu
 
 changegame:
-  ld  a,(Gametype)
+  ld  a,(gametype)
   inc a
   cal changedgame
   jr  z,changegame
@@ -986,13 +1034,13 @@ changedgame:
   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
@@ -1018,7 +1066,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
@@ -1043,7 +1091,7 @@ waitcustomkey:
 
 changekeys:
   cal getwormname
-  ld  hl,txtKeyleft
+  ld  hl,txtKleft
   cal getcustomkey ;left
   cal getcustomkey ;right
 ; jr  dispmenusets
@@ -1051,20 +1099,11 @@ changekeys:
 ;--- 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
@@ -1072,12 +1111,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
@@ -1090,7 +1136,7 @@ displink:
   psh bc
   ld  d,0
   cal hlatlevel
-  ld  a,(Gametype)
+  ld  a,(gametype)
   or  a ;gamesingle
   jr  nz,displvlname
   ld  a,(Level)
@@ -1185,16 +1231,16 @@ menunewok:
 
 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
 
@@ -1208,7 +1254,7 @@ emptyname:
   ld  (hl),' '
   inc hl
   dnz emptyname
-  ld  a,maxnamelength
+  ld  a,maxnamesize
   ld  (namelength),a
 enternameloop:
   ld  hl,$FF07 ;begin pos
@@ -1233,7 +1279,7 @@ nokeypressed:
   jr  nz,continue
 backspace:
   ld  a,(hl)
-  cp  maxnamelength
+  cp  maxnamesize
   jr  nc,nokeypressed
   inc (hl)
   dec ix
@@ -1258,14 +1304,16 @@ continue:
   cal releasekeys
   jr  enternameloop
 
+savestr:
+  .db "00000" ;,0      ;&&&somehow put in chartable's 5-byte hole
 chartable:
-  .db 0,".<>!",0,0,0,0  ;down,L,R,up
-  .db 0,"XTOJE0",0      ;enter..clear
-  .db " WSNID9",0       ;(-)..custom
-  .db "ZVRMHC8",0       ;dot..del
-  .db "YUQLGB7#"        ;0..xvar
-  .db $D9,"-PKFA6'"     ;on..alpha
-  .db "54321*",0,$D0    ;F5..more
+  .db 0,".<>!",0,0,0,0 ;down|L|R|up|-|-|-|-
+  .db -1,"XTOJE0",0    ;enter|+|-|*|/|^|clear|-
+  .db " WSNID9",0      ;(-)|3|6|9|)|tan|custom|-
+  .db "ZVRMHC8",-1     ;.|2|5|8|(|cos|prgm|del
+  .db "YUQLGB7#"       ;0|1|4|7|ee|sin|table|xvar
+  .db $D9,"-PKFA6'"    ;on|sto|,|x2|ln|log|graph|alpha
+  .db "54321*",-1,$D0  ;F5|F4|F3|F2|F1|2nd|exit|more
 
 nameentered:
   pop ix ;stringbegin
@@ -1283,7 +1331,7 @@ ubergetkey:
   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:
@@ -1302,19 +1350,21 @@ clroldsetsloop:
 
 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
@@ -1327,15 +1377,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:
@@ -1344,52 +1392,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
@@ -1397,7 +1432,7 @@ loadgamecar:
   ld  d,0
   add hl,de
   ld  a,(hl)
-  ld  (gameCar),a
+  ld  (gamecar),a
   ld  c,a
   inc hl
   ld  a,(hl)
@@ -1423,31 +1458,34 @@ 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 ;+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
+  ld  a,(gamecar)
   rra ;and _datalink
   jr  nc,_StartLevel
 
@@ -1460,119 +1498,116 @@ 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+left&255
+  cal moveworm2 ;3=2
+  ld  l,worm1+name&255
+  cal sendworm
+  ld  l,worm2+left&255
+  cal linkworm ;worm2+4 over link
   pop hl ;loadgamecar
   pop de ;leveldata
+  ld  de,linklevel
+  ld  hl,datalink
   psh de
   psh hl ;loadgamecar
   ld  b,8
-  cal 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+left
+moveworm: ;hl=wormN+left
+  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+left
+  ld  (hl),0 ;worm1|2+left
   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+left
+  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+left&255
+  cal moveworm2 ;4=2
+  ld  e,worm2+left&255
+  ld  hl,worm1+left
+  cal moveworm ;2=1
+  ld  l,worm1+left&255
+  cal linkworm ;worm1+3 over link
+  ld  l,worm2+name&255
+  cal sendworm
   pop hl ;loadgamecar
   pop de ;leveldata
-  ld  de,linklevel ;&&&&&&&
-  ld  hl,datalink
   psh de
   psh hl ;loadgamecar
   ld  b,8
-  cal recvstuff
-  ld  hl,gameCar
-  ld  b,1
-  cal recvstuff
-  ld  hl,Gametype
-  ld  b,1
-  cal recvstuff
+  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 ---
 
@@ -1581,8 +1616,16 @@ StartLevel:
   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)
@@ -1590,6 +1633,7 @@ StartLevel:
   inc hl
   ld  a,(hl)
   ld  (growspeed),a
+  ld  (turn),a
   inc hl
   ld  a,(hl)
   ld  (turnleft),a
@@ -1597,7 +1641,7 @@ StartLevel:
   inc hl
   ld  l,(hl)
   ld  h,0
-  ld  a,(gameCar)
+  ld  a,(gamecar)
   rla
   ld  a,h ;(Left)=256
   jr  nc,setscorelimit
@@ -1626,7 +1670,8 @@ Nextlevel:
   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
@@ -1641,7 +1686,7 @@ setleft:
   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
@@ -1681,10 +1726,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
@@ -1709,7 +1758,7 @@ 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
@@ -1823,7 +1872,7 @@ NoVertShift:
 
 
   pop hl                         ; << levelp
-  ld  a,(Gametype)
+  ld  a,(gametype)
   cp  gamerace ;or gamectf
   jr  c,levelhasbeensetup
   ld  de,peaspos
@@ -1877,10 +1926,10 @@ maskline:
   res 3,(iy+5)
 #endif
 
-  ld  a,(gameCar)
-  rla ;bit _bitmultpeas,a
+  ld  a,(gamecar)
+  rla ;bit __bitPmult,a
   cal c,multnewpea ;a=0
-  rla ;bit _bitfood,a
+  rla ;bit __bitfood,a
   cal nc,NewPea
 nofood:
   ld  bc,(worm1+pos)
@@ -1940,13 +1989,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
@@ -1956,7 +2005,7 @@ nextturnok:
   cal forceshowstats ;update score
 nodispupdate:
 
-  ld  a,(Gametype)
+  ld  a,(gametype)
   cp  gamectf
   jr  nz,noctfpeas2draw
   ld  de,drawctfpea1
@@ -2107,9 +2156,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
@@ -2119,9 +2168,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)
@@ -2137,12 +2186,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
@@ -2183,6 +2234,16 @@ nonewdmwinner:
 
 ;--- display worms ---
 
+;x123456789012345678901
+;>>>>>> GAME OVER <<<<<
+;2Multiplayer
+;3Level 01
+;4           Died Score:
+;5NameName     03 00070
+;6Worm#02 @    05 00120
+;7Worm#03      15 00030
+;8Snaky   @    00 04820
+
   ld  a,(nrworms)
   ld  b,a
   ld  hl,worm1+died
@@ -2193,7 +2254,7 @@ displayWormStats:
   ld  bc,left-died
   add hl,bc ;+left
   xor a
-  cp  (hl)  ;input=0 = link
+  cp  (hl)  ;left=0 = link
   jr  nz,NoLinkIndic
   ld  a,9
   ld  (_curCol),a
@@ -2215,7 +2276,7 @@ NoLinkIndic:
   pop hl
 
   psh hl
-  ld  a,(Gametype)
+  ld  a,(gametype)
   cp  gamedeathm
   jr  nz,nodmwinner ;deathmatch?
   ld  a,0 ;winner's deaths
@@ -2247,7 +2308,8 @@ notwinner:
   pop bc
   dnz displayWormStats
 
-  ld  a,(Gametype)
+  ld  de,gametype
+  ld  a,(de)
   or  a ;singleplayer (0) only
   jr  nz,hilevelcheckdone
 checkhilevel:
@@ -2264,7 +2326,8 @@ 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:
@@ -2315,50 +2378,21 @@ NotNewHigh:
 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)
+  ld  a,(gametype)
   or  a ;Singleplayer?
   jr  z,hi__
   dec a ;peaworm?
@@ -2381,7 +2415,7 @@ hiscrposa =$+1
   adc a,0 ;ahl=saveloc
   ret
 highsave:
-  .db 0,0,"WOR ",0
+  .db 0,0,"SHI ",0
 
 iswinner:
   ld  a,10
@@ -2389,6 +2423,31 @@ iswinner:
   ld  a,'*'
   jp  _putc ;..then put *
 
+;--- 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
+
 ;_______________________________________________________________________________
 ; _  _  _  _____   ______ _______       _______ _______ _     _ _______ _______
 ; |  |  | |     | |_____/ |  |  |       |______    |    |     | |______ |______
@@ -2396,7 +2455,7 @@ iswinner:
 ;_______________________________________________________________________________
 
 respawncheck:
-  cp  respawndelay-1
+  cp  rspawndelay-1
   jr  nz,unnamedlabel
   cal saverespawncounter
 removeworm:
@@ -2421,7 +2480,7 @@ DoesWormTailEqualsWormHead:
   cal _cphlde
   jr  nz,removewormloop
 
-  ld  a,(gameCar)
+  ld  a,(gamecar)
   and _datasingl
   jr  nz,safewormsizedone
   ld  a,0
@@ -2496,7 +2555,7 @@ inputcall:
   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
@@ -2531,7 +2590,7 @@ turn =$-1
   inc (ix+grow)
 nogrow:
 
-  ld  a,(gameCar)
+  ld  a,(gamecar)
   and _datatime
   jr  z,notimescore
   ld  e,1
@@ -2566,7 +2625,7 @@ donediddelydone:
 ;--- move worm ---
 
 Wormmove:
-  psh bc                        ; >> pos
+  psh bc ;pos
   ld  a,(hl)
   add a,a
   add a,d
@@ -2592,13 +2651,13 @@ notnegY:
   jr  nc,notmoveY
   inc c
 notmoveY: ;bc=newpos
-  ld  (ix+pos2),e
-  ld  (ix+pos2+1),d
   ld  (ix+pos),c
   ld  (ix+pos+1),b
+  ld  (ix+pos2),e
+  ld  (ix+pos2+1),d
 
 ;-check-
-  pop hl                         ; << pos (old)
+  pop hl ;pos (old)
   ld  a,h
   sub b
   and 1
@@ -2614,30 +2673,197 @@ notmoveY: ;bc=newpos
 GotFour:
   cal chk4pixels
   rl  d
-  jp  nc,Drawworm
+  cal c,hitworm
 
-;--- worm hit ---
+;--- draw worm ---
 
-Hitworm:
-  ld  a,(gameCar)
-#ifdef optdie
-; if race - originally
-  ld  h,a
-  cal checkhitotherworm
-  ld  a,h
-#endif
-  bit _bitctfpeas,a
-  jr  nz,chkctfpeas
-  rla ;and _datamultpeas
+Drawworm:
+  ld  c,(ix+pos)
+  ld  b,(ix+pos+1)
+
+  ld  a,(gametype)
+  cp  gamerace
+  cal z,checkhitlapline
+
+  cal set4pixels
+  dec c
+  ld  a,(growspeed)
+  or  a ;0=tron
+  ret z ;keep tail in "Tron"
+
+  ld  l,(ix+head)
+  ld  h,(ix+head+1)
+  ld  (hl),c
+  inc hl
+  ld  (hl),b
+  inc hl
+  cal resbit
+  ld  (ix+head),l
+  ld  (ix+head+1),h
+
+  ld  l,(ix+grow)
+  ld  h,(ix+grow+1)
+  dec hl
+  ld  a,h
+  or  l
+  jr  z,removetail
+  ld  (ix+grow),l
+  ld  (ix+grow+1),h
+  ret
+
+removetail:
+  ld  l,(ix+tail)
+  ld  h,(ix+tail+1)
+  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
+  ld  c,(hl)
+  inc hl
+  ld  b,(hl)
+  jr  set4pixels
+
+res4pixels:
+  cal ResPixel
+  inc b
+  cal ResPixel
+  inc c
+  cal ResPixel
+  dec b
+ResPixel:
+  cal FindPixel
+  cpl
+  and (hl)
+  ld  (hl),a
+  ret
+
+;_______________________________________________________________________________
+; ______   _____  _     _ __   _ _______ __   __ ______  _______
+; |_____] |     | |     | | \  | |         \_/   |_____] |_____| |      |
+; |_____] |_____| |_____| |  \_| |_____     |    |_____] |     | |_____ |_____
+;_______________________________________________________________________________
+
+handlethoseneatlittleballs:
+  ld  hl,balls
+  ld  b,a ;a=(nrballs)
+handleballs
+  psh bc
+  psh hl
+  ld  c,(hl)
+  inc hl
+  ld  b,(hl)
+  inc hl
+  ld  d,(hl)
+  cal handleball
+  dec c
+  pop hl
+  ld  (hl),c
+  inc hl
+  ld  (hl),b
+  inc hl
+  ld  (hl),d
+  inc hl
+  pop bc
+  dnz handleballs
+  ret
+
+handleball:
+  cal res4pixels
+  dec c
+
+ballxmove:
+  bit 0,d ;1=L; 0=R
+  jr  z,ballright
+ballleft:
+  dec b
+  cal checkballhit
+  jr  z,ballymove
+  inc b ;undo
+  res 0,d ;go right
+  jr  ballymove
+ballright:
+  inc b
+  cal checkballhit
+  jr  z,ballymove
+  dec b ;back
+  set 0,d ;>left
+
+ballymove:
+  bit 1,d ;1=up; 0=down
+  jr  z,balldown
+ballup:
+  dec c
+  cal checkballhit
+  jr  z,balldone
+  inc c
+  res 1,d ;go down
+  jr  balldone
+balldown:
+  inc c
+  cal checkballhit
+  jr  z,balldone
+  dec c
+  set 1,d ;up
+balldone:
+
+set4pixels: ;@(b,c)
+  cal SetPixel
+  inc b
+  cal SetPixel
+  inc c
+  cal SetPixel
+  dec b
+SetPixel: ;at bc
+  cal FindPixel
+  or  (hl)
+  ld  (hl),a
+  ret
+
+letsmovetheotherway:
+  ld  a,1
+  xor (hl)
+  ld  (hl),a
+  ret
+
+checkballhit:
+  psh de
+  ld  d,0
+  cal chk4pixels
+  xor a
+  cp  d
+  pop de
+  ret
+
+;_______________________________________________________________________________
+; _  _  _  _____   ______ _______ __   __       _     _ _____ _______
+; |  |  | |     | |_____/ |  |  |   \_/         |_____|   |      |
+; |__|__| |_____| |    \_ |  |  |    |    _____ |     | __|__    |
+;_______________________________________________________________________________
+
+hitworm:
+#ifdef optdie
+; if race - originally
+  cal checkhitotherworm
+#endif
+  ld  a,(gamecar)
+  bit __bitPctf,a
+  jr  nz,chkctfpeas
+  rla ;and _dataPmult
   jp  c,chkmultpeas
   rla ;and _datafood
-  jp  c,WormDead ;no food
+  jp  c,wormdead ;no food
 
   ld  hl,0
 PeaY =$-2
 PeaX =$-1
   cal chkpeahit
-  jp  nc,WormDead
+  jp  nc,wormdead
 pickpea:
   cal DrawPea ;remove pea
   cal NewPea
@@ -2656,7 +2882,7 @@ wormset2grow:
   cal IncScore
   pop af
   jp  nz,Drawworm ;continue
-  ld  a,(Gametype)
+  ld  a,(gametype)
   or  a
   jp  nz,Exit ;stack restored
 
@@ -2671,8 +2897,9 @@ wormset2grow:
   ex  de,hl
   cal _IncScore ;score+(40*level)
   cal removeworm
-  pop hl                         ; << call
-  pop hl                         ; << call
+  pop hl ;<<$some call
+  pop hl ;<<call HandleWorm
+  pop hl ;<<call hitworm
   ld  (ix+delay),2
   jp  Nextlevel
 
@@ -2691,6 +2918,8 @@ chkpeahit: ;bc=ownpos;hl=peapos (destr:ad)
   cp  d
   ret ;c=pea
 
+;--- other modes ---
+
 chkctfpeas:
   ld  hl,(peaspos) ;1st pea
   ld  a,(ix+reserv)
@@ -2704,11 +2933,11 @@ sel_otherpea:
 ;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
+  jp  z,wormdead ;if not just die
   xor %11 ;drop flag
   ld  (ix+reserv),a
   psh af
-  cal WormDead
+  cal wormdead
   pop af ;which flag? (=and %1)
   ld  hl,drawctfpea1 ;restore #1
   jr  z,nottheotherflag
@@ -2726,7 +2955,7 @@ hitflag: ;correct pea hit
   psh af ;safe z-flag
   cal DrawPea ;remove
   pop af
-  jr  nz,Drawworm ;flag taken, continue game
+  ret nz ;flag taken, continue game
   psh hl
   ld  e,20 ;flag captured+returned
   cal IncScore
@@ -2734,7 +2963,7 @@ hitflag: ;correct pea hit
   ld  a,3 ;draw delay
   ld  (drawctfpea1),a ;redraw..
   ld  (drawctfpea2),a ;..both flags
-  jr  Drawworm
+  ret ;Drawworm
 
 chkmultpeas:
   ld  de,peaspos-1
@@ -2755,7 +2984,7 @@ chkmultpealoop:
   ld  hl,lefttotalb
   dec (hl)
   jr  nz,chkmultpealoop
-  jp  WormDead
+  jp  wormdead
 pickmultpea:
   ld  a,247
   ld  (de),a
@@ -2815,171 +3044,6 @@ checklap:
   pop bc
   ret
 
-;--- draw worm ---
-
-Drawworm:
-  ld  c,(ix+pos)
-  ld  b,(ix+pos+1)
-
-  ld  a,(Gametype)
-  cp  gamerace
-  cal z,checkhitlapline
-
-  cal set4pixels
-  dec c
-  ld  a,(growspeed)
-  or  a ;0=tron
-  ret z ;keep tail in "Tron"
-
-  ld  l,(ix+head)
-  ld  h,(ix+head+1)
-  ld  (hl),c
-  inc hl
-  ld  (hl),b
-  inc hl
-  cal resbit
-  ld  (ix+head),l
-  ld  (ix+head+1),h
-
-  ld  l,(ix+grow)
-  ld  h,(ix+grow+1)
-  dec hl
-  ld  a,h
-  or  l
-  jr  z,removetail
-  ld  (ix+grow),l
-  ld  (ix+grow+1),h
-  ret
-
-removetail:
-  ld  l,(ix+tail)
-  ld  h,(ix+tail+1)
-  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
-  ld  c,(hl)
-  inc hl
-  ld  b,(hl)
-  jr  set4pixels
-
-res4pixels:
-  cal ResPixel
-  inc b
-  cal ResPixel
-  inc c
-  cal ResPixel
-  dec b
-ResPixel:
-  cal FindPixel
-  cpl
-  and (hl)
-  ld  (hl),a
-  ret
-
-;_______________________________________________________________________________
-; ______   _____  _     _ __   _ _______ __   __ ______  _______
-; |_____] |     | |     | | \  | |         \_/   |_____] |_____| |      |
-; |_____] |_____| |_____| |  \_| |_____     |    |_____] |     | |_____ |_____
-;_______________________________________________________________________________
-
-handlethoseneatlittleballs:
-  ld  hl,balls
-  ld  b,a ;a=(nrballs)
-handleballs
-  psh bc
-  psh hl
-  ld  c,(hl)
-  inc hl
-  ld  b,(hl)
-  inc hl
-  ld  d,(hl)
-  cal handleball
-  dec c
-  pop hl
-  ld  (hl),c
-  inc hl
-  ld  (hl),b
-  inc hl
-  ld  (hl),d
-  inc hl
-  pop bc
-  dnz handleballs
-  ret
-
-handleball:
-  cal res4pixels
-  dec c
-
-ballxmove:
-  bit 0,d ;1=L; 0=R
-  jr  z,ballright
-ballleft:
-  dec b
-  cal checkballhit
-  jr  z,ballymove
-  inc b ;undo
-  res 0,d ;go right
-  jr  ballymove
-ballright:
-  inc b
-  cal checkballhit
-  jr  z,ballymove
-  dec b ;back
-  set 0,d ;>left
-
-ballymove:
-  bit 1,d ;1=up; 0=down
-  jr  z,balldown
-ballup:
-  dec c
-  cal checkballhit
-  jr  z,balldone
-  inc c
-  res 1,d ;go down
-  jr  balldone
-balldown:
-  inc c
-  cal checkballhit
-  jr  z,balldone
-  dec c
-  set 1,d ;up
-balldone:
-
-set4pixels: ;@(b,c)
-  cal SetPixel
-  inc b
-  cal SetPixel
-  inc c
-  cal SetPixel
-  dec b
-SetPixel: ;at bc
-  cal FindPixel
-  or  (hl)
-  ld  (hl),a
-  ret
-
-letsmovetheotherway:
-  ld  a,1
-  xor (hl)
-  ld  (hl),a
-  ret
-
-checkballhit:
-  psh de
-  ld  d,0
-  cal chk4pixels
-  xor a
-  cp  d
-  pop de
-  ret
-
 ;_______________________________________________________________________________
 ;  _____   ______  _____  _______ _______
 ; |_____] |_____/ |     | |       |______
@@ -3015,13 +3079,15 @@ Seed =$+1
   add a,2
   ret
 
+wormdead:
+  pop hl ;<<call
 WormDead:
 #ifdef invincible
   jp  stopworm
 #endif
   ld  a,2
   ld  (flashtime),a
-  ld  (ix+delay),respawndelay
+  ld  (ix+delay),rspawndelay
 
 thislevel =$+1
   ld  hl,0
@@ -3045,7 +3111,7 @@ handledworm =$-2
   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
@@ -3053,7 +3119,7 @@ handledworm =$-2
   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
@@ -3071,6 +3137,18 @@ anyworm:
   ld  (CheckExit),a ;set exit state
   ret ;finish turn
 
+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
+
 #ifdef optdie
 checkhitotherworm:
  .db  $dd,$7d ;ld a,lx
@@ -3170,6 +3248,7 @@ NewPea:
 DrawPea: ;hl=(PeaY)
   ld  b,h
   ld  c,l
+drawpea_:
   ld  de,0
 spritepos =$-2
 ; jp PutSprite
@@ -3218,6 +3297,48 @@ nextbitok:
 ; ______| |_____  |_____| |    \_ |______
 ;_______________________________________________________________________________
 
+addteamscore:
+  ld  a,(handledworm)
+  cp  2
+  ld  de,worm3-worm1
+  jr  c,bla
+  ld  de,worm1-worm3
+bla:
+  psh ix
+  add ix,de
+  ex  de,hl
+  cal ldscoreinhl
+  pop ix
+  add hl,de
+  ret
+
+_divHLby1000:
+  psh hl
+  ld  b,3
+divideagain: ;3x
+  cal _divHLby10
+  dnz divideagain
+  ld  a,l ;a=hl/1000
+  pop hl
+  ret
+
+DecScore10:
+  cal ldscoreinhl
+  ld  de,-10
+  add hl,de
+  jr  nc,showstats ;<0=0
+  jr  scorecommon
+
+extralives:
+  cal _divHLby1000
+  ld  c,a
+  add hl,de ;increase score
+  cal _divHLby1000
+  cp  c
+  jr  z,scorecommon ;hl/1000 not increased
+  inc (ix+lives)
+  jr  scorecommon
+
 timematchscore:
   ;piece of crap checking whether you've already won in timematch
   ld  a,(nrworms)
@@ -3254,44 +3375,19 @@ nneexxtt:
   dnz chktimematchover
   jp  anyworm ;g/o
 
-_divHLby1000:
-  psh hl
-  ld  b,3
-divideagain: ;3x
-  cal _divHLby10
-  dnz divideagain
-  ld  a,l ;a=hl/1000
-  pop hl
-  ret
-
-extralives:
-  cal _divHLby1000
-  ld  c,a
-  add hl,de ;increase score
-  cal _divHLby1000
-  cp  c
-  jr  z,scorecommon ;hl/1000 not increased
-  inc (ix+lives)
-  jr  scorecommon
-
-DecScore10:
-  cal ldscoreinhl
-  ld  de,-10
-  add hl,de
-  jr  nc,showstats ;<0=0
-  jr  scorecommon
-
 IncScore: ;inc score by e
   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
 scorecommon:
   ld  (ix+score+1),h
   ld  (ix+score),l ;save
+doteam:
+  cal addteamscore ;cal=CD | ld de,*=11
   ld  de,0
 scorelimit =$-2
   ld  a,d
@@ -3301,7 +3397,7 @@ scorelimit =$-2
   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
@@ -3319,7 +3415,7 @@ forceshowstats:
   ld  a,(nrworms)
   ld  b,a
   ld  ix,worm1
-  ld  a,(gameCar)
+  ld  a,(gamecar)
   and _datasingl
   jr  nz,showstatsS
 showstatloop:
@@ -3369,7 +3465,7 @@ showlives:
   jr  cshowA00
 
 cshowA: ;small w/ leading 0
-  or  a
+  or  a ;destr. ahl
   jr  nz,cshowA00
   ld  hl,txtNone
   jp  _vputs
@@ -3408,7 +3504,7 @@ Level =$-1
   ld  (_penCol),a
   ld  a,(ix+lives)
   cal cshowA0 ;showlives
-  ld  a,(gameCar)
+  ld  a,(gamecar)
   and _datafoodl
   pop ix
   ret z
@@ -3443,18 +3539,16 @@ showA0: ;big w/ leading 0
   jp  _putc
 
 _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
-savestr:
-  .db "00000",0
 
 ldscoreinhl:
   ld  h,(ix+score+1)
@@ -3982,8 +4076,43 @@ line4sm:
   jr  DoneLine
 
 
+;..and last but not least..:
+;_______________________________________________________________________________
+;        _____ __   _ _     _   /
+; |        |   | \  | |____/   /
+; |_____ __|__ |  \_| |    \_ .
+;_______________________________________________________________________________
+
+timeout = $8000
+lossout = 20
+
+;--- multiple bytes ---
+
+sendstuff:
+  psh de
+sendstuffloop:
+  psh bc
+  ld  c,(hl)
+  inc hl
+  cal Qsend
+  pop bc
+  dnz sendstuffloop
+  pop de
+  ret
+recvstuff:
+  psh de
+recvstuffloop:
+  psh bc
+  cal Qrecv
+  ld  (hl),c
+  inc hl
+  pop bc
+  dnz recvstuffloop
+  pop de
+  ret
+
 ;--- foo ---
-;wild insert
+
 receivenewpeaoverlink:
   cal Qrecv ;Crecv
   ld  l,c
@@ -3991,7 +4120,7 @@ receivenewpeaoverlink:
   ld  h,c
   ret
 sendnewpeaoverlink:
-  ld  a,(gameCar)
+  ld  a,(gamecar)
   rra ;and _datalink
   ret nc ;no link
   ld  a,(worm1+left)
@@ -4002,16 +4131,6 @@ sendnewpeaoverlink:
   ld  c,h
 ; jr  Qsend ;that's why it's here
 
-;..and last but not least..:
-;_______________________________________________________________________________
-;        _____ __   _ _     _   /
-; |        |   | \  | |____/   /
-; |_____ __|__ |  \_| |    \_ .
-;_______________________________________________________________________________
-
-timeout = $8000
-lossout = 20
-
 ;--- send ---
 
 Qsend:		;--- try to send 8 bits in C; CF=error --- destr:abcde ---
@@ -4181,6 +4300,8 @@ LevelDefC: ;ctf
 ; |_____/ |     |    |    |     |
 ;_______________________________________________________________________________
 
+;--- 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
@@ -4210,194 +4331,176 @@ wtWormy: ;g/o
 
 ;.db %00000000,%00000001,%10000000,%00000000,%00001111,%10000000
 
-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
-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
-	  .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
-	  .dw $3418,$331E,$2F24,$3A2A
-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
-txtKeyleft: .db ":left",0
-txtKeyright:.db "/right",0
-posLevsel = $0320
-txtLevsel:  .db $CF," SELECT LEVELS ",5,0
-txtWaiting: .db "Waiting...",0
-txtReceive: .db "Receiving..." ;,0
-
-TrigPrecalc:
-.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
-.db 127
-
-txtLevel:  .db "Level ",0
-txtWorms:  .db "Worms: 0",0	;follows txtLevel
-txtName:   .db "Name",0
-txtWinner: .db "Wins   "	;follows txtName
-txtDied:   .db "Died    "	;follows txtWinner
-txtScore:  .db "Score",0	;follows txtDied
-txtLeft:   .db " left",0	;follows txtScore
-txthiscore:.db "HiScore:",0
-#ifdef readytext
-txtReady:  .db "Prepare!",0
-txtposReady = 7
-#endif
 #ifndef coolzgfx
 txtGO:     .db 5,5,5,5,5," GAME OVER ",$CF,$CF,$CF,$CF,$CF,0
 #endif
 
-#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
+;--- menus ---
+
+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 ;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
+	   .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
+posLevsel   =  $0320
+txtLevsel: .db $CF," SELECT LEVELS ",5,0
+txtWaitn:  .db         "Waiting";"...",0
+txtReceiv: .db                   "...",0
+
+#ifdef readytext
+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 ---
 
-_datalink	= %00000001 ;linkplay
-_datafoodl	= %00000010 ;left=0 limit
-_datasingl	= %00000100 ;singleplayer=1 (=hiscore+keep_length+nextlevel)
-_datactfpeas	= %00001000 ;ctf peas=1
-_bitctfpeas	= 3
-_datatime	= %00010000 ;time incs score (timematch)
-_datafood	= %01000000 ;food present=0
-_bitfood	= 6
-_datamultpeas	= %10000000 ;multiple peas=1 (no _datafood)
-_bitmultpeas	= 7
-;reserved	  %00100000 ;for future use
-
-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)
-gamepeas     =  1
-datapeas:   .db  %00000100,1,1,1,-1,-1, 8, 0 ;Peaworm (SP; 1 live)
-gametron     =  2
-datatron:   .db  %01010100,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)
-gamefoodm    =  4
-datafoodm:  .db  %00000000,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))
-gametimem    =  6
-datatimem:  .db  %01010000,1,2,1,-1, 0, 8, 0 ;Timematch (tron, 100 score)
-gamerace     =  7
-datarace:   .db  %01000000,0,2,1,-1,-1, 8,10 ;Race (100 score)
-gamectf      =  8
-datactf:    .db  %01001000,0,4,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
+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
 
-defhiscrpos:
 #ifdef intlevels
-  .db 0,0,"SHI"
-  .db 0,0,"SHI"
-  .db 0,0,"SHI"
-  .db 0,0,"SHI"
-  .db 0,0,"SHI"
+datalevels:.dw LevelDef,LevelDefM,LevelDefT,LevelDefM,LevelDefM
+           .dw          LevelDefM,LevelDefM,LevelDefR,LevelDefC
+nrlevels:  .db 2,3,1,3,3,3,3,3,1,0  ;=defaults
+defhiscrpos:
+           .db 0,0,"SHI", 0,0,"SHI", 0,0,"SHI", 0,0,"SHI", 0,0,"SHI"
+#else
+defhiscrpos =  0
 #endif
 
-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
-respawndelay  = 30
-maxnamelength = 8+1
-
-defspritesz = 4
-defspriteimg:	.db %01100000
-		.db %11110000
-		.db %11110000
-		.db %01100000
+;--- game settings ---
+
+_datalink   =  %00000001 ;linkplay (1!)
+_datafoodl  =  %00000010 ;left=0 limit
+_datasingl  =  %00000100 ;singleplayer=1 (=hiscore+keep_length+nextlevel) &&1?
+_dataPctf   =  %00001000 ;ctf peas=1
+__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:;---
+
+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
+
+         ;            Ú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)
+gamepeas    =  1
+datapeas:  .db %00000100,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)
+gamedeathm  =  3
+datadeathm:.db %01000000,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)
+gamemfoodm  =  5
+datamfoodm:.db %11000010,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)
+gamerace    =  7
+datarace:  .db %01000000,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)
+
+gametype:  .db 0 ;last gamemode
+gamecar:         ;made before needed (not saved)
+
+saveend:;---
+
+startdelay  =  17
+rspawndelay =  31
+maxnamesize =  8+1
 
 #ifdef intlevels
-deflevels:
-  .db "Internal Levels",0
-  .db "by Shiar" ;,0
+           .db $42 ;gamecar
+defsprsz    =  4
+defspr:    .db %01100000
+           .db %11110000
+           .db %11110000
+           .db %01100000
+
+deflevels: .db "Internal Levels",0
+           .db       "by Shiar";,0
 
-  .db 0,deflevels/256,deflevels&255
+           .db 0,deflevels/256,deflevels&255
 #endif
 templevels: