Stars of Shareware: Programmierung/SOURCE.mdf/programm/msdos/basic/rpgtls/compnmr.bas

BASIC Source File | 1980-01-01 | 13.2 KB | 443 lines

CLS
COLOR 4
PRINT "The Monster Name Generator"
COLOR 1
PRINT "For use with any fantasy RPG or Adventure game."
PRINT "By Trent Troop"
PRINT "Programmed in Quickbasic."
PRINT
PRINT
COLOR 3
PRINT "Yet another lame freeware RPG product from Trent Troop!"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
INPUT "Which name utility, the insane or semi-sane (I or S)"; yesno$
IF yesno$ = "I" THEN GOTO 1
IF yesno$ = "S" THEN GOTO 90
IF yesno$ = "i" THEN GOTO 1
IF yesno$ = "s" THEN GOTO 90
1 CLS
RANDOMIZE TIMER
cr = INT(RND * 14) + 1
COLOR cr
LET prefchan = INT(RND * 10) + 1
IF prefchan > 8 THEN GOTO 10 ELSE GOTO 19
10 pref = INT(RND * 10) + 1
IF pref = 1 THEN PRINT "Bob's ";
IF pref = 2 THEN PRINT "The ";
IF pref = 3 THEN PRINT "Murry's ";
IF pref = 4 THEN PRINT "Harold's ";
IF pref = 5 THEN PRINT "Trent's ";
IF pref = 6 THEN PRINT "Russ's ";
IF pref = 7 THEN PRINT "The Villanous ";
IF pref = 8 THEN PRINT "Ron's ";
IF pref = 9 THEN PRINT "The Extradiminsional ";
IF pref = 10 THEN PRINT "Stinky's ";
19 LET numverbs = INT(RND * 3)
20 LET verbs = INT(RND * 24) + 1
IF numverbs = 0 THEN GOTO 30
IF verbs = 1 THEN PRINT "Dreaded ";
IF verbs = 2 THEN PRINT "Creeping ";
IF verbs = 3 THEN PRINT "Iron ";
IF verbs = 4 THEN PRINT "Glass ";
IF verbs = 5 THEN PRINT "Undead ";
IF verbs = 6 THEN PRINT "Carnivorous ";
IF verbs = 7 THEN PRINT "Deadly ";
IF verbs = 8 THEN PRINT "Dark ";
IF verbs = 9 THEN PRINT "Light ";
IF verbs = 10 THEN PRINT "Lesser ";
IF verbs = 11 THEN PRINT "Greater ";
IF verbs = 12 THEN PRINT "Giant ";
IF verbs = 13 THEN PRINT "Dwarf ";
IF verbs = 14 THEN PRINT "Great ";
IF verbs = 15 THEN PRINT "Stone ";
IF verbs = 16 THEN PRINT "Phase ";
IF verbs = 17 THEN PRINT "Mutant ";
IF verbs = 18 THEN PRINT "Poisonous ";
IF verbs = 19 THEN PRINT "Wooden ";
IF verbs = 20 THEN PRINT "Flesh ";
IF verbs = 21 THEN PRINT "Blink ";
IF verbs = 22 THEN PRINT "Blood ";
IF verbs = 23 THEN PRINT "Blessed ";
IF verbs = 24 THEN PRINT "Psychic ";
LET numverbs = numverbs - 1
GOTO 20
30 pwrdisnum = INT(RND * 2)
35 powerdis = INT(RND * 22) + 1
IF pwrdisnum = 0 THEN GOTO 40
IF powerdis = 1 THEN PRINT "Displacer ";
IF powerdis = 2 THEN PRINT "Umber ";
IF powerdis = 3 THEN PRINT "Yellow ";
IF powerdis = 4 THEN PRINT "Red ";
IF powerdis = 5 THEN PRINT "Blue ";
IF powerdis = 6 THEN PRINT "Green ";
IF powerdis = 7 THEN PRINT "Purple ";
IF powerdis = 8 THEN PRINT "Orange ";
IF powerdis = 9 THEN PRINT "White ";
IF powerdis = 10 THEN PRINT "Black ";
IF powerdis = 11 THEN PRINT "Brown ";
IF powerdis = 12 THEN PRINT "Fire ";
IF powerdis = 13 THEN PRINT "Water ";
IF powerdis = 14 THEN PRINT "Earth ";
IF powerdis = 15 THEN PRINT "Air ";
IF powerdis = 16 THEN PRINT "Phase ";
IF powerdis = 17 THEN PRINT "Hulking ";
IF powerdis = 18 THEN PRINT "Were";
IF powerdis = 19 THEN PRINT "Man";
IF powerdis = 20 THEN PRINT "Mold ";
IF powerdis = 21 THEN PRINT "Brain ";
IF powerdis = 22 THEN PRINT "Psionic ";
LET pwrdisnum = pwrdisnum - 1
GOTO 35
40 LET wordsyl = INT(RND * 2) + 1
IF wordsyl = 1 THEN GOTO 50
IF wordsyl = 2 THEN GOTO 60
50 LET wordnum = INT(RND * 3) + 1
55 IF wordnum = 0 THEN GOTO 58
LET word = INT(RND * 70) + 1
IF word = 1 THEN PRINT "Wolf ";
IF word = 2 THEN PRINT "Man ";
IF word = 3 THEN PRINT "Musk ";
IF word = 4 THEN PRINT "Creeper ";
IF word = 5 THEN PRINT "Zombie ";
IF word = 6 THEN PRINT "Vampire ";
IF word = 7 THEN PRINT "Hulk ";
IF word = 8 THEN PRINT "Beast ";
IF word = 9 THEN PRINT "Snake ";
IF word = 10 THEN PRINT "Jackal ";
IF word = 11 THEN PRINT "Rat ";
IF word = 12 THEN PRINT "Lizard ";
IF word = 13 THEN PRINT "Frog ";
IF word = 14 THEN PRINT "Sand ";
IF word = 15 THEN PRINT "Squid ";
IF word = 16 THEN PRINT "Ape ";
IF word = 17 THEN PRINT "Warrior ";
IF word = 18 THEN PRINT "Seal ";
IF word = 19 THEN PRINT "Lion ";
IF word = 20 THEN PRINT "Ant ";
IF word = 21 THEN PRINT "Spider ";
IF word = 22 THEN PRINT "Elemental ";
IF word = 23 THEN PRINT "Pudding ";
IF word = 24 THEN PRINT "Jelly ";
IF word = 25 THEN PRINT "Elf ";
IF word = 26 THEN PRINT "Halfling ";
IF word = 27 THEN PRINT "Dwarf ";
IF word = 28 THEN PRINT "Dog ";
IF word = 29 THEN PRINT "Berzerker ";
IF word = 30 THEN PRINT "Canine ";
IF word = 31 THEN PRINT "Feline ";
IF word = 32 THEN PRINT "Cat ";
IF word = 33 THEN PRINT "Tiger ";
IF word = 34 THEN PRINT "Menace ";
IF word = 35 THEN PRINT "Dragon ";
IF word = 36 THEN PRINT "Worm ";
IF word = 37 THEN PRINT "Wyrm ";
IF word = 38 THEN PRINT "Shark ";
IF word = 39 THEN PRINT "Vine ";
IF word = 40 THEN PRINT "Fungus ";
IF word = 41 THEN PRINT "Flayer ";
IF word = 42 THEN PRINT "Horse ";
IF word = 43 THEN PRINT "Daemon ";
IF word = 44 THEN PRINT "Owl ";
IF word = 45 THEN PRINT "Bear ";
IF word = 46 THEN PRINT "Bug ";
IF word = 47 THEN PRINT "Goblin ";
IF word = 48 THEN PRINT "Orc ";
IF word = 49 THEN PRINT "Troll ";
IF word = 50 THEN PRINT "Ogre ";
IF word = 51 THEN PRINT "Mole ";
IF word = 52 THEN PRINT "Fish ";
IF word = 53 THEN PRINT "Skeleton ";
IF word = 54 THEN PRINT "Ghoul ";
IF word = 55 THEN PRINT "Eating "; : LET wordnum = wordnum + 1
IF word = 56 THEN PRINT "Monster ";
IF word = 57 THEN PRINT "Dove ";
IF word = 58 THEN PRINT "Hawk ";
IF word = 59 THEN PRINT "Leech ";
IF word = 60 THEN PRINT "Lich ";
IF word = 61 THEN PRINT "Bull ";
IF word = 62 THEN PRINT "Slug ";
IF word = 63 THEN PRINT "Porcupine ";
IF word = 64 THEN PRINT "Wolverine ";
IF word = 65 THEN PRINT "Golem ";
IF word = 66 THEN PRINT "Toad ";
IF word = 67 THEN PRINT "Kobold ";
IF word = 68 THEN PRINT "Oytugh ";
IF word = 69 THEN PRINT "Centaur ";
IF word = 70 THEN PRINT "Serpent ";
LET wordnum = wordnum - 1
GOTO 55
58 yesno = INT(RND * 10) + 1
IF yesno > 8 THEN GOTO 60 ELSE GOTO 70
60  sylnum = INT(RND * 4) + 1
65 syl = INT(RND * 40) + 1
IF sylnum = 0 GOTO 69
IF syl = 1 THEN PRINT "umb";
IF syl = 2 THEN PRINT "er ";
IF syl = 3 THEN PRINT "nag";
IF syl = 4 THEN PRINT "hum";
IF syl = 5 THEN PRINT "hob";
IF syl = 6 THEN PRINT "gob";
IF syl = 7 THEN PRINT "lin";
IF syl = 8 THEN PRINT "ling";
IF syl = 9 THEN PRINT "or";
IF syl = 10 THEN PRINT "dis";
IF syl = 11 THEN PRINT "pla";
IF syl = 12 THEN PRINT "cer";
IF syl = 13 THEN PRINT "neo";
IF syl = 14 THEN PRINT "org";
IF syl = 15 THEN PRINT "sco";
IF syl = 16 THEN PRINT "rp";
IF syl = 17 THEN PRINT "ion";
IF syl = 18 THEN PRINT "oyt";
IF syl = 19 THEN PRINT "ugh";
IF syl = 20 THEN PRINT "new";
IF syl = 21 THEN PRINT "mut";
IF syl = 22 THEN PRINT "ant";
IF syl = 23 THEN PRINT "ole";
IF syl = 24 THEN PRINT "poly";
IF syl = 25 THEN PRINT "yen";
IF syl = 26 THEN PRINT "she";
IF syl = 27 THEN PRINT "he";
IF syl = 28 THEN PRINT "nin";
IF syl = 29 THEN PRINT "ten";
IF syl = 30 THEN PRINT "do";
IF syl = 31 THEN PRINT "mort";
IF syl = 32 THEN PRINT "al";
IF syl = 33 THEN PRINT "tor";
IF syl = 34 THEN PRINT "taur";
IF syl = 35 THEN PRINT "slu";
IF syl = 36 THEN PRINT "dge";
IF syl = 37 THEN PRINT "kil";
IF syl = 38 THEN PRINT "mar";
IF syl = 39 THEN PRINT "goi";
IF syl = 40 THEN PRINT "dyn";
LET sylnum = sylnum - 1
GOTO 65
69 PRINT " ";
70 suffper = INT(RND * 10) + 1
IF suffper > 9 THEN GOTO 80
75
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
COLOR 4
INPUT "Is this name ok (y/N)"; YES$
IF YES$ = "YES" THEN END
IF YES$ = "Y" THEN END
IF YES$ = "y" THEN END
IF YES$ = "yes" THEN END
IF YES$ = "Yes" THEN END
PRINT
INPUT "Switch utility (y/N)"; YES$
IF YES$ = "Y" THEN GOTO 90
IF YES$ = "y" THEN GOTO 90
IF YES$ = "Yes" THEN GOTO 90
IF YES$ = "YES" THEN GOTO 90
IF YES$ = "yes" THEN GOTO 90
GOTO 1
80 suffix = INT(RND * 8) + 1
IF suffix = 1 THEN PRINT "of Destruction ";
IF suffix = 2 THEN PRINT "of Happiness ";
IF suffix = 3 THEN PRINT "from hell ";
IF suffix = 4 THEN PRINT "of Doom ";
IF suffix = 5 THEN PRINT "of the Apocolypse ";
IF suffix = 6 THEN PRINT "of Death ";
IF suffix = 7 THEN PRINT "of Disease ";
IF suffix = 8 THEN PRINT "of War ";
IF suffix = 9 THEN PRINT "of Destruction ";
IF suffix = 10 THEN PRINT "of Vengence ";
GOTO 75
90 CLS
RANDOMIZE TIMER
cr = INT(RND * 14) + 1
COLOR cr
LET prefx = 0
LET prefchan = INT(RND * 10) + 1
IF prefchan > 5 THEN prefx = INT(RND * 43) + 1
IF prefx = 1 THEN PRINT "Were";
IF prefx = 2 THEN PRINT "Yellow ";
IF prefx = 3 THEN PRINT "Red ";
IF prefx = 4 THEN PRINT "Green ";
IF prefx = 5 THEN PRINT "Blue ";
IF prefx = 6 THEN PRINT "Orange ";
IF prefx = 7 THEN PRINT "Purple ";
IF prefx = 8 THEN PRINT "White ";
IF prefx = 9 THEN PRINT "Black ";
IF prefx = 10 THEN PRINT "Dark ";
IF prefx = 11 THEN PRINT "Light ";
IF prefx = 12 THEN PRINT "Villanous ";
IF prefx = 13 THEN PRINT "Mutant ";
IF prefx = 14 THEN PRINT "Two Headed ";
IF prefx = 15 THEN PRINT "Neo-";
IF prefx = 16 THEN PRINT "Three Headed ";
IF prefx = 17 THEN PRINT "Deadly ";
IF prefx = 18 THEN PRINT "Benevolent ";
IF prefx = 19 THEN PRINT "Creeping ";
IF prefx = 20 THEN PRINT "Giant ";
IF prefx = 21 THEN PRINT "Dwarf ";
IF prefx = 22 THEN PRINT "Aquamarine ";
IF prefx = 23 THEN PRINT "Ocher ";
IF prefx = 24 THEN PRINT "Quadropeadal ";
IF prefx = 25 THEN PRINT "Humaniod ";
IF prefx = 26 THEN PRINT "Hexapeadal ";
IF prefx = 27 THEN PRINT "Serpentine ";
IF prefx = 28 THEN PRINT "Glass ";
IF prefx = 29 THEN PRINT "Iron ";
IF prefx = 30 THEN PRINT "Wooden ";
IF prefx = 31 THEN PRINT "Displacer ";
IF prefx = 32 THEN PRINT "Sea ";
IF prefx = 33 THEN PRINT "Blink ";
IF prefx = 34 THEN PRINT "Invisible ";
IF prefx = 35 THEN PRINT "False ";
IF prefx = 36 THEN PRINT "Man-Eating ";
IF prefx = 37 THEN PRINT "Rust ";
IF prefx = 38 THEN PRINT "Carrion";
IF prefx = 39 THEN PRINT "Three Toed ";
IF prefx = 40 THEN PRINT "Spotted ";
IF prefx = 41 THEN PRINT "Shambling ";
IF prefx = 42 THEN PRINT "Young ";
IF prefx = 43 THEN PRINT "Elder ";
LET wordnum = INT(RND * 2) + 1
100 word = INT(RND * 83) + 1
IF word = 1 THEN PRINT "Wolf";
IF word = 2 THEN PRINT "Man";
IF word = 3 THEN PRINT "Musk";
IF word = 4 THEN PRINT "Creeper";
IF word = 5 THEN PRINT "Zombie";
IF word = 6 THEN PRINT "Vampire";
IF word = 7 THEN PRINT "Hulk";
IF word = 8 THEN PRINT "Beast";
IF word = 9 THEN PRINT "Snake";
IF word = 10 THEN PRINT "Jackal";
IF word = 11 THEN PRINT "Rat";
IF word = 12 THEN PRINT "Lizard";
IF word = 13 THEN PRINT "Frog";
IF word = 14 THEN PRINT "Sand";
IF word = 15 THEN PRINT "Squid";
IF word = 16 THEN PRINT "Ape";
IF word = 17 THEN PRINT "Warrior";
IF word = 18 THEN PRINT "Seal";
IF word = 19 THEN PRINT "Lion";
IF word = 20 THEN PRINT "Ant";
IF word = 21 THEN PRINT "Spider";
IF word = 22 THEN PRINT "Elemental";
IF word = 23 THEN PRINT "Pudding";
IF word = 24 THEN PRINT "Jelly";
IF word = 25 THEN PRINT "Elf";
IF word = 26 THEN PRINT "Halfling";
IF word = 27 THEN PRINT "Dwarf";
IF word = 28 THEN PRINT "Dog";
IF word = 29 THEN PRINT "Berzerker";
IF word = 30 THEN PRINT "Canine";
IF word = 31 THEN PRINT "Feline";
IF word = 32 THEN PRINT "Cat";
IF word = 33 THEN PRINT "Tiger";
IF word = 34 THEN PRINT "Menace";
IF word = 35 THEN PRINT "Dragon";
IF word = 36 THEN PRINT "Worm";
IF word = 37 THEN PRINT "Wyrm";
IF word = 38 THEN PRINT "Shark";
IF word = 39 THEN PRINT "Vine";
IF word = 40 THEN PRINT "Fungus";
IF word = 41 THEN PRINT "Ghast";
IF word = 42 THEN PRINT "Horse";
IF word = 43 THEN PRINT "Daemon";
IF word = 44 THEN PRINT "Owl";
IF word = 45 THEN PRINT "Bear";
IF word = 46 THEN PRINT "Bug";
IF word = 47 THEN PRINT "Goblin";
IF word = 48 THEN PRINT "Orc";
IF word = 49 THEN PRINT "Troll";
IF word = 50 THEN PRINT "Ogre";
IF word = 51 THEN PRINT "Mole";
IF word = 52 THEN PRINT "Fish";
IF word = 53 THEN PRINT "Skeleton";
IF word = 54 THEN PRINT "Ghoul";
IF word = 55 THEN PRINT "Panther";
IF word = 56 THEN PRINT "Monster";
IF word = 57 THEN PRINT "Dove";
IF word = 58 THEN PRINT "Hawk";
IF word = 59 THEN PRINT "Leech";
IF word = 60 THEN PRINT "Lich";
IF word = 61 THEN PRINT "Bull";
IF word = 62 THEN PRINT "Slug";
IF word = 63 THEN PRINT "Porcupine";
IF word = 64 THEN PRINT "Wolverine";
IF word = 65 THEN PRINT "Golem";
IF word = 66 THEN PRINT "Toad";
IF word = 67 THEN PRINT "Kobold";
IF word = 68 THEN PRINT "Oytugh";
IF word = 69 THEN PRINT "Centaur";
IF word = 70 THEN PRINT "Serpent";
IF word = 71 THEN PRINT "Rabbit";
IF word = 72 THEN PRINT "Humaniod";
IF word = 73 THEN PRINT "Drake";
IF word = 74 THEN PRINT "Scorpion";
IF word = 75 THEN PRINT "Hornet";
IF word = 76 THEN PRINT "Beatle";
IF word = 77 THEN PRINT "Crab";
IF word = 78 THEN PRINT "Weed";
IF word = 79 THEN PRINT "Dan Cortez";
IF word = 80 THEN PRINT "Mollusk";
IF word = 81 THEN PRINT "Wizard";
IF word = 82 THEN PRINT "Mage";
IF word = 83 THEN PRINT "Baslisk";


LET wordnum = wordnum - 1
IF wordnum = 0 THEN PRINT "": GOTO 120
LET spacer = INT(RND * 3)
IF spacer = 3 THEN PRINT " ";
IF spacer = 2 THEN PRINT "-";
GOTO 100
120 PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT : COLOR 4
INPUT "Is this name ok (y/N)"; YES$
IF YES$ = "Y" THEN END
IF YES$ = "y" THEN END
IF YES$ = "Yes" THEN END
IF YES$ = "YES" THEN END
IF YES$ = "yes" THEN END
PRINT
INPUT "Switch utility (y/N)"; YES$
IF YES$ = "Y" THEN GOTO 1
IF YES$ = "y" THEN GOTO 1
IF YES$ = "Yes" THEN GOTO 1
IF YES$ = "YES" THEN GOTO 1
IF YES$ = "yes" THEN GOTO 1
GOTO 90