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.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: help.syntax help.markup cpu.8080.emulator ;
|
||||
IN: balloon-bomber
|
||||
IN: roms.balloon-bomber
|
||||
|
||||
HELP: run-balloon
|
||||
{ $description
|
||||
"Run the Balloon Bomber emulator in a new window." $nl
|
||||
{ $link rom-root } " must be set to the directory containing the "
|
||||
"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"
|
|
@ -2,8 +2,8 @@
|
|||
! 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
|
||||
USING: kernel space-invaders ui ;
|
||||
IN: balloon-bomber
|
||||
USING: kernel roms.space-invaders ui ;
|
||||
IN: roms.balloon-bomber
|
||||
|
||||
TUPLE: balloon-bomber < space-invaders ;
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2007 Chris Double.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: help.syntax help.markup cpu.8080.emulator ;
|
||||
IN: lunar-rescue
|
||||
IN: roms.lunar-rescue
|
||||
|
||||
HELP: run-lunar
|
||||
{ $description
|
|
@ -2,8 +2,8 @@
|
|||
! 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
|
||||
USING: kernel space-invaders ui ;
|
||||
IN: lunar-rescue
|
||||
USING: kernel roms.space-invaders ui ;
|
||||
IN: roms.lunar-rescue
|
||||
|
||||
TUPLE: lunar-rescue < space-invaders ;
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2007 Chris Double.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: help.syntax help.markup cpu.8080.emulator ;
|
||||
IN: space-invaders
|
||||
IN: roms.space-invaders
|
||||
|
||||
HELP: run-invaders
|
||||
{ $description
|
|
@ -9,7 +9,7 @@ specialized-arrays ui ui.gadgets ui.gestures ui.render ;
|
|||
QUALIFIED: threads
|
||||
QUALIFIED: system
|
||||
SPECIALIZED-ARRAY: uchar
|
||||
IN: space-invaders
|
||||
IN: roms.space-invaders
|
||||
|
||||
TUPLE: space-invaders < cpu
|
||||
port1 port2i port2o port3o port4lo port4hi port5o
|
||||
|
@ -55,16 +55,16 @@ CONSTANT: SOUND-UFO-HIT 8
|
|||
: init-sounds ( cpu -- )
|
||||
init-openal {
|
||||
[ 9 gen-sources swap sounds<< ]
|
||||
[ SOUND-SHOT "vocab:space-invaders/resources/Shot.wav" init-sound ]
|
||||
[ SOUND-UFO "vocab:space-invaders/resources/Ufo.wav" init-sound ]
|
||||
[ SOUND-SHOT "vocab:roms/space-invaders/resources/Shot.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 ]
|
||||
[ SOUND-BASE-HIT "vocab:space-invaders/resources/BaseHit.wav" init-sound ]
|
||||
[ SOUND-INVADER-HIT "vocab:space-invaders/resources/InvHit.Wav" init-sound ]
|
||||
[ SOUND-WALK1 "vocab:space-invaders/resources/Walk1.wav" init-sound ]
|
||||
[ SOUND-WALK2 "vocab:space-invaders/resources/Walk2.wav" init-sound ]
|
||||
[ SOUND-WALK3 "vocab:space-invaders/resources/Walk3.wav" init-sound ]
|
||||
[ SOUND-WALK4 "vocab:space-invaders/resources/Walk4.wav" init-sound ]
|
||||
[ SOUND-UFO-HIT "vocab:space-invaders/resources/UfoHit.wav" init-sound ]
|
||||
[ SOUND-BASE-HIT "vocab:roms/space-invaders/resources/BaseHit.wav" init-sound ]
|
||||
[ SOUND-INVADER-HIT "vocab:roms/space-invaders/resources/InvHit.Wav" init-sound ]
|
||||
[ SOUND-WALK1 "vocab:roms/space-invaders/resources/Walk1.wav" init-sound ]
|
||||
[ SOUND-WALK2 "vocab:roms/space-invaders/resources/Walk2.wav" init-sound ]
|
||||
[ SOUND-WALK3 "vocab:roms/space-invaders/resources/Walk3.wav" init-sound ]
|
||||
[ SOUND-WALK4 "vocab:roms/space-invaders/resources/Walk4.wav" init-sound ]
|
||||
[ SOUND-UFO-HIT "vocab:roms/space-invaders/resources/UfoHit.wav" init-sound ]
|
||||
[ f swap looping?<< ]
|
||||
} cleave ;
|
||||
|
Loading…
Reference in New Issue