summaryrefslogtreecommitdiff
path: root/npc/merchants
diff options
context:
space:
mode:
authorSinSloth <SinSloth@54d463be-8e91-2dee-dedb-b68131a5f0ec>2007-05-22 10:23:06 +0000
committerSinSloth <SinSloth@54d463be-8e91-2dee-dedb-b68131a5f0ec>2007-05-22 10:23:06 +0000
commit4a4b4834cd6fa5d81ba2abe7d011dd515aa3bc4a (patch)
tree04ea87d6f67846850d49ce49341dd5245022d14c /npc/merchants
parent99cad4cf6f428612107a59130611e9582309994f (diff)
downloadhercules-4a4b4834cd6fa5d81ba2abe7d011dd515aa3bc4a.tar.gz
hercules-4a4b4834cd6fa5d81ba2abe7d011dd515aa3bc4a.tar.bz2
hercules-4a4b4834cd6fa5d81ba2abe7d011dd515aa3bc4a.tar.xz
hercules-4a4b4834cd6fa5d81ba2abe7d011dd515aa3bc4a.zip
* Updated Socket Enchant NPC to official.
git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@10604 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/merchants')
-rw-r--r--npc/merchants/socket_enchant.txt1315
1 files changed, 493 insertions, 822 deletions
diff --git a/npc/merchants/socket_enchant.txt b/npc/merchants/socket_enchant.txt
index 34fb5d9bf..4404e6f70 100644
--- a/npc/merchants/socket_enchant.txt
+++ b/npc/merchants/socket_enchant.txt
@@ -3,7 +3,7 @@
//===== By: ==================================================
//= Sousuke_PL
//===== Current Version: =====================================
-//= 1.0
+//= 1.1
//===== Compatible With: =====================================
//= eAthena SVN
//===== Description: =========================================
@@ -15,831 +15,502 @@
//= 0.2 Added missing next;'s [Evera]
//= 0.3 Fixed Zweihander[+] id [Lupus]
//= 1.0 Fixed ingredients check [Lupus]
+//= 1.1 Updated to official. [SinSloth]
//============================================================
-
-lhz_in02,281,35,5 script Socket Enchant 84,{
-
- mes "[Socket Enchant]";
- mes "Hello.";
- mes "How can I help you?";
- next;
- menu "Upgrade my item",-,"Nothing",L_Not;
-
- mes "[Socket Enchant]";
- mes "This is weapon or armor?";
- next;
- menu "Weapon",L_Weapon1,"Armor",L_Armor1;
-
-
-//============================================================
-//= Weapon
-//============================================================
-
- L_WaepJump:
- mes "[Socket Enchant]";
- mes "Choose the number of page. Type 1 to 5:";
- next;
- input @weapsite;
- if(@weapsite > 5 || @weapsite < 1) goto L_WaepJump;
-
- if(@weapsite == 1) goto L_Weapon1;
- if(@weapsite == 2) goto L_Weapon2;
- if(@weapsite == 3) goto L_Weapon3;
- if(@weapsite == 4) goto L_Weapon4;
- if(@weapsite == 5) goto L_Weapon5;
-
-
- L_Weapon1:
-
- close2;
- mes "[Socket Enchant]";
- mes "Please choose your item:";
- next;
- menu "Trident[2]",Trident,"Rope[3]",Rope,"Violin[3]",Violin,"Chain[2]",Chain,"Gladius[2]",Gladius,"Gakkung Bow[1]",Gakkung_Bow,"Next",L_Weapon2,"Jump to page...",L_WaepJump;
-
- L_Weapon2:
-
- close2;
- mes "[Socket Enchant]";
- mes "Please choose your item:";
- next;
- menu "Pike[3]",Pike,"Haedonggum[1]",Haedonggum,"Lute[2]",Lute,"Wire Whip[2]",Wire_Whip,"Waghnak[3]",Waghnak,"Arbalest[1]",Arbalest,"Next",L_Weapon3,"Jump to page...",L_WaepJump;
-
- L_Weapon3:
-
- close2;
- mes "[Socket Enchant]";
- mes "Please choose your item:";
- next;
- menu "Hunter Bow",Hunter_Bow,"(Int) Survivor's Rod",Int_Survivors_Rod,"Zweihander",Zweihander,"Flamberge",Flamberge,"Infiltrator",Infiltrator,"Ballista",Ballista,"Next",L_Weapon4,"Jump to page...",L_WaepJump;
-
- L_Weapon4:
-
- close2;
- mes "[Socket Enchant]";
- mes "Please choose your item:";
- next;
- menu "Stunner",Stunner,"Berserk",Berserk,"Claymore",Claymore,"Gungnir",Gungnir,"Poison Knife",Poison_Knife,"Sucsamad",Sucsamad,"Next",L_Weapon5,"Jump to page...",L_WaepJump;
-
- L_Weapon5:
-
- close2;
- mes "[Socket Enchant]";
- mes "Please choose your item:";
- next;
- menu "Ginnungagap",Ginnungagap,"Cutlus",Cutlus,"Crescent Scythe",Crescent_Scythe,"Ice Pick",Ice_Pick,"(Dex) Survivor's Rod",Dex_Survivors_Rod,"Next",L_Weapon1,"Jump to page...",L_WaepJump;
-
-
- Trident:
- set @olditem,1460;
- set @newitem,1461;
- callfunc "f_weapon_c";
-
- Rope:
- set @olditem,1950;
- set @newitem,1951;
- callfunc "f_weapon_c";
-
- Violin:
- set @olditem,1901;
- set @newitem,1902;
- callfunc "f_weapon_c";
-
- Chain:
- set @olditem,1519;
- set @newitem,1520;
- callfunc "f_weapon_b";
-
- Gladius:
- set @olditem,1219;
- set @newitem,1220;
- callfunc "f_weapon_b";
-
- Gakkung_Bow:
- set @olditem,1714;
- set @newitem,1716;
- callfunc "f_weapon_b";
-
- Pike:
- set @olditem,1407;
- set @newitem,1408;
- callfunc "f_weapon_b";
-
- Haedonggum:
- set @olditem,1123;
- set @newitem,1128;
- callfunc "f_weapon_b";
-
- Lute:
- set @olditem,1905;
- set @newitem,1906;
- callfunc "f_weapon_b";
-
- Wire_Whip:
- set @olditem,1954;
- set @newitem,1955;
- callfunc "f_weapon_b";
-
- Waghnak:
- set @olditem,1801;
- set @newitem,1802;
- callfunc "f_weapon_b";
-
- Arbalest:
- set @olditem,1713;
- set @newitem,1715;
- callfunc "f_weapon_b";
-
- Hunter_Bow:
- set @olditem,1718;
- set @newitem,1726;
- callfunc "f_weapon_a";
-
- Int_Survivors_Rod:
- set @olditem,1619;
- set @newitem,1620;
- callfunc "f_weapon_a";
-
- Zweihander:
- set @olditem,1168;
- set @newitem,1171;
- callfunc "f_weapon_a3";
-
- Flamberge:
- set @olditem,1129;
- set @newitem,1149;
- callfunc "f_weapon_a";
-
- Infiltrator:
- set @olditem,1261;
- set @newitem,1266;
- callfunc "f_weapon_a2";
-
- Ballista:
- set @olditem,1722;
- set @newitem,1727;
- callfunc "f_weapon_a";
-
- Stunner:
- set @olditem,1522;
- set @newitem,1532;
- callfunc "f_weapon_a";
-
- Berserk:
- set @olditem,1814;
- set @newitem,1816;
- callfunc "f_weapon_a";
-
- Claymore:
- set @olditem,1163;
- set @newitem,1172;
- callfunc "f_weapon_a";
-
- Gungnir:
- set @olditem,1413;
- set @newitem,1418;
- callfunc "f_weapon_s";
-
- Poison_Knife:
- set @olditem,1239;
- set @newitem,13016;
- callfunc "f_weapon_s";
-
- Sucsamad:
- set @olditem,1236;
- set @newitem,13018;
- callfunc "f_weapon_s";
-
- Ginnungagap:
- set @olditem,13002;
- set @newitem,13019;
- callfunc "f_weapon_s";
-
- Cutlus:
- set @olditem,1135;
- set @newitem,13400;
- callfunc "f_weapon_s";
-
- Crescent_Scythe:
- set @olditem,1466;
- set @newitem,1476;
- callfunc "f_weapon_s";
-
- Ice_Pick:
- set @olditem,1230;
- set @newitem,13017;
- callfunc "f_weapon_s2";
-
- Dex_Survivors_Rod:
- set @olditem,1617;
- set @newitem,1618;
- callfunc "f_weapon_s2";
-
-
-
-//============================================================
-//= Armor
-//============================================================
-
- L_ArmorJump:
- mes "[Socket Enchant]";
- mes "Choose the number of page. Type 1 to 6:";
- next;
- input @armorsite;
- if(@armorsite > 6 || @armorsite < 1) goto L_ArmorJump;
-
- if(@armorsite == 1) goto L_Armor1;
- if(@armorsite == 2) goto L_Armor2;
- if(@armorsite == 3) goto L_Armor3;
- if(@armorsite == 4) goto L_Armor4;
- if(@armorsite == 5) goto L_Armor5;
- if(@armorsite == 6) goto L_Armor6;
-
-
- L_Armor1:
-
- close2;
- mes "[Socket Enchant]";
- mes "Please choose your item:";
- next;
- menu "Mantle",Mantle,"Coat",Coat,"Circlet",Circlet,"Biretta",Biretta,"Mirror Shield",Mirror_Shield,"Chain Mail",Chain_Mail,"Shield",Shield,"Bongun Hat",Bongun_Hat,"Next",L_Armor2,"Jump to page...",L_ArmorJump;
-
- L_Armor2:
-
- close2;
- mes "[Socket Enchant]";
- mes "Please choose your item:";
- next;
- menu "Saint's Robe",Saints_Robe,"Silk Robe",Silk_Robe,"Boots",Boots,"Shoes",Shoes,"Muffler",Muffler,"Guard",Guard,"Buckler",Buckler,"Munak Hat",Munak_Hat,"Next",L_Armor3,"Jump to page...",L_ArmorJump;
-
- L_Armor3:
-
- close2;
- mes "[Socket Enchant]";
- mes "Please choose your item:";
- next;
- menu "Gemmed Sallet",Gemmed_Sallet,"Bucket Hat",Bucket_Hat,"Memory Book",Memory_Book,"Tights",Tights,"Legion Plate Armor",Legion_Plate_Armor,"Full Plate",Full_Plate,"Thief Clothes",Thief_Clothes,"Next",L_Armor4,"Jump to page...",L_ArmorJump;
-
- L_Armor4:
-
- close2;
- mes "[Socket Enchant]";
- mes "Please choose your item:";
- next;
- menu "Greaves",Greaves,"Coif",Coif,"Manteau",Manteau,"Helm",Helm,"Ninja Suit",Ninja_Suit,"Orc Helm",Orc_Helm,"Ancient Cape",Ancient_Cape,"Next",L_Armor5,"Jump to page...",L_ArmorJump;
-
- L_Armor5:
-
- close2;
- mes "[Socket Enchant]";
- mes "Please choose your item:";
- next;
- menu "Monk Hat",Monk_Hat,"Golden Gear",Golden_Gear,"Brooch",Brooch,"Tiara",Tiara,"Sphinx Hat",Sphinx_Hat,"Robe of Cast",Robe_of_Cast,"Earring",Earring,"Next",L_Armor6,"Jump to page...",L_ArmorJump;
-
- L_Armor6:
-
- close2;
- mes "[Socket Enchant]";
- mes "Please choose your item:";
- next;
- menu "Ring",Ring,"Bow Thimble",Bow_Thimble,"Majestic Goat",Majestic_Goat,"Spiky Band",Spiky_Band,"Bone Helm",Bone_Helm,"Corsair",Corsair,"Crown",Crown,"Next",L_Armor1,"Jump to page...",L_ArmorJump;
-
-
- Mantle:
- set @olditem,2307;
- set @newitem,2308;
- callfunc "f_armor_c";
-
- Coat:
- set @olditem,2309;
- set @newitem,2310;
- callfunc "f_armor_c";
-
- Circlet:
- set @olditem,2232;
- set @newitem,2233;
- callfunc "f_armor_c";
-
- Biretta:
- set @olditem,2216;
- set @newitem,2217;
- callfunc "f_armor_c";
-
- Mirror_Shield:
- set @olditem,2107;
- set @newitem,2108;
- callfunc "f_armor_b";
-
- Chain_Mail:
- set @olditem,2314;
- set @newitem,2315;
- callfunc "f_armor_b";
-
- Shield:
- set @olditem,2105;
- set @newitem,2106;
- callfunc "f_armor_b";
-
- Bongun_Hat:
- set @olditem,5046;
- set @newitem,5168;
- callfunc "f_armor_b";
-
- Saints_Robe:
- set @olditem,2325;
- set @newitem,2326;
- callfunc "f_armor_b2";
-
- Silk_Robe:
- set @olditem,2321;
- set @newitem,2322;
- callfunc "f_armor_b2";
-
- Boots:
- set @olditem,2405;
- set @newitem,2406;
- callfunc "f_armor_b2";
-
- Shoes:
- set @olditem,2403;
- set @newitem,2404;
- callfunc "f_armor_b2";
-
- Muffler:
- set @olditem,2503;
- set @newitem,2504;
- callfunc "f_armor_b2";
-
- Guard:
- set @olditem,2101;
- set @newitem,2102;
- callfunc "f_armor_b2";
-
- Buckler:
- set @olditem,2103;
- set @newitem,2104;
- callfunc "f_armor_b2";
-
- Munak_Hat:
- set @olditem,2264;
- set @newitem,5167;
- callfunc "f_armor_a";
-
- Gemmed_Sallet:
- set @olditem,2230;
- set @newitem,2231;
- callfunc "f_armor_a2";
-
- Bucket_Hat:
- set @olditem,5114;
- set @newitem,5120;
- callfunc "f_armor_a2";
-
- Memory_Book:
- set @olditem,2109;
- set @newitem,2121;
- callfunc "f_armor_a2";
-
- Tights:
- set @olditem,2330;
- set @newitem,2331;
- callfunc "f_armor_a2";
-
- Legion_Plate_Armor:
- set @olditem,2341;
- set @newitem,2342;
- callfunc "f_armor_a2";
-
- Full_Plate:
- set @olditem,2316;
- set @newitem,2317;
- callfunc "f_armor_a2";
-
- Thief_Clothes:
- set @olditem,2335;
- set @newitem,2336;
- callfunc "f_armor_a2";
-
- Greaves:
- set @olditem,2411;
- set @newitem,2412;
- callfunc "f_armor_a2";
-
- Coif:
- set @olditem,5092;
- set @newitem,5093;
- callfunc "f_armor_a2";
-
- Manteau:
- set @olditem,2505;
- set @newitem,2506;
- callfunc "f_armor_a2";
-
- Helm:
- set @olditem,2228;
- set @newitem,2229;
- callfunc "f_armor_a2";
-
- Ninja_Suit:
- set @olditem,2337;
- set @newitem,2359;
- callfunc "f_armor_a2";
-
- Orc_Helm:
- set @olditem,2299;
- set @newitem,5157;
- callfunc "f_armor_a2";
-
- Ancient_Cape:
- set @olditem,2507;
- set @newitem,2525;
- callfunc "f_armor_a2";
-
- Monk_Hat:
- set @olditem,2251;
- set @newitem,5158;
- callfunc "f_armor_a2";
-
- Golden_Gear:
- set @olditem,2246;
- set @newitem,5159;
- callfunc "f_armor_a2";
-
- Brooch:
- set @olditem,2605;
- set @newitem,2625;
- callfunc "f_armor_a2";
-
- Tiara:
- set @olditem,2234;
- set @newitem,5164;
- callfunc "f_armor_s2";
-
- Sphinx_Hat:
- set @olditem,5053;
- set @newitem,5166;
- callfunc "f_armor_s";
-
- Robe_of_Cast:
- set @olditem,2343;
- set @newitem,2360;
- callfunc "f_armor_s";
-
- Earring:
- set @olditem,2602;
- set @newitem,2622;
- callfunc "f_armor_s";
-
- Ring:
- set @olditem,2601;
- set @newitem,2621;
- callfunc "f_armor_s";
-
- Bow_Thimble:
- set @olditem,2619;
- set @newitem,2671;
- callfunc "f_armor_s";
-
- Majestic_Goat:
- set @olditem,2256;
- set @newitem,5160;
- callfunc "f_armor_s2";
-
- Spiky_Band:
- set @olditem,2258;
- set @newitem,5161;
- callfunc "f_armor_s2";
-
- Bone_Helm:
- set @olditem,5017;
- set @newitem,5162;
- callfunc "f_armor_s2";
-
- Corsair:
- set @olditem,5019;
- set @newitem,5163;
- callfunc "f_armor_s2";
-
- Crown:
- set @olditem,2235;
- set @newitem,5165;
- callfunc "f_armor_s2";
-
-//============================================================
-//= Other
-//============================================================
-
- L_Not:
- mes "[Socket Enchant]";
- mes "Bye~!";
- close;
-
-}
-
-//============================================================
-//= Functions add slots
-//============================================================
-
-function script addslot {
-
- mes "[Socket Enchant]";
- mes "Upgrade cost "+@addprice+" zeny and ^5533FF"+@itemupname$+"^000000.";
- next;
- mes "[Socket Enchant]";
- mes "Are you sure? Remember that it can fail.";
- mes "Do you want to continue?";
- next;
- menu "Yes",-,"No",L_No;
-
-
- if(countitem(@olditem)<1) goto L_NoItem;
- if(Zeny<@addprice) goto L_NoZeny;
- if(countitem(@itemup)<@itemupiece) goto L_NoItemUp;
-
- delitem @itemup,@itemupiece;
- set Zeny,Zeny-@addprice;
- delitem @olditem,1;
- if(@rateit<rand(1,100))goto L_Fail;
- misceffect 83;
- getitem @newitem,1;
-
- mes "[Socket Enchant]";
- mes "Ok, take your item, Bye.";
- close;
-
-
- L_NoItem:
- mes "[Socket Enchant]";
- mes "You don't have this item.";
- mes "Come back when you get it.";
- close;
-
- L_NoItemUp:
- mes "[Socket Enchant]";
- mes "You don't have all ingridients. Come back when you get it.";
- close;
-
- L_NoZeny:
- mes "[Socket Enchant]";
- mes "You don't have enough money. Come back later.";
- close;
-
- L_Fail:
- misceffect 183;
- mes "[Socket Enchant]";
- mes "Sorry, but i could't upgrade it.";
- close;
-
- L_No:
- mes "[Socket Enchant]";
- mes "Ok, Bye.";
- close;
-
-}
-
-//============================================================
-
-function script addslot2 {
-
- mes "[Socket Enchant]";
- mes "Upgrade cost "+@addprice+" zeny and ^5533FF"+@itemupname1$+"^000000 and ^5533FF"+@itemupname2$+"^000000.";
- next;
- mes "[Socket Enchant]";
- mes "Are you sure? Remember that it can fail.";
- mes "Do you want to continue?";
- next;
- menu "Yes",-,"No",L_No;
-
-
- if(countitem(@olditem)<1) goto L_NoItem;
- if(Zeny<@addprice) goto L_NoZeny;
- if(countitem(@itemup1)<@itemupiece1 || countitem(@itemup2)<@itemupiece2) goto L_NoItemUp;
-
- delitem @itemup1,@itemupiece1;
- delitem @itemup2,@itemupiece2;
- set Zeny,Zeny-@addprice;
- delitem @olditem,1;
- if(@rateit<rand(1,100))goto L_Fail;
- misceffect 83;
- getitem @newitem,1;
-
- mes "[Socket Enchant]";
- mes "Ok, take your item, Bye.";
- close;
-
-
- L_NoItem:
- mes "[Socket Enchant]";
- mes "You don't have this item.";
- mes "Come back when you get it.";
- close;
-
- L_NoItemUp:
- mes "[Socket Enchant]";
- mes "You don't have all ingridients. Come back when you get it.";
- close;
-
- L_NoZeny:
- mes "[Socket Enchant]";
- mes "You don't have enough money. Come back later.";
- close;
-
- L_Fail:
- misceffect 183;
- mes "[Socket Enchant]";
- mes "Sorry, but i could't upgrade it.";
- close;
-
- L_No:
- mes "[Socket Enchant]";
- mes "Ok, Bye.";
- close;
-
-}
-
-
-//============================================================
-//= Functions
-//============================================================
-
-//= Weapon
-
-function script f_weapon_c {
-
- set @rateit,25; //success rate
- set @addprice,200000;
- set @itemup,1010;
- set @itemupiece,10;
- set @itemupname$,"10 Phracon";
- callfunc "addslot";
-
-}
-
-function script f_weapon_b {
-
- set @rateit,20; //success rate
- set @addprice,300000;
- set @itemup1,984;
- set @itemupiece1,2;
- set @itemupname1$,"2 Oridecon";
- set @itemup2,999;
- set @itemupiece2,5;
- set @itemupname2$,"5 Steel";
- callfunc "addslot2";
-
-}
-
-function script f_weapon_a {
-
- set @rateit,15; //success rate
- set @addprice,500000;
- set @itemup1,984;
- set @itemupiece1,2;
- set @itemupname1$,"2 Oridecon";
- set @itemup2,999;
- set @itemupiece2,10;
- set @itemupname2$,"10 Steel";
- callfunc "addslot2";
-
-}
-
-function script f_weapon_a2 {
-
- set @rateit,15; //success rate
- set @addprice,700000;
- set @itemup1,984;
- set @itemupiece1,2;
- set @itemupname1$,"2 Oridecon";
- set @itemup2,999;
- set @itemupiece2,10;
- set @itemupname2$,"10 Steel";
- callfunc "addslot2";
-
-}
-
-function script f_weapon_a3 {
-
- set @rateit,15; //success rate
- set @addprice,800000;
- set @itemup1,984;
- set @itemupiece1,2;
- set @itemupname1$,"2 Oridecon";
- set @itemup2,999;
- set @itemupiece2,10;
- set @itemupname2$,"10 Steel";
- callfunc "addslot2";
-
-}
-
-function script f_weapon_s {
-
- set @rateit,10; //success rate
- set @addprice,1000000;
- set @itemup1,984;
- set @itemupiece1,5;
- set @itemupname1$,"5 Oridecon";
- set @itemup2,999;
- set @itemupiece2,10;
- set @itemupname2$,"10 Steel";
- callfunc "addslot2";
-
-}
-
-function script f_weapon_s2 {
-
- set @rateit,10; //success rate
- set @addprice,2000000;
- set @itemup1,984;
- set @itemupiece1,5;
- set @itemupname1$,"5 Oridecon";
- set @itemup2,999;
- set @itemupiece2,10;
- set @itemupname2$,"10 Steel";
- callfunc "addslot2";
-
-}
-
-//= Armor
-
-function script f_armor_c {
-
- set @rateit,25; //success rate
- set @addprice,200000;
- set @itemup,999;
- set @itemupiece,3;
- set @itemupname$,"3 Steel";
- callfunc "addslot";
-
-}
-
-function script f_armor_b {
-
- set @rateit,20; //success rate
- set @addprice,250000;
- set @itemup,999;
- set @itemupiece,5;
- set @itemupname$,"5 Steel";
- callfunc "addslot";
-
-}
-
-function script f_armor_b2 {
-
- set @rateit,20; //success rate
- set @addprice,300000;
- set @itemup,999;
- set @itemupiece,5;
- set @itemupname$,"5 Steel";
- callfunc "addslot";
-
-}
-
-function script f_armor_a {
-
- set @rateit,15; //success rate
- set @addprice,300000;
- set @itemup,985;
- set @itemupiece,1;
- set @itemupname$,"1 Elunium";
- callfunc "addslot";
-
+payon,140,151,5 script Seiyablem 84,{
+
+ mes "[Seiyablem]";
+ mes "I'm an engineer that specializes in adding Slots to normal Weapons and Armor.";
+ mes "My service fee, the required materials and the chance of success all depend on the specific item I'm working on.";
+ next;
+ mes "[Seiyablem]";
+ mes "Adding Slots may seem simple, but it's far more complicated than it looks.";
+ mes "If you're interested in my service, let me know.";
+ next;
+ switch( select( "Add Slot to Weapon","Add Slot to Armor","Slot Attempt Info","Cancel" ) )
+ {
+ case 1:
+ mes "[Seiyablem]";
+ mes "You want to add a Slot to a weapon?";
+ mes "I categorize weapons by their difficulty in adding a Slot, C Class being easiest and S Class the most difficult.";
+ mes "Which class would you like to try?";
+ set @sockettype,1;
+ next;
+ switch( select( "C Class","B Class","A Class","S Class" ) )
+ {
+ case 1:
+ mes "[Seiyablem]";
+ mes "C Class, eh?";
+ mes "Now, I can only upgrade certain equipment in that class, so please choose one of the following items, so we can try to add a Slot to it.";
+ next;
+ switch( select( "Trident","Rope","Violin" ) )
+ {
+ case 1:
+ callfunc "Func_Socket",1,1460,1461,40,66,200,1010,10;
+
+ case 2:
+ callfunc "Func_Socket",1,1950,1951,40,66,200,1010,10;
+
+ case 3:
+ callfunc "Func_Socket",1,1901,1902,40,66,200,1010,10;
+ }
+
+ case 2:
+ mes "[Seiyablem]";
+ mes "B Class?";
+ mes "Alright, this is the average equipment category.";
+ mes "Please choose the weapon to wich you'd like me to try to add a Slot.";
+ next;
+ switch( select( "Chain","Gladius","Gakkung Bow","Pike","Haedonggum","Lute","Wire","Waghnakh","Arbalest Bow" ) )
+ {
+ case 1:
+ callfunc "Func_Socket",1,1519,1520,40,61,300,1010,10;
+
+ case 2:
+ callfunc "Func_Socket",2,1219,1220,40,61,300,984,1,999,5;
+
+ case 3:
+ callfunc "Func_Socket",2,1714,1716,40,61,300,984,2,999,5;
+
+ case 4:
+ callfunc "Func_Socket",1,1407,1408,40,61,300,1010,10;
+
+ case 5:
+ callfunc "Func_Socket",2,1123,1128,40,61,300,984,2,999,5;
+
+ case 6:
+ callfunc "Func_Socket",1,1905,1906,40,61,300,1011,10;
+
+ case 7:
+ callfunc "Func_Socket",1,1954,1955,40,61,300,1011,10;
+
+ case 8:
+ callfunc "Func_Socket",1,1801,1802,40,61,300,1010,10;
+
+ case 9:
+ callfunc "Func_Socket",2,1713,1715,40,61,300,984,2,999,5;
+ }
+
+ case 3:
+ mes "[Seiyablem]";
+ mes "Ooh, A Class.";
+ mes "This is some high risk territory!";
+ mes "Alright, wich weapon would you like me to try adding a Slot?";
+ next;
+ switch( select( "Hunter Bow","Survivor's Rod(INT)","Zweihander","Flamberge","Infiltrator","Ballista","Stunner","Berserk","Claymore" ) )
+ {
+ case 1:
+ callfunc "Func_Socket",2,1718,1726,40,61,500,984,2,999,10;
+
+ case 2:
+ callfunc "Func_Socket",2,1619,1620,40,61,500,984,2,999,10;
+
+ case 3:
+ callfunc "Func_Socket",2,1168,1171,40,61,800,984,5,999,10;
+
+ case 4:
+ callfunc "Func_Socket",2,1129,1149,40,61,500,984,2,999,10;
+
+ case 5:
+ callfunc "Func_Socket",2,1261,1266,40,61,700,984,5,999,10;
+
+ case 6:
+ callfunc "Func_Socket",2,1722,1727,40,61,500,984,5,999,10;
+
+ case 7:
+ callfunc "Func_Socket",2,1522,1532,40,61,700,984,2,999,10;
+
+ case 8:
+ callfunc "Func_Socket",2,1814,1816,40,61,700,984,5,999,10;
+
+ case 9:
+ callfunc "Func_Socket",2,1163,1172,40,61,700,984,5,999,10;
+ }
+
+ case 4:
+ mes "[Seiyablem]";
+ mes "Whoa, whoa, whoa...";
+ mes "S class? Alright...";
+ mes "It'd be a near miracle if I can actually pull this off.";
+ mes "Okay... Which weapon shall we try adding a Slot to?";
+ next;
+ switch( select( "Gungnir","Poison Knife","Ice Pick","Sucsamad","Ginnungagap","Cutlas","Crescent Scythe","Survivor's Rod(DEX)" ) )
+ {
+ case 1:
+ callfunc "Func_Socket",2,1413,1418,40,51,1000,984,5,999,10;
+
+ case 2:
+ callfunc "Func_Socket",2,1239,13016,40,51,1000,984,5,999,10;
+
+ case 3:
+ callfunc "Func_Socket",2,1230,13017,40,51,1000,984,5,999,10;
+
+ case 4:
+ callfunc "Func_Socket",2,1236,13018,40,51,1000,984,5,999,10;
+
+ case 5:
+ callfunc "Func_Socket",2,13002,13019,40,51,1000,984,5,999,10;
+
+ case 6:
+ callfunc "Func_Socket",2,1135,13400,40,51,1000,984,5,999,10;
+
+ case 7:
+ callfunc "Func_Socket",2,1466,1476,40,51,1000,984,5,999,10;
+
+ case 8:
+ callfunc "Func_Socket",2,1618,1619,40,51,2000,984,5,999,10;
+ }
+ }
+
+ case 2:
+ mes "[Seiyablem]";
+ mes "Armor, you said?";
+ mes "Sure, no problem.";
+ mes "Armor is divided into 4 different classes, depending on the work difficulty.";
+ mes "C Class is the easiest one, and S Class he hardest one.";
+ mes "Which class would you like to try?";
+ set @sockettype,2;
+ next;
+ switch( select( "C Class","B Class","A Class","S Class" ) )
+ {
+ case 1:
+ mes "[Seiyablem]";
+ mes "C Class Armor, eh?";
+ mes "Sounds reasonable.";
+ mes "Which armor would you like to try adding a Slot?";
+ next;
+ switch( select( "Mantle","Coat","Circlet","Biretta" ) )
+ {
+ case 1:
+ callfunc "Func_Socket",1,2307,2308,40,66,200,999,3;
+
+ case 2:
+ callfunc "Func_Socket",1,2309,2310,40,66,200,999,3;
+
+ case 3:
+ callfunc "Func_Socket",1,2232,2233,40,66,200,999,3;
+
+ case 4:
+ callfunc "Func_Socket",1,2216,2217,40,66,200,999,3;
+ }
+
+ case 2:
+ mes "[Seiyablem]";
+ mes "You have chosen average B Class.";
+ mes "So, what kind of armor do you have?";
+ next;
+ switch( select( "Mirror Shield","Chain Mail","Saint Robe","Silk Robe","Boots","Shoes","Muffler","Guard","Buckler","Shield","Bongun Hat" ) )
+ {
+ case 1:
+ callfunc "Func_Socket",1,2107,2108,40,61,250,999,5;
+
+ case 2:
+ callfunc "Func_Socket",1,2314,2315,40,61,250,999,5;
+
+ case 3:
+ callfunc "Func_Socket",1,2326,2327,40,61,300,999,5;
+
+ case 4:
+ callfunc "Func_Socket",1,2321,2322,40,61,300,999,5;
+
+ case 5:
+ callfunc "Func_Socket",1,2405,2406,40,61,300,999,5;
+
+ case 6:
+ callfunc "Func_Socket",1,2403,2404,40,61,300,999,5;
+
+ case 7:
+ callfunc "Func_Socket",1,2503,2504,40,61,300,999,5;
+
+ case 8:
+ callfunc "Func_Socket",1,2101,2102,40,61,300,999,5;
+
+ case 9:
+ callfunc "Func_Socket",1,2103,2104,40,61,300,999,5;
+
+ case 10:
+ callfunc "Func_Socket",1,2105,2106,40,61,250,999,5;
+
+ case 11:
+ callfunc "Func_Socket",1,5046,5168,40,61,250,999,5;
+ }
+
+ case 3:
+ mes "[Seiyablem]";
+ mes "Ooh, A Class.";
+ mes "This is some high risk territory!";
+ mes "Alright, wich armor would you like me to try adding a Slot?";
+ next;
+ switch( select( "Gemmed Sallet","Bucket Hat","Memory Book","Tights","Legion Plate Armor","Full Plate","Thief Clothes","Greaves","Coif","Manteau","Helm","Ninja Suit","Orc Helm","Ancient Cape","Monk Hat","Golden Gear","Brooch","Munak Hat" ) )
+ {
+ case 1:
+ callfunc "Func_Socket",1,2230,2231,40,61,400,985,1;
+
+ case 2:
+ callfunc "Func_Socket",1,5114,5120,40,61,400,985,1;
+
+ case 3:
+ callfunc "Func_Socket",1,2109,2121,40,61,400,985,1;
+
+ case 4:
+ callfunc "Func_Socket",1,2330,2331,40,61,400,985,1;
+
+ case 5:
+ callfunc "Func_Socket",1,2341,2342,40,61,400,985,1;
+
+ case 6:
+ callfunc "Func_Socket",1,2316,2317,40,61,400,985,1;
+
+ case 7:
+ callfunc "Func_Socket",1,2335,2336,40,61,400,985,1;
+
+ case 8:
+ callfunc "Func_Socket",1,2411,2412,40,61,400,985,1;
+
+ case 9:
+ callfunc "Func_Socket",1,5092,5093,40,61,400,985,1;
+
+ case 10:
+ callfunc "Func_Socket",1,2505,2506,40,61,400,985,1;
+
+ case 11:
+ callfunc "Func_Socket",1,2228,2229,40,61,400,985,1;
+
+ case 12:
+ callfunc "Func_Socket",1,2337,2359,40,61,400,985,1;
+
+ case 13:
+ callfunc "Func_Socket",1,2299,5157,40,61,400,985,1;
+
+ case 14:
+ callfunc "Func_Socket",1,2507,2525,40,61,400,985,1;
+
+ case 15:
+ callfunc "Func_Socket",1,2251,5158,40,61,400,985,1;
+
+ case 16:
+ callfunc "Func_Socket",1,2246,5159,40,61,400,985,1;
+
+ case 17:
+ callfunc "Func_Socket",1,2605,2625,40,61,400,985,1;
+
+ case 18:
+ callfunc "Func_Socket",1,2264,5167,40,61,400,985,1;
+ }
+
+ case 4:
+ mes "[Seiyablem]";
+ mes "Um... S Class?";
+ mes "You sure about this?";
+ mes "Alright... Let me know the Armor to which you'd like to add a Slot, and I'll tell what I need to try it.";
+ next;
+ switch( select( "Majestic Goat","Spiky Band","Bone Helm","Corsair","Crown","Tiara","Sphinx Hat","Robe of Cast","Earring","Ring","Bow Thimble" ) )
+ {
+ case 1:
+ callfunc "Func_Socket",1,2256,5160,40,51,2000,985,2;
+
+ case 2:
+ callfunc "Func_Socket",1,2258,5161,40,51,2000,985,2;
+
+ case 3:
+ callfunc "Func_Socket",1,5017,5162,40,51,2000,985,2;
+
+ case 4:
+ callfunc "Func_Socket",1,5019,5163,40,51,2000,985,2;
+
+ case 5:
+ callfunc "Func_Socket",1,2235,5165,40,51,2000,985,2;
+
+ case 6:
+ callfunc "Func_Socket",1,2234,5164,40,51,2000,985,2;
+
+ case 7:
+ callfunc "Func_Socket",1,5063,5166,40,51,1000,985,2;
+
+ case 8:
+ callfunc "Func_Socket",1,2343,2360,40,51,1000,985,2;
+
+ case 9:
+ callfunc "Func_Socket",1,2602,2622,40,51,1000,985,2;
+
+ case 10:
+ callfunc "Func_Socket",1,2601,2621,40,51,1000,985,2;
+
+ case 11:
+ callfunc "Func_Socket",1,2619,2671,40,51,1000,985,2;
+ }
+ }
+
+ case 3:
+ mes "[Seiyablem]";
+ mes "Well, I haven't really refined the art of Slot Addition.";
+ mes "It's so complicated that I'd be lying if I told you that I knew every factor that affected the process.";
+ mes "Still, I do notice a few trends...";
+ next;
+ mes "[Seiyablem]";
+ mes "In some towns, Slot addition attempts are more successful for equipment with fewer upgrades.";
+ mes "In other towns, the opposite is true.";
+ mes "isn't that really peculiar?";
+ next;
+ mes "[Seiyablem]";
+ mes "Oh, theres also something really important that you should know.";
+ mes "If you ask me to add a Slot to something, make sure that you don't have multiples of it in your inventory.";
+ next;
+ mes "[Seiyablem]";
+ mes "Heres an example: if you have a +7 Manteau and a normal Manteau in your inventory, then I will randomly pick on of them for my Slot Addition attempt.";
+ mes "Just remember to be carefull.";
+ next;
+ mes "[Seiyablem]";
+ mes "Again, ^FF0000only carry one of the equipment to wich you want me to add a Slot^000000.";
+ mes "All other equipment with the same name should be placed in your Kafra Storage, got it?";
+ close;
+
+ case 4:
+ mes "[Seiyablem]";
+ mes "Take it easy, adventurer.";
+ mes "If you ever want to try adding a Slot to some of your equipment, come back and let me know.";
+ mes "Seeya~";
+ close;
+ }
}
-
-function script f_armor_a2 {
-
- set @rateit,15; //success rate
- set @addprice,400000;
- set @itemup,985;
- set @itemupiece,1;
- set @itemupname$,"1 Elunium";
- callfunc "addslot";
-
+
+function script Func_Socket {
+
+ switch(getarg(0))
+ {
+ case 1:
+ mes "[Seiyablem]";
+ mes "You want to add a Slot to a " +getitemname(getarg(1))+ "?";
+ mes "Alright, please bring me ^FF0000" +getarg(7)+ " " +getitemname(getarg(6))+ "s^000000, and my^FF0000 " +getarg(5)+",000 zeny^000000 service fee.";
+ mes "Ah, and don't forget to bring that " +getitemname(getarg(1))+ "!";
+ next;
+ break;
+
+ case 2:
+ mes "[Seiyablem]";
+ mes "You want to add a Slot to a " +getitemname(getarg(1))+ "?";
+ mes "Alright, please bring me ^FF0000" +getarg(7)+ " " +getitemname(getarg(6))+ "^000000, ^FF0000" +getarg(9)+ " " +getitemname(getarg(8))+ "^000000 and my^FF0000 " +getarg(5)+",000 zeny^000000 service fee.";
+ mes "Ah, and don't forget to bring that " +getitemname(getarg(1))+ "!";
+ next;
+ break;
+ }
+ if(@sockettype == 1)
+ {
+ mes "[Seiyablem]";
+ mes "I can try to add a slot now if you have the required items and zeny.";
+ mes "However, you should know that there's a chance that I might fail.";
+ mes "Therefore, I need to give you a fair warning...";
+ next;
+ mes "[Seiyablem]";
+ mes "If this attempt to add a Slot to your Weapon fails, then the ^FF0000Weapon^000000, ^FF0000and any Cards compounded to it will be destroyed^000000.";
+ mes "Do you still want to try to add a Slot?";
+ next;
+ }
+ else if(@sockettype == 2)
+ {
+ mes "[Seiyablem]";
+ mes "If you have all the required materials, my zeny service fee and the Armor, then we can go ahead with the Slot Addition attempt.";
+ mes "But before that, I must warn you of the risk.";
+ next;
+ mes "[Seiyablem]";
+ mes "If this attempt to add a Slot to your Armor fails, then the ^FF0000Armor^000000, ^FF0000it's upgrades^000000 ^FF0000and any Cards compounded to it will be destroyed^000000.";
+ mes "Do you still want to try to add a Slot?";
+ next;
+ }
+ switch( select( "Attempt Slot Addition","Cancel" ) )
+ {
+ case 1:
+ switch(getarg(0))
+ {
+ case 1:
+ if((Zeny < getarg(5)*1000) || (countitem(getarg(6)) < getarg(7)) || (!countitem(getarg(1))))
+ {
+ mes "[Seiyablem]";
+ mes "I'd like to go ahead with this Slot Addition attempt, but you're missing a few things.";
+ mes "You sure that you have the equipment, required materials and the zeny?";
+ close;
+ }
+ break;
+
+ case 2:
+ if((Zeny < getarg(5)*1000) || (countitem(getarg(6)) < getarg(7)) || (countitem(getarg(8)) < getarg(9)) || (!countitem(getarg(1))))
+ {
+ mes "[Seiyablem]";
+ mes "I'd like to go ahead with this Slot Addition attempt, but you're missing a few things.";
+ mes "You sure that you have the equipment, required materials and the zeny?";
+ close;
+ }
+ break;
+ }
+ mes "[Seiyablem]";
+ mes "Alright then, let the work begin!";
+ mes "You'd better pray for a successful result.";
+ next;
+ set .@socketrand,rand(1,100);
+ if((.@socketrand > getarg(3)) && (.@socketrand < getarg(4)))
+ {
+ if(getarg(4) == 51) specialeffect 90;
+ else specialeffect 83;
+ mes "[Seiyablem]";
+ mes "Great, it seems to be successful.";
+ mes "It looks pretty well done. Congratulations!";
+ delitem getarg(1),1;
+ delitem getarg(6),getarg(7);
+ if(getarg(0) == 2) delitem getarg(8),getarg(9);
+ set Zeny,Zeny - getarg(5)*1000;
+ getitem getarg(2),1;
+ next;
+ mes "[Seiyablem]";
+ mes "See you again, buddy!";
+ close;
+ }
+ specialeffect 108;
+ mes "[Seiyablem]";
+ mes "Wah! ...I am so sorry, it failed.";
+ mes "However, I am completely innocent.";
+ mes "This is your luck, and it is destined by god, okay?";
+ mes "Don't be so disappointed, and try next time.";
+ delitem getarg(1),1;
+ delitem getarg(6),getarg(7);
+ if(getarg(0) == 2) delitem getarg(8),getarg(9);
+ set Zeny,Zeny - getarg(5)*1000;
+ next;
+ mes "[Seiyablem]";
+ mes "I wish you good luck next time!";
+ close;
+
+ case 2:
+ mes "[Seiyablem]";
+ mes "Need some time to think about it, huh?";
+ mes "Alright, I can understand.";
+ mes "Just remember that life's no fun if you're always playing it safe~";
+ close;
+ }
}
-function script f_armor_s {
-
- set @rateit,10; //success rate
- set @addprice,1000000;
- set @itemup,985;
- set @itemupiece,2;
- set @itemupname$,"2 Elunium";
- callfunc "addslot";
-
-}
-
-function script f_armor_s2 {
-
- set @rateit,10; //success rate
- set @addprice,2000000;
- set @itemup,985;
- set @itemupiece,2;
- set @itemupname$,"2 Elunium";
- callfunc "addslot";
-
+lhz_in02,281,35,5 duplicate(Seiyablem) Seiyablem 84,0,0
+prt_in,33,70,5 duplicate(Seiyablem) Seiyablem 84,0,0
+morocc,51,41,5 duplicate(Seiyablem) Seiyablem 84,0,0
+
+payon,143,143,7 script Young Man#socket 97,{
+
+ mes "[Young Man]";
+ mes "I'm considering becoming a Slotting Engineer.";
+ mes "It's a new field where you can add Slots to equipment, and it'd be cool if I can work in such a lucrative career.";
+ next;
+ mes "[Young Man]";
+ mes "There's a huge element of luck involved in successfully adding Slots from what I can understand.";
+ mes "You fail sometimes, but if you're super lucky, you can add two Slots.";
+ mes "Crazy. Huh?";
+ next;
+ mes "[Young Man]";
+ mes "But don't get too excited.";
+ mes "Only certain equipment can handle the addition of two extra Slots.";
+ mes "There's so much more I have to learn before I can even be an apprentice...";
+ close;
}
-
-prt_in,33,70,5 duplicate(Socket Enchant) Socket Enchant#2 84
-payon,140,151,5 duplicate(Socket Enchant) Socket Enchant#3 84
-morocc,51,41,5 duplicate(Socket Enchant) Socket Enchant#4 84
+lhz_in02,269,33,5 duplicate(Young Man#socket) Young Man 97,0,0
+prt_in,31,57,1 duplicate(Young Man#socket) Young Man 97,0,0
+morocc,60,42,3 duplicate(Young Man#socket) Young Man 97,0,0 \ No newline at end of file