lineage2/l2-unlegits
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
79b2bf06a8
l2-unlegits/l2ooghelper/sys_scripts/sys_ai_general.lua
alexey.min 03de3bdc95 Initial MSVC 2008 projects workspace
2012-02-01 05:25:08 +00:00

426 lines
16 KiB
Lua
Raw Blame History

-- script globals
script_name = "AI: ";
sys_isResting = false;
l2h_print( "Sys AI script started\n" );
-- sys config vars
botting_combat_enable = 0;
-- self heal
self_heal_sit_hp_enable = 0;
self_heal_sit_mp_enable = 0;
self_heal_sit_hp = 0;
self_heal_sit_mp = 0;
self_heal_stand_hp_enable = 0;
self_heal_stand_mp_enable = 0;
self_heal_stand_hp = 0;
self_heal_stand_mp = 0;
self_heal_use_item_nConds = 0;
self_heal_use_skill_nConds = 0;
-- party
party_loot = 0;
--Iparty_auto_accept_enable=1 -- used by system
--Sparty_auto_accept_names=EPLLI -- used by system
party_auto_invite_enable = 0;
party_auto_invite_names = "";
party_assist_enable = 0;
follow_enable = 0;
follow_name = "";
follow_dist = 0;
function cfg_load_self_heal()
self_heal_sit_hp_enable = l2ccfg_getInt( "self_heal_sit_hp_enable" );
self_heal_sit_mp_enable = l2ccfg_getInt( "self_heal_sit_mp_enable" );
self_heal_sit_hp = l2ccfg_getInt( "self_heal_sit_hp" );
self_heal_sit_mp = l2ccfg_getInt( "self_heal_sit_mp" );
self_heal_stand_hp_enable = l2ccfg_getInt( "self_heal_stand_hp_enable" );
self_heal_stand_mp_enable = l2ccfg_getInt( "self_heal_stand_mp_enable" );
self_heal_stand_hp = l2ccfg_getInt( "self_heal_stand_hp" );
self_heal_stand_mp = l2ccfg_getInt( "self_heal_stand_mp" );
botting_combat_enable = l2c_isCombatEnabled();
self_heal_use_item_nConds = l2ccfg_getInt( "self_heal_use_item_nConds" );
self_heal_use_skill_nConds = l2ccfg_getInt( "self_heal_use_skill_nConds" );
end
function cfg_load_party()
party_loot = l2ccfg_getInt( "party_loot" );
party_auto_invite_enable = l2ccfg_getInt( "party_auto_invite_enable" );
party_auto_invite_names = l2ccfg_getStr( "party_auto_invite_names" );
party_assist_enable = l2ccfg_getInt( "party_assist_enable" );
follow_enable = l2ccfg_getInt( "follow_enable" );
follow_name = l2ccfg_getStr( "follow_name" );
follow_dist = l2ccfg_getInt( "follow_dist" );
end
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
function ensurestand()
local isSitting, isRunnig = l2c_getSitRun();
if isSitting then
l2c_sitStand();
l2h_delay( 1000 );
end
end
function ensuresit()
local isSitting, isRunnig = l2c_getSitRun();
if not isSitting then
l2c_sitStand();
l2h_delay( 1000 );
end
end
function ensurerun()
local isSitting, isRunnig = l2c_getSitRun()
if not isRunnig then
l2c_runWalk();
l2h_delay( 50 );
end
end
function ensurewalk()
local isSitting, isRunnig = l2c_getSitRun()
if isRunnig then
l2c_runWalk();
l2h_delay( 50 );
end
end
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> true, <20><><EFBFBD><EFBFBD> <20><><EFBFBD> skillID <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> have_buffs
function isBuffPresent( skillID, have_buffs )
if not have_buffs then return end
local i = 0;
for i=1, #have_buffs do
if have_buffs[i].skillID == skillID then return true end
end
return false
end
function wait_end_of_cast()
while l2c_isCastingNow() do l2h_delay( 50 ) end
end
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
function wait_skill_reuse( skillID )
local msecLeft = l2c_getSkillReuseLeft( skillID );
if msecLeft <= 0 then return end
l2h_delay( msecLeft )
end
-- true: <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>, false - <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
function isSkillReadyForReuse( skillID )
local msecLeft = l2c_getSkillReuseLeft( skillID );
if msecLeft <= 0 then return true end
return false
end
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> objectID <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> timeoutSecs <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> true, <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
function myTargetObjectTimeout( objectID, timeoutSecs )
local targetStartTime = l2h_time();
-- <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
local targetObjectId = l2c_getTarget();
if targetObjectId == objectID then return end -- <20><><EFBFBD>, <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-- <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
l2c_action( objectID );
local timePassed = 0;
repeat
targetObjectId = l2c_getTarget();
l2h_delay( 100 );
if sys_should_exit() then return end
local curTime = l2h_time();
timePassed = curTime - targetStartTime;
until (timePassed > timeoutSecs) or (targetObjectId == objectID)
if( targetObjectId ~= objectID ) then
l2h_print( script_name, " ERROR: cannot target [", objectID, "]\n" );
return false
end
return true
end
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 100<30><30> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-- <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
function myUseSkill( skillID )
l2c_useSkill( skillID )
l2h_delay( 150 )
end
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> [name] <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [distance]
-- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [distance], follow <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-- randomness - <20><><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1-100
function follow( name, distance, randomness )
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> objectID <20><><EFBFBD><EFBFBD>
local objectID = l2c_getCharObjectIdByName( name )
-- <20> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
if objectID == nil then
--l2h_print( script_name, " Character [", name, "] is not visible!\n" );
l2h_delay( 200 );
return
end
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20> 2 <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if randomness >= distance then randomness = distance/2; end
local x, y, z -- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
local c -- <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
-- <20> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
x,y,z = l2c_getPos() -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
c = l2c_getObjectInfoByObjectId( objectID ) -- <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
if not c then return end -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 25-50 <20><> :(
if (math.abs(c.x - x) < distance) and (math.abs(c.y - y) < distance) then
return -- <20><> <20><> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>
end
-- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
repeat
if sys_should_exit() then return end -- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> "<22><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>
c = l2c_getObjectInfoByObjectId( objectID );
if not c then return end -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 25-50 <20><> :(
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
local x_rand = math.random( (0-randomness), randomness );
local y_rand = math.random( (0-randomness), randomness );
l2c_moveTo( c.x + x_rand, c.y + y_rand, c.z ) -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>
l2h_delay( 300 ) -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 300 ms
x,y,z = l2c_getPos() -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>.
-- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
until (math.abs(c.x - x) < distance) and (math.abs(c.y - y) < distance)
end
function isCharInParty( name, party )
--l2c_getParty() always returns not nil
if #party < 1 then return false end
local i = 0
for i=1, #party do
if party[i].name == name then return true end
end
return false
end
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>), <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ItemID
sys_item_last_use_time_ms = { 0 };
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>), <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> true..
function isItemReadyForReuse( itemID, reuseDelayMS )
local cur_time_ms = l2h_timeMsec();
local last_use_time_ms = cur_time_ms - reuseDelayMS - 1000;
if sys_item_last_use_time_ms[ itemID ] ~= nil then
last_use_time_ms = sys_item_last_use_time_ms[ itemID ];
--l2h_print( "isItemReadyForReuse(): itemID ", itemID, " was used at ", last_use_time_ms, " ms\n" );
end
local next_use_time_ms = last_use_time_ms + reuseDelayMS;
if next_use_time_ms <= cur_time_ms then return true end -- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
return false -- <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> )
end
-- <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
function myUseItem( itemID )
l2c_useItem( itemID );
sys_item_last_use_time_ms[ itemID ] = l2h_timeMsec();
end
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
function general_ai_self_rest_sit_stand()
local curHp, maxHp, curMp, maxMp = l2c_getHPMPCPWeight();
local hpp = 100.0 * curHp / maxHp;
local mpp = 100.0 * curMp / maxMp;
-- check config
cfg_load_self_heal();
local hp_bad = false;
local mp_bad = false;
local hp_good = true;
local mp_good = true;
if self_heal_sit_hp_enable and (hpp < self_heal_sit_hp) then hp_bad = true; end
if self_heal_sit_mp_enable and (mpp < self_heal_sit_mp) then mp_bad = true; end
if self_heal_stand_hp_enable and (hpp < self_heal_stand_hp) then hp_good = false; end
if self_heal_stand_mp_enable and (mpp < self_heal_stand_mp) then mp_good = false; end
if not sys_isResting then -- <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
if hp_bad or mp_bad then -- <20><><EFBFBD><EFBFBD>
l2h_print( script_name, " Rest start, HP ", hpp, "%, MP ", mpp, "%, sitting\n" );
ensuresit();
sys_isResting = true; -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
return
end
else -- <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
local isSitting, isRunning = l2c_getSitRun();
if not isSitting then -- <20> <20><> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>! <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>??
sys_isResting = false; -- <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!
l2h_print( script_name, " Rest interrupted (stand)?\n" );
--l2h_soundAlert();
return
end
if hp_good and mp_good then -- <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
l2h_print( script_name, " Rest end, HP ok ", hpp, "%, MP ok ", mpp, "%, standing\n" );
sys_isResting = false; -- <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!
ensurestand();
l2h_delay( 1500 );
end
end
end
function general_ai_follow()
cfg_load_party();
if follow_enable > 0 then
follow( follow_name, follow_dist, 30 );
end
end
function general_ai_party_auto_invite()
local party = l2c_getParty(); --l2c_getParty() always returns not nil
local iw = 0;
local ip = 0;
local w = "";
for w in string.gmatch( party_auto_invite_names, "%w+" ) do
if not isCharInParty( w, party ) then
local info = l2c_getCharObjectIdByName( w );
if info ~= nil then
l2c_partySendInvite( w, party_loot );
l2h_delay( 300 );
end
end
end
l2h_delay( 50 );
end
function general_ai_heal_self()
local varname = "";
local curHp, maxHp, curMp, maxMp, curCp, maxCp = l2c_getHPMPCPWeight();
local usr = l2c_getStats();
local cur_hpp = 100.0 * curHp / maxHp;
local cur_mpp = 100.0 * curMp / maxMp;
local cur_cpp = 100.0 * curCp / maxCp;
local i = 0;
if self_heal_use_item_nConds > 0 then
for i=0, (self_heal_use_item_nConds - 1) do
varname = string.format( "self_heal_use_item_[%d]_id", i );
local itemID = l2ccfg_getInt( varname );
varname = string.format( "self_heal_use_item_[%d]_hp", i );
local hpp = l2ccfg_getInt( varname );
varname = string.format( "self_heal_use_item_[%d]_mp", i );
local mpp = l2ccfg_getInt( varname );
varname = string.format( "self_heal_use_item_[%d]_cp", i );
local cpp = l2ccfg_getInt( varname );
varname = string.format( "self_heal_use_item_[%d]_hp_cond", i );
local hp_cond = l2ccfg_getStr( varname );
varname = string.format( "self_heal_use_item_[%d]_mp_cond", i );
local mp_cond = l2ccfg_getStr( varname );
varname = string.format( "self_heal_use_item_[%d]_cp_cond", i );
local cp_cond = l2ccfg_getStr( varname );
varname = string.format( "self_heal_use_item_[%d]_delayms", i );
local delayms = l2ccfg_getInt( varname );
local itemCnt = l2c_getItemCount( itemID );
--l2h_print( "Use item ", itemID, " (we have count ", itemCnt, ") when HP ", hp_cond, " ", hpp, " and MP ", mp_cond, " ", mpp, " and CP ", cp_cond, " ", cpp, "\n" );
if itemCnt > 0 then
if isItemReadyForReuse( itemID, delayms ) then
--l2h_print( "Cur hpp,mpp,cpp: ", cur_hpp, ",", cur_mpp, ",", cur_cpp, "\n" );
local hp_cond_ok = false;
local mp_cond_ok = false;
local cp_cond_ok = false;
if hp_cond == "eq" then hp_cond_ok = (cur_hpp == hpp) end
if hp_cond == "lt" then hp_cond_ok = (cur_hpp < hpp) end
if hp_cond == "le" then hp_cond_ok = (cur_hpp <= hpp) end
if hp_cond == "gt" then hp_cond_ok = (cur_hpp > hpp) end
if hp_cond == "ge" then hp_cond_ok = (cur_hpp >= hpp) end
if mp_cond == "eq" then mp_cond_ok = (cur_mpp == mpp) end
if mp_cond == "lt" then mp_cond_ok = (cur_mpp < mpp) end
if mp_cond == "le" then mp_cond_ok = (cur_mpp <= mpp) end
if mp_cond == "gt" then mp_cond_ok = (cur_mpp > mpp) end
if mp_cond == "ge" then mp_cond_ok = (cur_mpp >= mpp) end
if cp_cond == "eq" then cp_cond_ok = (cur_cpp == cpp) end
if cp_cond == "lt" then cp_cond_ok = (cur_cpp < cpp) end
if cp_cond == "le" then cp_cond_ok = (cur_cpp <= cpp) end
if cp_cond == "gt" then cp_cond_ok = (cur_cpp > cpp) end
if cp_cond == "ge" then cp_cond_ok = (cur_cpp >= cpp) end
--l2h_print( "Hp_cond_ok: ", hp_cond_ok, "\n" );
--l2h_print( "Mp_cond_ok: ", mp_cond_ok, "\n" );
--l2h_print( "Cp_cond_ok: ", cp_cond_ok, "\n" );
if hp_cond_ok and mp_cond_ok and cp_cond_ok then
myUseItem( itemID );
end
end -- skill reuse
end -- have this skill
end
end
-- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if (self_heal_use_skill_nConds > 0) and (not sys_isResting) then
for i=0, (self_heal_use_item_nConds - 1) do
varname = string.format( "self_heal_use_skill_[%d]_id", i );
local skillID = l2ccfg_getInt( varname );
varname = string.format( "self_heal_use_skill_[%d]_hp", i );
local hpp = l2ccfg_getInt( varname );
varname = string.format( "self_heal_use_skill_[%d]_mp", i );
local mpp = l2ccfg_getInt( varname );
varname = string.format( "self_heal_use_skill_[%d]_cp", i );
local cpp = l2ccfg_getInt( varname );
varname = string.format( "self_heal_use_skill_[%d]_hp_cond", i );
local hp_cond = l2ccfg_getStr( varname );
varname = string.format( "self_heal_use_skill_[%d]_mp_cond", i );
local mp_cond = l2ccfg_getStr( varname );
varname = string.format( "self_heal_use_skill_[%d]_cp_cond", i );
local cp_cond = l2ccfg_getStr( varname );
local skillLvl = l2c_getSkillLevel( skillID );
--l2h_print( "Use skill ", skillID, " (we have lvl ", skillLvl, ") when HP ", hp_cond, " ", hpp, " and MP ", mp_cond, " ", mpp, " and CP ", cp_cond, " ", cpp, "\n" );
if skillLvl > 0 then
if isSkillReadyForReuse( skillID ) then
--l2h_print( "Cur hpp,mpp,cpp: ", cur_hpp, ",", cur_mpp, ",", cur_cpp, "\n" );
local hp_cond_ok = false;
local mp_cond_ok = false;
local cp_cond_ok = false;
if hp_cond == "eq" then hp_cond_ok = (cur_hpp == hpp) end
if hp_cond == "lt" then hp_cond_ok = (cur_hpp < hpp) end
if hp_cond == "le" then hp_cond_ok = (cur_hpp <= hpp) end
if hp_cond == "gt" then hp_cond_ok = (cur_hpp > hpp) end
if hp_cond == "ge" then hp_cond_ok = (cur_hpp >= hpp) end
if mp_cond == "eq" then mp_cond_ok = (cur_mpp == mpp) end
if mp_cond == "lt" then mp_cond_ok = (cur_mpp < mpp) end
if mp_cond == "le" then mp_cond_ok = (cur_mpp <= mpp) end
if mp_cond == "gt" then mp_cond_ok = (cur_mpp > mpp) end
if mp_cond == "ge" then mp_cond_ok = (cur_mpp >= mpp) end
if cp_cond == "eq" then cp_cond_ok = (cur_cpp == cpp) end
if cp_cond == "lt" then cp_cond_ok = (cur_cpp < cpp) end
if cp_cond == "le" then cp_cond_ok = (cur_cpp <= cpp) end
if cp_cond == "gt" then cp_cond_ok = (cur_cpp > cpp) end
if cp_cond == "ge" then cp_cond_ok = (cur_cpp >= cpp) end
--l2h_print( "Hp_cond_ok: ", hp_cond_ok, "\n" );
--l2h_print( "Mp_cond_ok: ", mp_cond_ok, "\n" );
--l2h_print( "Cp_cond_ok: ", cp_cond_ok, "\n" );
if hp_cond_ok and mp_cond_ok and cp_cond_ok then
myTargetObjectTimeout( usr.objectID, 1 );
myUseSkill( skillID );
end
end -- skill reuse
end -- have this skill
end -- for
end
end
function general_ai_loop()
general_ai_heal_self();
general_ai_self_rest_sit_stand();
general_ai_party_auto_invite();
general_ai_follow();
end
while true do
if l2c_is_INGAME() then
if sys_should_exit() then break end
-- call func in protected mode, any errors wil be inside this loop and never returned to C++ program
--pcall( general_ai_loop );
general_ai_loop();
if sys_should_exit() then break end
end
l2h_delay( 300 );
if sys_should_exit() then break end
end
l2h_print( "Sys AI script stopped\n" );
Reference in New Issue View Git Blame Copy Permalink