viewing paste Unknown #15846 | 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 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
prontera,142,175,5      script  Cash Converter  116,{
    set .@name$,"[^FF0000Converter^000000]";
    mes .@name$;
    mes "Hello.";
    mes "What would you like to do?";
 
    next;
    switch( select("Cash to POD","POD to Cash") ) {
 
        case 1:
 
            mes .@name$;
 
            mes "How many POD(s) do you want?";
 
            input .@num;
 
            next;
 
 
 
            if( .@num <= 0 || #CASHPOINTS < .@num ) {
 
                mes .@name$;
 
                mes "Sorry, you don't have enough cashpoints!";
 
                close;
 
            }
 
            mes .@name$;
 
            mes "This will cost ^FF0000" +(.@num )+ " cashpoints^000000.";
 
            next;
 
 
 
            if( select("Proceed:Nevermind") -1 ) {
 
                mes .@name$;
 
                mes "Goodbye!";
 
                close;
 
            }
 
            set #CASHPOINTS, #CASHPOINTS - .@num;
 
            dispbottom "Lost: " +(.@num)+ " cashpoints. Total: " +#CASHPOINTS+" cashpoints.";
 
            getitem 7179, .@num;
 
            break;
 
   
 
        case 2:
 
            mes .@name$;
 
            mes "How many POD(s) will you give?";
 
            input .@num;
 
            next;
 
 
 
            if( .@num <= 0 || countitem(7179) < .@num ) {
 
                mes .@name$;
 
                mes "Sorry, you don't have enough POD!";
 
                close;
 
            }
 
            mes .@name$;
 
            mes "I can give you ^FF0000" +(.@num)+ " cashpoints^000000 for this.";
 
            next;
 
 
 
            if( select("Proceed:Nevermind") -1 ) {
 
                mes .@name$;
 
                mes "Goodbye!";
 
                close;
 
            }
 
            set #CASHPOINTS, #CASHPOINTS + .@num;
 
            dispbottom "Gained: " +(.@num)+ " cashpoints. Total: " +#CASHPOINTS+" cashpoints.";
 
            delitem 7179,.@num;
 
    }
 
    close;
 
}
Viewed 561 times, submitted by unknown.