Page 1 of 1

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

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

Posted: 2005-04-05 20:50:05
by Mguai
а ты долго думал ? чтоб такое написать...

Posted: 2005-04-05 21:35:46
by Denton
Я его не обдумывал еще.

Posted: 2005-04-06 15:10:49
by 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