Yoko

Posted: **2006-08-24 23:49:57**

Народ если не сложно выложите один старенкий скриптик, дапустим нада кочать сворд сумониш мишку его атакуеш убеваеш если у тебя хп не хватает хилишся и потом медицируеш до конца и снова сумониш и т.д! Буду очень благодарен.

Posted: **2006-08-25 06:34:06**

xalat_ wrote:Народ если не сложно выложите один старенкий скриптик, дапустим нада кочать сворд сумониш мишку его атакуеш убеваеш если у тебя хп не хватает хилишся и потом медицируеш до конца и снова сумониш и т.д! Буду очень благодарен.

Вот скрипт, нашел его но им никогда непользовался

Code: Select all

VAR LASTTIMER 
sub abs(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub 

sub battle() 
var t 
UO.CancelMenu() 
UO.DeleteJournal() 
UO.Setarm('arm') 
UO.AutoMenu('What','Polar') 
while NOT UO.Dead() 
if UO.Life<UO.Str then 
repeat 
UO.Bandageself() 
wait(5000) 
if UO.Count('0x0e21')==0 then 
uo.waittargettype('0x1008') 
uo.usetype('0x0E20') 
wait(500) 
UO.DeleteJournal() 
endif 
until UO.Life==UO.Str 
endif 
UO.Arm('arm') 
UO.WaitTargetSelf() 
UO.Cast('Summ. Crea') 
wait(500) 
if UO.InJournal('lack sufficient') then 
while UO.Mana<90 
UO.WarMode(0) 
LastTimer=UO.Timer() 
UO.UseSkill('Meditation') 
repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200 
if not UO.InJournal("You lose") then 
repeat 
wait(100) 
until UO.InJournal('You lose') or UO.Mana>=90 
endif 
UO.DeleteJournal() 
wait(2000) 
wend 
endif 
t=0 
repeat 
wait(500) 
t=t+1 
if t>15 then 
UO.WaitTargetSelf() 
UO.Cast('Summ. Crea') 
t=0 
if UO.InJournal('lack sufficient') then 
while UO.Mana<90 
UO.WarMode(0) 
LastTimer=UO.Timer() 
UO.UseSkill('Meditation') 
repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200 
if not UO.InJournal("You lose") then 
repeat 
wait(100) 
until UO.InJournal('You lose') or UO.Mana>=90 
endif 
UO.DeleteJournal() 
wait(2000) 
wend 
endif 
endif 
UO.findtype('0x00D5',-1,'ground') 
until uo.FindCount()>0 
UO.WarMode(1) 
repeat 
wait(500) 
if abs(UO.GetX('finditem')-UO.GetX())>2 or abs(UO.GetY('finditem')-UO.GetY())>1 then 
UO.UseType('0x0F4F') 
endif 
if UO.InJournal('too close') then 
UO.Arm('arm') 
endif 
if UO.Life<35 then 
UO.UseType('0x0F0E','0x09BB') 
endif 
UO.DeleteJournal() 
UO.Attack('finditem') 
wait(2000) 
UO.findtype('0x00D5',-1,'ground') 
until uo.FindCount()==0 
wend 
end sub

Posted: **2006-08-25 11:23:08**

Dominator wrote:

xalat_ wrote:Народ если не сложно выложите один старенкий скриптик, дапустим нада кочать сворд сумониш мишку его атакуеш убеваеш если у тебя хп не хватает хилишся и потом медицируеш до конца и снова сумониш и т.д! Буду очень благодарен.

Вот скрипт, нашел его но им никогда непользовался

Code: Select all

VAR LASTTIMER 
sub abs(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub 

sub battle() 
var t 
UO.CancelMenu() 
UO.DeleteJournal() 
UO.Setarm('arm') 
UO.AutoMenu('What','Polar') 
while NOT UO.Dead() 
if UO.Life<UO.Str then 
repeat 
UO.Bandageself() 
wait(5000) 
if UO.Count('0x0e21')==0 then 
uo.waittargettype('0x1008') 
uo.usetype('0x0E20') 
wait(500) 
UO.DeleteJournal() 
endif 
until UO.Life==UO.Str 
endif 
UO.Arm('arm') 
UO.WaitTargetSelf() 
UO.Cast('Summ. Crea') 
wait(500) 
if UO.InJournal('lack sufficient') then 
while UO.Mana<90 
UO.WarMode(0) 
LastTimer=UO.Timer() 
UO.UseSkill('Meditation') 
repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200 
if not UO.InJournal("You lose") then 
repeat 
wait(100) 
until UO.InJournal('You lose') or UO.Mana>=90 
endif 
UO.DeleteJournal() 
wait(2000) 
wend 
endif 
t=0 
repeat 
wait(500) 
t=t+1 
if t>15 then 
UO.WaitTargetSelf() 
UO.Cast('Summ. Crea') 
t=0 
if UO.InJournal('lack sufficient') then 
while UO.Mana<90 
UO.WarMode(0) 
LastTimer=UO.Timer() 
UO.UseSkill('Meditation') 
repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200 
if not UO.InJournal("You lose") then 
repeat 
wait(100) 
until UO.InJournal('You lose') or UO.Mana>=90 
endif 
UO.DeleteJournal() 
wait(2000) 
wend 
endif 
endif 
UO.findtype('0x00D5',-1,'ground') 
until uo.FindCount()>0 
UO.WarMode(1) 
repeat 
wait(500) 
if abs(UO.GetX('finditem')-UO.GetX())>2 or abs(UO.GetY('finditem')-UO.GetY())>1 then 
UO.UseType('0x0F4F') 
endif 
if UO.InJournal('too close') then 
UO.Arm('arm') 
endif 
if UO.Life<35 then 
UO.UseType('0x0F0E','0x09BB') 
endif 
UO.DeleteJournal() 
UO.Attack('finditem') 
wait(2000) 
UO.findtype('0x00D5',-1,'ground') 
until uo.FindCount()==0 
wend 
end sub

Щяс немагу потестить, Но очень болшое спасибо вечером приду тэстану

Posted: **2006-08-25 16:38:00**

Вечером придеш и воспользуйся поиском.

Posted: **2006-08-25 17:35:48**

I'm wrote:Вечером придеш и воспользуйся поиском.

Ты так сказал как будто я им не пользуюсь ? !! ты посматри когда создан мои акаунт и посматри скока постов, я искал и просто не нашё старые боевые скрипты, видел токо новые! :!:

Yoko

Боевые

Боевые

Re: Боевые

Re: Боевые