Oskom Forums

Oskom Forums


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

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

  1. Journeyman

    Регистрация
    05.05.2005
    Адрес
    MOPO>I<EHOE
    Сообщений
    233
    #1

    По умолчанию Помогите со скриптом на мининг

    set #hide 0 // 1 - ?????? ??????????, 0 - ???
    set #dlin 15 // ???????????? ????? ????? ? ????? ???????????
    set #napr 1 // ? ????? ??????? ??????: 0 - ??????-??????,
    // 1 - ?????-???????
    set #ves 500 // ???????????? ???, ?????????? ?????
    set #sdvig 0 // ???? ?????????? ??? ?????????: 0 - ????, 1 - ?????
    set #proba 20 // ?????????? ??????? ?????????
    set #propusk 0 // 1 - ?????????? ??????? ????, 0 - ???????? ??? ?? ??????

    // ????????? ????
    if #hide = 1
    while_not (lastmsg you have hidden)
    send F7 3000 // ???????? ???????????
    end_while
    end_if

    // ???????? ?????????
    :main
    set #i 1 // ??????? ??? ????????? ? ???? ??????
    while #i < #dlin
    set #xx charposx // ??????? ?????????? ????
    set #yy charposy
    gosub kopaem
    gosub idem_hor
    if #xx = charposx and #yy = charposy
    // ????????? ???? ??? ???????? ?? ??????????!
    gosub razvorot
    break
    end_if
    set #i #i + 1
    end_while
    if #napr = 0
    // ?????? ??????????? ????????
    set #napr 1
    else
    set #napr 0
    end_if
    goto main

    // ????????? ??????????? 25 ?????? ?????? ????
    :kopaem
    for #y -2 2 1
    for #x -2 2 1
    set lasttargetx charposx + #x
    set lasttargety charposy + #y
    set lasttargetkind 2
    gosub dyatel // ?????? ? ???? ?????
    end_for
    end_for
    return

    // ????????? ????????? ??????? ?????? ?????
    :dyatel
    set #p 0
    :mining
    send F2 // lastobject waitfortarget lasttarget
    wait 9000
    roverka
    if (lastmsg nothing) or (lastmsg mining in rock) or (lastmsg have no line) or (lastmsg get there) or (lastmsg you can't)
    return
    end_if
    goto mining
    end_if
    wait 500
    set #p #p + 1
    if #p > #proba
    return
    end_if
    goto mining
    return

    // ????????? ?????? ???? ?? ??? ???? ?????????????
    :idem_hor
    if #napr = 0
    send Left
    if #hide = 1
    // ???? ?? ? ????? - ???? ????? ????? ??????
    wait 1000
    end_if
    send Left
    if #hide = 1
    // ???? ?? ? ????? - ???? ????? ????? ??????
    wait 1000
    if lastmsg been revealed
    send F7
    wait 500
    end_if
    end_if
    else
    send Right
    if #hide = 1
    // ???? ?? ? ????? - ???? ????? ????? ??????
    wait 1000
    end_if
    send Right
    if #hide = 1
    // ???? ?? ? ????? - ???? ????? ????? ??????
    wait 1000
    if lastmsg been revealed
    send F7
    wait 500
    end_if
    end_if
    end_if
    return

    // ????????? ?????? ???? ?? ????????? ??? ?????????
    :razvorot
    if #sdvig = 0
    send Down
    if #hide = 1
    // ???? ?? ? ????? - ???? ????? ????? ??????
    wait 1000
    if lastmsg been revealed
    send F7
    wait 500
    end_if
    end_if
    else
    send Up
    if #hide = 1
    // ???? ?? ? ????? - ???? ????? ????? ??????
    wait 1000
    if lastmsg been revealed
    send F7
    wait 500
    end_if
    end_if
    end_if



    Проблема в том, что у вас пишется на русском "тут не осталось руды" а пилот не понимает если писать (ластмсг тут). Что мне делать??

  2. Moderator
    Аватар для Smilekot
    Регистрация
    27.06.2003
    Адрес
    Если бы мои понты светились, я был бы ангелом! Бабло по
    Сообщений
    3,182
    #2

    По умолчанию

    1. тебе в вопы
    http://www.uoo.ru/phpBB/viewtopic.php?t=145599&10416168 раздел про скрипты в ВОПАХ

  3. Grandmaster
    [Banned]
    Регистрация
    05.04.2006
    Адрес
    Mihail[D-Tox]
    Сообщений
    3,443
    #3

    По умолчанию

    во-первых, это главный о2, во-вторых, тебе вообьще в ВОПы, в третьих у нас такие макросы не приветствуются..

Ваши права

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