Oskom Forums

Oskom Forums


Добро пожаловать на Oskom Forums.
 
 
Сейчас на шардах UO Oskom
 
Закрытая тема
Показано с 1 по 7 из 7

Комбинированный просмотр

  1. Apprentice
    [Banned]
    Регистрация
    03.10.2004
    Адрес
    Zealot Of Chaos
    Сообщений
    197
    #1

    По умолчанию Народ хелп!!

    пришлите плиз скрипт на Магери!чтоби поел,пускал поисон пока мана некончится,медит пока мана ненаберётся и опять сначала...мани у меня 100

  2. Expert
    [Banned]
    Регистрация
    18.11.2004
    Адрес
    Daronis
    Сообщений
    456
    #2

    По умолчанию

    тебе в пов

  3. Journeyman

    Регистрация
    12.02.2005
    Адрес
    NightRacing
    Сообщений
    212
    #3

    По умолчанию

    Есть специальный топик для людей, которые не знают как написать простейший скрипт...

  4. Grandmaster

    Регистрация
    18.04.2003
    Адрес
    Add; Addiction [Never Ever Sleep]
    Сообщений
    2,636
    #4

    По умолчанию

    1 ) тебе в В/О.
    2) Лучше качать через 2 УОлупы сам догадайся как.

  5. Apprentice

    Регистрация
    16.02.2003
    Адрес
    Unforgiven
    Сообщений
    174
    #5

    По умолчанию

    Ой добрый я сегодня! На сайте на интерестном нашел!)))


    ################################################## ##############
    ;Magery v.1.00. (c) DamneD
    ;Чар берёт из сундука Nighshade и кастует Poison на себя.
    ;Если Mana закончилась- медетирует.
    ;Если Nighshade в backpack'е закончился, берёт из сундука.
    ;
    ;
    ;
    var TypeFood='0x097B' ## - Тип еды которую будем кушать.(сейчас фиштейки)
    var Reconnect=1 ## 1 - Включить реконнект на сервер если выкинет, 0 - отключить реконнект.

    sub Magery()
    VAR NS='0x0F88' ; Тип Nighshade.
    VAR Sunduk='0x41461664' ; Сериал(ID) Сундука.
    VAR Kolvo=100 ; Количество регов, которое чар берёт из сундука.


    if Reconnect==1 then
    uo.Exec('exec Reconnect')
    end if

    While NOT UO.Dead()
    While UO.Mana>=9 AND UO.NS>0 ; здесь можно менять со скаких маны чар начнёт медетировать, то же число следует поставить в строку *.
    UO.DeleteJournal()
    UO.Cast('Poison', '0x40EE484E')
    wait(3000)
    CheckLag()
    wend
    EatingFood()
    If UO.Mana<9 Then ;*
    While UO.Mana<UO.Int
    UO.DeleteJournal()
    wait(1000)
    UO.Useskill('Meditation')
    Repeat
    wait(100)
    until UO.InJournal("You are") OR UO.InJournal("You lose")
    Wend
    Endif
    If UO.NS == 0 Then
    UO.FindType(NS, '-1', Sunduk)
    UO.Grab(str(Kolvo), 'finditem')
    repeat
    wait(100)
    until UO.NS>0
    Endif
    Wend
    end sub

    sub EatingFood()
    repeat
    uo.UseType(TypeFood)
    CheckLag()
    until uo.InJournal('You are simply too full to eat any more!')
    wait(500)
    end sub

    sub Reconnect()
    var ReconnectTime,rFlag
    ReconnectTime='0'
    rFlag=1
    repeat
    while (uo.ObjAtLayer('Bpack')=='')
    if rFlag then
    ReconnectTime=MakeTime()
    rFlag=0
    end if
    wait(200000)
    uo.Say('')
    wait(10000)
    uo.Say('')
    wait(10000)
    uo.Say('')
    wait(10000)
    uo.LDblClick(357,164)
    uo.LClick(616,459)
    wait(10000)
    wend
    wait(10000)
    if (rFlag==0) and (ReconnectTime<>'0') then
    uo.TextOpen()
    uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
    rFlag=1
    ReconnectTime='0'
    end if
    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
    end if
    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
    end if
    next
    ret=t+" @ "+d
    return ret
    end sub

    sub CheckLag()
    if uo.Waiting()>0 then
    uo.Exec('canceltarget')
    end if
    uo.DeleteJournal()
    uo.Click('backpack')
    repeat
    wait(50)
    until uo.InJournal('backpack')
    end sub

  6. Expert

    Регистрация
    04.01.2005
    Адрес
    Этот аккаунт отдан, и теперь пренадлежит мне...:)
    Сообщений
    619
    #6

    По умолчанию

    Это скриптик для инжекта ака запрещенное ПО .

  7. Apprentice
    [Banned]
    Регистрация
    03.10.2004
    Адрес
    Zealot Of Chaos
    Сообщений
    197
    #7

    По умолчанию

    ой сорри модери..я ошибился форумом..топ клоуз..

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения