Воскресенье, 24.08.2025, 19:23
[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
  • Мини-чат
    Главная » Статьи » Мои статьи

    Скрипт на перекладывание айтемов
    sub MoveFromTo()
    var qType = '200' #кол-во перекладываемых за раз item'ов
    var tType, cType
    UO.Print('Откуда тырим?')
    uo.addobject('objFrom')
    while uo.Targeting()
    wait(200)
    wend
    UO.Print('И куда ж пререложим то?')
    uo.addobject('objResiv')
    while uo.Targeting()
    wait(200)
    wend
    uo.useobject('objFrom')
    CheckLag()
    UO.Print('Что брать то?')
    uo.addobject('objType')
    while uo.Targeting()
    wait(200)
    wend
    tType = uo.GetGraphic('objType')
    cType = uo.GetColor('objType')
    UO.Findtype(tType,cType,'objFrom')
    while UO.GetQuantity('finditem')>0
    UO.MoveItem('finditem',qType,'objResiv')
    wait(1000)
    CheckLag()
    UO.Findtype(tType,cType,'objFrom')
    wend
    UO.Print('< < < Усё > > >')
    end sub

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

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

    Статистика

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