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

Славик Панфилыч

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

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

  • Посещение

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

    3

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

  1. Имеется задумка, система 100 уровня.

    На этом уровне доступны свои возможности и преимущества. Лаба 4, Дополнительные квесты, шмот, и т.п.

    Имеется скрип:


    prontera,151,181,0 script 255ый Лвл 72,{
    if(BaseLevel == 255)goto _Zeny;
    if(BaseLevel == 254)goto str2;
    str2:
    mes "[Макс Левел]";
    mes "Чтобы стать Макс Лвлом Принеси 10 поринг карт и 10 кк зени";
    next;
    menu "Да",yes,"Нет",no;
    yes:
    mes"Окей";
    next;
    menu "Да",str,"Нет",no;
    str:
    if(countitem(4001) < 9)goto No_Zeny;
    if(Zeny < 10000000)goto No_Zeny;
    delitem 4001,10;
    atcommand strcharinfo(0) + ":@blvl 1";
    atcommand strcharinfo(0) + ":@zeny -10000000";
    set StatusPoint, StatusPoint + rand(1000,5000);
    announce strcharinfo(0) + " Получил 255ый Уровень!", bc_all|bc_yellow;
    mes "Спс !! Пока!!";
    close;

    no:
    mes" Как знаеш, пока!";
    close;

    _Zeny:
    mes"Нужен 254 левел";
    close;

    No_Zeny:

    mes"У тебя нету денег!\карт!";
    close;
    }

    НО! Это работает только на 255 лвл, а нужно чтобы работало на 99 лвл, помогите реализовать.

    Я думаю, что нужно лезть в сорцы?

    • Downvote 1
  2. Ну вот смотри:


    - script Ratesup -1,{
    OnInit:
    //Выставляем час.
    OnHour00:
    //======================
    set $@brate,7000;
    set $@jrate,7000;
    //Base exp
    setbattleflag("base_exp_rate",$@brate);
    atcommand "@reloadmobdb";
    //Job exp
    setbattleflag("job_exp_rate",$@jrate);
    atcommand "@reloadmobdb";
    //Сообщаем,что рейты поменялись.
    announce "Сейчас (job/bas)rates : 70х. Не Упустите свой шанс!",bc_all,0xFF6060;
    end;
    }

    - script ratesd -1,{
    OnInit:

    //Выставляем час.
    OnHour06:
    //=========================
    set $@brate,5000;
    set $@jrate,5000;
    //Base exp
    setbattleflag("base_exp_rate",$@brate);
    atcommand "@reloadmobdb";
    //Job exp
    setbattleflag("job_exp_rate",$@jrate);
    atcommand "@reloadmobdb";
    //Сообщаем,что рейты поменялись.
    announce "Сейчас (job/bas)rates : 50х ",bc_all,0xFF6060;
    end;
    }

    Тут перезагружается вся база монстров mob_db, mob_db2?

    OnClock06 killmonster "mapname","event label"; - Как это использовать?

  3. Итак, теперь появилась адская задумка.

    Вот условие:

    Время 6 утра - Наступил день, население Мидгарда радуется теплому солнышку, на сервере рейты 70х/70х

    Время 00(полночь) - Наружу выползла нечесть подземного мира Свартальвхейм, на сервере рейты 100х/100х. Будьте осторожны!

    Теперь как реализовать перезагрузку мобов второго условия, чтобы при наступлении 00 часов, появились кастум мобы. А при 6 утра изчезали?

  4. Всем привет, все знают, что в Renewal'e изменена механика игры:

    http://ro.doddlercon.com/wiki/index.php?title=Renewal_Changes

    А именно меня интересует ASPD - скорость атаки, BaseExp - получение меньше чем в JobExp. :blink:

    Но! Больше всего интересует aspd, потому что, на пеко у круза с мечом и щитом в руке aspd = 76-80; :angry:

    Так должно быть? Если нет, то скиньте src код, на изменение aspd атаки. :(

  5. Итак косяк:


    mes "[Вопросы]";
    mes "Как называется наш сервер";
    input .@otvet$;
    if(.@otvet$ != "RebirthRo") close;
    set otvet,otvet+1;
    next;

    mes "[Вопросы]";
    mes "Какие программы нельзя использовать на сервере? (Ответ с большой буквы)";
    input .@otvet$;
    if(.@otvet$ != "Кликеры") close;
    set otvet,otvet+1;
    next;

    mes "[Вопросы]";
    mes "Как называется новая Столица Мира? (Ответ с большой буквы)";
    input .@otvet$;
    if(.@otvet$ != "Welgaia") close;
    set otvet,otvet+1;
    next;

    mes "[Вопросы]";
    mes "Какой компанией создана игра Рагнарок? (Ответ с большой буквы)";
    input .@otvet$;
    if(.@otvet$ != "Gravity") close;
    set otvet,otvet+1;
    next;

    mes "[Вопросы]";
    mes "В середине какого года создана игра Рагнарок?";
    input .@otvet$;
    if(.@otvet$ != "2002") close;
    set otvet,otvet+1;
    next;

    if(otvet==1){
    mes "У вас 1 правильный ответ!";
    close;
    }
    if(otvet==2){
    mes "У вас 2 правильных ответов!";
    close;
    }
    if(otvet==3){
    mes "У вас 3 правильных ответов!";
    close;
    }
    if(otvet==4){
    mes "У вас 4 правильного ответа!";
    close;
    }
    if(otvet==5){
    mes "У вас 5 правильных ответов!";
    close;
    }

    По идеи проверка идет на количество правильных ответов, но после прохождения теста не выводит информацию.

    Так же и при 5-ти правильных ответах не выводит информацию о том, что У вас 5 правильных ответов

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