mirror of
https://github.com/KarolS/millfork.git
synced 2024-05-31 18:41:30 +00:00
67 lines
2.8 KiB
Plaintext
67 lines
2.8 KiB
Plaintext
|
import x16_kernal
|
|||
|
|
import x16_hardware
|
|||
|
|
import x16_joy1_default
|
|||
|
|
|
|||
|
|
vera_sprite_data sprite
|
|||
|
|
|
|||
|
|
void main() {
|
|||
|
|
|
|||
|
|
sprite.address = $800
|
|||
|
|
sprite.x = 100
|
|||
|
|
sprite.y = 100
|
|||
|
|
// no collision, above all layers, no flipping
|
|||
|
|
sprite.ctrl0 = $c
|
|||
|
|
// 32×32 pixels
|
|||
|
|
sprite.ctrl1 = $a0
|
|||
|
|
|
|||
|
|
vera_upload_sprite(0, sprite.pointer)
|
|||
|
|
vera_upload_large($10000, sprite_bitmap.addr, sizeof(sprite_bitmap))
|
|||
|
|
vera_set_sprites_enable(true)
|
|||
|
|
while true {
|
|||
|
|
read_joy()
|
|||
|
|
sprite.x += input_dx
|
|||
|
|
sprite.y += input_dy
|
|||
|
|
if input_start != 0 {
|
|||
|
|
sprite.ctrl1 = (sprite.ctrl1 & $f0) | ($f & (sprite.ctrl1 + 1))
|
|||
|
|
}
|
|||
|
|
vera_upload_sprite(0, sprite.pointer)
|
|||
|
|
//vera_upload_large(VERA_SPRITES, sprite.addr, sizeof(sprite))
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
array sprite_bitmap = [
|
|||
|
|
$00,$00,$00,$00,$00,$00,$11,$11,$11,$11,$00,$00,$00,$00,$00,$00,
|
|||
|
|
$00,$00,$00,$00,$01,$11,$11,$11,$11,$11,$11,$10,$00,$00,$00,$00,
|
|||
|
|
$00,$00,$00,$01,$11,$11,$11,$11,$11,$11,$11,$11,$10,$00,$00,$00,
|
|||
|
|
$00,$00,$00,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$00,$00,$00,
|
|||
|
|
$00,$00,$01,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$10,$00,$00,
|
|||
|
|
$00,$00,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$00,$00,
|
|||
|
|
$00,$01,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$10,$00,
|
|||
|
|
$00,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$00,
|
|||
|
|
$00,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$00,
|
|||
|
|
$01,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$10,
|
|||
|
|
$01,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$10,
|
|||
|
|
$01,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$10,
|
|||
|
|
$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,
|
|||
|
|
$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,
|
|||
|
|
$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,
|
|||
|
|
$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,
|
|||
|
|
$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,
|
|||
|
|
$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,
|
|||
|
|
$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,
|
|||
|
|
$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,
|
|||
|
|
$01,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$10,
|
|||
|
|
$01,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$10,
|
|||
|
|
$01,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$10,
|
|||
|
|
$00,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$00,
|
|||
|
|
$00,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$00,
|
|||
|
|
$00,$01,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$10,$00,
|
|||
|
|
$00,$00,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$00,$00,
|
|||
|
|
$00,$00,$01,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$10,$00,$00,
|
|||
|
|
$00,$00,$00,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$00,$00,$00,
|
|||
|
|
$00,$00,$00,$01,$11,$11,$11,$11,$11,$11,$11,$11,$10,$00,$00,$00,
|
|||
|
|
$00,$00,$00,$00,$01,$11,$11,$11,$11,$11,$11,$10,$00,$00,$00,$00,
|
|||
|
|
$00,$00,$00,$00,$00,$00,$11,$11,$11,$11,$00,$00,$00,$00,$00,$00
|
|||
|
|
]
|