Hi... Im working on my custom enchanter here is the code..
veil,218,37,2 script Item Enchanter 84,{
setarray .camount[0], 25001,10,7828,300,7829,300,7773,300;
set .IE$,"[Item Enchanter]";
mes .IE$;
mes "I'm an engineer that specializes in Enchanting Armors.";
next;
mes .IE$;
mes "Enchanting may seem simple, but it's far more complicated than it looks.";
mes "If you're interested in my service, let me know.";
next;
switch( select( "^4169E1I am interested..^000000:I will think about it.." ) )
{
case 1:
mes .IE$;
mes "^FFA500To enchant your item.^000000";
mes "a) "+getitemname(.camount[0])+" x "+.camount[1]+".";
mes "b) "+getitemname(.camount[2])+" x "+.camount[3]+".";
mes "c) "+getitemname(.camount[4])+" x "+.camount[5]+"..";
mes "d) "+getitemname(.camount[6])+" x "+.camount[7]+".";
mes "e) Item must be equiped.";
next;
if (countitem(.camount[0]) < .camount[1]||countitem(.camount[2]) < .camount[3]||countitem(.camount[4]) < .camount[5]||countitem(.camount[6]) < .camount[7]){
mes .IE$;
mes "Required items are insufficient.";
close;
}
mes .IE$;
mes "^FFA500Choose the item that you want to enchant.^000000";
setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
set .@menu$,"";
for(set .@i,1; .@i<=10; set .@i,.@i+1) {
if (getequipisequiped(.@i)) {
set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
set .@equipped,1;
}
set .@menu$, .@menu$ + ":";
}
set .@part,select(.@menu$);
set .@Enchant, 24000 + rand(7);
set .@Rate, rand(100);
next;
//progressbar "",10;
delitem .camount[0], .camount[1];
delitem .camount[2], .camount[3];
delitem .camount[4], .camount[5];
delitem .camount[6], .camount[7];
if( .@Rate < 0 )
{ // % Break chance
failedenchant .@part;
mes .IE$;
mes "Wah! ...I am so sorry, it failed.";
mes "However, I am completely innocent.";
mes "This is your luck, and it is destined by god, okay?";
mes "Don't be so disappointed, and try next time.";
next;
mes .IE$;
mes "I wish you good luck next time!";
close;
}
successenchant .@part,.@Enchant;
mes .IE$;
mes "Great, your received ^0000FF" + getitemname(.@Enchant) + "^000000 enchant.";
mes "It looks pretty well done. Congratulations!";
next;
mes .IE$;
mes "See you again, buddy!";
close;
case 2:
mes .IE$;
mes "Okay.. I'm always free to work with you.";
mes "See you again...";
close;
}
}
I want to make a script that can enchant all equiped armors on the character.
But when Im trying my code it doesnt work no enchantment item appeared on the item, can you please check what is the problem? Im not too familiar with enchant script please help....
Question
nasagnilac
Hi... Im working on my custom enchanter here is the code..
I want to make a script that can enchant all equiped armors on the character.
But when Im trying my code it doesnt work no enchantment item appeared on the item, can you please check what is the problem? Im not too familiar with enchant script please help....
Edited by gmprestigeLink 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.