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

Чирканите скрипт плизз
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7220		 Page 1 of 1
Author:  yEti [ 2006-04-01 00:13:14 ]
Post subject:  Чирканите скрипт плизз
Нарисуйте плиз скрипт на медитацию и на Еволющку вместе чтобы качалось под Дрв плз !
Author:  Sfagnum [ 2006-04-01 00:31:10 ]
Post subject: 
1. читаем.
2. смотрим и думаем.
Author:  Kynep [ 2006-04-01 00:32:09 ]
Post subject:  Re: Чирканите скрипт плизз
yEti wrote:
Нарисуйте плиз скрипт на медитацию и на Еволющку вместе чтобы качалось под Дрв плз !


Вот:
Code:
sub medit()
VAR cursa=0x144F
VAR j, tekmana
uo.undress() 
wait(1000) 
uo.print('Выбери цель')
uo.exec('addobject body')
while uo.targeting()
wait(100)
wend
repeat 
      tekmana=uo.int 
      wait(100) 
      checklag() 
      uo.usetype(cursa); Cursed Hat 
      uo.useskill ("Spirit Speak") 
      wait(2000) 
      j=0 
      repeat 
      wait(10) 
      j=j+1 
      until (uo.mana <= tekmana-1) or (j>1000) 
      checklag() 
      uo.undress() 
      wait(100) 
      checklag() 
      uo.useskill ("Meditation") 
      Wait(3000) 
      uo.waittargetobject(body)
      wait(200)
      uo.useskill('Evalute Intelligence')
      wait(3000)
until uo.dead() 
end sub

sub checklag() 
uo.deletejournal() 
uo.click('backpack') 
Repeat 
wait(100) 
Until UO.InJournal("backpack") 
end sub
Author:  yEti [ 2006-04-01 01:25:23 ]
Post subject: 
Спасибо за скрипт но я еще не доконца доделал он все делает но на дракона таргет автомотически не падает хз вот посматри



sub medit()
VAR cursa=0x1713
VAR j, tekmana
uo.undress()
wait(1000)
uo.print('0x6A3EC')
uo.exec('addobject body')
while uo.targeting()
wait(100)
wend
repeat
tekmana=uo.int
wait(100)
checklag()
uo.usetype(cursa); Cursed Hat
j=0
repeat
wait(10)
j=j+1
until (uo.mana <= tekmana-1) or (j>1000)
checklag()
uo.undress()
wait(100)
checklag()
uo.useskill ("Meditation")
Wait(3000)
uo.waittargetobject()
wait(200)
uo.useskill('Evaluating Intelligence')
wait(3000)
until uo.dead()
end sub

sub checklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub
Author:  yEti [ 2006-04-01 01:29:42 ]
Post subject: 
все зароботал спасибо огромное !!!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/