Ultima Online Antares

sub Magery()
VAR NS='0x0F88'; NS
VAR GS='0x0F85'; GS
 VAR Sunduk='0x40FA0EA5'; айди сундука
 VAR Kolvo=50; сколько регов брать
While NOT UO.Dead()
While UO.Mana>=100 AND UO.NS>0 and UO.GS>0
UO.DeleteJournal()
UO.Cast('Feeblemind', 'self')
wait(1000)
wend
If UO.Mana<100 Then
While UO.Mana<UO.Int
UO.DeleteJournal()
wait(1000)
UO.Useskill('Meditation')
Repeat
wait(100)
until UO.InJournal("You are") OR UO.InJournal("You lose")
Wend
Endif
If UO.NS == 0 Then
UO.FindType(NS, '-1', Sunduk)
UO.Grab(str(Kolvo), 'finditem')
repeat
wait(100)
until UO.NS>0
Endif
If UO.GS == 0 Then
UO.FindType(GS, '-1', Sunduk)
UO.Grab(str(Kolvo), 'finditem')
repeat
wait(100)
until UO.GS>0
Endif
Wend
end sub