Перейти к содержанию

Qunis

Проверенные
  • Постов

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

  • Посещение

  • Победитель дней

    15

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

  1. prontera,164,164,3	script	Шапки	228,{
    mes "[Шапочник допустим]";
    mes "Какие шапки тебе нужны?";
    menu "Язёвая",shapka1,"Гуфская",shapka2;
    close;
    shapka1:
    mes "[Шапочник допустим]";
    mes "Ну тут дальше диалоги, проверки";
    close;
    shapka2:
    mes "[Шапочник допустим]";
    mes "Ну тут дальше диалоги, проверки";
    close;
    }

    Вроде понятно должно быть :D

    ocelote =* Прав, делай через switch(select("Шапка 1:Шапка 2")){, через меню уже никто не делает

    • Upvote 1
  2. в паблике лежит движок, только с дырками, прикрыть дырки и будет тебе счастье.

    не стоит на это деньги тратить, такие сайты уже везде

    P.s: в паблике лежит движок этот. правда с дырками, хз есть ли на максиРо дырки или нет.

  3. poring_w02,120,88,4	script	Stop The Clock::Ev_StopClock	924,{

    if (getgmlevel() == 99) goto L_GM;
    if ($@kc > 0 && @kcid != $@kcid) goto L_eventstarted;
    mes "[Stop The Clock]";
    mes "Здравствуй ^FF0000"+strcharinfo(0)+"^000000, чем могу помочь?";
    menu "^FF0000[Stop The Clock]^000000 информация",L_info,"Выход",-;
    close;

    L_info:
    next;
    mes "[Stop The Clock]";
    mes "^FF0000Stop the clock^000000 это игра, где нужно кликать на нпц";
    next;
    mes "[Stop The Clock]";
    mes "Человек, который часы ближе к 1000 остановит, победит!";
    mes "^FF0000[Note] Чтобы иметь шанс к победе нужно оставить часы от 950 до 1000^000000";
    next;
    mes "[Stop The Clock]";
    mes "Приз: ^FF0000["+getitemname($itemid)+"]^000000";
    close;

    L_eventstarted:
    set @kcid,$@kcid;
    setd ".timing_" + .number, $@kc;
    setd ".player_" + .number + "$", strcharinfo(0);
    set .number, .number+1;
    if ($@kc == 1000) {
    announce "ДжекПот! "+strcharinfo(0)+" остановил часы на "+$@kc+".",0,0x00EEFF;
    } else {
    announce ""+strcharinfo(0)+" остановил часы на "+$@kc+".",0,0x00EEFF;
    }
    end;

    L_GM:
    mes "[Stop The Clock]";
    mes "Дарова Администратор, что хотели?";
    mes "Приз: ^FF0000["+getitemname($itemid)+"]^000000";
    menu "Изменить приз",L_configure,"Начать эвент",-,"Остановить эвент",L_stop;
    if (.start == 1) goto L_started;
    next;
    mes "[Stop The Clock]";
    mes "Эвент стартовал";
    close2;

    L_startevent:
    set .start, 1;
    announce "[Stop The Clock] Старт через 1 минуту!",0,0xE38217;
    initnpctimer;
    end;
    OnTimer30000:
    if (.start == 0) goto L_suddenstop;
    announce "[Stop The Clock] Старт через 30 секунд!",0,0xE38217;
    end;
    OnTimer50000:
    if (.start == 0) goto L_suddenstop;
    announce "[Stop The Clock] Старт через 10 секунд!",0,0xE38217;
    end;
    OnTimer55000:
    if (.start == 0) goto L_suddenstop;
    announce "[Stop The Clock] Старт через 5 секунд!",0,0xE38217;
    OnTimer60000:
    if (.start == 0) goto L_suddenstop;
    announce "[Stop The Clock] Начался! Клик, клик!",0,0xE38217;
    stopnpctimer;
    set .number, 1;
    set .count, 1000;
    set .winner, 0;
    set $@kc,0;
    set $@kci,0;
    set $@kcid,rand(100000,999999);
    while ($@kc < 1100) {
    set $@kc,$@kc+1;
    set $@kci,$@kci+1;
    if ($@kci == 100 || ($@kci == 10 && $@kc > 600) || ($@kci == 1 && $@kc >= 950 && $@kc < 1050)) {
    if (.start == 0) goto L_suddenstop;
    announce $@kc,0;
    set $@kci,0;
    specialeffect 18;
    }
    sleep 10;
    }
    set $@kc,0;
    set .start, 0;
    set .players, .number+1;

    onfinish:
    sleep 1;
    if (.count == 949) goto onfinish3;
    if (getd(".timing_" + .number) == .count) goto L_winner1;
    set .number, .number-1;
    if (.number != 0) goto onfinish;
    set .number, 1;
    if (.winner == 1) goto onfinish3;
    set .count, .count-1;

    onfinish2:
    sleep 1;
    if (.count == 949) goto onfinish3;
    if (getd(".timing_" + .number) == .count) goto L_winner2;
    set .number, .number+1;
    if (.number != .players) goto onfinish2;
    set .number, .number-1;
    if (.winner == 1) goto onfinish3;
    set .count, .count-1;
    goto onfinish;

    L_winner1:
    if (getd(".timing_" + .number) == 1000) {
    announce ""+getd(".player_" + .number + "$")+" wins! (Prize x2 for stopping exactly on 1000)",0;
    charcommand "#item "+getd(".player_" + .number + "$")+" "+$itemid+" 2";
    } else {
    announce ""+getd(".player_" + .number + "$")+" wins!",0;
    charcommand "#item "+getd(".player_" + .number + "$")+" "+$itemid+" 1";
    }
    set .number, .number-1;
    set .winner, 1;
    goto onfinish;

    L_winner2:
    if (getd(".timing_" + .number) == 1000) {
    announce ""+getd(".player_" + .number + "$")+" wins! (Prize x2 for stopping exactly on 1000)",0;
    charcommand "#item "+getd(".player_" + .number + "$")+" "+$itemid+" 2";
    } else {
    announce ""+getd(".player_" + .number + "$")+" wins!",0;
    charcommand "#item "+getd(".player_" + .number + "$")+" "+$itemid+" 1";
    }
    set .number, .number+1;
    set .winner, 1;
    goto onfinish2;

    onfinish3:
    sleep 1;
    set .number, .players-1;
    while (.number != 0) {
    set getd(".timing_" + .number), 0;
    set .number, .number-1;
    }
    end;

    L_started:
    next;
    mes "[Stop The Clock]";
    mes "Эвент уже стартовал!";
    close;

    L_configure:
    next;
    mes "[Stop The Clock]";
    mes "Пожалуйста введите id приза.";
    input $itemid;
    next;
    mes "[Stop The Clock]";
    mes "Уверены что хотите ^FF0000"+getitemname($itemid)+"^000000 изменить приз эвента?";
    menu "Да",-,"Нет",L_no;
    next;
    mes "[Stop The Clock]";
    mes "Приз изменен на ^FF0000["+getitemname($itemid)+"]^000000.";
    next;
    goto L_GM;

    L_no:
    goto L_configure;

    L_stop:
    next;
    if (.start == 1) {
    mes "[Stop The Clock]";
    mes "Эвент стартовал, уверены что хотите остановить эвент?";
    menu "Да",-,"Нет",-;

    if (@menu == 1) {
    next;
    set .start, 0;
    mes "[Stop The Clock]";
    mes "Эвент остановлен";
    next;
    goto L_GM;
    } else {
    next;
    goto L_GM;
    }
    } else {
    mes "[Stop The Clock]";
    mes "Эвент уже начался!";
    close;
    }

    L_suddenstop:
    announce "[Stop The Clock] Эвент остановлен администрацией",0,0xE38217;
    end;
    }

    Вот на компе нашел. Автор не известен.

    • Upvote 1
  4. В данном примере показано, как сделать так, чтобы комната с чатом у NPC обновлялась и показывала информацию об онлайне на локации prontera.

    prontera,150,170,4    script    Chat_Room    651,{
    end;

    OnInit:
    OnTimer1000:
    delwaitingroom;
    waitingroom getmapusers("prontera")+" player"+( getmapusers("prontera") > 1 ? "s":"") +" in Prontera", 0;
    initnpctimer;
    }

    - Источник: http://ragnarok-server.ru

    • Upvote 2
  5. Всем доброго времени суток.

    Я являюсь представителем относительно новой Дизайн студии "Zx-Studio Project"

    Что мы можем вам предоставить:

    - Дизайн для вашего сайта

    - Анимированные и флеш баннеры

    - Логотипы

    Пример дизайна для Ragnarok - > Смотреть <

    - Портфолио

    - Расценки

    - Контакты

    image.png

    • Upvote 3
×
×
  • Создать...
Яндекс.Метрика