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 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= .@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