viewing paste reserve | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87
//Reserve NPC by teamcars of teamcars1broglobal@blogspot.com
prontera,147,162,5  script  Reserve Girl    891,{
 
    mes "[Reserve Girl]";
    mes "I am a Reserve Girl.";
    mes "Buy stat points: ^0000FF2,500^000000z";
    mes "Reserve stat points";
    mes "Use Reserve stat points";
    mes "Please select the service you want:";
    next;
    menu "^FF3355Buy stat points",Lr0,"Reserve stat points",Lr1,"Use Reserve stat points^000000",Lr2,"Quit",LrEnd;
    
    Lr0:
        set @bsavail,(Zeny/2500);
        mes "[Reserve Girl]";
        mes "^0000FF" + strcharinfo(0) + "^000000";
        mes "Available Stat Points to buy: ^0000FF" + @bsavail + "^000000";
        mes "How Many Stat Points you want to buy?";
        input @BuyST;
        set @ttal,(@BuyST*2500);
        if (Zeny < @ttal) goto rNeedZenys;
        mes "That will be ^0000FF" + @ttal + "^000000z!";
        next;
        mes "Do you still wanna buy stat?";
        menu "^FF3355Buy",Lrsyes,"Ive change my mind^000000",Lrsno;
        Lrsyes:
        set StatusPoint,StatusPoint+@BuyST;
        set Zeny,Zeny-@ttal;
        set @Cres,StatusPoint;
        set #totalbuy,#totalbuy+@BuyST;
        goto STdis2;
        close;
        Lrsno:
        mes "Thanks you ^0000FF" + strcharinfo(0) + "^000000!";
        mes "Come Again!";
        close;
    Lr1:
        mes "[Reserve Girl]";
        if (StatusPoint <= 0) goto rNstat;
        set @Cres,StatusPoint;
        mes "Alright, How Many Stat Point you want to Reserve!";
        mes "Your Available Stat ^0000FF" + @Cres + "^000000! ";
        input @ResST;
        if (@ResST > StatusPoint) goto rNstat;
        set StatusPoint,StatusPoint-@ResST;
        set #STres,#STres+@ResST;
        set @Cres,StatusPoint;
        goto STdis1;
        close;
    Lr2:
        mes "[Reserve Girl]";
        if (#STres == 0) goto rNores;
        mes "Alright, How Many Reserve Stat Point you want to use!";
        mes "Your Available Reserve Stat ^0000FF" + #STres + "^000000! ";
        input @uResST;
        if (@uResST > #STres) goto rNores;
        set #STres,#STres-@uResST;
        set StatusPoint,StatusPoint+@uResST;
        set @Cres,StatusPoint;
        goto STdis1;
        close;
        
    STdis1:
        mes "Your Available Stat ^0000FF" + @Cres + "^000000! ";
        mes "Your Available Reserve Stat ^0000FF" + #STres + "^000000! ";
        close;
    STdis2:
        mes "Your Available Stat ^0000FF" + @Cres + "^000000! ";
        close;
        rNeedZenys:
            mes "Sorry, you don't have enough Zeny.";
            close;
        rNstat:
            mes "Sorry, you don't have stat point that can be reserve.";
            close;
        rNores:
            mes "Sorry, you don't have reserve stat point.";
            close;
    LrEnd:
        close
 
 
    OnInit:
    waitingroom "Reserve NPC",0;
    end;
 
}
Viewed 633 times, submitted by Guest.