Author Topic: A Script for PCRPG  (Read 3036 times)

0 Members and 1 Guest are viewing this topic.

l33tnewbie

  • Goblin Pup
  • *
  • Posts: 33
  • Reputation: +0/-0
A Script for PCRPG
« on: August 9, 2004 07:46 pm CDT »
to active the menu, its ctrl f

bindCommand(keyboard0, make, control, "f", TO, "Menu::Display(PCRPGMain);");

function WeaponInfo(%item){say(0, "#w " @ %item);}


$SmithCombo[1] = "Keldrinite 1 LongSword 1"; $smithcomboresult[1] = "KeldriniteLS";
$SmithCombo[2] = "ElvenBow 1 CompositeBow 1 Quartz 3"; $SmithComboResult[2] = "AeolusWing";
$SmithCombo[3] = "SmallRock 1 Quartz 1"; $SmithComboResult[3] = "StoneFeather";
$SmithCombo[4] = "Knife 1 Quartz 1"; $SmithComboResult[4] = "MetalFeather";
$SmithCombo[5] = "Dagger 1 Quartz 1 Granite 2"; $SmithComboResult[5] = "Talon";
$SmithCombo[6] = "Dagger 2 Jade 2 Quartz 4"; $SmithComboResult[6] = "CeraphumsFeather";
$SmithCombo[7] = "Club 1 SkeletonBone 1 Granite 3"; $SmithComboResult[7] = "BoneClub";
$SmithCombo[8] = "SpikedClub 1 SkeletonBone 2 Granite 5"; $SmithComboResult[8] = "SpikedBoneClub";
$SmithCombo[9] = "LightRobe 1 ApprenticeRobe 1 EnchantedStone 5"; $SmithComboResult[9] = "FineRobe";
$SmithCombo[10] = "Keldrinite 2 FullPlateArmor 1 Gold 5 Emerald 5 Diamond 5 EnchantedStone 5"; $SmithComboResult[10] = "KeldrinArmor";
$SmithCombo[11] = "DragonScale 5 Diamond 5 Ruby 3"; $SmithComboResult[11] = "DragonMail";
$SmithCombo[12] = "DragonScale 3 Ruby 2"; $SmithComboResult[12] = "DragonShield";
$SmithCombo[13] = "AdvisorRobe 1 Topaz 2 EnchantedStone 4"; $SmithComboResult[13] = "ElvinRobe";
$SmithCombo[14] = "LongStaff 1 Granite 4 Turquoise 2"; $SmithComboResult[14] = "JusticeStaff";
$SmithCombo[15] = "FullPlateArmor 1 Titainium 300 Iron 10 Nickel 3 LeatherArmor 1"; $SmithComboResult[15] = "TriPlateArmor";
$SmithCombo[16] = "Iron 8 Nickel 5 LeatherArmor 1"; $SmithComboResult[16] = "SteelBandBoots";
$SmithCombo[17] = "Silver 5 Iron 1 LeatherArmor 1"; $SmithComboResult[17] = "SilvertoneBoots";
$SmithCombo[18] = "Silver 7 Iron 2 LeatherArmor 1"; $SmithComboResult[18] = "SilvertoneHelm";
$SmithCombo[19] = "Titanium 2 LeatherArmor 1"; $SmithComboResult[19] = "TitaniumBracedBoots";
$SmithCombo[20] = "Silver 4 Iron 1 LeatherArmor 1"; $SmithComboResult[20] = "SilvertoneBracers";
$SmithCombo[21] = "Silver 2 Iron 1 LeatherArmor 1"; $SmithComboResult[21] = "SilvertoneGauntlets";
$SmithCombo[22] = "Iron 1 Nickel 1 LeatherArmor 1"; $SmithComboResult[22] = "FingerlessGloves";
$SmithCombo[23] = "Claymore 1 Halberd 1 LeatherArmor 1"; $SmithComboResult[23] = "AnchetsSword";

function SmithComboCPA(%num){
Client::centerPrint("<jc><f2>"@ $SmithCombo[%num] @" = "@ $smithComboResult[%num], 1);
Schedule("Client::centerPrint(\"\", 1);", 5);
}

Menu::New(PCRPGMain, "PCRPG Main Menu");
   Menu::AddChoice(PCRPGMain, "wWeapons Info", "Menu::Display(WeaponsInfoMenu);");
   Menu::AddChoice(PCRPGMain, "mSpells Info", "Menu::Display(SpellsInfoMenu);");
   Menu::AddChoice(PCRPGMain, "sSmithing Combos", "Menu::Display(SmithCombos);");
   Menu::AddChoice(PCRPGMain, "aArmor Info", "Menu::Display(ArmorsInfoMenu);");
   Menu::AddChoice(PCRPGMain, "rRobes Info", "Menu::Display(RobesInfoMenu);");
   Menu::AddChoice(PCRPGMain, "gNew Accessories", "Menu::Display(SAInfoMenu);");
   Menu::AddChoice(PCRPGMain, "bBow Ammunition", "Menu::Display(BowAmmoMenu);");
   Menu::AddChoice(PCRPGMain, "qLeave Menu", "");
Menu::New(WeaponsInfoMenu, "Weapons Info Menu");
   Menu::AddChoice(WeaponsInfoMenu, "sSlashing Weapons", "Menu::Display(WeaponsInfoSlashing);");
   Menu::AddChoice(WeaponsInfoMenu, "pPercing Weapons", "Menu::Display(WeaponsInfoPercing);");
   Menu::AddChoice(WeaponsInfoMenu, "bBludgeing Weapons", "Menu::Display(WeaponsInfoBludgeing);");
   Menu::AddChoice(WeaponsInfoMenu, "aArchery Weapons", "Menu::Display(WeaponsInfoArchery);");
   Menu::AddChoice(WeaponsInfoMenu, "rRusties", "Menu::Display(WeaponsInfoRusties);");
   Menu::AddChoice(WeaponsInfoMenu, "xMain Menu", "Menu::Display(PCRPGMain);");
Menu::New(WeaponsInfoSlashing, "Slashing Weapons Info Menu");
   Menu::AddChoice(WeaponsInfoSlashing, "1Hatchet", "WeaponInfo(hatchet);");
   Menu::AddChoice(WeaponsInfoSlashing, "2Broad Sword", "WeaponInfo(broadsword);");
   Menu::AddChoice(WeaponsInfoSlashing, "3War Axe", "WeaponInfo(waraxe);");
   Menu::AddChoice(WeaponsInfoSlashing, "4Long Sword", "WeaponInfo(longsword);");
   Menu::AddChoice(WeaponsInfoSlashing, "5Battle Axe", "WeaponInfo(battleaxe);");
   Menu::AddChoice(WeaponsInfoSlashing, "6Bastard Sword", "WeaponInfo(bastardsword);");
   Menu::AddChoice(WeaponsInfoSlashing, "7Halberd", "WeaponInfo(halberd);");
   Menu::AddChoice(WeaponsInfoSlashing, "8Claymore", "WeaponInfo(Claymore);");
   Menu::AddChoice(WeaponsInfoSlashing, "9Anchets Sword", "WeaponInfo(anchetssword);");
   Menu::AddChoice(WeaponsInfoSlashing, "xWeapons Info Menu", "Menu::Display(WeaponsInfoMenu);");
Menu::New(WeaponsInfoPercing, "Percing Weapons Info Menu");
   Menu::AddChoice(WeaponsInfoPercing, "1PickAxe", "WeaponInfo(PickAxe);");
   Menu::AddChoice(WeaponsInfoPercing, "2Knife", "WeaponInfo(knife);");
   Menu::AddChoice(WeaponsInfoPercing, "3Dagger", "WeaponInfo(dagger);");
   Menu::AddChoice(WeaponsInfoPercing, "4Short Sword", "WeaponInfo(shortsword);");
   Menu::AddChoice(WeaponsInfoPercing, "5Spear", "WeaponInfo(spear);");
   Menu::AddChoice(WeaponsInfoPercing, "6Gladius", "WeaponInfo(gladius);");
   Menu::AddChoice(WeaponsInfoPercing, "7Trident", "WeaponInfo(trident);");
   Menu::AddChoice(WeaponsInfoPercing, "8Rapier", "WeaponInfo(rapier);");
   Menu::AddChoice(WeaponsInfoPercing, "9Awl Pike", "WeaponInfo(awlpike);");
   Menu::AddChoice(WeaponsInfoPercing, "xWeapons Info Menu", "Menu::Display(WeaponsInfoMenu);");
Menu::New(WeaponsInfoBludgeing, "Bludgeing Weapons Info Menu");
   Menu::AddChoice(WeaponsInfoBludgeing, "1Club", "WeaponInfo(club);");
   Menu::AddChoice(WeaponsInfoBludgeing, "2Bone Club", "WeaponInfo(boneclub);");
   Menu::AddChoice(WeaponsInfoBludgeing, "3Spiked Club", "WeaponInfo(spikedclub);");
   Menu::AddChoice(WeaponsInfoBludgeing, "4Mace", "WeaponInfo(mace);");
   Menu::AddChoice(WeaponsInfoBludgeing, "5Hammer Pick", "WeaponInfo(hammerpick);");
   Menu::AddChoice(WeaponsInfoBludgeing, "6Spiked Bone Club", "WeaponInfo(spikedboneclub);");
   Menu::AddChoice(WeaponsInfoBludgeing, "7War Hammer", "WeaponInfo(warhammer);");
   Menu::AddChoice(WeaponsInfoBludgeing, "8War Maul", "WeaponInfo(warmaul);");
   Menu::AddChoice(WeaponsInfoBludgeing, "xWeapons Info Menu", "Menu::Display(WeaponsInfoMenu);");
Menu::New(WeaponsInfoArchery, "Archery Weapons Info Menu");
   Menu::AddChoice(WeaponsInfoArchery, "1Sling", "WeaponInfo(sling);");
   Menu::AddChoice(WeaponsInfoArchery, "2Short Bow", "WeaponInfo(shortbow);");
   Menu::AddChoice(WeaponsInfoArchery, "3Light Crossbow", "WeaponInfo(lightcrossbow);");
   Menu::AddChoice(WeaponsInfoArchery, "4Long Bow", "WeaponInfo(longbow);");
   Menu::AddChoice(WeaponsInfoArchery, "5Composite Bow", "WeaponInfo(compositebow);");
   Menu::AddChoice(WeaponsInfoArchery, "6Repeating Crossbow", "WeaponInfo(repeatingcrossbow);");
   Menu::AddChoice(WeaponsInfoArchery, "7Elven Bow", "WeaponInfo(elvenbow);");
   Menu::AddChoice(WeaponsInfoArchery, "8Kails Bow", "WeaponInfo(kailsbow);");
   Menu::AddChoice(WeaponsInfoArchery, "9Aeolus Wing", "WeaponInfo(aeoluswing);");
   Menu::AddChoice(WeaponsInfoArchery, "0Heavy Crossbow", "WeaponInfo(heavycrossbow);");
   Menu::AddChoice(WeaponsInfoArchery, "xWeapons Info Menu", "Menu::Display(WeaponsInfoMenu);");
Menu::New(WeaponsInfoRusties, "Rusties Weapons Info Menu");
   Menu::AddChoice(WeaponsInfoRusties, "1Rusty Knife", "WeaponInfo(rknife);");
   Menu::AddChoice(WeaponsInfoRusties, "2Rusty BroadSword", "WeaponInfo(rbroadsword);");
   Menu::AddChoice(WeaponsInfoRusties, "3Rusty LongSword", "WeaponInfo(rlongsword);");
   Menu::AddChoice(WeaponsInfoRusties, "4Rusty PickAxe", "WeaponInfo(rpickaxe);");
   Menu::AddChoice(WeaponsInfoRusties, "5Cracked Short Bow", "WeaponInfo(rshortbow);");
   Menu::AddChoice(WeaponsInfoRusties, "6Cracked Light CrossBow", "WeaponInfo(rlightcrossbow);");
   Menu::AddChoice(WeaponsInfoRusties, "7Rusty ShortSword", "WeaponInfo(rshortsword);");
   Menu::AddChoice(WeaponsInfoRusties, "8Cracked Club", "WeaponInfo(rclub);");
   Menu::AddChoice(WeaponsInfoRusties, "xWeapons Info Menu", "Menu::Display(WeaponsInfoMenu);");
Menu::New(SpellsInfoMenu, "Spells");
   Menu::AddChoice(SpellsInfoMenu, "1Offensive Spells", "Menu::Display(OffensiveSpellsInfoMenu);");
   Menu::AddChoice(SpellsInfoMenu, "2Deffensive Spells", "Menu::Display(DefensiveSpellsInfoMenu);");
   Menu::AddChoice(SpellsInfoMenu, "3Neutral Spells", "Menu::Display(NeutralSpellsInfoMenu);");
   Menu::AddChoice(SpellsInfoMenu, "4Divine Spells", "Menu::Display(DivineSpellsInfoMenu);");
   Menu::AddChoice(SpellsInfoSlashing, "xMain Menu", "Menu::Display(PCRPGMain);");
Menu::New(OffensiveSpellsInfoMenu, "Offensive Spells Page 1 / 2");
   Menu::AddChoice(OffensiveSpellsInfoMenu, "1Thorn", "WeaponInfo(thorn);");
   Menu::AddChoice(OffensiveSpellsInfoMenu, "2Fireball", "WeaponInfo(fireball);");
   Menu::AddChoice(OffensiveSpellsInfoMenu, "3FireBomb", "WeaponInfo(firebomb);");
   Menu::AddChoice(OffensiveSpellsInfoMenu, "4IceSpike", "WeaponInfo(icespike);");
   Menu::AddChoice(OffensiveSpellsInfoMenu, "5IceStorm", "WeaponInfo(icestorm);");
   Menu::AddChoice(OffensiveSpellsInfoMenu, "6IronFist", "WeaponInfo(ironfist);");
   Menu::AddChoice(OffensiveSpellsInfoMenu, "7Cloud", "WeaponInfo(cloud);");
   Menu::AddChoice(OffensiveSpellsInfoMenu, "8Melt", "WeaponInfo(melt);");
   Menu::AddChoice(OffensiveSpellsInfoMenu, "9PowerCloud", "WeaponInfo(powercloud);");
   Menu::AddChoice(OffensiveSpellsInfoMenu, "nNext Page", "Menu::Display(OffensiveSpellsInfoMenu2);");
   Menu::AddChoice(OffensiveSpellsInfoMenu, "xSpells Info Menu", "Menu::Display(SpellsInfoMenu);");
Menu::New(OffensiveSpellsInfoMenu, "Offensive Spells Page 2 / 2");
   Menu::AddChoice(OffensiveSpellsInfoMenu2, "1HellStorm", "WeaponInfo(hellstorm);");
   Menu::AddChoice(OffensiveSpellsInfoMenu2, "2Beam", "WeaponInfo(beam);");
   Menu::AddChoice(OffensiveSpellsInfoMenu2, "3DimensionRift", "WeaponInfo(dimensionrift);");
   Menu::AddChoice(OffensiveSpellsInfoMenu2, "xPrevious Page", "Menu::Display(OffensiveSpellsInfoMenu);");
Menu::New(DefensiveSpellsInfoMenu, "Defensive Spells Page 1 / 2");
   Menu::AddChoice(DefensiveSpellsInfoMenu, "1Heal", "WeaponInfo(thorn);");
   Menu::AddChoice(DefensiveSpellsInfoMenu, "2Shield", "WeaponInfo(shield);");
   Menu::AddChoice(DefensiveSpellsInfoMenu, "3AdvHeal1", "WeaponInfo(advheal1);");
   Menu::AddChoice(DefensiveSpellsInfoMenu, "4AdvShield1", "WeaponInfo(advshield1);");
   Menu::AddChoice(DefensiveSpellsInfoMenu, "5AdvHeal2", "WeaponInfo(advheal2);");
   Menu::AddChoice(DefensiveSpellsInfoMenu, "6AdvShield2", "WeaponInfo(advshield2);");
   Menu::AddChoice(DefensiveSpellsInfoMenu, "7AdvHeal3", "WeaponInfo(advheal3);");
   Menu::AddChoice(DefensiveSpellsInfoMenu, "8AdvShield3", "WeaponInfo(advshield3);");
   Menu::AddChoice(DefensiveSpellsInfoMenu, "9AdvHeal4", "WeaponInfo(advheal4);");
   Menu::AddChoice(DefensiveSpellsInfoMenu, "nNext Page", "Menu::Display(DefensiveSpellsInfoMenu2);");
   Menu::AddChoice(DefensiveSpellsInfoMenu, "xSpells Info Menu", "Menu::Display(SpellsInfoMenu);");
Menu::New(DefensiveSpellsInfoMenu2, "Defensive Spells Page 2 / 2");
   Menu::AddChoice(DefensiveSpellsInfoMenu2, "1AdvShield4", "WeaponInfo(advshield4);");
   Menu::AddChoice(DefensiveSpellsInfoMenu2, "2AdvHeal5", "WeaponInfo(advheal5);");
   Menu::AddChoice(DefensiveSpellsInfoMenu2, "3AdvShield5", "WeaponInfo(advshield5);");
   Menu::AddChoice(DefensiveSpellsInfoMenu2, "4AdvHeal6", "WeaponInfo(advheal6);");
   Menu::AddChoice(DefensiveSpellsInfoMenu2, "5GodlyHeal", "WeaponInfo(godlyheal);");
   Menu::AddChoice(DefensiveSpellsInfoMenu2, "6MassShield", "WeaponInfo(massshield);");
   Menu::AddChoice(DefensiveSpellsInfoMenu2, "7MassHeal", "WeaponInfo(massheal);");
   Menu::AddChoice(DefensiveSpellsInfoMenu2, "8FullHeal", "WeaponInfo(fullheal);");
   Menu::AddChoice(DefensiveSpellsInfoMenu2, "9MassFullHeal", "WeaponInfo(massfullheal);");
   Menu::AddChoice(DefensiveSpellsInfoMenu2, "xBack", "Menu::Display(DefensiveSpellsInfoMenu);");
Menu::New(NeutralSpellsInfoMenu, "Neutral Spells");
   Menu::AddChoice(NeutralSpellsInfoMenu, "1Teleport", "WeaponInfo(teleport);");
   Menu::AddChoice(NeutralSpellsInfoMenu, "2Transport", "WeaponInfo(transport);");
   Menu::AddChoice(NeutralSpellsInfoMenu, "3AdvTransport", "WeaponInfo(advtransport);");
   Menu::AddChoice(NeutralSpellsInfoMenu, "4MassTransport", "WeaponInfo(masstransport);");
   Menu::AddChoice(NeutralSpellsInfoMenu, "5Mimic", "WeaponInfo(mimc);");
   Menu::AddChoice(NeutralSpellsInfoMenu, "6Remort", "WeaponInfo(remort);");
   Menu::AddChoice(NeutralSpellsInfoMenu, "xSpells Info Menu", "Menu::Display(SpellsInfoMenu);");
Menu::New(DivineSpellsInfoMenu, "Divine Spells");
   Menu::AddChoice(DivineSpellsInfoMenu, "1Divine Fury", "WeaponInfo(divinefury);");
   Menu::AddChoice(DivineSpellsInfoMenu, "2Kamikazi", "WeaponInfo(kamikazi);");
   Menu::AddChoice(DivineSpellsInfoMenu, "xSpells Info Page", "Menu::Display(SpellsInfoMenu);");
Menu::New(SmithCombos, "Smith Combos Menu Page 1 / 3");
   Menu::AddChoice(SmithCombos, "1"@ $SmithComboResult[1], "SmithComboCPA(1);");
   Menu::AddChoice(SmithCombos, "2"@ $SmithComboResult[2], "SmithComboCPA(2);");
   Menu::AddChoice(SmithCombos, "3"@ $SmithComboResult[3], "SmithComboCPA(3);");
   Menu::AddChoice(SmithCombos, "4"@ $SmithComboResult[4], "SmithComboCPA(4);");
   Menu::AddChoice(SmithCombos, "5"@ $SmithComboResult[5], "SmithComboCPA(5);");
   Menu::AddChoice(SmithCombos, "6"@ $SmithComboResult[6], "SmithComboCPA(6);");
   Menu::AddChoice(SmithCombos, "7"@ $SmithComboResult[7], "SmithComboCPA(7);");
   Menu::AddChoice(SmithCombos, "8"@ $SmithComboResult[8], "SmithComboCPA(8);");
   Menu::AddChoice(SmithCombos, "9"@ $SmithComboResult[9], "SmithComboCPA(9);");
   Menu::AddChoice(SmithCombos, "nNext Page", "Menu::Display(SmithCombos2);");
   Menu::AddChoice(SmithCombos, "xMain Menu", "Menu::Display(PCRPGMain);");
Menu::New(SmithCombos2, "Smith Combos Menu Page 2 / 3");
   Menu::AddChoice(SmithCombos2, "1"@ $SmithComboResult[10], "SmithComboCPA(10);");
   Menu::AddChoice(SmithCombos2, "2"@ $SmithComboResult[11], "SmithComboCPA(11);");
   Menu::AddChoice(SmithCombos2, "3"@ $SmithComboResult[12], "SmithComboCPA(12);");
   Menu::AddChoice(SmithCombos2, "4"@ $SmithComboResult[13], "SmithComboCPA(13);");
   Menu::AddChoice(SmithCombos2, "5"@ $SmithComboResult[14], "SmithComboCPA(14);");
   Menu::AddChoice(SmithCombos2, "6"@ $SmithComboResult[15], "SmithComboCPA(15);");
   Menu::AddChoice(SmithCombos2, "7"@ $SmithComboResult[16], "SmithComboCPA(16);");
   Menu::AddChoice(SmithCombos2, "8"@ $SmithComboResult[17], "SmithComboCPA(17);");
   Menu::AddChoice(SmithCombos2, "9"@ $SmithComboResult[18], "SmithComboCPA(18);");
   Menu::AddChoice(SmithCombos2, "nNext Page", "Menu::Display(SmithCombos3);");
   Menu::AddChoice(SmithCombos2, "xPrevious Page", "Menu::Display(SmithCombos);");
Menu::New(SmithCombos3, "Smith Combos Menu Page 3 / 3");   
   Menu::AddChoice(SmithCombos3, "1"@ $SmithComboResult[19], "SmithComboCPA(19);");
   Menu::AddChoice(SmithCombos3, "2"@ $SmithComboResult[20], "SmithComboCPA(20);");
   Menu::AddChoice(SmithCombos3, "3"@ $SmithComboResult[21], "SmithComboCPA(21);");
   Menu::AddChoice(SmithCombos3, "4"@ $SmithComboResult[22], "SmithComboCPA(22);");
   Menu::AddChoice(SmithCombos3, "5"@ $SmithComboResult[23], "SmithComboCPA(23);");
   Menu::AddChoice(SmithCombos3, "xPrevious Page", "Menu::Display(SmithCombos2);");
Menu::New(ArmorsInfoMenu, "Armors Menu Page 1 / 2");
   Menu::AddChoice(ArmorsInfoMenu, "1Padded Armor", "WeaponInfo(paddedarmor);");
   Menu::AddChoice(ArmorsInfoMenu, "2Leather Armor", "WeaponInfo(leatherarmor);");
   Menu::AddChoice(ArmorsInfoMenu, "3Studded Leather Armor", "WeaponInfo(studdedleather);");
   Menu::AddChoice(ArmorsInfoMenu, "4Spiked Leather Armor", "WeaponInfo(spikedleather);");
   Menu::AddChoice(ArmorsInfoMenu, "5Hide Armor", "WeaponInfo(hidearmor);");
   Menu::AddChoice(ArmorsInfoMenu, "6Scale Mail", "WeaponInfo(scalemail);");
   Menu::AddChoice(ArmorsInfoMenu, "7Brigandine Armor", "WeaponInfo(brigandinearmor);");
   Menu::AddChoice(ArmorsInfoMenu, "8Chain Mail", "WeaponInfo(chainmail);");
   Menu::AddChoice(ArmorsInfoMenu, "9Ring Mail", "WeaponInfo(ringmail);");
   Menu::AddChoice(ArmorsInfoMenu, "nNext Page", "Menu::Display(ArmorsInfoMenu2);");
   Menu::AddChoice(ArmorsInfoMenu, "xMain Menu", "Menu::Display(PCRPGMain);");
Menu::New(ArmorsInfoMenu2, "New Accessories Page 2 / 2");
   Menu::AddChoice(ArmorsInfoMenu2, "1Banded Mail", "WeaponInfo(bandedmail);");
   Menu::AddChoice(ArmorsInfoMenu2, "2Splint Mail", "WeaponInfo(splintmail);");
   Menu::AddChoice(ArmorsInfoMenu2, "3Bronze Plate Mail", "WeaponInfo(bronzeplatemail);");
   Menu::AddChoice(ArmorsInfoMenu2, "4Blacksilver Plate", "WeaponInfo(blacksilverplate);");
   Menu::AddChoice(ArmorsInfoMenu2, "5Plate Mail", "WeaponInfo(platemail);");
   Menu::AddChoice(ArmorsInfoMenu2, "6Dragon Mail", "WeaponInfo(dragonmail);");
   Menu::AddChoice(ArmorsInfoMenu2, "7Full Plate Mail", "WeaponInfo(fullplatemail);");
   Menu::AddChoice(ArmorsInfoMenu2, "8Keldrin Armor", "WeaponInfo(keldrinarmor;)");
   Menu::AddChoice(ArmorsInfoMenu2, "9Tri-Plate Armor", "WeaponInfo(triplatearmor);");
   Menu::AddChoice(ArmorsInfoMenu2, "xPrevious Page", "Menu::Display(ArmorsInfoMenu);");
Menu::New(RobesInfoMenu, "Robes Menu Page 1 / 1");
   Menu::AddChoice(RobesInfoMenu, "1Light Robe", "WeaponInfo(lightrobe);");
   Menu::AddChoice(RobesInfoMenu, "2Apprentice Robe", "WeaponInfo(apprenticerobe);");
   Menu::AddChoice(RobesInfoMenu, "3Fine Robe", "WeaponInfo(finerobe);");
   Menu::AddChoice(RobesInfoMenu, "4Blood Robe", "WeaponInfo(bloodrobe);");
   Menu::AddChoice(RobesInfoMenu, "5Advisor Robe", "WeaponInfo(advisorrobe);");
   Menu::AddChoice(RobesInfoMenu, "6Elven Robe", "WeaponInfo(elvenrobe);");
   Menu::AddChoice(RobesInfoMenu, "7Robe Of Venjance", "WeaponInfo(robeofvenjance);");
   Menu::AddChoice(RobesInfoMenu, "8Phens Robe", "WeaponInfo(phensrobe);");
   Menu::AddChoice(RobesInfoMenu, "xMain Menu", "Menu::Display(PCRPGMain);");
Menu::New(SAInfoMenu, "New Accessories Page 1 / 2");
   Menu::AddChoice(SAInfoMenu, "1Steel Banded Boots", "WeaponInfo(steelbandboots);");
   Menu::AddChoice(SAInfoMenu, "2Silvertone Boots", "WeaponInfo(silvertoneboots);");
   Menu::AddChoice(SAInfoMenu, "3Titanium Braced Boots", "WeaponInfo(titaniumbracedboots);");
   Menu::AddChoice(SAInfoMenu, "4Blacksilver Ring", "WeaponInfo(blacksilverring);");
   Menu::AddChoice(SAInfoMenu, "5Battle Ring", "WeaponInfo(battlering);");
   Menu::AddChoice(SAInfoMenu, "6Fingerless Gloves", "WeaponInfo(fingerlessgloves);");
   Menu::AddChoice(SAInfoMenu, "7Silvertone Gauntlets", "WeaponInfo(silvertonegauntlets);");
   Menu::AddChoice(SAInfoMenu, "8Leather Bracers", "WeaponInfo(leatherbracers);");
   Menu::AddChoice(SAInfoMenu, "9Milled-Steel Bracers", "WeaponInfo(msteelbracers);");
   Menu::AddChoice(SAInfoMenu, "nNext Page", "Menu::Display(SAInfoMenu2);");
   Menu::AddChoice(SAInfoMenu, "xMain Menu", "Menu::Display(PCRPGMain);");
Menu::New(SAInfoMenu2, "New Accessories Page 2 / 2");
   Menu::AddChoice(SAInfoMenu2, "1Silvertone Bracers", "WeaponInfo(silvertonebracers);");
   Menu::AddChoice(SAInfoMenu2, "2Steel Helmet", "WeaponInfo(steelhelm);");
   Menu::AddChoice(SAInfoMenu2, "3Silvertone Helmet", "WeaponInfo(silvertonehelm);");
   Menu::AddChoice(SAInfoMenu2, "4Dragon Shield", "WeaponInfo(dragonshield);");
   Menu::AddChoice(SAInfoMenu2, "5Heavenly Shield", "WeaponInfo(heavenlyshield);");
   Menu::AddChoice(SAInfoMenu2, "xPrevious Page", "Menu::Display(SAInfoMenu);");
Menu::New(BowAmmoMenu, "New Accessories Page 1 / 2");
   Menu::AddChoice(BowAmmoMenu, "1Small Rock", "WeaponInfo(smallrock);");
   Menu::AddChoice(BowAmmoMenu, "2Basic Arrow", "WeaponInfo(basicarrow);");
   Menu::AddChoice(BowAmmoMenu, "3Sheaf Arrow", "WeaponInfo(sheafarrow);");
   Menu::AddChoice(BowAmmoMenu, "4Bladed Arrow", "WeaponInfo(bladedarrow);");
   Menu::AddChoice(BowAmmoMenu, "5Diamond Arrow", "WeaponInfo(darrow);");
   Menu::AddChoice(BowAmmoMenu, "6Short Quarrel", "WeaponInfo(shortquarrel);");
   Menu::AddChoice(BowAmmoMenu, "7Light Quarrel", "WeaponInfo(lightquarrel);");
   Menu::AddChoice(BowAmmoMenu, "8Heavy Quarrel", "WeaponInfo(heavyquarrel);");
   Menu::AddChoice(BowAmmoMenu, "9Stone Feather", "WeaponInfo(stonefeather);");
   Menu::AddChoice(BowAmmoMenu, "nNext Page", "Menu::Display(BowAmmoMenu2);");
   Menu::AddChoice(BowAmmoMenu, "xMain Menu", "Menu::Display(PCRPGMain);");
Menu::New(BowAmmoMenu2, "New Accessories Page 2 / 2");
   Menu::AddChoice(BowAmmoMenu2, "1Metal Feather", "WeaponInfo(metalfeather);");
   Menu::AddChoice(BowAmmoMenu2, "2Talon", "WeaponInfo(talon);");
   Menu::AddChoice(BowAmmoMenu2, "3Ceraphums Feather", "WeaponInfo(ceraphumsfeather);");
   Menu::AddChoice(BowAmmoMenu2, "xPrevious Page", "Menu::Display(BowAmmoMenu);");

Event::Attach (eventClientMessage, PCRPG::onClientMessage, %client, %msg);
function PCRPG::onClientMessage (%client, %msg){
if(String::findSubStr(%msg, "has died")!=-1)
      {GetRegEXP(%msg);}
if(String::findSubStr(%msg, "party experience!")!=-1)
      {SayPartyEXP(%msg);}
}
function GetRegEXP(%msg){
   $deadguy=getword(%msg, 0);
   $regexp=getword(%msg, 6);
echo($deadguy);
echo($regexp);
schedule("say(0, \"#savecharacter\");" ,2);
         }
function SayPartyEXP(%msg){
   %partyexp = getword(%msg, 3);
   %totalexp = $regexp+%partyexp;
   %LvL = DeusRPG::FetchData("LVL");
   %EXP = DeusRPG::FetchData("EXP");
   %Bottom = %LvL * (200 + 50 * (%LvL - 1));
   %TNL = Floor(%Bottom) - Floor(%EXP);
   %newtnl = (%tnl - %totalexp);
   say(1, $deadguy @" died and I gained " @ $regexp @" and " @ %partyexp @ " exp for a total of "@ %totalexp @"...(" @ %newtnl @ " tnl)");
         }
« Last Edit: December 31, 1969 06:00 pm CST by l33tnewbie »

Sinister

  • Uber Menace
  • *******
  • Posts: 1,125
  • Reputation: +0/-0
    • http://www.stormpages.com/snowmann69
(No subject)
« Reply #1 on: August 9, 2004 07:49 pm CDT »
I'll check it out in game.  After testing it I may add it to my website so it can be gotten by anyone, with your permission of course.  My website will be updated as soon as I get everything organized.  It will have less BS and more content.
« Last Edit: December 31, 1969 06:00 pm CST by Sinister »

l33tnewbie

  • Goblin Pup
  • *
  • Posts: 33
  • Reputation: +0/-0
(No subject)
« Reply #2 on: August 9, 2004 07:52 pm CDT »
lol ok do w/e u want wit it, juz dun say that u made it lol
« Last Edit: December 31, 1969 06:00 pm CST by l33tnewbie »

WolfTones

  • Centurian Lord
  • ********
  • Posts: 2,501
  • Reputation: +0/-0
    • http://www.imafaggot!.com
(No subject)
« Reply #3 on: August 9, 2004 07:53 pm CDT »
Why would we want that when we have duespack!
« Last Edit: December 31, 1969 06:00 pm CST by WolfTones »
Lookieme!  I am a no-talent ass clown!

Sinister

  • Uber Menace
  • *******
  • Posts: 1,125
  • Reputation: +0/-0
    • http://www.stormpages.com/snowmann69
(No subject)
« Reply #4 on: August 9, 2004 07:54 pm CDT »
If I didn't make it, I wouldn't say that I did.  If the idea was mine, then i would claim some credit...like the trackpack idea i had that taurik wrote out...but i give him full props for writing it.

YOU MY BOY TAURIK !!!
« Last Edit: December 31, 1969 06:00 pm CST by Sinister »

l33tnewbie

  • Goblin Pup
  • *
  • Posts: 33
  • Reputation: +0/-0
(No subject)
« Reply #5 on: August 9, 2004 07:55 pm CDT »
this is one based on the stuff of PCRPG, not on base RPG, its not meant to replace deus, juz to help
« Last Edit: December 31, 1969 06:00 pm CST by l33tnewbie »

Sinister

  • Uber Menace
  • *******
  • Posts: 1,125
  • Reputation: +0/-0
    • http://www.stormpages.com/snowmann69
(No subject)
« Reply #6 on: August 9, 2004 07:57 pm CDT »
Yeah, check out my website http://www.stormpages.com/snowmann69   There are several scripts there that are for rpg.  Maybe you can look at them and get some ideas.
« Last Edit: December 31, 1969 06:00 pm CST by Sinister »

Particle

  • Chief Codemonger
  • Administrator
  • Centurian Lord
  • ********
  • Posts: 5,904
  • Reputation: +20/-4
    • Particle's Custom RPG
(No subject)
« Reply #7 on: August 9, 2004 09:13 pm CDT »
commiechat is so much more useful than deus is
« Last Edit: December 31, 1969 06:00 pm CST by Particle »
As a point of history:  Our last server clear was on September 27, 2004.  That is 4963 days ago (13.6 years) as of today.

If you're visiting after a long hiatus and have forgotten your password, try emailing me via the support form at http://www.pcrpg.org.

If your character is from after the 2004 clear but appears to have been deleted or reset, chances are it was caught in one of the inactive account purges over the years.  Backups were made before such events, so try the support form.

Sinister

  • Uber Menace
  • *******
  • Posts: 1,125
  • Reputation: +0/-0
    • http://www.stormpages.com/snowmann69
(No subject)
« Reply #8 on: August 9, 2004 09:17 pm CDT »
Do you have a link for commiechat particle?  I'll check it out and see if it's better or not.  I'll host it too anyway.  I want to have a one stop shop for all your RPG needs.
« Last Edit: December 31, 1969 06:00 pm CST by Sinister »