Yoko

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 раз проводит цикл , ато и пару раз, и затем функция не сотанавливается но ничего не происходит
заранее спасибо

А с каких это пор качают а корпом? или у вас на шарде он мало маны тратит... Лучше пойзон кастуй

Попробуй этот скрипт:
viewtopic.php?t=7394&highlight=

Я его потимизировал уже до нельзя