problem ... there is "Atk_Speed1" and "Atk_Speed2", but there is no "Atk_Speed3"
prontera,156,179,5 script Enchanter 100,{// rentitem Cotton_Shirt_, 10; mes "select which equipment to enchant"; next; .@s = select ( "Armor - "+( ( getequipisequiped( EQI_ARMOR ) )? "^0000FF["+ getequipname( EQI_ARMOR ) +"]" : "^FF0000 (none)" )+"^000000", "Garment - "+( ( getequipisequiped( EQI_GARMENT ) )? "^0000FF["+ getequipname( EQI_GARMENT ) +"]" : "^FF0000 (none)" )+"^000000", "Shield - "+( ( getequipisequiped( EQI_HAND_L ) && getiteminfo( getequipid( EQI_HAND_L ), 2 ) == IT_ARMOR )? "^0000FF["+ getequipname( EQI_HAND_L ) +"]" : "^FF0000 (none)" )+"^000000", "Shoes - "+( ( getequipisequiped( EQI_SHOES ) )? "^0000FF["+ getequipname( EQI_SHOES ) +"]" : "^FF0000 (none)" )+"^000000" ); .@pos = .pos[.@s]; if ( getequipcardid( .@pos, 3 ) ) { mes "this item has been enchanted"; close; } .@eq = getequipid( .@pos ); mes "select the type of enchant"; next; .@type = select( .enc_menu$ ) -1; mes "select the level of enchantment"; mes "level 1 has 30% chance of success"; mes "level 2 has 20% chance of success"; mes "level 3 has 10% chance of success"; next; .@level = select( "1", "2", "3" ); mes "Are you sure you want to insert level "+ .@level +" "+ .enc$[.@type] +" into your "+ getitemname( .@eq ) +" ?"; mes "The fee is 250,000z and 3 Poring Coin"; next; if ( select( "Yes", "No" ) == 2 ) close;// counter check ... in case player change the equipment if ( getequipid( .@pos ) != .@eq ) { mes "what the hell ... you changed the item !"; close; } if ( getequipcardid( .@pos, 3 ) ) { mes "what the hell ... this item has been enchanted !"; close; } if ( Zeny < 250000 ) { mes "You don't have enough Zeny"; close; } if ( countitem( Poring_Coin ) < 3 ) { mes "You don't have enough Poring Coin"; close; } Zeny -= 250000; delitem Poring_Coin, 3; .@refine = getequiprefinerycnt( .@pos ); .@card0 = getequipcardid( .@pos, 0 ); .@card1 = getequipcardid( .@pos, 1 ); .@card2 = getequipcardid( .@pos, 2 ); if ( rand(100) < .rate[ .@level ] ) { delitem2 .@eq, 1, 1, .@refine, 0, .@card0, .@card1, .@card2, 0; getitem2 .@eq, 1, 1, .@refine, 0, .@card0, .@card1, .@card2, getd( ".enc"+ .@level +"["+ .@type +"]" ); mes "It's a success !"; } else mes "It's a failure ..."; close;OnInit: .material = Poring_Coin; setarray .pos[1], EQI_ARMOR, EQI_GARMENT, EQI_HAND_L, EQI_SHOES; setarray .enc$, "Str", "Int", "Dex", "Agi", "Vit", "Luk", "Atk", "Matk", "HP"; setarray .enc1, Strength1, Inteligence1, Dexterity1, Agility1, Vitality1, Luck1, Atk1, Matk1, HP100; setarray .enc2, Strength2, Inteligence2, Dexterity2, Agility2, Vitality2, Luck2, Atk2, Matk2, HP200; setarray .enc3, Strength3, Inteligence3, Dexterity3, Agility3, Vitality3, Luck3, Atk3, Matk3, HP300; setarray .rate[1], 30, 20, 10; .enc_menu$ = implode( .enc$, ":" ); end;}I think this script quite dangerous ... there is not script command for checking the equipment is bounded or rentedwithout the checks, player can use this script to change bounded or rented equipment into permanent trade-able equipment
