Автор: ????: Дата: 02.11.2009

Ну вот у себя на серве буду юзать =) Типа на 255 лвл дают бонус +5к к статам и рестара статов подправил типа он если сбрасывает бонус возращаеться, спасибо Talents что немного помог =)
Бонус!

prontera,147,193,5    script    Бонус стат    743,{

if($Bonus == 1) goto L_po;

mes "Привет я могу тебе дать бонус 5к стат поинтов";

mes "Тебе нужен 255 уровень!";

mes "Получить бонус ты сможеш один раз!";

menu "Давай бонус",-,"Уйти",L_q;

if(BaseLevel < 255) goto mal;

atcommand "@stpoint +5000";

set $Bonus, 1;

close;

L_po:

mes "Ты уже получал бонус!";

close;

mal:

mes "Ты ещё не 255 уровень!";

close;

L_q:

close;

}

//Reset NPC for Athena by Script&DB Team 

prontera,150,193,4    script    Reset Girl    124,{



    mes "Если у вас был бонус он не пропадёт!";

    next;

    menu "^FF3355Reset Skills",L0,"Reset Stats",L1,"Reset Both^000000",L2,"Quit",LEnd;

    

    L0:

        mes "[Reset Girl]";

        if (Zeny < 5000) goto NeedZenys;

        mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";

        set Zeny,zeny-5000;

        ResetSkill;

        close;

    L1:

        mes "[Reset Girl]";

        if (Zeny < 5000) goto NeedZenys;

        mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";

        set Zeny,zeny-5000;

        ResetStatus;

        if($Bonus == 1) goto L_po;

        close;

    L2:

        mes "[Reset Girl]";

        if (Zeny < 9000) goto NeedZenys;

        mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";

        set Zeny,zeny-9000;

        ResetSkill;

        ResetStatus;

        if($Bonus == 1) goto L_po;

        close;

    L_po:

        atcommand "@skpoint +5000";

        close;



        NeedZenys:

            mes "Sorry, you don't have enough Zeny.";

            close;

    LEnd:

        close;    

}

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