2015-06-29 19:43:15 -04:00
|
|
|
! Copyright (C) 2007 Chris Double.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
!
|
2015-09-29 09:21:54 -04:00
|
|
|
! Balloon Bomber: http://www.mamedb.com/game/ballbomb
|
2015-06-29 19:43:15 -04:00
|
|
|
!
|
|
|
|
|
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 ( -- )
|
|
|
|
|
[
|
2017-01-09 15:37:15 -05:00
|
|
|
"Balloon Bomber" <balloon-bomber> rom-info run-rom
|
2015-06-29 19:43:15 -04:00
|
|
|
] with-ui ;
|
|
|
|
|
|
|
|
|
|
MAIN: run-balloon
|
