Сайт Антареса Сайт Антареса Форум Антарес
> >

Здравствуйте, гость ( Вход | Регистрация )

История благодарностей участнику Alucard ::: Спасибо сказали: 351 раз(а)
Дата поста: В теме: За сообщение: Спасибо сказали:
27.5.2010, 3:09 UOMap
Цитата(Archon64 @ 26.5.2010, 0:15) [snapback]528724[/snapback]

Всем здравствуйте. http://85.112.126.34/files/UOmap.rar выдаёт 404 ошибку, исправьте пожалуйста. Очень хочется скачать эту программу, а в другом месте найти не могу. Спасибо


Интересно по его ссылке я тоже зайти не могу а по нашей могу. Видимо у автора опечатка просто. Все качается.
Рабочая ссылка
Archon64,
27.5.2010, 3:07 Сломался инжект
всего скорее использовался скрипт с вставлянием в память инжекта русских букв (фильтрспич). Можно попробовать поиздеваться над копией injection.xml и убрать все буквы русские там. Если не получится - удалить основной файл, зайти в игру (файл пересоздастся) и забить хоткеи с копии файла.
больше чтото ничего путного в 7 утра в голову не приходит notknow.gif
Archon64,
26.5.2010, 21:01 UO.SetArm - UO.Arm
как вариант
Код

var x = uo.GetGraphic(uo.ObjAtLayer('Lhand'))
var y = uo.GetGraphic(uo.ObjAtLayer('Rhand'))

uo.Equipt('Lhand',x)
wait(200)
uo.Equipt('Rhand',y)
wait(100)

для лука\даггера пауза естественно не нужна
Warlord,
22.5.2010, 20:32 Предложение. Iris2
Раз пошла такая пьянка переехали в таверну и продолжаем обсуждать предложение о нововведении потише.

Мне кажется недопустимо для взрослого "дяди" такие грубые слова говорить и вестись как подростку при том что (более чем уверен) даже не знаешь с кем общаешься.
Давайте уже не переходить на личности, не говорить гадости, не писать и не копировать мат и вести себя более сдержано. Критику надо выслушивать и делать выводы а не показывать пальцы нехорошие.

Ирис проект интересный возможно даже наши многоуважаемые админы и поэкспериментируют и по шаманят дабы была возможность запустить его, а возможно и нет. Мир не рухнет в любом случае. лично от меня Leo Wiskonti спасибо за оживление самой темы. Я в свое время ее (тему) тоже выкладывал и тестировали на старом сервере и на локальных серваках. Для себя скачаю и поверчу клиент. Но если чесно некоторые его посты читать смешно. В ультиму имхо играют не только задроты аля ВОВских офлайферов. Многие приходят поприкалыватсья потусовать попонтоваться или просто пообщаться. Для них игра никогда не умрет и не важно через что они смотрят на мир - через голый клиент, через текстовое окно стелса, через засаленную призму инжекта (который к слову в состоянии запустить 3D клиент у нас на сервере без проблем). Не важно какие новые игры выходят. И в них будут играть. Но пока действует хоть 1 сервер ультимы и в онлайне находится хоть 1 перс (даже если он бот) игру нельзя считать мертвой.

Хотя все это уже обмусляковали в 2007 аж году :) И тем под тем же авторством.
старая тема Leo
Leo Wiskonti,
20.5.2010, 20:42 Скрипт на перекладывание
Цитата(Slinus @ 20.5.2010, 22:49) [snapback]528609[/snapback]

Помогите плиз найти скрипт на перекладывание луков обычных из бек пака в сундук дома)
СПС


5 тем ниже
Замена ,massmove 1 49
11 тем ниже.
Производственные заказы.

Даже поиск юзать не надо... nunu.gif
dale,
20.5.2010, 4:32 обмен бижутерии
Цитата(koalla @ 20.5.2010, 0:58) [snapback]528587[/snapback]

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

У Ювелиров сказать надо Work. Золото в паке должно быть для обмена. 3 гранатовых дадут амбер.
koalla,
19.5.2010, 10:25 Предложение. Iris2
Цитата(Tourus @ 19.5.2010, 12:21) [snapback]528537[/snapback]

Так что - если вводить, то не с выбором 2д-3д, а остановиться на какомто одном.

У тебя логически неправильный вывод. Если бы ты не освоил 3D то ты бы ушел с сервера. Но узнав что там есть привычный 2D тs всетаки остался. Переключатель по любому должен быть. даже для того чтобы замочить горгулию в 2D мире потом перезайти в 3D и посмотрев на ее безобразную образину... замочить ее еще и в 3D laught.gif

Если когданибудь ктонибудь осилит ультимовский клиент по графике уровня NWN2 я буду играть 90% времени на нем rev.gif Именно по этому мучаю вторую неделю F3 (не потому что игра выдающаяся или клевый шутер а просто потому что это фаллоут!)

Интересно что будет в SW online и Fallout online...
dale, Sattva,
18.5.2010, 10:00 Подскажите? fonts!
У нас самый файловые файлы на свете %)
Seer Osiris,
16.5.2010, 13:17 не могу срубить логи!!!
Цитата(Lady Waks @ 16.5.2010, 16:47) [snapback]528449[/snapback]

блин а мне кароче бабла нада срубить полегкой както _)))))!!! мне тожэ саветы нужны

берешь короче колотушку и пару пацаноф понадежнее. Тусуешь у банка. Тусовать может статься придетсья долго по этому запасись каким нито хавчиком. Но не грузись сильно. Типа семячек. Смотришь идет упырь обналичиватсья. Зажимаешь его с парнями за углом и колотушкой бьешь тихонько по голове. Не сильно - а то стража придет и настучит по кумполу.
Хабар либо делишь либо пресуешь по очереди подельников и забираешь все себе. Пара ходок и ты богач.
pray.gif
Casus.death, Ixilon, Sattva, smit,
16.5.2010, 8:13 Как бороться с ошибкой
Знакомый ник agree.gif
1) посмотри ветку инжекта я там скидывал клиент с пониженной нагрузкой
2) как вариант попробовать на инжекте поновее.
3) совместимость с WinXP выставляешь в настройках client.exe? (надо выставлять)
4) у меня такая ошибка возникала на слабом компе когда я параллельно запускал farefox, смотрел кино и 3-4 окна клиента.
5) все таки W7 не для игры 1998 года notknow.gif

А на yoko видимо переделывают форум. Хотя может бабосы опять кончились у них или хост упал.
Nikolay_Vetrov,
5.5.2010, 14:51 Поиск по вендорам
в пользу кнопки стакования скажу пару плюсов помоему не упомянутых (или стертых laught.gif )

У меня (допустим) есть 2К турмалинов и 50К реагентов на продажу. за 1 товар естественно не перенесу на вендора. А если носить по нескольку раз то получится что у вендора займется штук 10-15 ячеек. Вместо 2.
затем закинув товар мне надо поменять стоимость в связи с падением цены. мне придется перетыкивать все позиции однотипного товара вместо выставления цены 1 раз на 1 слоте. Надо мне продать реги по 5 гп допустим. Ну и пес с ним. я поставлю на 50К регов стоимость 5 гп и пусть на здоровье покупают. Скупили больше половины - цену поднял немного. И так далее. Не вижу никаких положительных сторон в том что товар не стакуется на вендорах.
Если бы на вендорах сделали стакование не стакуемых предметов типо плащей, сердец, мяса или одинакового оружия (те же руины) то было бы вообще зашибись.
Как то вот так rev.gif
CxC,
4.5.2010, 13:15 плавка
Визер гдето писал что шанс получить слитки больше если плавить вышку по 1 рудинке. ХЗ я не заморачивался. Филзнет так филзнет - накопаю еще. Но как вариант - пробуйте.
Tourus,
3.5.2010, 17:56 Поиск по вендорам
Нашумели то за выходные и праздники...
Tourus,
3.5.2010, 17:33 копка руды
Цитата(Zislis @ 2.5.2010, 14:52) [snapback]528187[/snapback]

Наверно мноим будет смешно но я старои закалки игрок знаю асист но с инжои брррррр даже разбераться боюсь))) head_wall.gif

Наверное многим.
Если ломает ПРОЧИТАТЬ (не разбираться) 1 тему про установку программы, прочитать 1 тему со скриптом для нее и потом попробовать запустить, а если не получится то спросить на форуме... И плюс не хватает фантазии чем заняться на сервере чтобы позволить себе купить то что ты добыть не в состоянии... Ну не знаю, наверное тебе стоит обратить внимание на WoW? там вообще ничего делать не надо чтобы пробиться в верх. Надо лишь заходить и долбиться. У меня там племянник 8 лет играет с успехом. laught.gif
Counselor First, Sattva,
30.4.2010, 5:40 CxC!
C Днем Рождения тезка.
Пусть сундуки твои ломятся от богатств, здоровье будет крепким а девченки вьются стайками (не в ущерб семье ;))
beer.gif
CxC,
28.4.2010, 8:13 Интересные факты
я конечно извиняюсь а как же люди одетые в полный пластинчатый доспех полностью сжигаемые фаерболами? А как же металическая решетка плавящаяся как масло от магического огня?
Уж если подписывать под РПГ то щиты надо или обкастовывать или закалять (плюсить) крафтером. Типо взял простой щит + кусок золота мифрила или серебра, шарахнул по щиту молотком = получился простой щит +1\2\3\... соответствующей прибавкой к защите.
Воть.


PS Хотя сама идея нормальная
Dark Raver,
26.4.2010, 14:01 Ремуверы
хз Кто хочет быть киллером тот и убивает. Практически никогда не видел чувака который вел честнейший образ жизни и при срыве валил человек 15 А потом стонал что стал красным и долго стоять. Уж или убиваешь всех и вся и пофигу на киллы или не убивай.
А те пары убийств "случайно" получанных можно и отстоять и смыть киллремуверами которые добываются сейчас.

Диды на ченито другое можно менять.
Ixilon,
26.4.2010, 5:05 Беру под опеку новичков
Это балуется Визер имхо :)
Или комуто с беста делать нечего.
Tourus,
25.4.2010, 18:50 Автолут
1) предупреждение за неправильно оформленный скрипт
2) Поиск слова ЛУТ
3)
Код
sub Loot()
    # Грабим труп монстра
    UO.FindType('0x0EED', -1,'lastcontainer')
    if UO.FindCount() then
        UO.MoveItem('finditem')
        wait(300)
    end if
    UO.FindType('0x0E76', -1,'lastcontainer')
    if UO.FindCount() then
        UO.MoveItem('finditem')
        wait(300)# можно увеличит до 600
    end if

    UO.FindType('ТИП регов', -1,'lastcontainer')
    if UO.FindCount() then
        UO.MoveItem('finditem')
        wait(300)# можно увеличит до 600
    end if

    UO.FindType('ТИП регов', -1,'lastcontainer')
    if UO.FindCount() then
        UO.MoveItem('finditem')
        wait(300)# можно увеличит до 600
    end if

    UO.FindType('ТИП регов', -1,'lastcontainer')
    if UO.FindCount() then
        UO.MoveItem('finditem')
        wait(300)# можно увеличит до 600
    end if
#...и так далее....

end sub

при паузе в 300 так лутать не будет. Но имхо на вопрос я вроде ответил rev.gif
Angel of vengeance,
21.4.2010, 16:25 Как попасть в НТ?
Нубам в помощь создан сей раздел. Тут много инфы для начинающих на сервере. Просто надо уметь искать и читать хотябы чуть чуть.
Tourus,
20.4.2010, 17:37 Кое что про ловушки
Цитата(CxC @ 20.4.2010, 19:09) [snapback]527592[/snapback]

неужели pray.gif eusa.gif

опустил крафтер щит на 150К по сравнению с соседом - взяли моментально. Если у меня есть то что я могу добыть очень быстро а у когото нет времени\желания\умения то я могу выставить по низкой цене и он у меня купит.

хотя разговор не совсем про это beer.gif
smit,
17.4.2010, 9:13 вижу как мышь превращается в крысу)
Цитата(DaemiaN xD @ 16.4.2010, 21:28) [snapback]527398[/snapback]

Я такие скрипты еще на 2007-8 антаресе видел 3-4 секунды и труп с ~50 итемами пуст и над чаром сразу столб надписей типа он слутал труп так что не надо меня лечить есть лазейка я ведь не слепой

никто и не лечит. Раньше применялась такая хитрая команда ,emptycontainer 1 на свой труп и хоть 50 хоть 255 итемов со СВОЕГО тела перемещалось живому в пак за секунды. Ради бога - пробуй сейчас. Ограничения сделанные со стороны сервера могут обойтись только чаром с правами 7 зашедшим локально. На своей домашней сфере ты до сих пор можешь наблюдать сей фантастический фастлут.
Sattva,
16.4.2010, 16:35 ВЕЧЕР С JAMIROQUAI
Большое спасибо. Буду хранить и приумножать до возможного возврата..
jamiroquai,
16.4.2010, 16:07 Производственные заказы.
Возможны модификации. На данный момент рабочие скрипты.
2 сундука на территории дома или в банке (в банке хуже - туда влезает только 10К итемов). В одном сумки сырье еда и инструменты в другом заполненные мешки.
ПЕРЕД ЗАПУСКОМ ОТКРЫТЬ СУНДУКИ!!!
Скрипт останавливается если чара расхайдили несколько раз подряд, если не достает каких либо ингредиентов (даже рыбы) или если не достать до контейнеров.

Код

VAR Container    = '0x40B5267F';айрон, рыба, инструменты, может быть равен Sunduk 1
VAR Sunduk1    = '0x40B5267F';пустые мешки
VAR Sunduk2    = '0x40B52599';полные
VAR Instrum    = '0x1EBC';набор жестянщика
VAR hammer    = '0x13E3'    ;кузнечный молоток
VAR saw        = '0x1034'    ;пила
VAR Ing        = '0x1BEF'        
VAR log        = '0x1BDD'    
VAR key        = '0x1010'        
VAR Lock    = '0x14FB'        
VAR Bottle    = '0x0F0E'        
VAR Dagger    = '0x0F51'        
VAR club    = '0x13B3'        
VAR Bow        = '0x13B1'        #лук#
VAR spool    = '0x0FA0'            #нитки#
VAR Сap        = '0x171C'        #колпак#
VAR cloth    = '0x175D'            #ткань#
VAR Skit    = '0x0F9D'            #швейный набор#
VAR Deed     = '0x14EF'
VAR Meshok     = '0x0E76';тип мешка
var havka    = '0x097B'
VAR MeshSer, d, LastTimer, timemove, itemM
var quantity = 150; количество предметов в 1 мешке
var msg ='You put|положили|fail|не удалось|You broke|сломали'
var printcolour = '1069'
VAR HIDE = 1; если 1 прячемся, если 0 нет.
###################
sub TinkKey()
    var menu = "waitmenu 'Tinkering' 'Keys' 'Keys' 'Iron key'"
    var item = key
    UO.CancelMenu()
    WHILE NOT UO.Dead()
        UO.FindType( Meshok, '-1', Sunduk1 )
        MeshSer = UO.GetSerial( 'finditem' )
        UO.MoveItem( MeshSer, 0, Sunduk2 )
        checklag()
        uo.useobject( MeshSer )
        eat()
        REPEAT
            GET(ing, Container, 20, 100)
            GET(Instrum, Container, 2, 2)
            Repeat
                Hide()
                UO.DeleteJournal()
                LastTimer=UO.Timer()
                UO.exec( menu )
                UO.Usetype( Instrum )
                repeat
                    wait( 300 )
                until UO.InJournal( msg ) or UO.Timer()>LastTimer+150
            Until UO.Count( item ) > 0
            checklag()
            PUT( item, MeshSer )
            UO.FindType( item, -1, MeshSer )
            uo.charprint(printcolour,'Ключей в мешке: '+Str( UO.FindCount()))
        UNTIL UO.FindCount()>=quantity
        uo.charprint(printcolour,'Берем другую сумку')
        wait( 300 )
    wend
end sub
###################
sub TinkerLockpicks()
    var menu = "waitmenu 'Tinkering' 'Tools' 'Tools' 'lockpick'"
    var item = Lock
    UO.CancelMenu()
    WHILE NOT UO.Dead()
        GET(ing, Container, 1, 100)
        GET(log, Container, 1, 100)
        GET(Instrum, Container, 2, 2)
        if HIDE then
            Hide()
        endif
        UO.DeleteJournal()
        LastTimer=UO.Timer()
        Repeat
            UO.DeleteJournal()
            LastTimer=UO.Timer()
            UO.exec( menu )
            UO.Usetype( Instrum )
            repeat
                wait( 100 )
            until UO.InJournal( msg ) or UO.Timer()>LastTimer+150
        Until UO.Count( item ) > 0
        checklag()
        PUT(item, Container)
        UO.FindType( item, -1, Container)
        uo.charprint(printcolour,'Отмычек в банке: '+Str(UO.GetQuantity('finditem')))
    WEND
end sub
###################
sub TinkerBottle()
    var menu = "waitmenu 'Tinkering' 'Tools' 'Tools' 'Empty bottle'"
    var item = Bottle
    WHILE NOT UO.Dead()
        GET(ing, Container, 10, 100)
        GET(Instrum, Container, 2, 2)
        if HIDE then
            Hide()
        endif
        UO.DeleteJournal()
        LastTimer=UO.Timer()
        Repeat
            UO.DeleteJournal()
            LastTimer=UO.Timer()
            UO.exec( menu )
            UO.Usetype( Instrum )
            repeat
                wait( 100 )
            until UO.InJournal( msg ) or UO.Timer()>LastTimer+150
        Until UO.Count( item ) > 0
        checklag()
        PUT(item, Container)
        UO.FindType( item, -1, Container)
        uo.charprint(printcolour,'Банок в банке: '+Str(UO.GetQuantity('finditem')))
    WEND
end sub
###################
sub BSDagger()
    var item = Dagger
    UO.Set('quiet','1')
    UO.CancelMenu()
################## со скилла 30.0 до 45.5
;    UO.AutoMenu('Blacksmithing','Weapons')
;    UO.AutoMenu('Fencing','Dagger')
################## со скилла 45.5 до 110.0
    UO.AutoMenu('Blacksmithing','Weapons')
    UO.AutoMenu('Weapons','Fencing')
    UO.AutoMenu('Fencing','Dagger')
##################
    UO.Set('quiet','0')
    WHILE NOT UO.Dead()
        UO.FindType( Meshok, '-1', Sunduk1 )
        MeshSer = UO.GetSerial( 'finditem' )
        UO.MoveItem( MeshSer, 0, Sunduk2 )
        checklag()
        uo.useobject( MeshSer )
        eat()
        REPEAT
            GET(ing, Container, 20, 100)
            Repeat
                if HIDE then
                    Hide()
                endif
                UO.DeleteJournal()
                LastTimer=UO.Timer()
                UO.Waittargettype ( Ing )
                UO.Usetype(hammer)
                repeat
                    wait(50)
                until UO.InJournal( msg ) or UO.Timer()>LastTimer+150
            Until UO.Count( item ) > 0
            checklag()
            PUT( item , MeshSer )
            UO.FindType( item , -1, MeshSer )
            uo.charprint(printcolour,'Кинжалов в мешке: '+Str( UO.FindCount()))
        UNTIL UO.FindCount()>=quantity
        uo.charprint(printcolour,'Берем другую сумку')
        wait( 300 )
    wend
end sub
###################
sub CarpentryClub()
    var menu = "waitmenu 'Carpentry' 'Weapons' 'Weapons' 'Club'"
    var item = club
    WHILE NOT UO.Dead()
        UO.FindType( Meshok, '-1', Sunduk1 )
        MeshSer = UO.GetSerial( 'finditem' )
        UO.MoveItem( MeshSer, 0, Sunduk2 )
        checklag()
        uo.useobject( MeshSer )
        eat()
        REPEAT
            GET(log, Container, 10, 300)
            GET(saw, Container, 1, 1)
            Repeat
                if HIDE then
                    Hide()
                endif
                UO.DeleteJournal()
                LastTimer=UO.Timer()
                UO.exec( menu )
                UO.Usetype( saw )
                repeat
                    wait( 300 )
                until UO.InJournal( msg ) or UO.Timer()>LastTimer+300
            Until UO.Count( item )>0
            checklag()
            PUT( item, MeshSer )
            UO.FindType( item, -1, MeshSer)
            uo.charprint(printcolour,'Дубин в мешке: ' + Str( UO.FindCount( item ) ) )
        UNTIL UO.FindCount()>=quantity
        uo.charprint(printcolour,'Берем другую сумку' )
        wait( 300 )
    WEND
end sub
###################
sub Bowcraft()
    var menu = "waitmenu 'What do you' 'Bow'"
    var item = Bow
    WHILE NOT UO.Dead()
        UO.FindType( Meshok, '-1', Sunduk1 )
        MeshSer = UO.GetSerial( 'finditem' )
        UO.MoveItem( MeshSer, 0, Sunduk2 )
        checklag()
        uo.useobject( MeshSer )
        eat()
        REPEAT
            GET(log, Container, 10, 800)
            GET(spool, Container, 1, 100)
            Repeat
                if HIDE then
                    Hide()
                endif
                UO.DeleteJournal()
                LastTimer=UO.Timer()
                UO.exec( menu )
                UO.waittargettype ( log )
                UO.Usetype( Dagger )
                repeat
                    wait( 100 )
                until UO.InJournal( msg ) or UO.Timer()>LastTimer+150
            Until UO.Count( item )>0
            checklag()
            PUT(item , MeshSer)
            UO.FindType( item , -1, MeshSer)
            uo.charprint(printcolour,'Сделано луков: ' + Str( UO.FindCount( item ) ) )
        UNTIL UO.FindCount()>=quantity
        uo.charprint(printcolour,'Берем другую сумку' )
        wait( 300 )
    WEND
end sub
###################
sub TailorCap()
    var menu = "waitmenu 'Cloth' 'Headwear' 'Headwear' 'Jester'"
    var item = Сap
    WHILE NOT UO.Dead()
        UO.FindType( Meshok, '-1', Sunduk1 )
        MeshSer = UO.GetSerial( 'finditem' )
        UO.MoveItem( MeshSer, 0, Sunduk2 )
        checklag()
        uo.useobject( MeshSer )
        eat()
        REPEAT
            GET(cloth, Container, 16, 100)
            GET(spool, Container, 1, 100)
            Repeat
                UO.DeleteJournal()
                LastTimer=UO.Timer()
                UO.exec( menu )
                UO.waittargettype ( cloth )
                UO.Usetype( Skit )
                repeat
                    wait( 100 )
                until UO.InJournal( msg ) or UO.Timer()>LastTimer+150
            Until UO.Count( item ) > 0
            checklag()
            PUT(item , MeshSer)
            UO.FindType( item , -1, MeshSer)
            uo.charprint(printcolour,'Сделано колпаков: ' + Str( UO.FindCount( item ) ) )
        UNTIL UO.FindCount()>=quantity
        uo.charprint(printcolour,'Берем другую сумку' )
        wait( 300 )
    WEND
end sub
###################
sub makeAgility()
    alchemy('0x0F7B', '0x0F09', "'Agility potion'")
end sub
sub makePoisen()
    alchemy('0x0F88', '0x0F0A', "'Poison potion'")
end sub
sub makeStrength()
    alchemy('0x0F86', '0x0F09', "'Strength potion'")
end sub
###################
Sub Alchemy(reagent, Potion, choice)
    WHILE NOT UO.Dead()
        UO.FindType( Meshok, '-1', Sunduk1 )
        MeshSer = UO.GetSerial( 'finditem' )
        UO.MoveItem( MeshSer, 0, Sunduk2 )
        checklag()
        uo.useobject( MeshSer )
        eat()
        REPEAT
            GET(log, Container, 1, 100)
            GET(reagent, Container, 3, 100)
            Repeat
                if HIDE then
                    Hide()
                endif
                UO.DeleteJournal()
                LastTimer=UO.Timer()
                UO.WaitMenu ('What sort of potion do you want to', choice)
                UO.UseType(reagent)
                repeat
                    wait(100)
                until UO.InJournal( msg ) or UO.Timer()>LastTimer+300
            Until UO.Count( Potion ) > 0
            checklag()
            PUT(Potion, MeshSer)
            UO.FindType( Potion, -1, MeshSer )
            uo.charprint(printcolour,'Зелий в мешке: '+Str( UO.FindCount()))
        UNTIL UO.FindCount()>=250
        uo.charprint(printcolour,'Берем другую сумку' )
        wait( 300 )
    WEND
end sub
Sub eat()
    GET(havka, Container, 1, 20)
    REPEAT
        UO.DeleteJournal()
        LastTimer=UO.Timer()
        UO.findtype(havka,-1,'backpack')
        If UO.FindCount() > 0 Then
            UO.Useobject('finditem')
            wait(200)
        Else
            uo.charprint(printcolour, 'кончилась рыба' )
            return 0
        end if
    Until UO.InJournal("simply too full to eat|stuffed!|think|found|Вы ничего не можете") OR UO.Timer()>LastTimer+200
    PUT(havka, Container)
end sub
Sub GET(item, cont, min, max); предмет, откуда, минимум, сколько брать
    If UO.Count( item ) < min Then
        UO.FindType( item, '-1', cont )
        if UO.FindCount() > 0 Then
            uo.charprint(printcolour,'Сырья в сундуке: '+Str(UO.GetQuantity('finditem')) )  
            itemM=UO.GetSerial('finditem')
            timemove=UO.Timer()
            while UO.ContainerOf(itemM)==cont && timemove+20>UO.Timer()
                uo.moveitem('finditem', max, 'backpack')
                wait(300)
            wend
        else
            uo.charprint(printcolour, 'Полностью кончилось сырье' )
            UO.CancelMenu()
            MyTerminate()
        endif
    Endif
end sub
Sub PUT(item, cont)
    while UO.Count( item ) > 0
        UO.FindType( item, -1, -1 )
        itemM=UO.GetSerial('finditem')
        timemove=UO.Timer()
        UO.MoveItem( 'finditem', 0, cont )
        while UO.ContainerOf(itemM)=='my' && timemove+20>UO.Timer()
            wait(300)
        wend
    wend
end sub
Sub Hide()
    VAR LastTimer, n=0, HidFlag=1
    if UO.Hidden() then
        HidFlag=0
    else
    end if
    while HidFlag
        DeleteJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно|You have hidden yourself well")
        LastTimer=UO.Timer()
        UO.WarMode(0)
        UO.UseSkill('Hiding')
        repeat
            wait(50)
        until UO.InJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно|You have hidden yourself well") || LastTimer+50<UO.Timer()
        if UO.InJournal("0xA5F8|удачно|You have hidden yourself well") then
            HidFlag=0
        else
            n=n+1
            if n>5 then
                UO.Set('quiet','0')
                uo.charprint(printcolour,'Спрятаться не получается, происходит что-то тревожное и непонятное, готовься к смерти, неудачнег!')
                UO.Set('quiet','1')
                MyTerminate()
            end if
        end if
    wend
end sub
Sub DeleteJournal(msg)
    While UO.InJournal(msg)
        UO.SetJournalLine(UO.InJournal(msg) - 1,'')
    wend
endsub
Sub MyTerminate()
    UO.Set('quiet','1')
    UO.CancelMenu()
    UO.IgnoreReset()
    UO.Set('quiet','0')
    UO.Exec('terminate all')
end sub
Sub checklag()
    DeleteJournal("ackpack")
    UO.Click("backpack")
    repeat
        wait(100)
    until UO.InJournal("ackpack")
end sub

(с) много кто. Конечная доработка Ваш покорный слуга.
Casus.death, Sattva,
13.4.2010, 12:47 вижу как мышь превращается в крысу)
Охохо нормальный наезд :)) Давно не было. Драчка.
DaemiaN xD,

10 страниц 1 2 3 > » 
- Текстовая версия Сейчас: 20.7.2018, 10:24
Design: Fisana  © 2005-2006 IBR Team