Yoko

Где можно взять скрипт Анатомий негде нету помогите зарание блогодарен !!!

Drw Shard !

sub Anatomy() 
var Exit=0    
while Exit==0 
uo.DeleteJournal() 
uo.Waittargetself() 
uo.Useskill('Anatomy') 
while not (uo.InJournal('looks')or uo.InJournal('You'))    
wait(1000) 
wend 
wend 
end sub 

sub Evaluating()
While NOT Uo.Dead()
Uo.Useskill('Anatomy','self')
wait(5000)
wend
end sub

Это если работает прокачка анатомии на себе.

sub main()
while not uo.dead()
uo.useskill('Anatomy')
uo.waittargetground(0x0027) #Id того на чем качаешь
wait(5000)
wend
end sub

Для шардов на которых анатомия на себе не растет!

В клиенте делаеш макрос, изскил анатомия, ласт таргет, таргет некст...
и задержку на нажатие этой клвиши где-то 2500.... весь макрос....

Плиз можите ещё дать Скрипт на Magic Arrow срочно надо зарание благодарен!!!!

#================================
# Arrow() - cast magic arrow on laststatus
#---------------------------------------------------------
sub Arrow()
VAR ManaNeed=4
UO.Set('lasttarget','laststatus')
if UO.Mana>=ManaNeed then
UO.Cast('Magic Arrow','laststatus')
else
UO.Print("Low mana!!!")
endif
end sub

(с) Взято с автолоада Саваджева

Это неработает!!!

Скрипт на магию, как я убедился очень сложен (Для меня ,по крайне мере.) и написать его достаточно проблемматично.

sub Magery()
VAR NS='0x0F88'
VAR Sunduk='0x4021C658'
VAR Kolvo=10
VAR k = 0, j
VAR LastTimer
while NOT UO.Dead() 
While UO.NS<=1
UO.FindType(NS, -1, Sunduk)
If UO.FindCount()==0 Then
UO.Print("NS not found, script terminated")
else
j = UO.GetQuantity( 'finditem' )
If j > Kolvo Then
UO.Print("I can use" + str( j ) + "NS")
else
UO.Print("I can't use" + str( j ) + "NS")
Endif
If Kolvo == 1 Then
UO.FindType( NS )
UO.MoveItem( 'finditem', '2', Sunduk )
wait(500)
Else
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
Endif
Endif
wend
while UO.Mana>=9
UO.Cast('Poison','self')
wait(3000)
wend
while UO.Mana<UO.Int 
LastTimer=UO.Timer() 
UO.UseSkill('Meditation') 
repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200 
UO.DeleteJournal() 
wait(2000) 
wend 
Wend
end sub 

- достаточно горбатый скриптю, написанный мной, но работает, если ты не будешь ничего трогать кроме VAR'ок.

Спасибо большое Это на Arrow?Magic?

Нет это на пойзон, если ты мне напомнишь, скока маны ест стрелка, то я переделаю.

Примерно 5 маны

sub Magery() 
VAR NS='0x0F88' 
VAR Sunduk='0x4021C658' 
VAR Kolvo=10 
VAR k = 0, j 
VAR LastTimer 
while NOT UO.Dead() 
While UO.NS<=1 
UO.FindType(NS, -1, Sunduk) 
If UO.FindCount()==0 Then 
UO.Print("NS not found, script terminated") 
else 
j = UO.GetQuantity( 'finditem' ) 
If j > Kolvo Then 
UO.Print("I can use" + str( j ) + "NS") 
else 
UO.Print("I can't use" + str( j ) + "NS") 
Endif 
If Kolvo == 1 Then 
UO.FindType( NS ) 
UO.MoveItem( 'finditem', '2', Sunduk ) 
wait(500) 
Else 
UO.Grab( Str( Kolvo ), 'finditem' ) 
wait(500) 
Endif 
Endif 
wend 
while UO.Mana>=5 
UO.Cast('Magic Arrow','self') 
wait(3000) 
wend 
while UO.Mana<UO.Int 
LastTimer=UO.Timer() 
UO.UseSkill('Meditation') 
repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200 
UO.DeleteJournal() 
wait(2000) 
wend 
Wend 
end sub 

большое спасибо

Щас напишу инструкцию на нормальный скрипт, с помощью Eder'a всё таки он работает и замечательно! Как напишут появится в этом разделе.

Спасибо за помощ

Спасибо за помощ