Перейти к содержанию
Форум шарда Middle-Earth

wizardme

Members
  • Публикаций

    15
  • Зарегистрирован

  • Посещение

Сообщения, опубликованные wizardme


  1. Не спеша буду сюда вставлять несложные скрипты, облегчающие жизнь.

     

    1. Скрипт на перенос в бекпак нужных вещей. Нужно указать в скрипте id контейнера, в котором лежит, то что вы хотите взять. Дальше указываете тип, цвет и количество, а скрипт все переносит. После этого у вас будет ровно такое количество предметов, которое вы указали.

     

    sub toGet()
        var i,get,meshok
        dim toGetType[20],toGetColor[20],toGetQuan[20]
        #### Настройка скрипта
        #### Указываем контейнер
        meshok=0x7E720AFA ## id контейнера где у вас лежит, то что вы будете брать
        ####
        # в чате пишем ,info и указываем предмет, который вас интересует
        # берем тип (type) и цвет (colour)
        # ID=0x40B39A23 _Type=0x0E21_ DLBLJND Name=13 clean bandages
        # Quantity: 13  Colour: _0x0000_  Layer: 0  Has: 1
        # X=68 Y=69 Z=0 C=0x7E846D22 F=0x00
        ####### указываем тип
        toGetType[1]='0x0DD6' #fish
        toGetType[2]='0x0DD6' #fish
        toGetType[3]='0x0F0E' #gh
        toGetType[4]='0x0E21' #bandages
        toGetType[5]='0x0F84' #garlic
        toGetType[6]='0x0F8C' #s.ash
        toGetType[7]='0x0F85' #ginseng
        ####### указываем цвет
        toGetColor[1]='0x0029' # red 
        toGetColor[2]='0x0009' #blue
        toGetColor[3]='0x0690' 
        toGetColor[4]='0'
        toGetColor[5]='0'
        toGetColor[6]='0'
        toGetColor[7]='0'
        ####### указываем нужное количество
        toGetQuan[1]=3
        toGetQuan[2]=3
        toGetQuan[3]=2
        toGetQuan[4]=250
        toGetQuan[5]=15
        toGetQuan[6]=15
        toGetQuan[7]=15
        ########
        ######## Начало скрипта
        uo.useobject(meshok)
        wait(500)
        checklag()
        ########
        for i=1 to 7
            if uo.count(toGetType[i],toGetColor[i])<toGetQuan[i] then
                get=toGetQuan[i]-uo.count(toGetType[i],toGetColor[i])
                uo.findtype(toGetType[i],toGetColor[i],meshok)
                uo.moveitem('finditem',get,'backpack')
                wait(1000)
                checklag()
            endif        
            if uo.count(toGetType[i],toGetColor[i])>toGetQuan[i] then
                get=uo.count(toGetType[i],toGetColor[i])-toGetQuan[i]
                uo.findtype(toGetType[i],toGetColor[i],'backpack')
                uo.moveitem('finditem',get,meshok)
                wait(1000)
                checklag()            
            endif
        next
    end sub
    Sub checklag()
        DelJournal("ackpack")
        UO.Click("backpack")
        repeat
            wait(100)
        until UO.InJournal("ackpack")
    end sub
    Sub DelJournal(msg)
        While UO.InJournal(msg)
            UO.SetJournalLine(UO.InJournal(msg) - 1,'')
        wend
    end sub


  2. sub Spar()
    uo.AddObject('opponent')
    While uo.Targeting()
        Wait(200)
    Wend
    While uo.SkillVal('Wrestling',1) < 1200
        If uo.GetHP('opponent') < uo.GetMaxHP('opponent') / 1.8 Then
            uo.Warmode(0)
            Repeat
                Wait(2000)
                uo.WaitTargetObject('opponent')
                uo.Msg('.bandage')
            Until uo.GetHP('opponent') > uo.getMaxHP('opponent') / 1.1
        EndIf
        Wait(500)
        uo.Attack('opponent')
    Wend
    uo.Warmode(0)
    End Sub

     

    Был на форуме. Сомневаюсь, что можно сделать проще.


  3. sub materials()
        while not uo.dead()
            uo.deletejournal('create')
            uo.deletejournal('make')
            uo.deletejournal('failed')
            checklag()
            uo.waittargettype('0x1766')
            uo.waitmenu('Choose a category.', 'carpets', 'Select', 'carpet1','Select', 'corner')
            uo.usetype('0x0F9D')
            repeat
                wait(1000)
            until uo.injournal("create|make|failed")
            wait(1000)
            checklag()
            rez()
            checklag()
        wend
    end sub
    Sub checklag()
        DelJournal("ackpack")
        UO.Click("backpack")
        repeat
            wait(100)
        until UO.InJournal("ackpack")
    end sub
    Sub DelJournal(msg)
        While UO.InJournal(msg)
            UO.SetJournalLine(UO.InJournal(msg) - 1,'')
        wend
    end sub
    sub rez()
        uo.waittargettype('0x0AC2')
        uo.usetype('0x0F9E')
        wait(1000)
    end sub


  4. убить нью можно, если нью особенно туп и не видит, что возле рядом капающего "не нью" стоит трап...мне по барабану, если куча типов капает в шахте и трап коцает и нью тоже, то это не моя забота, пусть фиксят чтобы нью не пойзонило...чары,что там капают вообще не качаются...чисто капальщики круглосуточные...визардми тусуйся вообще, иди к мамочке выплачься в юбку. Я нюбам неоднократно помогал, так что умойся

     

    Предлагаю это на главную страницы мидлы выложить. Рост онлайна обеспечен.


  5. Убить new можно только багами, ты багоюзер, неоднократно убивал new в гвард зоне. К тому же матершинник. http://img686.imageshack.us/f/timkv.png/

    Если тебя не накажут, то репутация данного сервера в моих глазах резко упадет.

     

    А вот и признание того, кто навсегда убирает тягу у новичков оставаться на этом риалме. http://img576.imageshack.us/f/confes.png/


  6. Договорились с чаром DarkTampliers (он же Nepret) на обмен 27500 логов на 2 повер скролла и один грейт скролл (где- то в 12:00 29 ноября). Я посчитал что при цене 12 за лог, выйдет 330к, что вполне соответсвует рыночной цене трех скроллов. Так как Непрет добавился мне в аську и обсуждение проходи

    ло публично (по общему чату), то я позволил себе некоторую степень доверия:) Кто же знал, что меня собираются цинично обмануть.

     

    Я принес треть логов (9200), отдал ему, при этом он сказал, что первый скролл даст на второй ходке, а остальные после третьей. Тут была моя ошибка, стоило сразу по скроллу брать.

     

    На второй ходке (9200) логов он мне дал первый скролл.

     

    На третьей (9100) он меня пытался дать всего лишь один скролл вместо обещанных двух.

     

    На мои возражения о том, что нужен еще один скролл, он сказал что договор был на два скролла. На предложение обменять все обратно, я был несколько послан. Картинка прилагается. http://img543.imageshack.us/f/naeb3.png/

     

    В итоге он у меня, получается, надул на 9200 логов. Так как дал один скролл за 18400 логов (220к в денежном эквиваленте).

     

    Прошу вас произвести обмен обратно. Забрать у меня этот розовенький скролл, а мне вернуть мои 18400 логов. Ну может и наказать этого обманщика. Спасибо.

     


  7. гдето читал что есть возможность потерять чаров если долго за них не заходить, мол потруться...

     

    щас читаю эту тему и у меня складываеться такое впечатление что я щас зря на срв ломлюсь, ждёт меня там щас одно разочерование и "упадок сил" так как чаров уже нет

     

    буду рад если кто нибудь опровергнет мои страхи и подозрения

     

    Года два точно не трутся. А так два акка я сам потерял после лет 3-4.

×
×
  • Создать...