Code: Select all
#############################
# created by Scripts Writer #
# Dragon World #
# 16.07.07 #
#######################################
# Kill agressive npc without moving #
#######################################
# Description in icq: 424131028 #
#######################################
sub main()
uo.Set('finddistance','3')
DIM sk[1]
sk[0]=0x0032
#sk[1]=
var i,npc
var weapon=0x400D5CA4
var bone=0x0F7E
repeat
for i=0 to 0
uo.FindType(sk[i],'-1','ground')
if not uo.FindCount() then
if uo.Hidden() then
if uo.GetHp('self') <= uo.STR-10 then
repeat
wait(2000)
uo.BandageSelf()
until uo.hp>=uo.STR-10
uo.UseObject(weapon)
wait(500)
else
wait(500)
end if
else
uo.UseSkill('Hiding')
uo.print('Hiding...')
wait(3000)
end if
else
npc=uo.GetSerial('finditem')
uo.Attack(npc)
repeat
wait(100)
until uo.GetMaxHp(npc)==0
CheckLag()
uo.WaitTargetObject('lastcorpse')
uo.UseObject(weapon)
wait(500)
uo.FindType(bone,'-1','lastcorpse')
if uo.FindCount() then
uo.moveitem('finditem','all')
wait(750)
end if
uo.Ignore('lastcorpse')
uo.WarMode(0)
end if
next
wait(1000)
CheckLag()
until uo.Dead()
end sub
sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(100)
until uo.InJournal('backpack')
end sub