-#include "line.asm"
-
-txtWelcome .db "Welcome to PeaWorm!! ",
- .db "by Jonah and Shiar",0
-txtMenu .db "Start Game",0
- .db "Game: ",0
- .db "Options",0
- .db "Quit",0
-txtGame .db "Singleplayer",0
-txtGame2 .db "Deathmatch ",0
- .db "Hot Pursuit",0
- .db "CTF ",0
-WormMsg .db "Wonderworm!",0
-LevelMsg .db "Level ",0
-LivesMsg .db "Lives: ",0
-ScoreMsg .db "Score: ",0
-LeftMsg .db "Food: ",0
-HiScore .db 0
-
-nrworms .db 2
-worm1 .dw 0,0,0,0,0,0,0,0
- .db 0,%11111110,%10,%100
-worm2 .dw 0,0,0,0,0,0,0,0
- .db 0,0,%10000,%1000
-; .db 0,%00111111,%10000,%1000
-
+txtWelcome: .db "Welcome to Worm!! ",
+ .db "by Shiar",0
+txtOptions: .db "Options",0
+txtGame: .db "Singleplayer",0 ;0
+txtGame2: .db "Deathmatch ",0 ;1
+ .db "Foodmatch ",0 ;2
+ .db "LinkMatch",0 ;3 (>options)
+ .db "Hunting ",0 ;4
+ .db "Race ",0 ;5
+ .db "CTF ",0 ;6
+ .db "Domination",0 ;7
+txtWaiting: .db "Waiting...",0
+txtReceive: .db "Receiving...",0
+
+WormVersion = 092
+WormMsg: .db "WORM by SHIAR -- test version",0
+txtLevel: .db "Level ",0
+txtWorms: .db "Worms: 0",0 ;follows txtLevel
+txtDied: .db "Died ",0
+txtScore: .db "Score",0 ;follows txtDied
+txtLeft: .db " left",0 ;follows txtScore
+txtReady: .db "Prepare!",0
+txtposReady = 7
+txtGO: .db "----- GAME OVER -----",0
+HiScore: .db 0
+
+gamesdata:
+
+_datalink = %00000001
+_datalivel = %00000010 ;ix+lives=0 limit
+_datafoodl = %00000100 ;left=0 limit
+_datanextl = %00001000 ;next level if left=0
+_datafood = %00010000 ;food present
+_datahunt = %00100000
+_datalaps = %01000000 ;give lap score
+_datascore = %10000000 ;score>=100 limit
+
+datasingle: .db %00011110
+ .dw LevelsS
+datadeathm: .db %00000010
+ .dw LevelsDM2
+datafoodm: .db %10010000
+ .dw LevelsDM
+datalinkm: .db %00000011
+ .dw LevelsDM
+datahuntin: .db %00110100
+ .dw LevelsH
+datarace: .db %11000000
+ .dw LevelsR
+datactf: .db %00000000
+ .dw LevelsDM
+datadomin: .db %00000000
+ .dw LevelsDM
+
+
+setdata = 18
+resbit = 2 ;and%11111011
+worm1set: .dw $B000,$B000 ;%10110000
+ .db 3,0,%01111110,%10,%100 ;< >
+ .db "Worm #1",0
+worm2set: .dw $B800,$B800 ;%10111000
+ .db 3,0,%00111111,%10000,%1000 ;f1 f2
+ .db "Worm #2",0
+worm3set: .dw $E800,$E800 ;%11101000 ;$D748+$1000+
+ .db 3,0,%01011111,%10,%100 ;sto ,
+ .db "Worm #3",0
+worm4set: .dw $F000,$F000 ;%11110000
+ .db 3,0,%01111101,%10,%1 ;enter +
+ .db "Worm #4",0
+worm1 = $B400
+worm2 = $B430
+worm3 = $B460
+worm4 = $B490
+end: