Категории раздела

Stealth [9]
Injection [8]
Программы [1]

Наш опрос

Оцените мой сайт
Результаты | Архив опросов
Всего ответов: 14

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Поиск

Друзья сайта

  • Dragon World
  • Stealth
  • Injection
  • Radikal
  • UO Assist
    		•
    Мой сайт
    Вторник, 2026-06-23, 4:15 AM
    Приветствую Вас Гость
    Главная | Регистрация | Вход | RSS

    Каталог файлов

    Главная » Файлы » Ultima Online DRW » Injection
    Cartography
    2012-07-08, 9:55 AM
    Var Trash='0x4019F210' 
    Var Sunduk1='0x400DE836' ; Где полные мешочки 
    Var Sunduk2='0x4034B891' ; Где пустые мешочки 

    sub Cartography() 
    var i=0,Bag 


    UO.Exec('terminate Reconnector') 
    wait(1000) 
    UO.Exec('exec Reconnector') 
    wait(1000) 

    uo.cancelmenu() 
    uo.automenu('What sort of','(last)') 
    While not uo.dead() 

    uo.findtype('0x0E76','0x0000','backpack') 
    wait(200) 
    if uo.findcount()==0 Then 
       uo.useobject(Sunduk1) 
       wait(1000) 
       uo.findtype('0x0E76','0x0000',Sunduk1) 
       wait(200) 
       if uo.findcount()<>0 Then 
          cheklag() 
          uo.MoveItem('finditem','-1','backpack') 
          wait(1000) 
       else 
          uo.closeuo() 
       end if       
    end if 
    Bag=uo.GetSerial('finditem') 

    uo.useobject(Bag) 
    wait(1000) 

    uo.findtype('0x14EB','0x0000',Bag) 
    wait(200) 
    while uo.findcount()>0 

    i=i+1 
    if i==50 then 
    uo.usetype('0x097B') 
    wait(1000) 
    i=0 
    end if 

    if uo.skillval("Cartography",1)==1000 then 
    uo.closeuo() 
    end if 

    uo.deletejournal() 
    uo.useobject('finditem') 
    repeat 
    wait(100) 
    until uo.InJournal('You put the') or uo.InJournal('Thy trembling hand') 

    uo.findtype('0x14EB','0x0000','backpack') 
    wait(200) 
    if uo.findcount()>0 then 
    cheklag() 
    uo.MoveItem('finditem','-1',Trash) 
    wait(500) 
    end if 

    uo.findtype('0x14EB','0x0000',Bag) 
    wait(200) 
    wend 
    cheklag() 
    uo.MoveItem(Bag,'-1',Sunduk2) 
    wait(500) 
    wend 
    end sub 


      
    sub Reconnector() 
    var ReconnectTime, RFlag 
    ReconnectTime = '0' 
    RFlag = 1 
    Repeat 
    While (UO.ObjAtLayer('Bpack') == '') 
    if RFlag Then 
    ReconnectTime = MakeTime() 
    RFlag = 0 
    endif 
    Wait(20000) # WorldSave Protection 
    UO.Say('') 
    Wait(3000) 
    UO.Say('') 
    Wait(3000) 
    UO.Say('') 
    Wait(3000) 
    UO.LDblClick(357,164) 
    UO.LClick(616,459) 
    Wait(3000) 
    WEnd 
    Wait(3000) 
    if (RFlag == 0) and (ReconnectTime <> '0') Then 
    UO.Exec('terminate Cartography') 
    wait(1000) 
    UO.Exec('exec Cartography') 
    UO.TextOpen() 
    UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
    RFlag = 1 
    ReconnectTime = '0' 
    endif 
    Until false 
    end sub 
      
    sub MakeTime() 
    VAR D, T, Ret, i 
    Ret = STR(UO.Time()) 
    T = "" 
    For i = 0 To Len(Ret) 
    T = Ret[Len(Ret)-i] + T 
    If (I == 2) OR (I == 4) Then 
    T = ":" + T 
    EndIf 
    Next 
    Ret = STR(UO.Date()) 
    D = "" 
    For i = 0 To Len(Ret) 
    D = Ret[Len(Ret)-i] + D 
    If (I == 2) OR (I == 4) Then 
    D = "." + D 
    EndIf 
    Next 
    Ret = T + " @ " + D 
    RETURN Ret 
    end sub 

    sub cheklag() 
    uo.deletejournal() 
    uo.click('backpack') 
    repeat 
    wait(10) 
    until uo.InJournal("backpack") 
    end sub 
    Категория: Injection | Добавил: mypaxa
    Просмотров: 1005 | Загрузок: 0 | Комментарии: 2 | Рейтинг: 0.0/0
    Всего комментариев: 0
    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]

    Copyright MyCorp © 2026 |