Суббота, 18.05.2024, 16:50
[nIrVaNa]
Приветствую Вас Призывник | RSS

Меню сайта
Ultima Online
  • Ultima Online DRW
  • .::Games::.
  • EVE Online
  • Russia EVE-RU
  • Ukrainian EVE-UA
  • [6OP3bIE CAHTEXHuru] EVE
  • L2Europa.com
  • Clan Viktoria L2Europa.com
  • Мини-чат
    Главная » Статьи » Мои статьи

    Тайлоринг
    var Cont='0x400904AB' ##ID сундука с тканью, так же туда будут складыватся бинты 
    var Creat='0x1541' ##Тип того, что сшили 
    sub Tailoring() 
    #¤Leo¤# 
      while NOT UO.Dead() 
      ToHide() 
      UO.FindType('0x175D','0x0000','backpack') 
      if UO.GetQuantity('finditem')<4 then 
      UO.UseObject(Cont) 
      UO.FindType('0x0E21','0x0000','backpack') 
      if UO.GetQuantity('finditem')>0 then 
      UO.SetReceivingContainer(Cont) 
      wait(1000) 
      UO.Grab('all','finditem') 
      wait(1000) 
      UO.UnSetReceivingContainer() 
      Endif 
      UO.FindType('0x175D','0x0000',Cont) 
      wait(1000) 
      UO.Grab('600','finditem') 
      wait(1000) 
      endif 
      CheckLag() 
      UO.WaitMenu('Cloth','Misc','Misc','body sash') 
      UO.WaitTargetType('0x175D') 
      UO.UseType('0x0F9D') 
      UO.DeleteJournal() 
      wait(1000) 
      repeat 
      wait(100) 
      until UO.InJournal('fail') or UO.InJournal('put') 
      UO.DeleteJournal() 
      wait(500) 
      UO.WaitTargetType(Creat) 
      UO.UseType('0x0F9E') 
      CheckLag() 
      wait(500)  
      wend 
    endsub 

    Sub ToHide() 
      while NOT UO.Hidden() 
      UO.DeleteJournal() 
      UO.Exec('warmode 0') 
      UO.UseSkill('Stealth') 
      repeat 
      wait(50) 
      until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied') 
      wend 
    end sub 

    Sub CheckLag() 
      UO.DeleteJournal() 
      UO.Click('backpack') 
      repeat 
      wait(50) 
      until UO.InJournal('backpack') 
    end sub

    Категория: Мои статьи | Добавил: onixc (27.07.2009)
    Просмотров: 992 | Рейтинг: 0.0/0
    Всего комментариев: 0
    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]

    Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0
    Наш опрос
    Как Вам наш сайт
    Всего ответов: 244
    Copyright MyCorp © 2024