28 lines
613 B
Factor
28 lines
613 B
Factor
! Copyright (C) 2007 Chris Double.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
!
|
|
! Balloon Bomber: http://www.mamedb.com/game/ballbomb
|
|
!
|
|
USING: kernel space-invaders ui ;
|
|
IN: balloon-bomber
|
|
|
|
TUPLE: balloon-bomber < space-invaders ;
|
|
|
|
: <balloon-bomber> ( -- cpu )
|
|
balloon-bomber new cpu-init ;
|
|
|
|
CONSTANT: rom-info {
|
|
{ 0x0000 "ballbomb/tn01" }
|
|
{ 0x0800 "ballbomb/tn02" }
|
|
{ 0x1000 "ballbomb/tn03" }
|
|
{ 0x1800 "ballbomb/tn04" }
|
|
{ 0x4000 "ballbomb/tn05-1" }
|
|
}
|
|
|
|
: run-balloon ( -- )
|
|
[
|
|
"Balloon Bomber" <balloon-bomber> rom-info run-rom
|
|
] with-ui ;
|
|
|
|
MAIN: run-balloon
|