DrGruning
-
Posts
7 -
Joined
-
Last visited
Content Type
Profiles
Forums
Downloads
Jobs Available
Server Database
Third-Party Services
Top Guides
Store
Crowdfunding
Posts posted by DrGruning
-
-
mm this is pretty weird to be honest.. and i've tried replacing item_db with a fresh one...
-
Everything works except from @reloaditemdb, no error shown in the console, it just freeze and map server hung with no crash error...
-
Thanks a lot for your input @sader1992. Aftter trying your fixes at first it didn't work but somehow after replacing .@eq_loc to .@equip_loc it worked!
-
prt_in,86,73,5 script Bermund 654,{ function get_rune_id; function get_rune_equip; function get_rune_zeny; function get_rune_success_rate; disable_items; mes "You want to fuse the MvP Core with your equipments?"; mes "NOTE:"; mes "Please by all means just have equipped the item you will enchant and once at time,that is to avoid any item lost or bug, you are already warned"; mes "Enchanting an equipment will erase Item Options"; .@color = select( "Shoes","Armor","Shield","Accesories","Headgear" ); next; mes "I can transmute it depending on your budget and wiht it chances increases"; .@rank = select( "Normal Services","Premiun Services","VIP Services" ); .@enchant_slot = 4; .@equip_loc = get_rune_equip( .@color ); .@rune_id = get_rune_id( .@color,.@rank ); .@zeny_cost = get_rune_zeny( .@rank ); .@success_rate = get_rune_success_rate( .@rank ); .@item_id = getequipid( .@equip_loc ); next; mes "Equipment: "+getitemname( .@item_id ); mes "Rune: "+getitemname( .@rune_id ); mes "Zeny: "+F_InsertComma( .@zeny_cost ); mes "Success Rate: "+.@success_rate+"%"; mes " "; if ( Zeny >= .@zeny_cost ) if ( select( "Continue","Cancel" ) == 1 ) { if ( getitemslots( .@item_id ) >= .@enchant_slot ) { mes "This item slot cant be enchanted."; } else { Zeny -= .@zeny_cost; if ( rand(100) < .@success_rate ) { for ( .@card = 0; .@card < 4; .@card++ ) .@slot[.@card] = getequipcardid( .@equip_loc,.@card ); setarray .@OptID[0],0; setarray .@OptID[1],0; setarray .@OptID[2],0; setarray .@OptID[3],0; setarray .@OptID[4],0; setarray .@OptVal[0],0; setarray .@OptVal[1],0; setarray .@OptVal[2],0; setarray .@OptVal[3],0; setarray .@OptVal[4],0; setarray .@OptParam[0],0; setarray .@OptParam[1],0; setarray .@OptParam[2],0; setarray .@OptParam[3],0; setarray .@OptParam[4],0; for (.@j = 0; .@j < 5; .@j++) { setarray .@OptID[.@j],getequiprandomoption(.@eq_loc,.@j,ROA_ID); setarray .@OptVal[.@j],getequiprandomoption(.@eq_loc,.@j,ROA_VALUE); setarray .@OptParam[.@j],getequiprandomoption(.@eq_loc,.@j,ROA_PARAM); } .@refine = getequiprefinerycnt( .@equip_loc ); .@slot[.@enchant_slot-1] = .@rune_id; mes "Enchant Success"; specialeffect2 EF_REFINEOK; delitem .@rune_id,1; delitem3 .@item_id,1,1,.@refine,0,.@slot[0],.@slot[1],.@slot[2],.@slot[3],.@OptID,.@OptVal,.@OptParam; getitem3 .@item_id,1,1,.@refine,0,.@slot[0],.@slot[1],.@slot[2],.@slot[3],.@OptID,.@OptVal,.@OptParam; } else { mes "Enchant Failed."; specialeffect2 EF_REFINEFAIL; delitem .@rune_id,1; } } } close; function get_rune_id { .@color = getarg(0,0); .@rank = getarg(1,0); switch( .@color ) { case 1: // Blue switch( .@rank ) { case 1: setarray .@rune_list,15495,15539,15482; break; case 2: setarray .@rune_list,15495,15539,15482; break; case 3: setarray .@rune_list,15495,15539,15482; break; default: break; } break; case 2: // Green switch( .@rank ) { case 1: setarray .@rune_list,15485,15501,15493,15500,15542,15501; break; case 2: setarray .@rune_list,15485,15501,15493,15500,15542,15501; break; case 3: setarray .@rune_list,15485,15501,15493,15500,15542,15501; break; default: break; } break; case 3: // Yellow switch( .@rank ) { case 1: setarray .@rune_list,15496,15502,15497; break; case 2: setarray .@rune_list,15496,15502,15497; break; case 3: setarray .@rune_list,15496,15502,15497; break; default: break; } break; case 4: // Red switch( .@rank ) { case 1: setarray .@rune_list,15494,15487,15489; break; case 2: setarray .@rune_list,15494,15487,15489; break; case 3: setarray .@rune_list,15494,15487,15489; break; default: break; } break; case 5: // Red switch( .@rank ) { case 1: setarray .@rune_list,15541,15544; break; case 2: setarray .@rune_list,15541,15544; break; case 3: setarray .@rune_list,15541,15544; break; default: break; } break; default: break; } .@rune_list_size = getarraysize( .@rune_list ); if ( .@rune_list_size ) { while ( .@i < .@rune_list_size ) { .@menu$ = .@menu$ + ( ( countitem( .@rune_list[.@i] ) )? "^0055FF":"^777777" ) + getitemname( .@rune_list[.@i] ) + "^000000" + ":"; .@i++; } .@i = select( .@menu$ ) - 1; if ( !countitem( .@rune_list[.@i] ) ) { mes "You don't have the required rune."; close; } } return .@rune_list[.@i]; } function get_rune_equip { .@color = getarg(0,0); switch ( .@color ) { case 1: // Blue setarray .@equip_loc_list,EQI_SHOES; setarray .@equip_loc_name$,"SHOES"; break; case 2: // Green setarray .@equip_loc_list,EQI_ARMOR; setarray .@equip_loc_name$,"ARMOR"; break; case 3: // Yellow setarray .@equip_loc_list,EQI_HAND_L; setarray .@equip_loc_name$,"SHIELD"; break; case 4: // Red setarray .@equip_loc_list,EQI_ACC_L,EQI_ACC_R; setarray .@equip_loc_name$,"ACCESSORY LEFT","ACCESSORY RIGHT"; break; case 5: // Red setarray .@equip_loc_list,EQI_HEAD_LOW ; setarray .@equip_loc_name$,"LOWER HEADGEAR"; break; default: break; } .@equip_loc_list_size = getarraysize( .@equip_loc_list ); if ( .@equip_loc_list_size ) { while ( .@i < .@equip_loc_list_size ) { .@equip_id = getequipid( .@equip_loc_list[.@i] ); .@menu$ = .@menu$ + ( ( .@equip_id <= 0 )?"^777777":"^0055FF" ) +.@equip_loc_name$[.@i] + " (" + getitemname( .@equip_id ) + ")^000000" + ":"; .@i++; } .@i = select( .@menu$ ) - 1; if ( getequipid( .@equip_loc_list[.@i] ) <= 0 ) { mes "You didnt equipped any equipment on this slot."; close; } } return .@equip_loc_list[.@i]; } function get_rune_zeny { .@rank = getarg(0,0); switch( .@rank ) { case 1: return 1000000; // Rare - 1,000,000 Zeny case 2: return 10000000; // Epic - 10,000,000 Zeny case 3: return 25000000; // Legend - 80,000,000 Zeny default: return 0; } } function get_rune_success_rate { .@rank = getarg(0,0); switch( .@rank ) { case 1: return 10; // Rare - 90% success case 2: return 15; // Epic - 50% success case 3: return 20; // Legend - 20% success default: return 0; } } }I have this custom enchant system right, but when i tried to adapt it to random option support it always delete the random options, and shows the following error at console:
-
Thanks for your input, but i don't think that's how its supposed to work, random option should stay permanently if so, enlight me otherwise.
-
//===== rAthena Script ======================================= //= Random Option NPC dealer //===== By: ================================================== //= Keitenai //===== Current Version: ===================================== //= 1.0 //===== Compatible With: ===================================== //= rAthena Project //===== Description: ========================================= //= Deals with a player to apply random item option //= for the price of zeny/cashpoint //============================================================ vip_lounge,70,147,3 script Magnus 500,{ goto NPC; end; OnInit: //============================== // CURRENCY SETTING // 1 = Zeny // 0 = Cashpoints //============================== set .Currency,1; // Currency to buy random option //============================== // RANDOM OPTION SETTING //============================== set .OverWrite,1; // Allows overwriting the already existing option enchantment ( 0 to disable ) set .MaxOpt,64; // Maximum item option a player can enchant ( reference: https://github.com/rathena/rathena/blob/master/db/const.txt#L1645-L1836 ) set .MinOpt,1; // Minimum item option a player can enchant set .MinValue,1; // Minimum option effect value set .MaxValue,10; // Maximum option effect value set .MaxIndex,3; // Maximum option slots ( default is 0 to 4 ) // Random option that will not be applied setarray .ignore[0], end; NPC: disable_items; mes "[ Magnus ]"; mes "Good day sir"; mes "My name is magnus and i can unlock your Weapon inner abilities"; mes "abilities are chosen at ^FF0000random^000000"; next; mes "[ Magnus ]"; mes "I can make your weapon"; mes "become more powerful"; if(.Currency){ mes "For a prize of ^0000FF1x Weapon V Core^000000,"; } else { mes "For a prize of ^0000FF"+.Price+" Cashpoints^000000,"; } mes "I will apply a ^FF0000RANDOM^000000"; mes "option enchantment on your"; mes "equipment. (^_^)"; next; if(select("^0000FFEnchant my equip!^000000:Nevermind i changed my mind...")==2) goto OnCancel; mes "[ Magnus ]"; mes "Wonderful!"; mes "i'll start right away"; mes "Don't move a muscle while"; mes "i'm enchanting your equipment!"; close2; setarray .@eq[1], EQI_HAND_R; for(set .@i,1; .@i<getarraysize(.@eq); set .@i,.@i+1){ if(getequipisequiped(.@eq[.@i])){ set .@menu$,.@menu$+F_getpositionname(.@eq[.@i])+" ~ [ " + getequipname(.@eq[.@i]) + " ]"; set .@equipped,1; } set .@menu$,.@menu$+":"; } set .@part,.@eq[select(.@menu$)]; set .@val,rand(.MinValue,.MaxValue); OnLoop: set .@opt,rand(.MinOpt,.MaxOpt); for(set .@f,1; .@f<getarraysize(.ignore); set .@f,.@f+1){ if(.@opt==.ignore[.@f]){ goto IgnoreCheck; end; } } goto OnApplyOpts; end; IgnoreCheck: set .@opt,rand(.MinOpt,.MaxOpt); for(set .@f,1; .@f<getarraysize(.ignore); set .@f,.@f+1) if(.@opt==.ignore[.@f]){ goto OnLoop; end; } OnApplyOpts: set .@indx,rand(.MaxIndex); if(!.OverWrite){ if(getequiprandomoption(.@part,4,ROA_ID,getcharid(0))) set .@x4,4; if(getequiprandomoption(.@part,3,ROA_ID,getcharid(0))) set .@x3,3; if(getequiprandomoption(.@part,2,ROA_ID,getcharid(0))) set .@x2,2; if(getequiprandomoption(.@part,1,ROA_ID,getcharid(0))) set .@x1,1; if(getequiprandomoption(.@part,0,ROA_ID,getcharid(0))) set .@x0,0; if(.@indx == 0 && .@x0) if(.@indx==.MaxIndex) goto OnMax; else set .@indx,1; if(.@indx == 1 && .@x1) if(.@indx==.MaxIndex) goto OnMax; else set .@indx,2; if(.@indx == 2 && .@x2) if(.@indx==.MaxIndex) goto OnMax; else set .@indx,3; if(.@indx == 3 && .@x3) if(.@indx==.MaxIndex) goto OnMax; else set .@indx,4; if(.@indx == 4 && .@x4) if(.@indx==.MaxIndex) goto OnMax; } if(.@indx == 4 && (!getequiprandomoption(.@part,3,ROA_ID,getcharid(0)))) set .@indx,3; if(.@indx == 3 && (!getequiprandomoption(.@part,2,ROA_ID,getcharid(0)))) set .@indx,2; if(.@indx == 2 && (!getequiprandomoption(.@part,1,ROA_ID,getcharid(0)))) set .@indx,1; if(.@indx == 1 && (!getequiprandomoption(.@part,0,ROA_ID,getcharid(0)))) set .@indx,0; if(.Currency){ if( countitem(20986) < 1 ) goto PriceFail; else delitem 20986,1; } else { if(#CASHPOINTS < .Price) goto PriceFail; else set #CASHPOINTS,#CASHPOINTS-.Price; } // Success!! setrandomoption(.@part,.@indx,.@opt,.@val,.@indx,getcharid(0)); end; OnMax: mes "[ Magnus ]"; mes "Wow! your equip already"; mes "Maxed out its option"; mes "enchant slots!"; mes "Sorry but I can't add"; mes "any more enchantment with"; mes "your equipment."; close; OnFailure: specialeffect2 EF_PHARMACY_FAIL; mes "[ Magnus ]"," "; mes "I'm really sorry..."," "; mes "^FF0000The process have failed..."; mes "Your item has been destroyed.^000000"; delequip .@part; close; PriceFail: mes "[ Magnus ]"; mes "What's this?"; mes "Are you kidding me?"; mes "Sorry but I don't work"; mes "for free!"; mes "You can come back if you"; mes "Have enough to pay for"; mes "my service."; close; OnCancel: mes "[ Magnus ]"; mes "Suit yourself."; mes "Let me know if you"; mes "ever changed you mind"; close; }Although random option is applied and the bonus works, when i relog, the last random option applied dissapear, i tried simpliers script and it worked, this somehow not
Server hung when @reloaditemdb
in General Support
Posted
I'll try and see if it's limited to my import folders being way too big or something related to memory hungry scripts, but i'm on a dedicated server which makes it weird, since resources shouldn't be problem