prog8/examples/sprites.p8

73 lines
2.3 KiB
Plaintext
Raw Normal View History

%import textio
%import syslib
%zeropage basicsafe
2019-07-29 21:11:13 +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[] 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-07-29 21:11:13 +00:00
main {
2019-01-01 20:47:19 +00:00
sub start() {
2020-08-27 16:10:22 +00:00
txt.print("balloon sprites!\n...we are all floating...\n")
ubyte @zp i
for i in 0 to 7 {
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
c64.set_rasterirq(&irq.irqhandler, 255, true) ; enable animation
}
2018-12-31 00:52:18 +00:00
}
2019-07-29 21:11:13 +00:00
irq {
2019-01-08 23:25:02 +00:00
sub irqhandler() {
2019-07-16 19:31:14 +00:00
c64.EXTCOL--
2019-01-08 23:25:02 +00:00
2019-07-16 19:31:14 +00:00
; float up & wobble horizontally
ubyte @zp i
for i in 0 to 14 step 2 {
c64.SPXY[i+1]--
ubyte @zp r = rnd()
2019-07-16 19:31:14 +00:00
if r>200
c64.SPXY[i]++
else if r<40
c64.SPXY[i]--
}
c64.EXTCOL++
}
}