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',91
  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 1,2,3,1
  28   .db 6,1,2,1
  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 linkmatch:
 171   .db 8,0,15,15,0,0
 172   .db $40,30,2,$C0,30,125, $00,2,64,$80,54,64
 173   .db 228,157
 174   .db 0,0
 175
 176
 177 deathmatch:
 178   .db 8,5,15,31,0,0
 179   .db $40,28,2        ;begin stats for each player
 180   .db $C0,28,125
 181   .db $00,2,63
 182   .db $80,54,63
 183   .db 128,57          ;field size
 184   .db 0
 185   .db 4               ;4 boxes
 186   .db 16,12,48,12
 187   .db 80,12,112,12
 188   .db 16,34,48,12
 189   .db 80,34,112,12
 190
 191   .db 8,4,18,15,0,0
 192   .db $20,2,2,$A0,54,125, $E0,2,125,$60,54,2
 193   .db 128,57
 194   .db 1
 195   .db 35,28,92,28
 196   .db 4
 197   .db 2,20,18,17
 198   .db 109,20,125,17
 199   .db 48,2,79,10
 200   .db 48,47,79,55
 201
 202
 203 foodmatch:
 204 domination:
 205   .db 8,5,18,15,0,0
 206   .db $40,30,2,$C0,30,125, $00,2,64,$80,54,64
 207   .db 128,57
 208   .db 0,0
 209
 210
 211 race:
 212   .db 8,4,15,10,0,0
 213   .db $40,3,2,$40,6,2, $40,9,2,$40,12,2
 214   .db 128,57
 215   .db 0
 216   .db 2
 217   .db 22,21,104,15
 218   .db 52,10,74,37
 219
 220
 221 ctf:
 222   .db 8,5,18,15,0,0
 223   .db $00,2,62,$00,2,64, $20,2,7,$A0,54,120
 224   .db 128,57
 225   .db 46,117,46,10
 226   .db 0,0
 227
 228   .db 8,5,18,15,0,0
 229   .db $60,54,2,$E0,2,125, $60,49,2,$E0,7,125
 230   .db 128,57
 231   .db 9,10,46,117
 232   .db 0,1
 233   .db 20,14,107,31
 234
 235
 236 hiscore:
 237   .dw 0
 238   .dw 0,0
 239
 240
 241   .end
 242 .end