Page 1 of 1

Чирканите скрипт плизз

Posted: 2006-04-01 00:13:14
by yEti
Нарисуйте плиз скрипт на медитацию и на Еволющку вместе чтобы качалось под Дрв плз !

Posted: 2006-04-01 00:31:10
by Sfagnum
1. читаем.
2. смотрим и думаем.

Re: Чирканите скрипт плизз

Posted: 2006-04-01 00:32:09
by Kynep
yEti wrote:Нарисуйте плиз скрипт на медитацию и на Еволющку вместе чтобы качалось под Дрв плз !


Вот:

Code: Select all

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

Posted: 2006-04-01 01:25:23
by yEti
Спасибо за скрипт но я еще не доконца доделал он все делает но на дракона таргет автомотически не падает хз вот посматри



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

Posted: 2006-04-01 01:29:42
by yEti
все зароботал спасибо огромное !!!