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 306 times, submitted by unknown.