Моя версия скрипта:
Code:
sub sledilka(mainskill)
var time, success, fizzle, resources, skill
skill=uo.skillval(mainskill)
resources=uo.count(material)
time=0
success=0
fizzle=0
while not uo.injournal("Stop!")
repeat
time=time+1
wait(1000)
until uo.injournal("put") or uo.injournal("fail") or uo.injournal("Stop!")
if uo.injournal("put") then
success=success+1
uo.deletejournal()
endif
if uo.injournal("fail") then
fizzle=fizzle+1
uo.deletejournal()
endif
wend
resources=resources-uo.count(material)
skill=(uo.skillval(mainskill)-skill)/10
uo.textopen()
uo.textprint("Скилл вырос на "+str(skill))
uo.textprint("за "+str(time)+" секунд")
uo.textprint("При этом было использовано "+str(resources)+" материала")
uo.textprint("Статистика успехов\физлов")
uo.textprint("Успешных "+str(success)+" попыток")
uo.textprint("Безуспешных "+str(fizzel)+" попыток")
uo.deletejournal()
uo.Print('Все функции скрипта выключены!')
uo.DeleteJournal()
uo.Exec('terminate all')
wait(100)
uo.Exec('terminate all')
wait(100)
uo.Exec('terminate all')
wait(100)
end sub
В начало текста основного макроса добавить такие строки:
Code:
var skill
skill="скил за которым следим"
После этого, вот такое:
Code:
uo.exec('addtype material')
while uo.targeting()
wait(100)
wend