Автор: FenixSSA: Дата: 01.26.2009

Написал НПЦ, чтобы мне помогал тестить разные настройки на сервере без лишних перезагрузок. Но конечно, все равно после перезагрузки сервера, или команды @reloadbattleconf настройки будут те которые прописаны в conf/battle. Поэтому советую менять настройку и в самом текстовом файле.

Как пользоваться.
Вообще ГМ поймет и так, но на всякий случай. Когда просит вписать конфиг надо вписывать значения из папки conf/battle. Типа Max_heal.

Рейты дропа и експы у меня на ходу не меняет. Значение меняет, а толку 0 *obstenku*

//=============== by FenixSSA (Master Judas)============

prontera,95,174,6    script    GM Helper    834,{  

set @a$,"[GM Helper]"; // Name NPC

if (getgmlevel()>=99) set @changepass_m$,"Пароль на допуск к GM Helper";

set @enterpass,0;

mes @a$;

mes "Я помошник ГМа, сейчас я проверю вашу личность...";

next;

if (getgmlevel() < 99) { 

        mes @a$; 

        mes "Вы не ГМ!"; 

    if ($pass_onfix==0) { close;} 

        mes "Введите пароль:"; 

        Input @pass$; 

        if (@pass$ != $pass$) { mes @a$; mes "Неправельный пароль!"; close; }

        set @enterpass,1;

        next;  }

mes @a$;

if (@enterpass==1) { mes "Вы ввели пароль, я могу помочь вам"; }

    else {

    mes "Вы ГМ, я могу помочь вам";

    if ($pass_onfix==0) mes "Сейчас использование пароля ^FF0065запрещено^000000";

    if ($pass_onfix==1) mes "Сейчас пароль: ^FF0065"+$pass$+"^000000";

    }

next;

switch (select("Скрыть\Открыть НПЦ","GM all skill","Battle Conf","Ввести команду",@changepass_m$)) {

    case 1:

        mes @a$;

        mes "После рестарта НПЦ снова будет виден!!!";

        mes "Какого НПЦ хотите вкл\выкл?";

        input @NPCNAME$;

        if (@NPCNAME$ == "GM Helper") { next; mes "Это не возможно!"; close; }

        next;

        switch (select("ON NPC","OFF NPC")) {

            case 1:

                mes @a$;

                mes "Загрузили... " + @NPCNAME$;

                enablenpc @NPCNAME$;

                close;

            case 2: 

                mes @a$;

                mes "Выгрузили... " + @NPCNAME$;

                disablenpc @NPCNAME$;

                close;    }

    case 2:

        mes @a$;

        mes "Могут ГМы использовать все скилы?";

        switch (select("Все скилы","Только профы")) {

        case 1:

            set @all_on,1;

            setbattleflag("gm_all_skill",@all_on);

            close;

        case 2:

            set @all_on,0;

            setbattleflag("gm_all_skill",@all_on);

            close; }

    case 3:

        mes @a$;

        mes "Выборочная настройка battleconf";

        switch (select("Просмотреть конфиг")) {

        case 1:

NO_Change:    mes @a$;

            mes "Впишите нужный конфиг";

            input @b_config$;

            next;

            mes "["+@b_config$+"="+getBattleFlag (@b_config$)+"]";

            mes "Хотите его изменить?";

            menu "Да",-,"Выбрать другой",NO_Change;

                mes @a$;

                mes "Сейчас конфиг такой: ";

                mes "["+@b_config$+" = "+getBattleFlag (@b_config$)+"]";

                input @ch_conf$;

                setbattleflag(@b_config$,@ch_conf$);

                mes "Теперь конфиг такой: ";

                mes "["+@b_config$+" = "+getBattleFlag (@b_config$)+"]";

                close; }

    case 4:

        mes @a$;

        mes "Введите команду";

        close2;

        input @atcommandinput$;

        atcommand @atcommandinput$;

        end;

    case 5:

        mes "--- --- ---";

        mes "Введите пароль или отключите его ввод для не ГМ аккаунтов";

        switch (select("Новый пароль:Установить ввод")) {

        case 1:

            mes @a$;

            mes "Введите новый пароль";

            input @inpass$;

            set $pass$,@inpass$;

            close;

        case 2:

            mes @a$;

            mes "Установите возможность ввода пароля не ГМ аккаунтам";

            if (select("Пароль ВВОДИТСЯ:Пароль НЕ ВВОДИТСЯ")==1) { set $pass_onfix,1; close; } else { set $pass_onfix,0; close; } 

        }

    }

}

Автор: : Дата: 01.01.1970