Thread Closed 
 
Thread Rating:
  • 4 Vote(s) - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Enchant
Author Message
NaoJogoMais Offline
I'm Watching You!
**

Posts: 924
Joined: Oct 2012
Reputation: 194
Version: 1.4.2.132
Post: #1
Enchant

I try use this script to enchant weapon. Work good but just enchant 1 time, then stop.

Someone know why? (GoD Retail)

    LUA Programming
-- SCRIPT CONFIGURATION!
 
item_name = "Crafted Dagger"
--item_name = "Crafted Dagger"
enchant_name = "Scroll: Enchant Weapon (D-grade)"
--enchant_name = "Scroll: "Blessed Enchant Armor" (Grade S)"
blessed_enchant_name = "Blessed Scroll: Enchant Weapon (Grade S)"
max_enchant = 10
max_safe_enchant = 10
delay = 100
 
-- END OF SCRIPT CONFIGURATION
 
-- HELPER FUNCTIONS
function enchantResult()
  return GetEnchantManager():getLastResult()
end
 
function getItemByName(name, maxenchant)
    invList = GetInventory();
    for item in invList.list do
        if item.Name == name and item.Enchanted < maxenchant then
            return item
        end
    end
end
 
stats = {}
 
function registerSuccess(base)
    if stats[base] == nil then
        stats[base] = { success = 0, failure = 0 }
    end
    stats[base].success = stats[base].success + 1
end
 
function registerFailure(base)
    if stats[base] == nil then
        stats[base] = { success = 0, failure = 0 }
    end
    stats[base].failure = stats[base].failure + 1
end
 
function printStatistics()
    for i,v in ipairs(stats) do
        ShowToClient("Enchant", "[" ..     i - 1 .. "->" .. i .. "] Rate: success: " .. v.success .. " / fail: " .. v.failure .." (" .. ( v.success  * 100 )/ ( v.success + v.failure ) .. "%)")
    end
end
 
-- MAIN LOOP!
 
while true do
    -- find item for enchanting
    item = getItemByName(item_name, max_enchant)
    if ( item == nil ) then
        ShowToClient("Enchant", "Out of items" )
        break
    end
    -- find proper enchant scroll
    enchant = nil
    if ( item.Enchanted >= max_safe_enchant ) then
        enchant = getItemByName(blessed_enchant_name, 20)
    else
        enchant = getItemByName(enchant_name, 20)
    end
 
    if ( enchant == nil ) then
        ShowToClient("Enchant", "Out of enchants")
        break
    end
 
     GetEnchantManager():setDelay(delay)
    GetEnchantManager():setEnchantId(enchant.objectId)
    GetEnchantManager():setItemId(item.objectId)
    GetEnchantManager():Enchant()
 
    while ( enchantResult() == Enchant.ENCHANT_PENDING ) do
        Sleep(200)
    end
 
    if ( enchantResult() == Enchant.ENCHANT_SUCCESS ) then    
        Sleep ( 500 ) -- sleep so item data is updated
        item = GetInventory():FindById(item.objectId)
        ShowToClient("Enchant",  item.Name .. " is now +" .. item.Enchanted);
        registerSuccess ( item.Enchanted )
    elseif ( enchantResult() == Enchant.ENCHANT_FAILURE ) then
        ShowToClient("Enchant",  item.Name .. " failed on " .. item.Enchanted .. " -> " .. item.Enchanted+1)
        Sleep ( 500 ) -- sleep so item data is updated
        registerFailure ( item.Enchanted + 1)
    end
    printStatistics()
end
ShowToClient("Enchant", "Enchant script finished")
printStatistics()


.


[ RETIRED ]
...from retail!



[Image: 201628.png]
04-09-2013 21:37 PM
Find all posts by this user
Thread Closed 


Possibly Related Threads...
Thread: Author Replies: Views: Last Post
  [Need Help] Enchant Script nvnhathuy 1 4,430 03-03-2017 20:07 PM
Last Post: deivuzas1
  Get skill enchant level raid1141 1 3,491 10-15-2015 14:57 PM
Last Post: raid1141
  Auto Enchant Script sone78 3 7,032 11-26-2014 17:20 PM
Last Post: sone78
  Not working Enchant sallabisey 0 1,762 03-28-2014 08:02 AM
Last Post: sallabisey
  Enchant salimonas 0 1,903 06-29-2013 22:25 PM
Last Post: salimonas
  Auto Enchant Armor problems psyhyk 1 3,265 03-28-2013 23:06 PM
Last Post: MtnDew
  Enchant not blessed? jnorman 6 5,802 01-21-2013 00:04 AM
Last Post: jnorman
  Script Enchant Armor ? Farghass 1 5,747 11-22-2012 23:13 PM
Last Post: aniah
  The script to enchant and + 2 stops working what is wrong? xamius55 1 2,469 08-07-2012 19:12 PM
Last Post: AdioZ
Question Auto item enchant problem [Video] AdioZ 4 14,298 08-05-2012 11:06 AM
Last Post: feliperigo



User(s) browsing this thread: 1 Guest(s)