space-invaders,lunar-rescue,balloon-bomber: let's move these into a common hierarchy

modern-harvey2
Björn Lindqvist 2017-07-04 03:04:31 +02:00
parent 439e01713b
commit 88605022d0
24 changed files with 18 additions and 18 deletions

View File

@ -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"

View File

@ -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 ;

View File

@ -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

View File

@ -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 ;

View File

@ -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

View File

@ -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 ;