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

    Скрипт на Чар копаем сразу в сундук Vipka
    sub mining() 
    var mx, my, mz, i, j 
    var ismining, ixx, isheavy 
    mx = UO.GetX("self") 
    my = UO.GetY("self") 
    mz = UO.GetZ("self") 

    uo.setcatchbag('0x40128C01') 

    While not UO.Dead() 
    UO.DeleteJournal() 
    for i = mx-4 to mx+4 
    for j = my -4 to my+4 
    UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j)) 
    ismining = 1 
    while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ismining 

    UO.DeleteJournal() 
    hide() 
    UO.Waittargettile("1341", str(i), str(j), str(mz)) 
    #UO.Usetype('0x0E85') 
    UO.Usetype('0x0E85')
    ixx = 0 
    ismining=1 
    while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ixx <= 100 
    wait (100) 
    ixx = ixx + 1 
    wend 
    while UO.InJournal("but fail") 
    Wait (100) 
    UO.DeleteJournal() 
    wend 



    if uo.injournal("Rusty") then 
    ismining = 0 
    endif 
    if uo.injournal("Old Copper") then 
    ismining = 0 
    endif 
    if uo.injournal("Dull Copper") then 
    ismining = 0 
    endif 
    if uo.injournal("the Copper") then 
    ismining = 0 
    endif 
    if uo.injournal("Iron") then 
    ismining = 0 
    endif 
    if not ismining then 
    uo.print("Not mining here") 
    endif 
    wend 
    UO.DeleteJournal() 
    next 
    next 
    wend 
    end sub 

    sub hide() 
    while not UO.Hidden() 
    UO.Warmode("0") 
    UO.UseSkill("Hiding") 
    wait(4000) 
    wend 
    end sub 


    sub CheckLag() 
    UO.DeleteJournal() 
    UO.Click('backpack') 

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



    Категория: Мои статьи | Добавил: -=DavidJones=- (15.11.2008)
    Просмотров: 957 | Комментарии: 3 | Рейтинг: 0.0/0
    Всего комментариев: 1

     12.10.2012
    0  
      Помогите советом. Пару дней назад решился подкупать в онлайн аптеке порядочно препаратов. Чтобы себя правда и для жены тоже.
    Аптеку нашел c помощью сего сайт.
    http://sdfg.freeiz.com/
    Понравились цены и бонусы. Там дозволительно покупать громоздкий обьем почти даром.

    Оплатил без проблем. Теперь жду когда прийдет. жду и сомневаюсь. Боюсь что ошибся в чем-то.
    А потому прошу совета. Кто покупал чрез онлайн аптеки? Я сделал совершенно правильно?

    P.S. Господа модераторы. Извините когда написал не туда. Перенесите тему в регулярный раздел. Спасибо.
    Ответ Цитата

    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]

    Статистика

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