2018-12-30 20:40:27 +00:00
|
|
|
%import c64utils
|
|
|
|
|
|
|
|
|
2019-01-01 20:47:19 +00:00
|
|
|
~ spritedata $0a00 {
|
2019-01-02 02:18:32 +00:00
|
|
|
; this memory block contains the sprite data
|
|
|
|
; it must start on an address aligned to 64 bytes.
|
|
|
|
%option force_output ; make sure the data in this block appears in the resulting program
|
2018-12-31 03:48:26 +00:00
|
|
|
|
|
|
|
ubyte[63] balloonsprite = [ %00000000,%01111111,%00000000,
|
|
|
|
%00000001,%11111111,%11000000,
|
|
|
|
%00000011,%11111111,%11100000,
|
|
|
|
%00000011,%11100011,%11100000,
|
|
|
|
%00000111,%11011100,%11110000,
|
|
|
|
%00000111,%11011101,%11110000,
|
|
|
|
%00000111,%11011100,%11110000,
|
|
|
|
%00000011,%11100011,%11100000,
|
|
|
|
%00000011,%11111111,%11100000,
|
|
|
|
%00000011,%11111111,%11100000,
|
|
|
|
%00000010,%11111111,%10100000,
|
|
|
|
%00000001,%01111111,%01000000,
|
|
|
|
%00000001,%00111110,%01000000,
|
|
|
|
%00000000,%10011100,%10000000,
|
|
|
|
%00000000,%10011100,%10000000,
|
|
|
|
%00000000,%01001001,%00000000,
|
|
|
|
%00000000,%01001001,%00000000,
|
|
|
|
%00000000,%00111110,%00000000,
|
|
|
|
%00000000,%00111110,%00000000,
|
|
|
|
%00000000,%00111110,%00000000,
|
|
|
|
%00000000,%00011100,%00000000 ]
|
2019-01-01 20:47:19 +00:00
|
|
|
}
|
2018-12-31 00:52:18 +00:00
|
|
|
|
2019-01-01 20:47:19 +00:00
|
|
|
~ main {
|
|
|
|
|
|
|
|
const uword SP0X = $d000
|
|
|
|
const uword SP0Y = $d001
|
2018-12-31 00:52:18 +00:00
|
|
|
|
2018-12-30 20:40:27 +00:00
|
|
|
sub start() {
|
|
|
|
|
|
|
|
c64.STROUT("balloon sprites!\n")
|
2018-12-31 00:52:18 +00:00
|
|
|
c64.STROUT("...we are all floating...\n")
|
2018-12-30 20:40:27 +00:00
|
|
|
|
2018-12-31 03:48:26 +00:00
|
|
|
for ubyte i in 0 to 7 {
|
2019-01-08 23:25:02 +00:00
|
|
|
c64.SPRPTR[i] = $0a00 // 64
|
|
|
|
c64.SPXY[i*2] = 50+25*i
|
|
|
|
c64.SPXY[i*2+1] = rnd()
|
2018-12-31 03:48:26 +00:00
|
|
|
}
|
2018-12-31 00:52:18 +00:00
|
|
|
|
2019-01-02 02:18:32 +00:00
|
|
|
c64.SPENA = 255 ; enable all sprites
|
2019-01-02 01:47:52 +00:00
|
|
|
c64utils.set_rasterirq(51) ; enable animation
|
2018-12-30 20:40:27 +00:00
|
|
|
}
|
2018-12-31 00:52:18 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
~ irq {
|
|
|
|
sub irq() {
|
2019-01-02 01:47:52 +00:00
|
|
|
c64.EXTCOL--
|
2019-01-08 23:25:02 +00:00
|
|
|
|
2019-01-01 17:45:21 +00:00
|
|
|
; float up & wobble horizontally
|
2019-01-02 02:18:32 +00:00
|
|
|
for ubyte i in 0 to 14 step 2 {
|
2019-01-08 23:25:02 +00:00
|
|
|
c64.SPXY[i+1]--
|
2018-12-31 03:48:26 +00:00
|
|
|
ubyte r = rnd()
|
2019-01-02 02:18:32 +00:00
|
|
|
if r>200
|
2019-01-08 23:25:02 +00:00
|
|
|
c64.SPXY[i]++
|
2019-01-02 02:18:32 +00:00
|
|
|
else if r<40
|
2019-01-08 23:25:02 +00:00
|
|
|
c64.SPXY[i]--
|
2018-12-31 03:48:26 +00:00
|
|
|
}
|
2019-01-08 23:25:02 +00:00
|
|
|
|
2019-01-02 01:47:52 +00:00
|
|
|
c64.EXTCOL++
|
2018-12-31 00:52:18 +00:00
|
|
|
}
|
2018-12-30 20:40:27 +00:00
|
|
|
|
|
|
|
}
|