As requested Cerverza...
unfortunately without the 'ENs_EUOCommandLibrary.Lua' it wont function.. so i guess i better make a big push to finish that library
--=========================================;
-- Script Name: Auto Honor & Attack ;
-- Author: Cerveza ;
-- Version: 2.5 ;
-- Shard OSI/FS: OSI/FS ;
-- Revision Date: 02/07/2010 ;
-- Purpose: Honor and Attack ;
--=========================================;
-- ____ _ _ __ _ ___ ;
-- / __/ ___ _ _(_)_ _ | |_\ \ / /_ \ ;
-- \__ \/ _| `_| | ` \| _/ / \ \/ \ \ ;
-- __/ \ (_| | | | |) | | \ \_/ /\_/ / ;
-- \____/\__|_| |_| _/\__\ \___/\___/ ;
-- |_| ;
--=========================================;
-- Setup: ;
-- Add monster Types for auto honor ;
-- http://www.easyuo.com/creaturetype.php ;
--=========================================;
-- v1.0 - First SUO Release ;
-- v2.0 - Second SUO Release - rewrite ;
-- v2.0a - Fixed spelling error, timout lol;
-- v2.5 - Added CLAW support ;
--=========================================;
------------------------------------------------------------------------------------
-- required files
------------------------------------------------------------------------------------
dofile('ENs_EUOCommandLibrary.lua')
------------------------------------------------------------------------------------
-- function definition block
------------------------------------------------------------------------------------
function tamer(...)
UO.Macro(3,0,all,kill)
EUO_Target()
UO.Macro(22,0)
g_target=UO.LTargetID
g_timer_timeout=(EUO_GetScnt()+g_timeout)
repeat
EUO_Find, EUO_FindIndex, EUO_FindCnt=EUO_FindItem(g_target)
until EUO_FindCnt<1 or (EUO_GetScnt()>g_timer_timeout)
UO.Macro(3,0,all,follow,me)
Wait(5 * 50) -- Coverted to Milliseconds
UO.Macro(3,0,all,guard,me)
Wait(40 * 50) -- Coverted to Milliseconds -- defeats the corpse honor bug thing
return
end
function melee(...)
UO.Macro(27,0) -- attack last
g_target=UO.LTargetID
g_timer_timeout=(EUO_GetScnt()+g_timeout)
repeat
EUO_Find, EUO_FindIndex, EUO_FindCnt=EUO_FindItem(g_target)
if g_consecrate== true and EUO_GetScnt() > g_timer_consecrate and UO.Mana > g_mana_consecrate then
EUO_Result=consecrate()
end
until EUO_FindCnt==0 or EUO_GetScnt()>g_timer_timeout
Wait(40 * 50) -- Coverted to Milliseconds -- defeats the corpse honor bug thing
return
end
function consecrate(...)
UO.Macro(15,203) -- consecrate weapon
g_timer_consecrate=(EUO_GetScnt()+8)
Wait(5 * 50) -- Coverted to Milliseconds
return
end
------------------------------------------------------------------------------------
-- end of function block
------------------------------------------------------------------------------------
-- Adjust these for your preference
g_monsters=FD_HI_ -- demons and succubi
g_timeout=25 -- app. time in seconds between kills
g_mana_consecrate=15
-- No editing required below this line
g_tamer=false
g_consecrate=false
g_timer_consecrate=EUO_GetScnt()
EUO_DispRes=EUO_Display("yesno","Are you using a Tamer and Pet?")
if EUO_DispRes== yes then
g_tamer=true
end
if g_tamer== false then
EUO_DispRes=EUO_Display("yesno","Use Consecrate Weapon for each monster?")
if EUO_DispRes== yes then
g_consecrate=true
end
end
repeat
EUO_Find, EUO_FindIndex, EUO_FindCnt=EUO_FindItem(g_monsters,'G_8') -- 8 is max range for honor, just targetting can go 15 or more
if EUO_FindCnt> 0 then
UO.LTargetID=EUO_Find[EUO_FindIndex].ID
UO.LTargetKind=1
UO.Macro(49,1) -- honor
EUO_Target()
UO.Macro(22,0) -- last target
Wait(5 * 50) -- Coverted to Milliseconds
if g_tamer== true then
EUO_Result=tamer()
end
if g_tamer== false then
EUO_Result=melee()
end
repeat
EUO_NSName , EUO_NSType = EUO_NSCopy(TM_loot_in_progress,from,globalTM_loot)
until l_TM_loot_in_progress~=true
end
Wait(5 * 50) -- Coverted to Milliseconds
until false