viewing paste Stat Seller | Athena

Posted on the | Last edited on
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
//########################
//Created by Nameless2you#
//########################
prontera,150,150,5      script  Stat Dealer     99,{
 
set .@item,7720; // Adjust the item id here
set .@name$,"[Stat Dealer]"; //Name of NPC in Dialogue can be changed here
 
mes .@name$;
mes "Good-day, I'm here to sell you Stat Points, each 10 Stat Points will cost you 1 "+getitemname(.@item)+" (id: "+.@item+")";
if(countitem(.@item) < 1) goto L_NoPay;
mes .@name$;
mes "How many "+getitemname(.@item)+" would you like to use?";
mes "You have ^00FF00"+countitem(.@item)+"^000000 "+getitemname(.@item)+"";
mes "Use '0' to cancel transaction.";
if(.@input == 0) close;
if(.@input > countitem(.@item)) goto L_NoPay;
mes .@name$;
mes "You would like to purchase "+.@input*10+" Status Points with "+.@input+" "+getitemname(.@item)+"";
switch(select("Yes:No")){
case 1:
                mes .@name$;
                mes "Transaction is completed, just the last few steps..";
        next;
                mes .@name$;
                mes "Transaction is completed, just the last few steps..";
                mes "..";
        next;
                mes .@name$;
                mes "Transaction is completed, just the last few steps..";
                mes "..";
                mes "...";
        next;
                mes .@name$;
                mes "Transaction is completed, just the last few steps..";
                mes "..";
                mes "...";
                mes "....";
        next;
        delitem .@item,.@input;
        set StatusPoint, StatusPoint + (.@input*10);
                mes .@name$;
                mes "Transaction is completed, just the last few steps..";
                mes "..";
                mes "...";
                mes "....";
                mes "Transaction has been completed.";
                mes "Have a nice day.";
        close;
case 2:
                mes .@name$;
                mes "Have a nice day.";
        close;
}
 
 
L_NoPay:
mes "I'm sorry but you don't have the required payment to proceed";
 
}
Viewed 530 times, submitted by Streusel.