viewing paste Socket Enchanter ( Zeny A | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
prontera,155,181,5      script  Sample  757,{
mes "Which Armor you want to Enchant ?";
mes "Make sure there is no Card / Rune in it.";
setarray .EquipID[0],2301,2302,2303,2304,2305,2306,2307,2308,2309,2310;
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] ) ){
        mes "You didnt have this Equipment with you.";
        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";
mes "Cost : ^FF0000"+( 20000000 * .@Rune )+"^000000 Zeny";
if( select("Confirm:Cancel") == 1 ){
        if( Zeny < ( 20000000 * .@Rune ) ){
                mes "You required "+( 20000000 * .@Rune )+" Zeny.";
        }else{
                set Zeny,Zeny - ( 20000000 * .@Rune );
                delitem .EquipID[.@Equip],1;
                if( rand(100) < 10 ){
                        mes "Sorry Enchant Process Failed. Both Equipment and Zeny lost.";
                }else{
                        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";
                }
        }
}
}
Viewed 879 times, submitted by Emistry.