steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix for space-invaders changes.

db4
John Benediktsson 2014-12-12 13:24:22 -08:00
parent 8f4c4ea2e1
commit 729ad520a8
2 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/balloon-bomber/balloon-bomber.factor
View File

@ -3,12 +3,8 @@
! !
! Balloon Bomber: http://www.mameworld.net/maws/romset/ballbomb ! Balloon Bomber: http://www.mameworld.net/maws/romset/ballbomb
! !
USING: USING: accessors cpu.8080 cpu.8080.emulator kernel
cpu.8080 space-invaders ui ;
kernel
space-invaders
ui
;
IN: balloon-bomber IN: balloon-bomber
TUPLE: balloon-bomber < space-invaders ; TUPLE: balloon-bomber < space-invaders ;
@ -25,6 +21,11 @@ CONSTANT: rom-info {
} }
: run-balloon ( -- ) : run-balloon ( -- )
[ "Balloon Bomber" <balloon-bomber> rom-info (run) ] with-ui ; [
<balloon-bomber>
rom-info over load-rom*
<invaders-gadget> t >>windowed?
"Balloon Bomber" open-window
] with-ui ;
MAIN: run-balloon MAIN: run-balloon

17
extra/lunar-rescue/lunar-rescue.factor
View File

@ -3,12 +3,8 @@
! !
! Lunar Rescue: http://www.mameworld.net/maws/romset/lrescue ! Lunar Rescue: http://www.mameworld.net/maws/romset/lrescue
! !
USING: USING: accessors cpu.8080 cpu.8080.emulator kernel
cpu.8080 space-invaders ui ;
kernel
space-invaders
ui
;
IN: lunar-rescue IN: lunar-rescue
TUPLE: lunar-rescue < space-invaders ; TUPLE: lunar-rescue < space-invaders ;
@ -25,7 +21,12 @@ CONSTANT: rom-info {
{ 0x4800 "lrescue/lrescue.6" } { 0x4800 "lrescue/lrescue.6" }
} }
: run-lunar ( -- ) : run-lunar ( -- )
[ "Lunar Rescue" <lunar-rescue> rom-info (run) ] with-ui ; [
<lunar-rescue>
rom-info over load-rom*
<invaders-gadget> t >>windowed?
"Lunar Rescue" open-window
] with-ui ;
MAIN: run-lunar MAIN: run-lunar