Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 54 lines (47 sloc) 2.16 kB
#!/usr/bin/perl
use strict;
my $mame = 'sdlmame';
my $rat = 'ratmenu -font -nil-profont-medium-r-normal--12-120-72-72-c-60-iso8859-1';
my %games = (
cninja => 'Cavemen Ninja (Platform, 1991)',
pacmania => 'Pacmania (1991)',
ladybugg => 'Ladybug (1983)',
macrossp => 'Macross Plus (Shmup, 1991)',
macross => 'Macross (Shmup, 1988)',
pacman => 'Pacman (1982)',
mspacman => 'Ms. Pacman (1984)',
donpachi => 'Don Pachi (Shmup, 1998)',
ddonpach => 'Don Donpachi (Shmup, 2001)',
tokib => 'Toki',
mrdo => 'Mr. Do (1981)',
sfa3 => 'Street Fighter 3 Alpha',
sfiii3 => 'Street Fighter 3: Third Strike - Fight The Future',
vasara => 'Vasara 1 (Shmup, 2000)',
raiden => 'Raiden 1 (Shmup, 1985)',
jumppop => 'Jumping Pop (Platform, 2000)',
uballoon => 'Ultra Baloon (Platform, 2000)',
cairblad => 'Change Air Blade (Shmup, 2000)',
avspirit => 'Avengin Spirit (Platform, 1990)',
psychic5a => 'Psychic (Platform)',
mgcrystl => 'Magical Crystals (Platform, 2000)',
spelunk2 => 'Spelunker 2 (Platform, 1985)',
gunforce => 'Gunforce (Shooter) [Contra-Style]',
dariusg => 'Darius Gaiden (Shmup, 1991)',
esprade => 'ESP Ra.De (Shmup, 1998)',
rtypeleo => 'Rtype Leo (Shmup, 1991)',
drgnblaze => 'Dragon Blaze (Shmup, 2000)',
prehisle => 'Prehistoric Tale (Shmup, 1989) [SNK]',
preisle2 => 'Prehistoric Tale 2 (Shmup, 1999) [SNK]',
oscar => 'Psycho-Nics Oscar (Platform, 1988)',
spf2t => 'Super Puzzle Fighter 2 Turbo (Puzzle, 1996)',
bhswstl => 'Bells & Whistles (Shmup, 1991) [Konami]',
progear => 'Pro Gear (Shmup, 2001) [BEST FUCKING GAME EVER]',
bonzeadv => 'Bonze Adventure (Platform, 1988) [Taito]',
pacmanf => 'Pacman (speedup hack)',
);
my @games;
for my $shname(sort {$games{$a} cmp $games{$b}} keys(%games)) {
push(@games, "\"$games{$shname}\" $mame\\ $shname");
}
print "$_\n" for @games;
system("$rat @games");
Jump to Line
Something went wrong with that request. Please try again.