Code: Select all
sub main()
UO.Set('finddistance','2')
UO.Set('distance','2')
var i, k, a
a=0
while uo.life>0
repeat
CheckIngridy()
UO.Exec("cast 'Resurrection' self")
repeat
wait(300)
until UO.InJournal('That isn') or UO.InJournal('spell')
uo.DeleteJournal()
UO.UseSkill("Meditation");
repeat
wait(300)
until UO.InJournal('You lose your') or UO.InJournal('mana')
uo.DeleteJournal()
UO.ServerPrint(".hungry")
Wait(500)
i=UO.LastMessage()
If i=="You aren't hungry at all" Then
UO.Exec("usetype '0x097B'")
wend
EndIf
k=UO.LastMessage()
If k=="Saving World State" <>0 Then
Wait(20000)
UO.DeleteJournal()
endif
wend
wend
wend
wend
end sub
sub CheckIngridy()
var i
if uo.bm<10 OR uo.gs<10 OR uo.ga<10 then
i=50-uo.bm
if i then
uo.exec("findtype 0x0F7B 0xFFFF ground")
UO.Exec("moveitem finditem "+STR(50-uo.bm)+" my")
wait(200)
endif
i=50-uo.gs
if i then
uo.exec("findtype 0x0F85 0xFFFF ground")
UO.Exec("moveitem finditem "+STR(50-uo.gs)+" my")
wait(200)
endif
i=50-uo.ga
if i then
uo.exec("findtype 0x0F84 0xFFFF ground")
UO.Exec("moveitem finditem "+STR(50-uo.ga)+" my")
wait(200)
endif
endif
end sub
походу я знаю что скрипт дырявый
преследовал цель сделать минимальные задержки между кастом магии , медитации и затем опять каста, ато от этого очень много времени теряется.
можете подкоректировать, ато он 1 раз проводит цикл , ато и пару раз, и затем функция не сотанавливается но ничего не происходит
заранее спасибо
