R> Enchanter that can enchant 1st to 4th slot

[Critica 2]

Hi guys,
can anyone here do me script like that?
just a simple enchanter that can enchat through slot 1st to 4th slot
with the required orb(enchantments) and success rate like 80% to 50%

there is a script like this, the custom echanter, but the script is too complicated

for me to edit it...

 

 

so if anyone could do this, that would be great! thanks!

[Louis T Steinhil 4]

				if( !.@card4 ){						getitem2 .@id, 1,1, .@ref, 0, .@card1, .@card2, .@card3, 4700 + .@o * 10 + .@r;						close;				}				else if( !.@card3 ){						getitem2 .@id, 1,1, .@ref, 0, .@card1, .@card2, 4700 + .@o * 10 + .@r, .@card4;						close;				}				else if( !.@card2 ){						getitem2 .@id, 1,1, .@ref, 0, .@card1, 4700 + .@o * 10 + .@r, .@card3, .@card4;											close;				}				else						getitem2 .@id, 1,1, .@ref, 0, 4700 + .@o * 10 + .@r, .@card2, .@card3, .@card4;						close;				else{					delitem2 .@id, 1,1, .@ref, 0, .@card1, .@card2, .@card3, .@card4;					specialeffect 155,0;					emotion e_an;					close;				}