Yoko
http://forum.yoko.com.ua/

Суммонит но не атакует! (
http://forum.yoko.com.ua/viewtopic.php?f=20&t=267		 Page 1 of 1
Author:  Bawak [ 2004-05-06 01:55:43 ]
Post subject:  Суммонит но не атакует! (
Есть скрипт, который нашел на форуме дрв, короче. чар сумонит мишек подряд, пока есть мана, при етом их не атакуя. кто знает что надо поправить, чтоб чар атаковал, плиз поправте))

Сам скрипт:

sub battle()
var t
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.InJournal("No bandages found") then
uo.closeuo()
endif
until UO.Life==UO.Str
endif
UO.Arm('arm')
UO.WaitTargetSelf()
UO.Cast('Summ. Crea')
t=0
repeat
wait(500)
t=t+1
if t>15 then
UO.WaitTargetSelf()
UO.Cast('Summ. Crea')
t=0
endif
UO.findtype('0x00d5','0xffff','ground')
until uo.FindCount()==1
repeat
wait(1000)
UO.Attack('finditem')
UO.findtype('0x00d5','0xffff','ground')
until uo.FindCount()==0
wend
end sub
Author:  Bawak [ 2004-05-06 02:07:41 ]
Post subject: 
ах да, я не сказал, етот скрипт вроде как на сворд)
Author:  PAIN^j18.9 [ 2004-05-06 04:27:01 ]
Post subject: 
В закладке Мэйн поставь галочку в Трек ворлд итем.
И все будет ок :)
Author:  Cyric [ 2004-05-09 19:06:08 ]
Post subject: 
Юзнаю свой скрипт :)
Вот модифнутая версия с мытьём бинтиков и медитаций, когда кончается мана:
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("washbasin")
uo.usetype("bloodbandages")
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<40
UO.Exec("warmode 0")
UO.UseSkill('Meditation')
repeat
wait(100)
until UO.InJournal("You are") OR UO.InJournal("You lose") or UO.Mana>40
UO.DeleteJournal()
wait(1000)
wend
endif
t=0
repeat
wait(500)
t=t+1
if t>15 then
UO.WaitTargetSelf()
UO.Cast('Summ. Crea')
t=0
endif
UO.findtype('0x00d5','0x08FD','ground')
until uo.FindCount()>0
repeat
wait(1000)
UO.Attack('finditem')
UO.findtype('0x00d5','0x08FD','ground')
until uo.FindCount()==0
wend
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/