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