space-invaders,lunar-rescue,balloon-bomber: let's move these into a common hierarchy
parent
439e01713b
commit
88605022d0
|
@ -1,14 +1,14 @@
|
||||||
! Copyright (C) 2007 Chris Double.
|
! Copyright (C) 2007 Chris Double.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: help.syntax help.markup cpu.8080.emulator ;
|
USING: help.syntax help.markup cpu.8080.emulator ;
|
||||||
IN: balloon-bomber
|
IN: roms.balloon-bomber
|
||||||
|
|
||||||
HELP: run-balloon
|
HELP: run-balloon
|
||||||
{ $description
|
{ $description
|
||||||
"Run the Balloon Bomber emulator in a new window." $nl
|
"Run the Balloon Bomber emulator in a new window." $nl
|
||||||
{ $link rom-root } " must be set to the directory containing the "
|
{ $link rom-root } " must be set to the directory containing the "
|
||||||
"location of the Balloon Bomber ROM files. See "
|
"location of the Balloon Bomber ROM files. See "
|
||||||
{ $link { "balloon-bomber" "balloon-bomber" } } " for details."
|
{ $link "balloon-bomber" } " for details."
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
ARTICLE: "balloon-bomber" "Balloon Bomber Emulator"
|
ARTICLE: "balloon-bomber" "Balloon Bomber Emulator"
|
|
@ -2,8 +2,8 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
!
|
!
|
||||||
! Balloon Bomber: https://www.emuparadise.me/M.A.M.E._-_Multiple_Arcade_Machine_Emulator_ROMs/Balloon_Bomber/11301
|
! Balloon Bomber: https://www.emuparadise.me/M.A.M.E._-_Multiple_Arcade_Machine_Emulator_ROMs/Balloon_Bomber/11301
|
||||||
USING: kernel space-invaders ui ;
|
USING: kernel roms.space-invaders ui ;
|
||||||
IN: balloon-bomber
|
IN: roms.balloon-bomber
|
||||||
|
|
||||||
TUPLE: balloon-bomber < space-invaders ;
|
TUPLE: balloon-bomber < space-invaders ;
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (C) 2007 Chris Double.
|
! Copyright (C) 2007 Chris Double.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: help.syntax help.markup cpu.8080.emulator ;
|
USING: help.syntax help.markup cpu.8080.emulator ;
|
||||||
IN: lunar-rescue
|
IN: roms.lunar-rescue
|
||||||
|
|
||||||
HELP: run-lunar
|
HELP: run-lunar
|
||||||
{ $description
|
{ $description
|
|
@ -2,8 +2,8 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
!
|
!
|
||||||
! Lunar Rescue: https://www.emuparadise.me/M.A.M.E._-_Multiple_Arcade_Machine_Emulator_ROMs/Lunar_Rescue/14294
|
! Lunar Rescue: https://www.emuparadise.me/M.A.M.E._-_Multiple_Arcade_Machine_Emulator_ROMs/Lunar_Rescue/14294
|
||||||
USING: kernel space-invaders ui ;
|
USING: kernel roms.space-invaders ui ;
|
||||||
IN: lunar-rescue
|
IN: roms.lunar-rescue
|
||||||
|
|
||||||
TUPLE: lunar-rescue < space-invaders ;
|
TUPLE: lunar-rescue < space-invaders ;
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (C) 2007 Chris Double.
|
! Copyright (C) 2007 Chris Double.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: help.syntax help.markup cpu.8080.emulator ;
|
USING: help.syntax help.markup cpu.8080.emulator ;
|
||||||
IN: space-invaders
|
IN: roms.space-invaders
|
||||||
|
|
||||||
HELP: run-invaders
|
HELP: run-invaders
|
||||||
{ $description
|
{ $description
|
|
@ -9,7 +9,7 @@ specialized-arrays ui ui.gadgets ui.gestures ui.render ;
|
||||||
QUALIFIED: threads
|
QUALIFIED: threads
|
||||||
QUALIFIED: system
|
QUALIFIED: system
|
||||||
SPECIALIZED-ARRAY: uchar
|
SPECIALIZED-ARRAY: uchar
|
||||||
IN: space-invaders
|
IN: roms.space-invaders
|
||||||
|
|
||||||
TUPLE: space-invaders < cpu
|
TUPLE: space-invaders < cpu
|
||||||
port1 port2i port2o port3o port4lo port4hi port5o
|
port1 port2i port2o port3o port4lo port4hi port5o
|
||||||
|
@ -55,16 +55,16 @@ CONSTANT: SOUND-UFO-HIT 8
|
||||||
: init-sounds ( cpu -- )
|
: init-sounds ( cpu -- )
|
||||||
init-openal {
|
init-openal {
|
||||||
[ 9 gen-sources swap sounds<< ]
|
[ 9 gen-sources swap sounds<< ]
|
||||||
[ SOUND-SHOT "vocab:space-invaders/resources/Shot.wav" init-sound ]
|
[ SOUND-SHOT "vocab:roms/space-invaders/resources/Shot.wav" init-sound ]
|
||||||
[ SOUND-UFO "vocab:space-invaders/resources/Ufo.wav" init-sound ]
|
[ SOUND-UFO "vocab:roms/space-invaders/resources/Ufo.wav" init-sound ]
|
||||||
[ sounds>> SOUND-UFO swap nth AL_LOOPING AL_TRUE set-source-param ]
|
[ sounds>> SOUND-UFO swap nth AL_LOOPING AL_TRUE set-source-param ]
|
||||||
[ SOUND-BASE-HIT "vocab:space-invaders/resources/BaseHit.wav" init-sound ]
|
[ SOUND-BASE-HIT "vocab:roms/space-invaders/resources/BaseHit.wav" init-sound ]
|
||||||
[ SOUND-INVADER-HIT "vocab:space-invaders/resources/InvHit.Wav" init-sound ]
|
[ SOUND-INVADER-HIT "vocab:roms/space-invaders/resources/InvHit.Wav" init-sound ]
|
||||||
[ SOUND-WALK1 "vocab:space-invaders/resources/Walk1.wav" init-sound ]
|
[ SOUND-WALK1 "vocab:roms/space-invaders/resources/Walk1.wav" init-sound ]
|
||||||
[ SOUND-WALK2 "vocab:space-invaders/resources/Walk2.wav" init-sound ]
|
[ SOUND-WALK2 "vocab:roms/space-invaders/resources/Walk2.wav" init-sound ]
|
||||||
[ SOUND-WALK3 "vocab:space-invaders/resources/Walk3.wav" init-sound ]
|
[ SOUND-WALK3 "vocab:roms/space-invaders/resources/Walk3.wav" init-sound ]
|
||||||
[ SOUND-WALK4 "vocab:space-invaders/resources/Walk4.wav" init-sound ]
|
[ SOUND-WALK4 "vocab:roms/space-invaders/resources/Walk4.wav" init-sound ]
|
||||||
[ SOUND-UFO-HIT "vocab:space-invaders/resources/UfoHit.wav" init-sound ]
|
[ SOUND-UFO-HIT "vocab:roms/space-invaders/resources/UfoHit.wav" init-sound ]
|
||||||
[ f swap looping?<< ]
|
[ f swap looping?<< ]
|
||||||
} cleave ;
|
} cleave ;
|
||||||
|
|
Loading…
Reference in New Issue