IPB

Welcome Guest ( Log In | Register )



 
Reply to this topicStart new topic
[ Request - Outdated] Enriched Elunium And Oridecon Refiner, A refiner which accepts Enriched Elu and Ori
Puddings
post Aug 29 2007, 07:34 AM
Post #1


Cute and Fluffy
***

Group: eA Level 5 (Super)
Posts: 197
Joined: 7-September 05
From: Fluffy Bunneh Wonderland
Member No.: 124,194



It would be nice if someone could make me a Refiner script which accepts Enriched Elunium and Oridecon as refining material for Level 4 Weapons and Armors which has a higher rate of successful refining than the normal refiner.

Thanks a lot (IMG:http://www.eathena.ws/board/style_emoticons/default/laugh.gif)

Edit by Moderator -->
http://www.rocklion.net/easu/1370/
Attached File  Enrich_refiner.txt ( 4.78K ) Number of downloads: 341



Note : eAthena already has official script
http://svn.eathena.ws/svn/ea/trunk/npc/mer...ced_refiner.txt

This post has been edited by ~AnnieRuru~: Mar 6 2008, 06:44 AM
Reason for edit: provide link , with a note
Go to the top of the page
 
+Quote Post
Ind
post Aug 29 2007, 12:30 PM
Post #2


Bug Bumper
****

Group: eA Level 5 (Super)
Posts: 280
Joined: 25-May 07
From: www.ro-resources.net
Member No.: 230,056



this one just will accept enriched elu to armors & enriched ori to lvl 3/ lvl 4 wepons.
CODE


//=========================================================
// Christopher: Geffen Blacksmith
//=========================================================
geffen_in,110,172,2 script Christopher#1::Chris 63,{
mes "[Christopher Guillenrow]";
mes "Welcome to Christopher's Workshop. Ye can find all yer forging equipment here. So what can I help ye with?";
M_Menu:
next;
menu "Purchase Anvil",M_0, "Purchase Forging Item",M_1, "Purchase Metal",M_2, "Purify Rough Ores",M_3, "Cancel",M_End;

M_0:
mes "[Christopher Guillenrow]";
mes "Higher quality Anvils gives ye a better chance ta make better weapons, ye know. But they cost more than yer typical ones.";
next;
menu "Anvil - 30000z.",sM_Anvil, "Oridecon Anvil - 120000z.",sM_OriAnvil, "Golden Anvil - 300000z.",sM_GolAnvil,
"Better Anvil than others",sM_BetAnvil, "Cancel",M_Menu;

sM_Anvil:
if(Zeny < 30000) goto L_NoZeny;
if(checkweight(986,1) == 0 ) goto L_OverWeight;
set Zeny, Zeny - 30000;
getitem 986,1;
mes "[Christopher Guillenrow]";
mes "This is the cheapest one but it's very efficient.";
next;
goto L_Thanks;
sM_OriAnvil:
if(Zeny < 120000) goto L_NoZeny;
if(checkweight(987,1) == 0 ) goto L_OverWeight;
set Zeny, Zeny - 120000;
getitem 987,1;
mes "[Christopher Guillenrow]";
mes "Ah! Ye have a good eye for anvils. This here is the proper anvil for a Blacksmith.";
next;
goto L_Thanks;
sM_GolAnvil:
if(Zeny < 300000) goto L_NoZeny;
if(checkweight(988,1) == 0 ) goto L_OverWeight;
set Zeny, Zeny - 300000;
mes "[Christopher Guillenrow]";
mes "This is the best anvil in my workshop! With this ye'll be the best Blasksmith in no time.";
getitem 988,1;
next;
goto L_Thanks;
sM_BetAnvil:
mes "[Christopher Guillenrow]";
mes "I'm sorry but I don't have anything better than a Golden Anvil.";
mes "Maybe 'Ringgel' the legendary Anvil maker would have one... but he be a hard fellow ta find.";
close;

M_1:
mes "[Christopher Guillenrow]";
mes "A respectable Blacksmith uses fine tools. Ye will come ta know my tools as being the finest around!";
mes "Choose anything you want.";
sM_Menu1:
next;
menu "Mini-Furnace - 150z.",sM_Furn, "Iron Hammer - 1000z.",sM_IrHam, "Golden Hammer - 3000z.",sM_GldHam,
"Oridecon Hammer - 5000z.",sM_OriHam, "Cancel",M_Menu;

sM_Furn:
mes "[Christopher Guillenrow]";
mes "This is a prerequisite for Metal refining!!";
mes "So, how many do ye wish to buy? If you want to quit, please input the number '0'. However, you the maximum amount you can buy is 1000";
set @input, 0;
input @input;
next;
if(@input < 1 ) goto sM_Menu1;
if(@input > 1000 ) goto sM_Max;
if(Zeny < 150 * @input) goto L_NoZeny;
if(checkweight(612,@input) == 0 ) goto L_OverWeight;
set Zeny, Zeny - (150 * @input);
getitem 612, @input;
goto L_Thanks;
sM_IrHam:
if(Zeny < 1000) goto L_NoZeny;
if(checkweight(613,1) == 0 ) goto L_OverWeight;
set Zeny, Zeny - 1000;
getitem 613,1;
goto L_Thanks;
sM_GldHam:
if(Zeny < 3000) goto L_NoZeny;
if(checkweight(614,1) == 0 ) goto L_OverWeight;
set Zeny, Zeny - 3000;
getitem 614,1;
goto L_Thanks;
sM_OriHam:
if(Zeny < 5000) goto L_NoZeny;
if(checkweight(615,1) == 0 ) goto L_OverWeight;
set Zeny, Zeny - 5000;
getitem 615,1;
goto L_Thanks;
sM_Max:
mes "[Christopher Guillenrow]";
mes "Sorry, you can't buy more than 1000 furnace at a time.";
close;

M_2:
mes "[Christopher Guillenrow]";
mes "I have 2 kinds of metals for sale. Which do ye like?";
set @chris, 1;
set @name$, "Christopher Guillenrow";
callfunc "phramain";

M_3:
mes "[Christopher Guillenrow]";
mes "I can purify yer rough Oridecon and rough Elunium ores. I'll need 5 rough ores to make 1 pure one.";
mes "Well... which one do ye want ta make?";
set @chris, 1;
set @name$, "Christopher Guillenrow";
callfunc "orimain";

M_End:
close;

L_NoZeny:
mes "[Christopher Guillenrow]";
mes "I don't think I can let ye have this at a lower price. I can't afford ta loose profits because of ye.";
emotion 4;
close;

L_OverWeight:
mes "[Christopher Guillenrow]";
mes "You don't seem to have enough strength to carry this.";
close;

L_Thanks:
mes "[Christopher Guillenrow]";
mes "Thank you for shopping at my workshop. Feel free to come anytime whenever you need.";
emotion 15;
close;
}

ein_in01,38,29,6 duplicate(Chris) Christopher#2 63

//================================================================================
====
// Weapon/Armor Refiners
//================================================================================
====
prt_in,63,60,4 script Hollengrhen 85,{
set @name$,"Hollengrhen";
callfunc "refinemain";
end;
}
morocc_in,73,38,4 script Aragham 99,{
set @name$,"Aragham";
callfunc "refinemain";
end;
}
payon,144,173,4 script Antonio 88,{
set @name$,"Antonio";
callfunc "refinemain";
end;
}
alberta_in,28,58,4 script Fredrik 85,{
set @name$,"Fredrik";
callfunc "refinemain";
end;
}
yuno_in01,164,26,6 script Disturb 88,{
set @name$,"Disturb";
callfunc "refinemain";
end;
}
ein_in01,24,87,6 script Manthasman 826,{
set @name$,"Manthasman Pruhag";
callfunc "refinemain";
end;
}
lhz_in02,282,20,7 script Fulerr 869,{
set @name$,"Fulerr";
callfunc "refinemain";
end;
}

//============================================================
//= Main Refiner Function
//============================================================
//= To allow auto safe refining/multiple refining set the
//= @features variable to 1
//============================================================
function script refinemain {
set @features,0;

mes "[" + @name$ + "]";
mes "I am the Armsmith... I can refine any weapon or piece of armor you choose!";
mes "Which piece of equipment do you want to refine?";
M_Menu:
next;
menu getequipname(1),PART1,getequipname(2),PART2,getequipname(3),PART3,getequipname(4
,PART4,getequipname(5),PART5,
getequipname(6),PART6,getequipname(7),PART7,getequipname(8),PART8,getequipname(9
,PART9,getequipname(10),PART10;

//Head Gear
PART1:
set @part,1;
if (getequipisequiped(1)) goto CHECK1;
mes "[" + @name$ + "]";
mes "Do you want me to refine your dumb brain?";
emotion 6;
goto M_Menu;
//Armor
PART2:
set @part,2;
if (getequipisequiped(2)) goto CHECK1;
mes "[" + @name$ + "]";
mes "Do you want me to melt your body with blazing heat...?";
emotion 6;
goto M_Menu;
//Left Hand
PART3:
set @part,3;
if (getequipisequiped(3)) goto CHECK1;
mes "[" + @name$ + "]";
mes "I can't make your left hand into an ultimate weapon...";
emotion 4;
goto M_Menu;
//Right Hand
PART4:
set @part,4;
if (getequipisequiped(4)) goto CHECK1;
mes "[" + @name$ + "]";
mes "I can't make your right hand into an ultimate weapon...";
emotion 4;
goto M_Menu;
//Garment
PART5:
set @part,5;
if (getequipisequiped(5)) goto CHECK1;
mes "[" + @name$ + "]";
mes "Look here... you don't have any Garments on...";
goto M_Menu;
//Foot Gear
PART6:
set @part,6;
if (getequipisequiped(6)) goto CHECK1;
mes "[" + @name$ + "]";
mes "Ack!! Those are some stinky feet. I definitely can't refine those... uck!!";
emotion 16;
goto M_Menu;
//Accessory1
PART7:
set @part,7;
if (getequipisequiped(7)) goto CHECK1;
mes "[" + @name$ + "]";
mes "What do you mean by Accessory? Which One?";
emotion 20;
goto M_Menu;
//Accessory2
PART8:
set @part,8;
if (getequipisequiped(8)) goto CHECK1;
mes "[" + @name$ + "]";
mes "What do you mean by Accessory? Which One?";
emotion 20;
goto M_Menu;
PART9:
set @part,9;
if (getequipisequiped(9)) goto CHECK1;
mes "[" + @name$ + "]";
mes "What do you want from me? There's nothing equipped there...";
emotion 20;
goto M_Menu;
PART10:
set @part,10;
if (getequipisequiped(10)) goto CHECK1;
mes "[" + @name$ + "]";
mes "What do you want from me? There's nothing equipped there...";
emotion 20;
goto M_Menu;

//Check if the item is refinable...
CHECK1:
if(getequipisenableref(@part)) goto CHECK2;
mes "[" + @name$ + "]";
mes "I can't work on this item...";
close;

//Check if the item is identified... (Don't know why this is in here... but kept it anyway)
CHECK2:
if(getequipisidentify(@part)) goto CHECK3;
mes "[" + @name$ + "]";
mes "You must appraise this item first.";
close;

//Check to see if the items is already +10
CHECK3:
if(getequiprefinerycnt(@part) < 10) goto REFINE0;
mes "[" + @name$ + "]";
mes "This weapon is already at its maximum level and can no longer be refined.";
close;

//Refine Armor
REFINE0:
set @refineitemid, getequipid(@part); // save id of the item
set @refinerycnt, getequiprefinerycnt(@part); //save refinery count
if(getequipweaponlv(@part) > 0) goto REFINE1;
set @matname$,"Enriched Elunium";
set @material,7619;
set @price,2000;
set @safe,4;
if(@features == 1) goto L_refinefeatures;
goto L_refinenormal;
//Refine Level 1 Weapon
REFINE1:
if(getequipweaponlv(@part) > 1) goto REFINE2;
set @matname$,"Phracon";
set @material,1010;
set @price,50;
set @safe,7;
if(@features == 1) goto L_refinefeatures;
goto L_refinenormal;
//Refine Level 2 Weapon
REFINE2:
if(getequipweaponlv(@part) > 2) goto REFINE3;
set @matname$,"Emveretarcon";
set @material,1011;
set @price,200;
set @safe,6;
if(@features == 1) goto L_refinefeatures;
goto L_refinenormal;
//Refine Level 3 Weapon
REFINE3:
if(getequipweaponlv(@part) > 3) goto REFINE4;
set @matname$,"Enriched Oridecon";
set @material,7620;
set @price,5000;
set @safe,5;
if(@features == 1) goto L_refinefeatures;
goto L_refinenormal;
//Refine Level 4 Weapon
REFINE4:
set @matname$,"Enriched Oridecon";
set @material,7620;
set @price,20000;
set @safe,4;
if(@features == 1) goto L_refinefeatures;
goto L_refinenormal;

L_refinenormal:
mes "[" + @name$ + "]";
mes "To refine this stuff, I need ^ff9999" + @matname$ + "^000000 and the fee " + @price + " Zeny.";
mes "Continue?";
next;
menu "Yes",-,"No",Lcancel;

if (getequippercentrefinery(@part) == 100) goto L_Sub;
mes "[" + @name$ + "]";
mes "Hmm... Hold on! This piece of equipment has already been refined to its maximum safety level.";
mes "I must warn you if it is refined ANYMORE, It could be DESTROYED and become USELESS!!";
next;
mes "["+@name$+"]";
mes "Do you still wish you refine it? If so I will not be able to guarantee my work...";
next;
menu "Yes",-,"No",Lcancel1;

L_Sub:
if ((countitem(@material) < 1) || (Zeny < @price)) goto Lcancel2;
set Zeny,Zeny-@price;
delitem @material,1;

Lrefine:
if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (not changed, why?)
if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item
if (getequiprefinerycnt(@part) != @refinerycnt) goto LNoFake; // hacker has changed the item
if (getequippercentrefinery(@part) <= rand(100)) goto Lfail;
mes "["+@name$+"]";
mes "Clang! Clang! Clang!";
successrefitem @part;
next;
mes "["+@name$+"]";
mes "HAHA! It seems my skills haven't gotten rusty yet! Splendid... just splendid...";
emotion 21;
close;

Lfail:
mes "[" + @name$ + "]";
mes "Clang! Clang! Clang!";
failedrefitem @part;
next;
mes "["+@name$+"]";
mes "Aaahhh!! Oh no...!!";
emotion 16;
next;
mes "["+@name$+"]";
mes "Eh..Ehem... I'm sorry but the refining process ^ff0000failed^000000.";
next;
mes "["+@name$+"]";
mes "I am deeply ashamed of what I've done... but I DID warn you earlier about the risks.";
close;

LNoItem:
mes "[" + @name$ + "]";
mes "Look here... you don't have any Items on...";
close;

LNoFake:
mes "[" + @name$ + "]";
mes "Clan... No, but Did you imagine I could be so stupid !?!";
mes "You have changed it...";
mes "Go out before I stun you with my Hammer!!!";
close;

Lcancel:
mes "[" + @name$ + "]";
mes "You said so..Hmm so be it...";
close;

Lcancel1:
mes "[" + @name$ + "]";
mes "Good Choice.";
mes "Ah... good choice. I'd feel awful if I'd destroyed another persons piece of equipment with my own hands.";
close;

Lcancel2:
mes "[" + @name$ + "]";
mes "Is that all you got? Unfortunately I can't work for you at a lower price. Try putting yourself in my shoes.";
close;

// New Refining Functions ========================
L_refinefeatures:
if(getequiprefinerycnt(@part) >= @safe) goto Lnosafe;
mes "[" + @name$ + "]";
mes "I can refine this to the safe limit or a desired number of times... it's your choice...";
next;
menu "To the safe limit please.",Lsafe,"I'll decide how many times.",Lnosafe,"I've changed my mind...",Lcancel;

Lsafe:
set @refinecnt,@safe - getequiprefinerycnt(@part);
set @fullprice,@price * @refinecnt;
mes "[" + @name$ + "]";
mes "That will cost you " + @refinecnt + " " + @matname$ + " and " + @fullprice + " Zeny. Is that ok?";
next;
menu "Yes",-,"No...",Lcancel;
if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
set Zeny,Zeny - @fullprice;
delitem @material,@refinecnt;
goto L_refinesafe;

Lnosafe:
mes "[" + @name$ + "]";
mes "So how many times would you like me to refine your item?";
next;
input @refinecnt;
if (@refinecnt<1) goto Lcancel3; //fixed by Lupus
set @refinecheck,@refinecnt + getequiprefinerycnt(@part);
if(@refinecheck > 10) goto Lcancel3;
set @fullprice,@price * @refinecnt;
mes "[" + @name$ + "]";
mes "This will cost you " + @refinecnt + " " + @matname$ + " and " + @fullprice + " Zeny... Is that ok?";
next;
menu "Yes...",-,"No...",Lcancel;
if(@refinecheck > @safe) goto Lwarn;
if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
set Zeny,Zeny - @fullprice;
delitem @material,@refinecnt;
goto L_refinenumber;
end;

Lwarn:
set @refinecheck,@refinecheck - @safe;
mes "[" + @name$ + "]";
mes "This will try to refine the equipment " + @refinecheck + " times past the safe limit. Your equipment may be destroyed... is that ok?";
next;
menu "Yes",-,"No...",Lcancel1;
if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
set Zeny,Zeny - @fullprice;
delitem @material,@refinecnt;
goto L_refinenumber;

Lcancel3:
mes "[" + @name$ + "]";
mes "I can't refine this item that many times.";
close;

// SubFunction: Safe Refine ---------------------
L_refinesafe:
if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (no changed, why?)
if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item
if (getequippercentrefinery(@part) < 100) goto LNoFake; // hacker has changed the item (it is not safe anymore)
mes "Clang, clang!!!";
successrefitem @part;
emotion 21;
set @refinecnt,@refinecnt - 1;
next;
if(@refinecnt == 0) goto Lend;
goto L_refinesafe;

Lend:
mes "[" + @name$ + "]";
mes "All finished... Come again soon.";
close;

// SubFunction: Refine
L_refinenumber:
if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (no changed, why?)
if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item
mes "Clang, clang!!!";
if (getequippercentrefinery(@part)<=rand(100)) goto Lfail_number;
successrefitem @part;
emotion 21;
set @refinecnt,@refinecnt - 1;
next;
if(@refinecnt == 0) goto Lend;
goto L_refinenumber;

Lfail_number:
failedrefitem @part;
emotion 23;
mes "[" + @name$ + "]";
mes "WAHHHH!!! I'm so sorry... I warned you this could happen...";
set @refinecnt,@refinecnt - 1;
if(@refinecnt == 0) goto Lend2;
mes "Here's the unused Zeny and Material back...";
getitem @material,@refinecnt;
set @fullprice,@refinecnt * @price;
set Zeny,Zeny + @fullprice;

Lend2:
close;
}



//==============================================================================
// Material Salesmen
//==============================================================================
prt_in,56,69,4 script Vurewell 86,{
set @name$,"Vurewell";
callfunc "phramain";
end;
}
payon,145,178,4 script Begnahd 88,{
set @name$,"Begnahd";
callfunc "phramain";
end;
}
morocc_in,65,37,4 script Sade 99,{
set @name$,"Sade";
callfunc "phramain";
end;
}
alberta_in,18,59,5 script Kahlamanlith 86,{
set @name$,"Kahlamanlith";
callfunc "phramain";
end;
}
yuno_in01,171,26,6 script Dillemat 88,{
set @name$,"Dillemat";
callfunc "phramain";
end;
}
ein_in01,15,87,7 script Tirehaus 86,{
set @name$,"Tirehaus";
callfunc "phramain";
end;
}
lhz_in02,278,24,3 script Krugg 86,{
set @name$,"Krugg";
callfunc "phramain";
end;
}

//============================================================
//= Material Salesmen Functions
//============================================================
function script phramain {
if(@chris == 1) goto M_Menu;
mes "[" + @name$ + "]";
mes "Hello, Im selling metals I just mined.";
mes "They are Pharacon and Emvertacon.";
mes "Would you like to buy some?";
M_Menu:
set @chris, 0;
next;
menu"Pharacon - 200z",PHARA,"Emvertacon - 1000z",EMVER;

PHARA:
set @itemid,1010;
set @value,200;
goto CONTINUE;

EMVER:
set @itemid,1011;
set @value,1000;

CONTINUE:
mes "[" + @name$ + "]";
mes "How many would you like?";
next;
input @ammount;
if (@ammount <= 0) goto L_BELOW;
if (@ammount > 999) goto L_ABOVE;
if (zeny < @value * @ammount) goto L_NOZENY;
if (checkweight(@itemid,@ammount) == 0) goto L_WEIGHT;
set Zeny,Zeny-@value*@ammount;
getitem @itemid,@ammount;
mes "[" + @name$ + "]";
mes "Here you go.";
close;

L_NOZENY:
mes "You do not have enough zeny!";
close;
L_WEIGHT:
mes "You can't hold that many of that item!";
close;
L_BELOW:
mes "You have to buy a POSITIVE amount of items!";
close;
L_ABOVE:
mes "You can't buy this much of this item!";
close;
}



//==============================================================================
// Ori/Elu Refiners
//==============================================================================
prt_in,63,69,4 script Dietrich 84,{
set @name$,"Dietrich";
callfunc "orimain";
end;
}
payon,137,178,4 script Hakhim 88,{
set @name$,"Hakhim";
callfunc "orimain";
end;
}
morocc_in,72,32,4 script Abdul 99,{
set @name$,"Abdul";
callfunc "orimain";
end;
}
alberta_in,21,63,5 script Xenophon 84,{
set @name$,"Xenophon";
callfunc "orimain";
end;
}
yuno_in01,171,22,6 script Delayt 88,{
set @name$,"Delayt";
callfunc "orimain";
end;
}
ein_in01,18,82,6 script Matestein 84,{
set @name$,"Matestein";
callfunc "orimain";
end;
}
lhz_in02,281,24,5 script Fruel 84,{
set @name$,"Fruel";
callfunc "orimain";
end;
}

//============================================================
//= Ori/Elu Functions
//============================================================
function script orimain {
if(@chris == 1) goto M_Menu;
mes "[" + @name$ + "]";
mes "If you bring Rough Oridecons and";
mes "Rough Eluniums to me,";
mes "I can refine them for you.";
mes "However, you must bring 5 of each.";
M_Menu:
set @chris, 0;
next;
menu "Make Oridecon",M_Ori, "Make Elunium",M_Elu, "Ask about enchanted stones",M_Stones;

M_Ori:
if(countitem(756) < 5) goto L_NoOri;
delitem 756,5;
getitem 984,1;
mes "[" + @name$ + "]";
mes "As promised, here's your oridecon.";
mes "Come back again anytime.";
close;

L_NoOri:
mes "[" + @name$ + "]";
mes "Huh? You're kidding, right? Didn't I say I can't make you an Oridecon unless you bring me 5 rough ones?";
close;
M_Elu:
if(countitem(757) < 5) goto L_NoElu;
delitem 757,5;
getitem 985,1;
mes "[" + @name$ + "]";
mes "As promised, here's your elunium.";
mes "Come back again anytime.";
close;

L_NoElu:
mes "[" + @name$ + "]";
mes "Huh? You're kidding, right? Didn't I say I can't make you an Elunium unless you bring me 5 rough ones?";
close;
M_Stones:
mes "[" + @name$ + "]";
mes "Enchanted stones, huh...";
next;
mes "[" + @name$ + "]";
mes "Well, in the 20 years that I've been a stone smith I've heard of them many times... though I've never actually seen them before.";
next;
mes "[" + @name$ + "]";
mes "I've been told that enchanted stones possess different elemental properties such as ^5533FFWater, Earth, Fire, and Wind^000000.";
next;
mes "[" + @name$ + "]";
mes "If someone combines an Enchanted Stone with a weapon during the refining process, that weapon will possess the same property as the stone.";
next;
mes "[" + @name$ + "]";
mes "Of course, that person needs to be skillful enough to work on it.";
goto M_Menu;
}



//================================================================================
====
// Equipment Repairmen
//================================================================================
====
prt_in,62,54,2 script Grendal 84,{
set @name$,"Grendal";
callfunc "repairmain";
end;
}
//Temp Spot, Not Sure Where To place
payon,149,182,2 script Repairman#01 88,{
set @name$,"Repairman";
callfunc "repairmain";
end;
}
morocc_in,71,40,2 script Repairman#02 99,{
set @name$,"Repairman";
callfunc "repairmain";
end;
}
lhz_in02,284,14,3 script Repairman#03 86,{
set @name$,"Repairman";
callfunc "repairmain";
end;
}

//============================================================
//= Equipment Repair Function
//============================================================
function script repairmain {
set @repairprice,5000;
mes "[" + @name$ + "]";
mes "I am the Repair Smith and I can repair any Arms you want.";
mes "Tell me which Equipment you want to repair.";
next;
if(getbrokenid(1)==NULL) {
mes "[" + @name$ + "]";
mes "Looks like you don't need anything repaired today...";
close;
}
set @choice,select(getitemname(getbrokenid(1)),getitemname(getbrokenid(2)),
getitemname(getbrokenid(3)),getitemname(getbrokenid(4)),getitemname(getbrokenid(
)),
getitemname(getbrokenid(6)),getitemname(getbrokenid(7)),getitemname(getbrokenid(
)),
getitemname(getbrokenid(9)),getitemname(getbrokenid(10)));
mes "[" + @name$ + "]";
mes "You're gonna repair " + getitemname(getbrokenid(@choice)) + ".";
mes "To repair this, I need " + @repairprice + " Zeny.";
mes "Continue?";
next;
if(select("Yes","No") == 2) {
mes "[" + @name$ + "]";
mes "Ok, but don't expect to be using that...";
close;
}
if (Zeny < @repairprice) {
mes "[" + @name$ + "]";
mes "Is it all you got?";
mes "Unfortunately, I have kids to feed...";
close;
}
set Zeny,Zeny-@repairprice;
repair(@choice);
close;

}



This post has been edited by ~AnnieRuru~: Dec 28 2007, 11:18 PM
Reason for edit: fix [codebox]
Go to the top of the page
 
+Quote Post
Puddings
post Aug 29 2007, 07:22 PM
Post #3


Cute and Fluffy
***

Group: eA Level 5 (Super)
Posts: 197
Joined: 7-September 05
From: Fluffy Bunneh Wonderland
Member No.: 124,194



Umm thanks a lot (IMG:http://www.eathena.ws/board/style_emoticons/default/thumbsup.gif)

One question though, it's accepting Enriched Elu and Ori but will the success rate of the refining be increased?
Go to the top of the page
 
+Quote Post
~AnnieRuru~
post Aug 30 2007, 05:26 AM
Post #4


~Cute~Cute~Scripter~
Group Icon

Group: eA DB/Scripting Support Leader
Posts: 6,694
Joined: 28-August 06
From: your next door ~
Member No.: 185,312



QUOTE (Puddings @ Aug 30 2007, 05:30 PM) *
So is there any way to add the code for the Enriched Elunium and Enriched Oridecon to have a higher success rate? Any help would be greatly appreciated (IMG:http://www.eathena.ws/board/style_emoticons/default/halfsmile.gif)

tell your success rate then
Go to the top of the page
 
+Quote Post
Puddings
post Aug 30 2007, 08:10 PM
Post #5


Cute and Fluffy
***

Group: eA Level 5 (Super)
Posts: 197
Joined: 7-September 05
From: Fluffy Bunneh Wonderland
Member No.: 124,194



Can make it so that Enriched Elu and Ori have 50% more success rate than normal Elu and Oris?
Go to the top of the page
 
+Quote Post
~AnnieRuru~
post Sep 1 2007, 02:00 PM
Post #6


~Cute~Cute~Scripter~
Group Icon

Group: eA DB/Scripting Support Leader
Posts: 6,694
Joined: 28-August 06
From: your next door ~
Member No.: 185,312



QUOTE (inf1nity @ Aug 31 2007, 03:04 PM) *
In official servers, how big of a difference does it really make? I'd like to implement that.
QUOTE (L0ne_W0lf @ Aug 15 2007, 07:19 AM) *
Cash shop items "Enriched" oridecon and Elunium. The math behind hte upgrade is different.



anyway, custom 50% more sucess rate,
I just test briefly, not really go into bug hunt it
http://www.rocklion.net/easu/1370/

This post has been edited by ~AnnieRuru~: Jan 2 2008, 07:27 AM
Reason for edit: upload to a host
Go to the top of the page
 
+Quote Post
L0ne_W0lf
post Sep 1 2007, 04:01 PM
Post #7


Lead Script/DB Developer
Group Icon

Group: Administrator
Posts: 510
Joined: 11-May 06
From: CANEHDAH
Member No.: 165,026



I'm still testing hte official script, but so far it looks comeplete. I'll have to commited to the SVN soon enough. I've so far managed to only make 1 or 2 +8s with it out of 20+ headgears. Need to test weapon refine rates. Typically the headgear goes to +5 rather easily, +6 pretty decently, +7 is fairly common. 8 however isn't, and 9 and 10 don't seem to happen much at all. THe biggest problem there is now, is that to commit it as it is now, without a full understanding of the process copuld lead to servers having an unbalance issue. I'm fairly confident with Doddler's information though...so it shouldn't be much longer until we have hte advanced cash shop refiner in Payon.

This post has been edited by L0ne_W0lf: Sep 1 2007, 04:02 PM
Go to the top of the page
 
+Quote Post
Puddings
post Sep 2 2007, 07:44 AM
Post #8


Cute and Fluffy
***

Group: eA Level 5 (Super)
Posts: 197
Joined: 7-September 05
From: Fluffy Bunneh Wonderland
Member No.: 124,194



Oo... thanks for the Enriched Refiner script, I will give it a try (IMG:http://www.eathena.ws/board/style_emoticons/default/thumbsup.gif)
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)
0 Members:

 



Lo-Fi Version Time is now: 24th April 2014 - 02:54 PM
Bridged By IpbWiki: Integration Of Invision Power Board and MediaWiki © GlobalSoft