rathena/npc/merchants/socket_enchant.txt

//===== 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