sub Snooping()
VAR Skill="Snooping"
uo.AddObject("EnemyBackpack")
while uo.Targeting()
Wait(500)
wend
uo.Print("EnemyBackpack changed!")
while not uo.Dead() and uo.SkillVal(Skill,1)<1000
uo.WarMode(0)
if UseSpiritSpeak>0 then
SpiritSpeak()
endif
uo.Useobject("EnemyBackpack")
Wait(2500)
wend
end sub

sub CheckPing()
VAR Timer=0
uo.DeleteJournal()
uo.Click("backpack")
repeat
Timer=Timer+1
Wait(50)
until Timer==0x0900 or uo.InJournal("backpack")
end sub

#################################################
### Spirit Speak / Общение с духами v1.4 ###
#################################################
### Code ###
############
VAR SSCount=10

sub SpiritSpeak()
VAR ss1="You establish a connection to the netherworld."
VAR ss2="You fail your attempt at contacting the netherworld."
VAR ss3="You must wait to perform another action"
VAR Skill="Spirit Speak"
if uo.SkillVal(Skill,1)<1000 then
if SSCount==10 then
uo.DeleteJournal()
uo.UseSkill(Skill)
uo.Print(Skill+"...")
while not uo.InJournal(ss1) and not uo.InJournal(ss2) and not uo.InJournal(ss3)
Wait(100)
wend
if not uo.InJournal(ss3) then
SSCount=0
endif
else
SSCount=SSCount+1
endif
else
UseSpiritSpeak=0
endif
end sub