wormlvl.z80

   1 ;Drawable screen is (2,2)-(125,54); center is (63.5,28)
   2
   3 #include "asm86.h"
   4 #include "ti86asm.inc"
   5
   6
   7 ;---------- HEADER ----------
   8
   9   .org $F3E3-16
  10
  11   .db 'w',90
  12   .db 16,"Worm LevelPack I"
  13   .dw hiscore-single
  14
  15
  16 levelsdata:
  17
  18   .dw single
  19   .dw peaworm
  20   .dw deathmatch
  21   .dw foodmatch
  22   .dw linkmatch
  23   .dw race
  24   .dw ctf
  25   .dw domination
  26
  27   .db 2,3,4,2
  28   .db 2,2,2,2
  29
  30
  31 ;---------- LEVELS ----------
  32
  33 single:
  34
  35   .db 5,4,15          ;peas/delay/growth
  36   .db 15,5            ;size/spritesize
  37   .db %01110000       ;sprite
  38   .db %10001000
  39   .db %10001000
  40   .db %10001000
  41   .db %01110000
  42   .db 0               ;balls
  43   .db 0,2,63          ;d/y/x
  44   .db 128,57          ;field size
  45   .db 0,0             ;no lines/boxes
  46
  47   .db 8,4,15,15,0
  48   .db 0               ;no sprite
  49   .db $40,14,2
  50   .db 128,57
  51   .db 1
  52   .db 28,28,100,28
  53   .db 0
  54
  55   .db 9,4,15,15,0,0
  56   .db $40,8,2
  57   .db 128,57
  58   .db 2
  59   .db 28,14,100,14
  60   .db 28,41,100,41
  61   .db 0
  62
  63   .db 4,3,15,10,0,1
  64   .db 2,4,0           ;ball
  65   .db 0,2,124
  66   .db 128,57
  67   .db 2               ;lines
  68   .db 28,14,100,41
  69   .db 28,41,100,14
  70   .db 0
  71
  72   .db 9,3,15,15,0,0
  73   .db $40,8,2
  74   .db 128,80
  75   .db 2
  76   .db 64,14,64,66
  77   .db 20,40,108,40
  78   .db 0
  79
  80   .db 10,3,15,15,0,0
  81   .db 2,8,$40
  82   .db 128,90
  83   .db 3               ;lines
  84   .db 18,20,18,70
  85   .db 110,20,110,70
  86   .db 18,45,110,45
  87   .db 0
  88
  89   .db 7,3,15,15,0,0
  90   .db 64,4,0
  91   .db 128,86
  92   .db 6
  93   .db 34,13,56,35
  94   .db 34,71,56,49
  95   .db 72,35,94,13
  96   .db 72,49,94,71
  97   .db 16,20,16,64
  98   .db 110,20,110,64
  99   .db 0
 100
 101   .db 9,3,15,15,0,0
 102   .db $40,4,10
 103   .db 128,82
 104   .db 3               ;lines
 105   .db 0,20,74,20
 106   .db 54,40,128,40
 107   .db 0,60,74,60
 108   .db 0
 109
 110   .db 12,3,15,15,0,0
 111   .db $40,2,2
 112   .db 128,90
 113   .db 6
 114   .db 20,16,54,16
 115   .db 74,16,110,16
 116   .db 20,16,20,72
 117   .db 110,16,110,72
 118   .db 20,72,54,72
 119   .db 74,72,110,72
 120   .db 0
 121
 122   .db 8,2,15,15,0,0
 123   .db $C0,67,48
 124   .db 128,128
 125   .db 13              ;lines
 126   .db 34,56,56,34
 127   .db 34,72,56,94
 128   .db 72,34,94,56
 129   .db 72,94,94,72
 130   .db 46,64,80,64
 131   .db 22,11,22,33
 132   .db 11,22,33,22
 133   .db 22,95,22,117
 134   .db 11,106,33,106
 135   .db 103,11,103,33
 136   .db 91,22,115,22
 137   .db 103,95,103,117
 138   .db 91,106,115,106
 139   .db 0
 140
 141   .db 255
 142
 143    ld   hl,endtext
 144    call _puts         ;display text
 145    jp   _getkey       ;wait for a key
 146
 147 endtext:
 148   .db "  Congratulations!!",0
 149
 150
 151 peaworm:
 152   .db 5,4,15
 153   .db 15,5
 154   .db %01110000
 155   .db %10001000
 156   .db %10001000
 157   .db %10001000
 158   .db %01110000
 159   .db 0
 160   .db 0,2,63
 161   .db 128,57
 162   .db 0,0
 163
 164   .db 5,4,15,15,0,0
 165   .db 0,2,63
 166   .db 128,57
 167   .db 0,0
 168
 169
 170 deathmatch:
 171   .db 8,5,15,31,0,0
 172   .db $40,28,2        ;begin stats for each player
 173   .db $C0,28,125
 174   .db $00,2,63
 175   .db $80,54,63
 176   .db 128,57          ;field size
 177   .db 0
 178   .db 4               ;4 boxes
 179   .db 16,12,48,12
 180   .db 80,12,112,12
 181   .db 16,34,48,12
 182   .db 80,34,112,12
 183
 184   .db 8,4,18,15,0,0
 185   .db $20,2,2,$A0,54,125, $E0,2,125,$60,54,2
 186   .db 128,57
 187   .db 1
 188   .db 35,28,92,28
 189   .db 4
 190   .db 2,20,18,17
 191   .db 109,20,125,17
 192   .db 48,2,79,10
 193   .db 48,47,79,55
 194
 195
 196 foodmatch:
 197 ctf:
 198 domination:
 199   .db 8,5,18,15,0,0
 200   .db $40,30,2,$C0,30,125, $00,2,64,$80,54,64
 201   .db 128,57
 202   .db 0,0
 203
 204
 205 linkmatch:
 206   .db 8,0,15,15,0,0
 207   .db $40,30,2,$C0,30,125, $00,2,64,$80,54,64
 208   .db 228,157
 209   .db 0,0
 210
 211
 212 race:
 213   .db 8,4,15,10,0,0
 214   .db $40,3,2,$40,6,2, $40,9,2,$40,12,2
 215   .db 128,57
 216   .db 0
 217   .db 2
 218   .db 22,21,104,15
 219   .db 52,10,74,37
 220
 221
 222 hiscore:
 223   .dw 0
 224   .dw 1,2
 225
 226
 227   .end
 228 .end