good day friends please help me with this script found here at rathena
i want to remove the choices for what enchant sould be example the npc tell you if you like +1 str , +2 str etc.
i want to change it to by chance if the players enchant the costume he will get a 5% chance for enchanting to get +10 attributes if failed he only get +1 or +4
thank you this is the script
lhz_dun_n,139,261,4 script Enchant Master 468,{
mes "Which Item you want to Enchant ?";
mes "Make sure there is no Card / Rune in it.";
next;
setarray .EquipID[0],19970,19969,19968,19967,19966,19965,19964,19963,19962,19961,19971,19972,19974;
for( set .@i,0; .@i < getarraysize( .EquipID ); set .@i,.@i + 1 ){
set .@EquipMenu$,.@EquipMenu$ + getitemname( .EquipID[.@i] )+( !getitemslots(.EquipID[.@i])?"":"["+getitemslots(.EquipID[.@i])+"]" )+":";
}
set .@Equip,select( .@EquipMenu$ ) - 1;
if( !countitem( .EquipID[.@Equip] ) || countitem( 6469 ) < 25 ){
mes "You didnt have this Equipment with you or you didnt have enough of 25 "+getitemname( 6469 );
close;
}
mes "Equipment : ^FF0000"+getitemname( .EquipID[.@Equip] )+"^000000";
switch( select( "Strength:Intelligent:Dexterity:Agility:Vitality:Luck" )){
Case 1: setarray .RuneID[0],4700,4701,4702,4703,4704,4705,4706,4707,4708,4709; break;
Case 2: setarray .RuneID[0],4710,4711,4712,4713,4714,4715,4716,4717,4718,4719; break;
Case 3: setarray .RuneID[0],4720,4721,4722,4723,4724,4725,4726,4727,4728,4729; break;
Case 4: setarray .RuneID[0],4730,4731,4732,4733,4734,4735,4736,4737,4738,4739; break;
Case 5: setarray .RuneID[0],4740,4741,4742,4743,4744,4745,4746,4747,4748,4749; break;
Case 6: setarray .RuneID[0],4750,4751,4752,4753,4754,4755,4756,4757,4758,4759; break;
}
for( set .@i,0; .@i < getarraysize( .RuneID ); set .@i,.@i + 1 ){
set .@RuneMenu$,.@RuneMenu$ + getitemname( .RuneID[.@i] )+":";
}
set .@Rune,select( .@RuneMenu$ ) - 1;
mes "Rune : ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000";
next;
if( select("Confirm:Cancel") == 1 ){
delitem .EquipID[.@Equip],1;
delitem 6469,25;
getitem2 .EquipID[.@Equip],1,1,0,0,0,0,0,.RuneID[.@Rune];
mes "Done.";
mes "^0000FF"+getitemname( .EquipID[.@Equip] )+"^000000";
mes "Enchanted with ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000";
}
close;
}
Question
Quesooo
good day friends please help me with this script found here at rathena
i want to remove the choices for what enchant sould be example the npc tell you if you like +1 str , +2 str etc.
i want to change it to by chance if the players enchant the costume he will get a 5% chance for enchanting to get +10 attributes if failed he only get +1 or +4
thank you this is the script
lhz_dun_n,139,261,4 script Enchant Master 468,{ mes "Which Item you want to Enchant ?"; mes "Make sure there is no Card / Rune in it."; next; setarray .EquipID[0],19970,19969,19968,19967,19966,19965,19964,19963,19962,19961,19971,19972,19974; for( set .@i,0; .@i < getarraysize( .EquipID ); set .@i,.@i + 1 ){ set .@EquipMenu$,.@EquipMenu$ + getitemname( .EquipID[.@i] )+( !getitemslots(.EquipID[.@i])?"":"["+getitemslots(.EquipID[.@i])+"]" )+":"; } set .@Equip,select( .@EquipMenu$ ) - 1; if( !countitem( .EquipID[.@Equip] ) || countitem( 6469 ) < 25 ){ mes "You didnt have this Equipment with you or you didnt have enough of 25 "+getitemname( 6469 ); close; } mes "Equipment : ^FF0000"+getitemname( .EquipID[.@Equip] )+"^000000"; switch( select( "Strength:Intelligent:Dexterity:Agility:Vitality:Luck" )){ Case 1: setarray .RuneID[0],4700,4701,4702,4703,4704,4705,4706,4707,4708,4709; break; Case 2: setarray .RuneID[0],4710,4711,4712,4713,4714,4715,4716,4717,4718,4719; break; Case 3: setarray .RuneID[0],4720,4721,4722,4723,4724,4725,4726,4727,4728,4729; break; Case 4: setarray .RuneID[0],4730,4731,4732,4733,4734,4735,4736,4737,4738,4739; break; Case 5: setarray .RuneID[0],4740,4741,4742,4743,4744,4745,4746,4747,4748,4749; break; Case 6: setarray .RuneID[0],4750,4751,4752,4753,4754,4755,4756,4757,4758,4759; break; } for( set .@i,0; .@i < getarraysize( .RuneID ); set .@i,.@i + 1 ){ set .@RuneMenu$,.@RuneMenu$ + getitemname( .RuneID[.@i] )+":"; } set .@Rune,select( .@RuneMenu$ ) - 1; mes "Rune : ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000"; next; if( select("Confirm:Cancel") == 1 ){ delitem .EquipID[.@Equip],1; delitem 6469,25; getitem2 .EquipID[.@Equip],1,1,0,0,0,0,0,.RuneID[.@Rune]; mes "Done."; mes "^0000FF"+getitemname( .EquipID[.@Equip] )+"^000000"; mes "Enchanted with ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000"; } close; }
Link to comment
Share on other sites
0 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.