Yoko

sub strelka() 
VAR NS='0x0F88' ; Ņčļ Nighshade.
VAR BP='0x0F7A' ; Ņčļ Black Pearls.
VAR Sunduk='0x400A6D68' ; Ńåščąė(ID) Ńóķäóźą.
VAR Kolvo=200
while not uo.dead()
If UO.NS == 0 Then
   wait(1000)
   UO.FindType(NS, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
   wait(100)
   until UO.NS>0
Endif
 
If UO.BP == 0 Then
   wait(1000)
   UO.FindType(BP, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
   wait(100)
   until UO.BP>0
Endif

if uo.mana>10 then
;uo.cast('Magic Arrow','laststatus');
;uo.cast('Fireball','laststatus')
uo.waittargetobject('0x00486B54') #ID čćšīźą, ķą źīņīšīćī įóäåģ
;wait(100)
UO.Exec("cast 'Magic Arrow'")
wait(2000)
else
UO.UseSkill("Spirit Speak")
wait(3000)
         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

wait(1000)
endif
wend
end sub 

sub strelka() 
VAR NS='0x0F8C' ; Ņčļ Nighshade.
VAR BP='0x0F8D' ; Ņčļ Black Pearls.
VAR Sunduk='0x400A6D68' ; Ńåščąė(ID) Ńóķäóźą.
VAR Kolvo=200
while not uo.dead()
If UO.NS == 0 Then
   wait(1000)
   UO.FindType(NS, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
   wait(100)
   until UO.NS>0
Endif
 
If UO.BP == 0 Then
   wait(1000)
   UO.FindType(BP, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
   wait(100)
   until UO.BP>0
Endif

if uo.mana>10 then
;uo.cast('Night Sight','laststatus');
;uo.cast('Night Sight','laststatus')
uo.waittargetobject('0x004528E8') #ID čćšīźą, ķą źīņīšīćī įóäåģ
;wait(100)
UO.Exec("cast 'Night Sight'")
wait(2000)
else
UO.UseSkill("Spirit Speak")
wait(3000)
         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

wait(1000)
endif
wend
end sub 

Вот интересный вопросик:
2 скрипта...первый сделан, чтобы чар кастил стрелку на uo.waittargetobject('0x004528E8'), а потом, когда заканчиваются реги, добирал их из сундука....работает на ура...Второй скрипт тоже самое, только каст Ночного видения на uo.waittargetobject('0x004528E8')...все типы регов поменяны, заклинание тоже, но не выходит...чар просто берет 200 сульфура и задумывается о высоком, а спайдер даже трогать не хочет....никак не пойму в чем загвоздка...скрипты писал не я и дорабатывал тоже....привожу "как есть"

_________________

хех...посмотрел внимательнее, и нашол, что загвоздка была в том, что проверялось наличие Бп и Нс, а не наличие СА и СС ппц...а я добрых пол часа потратил вглядываясь в скрипт

Вот конечная версия

sub ne strelka() 
VAR NS='0x0F8C' ; Тип Sulfurous ash
VAR BP='0x0F8D' ; Тип Spider silk.
VAR Sunduk='0x400A6D68' ; Id сундука с регами
VAR Kolvo=200
while not uo.dead()
If UO.SA == 0 Then
   wait(1000)
   UO.FindType(NS, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
   wait(100)
   until UO.SA>0
Endif
 
If UO.SS == 0 Then
   wait(1000)
   UO.FindType(BP, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
   wait(100)
   until UO.SS>0
Endif

if uo.mana>10 then
uo.waittargetobject('0x004528E8') #ID На что кастить  будем
wait(100)
UO.Exec("cast 'Night Sight'")
wait(3000)
else
UO.UseSkill("Spirit Speak")
wait(3000)
         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

wait(1000)
endif
wend
end sub 

_________________