prog8/examples/balloonflight.p8

140 lines
4.5 KiB
Plaintext
Raw Normal View History

%target c64
%import syslib
%import textio
2020-11-22 17:17:43 +00:00
%import test_stack
2020-03-28 16:06:17 +00:00
%zeropage basicsafe
2020-12-14 20:57:16 +00:00
; note: The flickering in the scrolling is caused by the CPU requiring
; too long to scroll the characters + the colors in course scroll.
; This takes nearly a full frame to accomplish, and causes tearing.
; It's very difficult to remove this flicker: it requires double buffering
; and splitting the coarse character scrolling on multiple phases...
2020-03-28 16:06:17 +00:00
main {
ubyte perform_scroll = false
sub start() {
c64.SPRPTR[0] = $0f00 / 64
c64.SPENA = 1
c64.SP0COL = 14
c64.SPXY[0] = 80
c64.SPXY[1] = 100
c64.SCROLX &= %11110111 ; 38 column mode
2020-03-28 16:06:17 +00:00
c64.set_rasterirq(&irq.irqhandler, 200, false) ; enable animation via raster interrupt
2020-03-28 16:06:17 +00:00
ubyte target_height = 10
ubyte active_height = 24
ubyte upwards = true
repeat {
2020-11-22 17:17:43 +00:00
;txt.plot(0,0)
;test_stack.test()
2020-03-28 16:06:17 +00:00
ubyte mountain = 223 ; slope upwards
if active_height < target_height {
active_height++
upwards = true
} else if active_height > target_height {
mountain = 233 ; slope downwards
active_height--
upwards = false
} else {
target_height = 8 + rnd() % 16
2020-03-28 16:06:17 +00:00
if upwards
mountain = 233
else
mountain = 223
}
while not perform_scroll {
; let the raster irq do its timing job
}
perform_scroll = false
2020-09-21 19:39:36 +00:00
txt.scroll_left(true)
2020-09-27 11:31:46 +00:00
; float the balloon
if rnd() & %10000
2020-03-28 16:06:17 +00:00
c64.SPXY[1] ++
else
c64.SPXY[1] --
ubyte yy
for yy in 0 to active_height-1 {
2020-08-27 16:10:22 +00:00
txt.setcc(39, yy, 32, 2) ; clear top of screen
2020-03-28 16:06:17 +00:00
}
2020-08-27 16:10:22 +00:00
txt.setcc(39, active_height, mountain, 8) ; mountain edge
2020-03-28 16:06:17 +00:00
for yy in active_height+1 to 24 {
2020-08-27 16:10:22 +00:00
txt.setcc(39, yy, 160, 8) ; draw mountain
2020-03-28 16:06:17 +00:00
}
yy = rnd()
2020-03-28 16:06:17 +00:00
if yy > 100 {
; draw a star
txt.setcc(39, yy % (active_height-1), '.', rnd())
2020-03-28 16:06:17 +00:00
}
if yy > 200 {
; draw a tree
ubyte tree = 30
ubyte treecolor = 5
if yy & %01000000 != 0
tree = 88
else if yy & %00100000 != 0
tree = 65
if rnd() > 130
2020-03-28 16:06:17 +00:00
treecolor = 13
2020-08-27 16:10:22 +00:00
txt.setcc(39, active_height, tree, treecolor)
2020-03-28 16:06:17 +00:00
}
if yy > 235 {
; draw a camel
2020-08-27 16:10:22 +00:00
txt.setcc(39, active_height, 94, 9)
2020-03-28 16:06:17 +00:00
}
}
}
}
spritedata $0f00 {
; 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
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 ]
}
irq {
2020-12-14 20:57:16 +00:00
ubyte smoothx=0
sub irqhandler() {
2020-03-28 16:06:17 +00:00
smoothx = (smoothx-1) & 7
2020-12-14 20:57:16 +00:00
main.perform_scroll = smoothx==7
2020-03-28 16:06:17 +00:00
c64.SCROLX = (c64.SCROLX & %11111000) | smoothx
}
}