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
!
USING:
cpu.8080
kernel
space-invaders
ui
;
USING: accessors cpu.8080 cpu.8080.emulator kernel
space-invaders ui ;
IN: balloon-bomber
TUPLE: balloon-bomber < space-invaders ;
@ -25,6 +21,11 @@ CONSTANT: rom-info {
}
: 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

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

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