Page 1 of 1

Очень нужна помщь.

Posted: 2006-08-11 15:33:23
by HauT
есть скрипт

sub drak()
UO.Set('lasttarget','laststatus')
uo.usetype("0x20D6")
uo.say ("All kill")
uo.waittargetobject('lasttarget','laststatus')
end sub

Нужен 2. что бы юзал шринк , прицелом на драка , и после того как драк в шринке , подбирал с пола в пак !

Posted: 2006-08-11 21:44:13
by Scripts Writer

Code: Select all

sub shrink()
  var typeshrink = ' '
  var colorshrink = ' '
  var drakonshrink = ' '
  uo.Exec('addobject drakon')
  while uo.Targeting()
    wait(100)
  wend
  uo.FindType(typeshrink,colorshrink,'backpack')
  if uo.FindCount() then
    uo.WaitTargetObject('drakon')
    uo.UseObject('finditem')
    wait(500)
  end if
  uo.FindType(drakonshrink,'-1','ground')
  if uo.FindCount() then
    uo.moveitem('finditem','all','backpack')
    wait(750)
  end if
end sub

Posted: 2006-08-14 15:14:51
by Kicum
а можно етот же скрипт но только чтобы драга он без прицела в ширинк и в пак кидал а то нудно ето когда беаеш маешся сделайте плиз

Posted: 2006-08-14 20:13:06
by Scripts Writer

Code: Select all

sub shrink() 
  var typeshrink = ' '
  var colorshrink = ' '
  var drakonshrink = ' '
  var drakon = ' ID '
  uo.Set('finddistance','7')
  uo.FindType(typeshrink,colorshrink,'backpack')
  if uo.FindCount() then
    uo.WaitTargetObject(drakon)
    uo.UseObject('finditem')
    wait(500)
  end if
  uo.FindType(drakonshrink,'-1','ground')
  if uo.FindCount() then
    uo.moveitem('finditem','all','backpack')
    wait(750)
  end if
end sub

Posted: 2006-08-15 08:11:36
by Kicum
Спасибо большое! Ценю таких людей.

Posted: 2006-08-15 09:40:08
by Kicum
Ой а можно сделать ещё чтобы он сразу подберал шринкованного драга а то малоли :(?
Сделайте плиз если можно я пытался, но он нелутал у меня почемуто!

Posted: 2006-08-15 10:28:50
by Scripts Writer

Code: Select all

  var drakonshrink = ' ' 


Переменная, означающая тип дракона, который находится в шринке. Разве он не подбирает?

Posted: 2006-08-15 10:35:18
by BoBBaH
он наверно о задержке....

Posted: 2006-08-15 13:40:17
by Kicum
Неподбирает вроде. Проверял неподбирает что-то.
Ну ладно попробую чтонеть придумать спс! %)

Posted: 2006-08-15 15:50:47
by Scripts Writer

Code: Select all

uo.Set('finddistance','7')