unit toyinfo;
{$O+,F+}

interface

function armorname(x:integer):string;
function weaponname(x:integer):string;

implementation

uses bbskv,bbskern,engine2;

function weaponname(x:integer):string;
const maxweapon=154;
var tstr:string[39];
begin
  if x<0 then begin weaponname:='Invalid Selection'; exit; end;
  case x of
    1  : tstr:='Fingers';
    2  : tstr:='Wesson Oil';
    3  : tstr:='Plastic Applicator';
    4  : tstr:='Crisco Oil';
    5  : tstr:='Dimpled Rubber Thimble';
    6  : tstr:='Baby Oil';
    7  : tstr:='Spanish Fly';
    8  : tstr:='Broom Handle';
    9  : tstr:='Spanish Fly Incense';
    10 : tstr:='Rose Petals';
    11 : tstr:='Vaseline';
    12 : tstr:='Squirt Gun';
    13 : tstr:='Feather Duster';
    14 : tstr:='Nymphos Love Potion';
    15 : tstr:='K-Y Jelly';
    16 : tstr:='Flavoured Jelly';
    17 : tstr:='Musk Oil';
    18 : tstr:='Orgy Oil';
    19 : tstr:='+1 Spanish Fly';
    20 : tstr:='Soft-Core Porno Movie';
    21 : tstr:='Dildo';
    22 : tstr:='Studded Dildo';
    23 : tstr:='Double Ended Dildo';
    24 : tstr:='Jumbo Dildo';
    25 : tstr:='Seductum Love Potion';
    26 : tstr:='Enema Kit';
    27 : tstr:='Singapore Incense';
    28 : tstr:='Keep It Up Creme';
    29 : tstr:='Vibrator';
    30 : tstr:='Flexible Vibrator';
    31 : tstr:='+1 Dildo';
    32 : tstr:='Clitoral Stimulator';
    33 : tstr:='+1 Musk Oil';
    34 : tstr:='Studded Vibrator';
    35 : tstr:='+1 Orgy Oil';
    36 : tstr:='14-inch Anatomical Vibrator';
    37 : tstr:='+1 Ginseng Love Potion';
    38 : tstr:='Hard-Core Porno Movie';
    39 : tstr:='Phallic Powerdriver Bit';
    40 : tstr:='Erectile Love Potion';
    41 : tstr:='Tickle Feather';
    42 : tstr:='Sex Manual';
    43 : tstr:='+1 Studded Dildo';
    44 : tstr:='Silken Whip';
    45 : tstr:='Stainless Steel Vibrator';
    46 : tstr:='Leather Whip';
    47 : tstr:='Cat o'' Nine Tails';
    48 : tstr:='Butt Plug';
    49 : tstr:='+2 Orgy Oil';
    50 : tstr:='Ben-Wa Balls';
    51 : tstr:='Sodomite Incense';
    52 : tstr:='Pocket Pussy';
    53 : tstr:='Double-Penetration Ben-Wa Dildo';
    54 : tstr:='Japanese Hardcore Magazine';
    55 : tstr:='+2 Musk Oil';
    56 : tstr:='Stimuloid Love Potion';
    57 : tstr:='Heavy Duty Enema Kit';
    58 : tstr:='Cat-Skin Glove';
    59 : tstr:='Ivory Vibrator';
    60 : tstr:='Deep-Heat Penetrating Oil';
    61 : tstr:='+1 Double-Ended Dildo';
    62 : tstr:='Rope and Gag';
    63 : tstr:='Grope Suit';
    64 : tstr:='Ben-Wa Cockring';
    65 : tstr:='Uncut Hard-Core Porno Movie';
    66 : tstr:='+1 Sex Manual';
    67 : tstr:='Soft-Core Movie with Subliminals';
    68 : tstr:='+1 Love Potion';
    69 : tstr:='Ben Wa Gel';
    70 : tstr:='Double-Penetration Vibrator';
    71 : tstr:='+2 Dildo';
    72 : tstr:='Bull Dinger Dildo';
    73 : tstr:='Spiral Vibrator';
    74 : tstr:='+2 Musk Oil';
    75 : tstr:='Kama Sutra';
    76 : tstr:='Vibra-Tone Ben Wa Balls';
    77 : tstr:='Danish Hardcore Magazine';
    78 : tstr:='8-inch Tongue Dildo';
    79 : tstr:='Hard-Core Movie with Subliminals';
    80 : tstr:='Pneumatic dildo';
    81 : tstr:='4-inch rectal vibrator';
    82 : tstr:='French Tickler Dildo';
    83 : tstr:='Phallic Drill Bit';
    84 : tstr:='+1 Solid Gold Ben Wa Balls';
    85 : tstr:='Electric Ben Wa Balls';
    86 : tstr:='Mood Dildo';
    87 : tstr:='Oil of Clitoral Smegma';
    88 : tstr:='Sunflower Tickler';
    89 : tstr:='+4 Enema Station';
    90 : tstr:='Xmas-Tree Tickler';
    91 : tstr:='+3 Dildo';
    92 : tstr:='+3 Orgy Oil';
    93 : tstr:='+2 Stimuloid Love Potion';
    94 : tstr:='5-inch rectal vibrator';
    95 : tstr:='+3 XtraThick(tm) Double-Ended Dildo';
    96 : tstr:='Spiral rectal vibrator';
    97 : tstr:='+3 Fatal Attraction Love Potion';
    98 : tstr:='Uncut XXX Movie with Subliminals';
    99 : tstr:='Automatic Grope Suit';
    100: tstr:='Love Potion #9';
    101: tstr:='G-Spot Probe';
    102: tstr:='Mood Jell-O';
    103: tstr:='Electric Tongue Dildo';
    104: tstr:='Ring of Dionysus';
    105: tstr:='Anal Loosening Potion';
    106: tstr:='+1 Illustrated Kama Sutra';
    107: tstr:='Madonna''s Brassiere';
    108: tstr:='Electric Blowjob';
    109: tstr:='6-inch rectal vibrator';
    110: tstr:='Zucchini Dildo';
    111: tstr:='Swedish Hardcore Magazine';
    112: tstr:='+1 Deep-Heat Penetrating Oil';
    113: tstr:='AC/DC Vibrator';
    114: tstr:='+2 Ben-Wa Dildo of Ecstasy';
    115: tstr:='DMSO based Erotic Rubbing Oil';
    116: tstr:='+4 Ecstasy Potion';
    117: tstr:='350 Watt Vibrator';
    118: tstr:='Ring of Nefertiti';
    119: tstr:='350 Watt Studded Vibrator';
    120: tstr:='+2 Zucchini Dildo';
    121: tstr:='Studded Mood Dildo';
    122: tstr:='Slave Potion';
    123: tstr:='440 Volt Three phase Vibrator';
    124: tstr:='Studded 440 Volt Three phase Vibrator';
    125: tstr:='Gas Turbine Powered Vibrator';
    126: tstr:='Hypercolor Mood Dildo';
    127: tstr:='Neural Stimulator';
    128: tstr:='+3 Double Penetration Spiral Dildo';
    129: tstr:='350 Watt Rectal Vibrator';
    130: tstr:='Automatic Erogenizer';
    131: tstr:='Ring of Jezebel';
    132: tstr:='Electrostatic Hypothalamus Stimulator';
    133: tstr:='440 Volt 3-Phase Rectal Vibrator';
    134: tstr:='Gas Turbine Rectal Vibrator';
    135: tstr:='+5 Enema Station with Phallic nozzle';
    136: tstr:='Hermaphrodite Bi-Stimulator';
    137: tstr:='+5 Brassiere of Dolly Parton';
    138: tstr:='+5 Potion of Perpetual Orgasm';
    139: tstr:='Asshole Retractor';
    140: tstr:='Cunt Retractor';
    141: tstr:='+2 Pop-Up Illustrated Kama Sutra';
    142: tstr:='+5 Ring of Aphrodite';
    143: tstr:='7-inch 1600 Watt Rectal Vibrator';
    144: tstr:='+2 French Tickler G-Spot Probe';
    145: tstr:='Zero-Gravity Sex Manual';
    146: tstr:='+3 G-Spot seeking Tongue Dildo';
    147: tstr:='Self Lubricating Spiral Tongue Dildo';
    148: tstr:='Perpetual Grope Suit';
    149: tstr:='Oil of Genital Secretions';
    150: tstr:='Xaviera''s Lipstick';
    151: tstr:='+3 Grope Chassis';
    152: tstr:='Kama Sutra Video';
    153: tstr:='Worf & Troi''s Holodeck Program #69';
    154: tstr:='+7 Automatic Enema Suite';
    155..32767: tstr:='Interactive Kama Sutra Holodeck Sim';
    9999: begin weaponname:='Enchanted Aphrodisiac of the Ghods'; exit; end;
  end;
  weaponname:=tstr;
  if x>154 then weaponname:='+'+int2str(x-maxweapon)+' '+tstr;
end;

function armorname(x:integer):string;
const maxarmor=111;
var tstr:string[39];
begin
  if x<0 then begin armorname:='Invalid Selection'; exit; end;
  case x of
    1  : tstr:='Personality';
    2  : tstr:='Garlic';
    3  : tstr:='Nerds Candy';
    4  : tstr:='Ninja Turtle Undies';
    5  : tstr:='Toe Jam';
    6  : tstr:='Fish Sandwich';
    7  : tstr:='Polyester Pants';
    8  : tstr:='Urine Sample';
    9  : tstr:='Plaid Jacket';
    10 : tstr:='1200 Baud Modem';
    11 : tstr:='"Pepsi Generation" Button';
    12 : tstr:='PC-Board Licence';
    13 : tstr:='Tasteless Fake Tattoo';
    14 : tstr:='Jehovah''s Witness Tracts';
    15 : tstr:='Military Fatigues';
    16 : tstr:='Wine Cooler';
    17 : tstr:='Army Boots';
    18 : tstr:='300 baud modem';
    19 : tstr:='Light Beer';
    20 : tstr:='Cigarettes';
    21 : tstr:='Pet Cactus';
    22 : tstr:='Fluevogs';
    23 : tstr:='Pocket Protector';
    24 : tstr:='Menthol Cigarettes';
    25 : tstr:='Body Odour Spray';
    26 : tstr:='"Bill Gates is My God" Button';
    27 : tstr:='Fake Zits';
    28 : tstr:='Buckley''s Mixture';
    29 : tstr:='Disco 8-Track';
    30 : tstr:='Eau de Locker Room';
    31 : tstr:='Racist Jokes';
    32 : tstr:='Judo Moves';
    33 : tstr:='Nerd Glasses';
    34 : tstr:='Dandruff Powder';
    35 : tstr:='Halitosis Pills';
    36 : tstr:='Urine Soaked Rag';
    37 : tstr:='Jock Strap';
    38 : tstr:='Fake Warts';
    39 : tstr:='110 baud modem';
    40 : tstr:='Cigarillo';
    41 : tstr:='Cigar';
    42 : tstr:='+2 Garlic Breath Additive';
    43 : tstr:='Fake Herpes';
    44 : tstr:='Desensitizing Powder';
    45 : tstr:='P.M.S. Inducement Potion';
    46 : tstr:='"Don''t You Buy No Ugly Truck" Button';
    47 : tstr:='Year-Old "New Warez"';
    48 : tstr:='+1 Eau de Landfill';
    49 : tstr:='Stun Gun';
    50 : tstr:='Marine Corps Recruit Haircut';
    51 : tstr:='Beer Belly Prosthesis';
    52 : tstr:='Boogers';
    53 : tstr:='Vietnam Flashbacks';
    54 : tstr:='Disco Suit';
    55 : tstr:='Swastika Ring';
    56 : tstr:='Fake Head Lice';
    57 : tstr:='Fart Spray';
    58 : tstr:='+2 Eau de Yak Urine';
    59 : tstr:='Baseball Bat';
    60 : tstr:='De-alcoholized Beer';
    61 : tstr:='Soap Scum';
    62 : tstr:='Opera Tickets';
    63 : tstr:='Chastity Belt';
    64 : tstr:='Doberman';
    65 : tstr:='Fecal Sample';
    66 : tstr:='Vomit-In-A-Drum';
    67 : tstr:='Just-Pissed-Your-Pants-Smell Spray';
    68 : tstr:='+3 Eau de Drill Sergeant';
    69 : tstr:='Mace Spray';
    70 : tstr:='Karate Moves';
    71 : tstr:='+2 Pocket Protector of Mass Nerdhood';
    72 : tstr:='Fake Crabs';
    73 : tstr:='+1 Steel Belted Chastity Belt';
    74 : tstr:='+4 Eau de Mildew';
    75 : tstr:='Tasteless Real Tattoo';
    76 : tstr:='Pit Bull';
    77 : tstr:='+1 Potion of Emasculation';
    78 : tstr:='James Last Record';
    79 : tstr:='Zoot Suit';
    80 : tstr:='Insane Asylum Wristband';
    81 : tstr:='Tri-Lambda Frat Jersey';
    82 : tstr:='Rabid Doberman';
    83 : tstr:='Ku Klux Klan membership card';
    84 : tstr:='Shovel Load of Cow Shit';
    85 : tstr:='Foot Odour Spray';
    86 : tstr:='Taser';
    87 : tstr:='+2 Armoured Chastity Belt';
    88 : tstr:='"Hug Me; I''m HIV+" Button';
    89 : tstr:='Swastika Tattoo';
    90 : tstr:='Toilet Bowl Fungus';
    91 : tstr:='+2 Potion of Impotence';
    92 : tstr:='Razor Wire Underpants';
    93 : tstr:='NAMBLA membership card';
    94 : tstr:='Fake Leprosy';
    95 : tstr:='Just-Shit-Your-Pants-Smell Spray';
    96 : tstr:='+5 Eau de Bilge Water';
    97 : tstr:='Rabid Pit Bull';
    98 : tstr:='Ottawa Senators Jersey';
    99 : tstr:='+2 Jock Strap';
    100: tstr:='+3 Titanium Chastity Belt';
    101: tstr:='+3 Bowtie of Nerd Kind';
    102: tstr:='Hammond Organ Club Membership Card';
    103: tstr:='+2 Nerd Glasses with White Tape';
    104: tstr:='Tae Kwon Do Moves';
    105: tstr:='+3 Woody Allen Glasses';
    106: tstr:='+4 Nuclear Hardened Chastity Belt';
    107: tstr:='+3 Potion of Genital Withering';
    108: tstr:='Steel Toed Boots to the Groin';
    109: tstr:='+6 Eau de Toxic Waste';
    110: tstr:='+3 Potion of Chastity';
    111: tstr:='+3 Nerd Glasses of Supreme R0denthood';
    112..32767: tstr:='Tempered Mithrilite Chastity Belt';
    9999: begin tstr:='Accursed Chastity Belt of Demonkind'; exit; end;
  end;
  armorname:=tstr;
  if x>154 then armorname:='+'+int2str(x-maxarmor)+' '+tstr;
end;

begin end.
