viewing paste KENO Lotto | Athena

Posted on the
Copied to clipboard 
  1. prontera,166,198,5	script	Klotterygenerator	817,{
  2. OnInit:
  3. waitingroom "Let's Play Keno Lotto",0;
  4. set $KENO_TicketPrice,10; // TICKET COST
  5. set $KENO_Prize_Money,30000000; // JACKPOT AMOUNT
  6. if ($LKID == 0) goto KENO_GenID;
  7. end;
  8.  
  9. //Modify for own time
  10. //add any other HOURS
  11. 	OnClock0000:
  12. 	OnClock0100:
  13. 	OnClock0200:
  14. 	OnClock0300:
  15. 	OnClock0400:
  16. 	OnClock0500:
  17. 	OnClock0600:
  18. 	OnClock0700:
  19. 	OnClock0800:
  20. 	OnClock0900:
  21. 	OnClock1000:
  22. 	OnClock1100:
  23. 	OnClock1200:
  24. 	OnClock1300:
  25. 	OnClock1400:
  26. 	OnClock1500:
  27. 	OnClock1600:
  28. 	OnClock1700:
  29. 	OnClock1800:
  30. 	OnClock1900:
  31. 	OnClock2000:
  32. 	OnClock2100:
  33. 	OnClock2200:
  34. 	OnClock2300:
  35. //-------------------
  36. // CHECKS IF LOTTERY IS RIGGED
  37. if ($KENO_Rigged == 1) goto KENO_Rigged_Draw;
  38. // GENERATES RANDOM NUMBERS 1-80
  39. KPick1:
  40. set $LkW1,rand (1,80);
  41.  
  42. KPick2:
  43. set $LkW2,rand (1,80);
  44. if ($LkW2 == $LkW1) goto KPick2;
  45.  
  46. KPick3:
  47. set $LkW3,rand (1,80);
  48. if ($LkW3 == $LkW2) goto KPick3;
  49. if ($LkW3 == $LkW1) goto KPick3;
  50.  
  51. KPick4:
  52. set $LkW4,rand (1,80);
  53. if ($LkW4 == $LkW2) goto KPick4;
  54. if ($LkW4 == $LkW1) goto KPick4;
  55. if ($LkW4 == $LkW3) goto KPick4;
  56.  
  57. KPick5:
  58. set $LkW5,rand (1,80);
  59. if ($LkW5 == $LkW1) goto KPick5;
  60. if ($LkW5 == $LkW2) goto KPick5;
  61. if ($LkW5 == $LkW3) goto KPick5;
  62. if ($LkW5 == $LkW4) goto KPick5;
  63.  
  64. KPick6:
  65. set $LkW6,rand (1,80);
  66. if ($LkW6 == $LkW1) goto KPick6;
  67. if ($LkW6 == $LkW2) goto KPick6;
  68. if ($LkW6 == $LkW3) goto KPick6;
  69. if ($LkW6 == $LkW4) goto KPick6;
  70. if ($LkW6 == $LkW5) goto KPick6;
  71.  
  72. KPick7:
  73. set $LkW7,rand (1,80);
  74. if ($LkW7 == $LkW1) goto KPick7;
  75. if ($LkW7 == $LkW2) goto KPick7;
  76. if ($LkW7 == $LkW3) goto KPick7;
  77. if ($LkW7 == $LkW4) goto KPick7;
  78. if ($LkW7 == $LkW5) goto KPick7;
  79. if ($LkW7 == $LkW6) goto KPick7;
  80.  
  81. KPick8:
  82. set $LkW8,rand (1,80);
  83. if ($LkW8 == $LkW1) goto KPick8;
  84. if ($LkW8 == $LkW2) goto KPick8;
  85. if ($LkW8 == $LkW3) goto KPick8;
  86. if ($LkW8 == $LkW4) goto KPick8;
  87. if ($LkW8 == $LkW5) goto KPick8;
  88. if ($LkW8 == $LkW6) goto KPick8;
  89. if ($LkW8 == $LkW7) goto KPick8;
  90.  
  91. KPick9:
  92. set $LkW9,rand (1,80);
  93. if ($LkW9 == $LkW1) goto KPick9;
  94. if ($LkW9 == $LkW2) goto KPick9;
  95. if ($LkW9 == $LkW3) goto KPick9;
  96. if ($LkW9 == $LkW4) goto KPick9;
  97. if ($LkW9 == $LkW5) goto KPick9;
  98. if ($LkW9 == $LkW6) goto KPick9;
  99. if ($LkW9 == $LkW7) goto KPick9;
  100. if ($LkW9 == $LkW8) goto KPick9;
  101.  
  102. KPick10:
  103. set $LkW10,rand (1,80);
  104. if ($LkW10 == $LkW1) goto KPick10;
  105. if ($LkW10 == $LkW2) goto KPick10;
  106. if ($LkW10 == $LkW3) goto KPick10;
  107. if ($LkW10 == $LkW4) goto KPick10;
  108. if ($LkW10 == $LkW5) goto KPick10;
  109. if ($LkW10 == $LkW6) goto KPick10;
  110. if ($LkW10 == $LkW7) goto KPick10;
  111. if ($LkW10 == $LkW8) goto KPick10;
  112. if ($LkW10 == $LkW9) goto KPick10;
  113.  
  114. KPick11:
  115. set $LkW11,rand (1,80);
  116. if ($LkW11 == $LkW1) goto KPick11;
  117. if ($LkW11 == $LkW2) goto KPick11;
  118. if ($LkW11 == $LkW3) goto KPick11;
  119. if ($LkW11 == $LkW4) goto KPick11;
  120. if ($LkW11 == $LkW5) goto KPick11;
  121. if ($LkW11 == $LkW6) goto KPick11;
  122. if ($LkW11 == $LkW7) goto KPick11;
  123. if ($LkW11 == $LkW8) goto KPick11;
  124. if ($LkW11 == $LkW9) goto KPick11;
  125. if ($LkW11 == $LkW10) goto KPick11;
  126.  
  127. KPick12:
  128. set $LkW12,rand (1,80);
  129. if ($LkW12 == $LkW1) goto KPick12;
  130. if ($LkW12 == $LkW2) goto KPick12;
  131. if ($LkW12 == $LkW3) goto KPick12;
  132. if ($LkW12 == $LkW4) goto KPick12;
  133. if ($LkW12 == $LkW5) goto KPick12;
  134. if ($LkW12 == $LkW6) goto KPick12;
  135. if ($LkW12 == $LkW7) goto KPick12;
  136. if ($LkW12 == $LkW8) goto KPick12;
  137. if ($LkW12 == $LkW9) goto KPick12;
  138. if ($LkW12 == $LkW10) goto KPick12;
  139. if ($LkW12 == $LkW11) goto KPick12;
  140.  
  141. KPick13:
  142. set $LkW13,rand (1,80);
  143. if ($LkW13 == $LkW1) goto KPick13;
  144. if ($LkW13 == $LkW2) goto KPick13;
  145. if ($LkW13 == $LkW3) goto KPick13;
  146. if ($LkW13 == $LkW4) goto KPick13;
  147. if ($LkW13 == $LkW5) goto KPick13;
  148. if ($LkW13 == $LkW6) goto KPick13;
  149. if ($LkW13 == $LkW7) goto KPick13;
  150. if ($LkW13 == $LkW8) goto KPick13;
  151. if ($LkW13 == $LkW9) goto KPick13;
  152. if ($LkW13 == $LkW10) goto KPick13;
  153. if ($LkW13 == $LkW11) goto KPick13;
  154. if ($LkW13 == $LkW12) goto KPick13;
  155.  
  156. KPick14:
  157. set $LkW14,rand (1,80);
  158. if ($LkW14 == $LkW1) goto KPick14;
  159. if ($LkW14 == $LkW2) goto KPick14;
  160. if ($LkW14 == $LkW3) goto KPick14;
  161. if ($LkW14 == $LkW4) goto KPick14;
  162. if ($LkW14 == $LkW5) goto KPick14;
  163. if ($LkW14 == $LkW6) goto KPick14;
  164. if ($LkW14 == $LkW7) goto KPick14;
  165. if ($LkW14 == $LkW8) goto KPick14;
  166. if ($LkW14 == $LkW9) goto KPick14;
  167. if ($LkW14 == $LkW10) goto KPick14;
  168. if ($LkW14 == $LkW11) goto KPick14;
  169. if ($LkW14 == $LkW12) goto KPick14;
  170. if ($LkW14 == $LkW13) goto KPick14;
  171.  
  172. KPick15:
  173. set $LkW15,rand (1,80);
  174. if ($LkW15 == $LkW1) goto KPick15;
  175. if ($LkW15 == $LkW2) goto KPick15;
  176. if ($LkW15 == $LkW3) goto KPick15;
  177. if ($LkW15 == $LkW4) goto KPick15;
  178. if ($LkW15 == $LkW5) goto KPick15;
  179. if ($LkW15 == $LkW6) goto KPick15;
  180. if ($LkW15 == $LkW7) goto KPick15;
  181. if ($LkW15 == $LkW8) goto KPick15;
  182. if ($LkW15 == $LkW9) goto KPick15;
  183. if ($LkW15 == $LkW10) goto KPick15;
  184. if ($LkW15 == $LkW11) goto KPick15;
  185. if ($LkW15 == $LkW12) goto KPick15;
  186. if ($LkW15 == $LkW13) goto KPick15;
  187. if ($LkW15 == $LkW14) goto KPick15;
  188.  
  189. KPick16:
  190. set $LkW16,rand (1,80);
  191. if ($LkW16 == $LkW1) goto KPick16;
  192. if ($LkW16 == $LkW2) goto KPick16;
  193. if ($LkW16 == $LkW3) goto KPick16;
  194. if ($LkW16 == $LkW4) goto KPick16;
  195. if ($LkW16 == $LkW5) goto KPick16;
  196. if ($LkW16 == $LkW6) goto KPick16;
  197. if ($LkW16 == $LkW7) goto KPick16;
  198. if ($LkW16 == $LkW8) goto KPick16;
  199. if ($LkW16 == $LkW9) goto KPick16;
  200. if ($LkW16 == $LkW10) goto KPick16;
  201. if ($LkW16 == $LkW11) goto KPick16;
  202. if ($LkW16 == $LkW12) goto KPick16;
  203. if ($LkW16 == $LkW13) goto KPick16;
  204. if ($LkW16 == $LkW14) goto KPick16;
  205. if ($LkW16 == $LkW15) goto KPick16;
  206.  
  207. KPick17:
  208. set $LkW17,rand (1,80);
  209. if ($LkW17 == $LkW1) goto KPick17;
  210. if ($LkW17 == $LkW2) goto KPick17;
  211. if ($LkW17 == $LkW3) goto KPick17;
  212. if ($LkW17 == $LkW4) goto KPick17;
  213. if ($LkW17 == $LkW5) goto KPick17;
  214. if ($LkW17 == $LkW6) goto KPick17;
  215. if ($LkW17 == $LkW7) goto KPick17;
  216. if ($LkW17 == $LkW8) goto KPick17;
  217. if ($LkW17 == $LkW9) goto KPick17;
  218. if ($LkW17 == $LkW10) goto KPick17;
  219. if ($LkW17 == $LkW11) goto KPick17;
  220. if ($LkW17 == $LkW12) goto KPick17;
  221. if ($LkW17 == $LkW13) goto KPick17;
  222. if ($LkW17 == $LkW14) goto KPick17;
  223. if ($LkW17 == $LkW15) goto KPick17;
  224. if ($LkW17 == $LkW16) goto KPick17;
  225.  
  226. KPick18:
  227. set $LkW18,rand (1,80);
  228. if ($LkW18 == $LkW1) goto KPick18;
  229. if ($LkW18== $LkW2) goto KPick18;
  230. if ($LkW18== $LkW3) goto KPick18;
  231. if ($LkW18== $LkW4) goto KPick18;
  232. if ($LkW18== $LkW5) goto KPick18;
  233. if ($LkW18== $LkW6) goto KPick18;
  234. if ($LkW18== $LkW7) goto KPick18;
  235. if ($LkW18== $LkW8) goto KPick18;
  236. if ($LkW18== $LkW9) goto KPick18;
  237. if ($LkW18== $LkW10) goto KPick18;
  238. if ($LkW18== $LkW11) goto KPick18;
  239. if ($LkW18== $LkW12) goto KPick18;
  240. if ($LkW18== $LkW13) goto KPick18;
  241. if ($LkW18== $LkW14) goto KPick18;
  242. if ($LkW18== $LkW15) goto KPick18;
  243. if ($LkW18== $LkW16) goto KPick18;
  244. if ($LkW18== $LkW17) goto KPick18;
  245.  
  246. KPick19:
  247. set $LkW19,rand (1,80);
  248. if ($LkW19 == $LkW1) goto KPick19;
  249. if ($LkW19== $LkW2) goto KPick19;
  250. if ($LkW19== $LkW3) goto KPick19;
  251. if ($LkW19== $LkW4) goto KPick19;
  252. if ($LkW19== $LkW5) goto KPick19;
  253. if ($LkW19== $LkW6) goto KPick19;
  254. if ($LkW19== $LkW7) goto KPick19;
  255. if ($LkW19== $LkW8) goto KPick19;
  256. if ($LkW19== $LkW9) goto KPick19;
  257. if ($LkW19== $LkW10) goto KPick19;
  258. if ($LkW19== $LkW11) goto KPick19;
  259. if ($LkW19== $LkW12) goto KPick19;
  260. if ($LkW19== $LkW13) goto KPick19;
  261. if ($LkW19== $LkW14) goto KPick19;
  262. if ($LkW19== $LkW15) goto KPick19;
  263. if ($LkW19== $LkW16) goto KPick19;
  264. if ($LkW19== $LkW17) goto KPick19;
  265. if ($LkW19== $LkW18) goto KPick19;
  266.  
  267. KPick20:
  268. set $LkW20,rand (1,80);
  269. if ($LkW20 == $LkW1) goto KPick20;
  270. if ($LkW20== $LkW2) goto KPick20;
  271. if ($LkW20== $LkW3) goto KPick20;
  272. if ($LkW20== $LkW4) goto KPick20;
  273. if ($LkW20== $LkW5) goto KPick20;
  274. if ($LkW20== $LkW6) goto KPick20;
  275. if ($LkW20== $LkW7) goto KPick20;
  276. if ($LkW20== $LkW8) goto KPick20;
  277. if ($LkW20== $LkW9) goto KPick20;
  278. if ($LkW20== $LkW10) goto KPick20;
  279. if ($LkW20== $LkW11) goto KPick20;
  280. if ($LkW20== $LkW12) goto KPick20;
  281. if ($LkW20== $LkW13) goto KPick20;
  282. if ($LkW20== $LkW14) goto KPick20;
  283. if ($LkW20== $LkW15) goto KPick20;
  284. if ($LkW20== $LkW16) goto KPick20;
  285. if ($LkW20== $LkW17) goto KPick20;
  286. if ($LkW20== $LkW18) goto KPick20;
  287. if ($LkW20== $LkW19) goto KPick20;
  288.  
  289.  
  290. // BROADCASTS DRAW
  291. KENO_Broadcast:
  292. announce "Keno Teller: Welcome to KENO Lotto draw!",8;
  293. announce "The numbers are as follows: [" + $LkW1 + "] [" + $LkW2 + "] [" + $LkW3 + "] [" + $LkW4 + "] [" + $LkW5 + "]",8;
  294. announce "The numbers are as follows: [" + $LkW6 + "] [" + $LkW7 + "] [" + $LkW8 + "] [" + $LkW9 + "] [" + $LkW10 + "]",8;
  295. announce "The numbers are as follows: [" + $LkW11 + "] [" + $LkW12 + "] [" + $LkW13 + "] [" + $LkW14 + "] [" + $LkW15 + "]",8;
  296. announce "The numbers are as follows: [" + $LkW16 + "] [" + $LkW17 + "]  [" + $LkW18 + "] [" + $LkW19 + "] [" + $LkW20 + "]",8;
  297. announce "Congratulations to the winners of " + gettimestr("%H:%M",21) + " Keno Draw ",8;
  298.  
  299. // GENERATES DRAW ID CODE
  300. KENO_GenID:
  301. set $LKID2,$LKID;
  302. // setS TOMORROW'S ID NUMBER
  303. set $LKID,rand (100000,999999);
  304. end;
  305.  
  306. // setS DRAW TO RIGGED NUMBERS
  307. KENO_Rigged_Draw:
  308. set $LkW1,$LkR1;
  309. set $LkW2,$LkR2;
  310. set $LkW3,$LkR3;
  311. set $LkW4,$LkR4;
  312. set $LkW5,$LkR5;
  313. set $LkW6,$LkR6;
  314. set $LkW7,$LkR7;
  315. set $LkW8,$LkR8;
  316. set $LkW9,$LkR9;
  317. set $LkW10,$LkR10;
  318. set $LkW11,$LkR11;
  319. set $LkW12,$LkR12;
  320. set $LkW13,$LkR13;
  321. set $LkW14,$LkR14;
  322. set $LkW15,$LkR15;
  323. set $LkW16,$LkR16;
  324. set $LkW17,$LkR17;
  325. set $LkW18,$LkR18;
  326. set $LkW19,$LkR19;
  327. set $LkW20,$LkR20;
  328. set $KENO_Rigged,0;
  329. goto KENO_Broadcast;
  330. }
  331.  
  332. // BEGIN LOTTERY SCRIPT
  333. -	script	klottery	76,{
  334. KENO_Begin:
  335. mes "[^008800Keno Teller^000000]";
  336. mes "Winning KENO Lotto Numbers (^00FF00"+$LKID2+"^000000):";
  337. mes "^FF0000[" + $LkW1 + "] [" + $LkW2 + "] [" + $LkW3 + "] [" + $LkW4 + "] [" + $LkW5 + "]^000000";
  338. mes "^0000FF[" + $LkW6 + "] [" + $LkW7 + "] [" + $LkW8 + "] [" + $LkW9 + "] [" + $LkW10 + "]^000000";
  339. mes "^FF0000[" + $LkW11 + "] [" + $LkW12 + "] [" + $LkW13 + "] [" + $LkW14 + "] [" + $LkW15 + "]^000000";
  340. mes "^0000FF[" + $LkW16 + "] [" + $LkW17 + "] [" + $LkW18 + "] [" + $LkW19 + "] [" + $LkW20 + "]^000000";
  341. if ($LKID > 99999) mes "Your Ticket ("+#LkID+"):";
  342. if ($LKID > 99999) mes "^FF0000[" + #LkW1 + "] [" + #LkW2 + "] [" + #LkW3 + "] [" + #LkW4 + "] [" + #LkW5 + "]^000000";
  343. mes "^0000FF[" + #LkW6 + "] [" + #LkW7 + "] [" + #LkW8 + "] [" + #LkW9 + "] [" + #LkW10 + "]^000000";
  344. mes "Next Draw-ID: ^FF0000" + $LKID + "^000000.";
  345. next;
  346. if (getgmlevel() > 90) goto KENO_GM;
  347. menu "Claim Prize",KENO_Claim,"Buy New Ticket",KENO_Buy,"Cancel",KENO_Cancel;
  348.  
  349. // PURCHASE TICKET
  350. KENO_Buy:
  351. if (#LkID == $LKID && #LkW1 != 0) goto KENO_DoubleTicket;
  352. mes "[^008800Keno Teller^000000]";
  353. mes "Tickets cost ^0000FF" + $KENO_TicketPrice + "z^000000.";
  354. mes "The Jackpot is ^FF0000" + $KENO_Prize_Money + "z^000000.";
  355. next;
  356. menu "Buy Ticket",-,"Cancel",KENO_Cancel;
  357. if (Zeny < $KENO_TicketPrice) goto KENO_NoZeny;
  358. set Zeny,Zeny-$KENO_TicketPrice;
  359. mes "[^008800Keno Teller^000000]";
  360. mes "Would you like your numbers hand Picked or computer generated?";
  361. next;
  362. menu "Computer Generated",KENO_ComputerGen,"Hand Picked",KENO_HandPick,"Renew Ticket",KENO_Renew;
  363.  
  364. // RENEW LAST TICKET
  365. KENO_Renew:
  366. if ($LKID < 99999) goto KENO_Invalid;
  367. set #LkID,$LKID;
  368. goto KENO_Confirm2;
  369.  
  370. KENO_ComputerGen:
  371. // SELECTS RANDOM NUMBERS
  372. set @Lk1,0;
  373. set @Lk2,0;
  374. set @Lk3,0;
  375. set @Lk4,0;
  376. set @Lk5,0;
  377. set @Lk6,0;
  378. set @Lk7,0;
  379. set @Lk8,0;
  380. set @Lk9,0;
  381. set @Lk10,0;
  382.  
  383. KPick1:
  384. set @Lk1,rand (1,80);
  385.  
  386. KPick2:
  387. set @Lk2,rand (1,80);
  388. if (@Lk2 == @Lk1) goto KPick2;
  389.  
  390. KPick3:
  391. set @Lk3,rand (1,80);
  392. if (@Lk3 == @Lk2) goto KPick3;
  393. if (@Lk3 == @Lk1) goto KPick3;
  394.  
  395. KPick4:
  396. set @Lk4,rand (1,80);
  397. if (@Lk4 == @Lk2) goto KPick4;
  398. if (@Lk4 == @Lk1) goto KPick4;
  399. if (@Lk4 == @Lk3) goto KPick4;
  400.  
  401. KPick5:
  402. set @Lk5,rand (1,80);
  403. if (@Lk5 == @Lk1) goto KPick5;
  404. if (@Lk5 == @Lk2) goto KPick5;
  405. if (@Lk5 == @Lk3) goto KPick5;
  406. if (@Lk5 == @Lk4) goto KPick5;
  407.  
  408. KPick6:
  409. set @Lk6,rand (1,80);
  410. if (@Lk6 == @Lk1) goto KPick6;
  411. if (@Lk6 == @Lk2) goto KPick6;
  412. if (@Lk6 == @Lk3) goto KPick6;
  413. if (@Lk6 == @Lk4) goto KPick6;
  414. if (@Lk6 == @Lk5) goto KPick6;
  415.  
  416. KPick7:
  417. set @Lk7,rand (1,80);
  418. if (@Lk7 == @Lk1) goto KPick7;
  419. if (@Lk7 == @Lk2) goto KPick7;
  420. if (@Lk7 == @Lk3) goto KPick7;
  421. if (@Lk7 == @Lk4) goto KPick7;
  422. if (@Lk7 == @Lk5) goto KPick7;
  423. if (@Lk7 == @Lk6) goto KPick7;
  424.  
  425. KPick8:
  426. set @Lk8,rand (1,80);
  427. if (@Lk8 == @Lk1) goto KPick8;
  428. if (@Lk8 == @Lk2) goto KPick8;
  429. if (@Lk8 == @Lk3) goto KPick8;
  430. if (@Lk8 == @Lk4) goto KPick8;
  431. if (@Lk8 == @Lk5) goto KPick8;
  432. if (@Lk8 == @Lk6) goto KPick8;
  433. if (@Lk8 == @Lk7) goto KPick8;
  434.  
  435. KPick9:
  436. set @Lk9,rand (1,80);
  437. if (@Lk9 == @Lk1) goto KPick9;
  438. if (@Lk9 == @Lk2) goto KPick9;
  439. if (@Lk9 == @Lk3) goto KPick9;
  440. if (@Lk9 == @Lk4) goto KPick9;
  441. if (@Lk9 == @Lk5) goto KPick9;
  442. if (@Lk9 == @Lk6) goto KPick9;
  443. if (@Lk9 == @Lk7) goto KPick9;
  444. if (@Lk9 == @Lk8) goto KPick9;
  445.  
  446. KPick10:
  447. set @Lk10,rand (1,80);
  448. if (@Lk10 == @Lk1) goto KPick10;
  449. if (@Lk10 == @Lk2) goto KPick10;
  450. if (@Lk10 == @Lk3) goto KPick10;
  451. if (@Lk10 == @Lk4) goto KPick10;
  452. if (@Lk10 == @Lk5) goto KPick10;
  453. if (@Lk10 == @Lk6) goto KPick10;
  454. if (@Lk10 == @Lk7) goto KPick10;
  455. if (@Lk10 == @Lk8) goto KPick10;
  456. if (@Lk10 == @Lk9) goto KPick10;
  457.  
  458. mes "[^008800Keno Teller^000000]";
  459. mes "The computer has selected the following numbers:";
  460. mes "^FF0000" + @Lk1 + " " + @Lk2 + " " + @Lk3 + " " + @Lk4 + " " + @Lk5 + "^000000";
  461. mes "^0000FF" + @Lk6 + " " + @Lk7 + " " + @Lk8 + " " + @Lk9 + " " + @Lk10 + "^000000";
  462. next;
  463. menu "Confirm",KENO_Confirm,"Re-Generate",KENO_ComputerGen;
  464.  
  465. // HAND Pick LOTTERY NUMBERS
  466. KENO_HandPick:
  467. mes "[^008800Keno Teller^000000]";
  468. mes "Please Pick your numbers (1-80):";
  469. set @Lk1,0;
  470. set @Lk2,0;
  471. set @Lk3,0;
  472. set @Lk4,0;
  473. set @Lk5,0;
  474. set @Lk6,0;
  475. set @Lk7,0;
  476. set @Lk8,0;
  477. set @Lk9,0;
  478. set @Lk10,0;
  479.  
  480. Kninput1:
  481. input @Lk1;
  482. if (@Lk1 < 1 || @Lk1 > 80) goto Kninput1;
  483. mes @Lk1;
  484.  
  485.  
  486. Kninput2:
  487. input @Lk2;
  488. if (@Lk2 < 1 || @Lk2 > 80) goto Kninput2;
  489. if (@Lk2 == @Lk1) goto Kninput2;
  490. mes @Lk2;
  491.  
  492. Kninput3:
  493. input @Lk3;
  494. if (@Lk3 < 1 || @Lk3 > 80) goto Kninput3;
  495. if (@Lk3 == @Lk2) goto Kninput3;
  496. if (@Lk3 == @Lk1) goto Kninput3;
  497. mes @Lk3;
  498.  
  499. Kninput4:
  500. input @Lk4;
  501. if (@Lk4 < 1 || @Lk4 > 80) goto Kninput4;
  502. if (@Lk4 == @Lk2) goto Kninput4;
  503. if (@Lk4 == @Lk1) goto Kninput4;
  504. if (@Lk4 == @Lk3) goto Kninput4;
  505. mes @Lk4;
  506.  
  507. Kninput5:
  508. input @Lk5;
  509. if (@Lk5 < 1 || @Lk5 > 80) goto Kninput5;
  510. if (@Lk5 == @Lk1) goto Kninput5;
  511. if (@Lk5 == @Lk2) goto Kninput5;
  512. if (@Lk5 == @Lk3) goto Kninput5;
  513. if (@Lk5 == @Lk4) goto Kninput5;
  514. mes @Lk5;
  515.  
  516. Kninput6:
  517. input @Lk6;
  518. if (@Lk6 < 1 || @Lk6 > 80) goto Kninput6;
  519. if (@Lk6 == @Lk1) goto Kninput6;
  520. if (@Lk6 == @Lk2) goto Kninput6;
  521. if (@Lk6 == @Lk3) goto Kninput6;
  522. if (@Lk6 == @Lk4) goto Kninput6;
  523. if (@Lk6 == @Lk5) goto Kninput6;
  524. mes @Lk6;
  525.  
  526. Kninput7:
  527. input @Lk7;
  528. if (@Lk7 < 1 || @Lk7 > 80) goto Kninput7;
  529. if (@Lk7 == @Lk1) goto Kninput7;
  530. if (@Lk7 == @Lk2) goto Kninput7;
  531. if (@Lk7 == @Lk3) goto Kninput7;
  532. if (@Lk7 == @Lk4) goto Kninput7;
  533. if (@Lk7 == @Lk5) goto Kninput7;
  534. if (@Lk7 == @Lk6) goto Kninput7;
  535. mes @Lk7;
  536.  
  537. Kninput8:
  538. input @Lk8;
  539. if (@Lk8 < 1 || @Lk8 > 80) goto Kninput8;
  540. if (@Lk8 == @Lk1) goto Kninput8;
  541. if (@Lk8 == @Lk2) goto Kninput8;
  542. if (@Lk8 == @Lk3) goto Kninput8;
  543. if (@Lk8 == @Lk4) goto Kninput8;
  544. if (@Lk8 == @Lk5) goto Kninput8;
  545. if (@Lk8 == @Lk6) goto Kninput8;
  546. if (@Lk8 == @Lk7) goto Kninput8;
  547. mes @Lk8;
  548.  
  549. Kninput9:
  550. input @Lk9;
  551. if (@Lk9 < 1 || @Lk9 > 80) goto Kninput9;
  552. if (@Lk9 == @Lk1) goto Kninput9;
  553. if (@Lk9 == @Lk2) goto Kninput9;
  554. if (@Lk9 == @Lk3) goto Kninput9;
  555. if (@Lk9 == @Lk4) goto Kninput9;
  556. if (@Lk9 == @Lk5) goto Kninput9;
  557. if (@Lk9 == @Lk6) goto Kninput9;
  558. if (@Lk9 == @Lk7) goto Kninput9;
  559. if (@Lk9 == @Lk8) goto Kninput9;
  560. mes @Lk9;
  561.  
  562. Kninput10:
  563. input @Lk10;
  564. if (@Lk10 < 1 || @Lk10 > 80) goto Kninput10;
  565. if (@Lk10 == @Lk1) goto Kninput10;
  566. if (@Lk10 == @Lk2) goto Kninput10;
  567. if (@Lk10 == @Lk3) goto Kninput10;
  568. if (@Lk10 == @Lk4) goto Kninput10;
  569. if (@Lk10 == @Lk5) goto Kninput10;
  570. if (@Lk10 == @Lk6) goto Kninput10;
  571. if (@Lk10 == @Lk7) goto Kninput10;
  572. if (@Lk10 == @Lk8) goto Kninput10;
  573. if (@Lk10 == @Lk9) goto Kninput10;
  574. mes @Lk10;
  575. next;
  576.  
  577. mes "[^008800Keno Teller^000000]";
  578. mes "Your numbers are:";
  579. mes "^FF0000" + @Lk1 + " " + @Lk2 + " " + @Lk3 + " " + @Lk4 + " " + @Lk5 + "^000000";
  580. mes "^0000FF" + @Lk6 + " " + @Lk7 + " " + @Lk8 + " " + @Lk9 + " " + @Lk10 + "^000000";
  581. next;
  582. menu "Confirm",KENO_Confirm,"Re-Pick",KENO_HandPick;
  583.  
  584. KENO_Confirm:
  585. set #LkW1,@Lk1;
  586. set #LkW2,@Lk2;
  587. set #LkW3,@Lk3;
  588. set #LkW4,@Lk4;
  589. set #LkW5,@Lk5;
  590. set #LkW6,@Lk6;
  591. set #LkW7,@Lk7;
  592. set #LkW8,@Lk8;
  593. set #LkW9,@Lk9;
  594. set #LkW10,@Lk10;
  595. set #LkID,$LKID;
  596. KENO_Confirm2:
  597. mes "[^008800Keno Teller^000000]";
  598. mes "Wait for the live broadcasted draw every hour!";
  599. mes "You can claim your ticket between then and the next draw.";
  600. next;
  601. mes "[^008800Keno Teller^000000]";
  602. mes "Good luck!";
  603. close;
  604.  
  605. KENO_Claim:
  606. // CHECKS TICKET VALIDILITY
  607. if (#LkID != $LKID2) goto KENO_Invalid;
  608. // CHECKS HOW MANY NUMBERS MATCHED
  609. set @LkPrize,0;
  610. if (#LkW1 == $LkW1) set @LkPrize,@LkPrize+1;
  611. if (#LkW1 == $LkW2) set @LkPrize,@LkPrize+1;
  612. if (#LkW1 == $LkW3) set @LkPrize,@LkPrize+1;
  613. if (#LkW1 == $LkW4) set @LkPrize,@LkPrize+1;
  614. if (#LkW1 == $LkW5) set @LkPrize,@LkPrize+1;
  615. if (#LkW1 == $LkW6) set @LkPrize,@LkPrize+1;
  616. if (#LkW1 == $LkW7) set @LkPrize,@LkPrize+1;
  617. if (#LkW1 == $LkW8) set @LkPrize,@LkPrize+1;
  618. if (#LkW1 == $LkW9) set @LkPrize,@LkPrize+1;
  619. if (#LkW1 == $LkW10) set @LkPrize,@LkPrize+1;
  620. if (#LkW1 == $LkW11) set @LkPrize,@LkPrize+1;
  621. if (#LkW1 == $LkW12) set @LkPrize,@LkPrize+1;
  622. if (#LkW1 == $LkW13) set @LkPrize,@LkPrize+1;
  623. if (#LkW1 == $LkW14) set @LkPrize,@LkPrize+1;
  624. if (#LkW1 == $LkW15) set @LkPrize,@LkPrize+1;
  625. if (#LkW1 == $LkW16) set @LkPrize,@LkPrize+1;
  626. if (#LkW1 == $LkW17) set @LkPrize,@LkPrize+1;
  627. if (#LkW1 == $LkW18) set @LkPrize,@LkPrize+1;
  628. if (#LkW1 == $LkW19) set @LkPrize,@LkPrize+1;
  629. if (#LkW1 == $LkW20) set @LkPrize,@LkPrize+1;
  630.  
  631. if (#LkW2 == $LkW1) set @LkPrize,@LkPrize+1;
  632. if (#LkW2 == $LkW2) set @LkPrize,@LkPrize+1;
  633. if (#LkW2 == $LkW3) set @LkPrize,@LkPrize+1;
  634. if (#LkW2 == $LkW4) set @LkPrize,@LkPrize+1;
  635. if (#LkW2 == $LkW5) set @LkPrize,@LkPrize+1;
  636. if (#LkW2 == $LkW6) set @LkPrize,@LkPrize+1;
  637. if (#LkW2 == $LkW7) set @LkPrize,@LkPrize+1;
  638. if (#LkW2 == $LkW8) set @LkPrize,@LkPrize+1;
  639. if (#LkW2 == $LkW9) set @LkPrize,@LkPrize+1;
  640. if (#LkW2 == $LkW10) set @LkPrize,@LkPrize+1;
  641. if (#LkW2 == $LkW11) set @LkPrize,@LkPrize+1;
  642. if (#LkW2 == $LkW12) set @LkPrize,@LkPrize+1;
  643. if (#LkW2 == $LkW13) set @LkPrize,@LkPrize+1;
  644. if (#LkW2 == $LkW14) set @LkPrize,@LkPrize+1;
  645. if (#LkW2 == $LkW15) set @LkPrize,@LkPrize+1;
  646. if (#LkW2 == $LkW16) set @LkPrize,@LkPrize+1;
  647. if (#LkW2 == $LkW17) set @LkPrize,@LkPrize+1;
  648. if (#LkW2 == $LkW18) set @LkPrize,@LkPrize+1;
  649. if (#LkW2 == $LkW19) set @LkPrize,@LkPrize+1;
  650. if (#LkW2 == $LkW20) set @LkPrize,@LkPrize+1;
  651.  
  652. if (#LkW3 == $LkW1) set @LkPrize,@LkPrize+1;
  653. if (#LkW3 == $LkW2) set @LkPrize,@LkPrize+1;
  654. if (#LkW3 == $LkW3) set @LkPrize,@LkPrize+1;
  655. if (#LkW3 == $LkW4) set @LkPrize,@LkPrize+1;
  656. if (#LkW3 == $LkW5) set @LkPrize,@LkPrize+1;
  657. if (#LkW3 == $LkW6) set @LkPrize,@LkPrize+1;
  658. if (#LkW3 == $LkW7) set @LkPrize,@LkPrize+1;
  659. if (#LkW3 == $LkW8) set @LkPrize,@LkPrize+1;
  660. if (#LkW3 == $LkW9) set @LkPrize,@LkPrize+1;
  661. if (#LkW3 == $LkW10) set @LkPrize,@LkPrize+1;
  662. if (#LkW3 == $LkW11) set @LkPrize,@LkPrize+1;
  663. if (#LkW3 == $LkW12) set @LkPrize,@LkPrize+1;
  664. if (#LkW3 == $LkW13) set @LkPrize,@LkPrize+1;
  665. if (#LkW3 == $LkW14) set @LkPrize,@LkPrize+1;
  666. if (#LkW3 == $LkW15) set @LkPrize,@LkPrize+1;
  667. if (#LkW3 == $LkW16) set @LkPrize,@LkPrize+1;
  668. if (#LkW3 == $LkW17) set @LkPrize,@LkPrize+1;
  669. if (#LkW3 == $LkW18) set @LkPrize,@LkPrize+1;
  670. if (#LkW3 == $LkW19) set @LkPrize,@LkPrize+1;
  671. if (#LkW3 == $LkW20) set @LkPrize,@LkPrize+1;
  672.  
  673. if (#LkW4 == $LkW1) set @LkPrize,@LkPrize+1;
  674. if (#LkW4 == $LkW2) set @LkPrize,@LkPrize+1;
  675. if (#LkW4 == $LkW3) set @LkPrize,@LkPrize+1;
  676. if (#LkW1 == $LkW4) set @LkPrize,@LkPrize+1;
  677. if (#LkW4 == $LkW5) set @LkPrize,@LkPrize+1;
  678. if (#LkW4 == $LkW6) set @LkPrize,@LkPrize+1;
  679. if (#LkW4 == $LkW7) set @LkPrize,@LkPrize+1;
  680. if (#LkW4 == $LkW8) set @LkPrize,@LkPrize+1;
  681. if (#LkW4 == $LkW9) set @LkPrize,@LkPrize+1;
  682. if (#LkW4 == $LkW10) set @LkPrize,@LkPrize+1;
  683. if (#LkW4 == $LkW11) set @LkPrize,@LkPrize+1;
  684. if (#LkW4 == $LkW12) set @LkPrize,@LkPrize+1;
  685. if (#LkW4 == $LkW13) set @LkPrize,@LkPrize+1;
  686. if (#LkW1 == $LkW14) set @LkPrize,@LkPrize+1;
  687. if (#LkW4 == $LkW15) set @LkPrize,@LkPrize+1;
  688. if (#LkW4 == $LkW16) set @LkPrize,@LkPrize+1;
  689. if (#LkW4 == $LkW17) set @LkPrize,@LkPrize+1;
  690. if (#LkW4 == $LkW18) set @LkPrize,@LkPrize+1;
  691. if (#LkW4 == $LkW19) set @LkPrize,@LkPrize+1;
  692. if (#LkW4 == $LkW20) set @LkPrize,@LkPrize+1;
  693.  
  694. if (#LkW5 == $LkW1) set @LkPrize,@LkPrize+1;
  695. if (#LkW5 == $LkW2) set @LkPrize,@LkPrize+1;
  696. if (#LkW5 == $LkW3) set @LkPrize,@LkPrize+1;
  697. if (#LkW5 == $LkW4) set @LkPrize,@LkPrize+1;
  698. if (#LkW5 == $LkW5) set @LkPrize,@LkPrize+1;
  699. if (#LkW5 == $LkW6) set @LkPrize,@LkPrize+1;
  700. if (#LkW5 == $LkW7) set @LkPrize,@LkPrize+1;
  701. if (#LkW5 == $LkW8) set @LkPrize,@LkPrize+1;
  702. if (#LkW5 == $LkW9) set @LkPrize,@LkPrize+1;
  703. if (#LkW5 == $LkW10) set @LkPrize,@LkPrize+1;
  704. if (#LkW5 == $LkW11) set @LkPrize,@LkPrize+1;
  705. if (#LkW5 == $LkW12) set @LkPrize,@LkPrize+1;
  706. if (#LkW5 == $LkW13) set @LkPrize,@LkPrize+1;
  707. if (#LkW5 == $LkW14) set @LkPrize,@LkPrize+1;
  708. if (#LkW5 == $LkW15) set @LkPrize,@LkPrize+1;
  709. if (#LkW5 == $LkW16) set @LkPrize,@LkPrize+1;
  710. if (#LkW5 == $LkW17) set @LkPrize,@LkPrize+1;
  711. if (#LkW5 == $LkW18) set @LkPrize,@LkPrize+1;
  712. if (#LkW5 == $LkW19) set @LkPrize,@LkPrize+1;
  713. if (#LkW5 == $LkW20) set @LkPrize,@LkPrize+1;
  714.  
  715. if (#LkW6 == $LkW1) set @LkPrize,@LkPrize+1;
  716. if (#LkW6 == $LkW2) set @LkPrize,@LkPrize+1;
  717. if (#LkW6 == $LkW3) set @LkPrize,@LkPrize+1;
  718. if (#LkW6 == $LkW4) set @LkPrize,@LkPrize+1;
  719. if (#LkW6 == $LkW5) set @LkPrize,@LkPrize+1;
  720. if (#LkW6 == $LkW6) set @LkPrize,@LkPrize+1;
  721. if (#LkW6 == $LkW7) set @LkPrize,@LkPrize+1;
  722. if (#LkW6 == $LkW8) set @LkPrize,@LkPrize+1;
  723. if (#LkW6 == $LkW9) set @LkPrize,@LkPrize+1;
  724. if (#LkW6 == $LkW10) set @LkPrize,@LkPrize+1;
  725. if (#LkW6 == $LkW11) set @LkPrize,@LkPrize+1;
  726. if (#LkW6 == $LkW12) set @LkPrize,@LkPrize+1;
  727. if (#LkW6 == $LkW13) set @LkPrize,@LkPrize+1;
  728. if (#LkW6 == $LkW14) set @LkPrize,@LkPrize+1;
  729. if (#LkW6 == $LkW15) set @LkPrize,@LkPrize+1;
  730. if (#LkW6 == $LkW16) set @LkPrize,@LkPrize+1;
  731. if (#LkW6 == $LkW17) set @LkPrize,@LkPrize+1;
  732. if (#LkW6 == $LkW18) set @LkPrize,@LkPrize+1;
  733. if (#LkW6 == $LkW19) set @LkPrize,@LkPrize+1;
  734. if (#LkW6 == $LkW20) set @LkPrize,@LkPrize+1;
  735.  
  736. if (#LkW7 == $LkW1) set @LkPrize,@LkPrize+1;
  737. if (#LkW7 == $LkW2) set @LkPrize,@LkPrize+1;
  738. if (#LkW7 == $LkW3) set @LkPrize,@LkPrize+1;
  739. if (#LkW7 == $LkW4) set @LkPrize,@LkPrize+1;
  740. if (#LkW7 == $LkW5) set @LkPrize,@LkPrize+1;
  741. if (#LkW7 == $LkW6) set @LkPrize,@LkPrize+1;
  742. if (#LkW7 == $LkW7) set @LkPrize,@LkPrize+1;
  743. if (#LkW7 == $LkW8) set @LkPrize,@LkPrize+1;
  744. if (#LkW7 == $LkW9) set @LkPrize,@LkPrize+1;
  745. if (#LkW7 == $LkW10) set @LkPrize,@LkPrize+1;
  746. if (#LkW7 == $LkW11) set @LkPrize,@LkPrize+1;
  747. if (#LkW7 == $LkW12) set @LkPrize,@LkPrize+1;
  748. if (#LkW7 == $LkW13) set @LkPrize,@LkPrize+1;
  749. if (#LkW7 == $LkW14) set @LkPrize,@LkPrize+1;
  750. if (#LkW7 == $LkW15) set @LkPrize,@LkPrize+1;
  751. if (#LkW7 == $LkW16) set @LkPrize,@LkPrize+1;
  752. if (#LkW7 == $LkW17) set @LkPrize,@LkPrize+1;
  753. if (#LkW7 == $LkW18) set @LkPrize,@LkPrize+1;
  754. if (#LkW7 == $LkW19) set @LkPrize,@LkPrize+1;
  755. if (#LkW7 == $LkW20) set @LkPrize,@LkPrize+1;
  756.  
  757. if (#LkW8 == $LkW1) set @LkPrize,@LkPrize+1;
  758. if (#LkW8 == $LkW2) set @LkPrize,@LkPrize+1;
  759. if (#LkW8 == $LkW3) set @LkPrize,@LkPrize+1;
  760. if (#LkW8 == $LkW4) set @LkPrize,@LkPrize+1;
  761. if (#LkW8 == $LkW5) set @LkPrize,@LkPrize+1;
  762. if (#LkW8 == $LkW6) set @LkPrize,@LkPrize+1;
  763. if (#LkW8 == $LkW7) set @LkPrize,@LkPrize+1;
  764. if (#LkW8 == $LkW8) set @LkPrize,@LkPrize+1;
  765. if (#LkW8 == $LkW9) set @LkPrize,@LkPrize+1;
  766. if (#LkW8 == $LkW10) set @LkPrize,@LkPrize+1;
  767. if (#LkW8 == $LkW11) set @LkPrize,@LkPrize+1;
  768. if (#LkW8 == $LkW12) set @LkPrize,@LkPrize+1;
  769. if (#LkW8 == $LkW13) set @LkPrize,@LkPrize+1;
  770. if (#LkW8 == $LkW14) set @LkPrize,@LkPrize+1;
  771. if (#LkW8 == $LkW15) set @LkPrize,@LkPrize+1;
  772. if (#LkW8 == $LkW16) set @LkPrize,@LkPrize+1;
  773. if (#LkW8 == $LkW17) set @LkPrize,@LkPrize+1;
  774. if (#LkW8 == $LkW18) set @LkPrize,@LkPrize+1;
  775. if (#LkW8 == $LkW19) set @LkPrize,@LkPrize+1;
  776. if (#LkW8 == $LkW20) set @LkPrize,@LkPrize+1;
  777.  
  778. if (#LkW9 == $LkW1) set @LkPrize,@LkPrize+1;
  779. if (#LkW9 == $LkW2) set @LkPrize,@LkPrize+1;
  780. if (#LkW9 == $LkW3) set @LkPrize,@LkPrize+1;
  781. if (#LkW9 == $LkW4) set @LkPrize,@LkPrize+1;
  782. if (#LkW9 == $LkW5) set @LkPrize,@LkPrize+1;
  783. if (#LkW9 == $LkW6) set @LkPrize,@LkPrize+1;
  784. if (#LkW9 == $LkW7) set @LkPrize,@LkPrize+1;
  785. if (#LkW9 == $LkW8) set @LkPrize,@LkPrize+1;
  786. if (#LkW9 == $LkW9) set @LkPrize,@LkPrize+1;
  787. if (#LkW9 == $LkW10) set @LkPrize,@LkPrize+1;
  788. if (#LkW9 == $LkW11) set @LkPrize,@LkPrize+1;
  789. if (#LkW9 == $LkW12) set @LkPrize,@LkPrize+1;
  790. if (#LkW9 == $LkW13) set @LkPrize,@LkPrize+1;
  791. if (#LkW9 == $LkW14) set @LkPrize,@LkPrize+1;
  792. if (#LkW9 == $LkW15) set @LkPrize,@LkPrize+1;
  793. if (#LkW9 == $LkW16) set @LkPrize,@LkPrize+1;
  794. if (#LkW9 == $LkW17) set @LkPrize,@LkPrize+1;
  795. if (#LkW9 == $LkW18) set @LkPrize,@LkPrize+1;
  796. if (#LkW9 == $LkW19) set @LkPrize,@LkPrize+1;
  797. if (#LkW9 == $LkW20) set @LkPrize,@LkPrize+1;
  798.  
  799. if (#LkW10 == $LkW1) set @LkPrize,@LkPrize+1;
  800. if (#LkW10 == $LkW2) set @LkPrize,@LkPrize+1;
  801. if (#LkW10 == $LkW3) set @LkPrize,@LkPrize+1;
  802. if (#LkW10 == $LkW4) set @LkPrize,@LkPrize+1;
  803. if (#LkW10 == $LkW5) set @LkPrize,@LkPrize+1;
  804. if (#LkW10 == $LkW6) set @LkPrize,@LkPrize+1;
  805. if (#LkW10 == $LkW7) set @LkPrize,@LkPrize+1;
  806. if (#LkW10 == $LkW8) set @LkPrize,@LkPrize+1;
  807. if (#LkW10 == $LkW9) set @LkPrize,@LkPrize+1;
  808. if (#LkW10 == $LkW10) set @LkPrize,@LkPrize+1;
  809. if (#LkW10 == $LkW11) set @LkPrize,@LkPrize+1;
  810. if (#LkW10 == $LkW12) set @LkPrize,@LkPrize+1;
  811. if (#LkW10 == $LkW13) set @LkPrize,@LkPrize+1;
  812. if (#LkW10 == $LkW14) set @LkPrize,@LkPrize+1;
  813. if (#LkW10 == $LkW15) set @LkPrize,@LkPrize+1;
  814. if (#LkW10 == $LkW16) set @LkPrize,@LkPrize+1;
  815. if (#LkW10 == $LkW17) set @LkPrize,@LkPrize+1;
  816. if (#LkW10 == $LkW18) set @LkPrize,@LkPrize+1;
  817. if (#LkW10 == $LkW19) set @LkPrize,@LkPrize+1;
  818. if (#LkW10 == $LkW20) set @LkPrize,@LkPrize+1;
  819.  
  820. if (@LkPrize == 10) goto LkWin10;
  821. if (@LkPrize == 9) goto LkWin9;
  822. if (@LkPrize == 8) goto LkWin8;
  823. if (@LkPrize == 7) goto LkWin7;
  824. if (@LkPrize == 6) goto LkWin6;
  825. if (@LkPrize == 5) goto LkWin5;
  826. if (@LkPrize == 4) goto LkWin4;
  827. if (@LkPrize == 3) goto LkWin3;
  828. if (@LkPrize == 2) goto LkWin2;
  829. if (@LkPrize == 1) goto LkWin1;
  830.  
  831.  
  832. // NO WINNER
  833. mes "[^008800Keno Teller^000000]";
  834. mes "Bad luck, it appears you do not hold a winning ticket.";
  835. next;
  836. mes "[^008800Keno Teller^000000]";
  837. mes "Better luck next time!.";
  838. close;
  839.  
  840. // MATCHED  10
  841. LkWin10:
  842. set @KENO_Prize_Money,($KENO_TicketPrice*10*9*8*7*6*5*4*3*2)-6288000;
  843. mes "[^008800Keno Teller^000000]";
  844. mes "You have matched ^0000FF" + @LkPrize  + "^000000 numbers!";
  845. mes "Jackpot!";
  846. mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";
  847. set Zeny,Zeny+@KENO_Prize_Money;
  848. announce "Keno Teller: " + strcharinfo(0) + " has won the JACKPOT of " + @KENO_Prize_Money + "z!",8;
  849. set @KENO_Prize_Money,0;
  850. set #LkID,0;
  851. close;
  852.  
  853. // MATCHED  9
  854. LkWin9:
  855. set @KENO_Prize_Money, ($KENO_TicketPrice*9*8*7*6*5*4*3*2)-628800;
  856. mes "[^008800Keno Teller^000000]";
  857. mes "You have matched ^0000FF" + @LkPrize  + "^000000 numbers!";
  858. mes "Jackpot!";
  859. mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";
  860. set Zeny,Zeny+@KENO_Prize_Money;
  861. announce "Keno Teller: " + strcharinfo(0) + " has won the JACKPOT of " + @KENO_Prize_Money + "z!",8;
  862. set @KENO_Prize_Money,0;
  863. set #LkID,0;
  864. close;
  865.  
  866. // MATCHED 8
  867. LkWin8:
  868. set @KENO_Prize_Money,($KENO_TicketPrice*8*7*6*5*4*3*2)-3200;
  869. mes "[^008800Keno Teller^000000]";
  870. mes "You have matched ^0000FF" + @LkPrize  + "^000000 numbers!";
  871. mes "Jackpot!";
  872. mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";
  873. set Zeny,Zeny+@KENO_Prize_Money;
  874. announce "Keno Teller: " + strcharinfo(0) + " has won the JACKPOT of " + @KENO_Prize_Money + "z!",8;
  875. set @KENO_Prize_Money,0;
  876. set #LkID,0;
  877. close;
  878.  
  879. // MATCHED 7
  880. LkWin7:
  881. set @KENO_Prize_Money,($KENO_TicketPrice*7*6*5*4*3*2)-400;
  882. mes "[^008800Keno Teller^000000]";
  883. mes "You have matched ^0000FF" + @LkPrize  + "^000000 numbers!";
  884. mes "Jackpot!";
  885. mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";
  886. set Zeny,Zeny+@KENO_Prize_Money;
  887. announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;
  888. set @KENO_Prize_Money,0;
  889. set #LkID,0;
  890. close;
  891.  
  892. // MATCHED 6
  893. LkWin6:
  894. set @KENO_Prize_Money,($KENO_TicketPrice*6*5*4*3*2)-200;
  895. mes "[^008800Keno Teller^000000]";
  896. mes "You have matched ^0000FF" + @LkPrize  + "^000000 numbers!";
  897. mes "Jackpot!";
  898. mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";
  899. set Zeny,Zeny+@KENO_Prize_Money;
  900. announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;
  901. set @KENO_Prize_Money,0;
  902. set #LkID,0;
  903. close;
  904.  
  905. // MATCHED 5
  906. LkWin5:
  907. set @KENO_Prize_Money,($KENO_TicketPrice*5*4*3*2)-200;
  908. mes "[^008800Keno Teller^000000]";
  909. mes "You have matched ^0000FF" + @LkPrize  + "^000000 numbers!";
  910. mes "Jackpot!";
  911. mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";
  912. set Zeny,Zeny+@KENO_Prize_Money;
  913. announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;
  914. set @KENO_Prize_Money,0;
  915. set #LkID,0;
  916. close;
  917.  
  918. // MATCHED 4
  919. LkWin4:
  920. set @KENO_Prize_Money,($KENO_TicketPrice*4*3*2)-40;
  921. mes "[^008800Keno Teller^000000]";
  922. mes "You have matched ^0000FF" + @LkPrize  + "^000000 numbers!";
  923. mes "Jackpot!";
  924. mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";
  925. set Zeny,Zeny+@KENO_Prize_Money;
  926. announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;
  927. set @KENO_Prize_Money,0;
  928. set #LkID,0;
  929. close;
  930.  
  931. // MATCHED  3
  932. LkWin3:
  933. set @KENO_Prize_Money,$KENO_TicketPrice*3*2;
  934. mes "[^008800Keno Teller^000000]";
  935. mes "You have matched ^0000FF" + @LkPrize  + "^000000 numbers!";
  936. mes "Jackpot!";
  937. mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";
  938. set Zeny,Zeny+@KENO_Prize_Money;
  939. announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;
  940. set @KENO_Prize_Money,0;
  941. set #LkID,0;
  942. close;
  943.  
  944. // MATCHED  2
  945. LkWin2:
  946. set @KENO_Prize_Money,$KENO_TicketPrice*2;
  947. mes "[^008800Keno Teller^000000]";
  948. mes "You have matched ^0000FF" + @LkPrize  + "^000000 numbers!";
  949. mes "Jackpot!";
  950. mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";
  951. set Zeny,Zeny+@KENO_Prize_Money;
  952. announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;
  953. set @KENO_Prize_Money,0;
  954. set #LkID,0;
  955. close;
  956.  
  957. // MATCHED  1
  958. LkWin1:
  959. set @KENO_Prize_Money,$KENO_TicketPrice;
  960. mes "[^008800Keno Teller^000000]";
  961. mes "You have matched ^0000FF" + @LkPrize  + "^000000 numbers!";
  962. mes "Jackpot!";
  963. mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";
  964. set Zeny,Zeny+@KENO_Prize_Money;
  965. announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;
  966. set @KENO_Prize_Money,0;
  967. set #LkID,0;
  968. close;
  969.  
  970.  
  971. // NO Zeny
  972. KENO_NoZeny:
  973. mes "[^008800Keno Teller^000000]";
  974. mes "You can't afford a Keno ticket.";
  975. close;
  976.  
  977. // INVALID TICKET
  978. KENO_Invalid:
  979. mes "[^008800Keno Teller^000000]";
  980. mes "I'm sorry but it appears that you have an invalid ticket.";
  981. close;
  982.  
  983. // DOUBLE TICKET
  984. KENO_DoubleTicket:
  985. mes "[^008800Keno Teller^000000]";
  986. mes "It appears that you already have a ticket for today.";
  987. mes "You may only purchase one ticket per draw.";
  988. close;
  989.  
  990. KENO_Cancel:
  991. mes "[^008800Keno Teller^000000]";
  992. mes "Come back soon!";
  993. close;
  994.  
  995. // GM MENU (Lets you manually do draws)
  996. KENO_GM:
  997. menu "Claim Prize",KENO_Claim,"Buy New Ticket",KENO_Buy,"[GM]Do Draw Now",-,"[GM]Rig the Lottery",KENO_GM_Rig,"Cancel",KENO_Cancel;
  998.  
  999. // CHECKS IF LOTTERY IS RIGGED
  1000. if ($KENO_Rigged == 1) goto KENO_Rigged_Draw;
  1001.  
  1002. // GENERATES RANDOM NUMBERS 1-80
  1003. GMKPick1:
  1004. set $LkW1,rand (1,80);
  1005.  
  1006. GMKPick2:
  1007. set $LkW2,rand (1,80);
  1008. if ($LkW2 == $LkW1) goto GMKPick2;
  1009.  
  1010. GMKPick3:
  1011. set $LkW3,rand (1,80);
  1012. if ($LkW3 == $LkW2) goto GMKPick3;
  1013. if ($LkW3 == $LkW1) goto GMKPick3;
  1014.  
  1015. GMKPick4:
  1016. set $LkW4,rand (1,80);
  1017. if ($LkW4 == $LkW2) goto GMKPick4;
  1018. if ($LkW4 == $LkW1) goto GMKPick4;
  1019. if ($LkW4 == $LkW3) goto GMKPick4;
  1020.  
  1021. GMKPick5:
  1022. set $LkW5,rand (1,80);
  1023. if ($LkW5 == $LkW1) goto GMKPick5;
  1024. if ($LkW5 == $LkW2) goto GMKPick5;
  1025. if ($LkW5 == $LkW3) goto GMKPick5;
  1026. if ($LkW5 == $LkW4) goto GMKPick5;
  1027.  
  1028. GMKPick6:
  1029. set $LkW6,rand (1,80);
  1030. if ($LkW6 == $LkW1) goto GMKPick6;
  1031. if ($LkW6 == $LkW2) goto GMKPick6;
  1032. if ($LkW6 == $LkW3) goto GMKPick6;
  1033. if ($LkW6 == $LkW4) goto GMKPick6;
  1034. if ($LkW6 == $LkW5) goto GMKPick6;
  1035.  
  1036. GMKPick7:
  1037. set $LkW7,rand (1,80);
  1038. if ($LkW7 == $LkW1) goto GMKPick7;
  1039. if ($LkW7 == $LkW2) goto GMKPick7;
  1040. if ($LkW7 == $LkW3) goto GMKPick7;
  1041. if ($LkW7 == $LkW4) goto GMKPick7;
  1042. if ($LkW7 == $LkW5) goto GMKPick7;
  1043. if ($LkW7 == $LkW6) goto GMKPick7;
  1044.  
  1045. GMKPick8:
  1046. set $LkW8,rand (1,80);
  1047. if ($LkW8 == $LkW1) goto GMKPick8;
  1048. if ($LkW8 == $LkW2) goto GMKPick8;
  1049. if ($LkW8 == $LkW3) goto GMKPick8;
  1050. if ($LkW8 == $LkW4) goto GMKPick8;
  1051. if ($LkW8 == $LkW5) goto GMKPick8;
  1052. if ($LkW8 == $LkW6) goto GMKPick8;
  1053. if ($LkW8 == $LkW7) goto GMKPick8;
  1054.  
  1055. GMKPick9:
  1056. set $LkW9,rand (1,80);
  1057. if ($LkW9 == $LkW1) goto GMKPick9;
  1058. if ($LkW9 == $LkW2) goto GMKPick9;
  1059. if ($LkW9 == $LkW3) goto GMKPick9;
  1060. if ($LkW9 == $LkW4) goto GMKPick9;
  1061. if ($LkW9 == $LkW5) goto GMKPick9;
  1062. if ($LkW9 == $LkW6) goto GMKPick9;
  1063. if ($LkW9 == $LkW7) goto GMKPick9;
  1064. if ($LkW9 == $LkW8) goto GMKPick9;
  1065.  
  1066. GMKPick10:
  1067. set $LkW10,rand (1,80);
  1068. if ($LkW10 == $LkW1) goto GMKPick10;
  1069. if ($LkW10 == $LkW2) goto GMKPick10;
  1070. if ($LkW10 == $LkW3) goto GMKPick10;
  1071. if ($LkW10 == $LkW4) goto GMKPick10;
  1072. if ($LkW10 == $LkW5) goto GMKPick10;
  1073. if ($LkW10 == $LkW6) goto GMKPick10;
  1074. if ($LkW10 == $LkW7) goto GMKPick10;
  1075. if ($LkW10 == $LkW8) goto GMKPick10;
  1076. if ($LkW10 == $LkW9) goto GMKPick10;
  1077.  
  1078. GMKPick11:
  1079. set $LkW11,rand (1,80);
  1080. if ($LkW11 == $LkW1) goto GMKPick11;
  1081. if ($LkW11 == $LkW2) goto GMKPick11;
  1082. if ($LkW11 == $LkW3) goto GMKPick11;
  1083. if ($LkW11 == $LkW4) goto GMKPick11;
  1084. if ($LkW11 == $LkW5) goto GMKPick11;
  1085. if ($LkW11 == $LkW6) goto GMKPick11;
  1086. if ($LkW11 == $LkW7) goto GMKPick11;
  1087. if ($LkW11 == $LkW8) goto GMKPick11;
  1088. if ($LkW11 == $LkW9) goto GMKPick11;
  1089. if ($LkW11 == $LkW10) goto GMKPick11;
  1090.  
  1091. GMKPick12:
  1092. set $LkW12,rand (1,80);
  1093. if ($LkW12 == $LkW1) goto GMKPick12;
  1094. if ($LkW12 == $LkW2) goto GMKPick12;
  1095. if ($LkW12 == $LkW3) goto GMKPick12;
  1096. if ($LkW12 == $LkW4) goto GMKPick12;
  1097. if ($LkW12 == $LkW5) goto GMKPick12;
  1098. if ($LkW12 == $LkW6) goto GMKPick12;
  1099. if ($LkW12 == $LkW7) goto GMKPick12;
  1100. if ($LkW12 == $LkW8) goto GMKPick12;
  1101. if ($LkW12 == $LkW9) goto GMKPick12;
  1102. if ($LkW12 == $LkW10) goto GMKPick12;
  1103. if ($LkW12 == $LkW11) goto GMKPick12;
  1104.  
  1105. GMKPick13:
  1106. set $LkW13,rand (1,80);
  1107. if ($LkW13 == $LkW1) goto GMKPick13;
  1108. if ($LkW13 == $LkW2) goto GMKPick13;
  1109. if ($LkW13 == $LkW3) goto GMKPick13;
  1110. if ($LkW13 == $LkW4) goto GMKPick13;
  1111. if ($LkW13 == $LkW5) goto GMKPick13;
  1112. if ($LkW13 == $LkW6) goto GMKPick13;
  1113. if ($LkW13 == $LkW7) goto GMKPick13;
  1114. if ($LkW13 == $LkW8) goto GMKPick13;
  1115. if ($LkW13 == $LkW9) goto GMKPick13;
  1116. if ($LkW13 == $LkW10) goto GMKPick13;
  1117. if ($LkW13 == $LkW11) goto GMKPick13;
  1118. if ($LkW13 == $LkW12) goto GMKPick13;
  1119.  
  1120. GMKPick14:
  1121. set $LkW14,rand (1,80);
  1122. if ($LkW14 == $LkW1) goto GMKPick14;
  1123. if ($LkW14 == $LkW2) goto GMKPick14;
  1124. if ($LkW14 == $LkW3) goto GMKPick14;
  1125. if ($LkW14 == $LkW4) goto GMKPick14;
  1126. if ($LkW14 == $LkW5) goto GMKPick14;
  1127. if ($LkW14 == $LkW6) goto GMKPick14;
  1128. if ($LkW14 == $LkW7) goto GMKPick14;
  1129. if ($LkW14 == $LkW8) goto GMKPick14;
  1130. if ($LkW14 == $LkW9) goto GMKPick14;
  1131. if ($LkW14 == $LkW10) goto GMKPick14;
  1132. if ($LkW14 == $LkW11) goto GMKPick14;
  1133. if ($LkW14 == $LkW12) goto GMKPick14;
  1134. if ($LkW14 == $LkW13) goto GMKPick14;
  1135.  
  1136. GMKPick15:
  1137. set $LkW15,rand (1,80);
  1138. if ($LkW15 == $LkW1) goto GMKPick15;
  1139. if ($LkW15 == $LkW2) goto GMKPick15;
  1140. if ($LkW15 == $LkW3) goto GMKPick15;
  1141. if ($LkW15 == $LkW4) goto GMKPick15;
  1142. if ($LkW15 == $LkW5) goto GMKPick15;
  1143. if ($LkW15 == $LkW6) goto GMKPick15;
  1144. if ($LkW15 == $LkW7) goto GMKPick15;
  1145. if ($LkW15 == $LkW8) goto GMKPick15;
  1146. if ($LkW15 == $LkW9) goto GMKPick15;
  1147. if ($LkW15 == $LkW10) goto GMKPick15;
  1148. if ($LkW15 == $LkW11) goto GMKPick15;
  1149. if ($LkW15 == $LkW12) goto GMKPick15;
  1150. if ($LkW15 == $LkW13) goto GMKPick15;
  1151. if ($LkW15 == $LkW14) goto GMKPick15;
  1152.  
  1153. GMKPick16:
  1154. set $LkW16,rand (1,80);
  1155. if ($LkW16 == $LkW1) goto GMKPick16;
  1156. if ($LkW16 == $LkW2) goto GMKPick16;
  1157. if ($LkW16 == $LkW3) goto GMKPick16;
  1158. if ($LkW16 == $LkW4) goto GMKPick16;
  1159. if ($LkW16 == $LkW5) goto GMKPick16;
  1160. if ($LkW16 == $LkW6) goto GMKPick16;
  1161. if ($LkW16 == $LkW7) goto GMKPick16;
  1162. if ($LkW16 == $LkW8) goto GMKPick16;
  1163. if ($LkW16 == $LkW9) goto GMKPick16;
  1164. if ($LkW16 == $LkW10) goto GMKPick16;
  1165. if ($LkW16 == $LkW11) goto GMKPick16;
  1166. if ($LkW16 == $LkW12) goto GMKPick16;
  1167. if ($LkW16 == $LkW13) goto GMKPick16;
  1168. if ($LkW16 == $LkW14) goto GMKPick16;
  1169. if ($LkW16 == $LkW15) goto GMKPick16;
  1170.  
  1171. GMKPick17:
  1172. set $LkW17,rand (1,80);
  1173. if ($LkW17 == $LkW1) goto GMKPick17;
  1174. if ($LkW17 == $LkW2) goto GMKPick17;
  1175. if ($LkW17 == $LkW3) goto GMKPick17;
  1176. if ($LkW17 == $LkW4) goto GMKPick17;
  1177. if ($LkW17 == $LkW5) goto GMKPick17;
  1178. if ($LkW17 == $LkW6) goto GMKPick17;
  1179. if ($LkW17 == $LkW7) goto GMKPick17;
  1180. if ($LkW17 == $LkW8) goto GMKPick17;
  1181. if ($LkW17 == $LkW9) goto GMKPick17;
  1182. if ($LkW17 == $LkW10) goto GMKPick17;
  1183. if ($LkW17 == $LkW11) goto GMKPick17;
  1184. if ($LkW17 == $LkW12) goto GMKPick17;
  1185. if ($LkW17 == $LkW13) goto GMKPick17;
  1186. if ($LkW17 == $LkW14) goto GMKPick17;
  1187. if ($LkW17 == $LkW15) goto GMKPick17;
  1188. if ($LkW17 == $LkW16) goto GMKPick17;
  1189.  
  1190. GMKPick18:
  1191. set $LkW18,rand (1,80);
  1192. if ($LkW18 == $LkW1) goto GMKPick18;
  1193. if ($LkW18== $LkW2) goto GMKPick18;
  1194. if ($LkW18== $LkW3) goto GMKPick18;
  1195. if ($LkW18== $LkW4) goto GMKPick18;
  1196. if ($LkW18== $LkW5) goto GMKPick18;
  1197. if ($LkW18== $LkW6) goto GMKPick18;
  1198. if ($LkW18== $LkW7) goto GMKPick18;
  1199. if ($LkW18== $LkW8) goto GMKPick18;
  1200. if ($LkW18== $LkW9) goto GMKPick18;
  1201. if ($LkW18== $LkW10) goto GMKPick18;
  1202. if ($LkW18== $LkW11) goto GMKPick18;
  1203. if ($LkW18== $LkW12) goto GMKPick18;
  1204. if ($LkW18== $LkW13) goto GMKPick18;
  1205. if ($LkW18== $LkW14) goto GMKPick18;
  1206. if ($LkW18== $LkW15) goto GMKPick18;
  1207. if ($LkW18== $LkW16) goto GMKPick18;
  1208. if ($LkW18== $LkW17) goto GMKPick18;
  1209.  
  1210. GMKPick19:
  1211. set $LkW19,rand (1,80);
  1212. if ($LkW19 == $LkW1) goto GMKPick19;
  1213. if ($LkW19== $LkW2) goto GMKPick19;
  1214. if ($LkW19== $LkW3) goto GMKPick19;
  1215. if ($LkW19== $LkW4) goto GMKPick19;
  1216. if ($LkW19== $LkW5) goto GMKPick19;
  1217. if ($LkW19== $LkW6) goto GMKPick19;
  1218. if ($LkW19== $LkW7) goto GMKPick19;
  1219. if ($LkW19== $LkW8) goto GMKPick19;
  1220. if ($LkW19== $LkW9) goto GMKPick19;
  1221. if ($LkW19== $LkW10) goto GMKPick19;
  1222. if ($LkW19== $LkW11) goto GMKPick19;
  1223. if ($LkW19== $LkW12) goto GMKPick19;
  1224. if ($LkW19== $LkW13) goto GMKPick19;
  1225. if ($LkW19== $LkW14) goto GMKPick19;
  1226. if ($LkW19== $LkW15) goto GMKPick19;
  1227. if ($LkW19== $LkW16) goto GMKPick19;
  1228. if ($LkW19== $LkW17) goto GMKPick19;
  1229. if ($LkW19== $LkW18) goto GMKPick19;
  1230.  
  1231. GMKPick20:
  1232. set $LkW20,rand (1,80);
  1233. if ($LkW20 == $LkW1) goto GMKPick20;
  1234. if ($LkW20== $LkW2) goto GMKPick20;
  1235. if ($LkW20== $LkW3) goto GMKPick20;
  1236. if ($LkW20== $LkW4) goto GMKPick20;
  1237. if ($LkW20== $LkW5) goto GMKPick20;
  1238. if ($LkW20== $LkW6) goto GMKPick20;
  1239. if ($LkW20== $LkW7) goto GMKPick20;
  1240. if ($LkW20== $LkW8) goto GMKPick20;
  1241. if ($LkW20== $LkW9) goto GMKPick20;
  1242. if ($LkW20== $LkW10) goto GMKPick20;
  1243. if ($LkW20== $LkW11) goto GMKPick20;
  1244. if ($LkW20== $LkW12) goto GMKPick20;
  1245. if ($LkW20== $LkW13) goto GMKPick20;
  1246. if ($LkW20== $LkW14) goto GMKPick20;
  1247. if ($LkW20== $LkW15) goto GMKPick20;
  1248. if ($LkW20== $LkW16) goto GMKPick20;
  1249. if ($LkW20== $LkW17) goto GMKPick20;
  1250. if ($LkW20== $LkW18) goto GMKPick20;
  1251. if ($LkW20== $LkW19) goto GMKPick20;
  1252.  
  1253. // BROADCASTS DRAW
  1254. KENO_Broadcast:
  1255. announce "Keno Teller: Welcome to the special GM's KENO Lotto draw!",8;
  1256. announce "The numbers are as follows: [" + $LkW1 + "] [" + $LkW2 + "] [" + $LkW3 + "] [" + $LkW4 + "] [" + $LkW5 + "]",8;
  1257. announce "The numbers are as follows: [" + $LkW6 + "] [" + $LkW7 + "] [" + $LkW8 + "] [" + $LkW9 + "] [" + $LkW10 + "]",8;
  1258. announce "The numbers are as follows: [" + $LkW11 + "] [" + $LkW12 + "] [" + $LkW13 + "] [" + $LkW14 + "] [" + $LkW15 + "]",8;
  1259. announce "The numbers are as follows: [" + $LkW16 + "] [" + $LkW17 + "]  [" + $LkW18 + "] [" + $LkW19 + "] [" + $LkW20 + "]",8;
  1260. announce "Congratulations to the winners!",8;
  1261.  
  1262. // GENERATES DRAW ID CODE
  1263. KENO_GenID:
  1264. set $LKID2,$LKID;
  1265. // setS TOMORROW'S ID NUMBER
  1266. set $LKID,rand (100000,999999);
  1267. close;
  1268.  
  1269. // setS DRAW TO RIGGED NUMBERS
  1270. KENO_Rigged_Draw:
  1271. set $LkW1,$LkR1;
  1272. set $LkW2,$LkR2;
  1273. set $LkW3,$LkR3;
  1274. set $LkW4,$LkR4;
  1275. set $LkW5,$LkR5;
  1276. set $LkW6,$LkR6;
  1277. set $LkW7,$LkR7;
  1278. set $LkW8,$LkR8;
  1279. set $LkW9,$LkR9;
  1280. set $LkW10,$LkR10;
  1281. set $LkW11,$LkR11;
  1282. set $LkW12,$LkR12;
  1283. set $LkW13,$LkR13;
  1284. set $LkW14,$LkR14;
  1285. set $LkW15,$LkR15;
  1286. set $LkW16,$LkR16;
  1287. set $LkW17,$LkR17;
  1288. set $LkW18,$LkR18;
  1289. set $LkW19,$LkR19;
  1290. set $LkW20,$LkR20;
  1291. set $KENO_Rigged,0;
  1292. goto KENO_Broadcast;
  1293.  
  1294. // ALLOWS GM TO DO A RIGGED DRAW
  1295. KENO_GM_Rig:
  1296. mes "[^008800Keno Teller^000000]";
  1297. mes "Please pick your numbers (1-80):";
  1298. set $LkR1,0;
  1299. set $LkR2,0;
  1300. set $LkR3,0;
  1301. set $LkR4,0;
  1302. set $LkR5,0;
  1303. set $LkR6,0;
  1304. set $LkR7,0;
  1305. set $LkR8,0;
  1306. set $LkR9,0;
  1307. set $LkR10,0;
  1308. set $LkR11,0;
  1309. set $LkR12,0;
  1310. set $LkR13,0;
  1311. set $LkR14,0;
  1312. set $LkR15,0;
  1313. set $LkR16,0;
  1314. set $LkR17,0;
  1315. set $LkR18,0;
  1316. set $LkR19,0;
  1317. set $LkR20,0;
  1318. GMKninput1:
  1319. input $LkR1;
  1320. if ($LkR1 < 1 || $LkR1 > 80) goto GMKninput1;
  1321. mes $LkR1;
  1322. GMKninput2:
  1323. input $LkR2;
  1324. if ($LkR2 < 1 || $LkR2 > 80) goto GMKninput2;
  1325. if ($LkR2 == $LkR1) goto GMKninput2;
  1326. mes $LkR2;
  1327. GMKninput3:
  1328. input $LkR3;
  1329. if ($LkR3 < 1 || $LkR3 > 80) goto GMKninput3;
  1330. if ($LkR3 == $LkR1) goto GMKninput3;
  1331. if ($LkR3 == $LkR2) goto GMKninput3;
  1332. mes $LkR3;
  1333. GMKninput4:
  1334. input $LkR4;
  1335. if ($LkR4 < 1 || $LkR4 > 80) goto GMKninput4;
  1336. if ($LkR4 == $LkR1) goto GMKninput4;
  1337. if ($LkR4 == $LkR2) goto GMKninput4;
  1338. if ($LkR4 == $LkR3) goto GMKninput4;
  1339. mes $LkR4;
  1340. GMKninput5:
  1341. input $LkR5;
  1342. if ($LkR5 < 1 || $LkR5 > 80) goto GMKninput5;
  1343. if ($LkR5 == $LkR1) goto GMKninput5;
  1344. if ($LkR5 == $LkR2) goto GMKninput5;
  1345. if ($LkR5 == $LkR3) goto GMKninput5;
  1346. if ($LkR5 == $LkR4) goto GMKninput5;
  1347. mes $LkR5;
  1348. GMKninput6:
  1349. input $LkR6;
  1350. if ($LkR6 < 1 || $LkR6 > 80) goto GMKninput6;
  1351. if ($LkR6 == $LkR1) goto GMKninput6;
  1352. if ($LkR6 == $LkR2) goto GMKninput6;
  1353. if ($LkR6 == $LkR3) goto GMKninput6;
  1354. if ($LkR6 == $LkR4) goto GMKninput6;
  1355. if ($LkR6 == $LkR5) goto GMKninput6;
  1356. mes $LkR6;
  1357. GMKninput7:
  1358. input $LkR7;
  1359. if ($LkR7 < 1 || $LkR7 > 80) goto GMKninput7;
  1360. if ($LkR7 == $LkR1) goto GMKninput7;
  1361. if ($LkR7 == $LkR2) goto GMKninput7;
  1362. if ($LkR7 == $LkR3) goto GMKninput7;
  1363. if ($LkR7 == $LkR4) goto GMKninput7;
  1364. if ($LkR7 == $LkR5) goto GMKninput7;
  1365. if ($LkR7 == $LkR6) goto GMKninput7;
  1366. mes $LkR7;
  1367. GMKninput8:
  1368. input $LkR8;
  1369. if ($LkR8 < 1 || $LkR8 > 80) goto GMKninput8;
  1370. if ($LkR8 == $LkR1) goto GMKninput8;
  1371. if ($LkR8 == $LkR2) goto GMKninput8;
  1372. if ($LkR8 == $LkR3) goto GMKninput8;
  1373. if ($LkR8 == $LkR4) goto GMKninput8;
  1374. if ($LkR8 == $LkR5) goto GMKninput8;
  1375. if ($LkR8 == $LkR6) goto GMKninput8;
  1376. if ($LkR8 == $LkR7) goto GMKninput8;
  1377. mes $LkR8;
  1378. GMKninput9:
  1379. input $LkR9;
  1380. if ($LkR9 < 1 || $LkR9 > 80) goto GMKninput9;
  1381. if ($LkR9 == $LkR1) goto GMKninput9;
  1382. if ($LkR9 == $LkR2) goto GMKninput9;
  1383. if ($LkR9 == $LkR3) goto GMKninput9;
  1384. if ($LkR9 == $LkR4) goto GMKninput9;
  1385. if ($LkR9 == $LkR5) goto GMKninput9;
  1386. if ($LkR9 == $LkR6) goto GMKninput9;
  1387. if ($LkR9 == $LkR7) goto GMKninput9;
  1388. if ($LkR9 == $LkR8) goto GMKninput9;
  1389. mes $LkR9;
  1390. GMKninput10:
  1391. input $LkR10;
  1392. if ($LkR10 < 1 || $LkR10 > 80) goto GMKninput10;
  1393. if ($LkR10 == $LkR1) goto GMKninput10;
  1394. if ($LkR10 == $LkR2) goto GMKninput10;
  1395. if ($LkR10 == $LkR3) goto GMKninput10;
  1396. if ($LkR10 == $LkR4) goto GMKninput10;
  1397. if ($LkR10 == $LkR5) goto GMKninput10;
  1398. if ($LkR10 == $LkR6) goto GMKninput10;
  1399. if ($LkR10 == $LkR7) goto GMKninput10;
  1400. if ($LkR10 == $LkR8) goto GMKninput10;
  1401. if ($LkR10 == $LkR9) goto GMKninput10;
  1402. mes $LkR10;
  1403. GMKninput11:
  1404. input $LkR11;
  1405. if ($LkR11 < 1 || $LkR11 > 80) goto GMKninput11;
  1406. if ($LkR11 == $LkR1) goto GMKninput11;
  1407. if ($LkR11 == $LkR2) goto GMKninput11;
  1408. if ($LkR11 == $LkR3) goto GMKninput11;
  1409. if ($LkR11 == $LkR4) goto GMKninput11;
  1410. if ($LkR11 == $LkR5) goto GMKninput11;
  1411. if ($LkR11 == $LkR6) goto GMKninput11;
  1412. if ($LkR11 == $LkR7) goto GMKninput11;
  1413. if ($LkR11 == $LkR8) goto GMKninput11;
  1414. if ($LkR11 == $LkR9) goto GMKninput11;
  1415. if ($LkR11 == $LkR10) goto GMKninput11;
  1416. mes $LkR11;
  1417. GMKninput12:
  1418. input $LkR12;
  1419. if ($LkR12 < 1 || $LkR12 > 80) goto GMKninput12;
  1420. if ($LkR12 == $LkR1) goto GMKninput12;
  1421. if ($LkR12 == $LkR2) goto GMKninput12;
  1422. if ($LkR12 == $LkR3) goto GMKninput12;
  1423. if ($LkR12 == $LkR4) goto GMKninput12;
  1424. if ($LkR12 == $LkR5) goto GMKninput12;
  1425. if ($LkR12 == $LkR6) goto GMKninput12;
  1426. if ($LkR12 == $LkR7) goto GMKninput12;
  1427. if ($LkR12 == $LkR8) goto GMKninput12;
  1428. if ($LkR12 == $LkR9) goto GMKninput12;
  1429. if ($LkR12 == $LkR10) goto GMKninput12;
  1430. if ($LkR12 == $LkR11) goto GMKninput12;
  1431. mes $LkR12;
  1432. GMKninput13:
  1433. input $LkR13;
  1434. if ($LkR13 < 1 || $LkR13 > 80) goto GMKninput13;
  1435. if ($LkR13 == $LkR1) goto GMKninput13;
  1436. if ($LkR13 == $LkR2) goto GMKninput13;
  1437. if ($LkR13 == $LkR3) goto GMKninput13;
  1438. if ($LkR13 == $LkR4) goto GMKninput13;
  1439. if ($LkR13 == $LkR5) goto GMKninput13;
  1440. if ($LkR13 == $LkR6) goto GMKninput13;
  1441. if ($LkR13 == $LkR7) goto GMKninput13;
  1442. if ($LkR13 == $LkR8) goto GMKninput13;
  1443. if ($LkR13 == $LkR9) goto GMKninput13;
  1444. if ($LkR13 == $LkR10) goto GMKninput13;
  1445. if ($LkR13 == $LkR11) goto GMKninput13;
  1446. if ($LkR13 == $LkR12) goto GMKninput13;
  1447. mes $LkR13;
  1448. GMKninput14:
  1449. input $LkR14;
  1450. if ($LkR14 < 1 || $LkR14 > 80) goto GMKninput14;
  1451. if ($LkR14 == $LkR1) goto GMKninput14;
  1452. if ($LkR14 == $LkR2) goto GMKninput14;
  1453. if ($LkR14 == $LkR3) goto GMKninput14;
  1454. if ($LkR14 == $LkR4) goto GMKninput14;
  1455. if ($LkR14 == $LkR5) goto GMKninput14;
  1456. if ($LkR14 == $LkR6) goto GMKninput14;
  1457. if ($LkR14 == $LkR7) goto GMKninput14;
  1458. if ($LkR14 == $LkR8) goto GMKninput14;
  1459. if ($LkR14 == $LkR9) goto GMKninput14;
  1460. if ($LkR14 == $LkR10) goto GMKninput14;
  1461. if ($LkR14 == $LkR11) goto GMKninput14;
  1462. if ($LkR14 == $LkR12) goto GMKninput14;
  1463. if ($LkR14 == $LkR13) goto GMKninput14;
  1464. mes $LkR14;
  1465. GMKninput15:
  1466. input $LkR15;
  1467. if ($LkR15 < 1 || $LkR15 > 80) goto GMKninput15;
  1468. if ($LkR15 == $LkR1) goto GMKninput15;
  1469. if ($LkR15 == $LkR2) goto GMKninput15;
  1470. if ($LkR15 == $LkR3) goto GMKninput15;
  1471. if ($LkR15 == $LkR4) goto GMKninput15;
  1472. if ($LkR15 == $LkR5) goto GMKninput15;
  1473. if ($LkR15 == $LkR6) goto GMKninput15;
  1474. if ($LkR15 == $LkR7) goto GMKninput15;
  1475. if ($LkR15 == $LkR8) goto GMKninput15;
  1476. if ($LkR15 == $LkR9) goto GMKninput15;
  1477. if ($LkR15 == $LkR10) goto GMKninput15;
  1478. if ($LkR15 == $LkR11) goto GMKninput15;
  1479. if ($LkR15 == $LkR12) goto GMKninput15;
  1480. if ($LkR15 == $LkR13) goto GMKninput15;
  1481. if ($LkR15 == $LkR14) goto GMKninput15;
  1482. mes $LkR15;
  1483. GMKninput16:
  1484. input $LkR16;
  1485. if ($LkR16 < 1 || $LkR16 > 80) goto GMKninput16;
  1486. if ($LkR16 == $LkR1) goto GMKninput16;
  1487. if ($LkR16 == $LkR2) goto GMKninput16;
  1488. if ($LkR16 == $LkR3) goto GMKninput16;
  1489. if ($LkR16 == $LkR4) goto GMKninput16;
  1490. if ($LkR16 == $LkR5) goto GMKninput16;
  1491. if ($LkR16 == $LkR6) goto GMKninput16;
  1492. if ($LkR16 == $LkR7) goto GMKninput16;
  1493. if ($LkR16 == $LkR8) goto GMKninput16;
  1494. if ($LkR16 == $LkR9) goto GMKninput16;
  1495. if ($LkR16 == $LkR10) goto GMKninput16;
  1496. if ($LkR16 == $LkR11) goto GMKninput16;
  1497. if ($LkR16 == $LkR12) goto GMKninput16;
  1498. if ($LkR16 == $LkR13) goto GMKninput16;
  1499. if ($LkR16 == $LkR14) goto GMKninput16;
  1500. if ($LkR16 == $LkR15) goto GMKninput16;
  1501. mes $LkR16;
  1502. GMKninput17:
  1503. input $LkR17;
  1504. if ($LkR17 < 1 || $LkR17 > 80) goto GMKninput17;
  1505. if ($LkR17 == $LkR1) goto GMKninput17;
  1506. if ($LkR17 == $LkR2) goto GMKninput17;
  1507. if ($LkR17 == $LkR3) goto GMKninput17;
  1508. if ($LkR17 == $LkR4) goto GMKninput17;
  1509. if ($LkR17 == $LkR5) goto GMKninput17;
  1510. if ($LkR17 == $LkR6) goto GMKninput17;
  1511. if ($LkR17 == $LkR7) goto GMKninput17;
  1512. if ($LkR17 == $LkR8) goto GMKninput17;
  1513. if ($LkR17 == $LkR9) goto GMKninput17;
  1514. if ($LkR17 == $LkR10) goto GMKninput17;
  1515. if ($LkR17 == $LkR11) goto GMKninput17;
  1516. if ($LkR17 == $LkR12) goto GMKninput17;
  1517. if ($LkR17 == $LkR13) goto GMKninput17;
  1518. if ($LkR17 == $LkR14) goto GMKninput17;
  1519. if ($LkR17 == $LkR15) goto GMKninput17;
  1520. if ($LkR17 == $LkR16) goto GMKninput17;
  1521. mes $LkR17;
  1522. GMKninput18:
  1523. input $LkR18;
  1524. if ($LkR18 < 1 || $LkR18 > 80) goto GMKninput18;
  1525. if ($LkR18 == $LkR1) goto GMKninput18;
  1526. if ($LkR18 == $LkR2) goto GMKninput18;
  1527. if ($LkR18 == $LkR3) goto GMKninput18;
  1528. if ($LkR18 == $LkR4) goto GMKninput18;
  1529. if ($LkR18 == $LkR5) goto GMKninput18;
  1530. if ($LkR18 == $LkR6) goto GMKninput18;
  1531. if ($LkR18 == $LkR7) goto GMKninput18;
  1532. if ($LkR18 == $LkR8) goto GMKninput18;
  1533. if ($LkR18 == $LkR9) goto GMKninput18;
  1534. if ($LkR18 == $LkR10) goto GMKninput18;
  1535. if ($LkR18 == $LkR11) goto GMKninput18;
  1536. if ($LkR18 == $LkR12) goto GMKninput18;
  1537. if ($LkR18 == $LkR13) goto GMKninput18;
  1538. if ($LkR18 == $LkR14) goto GMKninput18;
  1539. if ($LkR18 == $LkR15) goto GMKninput18;
  1540. if ($LkR18 == $LkR16) goto GMKninput18;
  1541. if ($LkR18 == $LkR17) goto GMKninput18;
  1542. mes $LkR18;
  1543. GMKninput19:
  1544. input $LkR19;
  1545. if ($LkR19 < 1 || $LkR19 > 80) goto GMKninput19;
  1546. if ($LkR19 == $LkR1) goto GMKninput19;
  1547. if ($LkR19 == $LkR2) goto GMKninput19;
  1548. if ($LkR19 == $LkR3) goto GMKninput19;
  1549. if ($LkR19 == $LkR4) goto GMKninput19;
  1550. if ($LkR19 == $LkR5) goto GMKninput19;
  1551. if ($LkR19 == $LkR6) goto GMKninput19;
  1552. if ($LkR19 == $LkR7) goto GMKninput19;
  1553. if ($LkR19 == $LkR8) goto GMKninput19;
  1554. if ($LkR19 == $LkR9) goto GMKninput19;
  1555. if ($LkR19 == $LkR10) goto GMKninput19;
  1556. if ($LkR19 == $LkR11) goto GMKninput19;
  1557. if ($LkR19 == $LkR12) goto GMKninput19;
  1558. if ($LkR19 == $LkR13) goto GMKninput19;
  1559. if ($LkR19 == $LkR14) goto GMKninput19;
  1560. if ($LkR19 == $LkR15) goto GMKninput19;
  1561. if ($LkR19 == $LkR16) goto GMKninput19;
  1562. if ($LkR19 == $LkR17) goto GMKninput19;
  1563. if ($LkR19 == $LkR18) goto GMKninput19;
  1564. mes $LkR19;
  1565. GMKninput20:
  1566. input $LkR20;
  1567. if ($LkR20 < 1 || $LkR20 > 80) goto GMKninput20;
  1568. if ($LkR20 == $LkR1) goto GMKninput20;
  1569. if ($LkR20 == $LkR2) goto GMKninput20;
  1570. if ($LkR20 == $LkR3) goto GMKninput20;
  1571. if ($LkR20 == $LkR4) goto GMKninput20;
  1572. if ($LkR20 == $LkR5) goto GMKninput20;
  1573. if ($LkR20 == $LkR6) goto GMKninput20;
  1574. if ($LkR20 == $LkR7) goto GMKninput20;
  1575. if ($LkR20 == $LkR8) goto GMKninput20;
  1576. if ($LkR20 == $LkR9) goto GMKninput20;
  1577. if ($LkR20 == $LkR10) goto GMKninput20;
  1578. if ($LkR20 == $LkR11) goto GMKninput20;
  1579. if ($LkR20 == $LkR12) goto GMKninput20;
  1580. if ($LkR20 == $LkR13) goto GMKninput20;
  1581. if ($LkR20 == $LkR14) goto GMKninput20;
  1582. if ($LkR20 == $LkR15) goto GMKninput20;
  1583. if ($LkR20 == $LkR16) goto GMKninput20;
  1584. if ($LkR20 == $LkR17) goto GMKninput20;
  1585. if ($LkR20 == $LkR18) goto GMKninput20;
  1586. if ($LkR20 == $LkR19) goto GMKninput20;
  1587. mes $LkR20;
  1588. next;
  1589. mes "[^008800Keno Teller^000000]";
  1590. mes "Lottery rigged for next draw.";
  1591. set $KENO_Rigged,1;
  1592. close;
  1593. }
  1594.  
  1595. prontera,166,198,5	duplicate(klottery)	Keno Lotto Teller	817
Viewed 1558 times, submitted by Guest.