viewing paste Lottery Scratch Ticket | 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 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141
//Lottery Scratch Tickets
//Version 1.1
//By icescope
 
prontera.gat,155,150,4  script  Lottery Scratch Tickets 85,{
        setarray @scratch_price,  717,//Phreeoni price: currently blue gemstones
                                  1000,//Dark Snake Lord price: currently star crumps
                                  985,//Baphomet price: currently Elunium
                                  969,//Golden Thiefbug price: currently Gold
                                  989,//Dark Lord price: currently Emperium Anvil
                                  rand(7073,7092); // Thanatos price: currenly a random item for godlike equipment
        setarray @scratch_amount, 10,
                                   5,
                                   3,
                                   2,
                                   1,
                                   1;
        setarray @scratch_sign$,  "Phr",
                                  "DSL",
                                  "Bap",
                                  "GTB",
                                  "DaL",
                                  "Tha";
        setarray @scratch_chance, 2650, // Phr: 26,5%
                                  2250, // DSL: 22,5%
                                  1850, // Bap: 18,5%
                                  1450, // GTB: 14,5%
                                  1050, // DaL: 10,5%
                                   750; // Tha:  7,5%
 
        for(set .@a, 0; .@a<getarraysize(@scratch_chance);set .@a, .@a+1)
        {
                for( set .@b, .@a+1; .@b<getarraysize(@scratch_chance); set .@b, .@b+1)
                {
                        set @scratch_chance[.@a], @scratch_chance[.@a]+@scratch_chance[.@b];
                }
        }
 
        cleararray @slot$, "", 9;
        set .@payment, 1000;
 
        function Slotbelegung;
        function checkRow;
        function restore;
 
        set @menu, 0;
 
        while(@menu!=1)
        {
                mes "[Lottery Scratch Tickets]";
                mes "Hi do want to buy Lottery Scratch Tickets?";
                mes "Only "+.@payment+" zeny";
                mes "The best price is an item for mixing godlike equip";
 
                if(select("Give me one ^^:What does i need to win:No I hold my money") > 1)
                {
                        if(@menu&1)
                        {              
                                mes "Ok have a lucky day";
                                close;
                        }
                        else
                        {
                                mes "You need 3 same Objekts in a slot";
                                mes "[Phr] ";
                                mes "[DSL] ";
                                mes "[Bap] ";
                                mes "[GTB] ";
                                mes "[DaL] ";
                                mes "[Tha] ";
                                next;
                        }
                }
        }
        setarray .@row1, 0, 1, 2;
        setarray .@row2, 0, 3, 6;
        setarray .@row3, 0, 4, 8;
        setarray .@row4, 1, 4, 7;
        setarray .@row5, 6, 4, 2;
        setarray .@row6, 2, 5, 8;
        setarray .@row7, 3, 4, 5;
        setarray .@row8, 6, 7, 8;
 
        set .@slots, 8;
 
        set zeny, zeny -.@payment;
        mes "Here my friend ^^";
        for(set .@a, 0;; set .@a, .@a+1)
        {
                mes "["+@slot$[0]+"] ["+@slot$[1]+"] ["+@slot$[2]+"]";
                mes "["+@slot$[3]+"] ["+@slot$[4]+"] ["+@slot$[5]+"]";
                mes "["+@slot$[6]+"] ["+@slot$[7]+"] ["+@slot$[8]+"]";
                next;
                if(.@a > 8) break;
                Slotbelegung(.@a);
        }
 
        for(set .@a, 0; .@a<.@slots;set .@a,.@a+1)
        {
                set .@win, .@win+checkRow(getd(".@row"+(.@a+1)+"[0]"),getd(".@row"+(.@a+1)+"[1]"),getd(".@row"+(.@a+1)+"[2]"));
        }
        if (.@win)
        {
                next;
                mes "You got your prizes now go.";
                close;
        }
        mes "Sorry, but you didn't win anything.";
        close;
 
function Slotbelegung {
        set .@rand, rand(1,10000);
        for(set .@b, 0; .@b<getarraysize(@scratch_sign$)-1;set .@b, .@b+1)
        {
                if(@scratch_chance[(getarraysize(@scratch_sign$)-1-.@b)] >= .@rand) break;
        }
        set @slot$[getarg(0)], @scratch_sign$[(getarraysize(@scratch_sign$)-1-.@b)];
}
 
function checkRow {
        function Win;
        if(@slot$[getarg(0)] == @slot$[getarg(1)] && @slot$[getarg(0)] == @slot$[getarg(2)])
        {
                Win(@slot$[getarg(0)]);
                return 1;
        }
        return 0;
}
 
function Win {
        for(set .@c,0; .@c<getarraysize(@scratch_sign$); set .@c,.@c+1)
        {
                if(getarg(0) == @scratch_sign$[.@c] )
                {
                        mes "You got 3 "+@scratch_sign$[.@c]+"!";
                        getitem @scratch_price[.@c],@scratch_amount[.@c];
                }
        }
}
 
}
Viewed 278 times, submitted by unknown.