+10 refiner

darking123 · January 3, 2013

i am requesting for a sure +10 refiner for a specific equipment that the player choose..

also the +10 refiner requires 10tcg to refine the item to +10

the refiner will refine the item to +10 immediately to 100% sure..

bump

Capuche · January 3, 2013

100% sure... +10... need 1 TCG Card per refine... players can choose equipment.

prt_in,57,55,5    script    lkjhgf    63,{
//-
   setarray .@safe[0],        10,        10,        10,        10,        10,        10;
   setarray .@TicketID, 7227;
//-

   mes "[blacksmith]";
   mes "I'm the Blacksmith.";
   mes "I can refine all kinds of weapons, armor and equipment, so let me";
   mes "know what you want me to refine.";
   next;

   setarray .@position$[1], "^0000ffHead^000000","^0000ffBody^000000","^FF0000Left hand^000000","^FF0000Right hand^000000","^0000ffRobe^000000","^0000ffShoes^000000","Accessory 1","Accessory 2","^0000ffHead 2^000000","^0000ffHead 3^000000";
   for( set .@i, 1; .@i <= getarraysize(.@position$); set .@i, .@i+1 ) {
       if( getequipisequiped(.@i) )
           set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
       set .@menu$, .@menu$+ ":"; }
   set .@part, select( .@menu$ );

   if( !getequipisequiped(.@part) ) {
       mes "[blacksmith]";
       mes "You're not wearing";
       mes "anything there that";
       mes "I can refine.";
       emotion 6;
       close; }
   //Check if the item is refinable...
   if( !getequipisenableref(.@part) ) {
       mes "[blacksmith]";
       mes "I don't think I can";
       mes "refine this item at all...";
       close; }
   //Check if the item is identified... (Don't know why this is in here... but kept it anyway)
   if( !getequipisidentify(.@part) ) {
       mes "[blacksmith]";
       mes "You can't refine this";
       mes "if you haven't appraised";
       mes "it first. Make sure your";
       mes "stuff is identified before";
       mes "I can refine it.";
       close; }
   //Check to see if the items is already +10
   if( getequiprefinerycnt(.@part) >= 10 ) {
       mes "[blacksmith]";
       mes "I can't refine this";
       mes "any more. This is as";
       mes "refined as it gets!";
       close; }

   set .@refineitemid, getequipid(.@part); // save id of the item
   set .@wp, getequipweaponlv(.@part);

   if( ( .@mRn = select( "+10, please.", "I've changed my mind..." )-1 ) > 0 ) {
       next;
       mes "[blacksmith]";
       mes "You said so... So be it.";
       close; }

   .@rcnt = .@safe[.@wp] - getequiprefinerycnt(.@part);
   set .@refinerycnt, getequiprefinerycnt(.@part); //save refinery count

   mes "[blacksmith]";
   mes "To refine this I need";
   mes "^FF0000"+.@rcnt+" "+getitemname( .@TicketID )+"^000000";
   mes "Do you really wish to continue?";
   next;

   if( select( "Yes:No" ) == 2 ) {
       mes "[blacksmith]";
       mes "Yeah...";
       mes "There's no need to";
       mes "rush. Take your time.";
       close; }

   if( countitem(.@TicketID) < .@rcnt ) {
       mes "[blacksmith]";
       mes "You don't seem to have";
       mes "enough ^000000"+getitemname( .@TicketID )+"^000000...";
       mes "Go get some more. I'll be";
       mes "here all day if you need me.";
       close; }

   if(getequipisequiped(.@part) == 0) { // hacker has removed the item (not changed, why?)
       mes "[blacksmith]";
       mes "Look here... you don't have any Items on...";
       close; }
   if(getequiprefinerycnt(.@part) != .@refinerycnt || getequipid(.@part) != .@refineitemid) { // hacker has changed the item
       mes "[blacksmith]";
       emotion e_an;
       mes "Wait a second...";
       mes "Do you think I'm stupid?!";
       mes "You switched the item while I wasn't looking! Get out of here!";
       close; }
   mes "[blacksmith]";
   delitem .@TicketID, .@rcnt;
   for( .@i = 0; .@i < .@rcnt; .@i++ )
       successrefitem .@part;
   emotion e_heh;
   if( !(.@win = rand(2)) ) {
       mes "[blacksmith]";
       mes "Perfect!";
       mes "Heh heh!";
       mes "Once again,";
       mes "flawless work";
       mes "from the master~";
   } else if( .@win == 1 ) {
       mes "[blacksmith]";
       mes "Success...!";
       mes "Yet again, my amazing";
       mes "talent truly dazzles";
       mes "and shines today.";
   } else {
       mes "[blacksmith]";
       mes "Heh heh!";
       mes "I'm all done.";
       mes "No doubt, my work is";
       mes "to your satisfaction.";
       mes "Sheer, utter perfection~"; }
   close;
}

koneko33 · November 21, 2023

On 1/4/2013 at 12:06 AM, Capuche said:

100% sure... +10... need 1 TCG Card per refine... players can choose equipment.

prt_in,57,55,5    script    lkjhgf    63,{
//-
   setarray .@safe[0],        10,        10,        10,        10,        10,        10;
   setarray .@TicketID, 7227;
//-

   mes "[blacksmith]";
   mes "I'm the Blacksmith.";
   mes "I can refine all kinds of weapons, armor and equipment, so let me";
   mes "know what you want me to refine.";
   next;

   setarray .@position$[1], "^0000ffHead^000000","^0000ffBody^000000","^FF0000Left hand^000000","^FF0000Right hand^000000","^0000ffRobe^000000","^0000ffShoes^000000","Accessory 1","Accessory 2","^0000ffHead 2^000000","^0000ffHead 3^000000";
   for( set .@i, 1; .@i <= getarraysize(.@position$); set .@i, .@i+1 ) {
       if( getequipisequiped(.@i) )
           set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
       set .@menu$, .@menu$+ ":"; }
   set .@part, select( .@menu$ );

   if( !getequipisequiped(.@part) ) {
       mes "[blacksmith]";
       mes "You're not wearing";
       mes "anything there that";
       mes "I can refine.";
       emotion 6;
       close; }
   //Check if the item is refinable...
   if( !getequipisenableref(.@part) ) {
       mes "[blacksmith]";
       mes "I don't think I can";
       mes "refine this item at all...";
       close; }
   //Check if the item is identified... (Don't know why this is in here... but kept it anyway)
   if( !getequipisidentify(.@part) ) {
       mes "[blacksmith]";
       mes "You can't refine this";
       mes "if you haven't appraised";
       mes "it first. Make sure your";
       mes "stuff is identified before";
       mes "I can refine it.";
       close; }
   //Check to see if the items is already +10
   if( getequiprefinerycnt(.@part) >= 10 ) {
       mes "[blacksmith]";
       mes "I can't refine this";
       mes "any more. This is as";
       mes "refined as it gets!";
       close; }

   set .@refineitemid, getequipid(.@part); // save id of the item
   set .@wp, getequipweaponlv(.@part);

   if( ( .@mRn = select( "+10, please.", "I've changed my mind..." )-1 ) > 0 ) {
       next;
       mes "[blacksmith]";
       mes "You said so... So be it.";
       close; }

   .@rcnt = .@safe[.@wp] - getequiprefinerycnt(.@part);
   set .@refinerycnt, getequiprefinerycnt(.@part); //save refinery count

   mes "[blacksmith]";
   mes "To refine this I need";
   mes "^FF0000"+.@rcnt+" "+getitemname( .@TicketID )+"^000000";
   mes "Do you really wish to continue?";
   next;

   if( select( "Yes:No" ) == 2 ) {
       mes "[blacksmith]";
       mes "Yeah...";
       mes "There's no need to";
       mes "rush. Take your time.";
       close; }

   if( countitem(.@TicketID) < .@rcnt ) {
       mes "[blacksmith]";
       mes "You don't seem to have";
       mes "enough ^000000"+getitemname( .@TicketID )+"^000000...";
       mes "Go get some more. I'll be";
       mes "here all day if you need me.";
       close; }

   if(getequipisequiped(.@part) == 0) { // hacker has removed the item (not changed, why?)
       mes "[blacksmith]";
       mes "Look here... you don't have any Items on...";
       close; }
   if(getequiprefinerycnt(.@part) != .@refinerycnt || getequipid(.@part) != .@refineitemid) { // hacker has changed the item
       mes "[blacksmith]";
       emotion e_an;
       mes "Wait a second...";
       mes "Do you think I'm stupid?!";
       mes "You switched the item while I wasn't looking! Get out of here!";
       close; }
   mes "[blacksmith]";
   delitem .@TicketID, .@rcnt;
   for( .@i = 0; .@i < .@rcnt; .@i++ )
       successrefitem .@part;
   emotion e_heh;
   if( !(.@win = rand(2)) ) {
       mes "[blacksmith]";
       mes "Perfect!";
       mes "Heh heh!";
       mes "Once again,";
       mes "flawless work";
       mes "from the master~";
   } else if( .@win == 1 ) {
       mes "[blacksmith]";
       mes "Success...!";
       mes "Yet again, my amazing";
       mes "talent truly dazzles";
       mes "and shines today.";
   } else {
       mes "[blacksmith]";
       mes "Heh heh!";
       mes "I'm all done.";
       mes "No doubt, my work is";
       mes "to your satisfaction.";
       mes "Sheer, utter perfection~"; }
   close;
}

how do i fix this image.png.e10964fe865766b3c1131cf94b71127b.png

darking123 · January 4, 2013

100% sure... +10... need 1 TCG Card per refine... players can choose equipment.

prt_in,57,55,5	script	lkjhgf	63,{
//-
setarray .@safe[0],		10,		10,		10,		10,		10,		10;
setarray .@TicketID, 7227;
//-

mes "[blacksmith]";
mes "I'm the Blacksmith.";
mes "I can refine all kinds of weapons, armor and equipment, so let me";
mes "know what you want me to refine.";
next;

setarray .@position$[1], "^0000ffHead^000000","^0000ffBody^000000","^FF0000Left hand^000000","^FF0000Right hand^000000","^0000ffRobe^000000","^0000ffShoes^000000","Accessory 1","Accessory 2","^0000ffHead 2^000000","^0000ffHead 3^000000";
for( set .@i, 1; .@i <= getarraysize(.@position$); set .@i, .@i+1 ) {
	if( getequipisequiped(.@i) )
		set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
	set .@menu$, .@menu$+ ":"; }
set .@part, select( .@menu$ );

if( !getequipisequiped(.@part) ) {
	mes "[blacksmith]";
	mes "You're not wearing";
	mes "anything there that";
	mes "I can refine.";
	emotion 6;
	close; }
//Check if the item is refinable...
if( !getequipisenableref(.@part) ) {
	mes "[blacksmith]";
	mes "I don't think I can";
	mes "refine this item at all...";
	close; }
//Check if the item is identified... (Don't know why this is in here... but kept it anyway)
if( !getequipisidentify(.@part) ) {
	mes "[blacksmith]";
	mes "You can't refine this";
	mes "if you haven't appraised";
	mes "it first. Make sure your";
	mes "stuff is identified before";
	mes "I can refine it.";
	close; }
//Check to see if the items is already +10
if( getequiprefinerycnt(.@part) >= 10 ) {
	mes "[blacksmith]";
	mes "I can't refine this";
	mes "any more. This is as";
	mes "refined as it gets!";
	close; }

set .@refineitemid, getequipid(.@part); // save id of the item
set .@wp, getequipweaponlv(.@part);

if( ( .@mRn = select( "+10, please.", "I've changed my mind..." )-1 ) > 0 ) {
	next;
	mes "[blacksmith]";
	mes "You said so... So be it.";
	close; }

.@rcnt = .@safe[.@wp] - getequiprefinerycnt(.@part);
set .@refinerycnt, getequiprefinerycnt(.@part); //save refinery count

mes "[blacksmith]";
mes "To refine this I need";
mes "^FF0000"+.@rcnt+" "+getitemname( .@TicketID )+"^000000";
mes "Do you really wish to continue?";
next;

if( select( "Yes:No" ) == 2 ) {
	mes "[blacksmith]";
	mes "Yeah...";
	mes "There's no need to";
	mes "rush. Take your time.";
	close; }

if( countitem(.@TicketID) < .@rcnt ) {
	mes "[blacksmith]";
	mes "You don't seem to have";
	mes "enough ^000000"+getitemname( .@TicketID )+"^000000...";
	mes "Go get some more. I'll be";
	mes "here all day if you need me.";
	close; }

if(getequipisequiped(.@part) == 0) { // hacker has removed the item (not changed, why?)
	mes "[blacksmith]";
	mes "Look here... you don't have any Items on...";
	close; }
if(getequiprefinerycnt(.@part) != .@refinerycnt || getequipid(.@part) != .@refineitemid) { // hacker has changed the item
	mes "[blacksmith]";
	emotion e_an;
	mes "Wait a second...";
	mes "Do you think I'm stupid?!";
	mes "You switched the item while I wasn't looking! Get out of here!";
	close; }
mes "[blacksmith]";
delitem .@TicketID, .@rcnt;
for( .@i = 0; .@i < .@rcnt; .@i++ )
	successrefitem .@part;
emotion e_heh;
if( !(.@win = rand(2)) ) {
	mes "[blacksmith]";
	mes "Perfect!";
	mes "Heh heh!";
	mes "Once again,";
	mes "flawless work";
	mes "from the master~";
} else if( .@win == 1 ) {
	mes "[blacksmith]";
	mes "Success...!";
	mes "Yet again, my amazing";
	mes "talent truly dazzles";
	mes "and shines today.";
} else {
	mes "[blacksmith]";
	mes "Heh heh!";
	mes "I'm all done.";
	mes "No doubt, my work is";
	mes "to your satisfaction.";
	mes "Sheer, utter perfection~"; }
close;
}

thank you but i think a script that even if my weapon is +0 when i use the refiner it will jump to +10 already

Capuche · January 4, 2013

thank you but i think a script that even if my weapon is +0 when i use the refiner it will jump to +10 already

Well it refine any equipment +X to +10 immediatly when you talk to the NPC. You need (10 - X ) TCG Card to do it.

darking123 · January 11, 2013

bump!

AnnieRuru · January 11, 2013

Capuche's script is working fine in my test server and works according to your concept

unless there's a miscommunication somewhere between us

darking123 · January 12, 2013

i have the error


[Error]:  Loading NPC file: npc/custom/donaterefiner.txt
script error on npc/custom/donaterefiner.txt line 53
   parse_simpleexpr: unmatch ')'
   48 :                close; }
   49 :
   50 :        set .@refineitemid, getequipid(.@part); // save id of the item
   51 :        set .@wp, getequipweaponlv(.@part);
   52 :
*   53 :        if( ( .@mRn '=' select( "+10, please.", "I've changed my mind..." )-1 ) > 0 ) {
   54 :                next;
   55 :                mes "[blacksmith]";
   56 :                mes "You said so... So be it.";
   57 :                close;
   58 : }

goddameit · January 12, 2013

i have the error

are you using rA ?

http://rathena.org/board/topic/62395-r15982-script-engine-update/

darking123 · January 12, 2013

eathena sir

goddameit · January 12, 2013

eathena sir

then use traditional script set command

set(<variable>,<expression>)

if( set(.@mRn,select(...)-1) > 0 )

Edited January 12, 2013 by goddameit

darking123 · January 12, 2013

sorry sir but i really have no idea on how to do it

maynard · January 12, 2013

i have the error

are you using rA ?

http://rathena.org/b...-engine-update/

I tried to manually put the codes and somehow it compiles without error, Then I put the script and its working fine in my server, Im using eathena, I hope there will be no conflict or so whatever. Its a good thing if this will work without error or conflict to my eathena. Anyway its working the +10 refiner that capuche wrote. Now I can use more of Annieruru script. /no1

darking123 · January 12, 2013

teach me how to add that code please i am using eathena svn

Emistry · January 12, 2013

try this ?

http://rathena.org/board/topic/53320-%E3%80%90-emistry-%C2%A9-2012-%E3%80%91e-scripts-collection/page__st__40__p__71628#entry71628

darking123 · January 13, 2013

try this ?

http://rathena.org/b...1628#entry71628

sir what i need is it will automatically go to +10 without passing +1 to +9

Emistry · January 13, 2013

my script can refine until max refine / any number you specified,......or just one refine...depend on how you configure the settings.

Sign In

+10 refiner

Question

darking123

16 answers to this question

Recommended Posts

Capuche

koneko33

darking123

Capuche

darking123

AnnieRuru

darking123

goddameit

darking123

goddameit

darking123

maynard

darking123

Emistry

darking123

Emistry

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account