Radian Posted November 25, 2014 Group: Members Topic Count: 162 Topics Per Day: 0.04 Content Count: 1546 Reputation: 192 Joined: 07/23/14 Last Seen: June 24, 2024 Share Posted November 25, 2014 Hello, I hope someone can help me out with this support its all about the Refine Function of Emistry. My request is Add another Argument on the function on how many "Refine Ticket" will cost on the desired level of refine. Refine Ticket will not be consumed if player cancel to refine it. Remove the function that will unequip the item when refine is succes! here's the script : //--- Bitmasks ---- // 1 - Top Headgear // 2 - Armor // 4 - Left Hand // 8 - Right Hand // 16 - Garment // 32 - Shoes // 64 - Left Accessory // 128 - Right Accessory // 256 - Middle Headgear // 512 - Lower Headgear // 1024 - Costume : Head Low // 2048 - Costume : Head Mid // 4096 - Costume : Head Top // Notes : You can Customize it according to whatever way you want. // Different NPCs / Items with Different Settings. // It will consume the items that you defined to Refine the Equipments according to your Settings. // ........callfunc( "RefineFunc",<arg1>,<arg2>,<arg3>,<arg4>,<arg5>,<arg6>,<arg7>,<arg8>{,<arg9>,<arg10>} ); // - arg1 = bitmask ( refer table above ) // - arg2 = Minimum refine rate // - arg3 = Maximum refine rate // - arg4 = Refine Count ( negative = derefine / positive = refine ) // - arg5 = Check if Item can be refine ( 1 = true , 0 = false ) // - arg6 = Refine Success Rate ( 0 = default / 1~100% = succes rate ) // - arg7 = Amount of refine count dropped when failure ( must be negative ) // - arg8 = Drop refine count success rate ( 0 ~ 100% ) // - arg9 = Gained Bonus Refine Rate ( 0 ~ 100% ) // - arg10 = Required Item for Bonus Rate if Any ( leave 0 if dont need item ) // ** Arg9 ~ Arg10 is Optional. //----------- If used this as Item Script ----------- // Example : Red Potion as Refine Ticket // 501,Red_Potion,Red Potion,0,50,,70,,,,,0xFFFFFFFF,7,2,,,,,,{ callfunc( "RefineFunc",63,0,20,2,1,80,-3,50,20,501 ); },{},{} // * set Arg.10 to the item id of Red Potion. ( *must* ) // Item will gone if they cancel the process halfway.. //----------- If used this as NPC Script ------------ // Example : // 80% success refine between 0 ~ 20 // 50% minus 3 refine when failed // each refine increase refine count by 2 // if provide 1 apple...gain 20% success refine rate // prontera,155,181,5 script Refiner 757,{ // callfunc( "RefineFunc",63,0,20,2,1,80,-3,50,20,512 ); // } prontera,155,181,5 script Refiner 757,{ callfunc( "RefineFunc",63,0,20,1,1,0,0,0,20,512 ); } function script RefineFunc { .@arg_count = getargcount(); // show information .@display_info = 1; // this this value to your custom max refine if your server have different default max refine .@server_max_refine = (( checkre(0) )? 20:10 ); // argument count checking if( .@arg_count < 8 ){ message strcharinfo(0),"Insufficient Arg. Min. required 8 Args but received only "+.@arg_count; return; } // save arg into a temp array. while( .@i < .@arg_count ){ .@arg[.@i] = getarg( .@i ); .@i++; } // check max refine count ( remove this part if you have custom max refine ) if( .@arg[2] > .@server_max_refine ){ message strcharinfo(0),"[Arg:3] RefineFunc Max Refine must not exceed "+.@server_max_refine +" but received "+.@arg[2]+"."; return; } // Refine Count must not 0. if( !.@arg[3] ){ message strcharinfo(0),"[Arg:4] RefineFunc Count must not 0."; return; } // Refine rate must not negative. if( .@arg[5] < 0 ){ message strcharinfo(0),"[Arg:6] RefineFunc Refine Rate must not Negative. Received "+.@arg[5]; return; } // Refine decrement must not positive. ( so they can differentiate it ) if( .@arg[6] > 0 ){ message strcharinfo(0),"[Arg:7] RefineFunc Failure Decrement must not Positive. Received "+.@arg[6]; return; } // Bonus Refine rate must not negative. if( .@arg[8] < 0 ){ message strcharinfo(0),"[Arg:9] RefineFunc Bonus Rate must not Negative. Received "+.@arg[8]; return; } // check for required item for gaining bonus rate if any if( .@arg[9] ) if( getitemname( .@arg[9] ) == "null" ){ message strcharinfo(0),"[Arg:10] RefineFunc Invalid Bonus Rate Item ID "+.@arg[9]; return; } // generate selection menu .@i = 1; while( .@i < 14 ){ .@equip_id = getequipid( .@i ); if( .@equip_id > 0 ){ .@equip_enableref = (( .@arg[4] )? getequipisenableref( .@i ):1 ); if( .@arg[0] & ( 1 << ( .@i-1 ) ) && .@equip_enableref ){ .@equip_refine = getequiprefinerycnt( .@i ); .@equip_slot = getitemslots( .@equip_id ); if( .@equip_refine >= .@arg[1] && .@equip_refine < .@arg[2] ){ set .@menu$,.@menu$ + ( ( .@equip_refine )?"+"+.@equip_refine+" ":"" ) + getitemname( .@equip_id ) + " ["+.@equip_slot+"]"; .@equipment_count++; } } } set .@menu$,.@menu$ + ":"; .@i++; } // check if any available equip to refine if( !.@equipment_count ){ message strcharinfo(0),"Sorry, but you didnt have equipment that refined between "+.@arg[1]+" ~ "+.@arg[2]+" for refine."; end; }else{ // get equipment data .@equip_part = select( .@menu$ ); .@equip_id = getequipid( .@equip_part ); .@equip_refine = getequiprefinerycnt( .@equip_part ); .@equip_slot = getitemslots( .@equip_id ); for( .@i = 0; .@i < 4; .@i++ ) .@equip_card[.@i] = getequipcardid( .@equip_part,.@i ); .@target_refine = .@equip_refine + .@arg[3]; // determine refine count if( .@target_refine > .@arg[2] ) .@target_refine = .@arg[2]; else if( .@target_refine < 0 ) .@target_refine = 0; if( .@equip_refine == .@target_refine ){ message strcharinfo(0),"That's your current refine rate."; close; } .@success_rate = (( .@arg[5] )? .@arg[5]:getequippercentrefinery( .@equip_part ) ); // display information if( .@display_info ){ mes "Target Refine : "; mes "^0055FF"+( ( .@target_refine )?"+"+.@target_refine:"" )+" "+getitemname( .@equip_id )+" ["+.@equip_slot+"]^000000"; mes "Success Rate : ^777777"+.@success_rate+" %^000000"; if( .@success_rate < 100 ){ if( .@arg[8] ) mes "Bonus Rate : ^777777"+.@arg[8]+" %^000000"; if( .@arg[9] ){ mes "Required Item : ^FF0000"+getitemname( .@arg[9] )+"^000000"; mes " "; mes "^777777**"+getitemname( .@arg[9] )+" is required for bonus rate^000000"; } } next; } if( select( "[^0055FF"+.@success_rate+"%^000000] "+( ( .@arg[3] < 0 )?"De-":"" )+"Refine to ^0055FF"+( ( .@target_refine )?"+"+.@target_refine:"" )+" "+getitemname( .@equip_id )+" ["+.@equip_slot+"]^000000","Cancel" ) == 1 ){ if( getequipisequiped( .@equip_part ) ){ // if it's not De-refine and below 100% success if( .@arg[3] > 0 && .@success_rate < 100 ){ // calculate refine rate + bonus rate if( .@arg[9] ){ if( countitem( .@arg[9] ) ) if( select( "Use ^0055FF"+getitemname( .@arg[9] )+"^000000 to increase Refine Rate","Continue" ) == 1 ){ .@success_rate += .@arg[8]; delitem .@arg[9],1; } }else{ .@success_rate += .@arg[8]; } } delequip .@equip_part; // success and increase refine count if( rand( 100 ) < .@success_rate ){ getitem2 .@equip_id,1,1,.@target_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],.@equip_card[3]; message strcharinfo(0),"Succesfully refined to +"+.@target_refine+" "+getitemname( .@equip_id ); specialeffect2 EF_REFINEOK; close; // failed and decrease refine count }else if( .@arg[6] && .@arg[3] && rand( 100 ) < .@arg[7] ){ .@target_refine = ( .@equip_refine + .@arg[6] ); if( .@target_refine < 0 ) .@target_refine = 0; getitem2 .@equip_id,1,1,.@target_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],.@equip_card[3]; message strcharinfo(0),"Failed and refine count dropped to +"+.@target_refine+" "+getitemname( .@equip_id ); // failed and destroy equip }else{ message strcharinfo(0),"Failed to refine and destroyed "+getitemname( .@equip_id ); } specialeffect2 EF_REFINEFAIL; } } } close; } Anyone? Quote Link to comment Share on other sites More sharing options...
Nerfwood Posted November 25, 2014 Group: Members Topic Count: 14 Topics Per Day: 0.00 Content Count: 104 Reputation: 27 Joined: 12/05/13 Last Seen: August 26, 2015 Share Posted November 25, 2014 Add another Argument on the function on how many "Refine Ticket" will cost on the desired level of refine. Can you explain? Refine Ticket will not be consumed if player cancel to refine it. It seems that the ticket is consumed only when you confirm it. Remove the function that will unequip the item when refine is succes! Add the following command below the getitem2 line: equip .@equip_id; Quote Link to comment Share on other sites More sharing options...
Radian Posted November 25, 2014 Group: Members Topic Count: 162 Topics Per Day: 0.04 Content Count: 1546 Reputation: 192 Joined: 07/23/14 Last Seen: June 24, 2024 Author Share Posted November 25, 2014 Add another Argument on the function on how many "Refine Ticket" will cost on the desired level of refine. Can you explain? for example Refine level of the weapon is on +10 if you continue to refine the weapon up to +11 it will consume 2 Refinery Ticket instead of 1 Ticket from 0 ~ 10. It seems that the ticket is consumed only when you confirm it. the script has this function // check if any available equip to refine if( !.@equipment_count ){ message strcharinfo(0),"Sorry, but you didnt have equipment that refined between "+.@arg[1]+" ~ "+.@arg[2]+" for refine."; end; and I am using a consumable item for this Refine Function. what i want is not to delete the " Refine Ticket " when Player don't have any items equipped. equip .@equip_id; What if the player got 2 same equips? Quote Link to comment Share on other sites More sharing options...
Nerfwood Posted November 25, 2014 Group: Members Topic Count: 14 Topics Per Day: 0.00 Content Count: 104 Reputation: 27 Joined: 12/05/13 Last Seen: August 26, 2015 Share Posted November 25, 2014 the script has this function // check if any available equip to refine if( !.@equipment_count ){ message strcharinfo(0),"Sorry, but you didnt have equipment that refined between "+.@arg[1]+" ~ "+.@arg[2]+" for refine."; end; and I am using a consumable item for this Refine Function. what i want is not to delete the " Refine Ticket " when Player don't have any items equipped. When the player doesn't have any items equipped, it won't be displayed on the menu. Thus, it's impossible for the refine ticket to be consumed. Also, the function you quoted only checks if the item is within the allowable refine range. If there's no item, then that argument won't be called. Here's an example of that usage: let's say your defined minimum refine rate is 5 and the max is 8. If you have a +3 item, then you cannot refine that item because it doesn't meet the minimum requirement. Same with a +9 item. The min/max refine range can be defined at arg2 and arg3, as explained in the script. callfunc( "RefineFunc",<arg1>,<arg2>,<arg3>,<arg4>,<arg5>,<arg6>,<arg7>,<arg8>{,<arg9>,<arg10>} ); for example Refine level of the weapon is on +10 if you continue to refine the weapon up to +11 it will consume 2 Refinery Ticket instead of 1 Ticket from 0 ~ 10. I'm as lazy as I'm interested on doing this, so I'm sorry. It seems fun to code, though. I'll try to code this one if nobody provided you within a week or so. Quote Link to comment Share on other sites More sharing options...
Radian Posted November 25, 2014 Group: Members Topic Count: 162 Topics Per Day: 0.04 Content Count: 1546 Reputation: 192 Joined: 07/23/14 Last Seen: June 24, 2024 Author Share Posted November 25, 2014 the script has this function // check if any available equip to refine if( !.@equipment_count ){ message strcharinfo(0),"Sorry, but you didnt have equipment that refined between "+.@arg[1]+" ~ "+.@arg[2]+" for refine."; end; and I am using a consumable item for this Refine Function. what i want is not to delete the " Refine Ticket " when Player don't have any items equipped. When the player doesn't have any items equipped, it won't be displayed on the menu. Thus, it's impossible for the refine ticket to be consumed. Also, the function you quoted only checks if the item is within the allowable refine range. If there's no item, then that argument won't be called. Here's an example of that usage: let's say your defined minimum refine rate is 5 and the max is 8. If you have a +3 item, then you cannot refine that item because it doesn't meet the minimum requirement. Same with a +9 item. The min/max refine range can be defined at arg2 and arg3, as explained in the script. callfunc( "RefineFunc",<arg1>,<arg2>,<arg3>,<arg4>,<arg5>,<arg6>,<arg7>,<arg8>{,<arg9>,<arg10>} ); for example Refine level of the weapon is on +10 if you continue to refine the weapon up to +11 it will consume 2 Refinery Ticket instead of 1 Ticket from 0 ~ 10. I'm as lazy as I'm interested on doing this, so I'm sorry. It seems fun to code, though. I'll try to code this one if nobody provided you within a week or so. Yea when you are using the NPC. but i am using only the " callfunc " of the script so the item will be consumed and this " message strcharinfo(0),"Sorry, but you didnt have equipment that refined between "+.@arg[1]+" ~ "+.@arg[2]+" for refine."; will show up". instead of returning the ticket to the player. I don't know how to make this not to delete the item instead it will directly refine what item was equipped. delequip .@equip_part; // success and increase refine count if( rand( 100 ) < .@success_rate ){ getitem2 .@equip_id,1,1,.@target_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],.@equip_card[3]; message strcharinfo(0),"Succesfully refined to +"+.@target_refine+" "+getitemname( .@equip_id ); specialeffect2 EF_REFINEOK; close; Quote Link to comment Share on other sites More sharing options...
Question
Radian
Hello, I hope someone can help me out with this support its all about the Refine Function of Emistry.
My request is
here's the script :
//--- Bitmasks ---- // 1 - Top Headgear // 2 - Armor // 4 - Left Hand // 8 - Right Hand // 16 - Garment // 32 - Shoes // 64 - Left Accessory // 128 - Right Accessory // 256 - Middle Headgear // 512 - Lower Headgear // 1024 - Costume : Head Low // 2048 - Costume : Head Mid // 4096 - Costume : Head Top // Notes : You can Customize it according to whatever way you want. // Different NPCs / Items with Different Settings. // It will consume the items that you defined to Refine the Equipments according to your Settings. // ........callfunc( "RefineFunc",<arg1>,<arg2>,<arg3>,<arg4>,<arg5>,<arg6>,<arg7>,<arg8>{,<arg9>,<arg10>} ); // - arg1 = bitmask ( refer table above ) // - arg2 = Minimum refine rate // - arg3 = Maximum refine rate // - arg4 = Refine Count ( negative = derefine / positive = refine ) // - arg5 = Check if Item can be refine ( 1 = true , 0 = false ) // - arg6 = Refine Success Rate ( 0 = default / 1~100% = succes rate ) // - arg7 = Amount of refine count dropped when failure ( must be negative ) // - arg8 = Drop refine count success rate ( 0 ~ 100% ) // - arg9 = Gained Bonus Refine Rate ( 0 ~ 100% ) // - arg10 = Required Item for Bonus Rate if Any ( leave 0 if dont need item ) // ** Arg9 ~ Arg10 is Optional. //----------- If used this as Item Script ----------- // Example : Red Potion as Refine Ticket // 501,Red_Potion,Red Potion,0,50,,70,,,,,0xFFFFFFFF,7,2,,,,,,{ callfunc( "RefineFunc",63,0,20,2,1,80,-3,50,20,501 ); },{},{} // * set Arg.10 to the item id of Red Potion. ( *must* ) // Item will gone if they cancel the process halfway.. //----------- If used this as NPC Script ------------ // Example : // 80% success refine between 0 ~ 20 // 50% minus 3 refine when failed // each refine increase refine count by 2 // if provide 1 apple...gain 20% success refine rate // prontera,155,181,5 script Refiner 757,{ // callfunc( "RefineFunc",63,0,20,2,1,80,-3,50,20,512 ); // } prontera,155,181,5 script Refiner 757,{ callfunc( "RefineFunc",63,0,20,1,1,0,0,0,20,512 ); } function script RefineFunc { .@arg_count = getargcount(); // show information .@display_info = 1; // this this value to your custom max refine if your server have different default max refine .@server_max_refine = (( checkre(0) )? 20:10 ); // argument count checking if( .@arg_count < 8 ){ message strcharinfo(0),"Insufficient Arg. Min. required 8 Args but received only "+.@arg_count; return; } // save arg into a temp array. while( .@i < .@arg_count ){ .@arg[.@i] = getarg( .@i ); .@i++; } // check max refine count ( remove this part if you have custom max refine ) if( .@arg[2] > .@server_max_refine ){ message strcharinfo(0),"[Arg:3] RefineFunc Max Refine must not exceed "+.@server_max_refine +" but received "+.@arg[2]+"."; return; } // Refine Count must not 0. if( !.@arg[3] ){ message strcharinfo(0),"[Arg:4] RefineFunc Count must not 0."; return; } // Refine rate must not negative. if( .@arg[5] < 0 ){ message strcharinfo(0),"[Arg:6] RefineFunc Refine Rate must not Negative. Received "+.@arg[5]; return; } // Refine decrement must not positive. ( so they can differentiate it ) if( .@arg[6] > 0 ){ message strcharinfo(0),"[Arg:7] RefineFunc Failure Decrement must not Positive. Received "+.@arg[6]; return; } // Bonus Refine rate must not negative. if( .@arg[8] < 0 ){ message strcharinfo(0),"[Arg:9] RefineFunc Bonus Rate must not Negative. Received "+.@arg[8]; return; } // check for required item for gaining bonus rate if any if( .@arg[9] ) if( getitemname( .@arg[9] ) == "null" ){ message strcharinfo(0),"[Arg:10] RefineFunc Invalid Bonus Rate Item ID "+.@arg[9]; return; } // generate selection menu .@i = 1; while( .@i < 14 ){ .@equip_id = getequipid( .@i ); if( .@equip_id > 0 ){ .@equip_enableref = (( .@arg[4] )? getequipisenableref( .@i ):1 ); if( .@arg[0] & ( 1 << ( .@i-1 ) ) && .@equip_enableref ){ .@equip_refine = getequiprefinerycnt( .@i ); .@equip_slot = getitemslots( .@equip_id ); if( .@equip_refine >= .@arg[1] && .@equip_refine < .@arg[2] ){ set .@menu$,.@menu$ + ( ( .@equip_refine )?"+"+.@equip_refine+" ":"" ) + getitemname( .@equip_id ) + " ["+.@equip_slot+"]"; .@equipment_count++; } } } set .@menu$,.@menu$ + ":"; .@i++; } // check if any available equip to refine if( !.@equipment_count ){ message strcharinfo(0),"Sorry, but you didnt have equipment that refined between "+.@arg[1]+" ~ "+.@arg[2]+" for refine."; end; }else{ // get equipment data .@equip_part = select( .@menu$ ); .@equip_id = getequipid( .@equip_part ); .@equip_refine = getequiprefinerycnt( .@equip_part ); .@equip_slot = getitemslots( .@equip_id ); for( .@i = 0; .@i < 4; .@i++ ) .@equip_card[.@i] = getequipcardid( .@equip_part,.@i ); .@target_refine = .@equip_refine + .@arg[3]; // determine refine count if( .@target_refine > .@arg[2] ) .@target_refine = .@arg[2]; else if( .@target_refine < 0 ) .@target_refine = 0; if( .@equip_refine == .@target_refine ){ message strcharinfo(0),"That's your current refine rate."; close; } .@success_rate = (( .@arg[5] )? .@arg[5]:getequippercentrefinery( .@equip_part ) ); // display information if( .@display_info ){ mes "Target Refine : "; mes "^0055FF"+( ( .@target_refine )?"+"+.@target_refine:"" )+" "+getitemname( .@equip_id )+" ["+.@equip_slot+"]^000000"; mes "Success Rate : ^777777"+.@success_rate+" %^000000"; if( .@success_rate < 100 ){ if( .@arg[8] ) mes "Bonus Rate : ^777777"+.@arg[8]+" %^000000"; if( .@arg[9] ){ mes "Required Item : ^FF0000"+getitemname( .@arg[9] )+"^000000"; mes " "; mes "^777777**"+getitemname( .@arg[9] )+" is required for bonus rate^000000"; } } next; } if( select( "[^0055FF"+.@success_rate+"%^000000] "+( ( .@arg[3] < 0 )?"De-":"" )+"Refine to ^0055FF"+( ( .@target_refine )?"+"+.@target_refine:"" )+" "+getitemname( .@equip_id )+" ["+.@equip_slot+"]^000000","Cancel" ) == 1 ){ if( getequipisequiped( .@equip_part ) ){ // if it's not De-refine and below 100% success if( .@arg[3] > 0 && .@success_rate < 100 ){ // calculate refine rate + bonus rate if( .@arg[9] ){ if( countitem( .@arg[9] ) ) if( select( "Use ^0055FF"+getitemname( .@arg[9] )+"^000000 to increase Refine Rate","Continue" ) == 1 ){ .@success_rate += .@arg[8]; delitem .@arg[9],1; } }else{ .@success_rate += .@arg[8]; } } delequip .@equip_part; // success and increase refine count if( rand( 100 ) < .@success_rate ){ getitem2 .@equip_id,1,1,.@target_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],.@equip_card[3]; message strcharinfo(0),"Succesfully refined to +"+.@target_refine+" "+getitemname( .@equip_id ); specialeffect2 EF_REFINEOK; close; // failed and decrease refine count }else if( .@arg[6] && .@arg[3] && rand( 100 ) < .@arg[7] ){ .@target_refine = ( .@equip_refine + .@arg[6] ); if( .@target_refine < 0 ) .@target_refine = 0; getitem2 .@equip_id,1,1,.@target_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],.@equip_card[3]; message strcharinfo(0),"Failed and refine count dropped to +"+.@target_refine+" "+getitemname( .@equip_id ); // failed and destroy equip }else{ message strcharinfo(0),"Failed to refine and destroyed "+getitemname( .@equip_id ); } specialeffect2 EF_REFINEFAIL; } } } close; }Anyone?
Link to comment
Share on other sites
4 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.