ПОМОГИТЕ ИСКАЛ НЕНАШОЛ

[Saiman]

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

[kuviCk]

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

Drw Shard !

Code: Select all

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 

[KrafteR]

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

Code: Select all

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

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

[Lord]

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

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

[666Man666]

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

[Saiman]

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

[SAMURAI]

Плиз можите ещё дать Скрипт на 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

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

[Saiman]

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

[KrafteR]

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

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

Code: Select all

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'ок.

[Saiman]

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

[KrafteR]

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

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

[Saiman]

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

[KrafteR]

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

Code: Select all

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 

[Saiman]

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

[KrafteR]

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

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

[Saiman]

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

[Saiman]

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