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

Небольшая просьба.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=8269		 Page 1 of 1
Author:  OxoT_nik [ 2006-07-19 06:13:58 ]
Post subject:  Небольшая просьба.
Вот у меня есть скрипт на арчери допустим. Чар стреляет в растамленного дракона, когда у него (дракона) остается определенное кол-во НР, чар начинает хилить его. Как отхелил - опять начинает стрелять в дракона.

Мне нужно вставить в скрипт такую вот часть:
Через, например, 2 часа чар тамит растамленного дракона, пишет all drop, собирает стрелы (выпавшие из дракона) и дальше продолжает вышеупомянутые действия. И чтобы это зациклилось и повторялось каждые 2 часа.

Помогите пожалста написать такое вот дополнение к скрипту.
Author:  Scripts Writer [ 2006-07-19 07:26:48 ]
Post subject: 
Выложи свой скрипт. Телепаты в отпуске.
Author:  OxoT_nik [ 2006-07-19 12:49:22 ]
Post subject: 
Code:
sub Archery() 
var Bow='0x13B1'

UO.Exec('addobject Dragon')
while UO.Targeting()
  wait(10)
wend

UO.Exec('addobject WashBasin')
while UO.Targeting()
  wait(10)
wend

while not uo.Dead() 
  UO.Equipt('Lhand',Bow)
  uo.WarMode(true)
  uo.Attack('Dragon') 
  while uo.GetHp('Dragon') > uo.GetMaxHp('Dragon') / 3 
    wait(100) 
    if uo.life < 80 then
      UO.FindType('0x0E21',-1,'backpack')
      if UO.FindCount() then
        uo.bandageself() 
        wait(3000) 
      else
        UO.FindType('0x0E20',-1,'backpack')
        if UO.FindCount() then
          UO.WaitTargetObject('WashBasin')
          UO.UseObject('finditem')
          wait(500)
        else
          UO.Msg('No more bandages =(')
        endif
      endif
    end if 
  wend 
  uo.WarMode(false) 
  while uo.GetHp('Dragon') < uo.GetMaxHp('Dragon')  
    UO.FindType('0x0E21',-1,'backpack')
    if UO.FindCount() then
      uo.WaitTargetObject('Dragon')
      uo.UseObject('finditem')
      wait(3000)
      if uo.life < 180 then 
        uo.bandageself() 
        wait(3000) 
      end if 
    else
      UO.FindType('0x0E20',-1,'backpack')
      if UO.FindCount() then
        UO.WaitTargetObject('WashBasin')
        UO.UseObject('finditem')
        wait(500)
      else
        UO.Msg('No more bandages =(')
      endif
    endif
  wend 
wend 
end sub
Author:  Leo [ 2006-07-19 14:19:23 ]
Post subject: 
Не тестил.
Code:
sub Archery() 
var Bow='0x13B1' 
var Timer=UO.Timer()
var WaitTime = 60*60*1000

UO.Exec('addobject Dragon') 
while UO.Targeting() 
  wait(10) 
wend 

UO.Exec('addobject WashBasin') 
while UO.Targeting() 
  wait(10) 
wend 

while not uo.Dead() 
  UO.Equipt('Lhand',Bow) 
  uo.WarMode(true) 
  uo.Attack('Dragon') 
  while uo.GetHp('Dragon') > uo.GetMaxHp('Dragon') / 3 
    wait(100) 
    if uo.life < 80 then 
      UO.FindType('0x0E21',-1,'backpack') 
      if UO.FindCount() then 
        uo.bandageself() 
        wait(3000) 
      else 
        UO.FindType('0x0E20',-1,'backpack') 
        if UO.FindCount() then 
          UO.WaitTargetObject('WashBasin') 
          UO.UseObject('finditem') 
          wait(500) 
        else 
          UO.Msg('No more bandages =(') 
        endif 
      endif 
    end if 
  wend 
   if UO.Timer()>(Timer+60000) then
   Taming()
   Timer=UO.Timer() 
   endif 
  uo.WarMode(false) 
  while uo.GetHp('Dragon') < uo.GetMaxHp('Dragon')  
    UO.FindType('0x0E21',-1,'backpack') 
    if UO.FindCount() then 
      uo.WaitTargetObject('Dragon') 
      uo.UseObject('finditem') 
      wait(3000) 
      if uo.life < 180 then 
        uo.bandageself() 
        wait(3000) 
      end if 
    else 
      UO.FindType('0x0E20',-1,'backpack') 
      if UO.FindCount() then 
        UO.WaitTargetObject('WashBasin') 
        UO.UseObject('finditem') 
        wait(500) 
      else 
        UO.Msg('No more bandages =(') 
      endif 
    endif 
  wend 
wend 
end sub

sub Taming()
   repeat
   UO.WarMode(0)
   UO.WarMode(0)
   UO.DeleteJournal() 
   UO.WaitTargetObject('Animal')  
   UO.UseType('0x13F9') 
      repeat 
         wait(100) 
      until UO.InJournal('fail') or UO.InJournal('It seems') or UO.InJournal('see the creature')
   until Uo.InJournal('It seems')
   UO.Sayu('all drop all')
   wait(1000)
   UO.Findtype('0x0F3F','-1','ground')
   If UO.FindCount() Then 
      UO.Grab('all','finditem') 
         wait(1000) 
      CheckLag() 
   Endif 
endsub

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub
Author:  OxoT_nik [ 2006-07-19 16:18:26 ]
Post subject: 
Не работает.
Author:  Nmy [ 2006-07-19 17:15:05 ]
Post subject: 
OxoT_nik wrote:
Не работает.


что именно ? телепаты в отпуске.
Author:  OxoT_nik [ 2006-07-19 21:56:40 ]
Post subject: 
NMY wrote:
OxoT_nik wrote:
Не работает.


что именно ? телепаты в отпуске.
Не работает то, что я просил дописать! А именно не тамит, не дропает и не собирает стрелы. Как стрелял просто, так и стреляет.
Author:  Nmy [ 2006-07-19 22:44:41 ]
Post subject: 
если в скрипте нету ошыбок то проверь тьипы вещей ...

вобщето узнать у дракона хп наверно нереально ... может я ошыбаюсь, но это не тоже самое что узнать хп у себя ...
Author:  OxoT_nik [ 2006-07-20 00:12:29 ]
Post subject: 
NMY wrote:
если в скрипте нету ошыбок то проверь тьипы вещей ...

вобщето узнать у дракона хп наверно нереально ... может я ошыбаюсь, но это не тоже самое что узнать хп у себя ...
Для чего узнавать НР дракона? :roll:
Author:  Scripts Writer [ 2006-07-20 14:29:00 ]
Post subject: 
NMY wrote:
если в скрипте нету ошыбок то проверь тьипы вещей ...

вобщето узнать у дракона хп наверно нереально ... может я ошыбаюсь, но это не тоже самое что узнать хп у себя ...


ХП дракона подрузамеваются как некая переменная, -для вычисления GetMaxHP/3 , она не требует численного значения. Инжекту достаточно по статусу хп, определить её ~ значение.

А вот то что с таймером возможны проблемы-это я уже могу заподозрить.
Выреж таймер, и сразу после цикла на проверку жизней дракона, вставь его подхел, добор стрел и таминг. Если автору нужно опр. время таминга драка то достаточно зделать следующее:

Code:
while not uo.Dead()
  while uo.GetHp('Dragon') ...
     ...
  wend
  taming = taming + 5000
  if taming > 60000 then
    ...
  end if
wend
Author:  OxoT_nik [ 2006-07-21 21:52:47 ]
Post subject: 
Зачем вам нужно НР драка узнать то?
Скрипт под ДрВ нужен.. Нахрена такой геморой себе создавать?
Author:  Scripts Writer [ 2006-07-22 15:30:33 ]
Post subject: 
OxoT_nik wrote:
Зачем вам нужно НР драка узнать то?
Скрипт под ДрВ нужен.. Нахрена такой геморой себе создавать?


Ну раз тебе такой геморой не нужен, то топ клоуз. Ищи в поиске. Там всё есть.
Author:  Leo [ 2006-07-22 15:53:07 ]
Post subject: 
You Must Die wrote:

Ну раз тебе такой геморой не нужен, то топ клоуз. Ищи в поиске. Там всё есть.

Побольше терпения и человеколюбия =))))
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/