-;Drawable screen is (2,2)-(125,54); center is (63.5,28)
-
-#include "asm86.h"
-#include "ti86asm.inc"
-
-
-;---------- HEADER ----------
-
- .org $F3E3-16
-
- .db 'w',91
- .db 16,"Worm LevelPack I"
- .dw hiscore-single
-
-
-levelsdata:
-
- .dw single
- .dw peaworm
- .dw deathmatch
- .dw foodmatch
- .dw linkmatch
- .dw race
- .dw ctf
- .dw domination
-
- .db 1,2,3,1
- .db 6,1,2,1
-
-
-;---------- LEVELS ----------
-
-single:
-
- .db 5,4,15 ;peas/delay/growth
- .db 15,5 ;size/spritesize
- .db %01110000 ;sprite
- .db %10001000
- .db %10001000
- .db %10001000
- .db %01110000
- .db 0 ;balls
- .db 0,2,63 ;d/y/x
- .db 128,57 ;field size
- .db 0,0 ;no lines/boxes
-
- .db 8,4,15,15,0
- .db 0 ;no sprite
- .db $40,14,2
- .db 128,57
- .db 1
- .db 28,28,100,28
- .db 0
-
- .db 9,4,15,15,0,0
- .db $40,8,2
- .db 128,57
- .db 2
- .db 28,14,100,14
- .db 28,41,100,41
- .db 0
-
- .db 4,3,15,10,0,1
- .db 2,4,0 ;ball
- .db 0,2,124
- .db 128,57
- .db 2 ;lines
- .db 28,14,100,41
- .db 28,41,100,14
- .db 0
-
- .db 9,3,15,15,0,0
- .db $40,8,2
- .db 128,80
- .db 2
- .db 64,14,64,66
- .db 20,40,108,40
- .db 0
-
- .db 10,3,15,15,0,0
- .db 2,8,$40
- .db 128,90
- .db 3 ;lines
- .db 18,20,18,70
- .db 110,20,110,70
- .db 18,45,110,45
- .db 0
-
- .db 7,3,15,15,0,0
- .db 64,4,0
- .db 128,86
- .db 6
- .db 34,13,56,35
- .db 34,71,56,49
- .db 72,35,94,13
- .db 72,49,94,71
- .db 16,20,16,64
- .db 110,20,110,64
- .db 0
-
- .db 9,3,15,15,0,0
- .db $40,4,10
- .db 128,82
- .db 3 ;lines
- .db 0,20,74,20
- .db 54,40,128,40
- .db 0,60,74,60
- .db 0
-
- .db 12,3,15,15,0,0
- .db $40,2,2
- .db 128,90
- .db 6
- .db 20,16,54,16
- .db 74,16,110,16
- .db 20,16,20,72
- .db 110,16,110,72
- .db 20,72,54,72
- .db 74,72,110,72
- .db 0
-
- .db 8,2,15,15,0,0
- .db $C0,67,48
- .db 128,128
- .db 13 ;lines
- .db 34,56,56,34
- .db 34,72,56,94
- .db 72,34,94,56
- .db 72,94,94,72
- .db 46,64,80,64
- .db 22,11,22,33
- .db 11,22,33,22
- .db 22,95,22,117
- .db 11,106,33,106
- .db 103,11,103,33
- .db 91,22,115,22
- .db 103,95,103,117
- .db 91,106,115,106
- .db 0
-
- .db 255
-
- ld hl,endtext
- call _puts ;display text
- jp _getkey ;wait for a key
-
-endtext:
- .db " Congratulations!!",0
-
-
-peaworm:
- .db 5,4,15
- .db 15,5
- .db %01110000
- .db %10001000
- .db %10001000
- .db %10001000
- .db %01110000
- .db 0
- .db 0,2,63
- .db 128,57
- .db 0,0
-
- .db 5,4,15,15,0,0
- .db 0,2,63
- .db 128,57
- .db 0,0
-
-
-linkmatch:
- .db 8,0,15,15,0,0
- .db $40,30,2,$C0,30,125, $00,2,64,$80,54,64
- .db 228,157
- .db 0,0
-
-
-deathmatch:
- .db 8,5,15,31,0,0
- .db $40,28,2 ;begin stats for each player
- .db $C0,28,125
- .db $00,2,63
- .db $80,54,63
- .db 128,57 ;field size
- .db 0
- .db 4 ;4 boxes
- .db 16,12,48,12
- .db 80,12,112,12
- .db 16,34,48,12
- .db 80,34,112,12
-
- .db 8,4,18,15,0,0
- .db $20,2,2,$A0,54,125, $E0,2,125,$60,54,2
- .db 128,57
- .db 1
- .db 35,28,92,28
- .db 4
- .db 2,20,18,17
- .db 109,20,125,17
- .db 48,2,79,10
- .db 48,47,79,55
-
-
-foodmatch:
-domination:
- .db 8,5,18,15,0,0
- .db $40,30,2,$C0,30,125, $00,2,64,$80,54,64
- .db 128,57
- .db 0,0
-
-
-race:
- .db 8,4,15,10,0,0
- .db $40,3,2,$40,6,2, $40,9,2,$40,12,2
- .db 128,57
- .db 0
- .db 2
- .db 22,21,104,15
- .db 52,10,74,37
-
-
-ctf:
- .db 8,5,18,15,0,0
- .db $00,2,62,$00,2,64, $20,2,7,$A0,54,120
- .db 128,57
- .db 46,117,46,10
- .db 0,0
-
- .db 8,5,18,15,0,0
- .db $60,54,2,$E0,2,125, $60,49,2,$E0,7,125
- .db 128,57
- .db 9,10,46,117
- .db 0,1
- .db 20,14,107,31
-
-
-hiscore:
- .dw 0
- .dw 0,0
-
-
- .end
-.end
\ No newline at end of file