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/