Статистика прокачки

[Denton]

Вроде написал довольно полезный скрипт-примочку для основного макроса. Смысл такой: если в журнале отлетит фраза "Stop!" то основная макра тормозится, а дополнение выводило окошко текста и писало изменение в скилле, время прокачки, кол-во ресурсов израсходованных\выкопанных.

[Mguai]

а ты долго думал ? чтоб такое написать...

[Denton]

Я его не обдумывал еще.

[Denton]

Моя версия скрипта:

Code: Select all

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: Select all

var skill
skill="скил за которым следим"

После этого, вот такое:

Code: Select all

uo.exec('addtype material') 
while uo.targeting() 
wait(100) 
wend