Sorry your browser is not supported!

Rem Project: CreatureCompilation
Rem Created: Wednesday, May 11, 2011

Rem ***** Main Source File *****

SET DISPLAY MODE 1024, 768, 32
SET TEXT FONT "FRM_New Oberon"
SET TEXT SIZE 16
CLS


RESTORE _ClusterNames
FOR i = 1 to 100 STEP 5
    READ n1$, n2$, n3$, n4$, n5$
    PRINT STR$(i) + " " + ParseEndings(n1$) + "     " + STR$(i + 1) + " " + ParseEndings(n2$) + "     ";
    PRINT STR$(i + 2) + " " + ParseEndings(n3$) + "     " + STR$(i + 3) + " " + ParseEndings(n4$) + "     ";
    PRINT STR$(i + 4) + " " + ParseEndings(n5$)
NEXT

PRINT "YES"

WAIT KEY
END

`*************
`* FUNCTIONS *
`*************

FUNCTION Roller( sides AS INTEGER , addOne AS BOOLEAN )
    temp = RND(1) * sides
    IF temp < 0 THEN temp = 0
    IF addOne = 1 THEN INC temp, 1
    IF temp > sides THEN temp = sides
ENDFUNCTION temp

FUNCTION ParseEndings( s$ AS STRING )
    temp AS INTEGER = 0
    tStr$ AS STRING = ""
    IF UPPER$(RIGHT$(s$, 1)) = "A" THEN temp = 1
    IF UPPER$(RIGHT$(s$, 1)) = "I" THEN temp = 2
    IF UPPER$(RIGHT$(s$, 1)) = "S" THEN temp = 3
    IF UPPER$(RIGHT$(s$, 1)) = "X" THEN temp = 4
    IF UPPER$(RIGHT$(s$, 1)) = "Y" THEN temp = 5
    IF UPPER$(RIGHT$(s$, 1)) = "H" THEN temp = 6
    IF UPPER$(RIGHT$(s$, 1)) = "E" THEN temp = 7
    IF UPPER$(RIGHT$(s$, 1)) = "R" THEN temp = 8
    IF UPPER$(RIGHT$(s$, 1)) = "N" THEN temp = 9
    IF UPPER$(RIGHT$(s$, 1)) = "D" THEN temp = 10
    IF UPPER$(RIGHT$(s$, 1)) = "L" THEN temp = 11
    IF UPPER$(RIGHT$(s$, 1)) = "M" THEN temp = 12
    IF UPPER$(RIGHT$(s$, 1)) = "O" THEN temp = 13
    IF UPPER$(RIGHT$(s$, 1)) = "T" THEN temp = 14
    SELECT temp
        CASE 01, 13 : tStr$ = s$ + "n" : ENDCASE
        CASE 02, 07, 08 : tStr$ = s$ + "an" : ENDCASE
        CASE 11, 12 : tStr$ = s$ + "ean" : ENDCASE
        CASE 04 : tStr$ = s$ + "ic" : ENDCASE
        CASE 03, 06, 10, 14 : tStr$ = s$ + "ian" : ENDCASE
        CASE DEFAULT : tStr$ = s$ : ENDCASE  
    ENDSELECT
ENDFUNCTION tStr$

`*******************
`* DATA STATEMENTS *
`*******************
`--ANIMAL NAMES
_AnimalNames:
DATA "Dog","Cat","Mouse","Rat","Snake","Python","Cobra","Cow","Bear","Pig" 
DATA "Horse","Sheep","Ram","Boar","Fish","Bass","Shark","Dolphin","Swordfish","Squirrel"
DATA "Dingo","Wolf","Lynx","Jaguar","Bobcat","Penguin","Sea Lion","Otter","Platypus","Koala"
DATA "Panda","Clam","Scallop","Crab","Lobster","Shrimp","Turtle","Tortoise","Alligator","Crocodile"
DATA "Jellyfish","Plankton","Whale","Sardine","Minnow","Frog","Toad","Tadpole","Iguana","Lizard"
DATA "Fox","Duck","Vulture","Avian","Ursine","Feline","Canine","Bovine","Porcine","Porpoise"
DATA "Salamander","Crustacean","Octopod","Squid","Arachnid","Amoeboid","Insectoid","Reptiloid","Bee","Wasp"
DATA "Ant","Butterfly","Moth","Dragonfly","Cockroach","Beetle","Giraffe","Elephant","Gorilla","Ape"
DATA "Chimpanzee","Inoct","Arachnoid","

`--PLANT NAMES
_PlantNames:
DATA "Ficus"
DATA "Fern"
DATA "Tree"
DATA "Grass"
DATA "Flower"

`--HABITAT LOCATIONS
_HabitatLocales:
DATA "Arctic"
DATA "Temperate"
DATA "Tropical" `tropical = equatorial
DATA "Northern"
DATA "Southern"

`--CLUSTER NAMES (in order)
_ClusterNames:
DATA "Terra","Omega","Centauri","Maris","Hex"
DATA "Hydrax","Clarity","Languish","Quagmire","Zephyr"
DATA "Ralga","Helion","Gantos","Agnar","Apasteron"
DATA "Raissa","Tau Ceti","Outland","Arthuria" ,"Cyl"
DATA "Squelch","Gryphon","Ganymede","Tension","Longwind"
DATA "Ozkahr","Pelegra","Helix","Strengar","Visage"
DATA "Destrux","Plynnth","Torque","Unity","Adargia"
DATA "Dagostin","Telegross","Asteron","Twindown","Kelthous"
DATA "Domino","Utopia","Imperion","Kelsia","Thorax"
DATA "Heilax","Endreign","Galvan","K'lere","Alagnar"

DATA "Dreign","Tefeln","Triad","Spinn","Boronis"
DATA "Xarnia","Dranxar","Kelbeross","Farquahar","Nastren"
DATA "Browden","Moordo","Landaxis","Delia","Klathar"
DATA "Elementis","Barvis","Kalyndar","Ergar","Regel"
DATA "Fulcrum","Markantia","Grid","Wolfgar","Astrix"
DATA "Balanta","Orgiria","Wangahr","Cedron","Dominatus"
DATA "Brilliant","Welgoss","Mineralis","Slan","Asteross"
DATA "Indigo","Burgundia","Landis","Nemesis","Mythrax"
DATA "Genesis","Inertia","Taglios","Aardh","Vestria"
DATA "Galaxis","Heilsport","Galathis","Dehngard","Kentar"

`--DESCRIPTIVE WORDS
_DescWords_Names:
DATA "Roland's","Darrien's","Jasmine","Aarvid's","Aardwight's"
DATA "Thompson's","Barvais'","Chortle's","Bishop's","Smith's"
DATA "Kelbeross","Greene","Jenkins'","Ravencourt's","Atomile's"
DATA "Tagliabue's","White's","Einstein's","Stanislav's","Tesla's"
DATA "Bell's","Growlier's","Slimrod's","Dextron's","Meadows'"
DATA "Anthony's","Gimlet's","K'ravnos'","D'olgron's","K'empos'"
DATA "D'lamnix'","K'nero's","Skleron's","Sklymnyx'","Sorianos'"

_DescWords_Hot:
DATA "Hot","Helio","Burning","Charred","Burnt"
DATA "Tropical","Desert","Red","Crimson","Orange"

_DescWords_Cold:
DATA "Cold","Frigid","Icy","Frosty","Frosted"
DATA "Arctic","Frozen","Blue","Cobalt","Navy"
DATA "Cyan"

_DescWords_Colors:
DATA "Yellow","Green","Violet","Purple","Magenta"
DATA "Gray","Black","White","Lavender","Chartreuse"
DATA "Turquoise","Mauve","Beige","Charcoal","Brown"
DATA "Tan","Burgundy","Sand"

_DescWords_Ages:
DATA "Young","Elder","Old","Yearling","Mature"
DATA "Adolescent","Adult"

_DescWords_Other:
DATA "Droopy","Killer","Strangler","Blushing","Loud"
DATA "Cartoon","Stinging","Poison","Harbor","Floating"
DATA "Morning","Blooming","Huge","Scruff","Scrub"
DATA "Gigantic","Morose","Bloody","Tiny","Undulating"
DATA "Cobalt","Shiny","Glistening","Sagging"