summaryrefslogtreecommitdiff
path: root/npc/merchants/socket_enchant.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/merchants/socket_enchant.txt')
-rw-r--r--npc/merchants/socket_enchant.txt1686
1 files changed, 843 insertions, 843 deletions
diff --git a/npc/merchants/socket_enchant.txt b/npc/merchants/socket_enchant.txt
index 6685231b9..ba61b71e0 100644
--- a/npc/merchants/socket_enchant.txt
+++ b/npc/merchants/socket_enchant.txt
@@ -1,844 +1,844 @@
-//===== eAthena Script =======================================
-//= Socket Enchant
-//===== By: ==================================================
-//= Sousuke_PL
-//===== Current Version: =====================================
-//= 0.3
-//===== Compatible With: =====================================
-//= eAthena SVN
-//===== Description: =========================================
-//= item loses all element refinement and upgrades but
-//= cards too?
-//===== Additional Comments: =================================
-//= 0.1a added missing L_No: to 2 funcs [Lupus]
-//= 0.1b Removed duplicates [Toms]
-//= 0.2 Added missing next;'s [Evera]
-//= 0.3 Fixed Zweihander[+] id [Lupus]
-//============================================================
-
-
-lhz_in02.gat,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,50; //success rate
- set @addprice,200000;
- set @itemup,1010;
- set @itemupiece,10;
- set @itemupname$,"10 Phracon";
- callfunc "addslot";
-
-}
-
-function script f_weapon_b {
-
- set @rateit,25; //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,10; //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,10; //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,10; //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,4; //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,4; //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,50; //success rate
- set @addprice,200000;
- set @itemup,999;
- set @itemupiece,3;
- set @itemupname$,"3 Steel";
- callfunc "addslot";
-
-}
-
-function script f_armor_b {
-
- set @rateit,25; //success rate
- set @addprice,250000;
- set @itemup,999;
- set @itemupiece,5;
- set @itemupname$,"5 Steel";
- callfunc "addslot";
-
-}
-
-function script f_armor_b2 {
-
- set @rateit,25; //success rate
- set @addprice,300000;
- set @itemup,999;
- set @itemupiece,5;
- set @itemupname$,"5 Steel";
- callfunc "addslot";
-
-}
-
-function script f_armor_a {
-
- set @rateit,10; //success rate
- set @addprice,300000;
- set @itemup,985;
- set @itemupiece,1;
- set @itemupname$,"1 Elunium";
- callfunc "addslot";
-
-}
-
-function script f_armor_a2 {
-
- set @rateit,10; //success rate
- set @addprice,400000;
- set @itemup,985;
- set @itemupiece,1;
- set @itemupname$,"1 Elunium";
- callfunc "addslot";
-
-}
-
-function script f_armor_s {
-
- set @rateit,4; //success rate
- set @addprice,1000000;
- set @itemup,985;
- set @itemupiece,2;
- set @itemupname$,"2 Elunium";
- callfunc "addslot";
-
-}
-
-function script f_armor_s2 {
-
- set @rateit,4; //success rate
- set @addprice,2000000;
- set @itemup,985;
- set @itemupiece,2;
- set @itemupname$,"2 Elunium";
- callfunc "addslot";
-
-}
-
-
-prt_in.gat,33,70,5 duplicate(Socket Enchant) Socket Enchant#2 84
-payon.gat,140,151,5 duplicate(Socket Enchant) Socket Enchant#3 84
+//===== eAthena Script =======================================
+//= Socket Enchant
+//===== By: ==================================================
+//= Sousuke_PL
+//===== Current Version: =====================================
+//= 0.3
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: =========================================
+//= item loses all element refinement and upgrades but
+//= cards too?
+//===== Additional Comments: =================================
+//= 0.1a added missing L_No: to 2 funcs [Lupus]
+//= 0.1b Removed duplicates [Toms]
+//= 0.2 Added missing next;'s [Evera]
+//= 0.3 Fixed Zweihander[+] id [Lupus]
+//============================================================
+
+
+lhz_in02.gat,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,50; //success rate
+ set @addprice,200000;
+ set @itemup,1010;
+ set @itemupiece,10;
+ set @itemupname$,"10 Phracon";
+ callfunc "addslot";
+
+}
+
+function script f_weapon_b {
+
+ set @rateit,25; //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,10; //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,10; //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,10; //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,4; //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,4; //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,50; //success rate
+ set @addprice,200000;
+ set @itemup,999;
+ set @itemupiece,3;
+ set @itemupname$,"3 Steel";
+ callfunc "addslot";
+
+}
+
+function script f_armor_b {
+
+ set @rateit,25; //success rate
+ set @addprice,250000;
+ set @itemup,999;
+ set @itemupiece,5;
+ set @itemupname$,"5 Steel";
+ callfunc "addslot";
+
+}
+
+function script f_armor_b2 {
+
+ set @rateit,25; //success rate
+ set @addprice,300000;
+ set @itemup,999;
+ set @itemupiece,5;
+ set @itemupname$,"5 Steel";
+ callfunc "addslot";
+
+}
+
+function script f_armor_a {
+
+ set @rateit,10; //success rate
+ set @addprice,300000;
+ set @itemup,985;
+ set @itemupiece,1;
+ set @itemupname$,"1 Elunium";
+ callfunc "addslot";
+
+}
+
+function script f_armor_a2 {
+
+ set @rateit,10; //success rate
+ set @addprice,400000;
+ set @itemup,985;
+ set @itemupiece,1;
+ set @itemupname$,"1 Elunium";
+ callfunc "addslot";
+
+}
+
+function script f_armor_s {
+
+ set @rateit,4; //success rate
+ set @addprice,1000000;
+ set @itemup,985;
+ set @itemupiece,2;
+ set @itemupname$,"2 Elunium";
+ callfunc "addslot";
+
+}
+
+function script f_armor_s2 {
+
+ set @rateit,4; //success rate
+ set @addprice,2000000;
+ set @itemup,985;
+ set @itemupiece,2;
+ set @itemupname$,"2 Elunium";
+ callfunc "addslot";
+
+}
+
+
+prt_in.gat,33,70,5 duplicate(Socket Enchant) Socket Enchant#2 84
+payon.gat,140,151,5 duplicate(Socket Enchant) Socket Enchant#3 84
morocc.gat,51,41,5 duplicate(Socket Enchant) Socket Enchant#4 84 \ No newline at end of file
generated by cgit v1.2.3-70-g09d2 (git 2.46.0) at 2024-11-11 13:39:59 +0000