themon

January 19, 2014

well can someone help me? I can only make 2013 clients work up to 08-14-2013 but not 12-23-2013 client. Whenever I run that 12-23-2013 client, it does nothing at all, it doesnt show anything, its not running at all, no window or whatever. And also whenever I close the client 08-14-2013 it's not totally terminating the program, I still have to terminate it manually in task manager @_@ I dont know for other 2013 clients but yah it's bothering me a lot.

maybe you should post your diff list. and where did you get your 12-23-2013 client is that the one that is cleaned by Neo?

about 08-14-2013 client I used that before and mine works fine. when I close it the program is tottaly terminated.

January 15, 2014

I just put comment on this line in clif.c

//if (sd->menuskill_id != SA_TAMINGMONSTER || sd->menuskill_val != -1) {
//Forged packet, disconnect them [Kevin]
//clif->authfail_fd(fd, 0);
//return;
// }

Then compile the server
And the pet hatch error is gone in 2013-12-23cRagexe.exe client

January 14, 2014

How can I make it show Hp/Hpmax, mob lvl, and hp bar of the mob at the same time?

/ Display some mob info next to their name? (add as needed)

// (does not works on guardian or Emperium)

// 1: Display mob HP (Hp/MaxHp format)

// 2: Display mob HP (Percent of full life format)

// 4: Display mob's level

show_mob_info: 0 <--- what should I put to show all?

January 14, 2014

Ako pag naranasan ko na yung same problem nila at nasolve na dati. Try ko din sila tulungan.

January 14, 2014

yes! nasama din ako! -- KSP

mayureemeka · January 14, 2014

@Yommy
one more thing when I test the new server and hatch the pet egg using my old 20130814Ragexe client I notice that my pet level is 300 after hatch

nevermind I solved this also

January 14, 2014

@kase test this and see if you will get the same error

https://www.mediafire.com/folder/hg3wqu9a1cc7w/ready%20made

or

change

<address>zapdos.gamerlive.cl</address>

to

January 14, 2014

@malufett pano ba gamitin yung bagong plugin ni Ind. di ko kasi alam mag hook

January 14, 2014

using WPE

Pet Hatch 20130814Ragexe client

[cbox]send A7 01 1A 00

receive 58 08 40 00 07 35 BF 8E 06 96 00 00 00 00 00 00 00 00 00 F3 03 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 26 CB 42 00 00 00 00 00 00 A4 01 00 35 BF 8E 06 00 00 00 00 A4 01 05 35 BF 8E 06 64 00 00 00 A4 01 03 35 BF 8E 06 00 00 00 00 A2 01 43 68 6F 6E 43 68 6F 6E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2C 01 64 00[/cbox]

Pet Hatch 20131223Ragexe Client

[cbox]send A7 01 FF FF

recieve 81 00 00[/cbox]

packet(0x????,4,clif->pSelectEgg,2);

20130814Ragexe Packet tested by me

[cbox]#if PACKETVER >= 20130814

packetKeys(0x23A23148,0x0C41420E,0x53785AD7); /* THEMON */

packet(0x0874,7,clif->pActionRequest,2,6);

packet(0x0947,10,clif->pUseSkillToId,2,4,6);

packet(0x093A,5,clif->pWalkToXY,2);

packet(0x088A,6,clif->pTickSend,2);

packet(0x088c,5,clif->pChangeDir,2,4);

packet(0x0926,6,clif->pTakeItem,2);

packet(0x095F,6,clif->pDropItem,2,4);

packet(0x0202,8,clif->pMoveToKafra,2,4);

packet(0x0873,8,clif->pMoveFromKafra,2,4);

packet(0x0887,10,clif->pUseSkillToPos,2,4,6,8);

packet(0x0962,90,clif->pUseSkillToPosMoreInfo,2,4,6,8,10);

packet(0x0937,6,clif->pGetCharNameRequest,2);

packet(0x0959,18,clif->pPartyBookingRegisterReq,2,4,6);

packet(0x0368,19,clif->pWantToConnection,2,6,10,14,18);

packet(0x0281,26,clif->pFriendsListAdd,2);

packet(0x0927,26,clif->pPartyInvite2,2);

packet(0x0958,5,clif->pHomMenu,2,4);

#endif[/cbox]

January 14, 2014

@ossi0110 this is from our topic in rathena forum

This is working on hercules but still have many bugs like pet hatch error and some diff still don't work

bugs ?

the patch hatch error is a servside bug

some diffs still nt working ? Oo all officiel diffs are working , you should update your nemo patcher

I try to use the same server and then use my old 20130814Ragexe client and the pet hatch work!!

maybe Neo have accidentally deleted something when he cleaned the 20131223cRagexe client

January 14, 2014

will this be included in hercules master in github?

January 14, 2014

post your clientinfo.xml?

and one thing 2013-08-07 Ragexe don't need loki launcher to run. just diff your client "Disable 1rag1 parameters"

January 14, 2014

Sir @Ind,

Can you try to open Yggdrasil Box(10) #14232 and Elite Siege Supply #14003. It seems some of the packageitem(); is not fully working to me.

On screenshot below, after clicking 'Ok' button, nothing happen.

NOTE: I'm using fresh Hercules SVN latest.

1.JPG

And here's the console errors I got when I open some of the items that has packageitem(); on item_db.

2.JPG

to fix this error compile and configure conf folder then run the server before you modify or put any custom setup

January 13, 2014

prontera,157,284,4 shop Sheepy Gonzales 4_F_KHELLY,12028:1000,12262:500,12016:750

This is causing a minor error 12016:750 the price is to low

January 12, 2014

@rufus Enable Multiple GRFs (Recommended) works now just download 20131223cRagexe.exe clean by Neo

Oh!! just see this. Do you mean this http://www.mediafire.com/download/cc4vfdrdd4r15hb/2013-12-23cRagexe.rar ?

I use Enable Multiple GRFs (Recommended) or Enable Multiple GRFs - Embedded is no error message. But it Invalid. Feel it still read data.gfr first.

check you data.ini, mine is working fine.

January 11, 2014

@rufus Enable Multiple GRFs (Recommended) works now just download 20131223cRagexe.exe clean by Neo

January 11, 2014

its much better leave it that way.

January 10, 2014

you can try this Keno Lotto also if you like

[cbox]prontera,166,198,5 script Klotterygenerator 817,{

OnInit:

waitingroom "Let's Play Keno Lotto",0;

set $KENO_TicketPrice,10; // TICKET COST

set $KENO_Prize_Money,30000000; // JACKPOT AMOUNT

if ($LKID == 0) goto KENO_GenID;

end;

//Modify for own time

//add any other HOURS

OnClock0000:

OnClock0100:

OnClock0200:

OnClock0300:

OnClock0400:

OnClock0500:

OnClock0600:

OnClock0700:

OnClock0800:

OnClock0900:

OnClock1000:

OnClock1100:

OnClock1200:

OnClock1300:

OnClock1400:

OnClock1500:

OnClock1600:

OnClock1700:

OnClock1800:

OnClock1900:

OnClock2000:

OnClock2100:

OnClock2200:

OnClock2300:

//-------------------

// CHECKS IF LOTTERY IS RIGGED

if ($KENO_Rigged == 1) goto KENO_Rigged_Draw;

// GENERATES RANDOM NUMBERS 1-80

KPick1:

set $LkW1,rand (1,80);

KPick2:

set $LkW2,rand (1,80);

if ($LkW2 == $LkW1) goto KPick2;

KPick3:

set $LkW3,rand (1,80);

if ($LkW3 == $LkW2) goto KPick3;

if ($LkW3 == $LkW1) goto KPick3;

KPick4:

set $LkW4,rand (1,80);

if ($LkW4 == $LkW2) goto KPick4;

if ($LkW4 == $LkW1) goto KPick4;

if ($LkW4 == $LkW3) goto KPick4;

KPick5:

set $LkW5,rand (1,80);

if ($LkW5 == $LkW1) goto KPick5;

if ($LkW5 == $LkW2) goto KPick5;

if ($LkW5 == $LkW3) goto KPick5;

if ($LkW5 == $LkW4) goto KPick5;

KPick6:

set $LkW6,rand (1,80);

if ($LkW6 == $LkW1) goto KPick6;

if ($LkW6 == $LkW2) goto KPick6;

if ($LkW6 == $LkW3) goto KPick6;

if ($LkW6 == $LkW4) goto KPick6;

if ($LkW6 == $LkW5) goto KPick6;

KPick7:

set $LkW7,rand (1,80);

if ($LkW7 == $LkW1) goto KPick7;

if ($LkW7 == $LkW2) goto KPick7;

if ($LkW7 == $LkW3) goto KPick7;

if ($LkW7 == $LkW4) goto KPick7;

if ($LkW7 == $LkW5) goto KPick7;

if ($LkW7 == $LkW6) goto KPick7;

KPick8:

set $LkW8,rand (1,80);

if ($LkW8 == $LkW1) goto KPick8;

if ($LkW8 == $LkW2) goto KPick8;

if ($LkW8 == $LkW3) goto KPick8;

if ($LkW8 == $LkW4) goto KPick8;

if ($LkW8 == $LkW5) goto KPick8;

if ($LkW8 == $LkW6) goto KPick8;

if ($LkW8 == $LkW7) goto KPick8;

KPick9:

set $LkW9,rand (1,80);

if ($LkW9 == $LkW1) goto KPick9;

if ($LkW9 == $LkW2) goto KPick9;

if ($LkW9 == $LkW3) goto KPick9;

if ($LkW9 == $LkW4) goto KPick9;

if ($LkW9 == $LkW5) goto KPick9;

if ($LkW9 == $LkW6) goto KPick9;

if ($LkW9 == $LkW7) goto KPick9;

if ($LkW9 == $LkW8) goto KPick9;

KPick10:

set $LkW10,rand (1,80);

if ($LkW10 == $LkW1) goto KPick10;

if ($LkW10 == $LkW2) goto KPick10;

if ($LkW10 == $LkW3) goto KPick10;

if ($LkW10 == $LkW4) goto KPick10;

if ($LkW10 == $LkW5) goto KPick10;

if ($LkW10 == $LkW6) goto KPick10;

if ($LkW10 == $LkW7) goto KPick10;

if ($LkW10 == $LkW8) goto KPick10;

if ($LkW10 == $LkW9) goto KPick10;

KPick11:

set $LkW11,rand (1,80);

if ($LkW11 == $LkW1) goto KPick11;

if ($LkW11 == $LkW2) goto KPick11;

if ($LkW11 == $LkW3) goto KPick11;

if ($LkW11 == $LkW4) goto KPick11;

if ($LkW11 == $LkW5) goto KPick11;

if ($LkW11 == $LkW6) goto KPick11;

if ($LkW11 == $LkW7) goto KPick11;

if ($LkW11 == $LkW8) goto KPick11;

if ($LkW11 == $LkW9) goto KPick11;

if ($LkW11 == $LkW10) goto KPick11;

KPick12:

set $LkW12,rand (1,80);

if ($LkW12 == $LkW1) goto KPick12;

if ($LkW12 == $LkW2) goto KPick12;

if ($LkW12 == $LkW3) goto KPick12;

if ($LkW12 == $LkW4) goto KPick12;

if ($LkW12 == $LkW5) goto KPick12;

if ($LkW12 == $LkW6) goto KPick12;

if ($LkW12 == $LkW7) goto KPick12;

if ($LkW12 == $LkW8) goto KPick12;

if ($LkW12 == $LkW9) goto KPick12;

if ($LkW12 == $LkW10) goto KPick12;

if ($LkW12 == $LkW11) goto KPick12;

KPick13:

set $LkW13,rand (1,80);

if ($LkW13 == $LkW1) goto KPick13;

if ($LkW13 == $LkW2) goto KPick13;

if ($LkW13 == $LkW3) goto KPick13;

if ($LkW13 == $LkW4) goto KPick13;

if ($LkW13 == $LkW5) goto KPick13;

if ($LkW13 == $LkW6) goto KPick13;

if ($LkW13 == $LkW7) goto KPick13;

if ($LkW13 == $LkW8) goto KPick13;

if ($LkW13 == $LkW9) goto KPick13;

if ($LkW13 == $LkW10) goto KPick13;

if ($LkW13 == $LkW11) goto KPick13;

if ($LkW13 == $LkW12) goto KPick13;

KPick14:

set $LkW14,rand (1,80);

if ($LkW14 == $LkW1) goto KPick14;

if ($LkW14 == $LkW2) goto KPick14;

if ($LkW14 == $LkW3) goto KPick14;

if ($LkW14 == $LkW4) goto KPick14;

if ($LkW14 == $LkW5) goto KPick14;

if ($LkW14 == $LkW6) goto KPick14;

if ($LkW14 == $LkW7) goto KPick14;

if ($LkW14 == $LkW8) goto KPick14;

if ($LkW14 == $LkW9) goto KPick14;

if ($LkW14 == $LkW10) goto KPick14;

if ($LkW14 == $LkW11) goto KPick14;

if ($LkW14 == $LkW12) goto KPick14;

if ($LkW14 == $LkW13) goto KPick14;

KPick15:

set $LkW15,rand (1,80);

if ($LkW15 == $LkW1) goto KPick15;

if ($LkW15 == $LkW2) goto KPick15;

if ($LkW15 == $LkW3) goto KPick15;

if ($LkW15 == $LkW4) goto KPick15;

if ($LkW15 == $LkW5) goto KPick15;

if ($LkW15 == $LkW6) goto KPick15;

if ($LkW15 == $LkW7) goto KPick15;

if ($LkW15 == $LkW8) goto KPick15;

if ($LkW15 == $LkW9) goto KPick15;

if ($LkW15 == $LkW10) goto KPick15;

if ($LkW15 == $LkW11) goto KPick15;

if ($LkW15 == $LkW12) goto KPick15;

if ($LkW15 == $LkW13) goto KPick15;

if ($LkW15 == $LkW14) goto KPick15;

KPick16:

set $LkW16,rand (1,80);

if ($LkW16 == $LkW1) goto KPick16;

if ($LkW16 == $LkW2) goto KPick16;

if ($LkW16 == $LkW3) goto KPick16;

if ($LkW16 == $LkW4) goto KPick16;

if ($LkW16 == $LkW5) goto KPick16;

if ($LkW16 == $LkW6) goto KPick16;

if ($LkW16 == $LkW7) goto KPick16;

if ($LkW16 == $LkW8) goto KPick16;

if ($LkW16 == $LkW9) goto KPick16;

if ($LkW16 == $LkW10) goto KPick16;

if ($LkW16 == $LkW11) goto KPick16;

if ($LkW16 == $LkW12) goto KPick16;

if ($LkW16 == $LkW13) goto KPick16;

if ($LkW16 == $LkW14) goto KPick16;

if ($LkW16 == $LkW15) goto KPick16;

KPick17:

set $LkW17,rand (1,80);

if ($LkW17 == $LkW1) goto KPick17;

if ($LkW17 == $LkW2) goto KPick17;

if ($LkW17 == $LkW3) goto KPick17;

if ($LkW17 == $LkW4) goto KPick17;

if ($LkW17 == $LkW5) goto KPick17;

if ($LkW17 == $LkW6) goto KPick17;

if ($LkW17 == $LkW7) goto KPick17;

if ($LkW17 == $LkW8) goto KPick17;

if ($LkW17 == $LkW9) goto KPick17;

if ($LkW17 == $LkW10) goto KPick17;

if ($LkW17 == $LkW11) goto KPick17;

if ($LkW17 == $LkW12) goto KPick17;

if ($LkW17 == $LkW13) goto KPick17;

if ($LkW17 == $LkW14) goto KPick17;

if ($LkW17 == $LkW15) goto KPick17;

if ($LkW17 == $LkW16) goto KPick17;

KPick18:

set $LkW18,rand (1,80);

if ($LkW18 == $LkW1) goto KPick18;

if ($LkW18== $LkW2) goto KPick18;

if ($LkW18== $LkW3) goto KPick18;

if ($LkW18== $LkW4) goto KPick18;

if ($LkW18== $LkW5) goto KPick18;

if ($LkW18== $LkW6) goto KPick18;

if ($LkW18== $LkW7) goto KPick18;

if ($LkW18== $LkW8) goto KPick18;

if ($LkW18== $LkW9) goto KPick18;

if ($LkW18== $LkW10) goto KPick18;

if ($LkW18== $LkW11) goto KPick18;

if ($LkW18== $LkW12) goto KPick18;

if ($LkW18== $LkW13) goto KPick18;

if ($LkW18== $LkW14) goto KPick18;

if ($LkW18== $LkW15) goto KPick18;

if ($LkW18== $LkW16) goto KPick18;

if ($LkW18== $LkW17) goto KPick18;

KPick19:

set $LkW19,rand (1,80);

if ($LkW19 == $LkW1) goto KPick19;

if ($LkW19== $LkW2) goto KPick19;

if ($LkW19== $LkW3) goto KPick19;

if ($LkW19== $LkW4) goto KPick19;

if ($LkW19== $LkW5) goto KPick19;

if ($LkW19== $LkW6) goto KPick19;

if ($LkW19== $LkW7) goto KPick19;

if ($LkW19== $LkW8) goto KPick19;

if ($LkW19== $LkW9) goto KPick19;

if ($LkW19== $LkW10) goto KPick19;

if ($LkW19== $LkW11) goto KPick19;

if ($LkW19== $LkW12) goto KPick19;

if ($LkW19== $LkW13) goto KPick19;

if ($LkW19== $LkW14) goto KPick19;

if ($LkW19== $LkW15) goto KPick19;

if ($LkW19== $LkW16) goto KPick19;

if ($LkW19== $LkW17) goto KPick19;

if ($LkW19== $LkW18) goto KPick19;

KPick20:

set $LkW20,rand (1,80);

if ($LkW20 == $LkW1) goto KPick20;

if ($LkW20== $LkW2) goto KPick20;

if ($LkW20== $LkW3) goto KPick20;

if ($LkW20== $LkW4) goto KPick20;

if ($LkW20== $LkW5) goto KPick20;

if ($LkW20== $LkW6) goto KPick20;

if ($LkW20== $LkW7) goto KPick20;

if ($LkW20== $LkW8) goto KPick20;

if ($LkW20== $LkW9) goto KPick20;

if ($LkW20== $LkW10) goto KPick20;

if ($LkW20== $LkW11) goto KPick20;

if ($LkW20== $LkW12) goto KPick20;

if ($LkW20== $LkW13) goto KPick20;

if ($LkW20== $LkW14) goto KPick20;

if ($LkW20== $LkW15) goto KPick20;

if ($LkW20== $LkW16) goto KPick20;

if ($LkW20== $LkW17) goto KPick20;

if ($LkW20== $LkW18) goto KPick20;

if ($LkW20== $LkW19) goto KPick20;

// BROADCASTS DRAW

KENO_Broadcast:

announce "Keno Teller: Welcome to KENO Lotto draw!",8;

announce "The numbers are as follows: [" + $LkW1 + "] [" + $LkW2 + "] [" + $LkW3 + "] [" + $LkW4 + "] [" + $LkW5 + "]",8;

announce "The numbers are as follows: [" + $LkW6 + "] [" + $LkW7 + "] [" + $LkW8 + "] [" + $LkW9 + "] [" + $LkW10 + "]",8;

announce "The numbers are as follows: [" + $LkW11 + "] [" + $LkW12 + "] [" + $LkW13 + "] [" + $LkW14 + "] [" + $LkW15 + "]",8;

announce "The numbers are as follows: [" + $LkW16 + "] [" + $LkW17 + "] [" + $LkW18 + "] [" + $LkW19 + "] [" + $LkW20 + "]",8;

announce "Congratulations to the winners of " + gettimestr("%H:%M",21) + " Keno Draw ",8;

// GENERATES DRAW ID CODE

KENO_GenID:

set $LKID2,$LKID;

// setS TOMORROW'S ID NUMBER

set $LKID,rand (100000,999999);

end;

// setS DRAW TO RIGGED NUMBERS

KENO_Rigged_Draw:

set $LkW1,$LkR1;

set $LkW2,$LkR2;

set $LkW3,$LkR3;

set $LkW4,$LkR4;

set $LkW5,$LkR5;

set $LkW6,$LkR6;

set $LkW7,$LkR7;

set $LkW8,$LkR8;

set $LkW9,$LkR9;

set $LkW10,$LkR10;

set $LkW11,$LkR11;

set $LkW12,$LkR12;

set $LkW13,$LkR13;

set $LkW14,$LkR14;

set $LkW15,$LkR15;

set $LkW16,$LkR16;

set $LkW17,$LkR17;

set $LkW18,$LkR18;

set $LkW19,$LkR19;

set $LkW20,$LkR20;

set $KENO_Rigged,0;

goto KENO_Broadcast;

}

// BEGIN LOTTERY SCRIPT

- script klottery 76,{

KENO_Begin:

mes "[^008800Keno Teller^000000]";

mes "Winning KENO Lotto Numbers (^00FF00"+$LKID2+"^000000):";

mes "^FF0000[" + $LkW1 + "] [" + $LkW2 + "] [" + $LkW3 + "] [" + $LkW4 + "] [" + $LkW5 + "]^000000";

mes "^0000FF[" + $LkW6 + "] [" + $LkW7 + "] [" + $LkW8 + "] [" + $LkW9 + "] [" + $LkW10 + "]^000000";

mes "^FF0000[" + $LkW11 + "] [" + $LkW12 + "] [" + $LkW13 + "] [" + $LkW14 + "] [" + $LkW15 + "]^000000";

mes "^0000FF[" + $LkW16 + "] [" + $LkW17 + "] [" + $LkW18 + "] [" + $LkW19 + "] [" + $LkW20 + "]^000000";

if ($LKID > 99999) mes "Your Ticket ("+#LkID+"):";

if ($LKID > 99999) mes "^FF0000[" + #LkW1 + "] [" + #LkW2 + "] [" + #LkW3 + "] [" + #LkW4 + "] [" + #LkW5 + "]^000000";

mes "^0000FF[" + #LkW6 + "] [" + #LkW7 + "] [" + #LkW8 + "] [" + #LkW9 + "] [" + #LkW10 + "]^000000";

mes "Next Draw-ID: ^FF0000" + $LKID + "^000000.";

next;

if (getgmlevel() > 90) goto KENO_GM;

menu "Claim Prize",KENO_Claim,"Buy New Ticket",KENO_Buy,"Cancel",KENO_Cancel;

// PURCHASE TICKET

KENO_Buy:

if (#LkID == $LKID && #LkW1 != 0) goto KENO_DoubleTicket;

mes "[^008800Keno Teller^000000]";

mes "Tickets cost ^0000FF" + $KENO_TicketPrice + "z^000000.";

mes "The Jackpot is ^FF0000" + $KENO_Prize_Money + "z^000000.";

next;

menu "Buy Ticket",-,"Cancel",KENO_Cancel;

if (Zeny < $KENO_TicketPrice) goto KENO_NoZeny;

set Zeny,Zeny-$KENO_TicketPrice;

mes "[^008800Keno Teller^000000]";

mes "Would you like your numbers hand Picked or computer generated?";

next;

menu "Computer Generated",KENO_ComputerGen,"Hand Picked",KENO_HandPick,"Renew Ticket",KENO_Renew;

// RENEW LAST TICKET

KENO_Renew:

if ($LKID < 99999) goto KENO_Invalid;

set #LkID,$LKID;

goto KENO_Confirm2;

KENO_ComputerGen:

// SELECTS RANDOM NUMBERS

set @Lk1,0;

set @Lk2,0;

set @Lk3,0;

set @Lk4,0;

set @Lk5,0;

set @Lk6,0;

set @Lk7,0;

set @Lk8,0;

set @Lk9,0;

set @Lk10,0;

KPick1:

set @Lk1,rand (1,80);

KPick2:

set @Lk2,rand (1,80);

if (@Lk2 == @Lk1) goto KPick2;

KPick3:

set @Lk3,rand (1,80);

if (@Lk3 == @Lk2) goto KPick3;

if (@Lk3 == @Lk1) goto KPick3;

KPick4:

set @Lk4,rand (1,80);

if (@Lk4 == @Lk2) goto KPick4;

if (@Lk4 == @Lk1) goto KPick4;

if (@Lk4 == @Lk3) goto KPick4;

KPick5:

set @Lk5,rand (1,80);

if (@Lk5 == @Lk1) goto KPick5;

if (@Lk5 == @Lk2) goto KPick5;

if (@Lk5 == @Lk3) goto KPick5;

if (@Lk5 == @Lk4) goto KPick5;

KPick6:

set @Lk6,rand (1,80);

if (@Lk6 == @Lk1) goto KPick6;

if (@Lk6 == @Lk2) goto KPick6;

if (@Lk6 == @Lk3) goto KPick6;

if (@Lk6 == @Lk4) goto KPick6;

if (@Lk6 == @Lk5) goto KPick6;

KPick7:

set @Lk7,rand (1,80);

if (@Lk7 == @Lk1) goto KPick7;

if (@Lk7 == @Lk2) goto KPick7;

if (@Lk7 == @Lk3) goto KPick7;

if (@Lk7 == @Lk4) goto KPick7;

if (@Lk7 == @Lk5) goto KPick7;

if (@Lk7 == @Lk6) goto KPick7;

KPick8:

set @Lk8,rand (1,80);

if (@Lk8 == @Lk1) goto KPick8;

if (@Lk8 == @Lk2) goto KPick8;

if (@Lk8 == @Lk3) goto KPick8;

if (@Lk8 == @Lk4) goto KPick8;

if (@Lk8 == @Lk5) goto KPick8;

if (@Lk8 == @Lk6) goto KPick8;

if (@Lk8 == @Lk7) goto KPick8;

KPick9:

set @Lk9,rand (1,80);

if (@Lk9 == @Lk1) goto KPick9;

if (@Lk9 == @Lk2) goto KPick9;

if (@Lk9 == @Lk3) goto KPick9;

if (@Lk9 == @Lk4) goto KPick9;

if (@Lk9 == @Lk5) goto KPick9;

if (@Lk9 == @Lk6) goto KPick9;

if (@Lk9 == @Lk7) goto KPick9;

if (@Lk9 == @Lk8) goto KPick9;

KPick10:

set @Lk10,rand (1,80);

if (@Lk10 == @Lk1) goto KPick10;

if (@Lk10 == @Lk2) goto KPick10;

if (@Lk10 == @Lk3) goto KPick10;

if (@Lk10 == @Lk4) goto KPick10;

if (@Lk10 == @Lk5) goto KPick10;

if (@Lk10 == @Lk6) goto KPick10;

if (@Lk10 == @Lk7) goto KPick10;

if (@Lk10 == @Lk8) goto KPick10;

if (@Lk10 == @Lk9) goto KPick10;

mes "[^008800Keno Teller^000000]";

mes "The computer has selected the following numbers:";

mes "^FF0000" + @Lk1 + " " + @Lk2 + " " + @Lk3 + " " + @Lk4 + " " + @Lk5 + "^000000";

mes "^0000FF" + @Lk6 + " " + @Lk7 + " " + @Lk8 + " " + @Lk9 + " " + @Lk10 + "^000000";

next;

menu "Confirm",KENO_Confirm,"Re-Generate",KENO_ComputerGen;

// HAND Pick LOTTERY NUMBERS

KENO_HandPick:

mes "[^008800Keno Teller^000000]";

mes "Please Pick your numbers (1-80):";

set @Lk1,0;

set @Lk2,0;

set @Lk3,0;

set @Lk4,0;

set @Lk5,0;

set @Lk6,0;

set @Lk7,0;

set @Lk8,0;

set @Lk9,0;

set @Lk10,0;

Kninput1:

input @Lk1;

if (@Lk1 < 1 || @Lk1 > 80) goto Kninput1;

mes @Lk1;

Kninput2:

input @Lk2;

if (@Lk2 < 1 || @Lk2 > 80) goto Kninput2;

if (@Lk2 == @Lk1) goto Kninput2;

mes @Lk2;

Kninput3:

input @Lk3;

if (@Lk3 < 1 || @Lk3 > 80) goto Kninput3;

if (@Lk3 == @Lk2) goto Kninput3;

if (@Lk3 == @Lk1) goto Kninput3;

mes @Lk3;

Kninput4:

input @Lk4;

if (@Lk4 < 1 || @Lk4 > 80) goto Kninput4;

if (@Lk4 == @Lk2) goto Kninput4;

if (@Lk4 == @Lk1) goto Kninput4;

if (@Lk4 == @Lk3) goto Kninput4;

mes @Lk4;

Kninput5:

input @Lk5;

if (@Lk5 < 1 || @Lk5 > 80) goto Kninput5;

if (@Lk5 == @Lk1) goto Kninput5;

if (@Lk5 == @Lk2) goto Kninput5;

if (@Lk5 == @Lk3) goto Kninput5;

if (@Lk5 == @Lk4) goto Kninput5;

mes @Lk5;

Kninput6:

input @Lk6;

if (@Lk6 < 1 || @Lk6 > 80) goto Kninput6;

if (@Lk6 == @Lk1) goto Kninput6;

if (@Lk6 == @Lk2) goto Kninput6;

if (@Lk6 == @Lk3) goto Kninput6;

if (@Lk6 == @Lk4) goto Kninput6;

if (@Lk6 == @Lk5) goto Kninput6;

mes @Lk6;

Kninput7:

input @Lk7;

if (@Lk7 < 1 || @Lk7 > 80) goto Kninput7;

if (@Lk7 == @Lk1) goto Kninput7;

if (@Lk7 == @Lk2) goto Kninput7;

if (@Lk7 == @Lk3) goto Kninput7;

if (@Lk7 == @Lk4) goto Kninput7;

if (@Lk7 == @Lk5) goto Kninput7;

if (@Lk7 == @Lk6) goto Kninput7;

mes @Lk7;

Kninput8:

input @Lk8;

if (@Lk8 < 1 || @Lk8 > 80) goto Kninput8;

if (@Lk8 == @Lk1) goto Kninput8;

if (@Lk8 == @Lk2) goto Kninput8;

if (@Lk8 == @Lk3) goto Kninput8;

if (@Lk8 == @Lk4) goto Kninput8;

if (@Lk8 == @Lk5) goto Kninput8;

if (@Lk8 == @Lk6) goto Kninput8;

if (@Lk8 == @Lk7) goto Kninput8;

mes @Lk8;

Kninput9:

input @Lk9;

if (@Lk9 < 1 || @Lk9 > 80) goto Kninput9;

if (@Lk9 == @Lk1) goto Kninput9;

if (@Lk9 == @Lk2) goto Kninput9;

if (@Lk9 == @Lk3) goto Kninput9;

if (@Lk9 == @Lk4) goto Kninput9;

if (@Lk9 == @Lk5) goto Kninput9;

if (@Lk9 == @Lk6) goto Kninput9;

if (@Lk9 == @Lk7) goto Kninput9;

if (@Lk9 == @Lk8) goto Kninput9;

mes @Lk9;

Kninput10:

input @Lk10;

if (@Lk10 < 1 || @Lk10 > 80) goto Kninput10;

if (@Lk10 == @Lk1) goto Kninput10;

if (@Lk10 == @Lk2) goto Kninput10;

if (@Lk10 == @Lk3) goto Kninput10;

if (@Lk10 == @Lk4) goto Kninput10;

if (@Lk10 == @Lk5) goto Kninput10;

if (@Lk10 == @Lk6) goto Kninput10;

if (@Lk10 == @Lk7) goto Kninput10;

if (@Lk10 == @Lk8) goto Kninput10;

if (@Lk10 == @Lk9) goto Kninput10;

mes @Lk10;

next;

mes "[^008800Keno Teller^000000]";

mes "Your numbers are:";

mes "^FF0000" + @Lk1 + " " + @Lk2 + " " + @Lk3 + " " + @Lk4 + " " + @Lk5 + "^000000";

mes "^0000FF" + @Lk6 + " " + @Lk7 + " " + @Lk8 + " " + @Lk9 + " " + @Lk10 + "^000000";

next;

menu "Confirm",KENO_Confirm,"Re-Pick",KENO_HandPick;

KENO_Confirm:

set #LkW1,@Lk1;

set #LkW2,@Lk2;

set #LkW3,@Lk3;

set #LkW4,@Lk4;

set #LkW5,@Lk5;

set #LkW6,@Lk6;

set #LkW7,@Lk7;

set #LkW8,@Lk8;

set #LkW9,@Lk9;

set #LkW10,@Lk10;

set #LkID,$LKID;

KENO_Confirm2:

mes "[^008800Keno Teller^000000]";

mes "Wait for the live broadcasted draw every hour!";

mes "You can claim your ticket between then and the next draw.";

next;

mes "[^008800Keno Teller^000000]";

mes "Good luck!";

close;

KENO_Claim:

// CHECKS TICKET VALIDILITY

if (#LkID != $LKID2) goto KENO_Invalid;

// CHECKS HOW MANY NUMBERS MATCHED

set @LkPrize,0;

if (#LkW1 == $LkW1) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW2) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW3) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW4) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW5) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW6) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW7) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW8) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW9) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW10) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW11) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW12) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW13) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW14) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW15) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW16) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW17) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW18) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW19) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW20) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW1) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW2) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW3) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW4) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW5) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW6) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW7) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW8) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW9) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW10) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW11) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW12) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW13) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW14) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW15) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW16) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW17) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW18) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW19) set @LkPrize,@LkPrize+1;

if (#LkW2 == $LkW20) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW1) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW2) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW3) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW4) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW5) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW6) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW7) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW8) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW9) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW10) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW11) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW12) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW13) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW14) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW15) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW16) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW17) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW18) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW19) set @LkPrize,@LkPrize+1;

if (#LkW3 == $LkW20) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW1) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW2) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW3) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW4) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW5) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW6) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW7) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW8) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW9) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW10) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW11) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW12) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW13) set @LkPrize,@LkPrize+1;

if (#LkW1 == $LkW14) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW15) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW16) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW17) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW18) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW19) set @LkPrize,@LkPrize+1;

if (#LkW4 == $LkW20) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW1) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW2) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW3) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW4) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW5) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW6) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW7) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW8) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW9) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW10) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW11) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW12) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW13) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW14) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW15) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW16) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW17) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW18) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW19) set @LkPrize,@LkPrize+1;

if (#LkW5 == $LkW20) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW1) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW2) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW3) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW4) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW5) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW6) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW7) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW8) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW9) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW10) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW11) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW12) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW13) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW14) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW15) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW16) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW17) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW18) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW19) set @LkPrize,@LkPrize+1;

if (#LkW6 == $LkW20) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW1) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW2) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW3) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW4) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW5) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW6) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW7) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW8) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW9) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW10) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW11) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW12) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW13) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW14) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW15) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW16) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW17) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW18) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW19) set @LkPrize,@LkPrize+1;

if (#LkW7 == $LkW20) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW1) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW2) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW3) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW4) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW5) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW6) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW7) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW8) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW9) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW10) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW11) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW12) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW13) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW14) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW15) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW16) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW17) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW18) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW19) set @LkPrize,@LkPrize+1;

if (#LkW8 == $LkW20) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW1) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW2) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW3) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW4) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW5) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW6) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW7) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW8) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW9) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW10) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW11) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW12) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW13) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW14) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW15) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW16) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW17) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW18) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW19) set @LkPrize,@LkPrize+1;

if (#LkW9 == $LkW20) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW1) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW2) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW3) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW4) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW5) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW6) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW7) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW8) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW9) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW10) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW11) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW12) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW13) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW14) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW15) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW16) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW17) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW18) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW19) set @LkPrize,@LkPrize+1;

if (#LkW10 == $LkW20) set @LkPrize,@LkPrize+1;

if (@LkPrize == 10) goto LkWin10;

if (@LkPrize == 9) goto LkWin9;

if (@LkPrize == 8) goto LkWin8;

if (@LkPrize == 7) goto LkWin7;

if (@LkPrize == 6) goto LkWin6;

if (@LkPrize == 5) goto LkWin5;

if (@LkPrize == 4) goto LkWin4;

if (@LkPrize == 3) goto LkWin3;

if (@LkPrize == 2) goto LkWin2;

if (@LkPrize == 1) goto LkWin1;

// NO WINNER

mes "[^008800Keno Teller^000000]";

mes "Bad luck, it appears you do not hold a winning ticket.";

next;

mes "[^008800Keno Teller^000000]";

mes "Better luck next time!.";

close;

// MATCHED 10

LkWin10:

set @KENO_Prize_Money,($KENO_TicketPrice*10*9*8*7*6*5*4*3*2)-6288000;

mes "[^008800Keno Teller^000000]";

mes "You have matched ^0000FF" + @LkPrize + "^000000 numbers!";

mes "Jackpot!";

mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";

set Zeny,Zeny+@KENO_Prize_Money;

announce "Keno Teller: " + strcharinfo(0) + " has won the JACKPOT of " + @KENO_Prize_Money + "z!",8;

set @KENO_Prize_Money,0;

set #LkID,0;

close;

// MATCHED 9

LkWin9:

set @KENO_Prize_Money, ($KENO_TicketPrice*9*8*7*6*5*4*3*2)-628800;

mes "[^008800Keno Teller^000000]";

mes "You have matched ^0000FF" + @LkPrize + "^000000 numbers!";

mes "Jackpot!";

mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";

set Zeny,Zeny+@KENO_Prize_Money;

announce "Keno Teller: " + strcharinfo(0) + " has won the JACKPOT of " + @KENO_Prize_Money + "z!",8;

set @KENO_Prize_Money,0;

set #LkID,0;

close;

// MATCHED 8

LkWin8:

set @KENO_Prize_Money,($KENO_TicketPrice*8*7*6*5*4*3*2)-3200;

mes "[^008800Keno Teller^000000]";

mes "You have matched ^0000FF" + @LkPrize + "^000000 numbers!";

mes "Jackpot!";

mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";

set Zeny,Zeny+@KENO_Prize_Money;

announce "Keno Teller: " + strcharinfo(0) + " has won the JACKPOT of " + @KENO_Prize_Money + "z!",8;

set @KENO_Prize_Money,0;

set #LkID,0;

close;

// MATCHED 7

LkWin7:

set @KENO_Prize_Money,($KENO_TicketPrice*7*6*5*4*3*2)-400;

mes "[^008800Keno Teller^000000]";

mes "You have matched ^0000FF" + @LkPrize + "^000000 numbers!";

mes "Jackpot!";

mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";

set Zeny,Zeny+@KENO_Prize_Money;

announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;

set @KENO_Prize_Money,0;

set #LkID,0;

close;

// MATCHED 6

LkWin6:

set @KENO_Prize_Money,($KENO_TicketPrice*6*5*4*3*2)-200;

mes "[^008800Keno Teller^000000]";

mes "You have matched ^0000FF" + @LkPrize + "^000000 numbers!";

mes "Jackpot!";

mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";

set Zeny,Zeny+@KENO_Prize_Money;

announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;

set @KENO_Prize_Money,0;

set #LkID,0;

close;

// MATCHED 5

LkWin5:

set @KENO_Prize_Money,($KENO_TicketPrice*5*4*3*2)-200;

mes "[^008800Keno Teller^000000]";

mes "You have matched ^0000FF" + @LkPrize + "^000000 numbers!";

mes "Jackpot!";

mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";

set Zeny,Zeny+@KENO_Prize_Money;

announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;

set @KENO_Prize_Money,0;

set #LkID,0;

close;

// MATCHED 4

LkWin4:

set @KENO_Prize_Money,($KENO_TicketPrice*4*3*2)-40;

mes "[^008800Keno Teller^000000]";

mes "You have matched ^0000FF" + @LkPrize + "^000000 numbers!";

mes "Jackpot!";

mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";

set Zeny,Zeny+@KENO_Prize_Money;

announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;

set @KENO_Prize_Money,0;

set #LkID,0;

close;

// MATCHED 3

LkWin3:

set @KENO_Prize_Money,$KENO_TicketPrice*3*2;

mes "[^008800Keno Teller^000000]";

mes "You have matched ^0000FF" + @LkPrize + "^000000 numbers!";

mes "Jackpot!";

mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";

set Zeny,Zeny+@KENO_Prize_Money;

announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;

set @KENO_Prize_Money,0;

set #LkID,0;

close;

// MATCHED 2

LkWin2:

set @KENO_Prize_Money,$KENO_TicketPrice*2;

mes "[^008800Keno Teller^000000]";

mes "You have matched ^0000FF" + @LkPrize + "^000000 numbers!";

mes "Jackpot!";

mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";

set Zeny,Zeny+@KENO_Prize_Money;

announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;

set @KENO_Prize_Money,0;

set #LkID,0;

close;

// MATCHED 1

LkWin1:

set @KENO_Prize_Money,$KENO_TicketPrice;

mes "[^008800Keno Teller^000000]";

mes "You have matched ^0000FF" + @LkPrize + "^000000 numbers!";

mes "Jackpot!";

mes "You've won ^0000FF" + @KENO_Prize_Money + "z^000000.";

set Zeny,Zeny+@KENO_Prize_Money;

announce "Keno Teller: " + strcharinfo(0) + " has won " + @KENO_Prize_Money + "z!",8;

set @KENO_Prize_Money,0;

set #LkID,0;

close;

// NO Zeny

KENO_NoZeny:

mes "[^008800Keno Teller^000000]";

mes "You can't afford a Keno ticket.";

close;

// INVALID TICKET

KENO_Invalid:

mes "[^008800Keno Teller^000000]";

mes "I'm sorry but it appears that you have an invalid ticket.";

close;

// DOUBLE TICKET

KENO_DoubleTicket:

mes "[^008800Keno Teller^000000]";

mes "It appears that you already have a ticket for today.";

mes "You may only purchase one ticket per draw.";

close;

KENO_Cancel:

mes "[^008800Keno Teller^000000]";

mes "Come back soon!";

close;

// GM MENU (Lets you manually do draws)

KENO_GM:

menu "Claim Prize",KENO_Claim,"Buy New Ticket",KENO_Buy,"[GM]Do Draw Now",-,"[GM]Rig the Lottery",KENO_GM_Rig,"Cancel",KENO_Cancel;

// CHECKS IF LOTTERY IS RIGGED

if ($KENO_Rigged == 1) goto KENO_Rigged_Draw;

// GENERATES RANDOM NUMBERS 1-80

GMKPick1:

set $LkW1,rand (1,80);

GMKPick2:

set $LkW2,rand (1,80);

if ($LkW2 == $LkW1) goto GMKPick2;

GMKPick3:

set $LkW3,rand (1,80);

if ($LkW3 == $LkW2) goto GMKPick3;

if ($LkW3 == $LkW1) goto GMKPick3;

GMKPick4:

set $LkW4,rand (1,80);

if ($LkW4 == $LkW2) goto GMKPick4;

if ($LkW4 == $LkW1) goto GMKPick4;

if ($LkW4 == $LkW3) goto GMKPick4;

GMKPick5:

set $LkW5,rand (1,80);

if ($LkW5 == $LkW1) goto GMKPick5;

if ($LkW5 == $LkW2) goto GMKPick5;

if ($LkW5 == $LkW3) goto GMKPick5;

if ($LkW5 == $LkW4) goto GMKPick5;

GMKPick6:

set $LkW6,rand (1,80);

if ($LkW6 == $LkW1) goto GMKPick6;

if ($LkW6 == $LkW2) goto GMKPick6;

if ($LkW6 == $LkW3) goto GMKPick6;

if ($LkW6 == $LkW4) goto GMKPick6;

if ($LkW6 == $LkW5) goto GMKPick6;

GMKPick7:

set $LkW7,rand (1,80);

if ($LkW7 == $LkW1) goto GMKPick7;

if ($LkW7 == $LkW2) goto GMKPick7;

if ($LkW7 == $LkW3) goto GMKPick7;

if ($LkW7 == $LkW4) goto GMKPick7;

if ($LkW7 == $LkW5) goto GMKPick7;

if ($LkW7 == $LkW6) goto GMKPick7;

GMKPick8:

set $LkW8,rand (1,80);

if ($LkW8 == $LkW1) goto GMKPick8;

if ($LkW8 == $LkW2) goto GMKPick8;

if ($LkW8 == $LkW3) goto GMKPick8;

if ($LkW8 == $LkW4) goto GMKPick8;

if ($LkW8 == $LkW5) goto GMKPick8;

if ($LkW8 == $LkW6) goto GMKPick8;

if ($LkW8 == $LkW7) goto GMKPick8;

GMKPick9:

set $LkW9,rand (1,80);

if ($LkW9 == $LkW1) goto GMKPick9;

if ($LkW9 == $LkW2) goto GMKPick9;

if ($LkW9 == $LkW3) goto GMKPick9;

if ($LkW9 == $LkW4) goto GMKPick9;

if ($LkW9 == $LkW5) goto GMKPick9;

if ($LkW9 == $LkW6) goto GMKPick9;

if ($LkW9 == $LkW7) goto GMKPick9;

if ($LkW9 == $LkW8) goto GMKPick9;

GMKPick10:

set $LkW10,rand (1,80);

if ($LkW10 == $LkW1) goto GMKPick10;

if ($LkW10 == $LkW2) goto GMKPick10;

if ($LkW10 == $LkW3) goto GMKPick10;

if ($LkW10 == $LkW4) goto GMKPick10;

if ($LkW10 == $LkW5) goto GMKPick10;

if ($LkW10 == $LkW6) goto GMKPick10;

if ($LkW10 == $LkW7) goto GMKPick10;

if ($LkW10 == $LkW8) goto GMKPick10;

if ($LkW10 == $LkW9) goto GMKPick10;

GMKPick11:

set $LkW11,rand (1,80);

if ($LkW11 == $LkW1) goto GMKPick11;

if ($LkW11 == $LkW2) goto GMKPick11;

if ($LkW11 == $LkW3) goto GMKPick11;

if ($LkW11 == $LkW4) goto GMKPick11;

if ($LkW11 == $LkW5) goto GMKPick11;

if ($LkW11 == $LkW6) goto GMKPick11;

if ($LkW11 == $LkW7) goto GMKPick11;

if ($LkW11 == $LkW8) goto GMKPick11;

if ($LkW11 == $LkW9) goto GMKPick11;

if ($LkW11 == $LkW10) goto GMKPick11;

GMKPick12:

set $LkW12,rand (1,80);

if ($LkW12 == $LkW1) goto GMKPick12;

if ($LkW12 == $LkW2) goto GMKPick12;

if ($LkW12 == $LkW3) goto GMKPick12;

if ($LkW12 == $LkW4) goto GMKPick12;

if ($LkW12 == $LkW5) goto GMKPick12;

if ($LkW12 == $LkW6) goto GMKPick12;

if ($LkW12 == $LkW7) goto GMKPick12;

if ($LkW12 == $LkW8) goto GMKPick12;

if ($LkW12 == $LkW9) goto GMKPick12;

if ($LkW12 == $LkW10) goto GMKPick12;

if ($LkW12 == $LkW11) goto GMKPick12;

GMKPick13:

set $LkW13,rand (1,80);

if ($LkW13 == $LkW1) goto GMKPick13;

if ($LkW13 == $LkW2) goto GMKPick13;

if ($LkW13 == $LkW3) goto GMKPick13;

if ($LkW13 == $LkW4) goto GMKPick13;

if ($LkW13 == $LkW5) goto GMKPick13;

if ($LkW13 == $LkW6) goto GMKPick13;

if ($LkW13 == $LkW7) goto GMKPick13;

if ($LkW13 == $LkW8) goto GMKPick13;

if ($LkW13 == $LkW9) goto GMKPick13;

if ($LkW13 == $LkW10) goto GMKPick13;

if ($LkW13 == $LkW11) goto GMKPick13;

if ($LkW13 == $LkW12) goto GMKPick13;

GMKPick14:

set $LkW14,rand (1,80);

if ($LkW14 == $LkW1) goto GMKPick14;

if ($LkW14 == $LkW2) goto GMKPick14;

if ($LkW14 == $LkW3) goto GMKPick14;

if ($LkW14 == $LkW4) goto GMKPick14;

if ($LkW14 == $LkW5) goto GMKPick14;

if ($LkW14 == $LkW6) goto GMKPick14;

if ($LkW14 == $LkW7) goto GMKPick14;

if ($LkW14 == $LkW8) goto GMKPick14;

if ($LkW14 == $LkW9) goto GMKPick14;

if ($LkW14 == $LkW10) goto GMKPick14;

if ($LkW14 == $LkW11) goto GMKPick14;

if ($LkW14 == $LkW12) goto GMKPick14;

if ($LkW14 == $LkW13) goto GMKPick14;

GMKPick15:

set $LkW15,rand (1,80);

if ($LkW15 == $LkW1) goto GMKPick15;

if ($LkW15 == $LkW2) goto GMKPick15;

if ($LkW15 == $LkW3) goto GMKPick15;

if ($LkW15 == $LkW4) goto GMKPick15;

if ($LkW15 == $LkW5) goto GMKPick15;

if ($LkW15 == $LkW6) goto GMKPick15;

if ($LkW15 == $LkW7) goto GMKPick15;

if ($LkW15 == $LkW8) goto GMKPick15;

if ($LkW15 == $LkW9) goto GMKPick15;

if ($LkW15 == $LkW10) goto GMKPick15;

if ($LkW15 == $LkW11) goto GMKPick15;

if ($LkW15 == $LkW12) goto GMKPick15;

if ($LkW15 == $LkW13) goto GMKPick15;

if ($LkW15 == $LkW14) goto GMKPick15;

GMKPick16:

set $LkW16,rand (1,80);

if ($LkW16 == $LkW1) goto GMKPick16;

if ($LkW16 == $LkW2) goto GMKPick16;

if ($LkW16 == $LkW3) goto GMKPick16;

if ($LkW16 == $LkW4) goto GMKPick16;

if ($LkW16 == $LkW5) goto GMKPick16;

if ($LkW16 == $LkW6) goto GMKPick16;

if ($LkW16 == $LkW7) goto GMKPick16;

if ($LkW16 == $LkW8) goto GMKPick16;

if ($LkW16 == $LkW9) goto GMKPick16;

if ($LkW16 == $LkW10) goto GMKPick16;

if ($LkW16 == $LkW11) goto GMKPick16;

if ($LkW16 == $LkW12) goto GMKPick16;

if ($LkW16 == $LkW13) goto GMKPick16;

if ($LkW16 == $LkW14) goto GMKPick16;

if ($LkW16 == $LkW15) goto GMKPick16;

GMKPick17:

set $LkW17,rand (1,80);

if ($LkW17 == $LkW1) goto GMKPick17;

if ($LkW17 == $LkW2) goto GMKPick17;

if ($LkW17 == $LkW3) goto GMKPick17;

if ($LkW17 == $LkW4) goto GMKPick17;

if ($LkW17 == $LkW5) goto GMKPick17;

if ($LkW17 == $LkW6) goto GMKPick17;

if ($LkW17 == $LkW7) goto GMKPick17;

if ($LkW17 == $LkW8) goto GMKPick17;

if ($LkW17 == $LkW9) goto GMKPick17;

if ($LkW17 == $LkW10) goto GMKPick17;

if ($LkW17 == $LkW11) goto GMKPick17;

if ($LkW17 == $LkW12) goto GMKPick17;

if ($LkW17 == $LkW13) goto GMKPick17;

if ($LkW17 == $LkW14) goto GMKPick17;

if ($LkW17 == $LkW15) goto GMKPick17;

if ($LkW17 == $LkW16) goto GMKPick17;

GMKPick18:

set $LkW18,rand (1,80);

if ($LkW18 == $LkW1) goto GMKPick18;

if ($LkW18== $LkW2) goto GMKPick18;

if ($LkW18== $LkW3) goto GMKPick18;

if ($LkW18== $LkW4) goto GMKPick18;

if ($LkW18== $LkW5) goto GMKPick18;

if ($LkW18== $LkW6) goto GMKPick18;

if ($LkW18== $LkW7) goto GMKPick18;

if ($LkW18== $LkW8) goto GMKPick18;

if ($LkW18== $LkW9) goto GMKPick18;

if ($LkW18== $LkW10) goto GMKPick18;

if ($LkW18== $LkW11) goto GMKPick18;

if ($LkW18== $LkW12) goto GMKPick18;

if ($LkW18== $LkW13) goto GMKPick18;

if ($LkW18== $LkW14) goto GMKPick18;

if ($LkW18== $LkW15) goto GMKPick18;

if ($LkW18== $LkW16) goto GMKPick18;

if ($LkW18== $LkW17) goto GMKPick18;

GMKPick19:

set $LkW19,rand (1,80);

if ($LkW19 == $LkW1) goto GMKPick19;

if ($LkW19== $LkW2) goto GMKPick19;

if ($LkW19== $LkW3) goto GMKPick19;

if ($LkW19== $LkW4) goto GMKPick19;

if ($LkW19== $LkW5) goto GMKPick19;

if ($LkW19== $LkW6) goto GMKPick19;

if ($LkW19== $LkW7) goto GMKPick19;

if ($LkW19== $LkW8) goto GMKPick19;

if ($LkW19== $LkW9) goto GMKPick19;

if ($LkW19== $LkW10) goto GMKPick19;

if ($LkW19== $LkW11) goto GMKPick19;

if ($LkW19== $LkW12) goto GMKPick19;

if ($LkW19== $LkW13) goto GMKPick19;

if ($LkW19== $LkW14) goto GMKPick19;

if ($LkW19== $LkW15) goto GMKPick19;

if ($LkW19== $LkW16) goto GMKPick19;

if ($LkW19== $LkW17) goto GMKPick19;

if ($LkW19== $LkW18) goto GMKPick19;

GMKPick20:

set $LkW20,rand (1,80);

if ($LkW20 == $LkW1) goto GMKPick20;

if ($LkW20== $LkW2) goto GMKPick20;

if ($LkW20== $LkW3) goto GMKPick20;

if ($LkW20== $LkW4) goto GMKPick20;

if ($LkW20== $LkW5) goto GMKPick20;

if ($LkW20== $LkW6) goto GMKPick20;

if ($LkW20== $LkW7) goto GMKPick20;

if ($LkW20== $LkW8) goto GMKPick20;

if ($LkW20== $LkW9) goto GMKPick20;

if ($LkW20== $LkW10) goto GMKPick20;

if ($LkW20== $LkW11) goto GMKPick20;

if ($LkW20== $LkW12) goto GMKPick20;

if ($LkW20== $LkW13) goto GMKPick20;

if ($LkW20== $LkW14) goto GMKPick20;

if ($LkW20== $LkW15) goto GMKPick20;

if ($LkW20== $LkW16) goto GMKPick20;

if ($LkW20== $LkW17) goto GMKPick20;

if ($LkW20== $LkW18) goto GMKPick20;

if ($LkW20== $LkW19) goto GMKPick20;

// BROADCASTS DRAW

KENO_Broadcast:

announce "Keno Teller: Welcome to the special GM's KENO Lotto draw!",8;

announce "The numbers are as follows: [" + $LkW1 + "] [" + $LkW2 + "] [" + $LkW3 + "] [" + $LkW4 + "] [" + $LkW5 + "]",8;

announce "The numbers are as follows: [" + $LkW6 + "] [" + $LkW7 + "] [" + $LkW8 + "] [" + $LkW9 + "] [" + $LkW10 + "]",8;

announce "The numbers are as follows: [" + $LkW11 + "] [" + $LkW12 + "] [" + $LkW13 + "] [" + $LkW14 + "] [" + $LkW15 + "]",8;

announce "The numbers are as follows: [" + $LkW16 + "] [" + $LkW17 + "] [" + $LkW18 + "] [" + $LkW19 + "] [" + $LkW20 + "]",8;

announce "Congratulations to the winners!",8;

// GENERATES DRAW ID CODE

KENO_GenID:

set $LKID2,$LKID;

// setS TOMORROW'S ID NUMBER

set $LKID,rand (100000,999999);

close;

// setS DRAW TO RIGGED NUMBERS

KENO_Rigged_Draw:

set $LkW1,$LkR1;

set $LkW2,$LkR2;

set $LkW3,$LkR3;

set $LkW4,$LkR4;

set $LkW5,$LkR5;

set $LkW6,$LkR6;

set $LkW7,$LkR7;

set $LkW8,$LkR8;

set $LkW9,$LkR9;

set $LkW10,$LkR10;

set $LkW11,$LkR11;

set $LkW12,$LkR12;

set $LkW13,$LkR13;

set $LkW14,$LkR14;

set $LkW15,$LkR15;

set $LkW16,$LkR16;

set $LkW17,$LkR17;

set $LkW18,$LkR18;

set $LkW19,$LkR19;

set $LkW20,$LkR20;

set $KENO_Rigged,0;

goto KENO_Broadcast;

// ALLOWS GM TO DO A RIGGED DRAW

KENO_GM_Rig:

mes "[^008800Keno Teller^000000]";

mes "Please pick your numbers (1-80):";

set $LkR1,0;

set $LkR2,0;

set $LkR3,0;

set $LkR4,0;

set $LkR5,0;

set $LkR6,0;

set $LkR7,0;

set $LkR8,0;

set $LkR9,0;

set $LkR10,0;

set $LkR11,0;

set $LkR12,0;

set $LkR13,0;

set $LkR14,0;

set $LkR15,0;

set $LkR16,0;

set $LkR17,0;

set $LkR18,0;

set $LkR19,0;

set $LkR20,0;

GMKninput1:

input $LkR1;

if ($LkR1 < 1 || $LkR1 > 80) goto GMKninput1;

mes $LkR1;

GMKninput2:

input $LkR2;

if ($LkR2 < 1 || $LkR2 > 80) goto GMKninput2;

if ($LkR2 == $LkR1) goto GMKninput2;

mes $LkR2;

GMKninput3:

input $LkR3;

if ($LkR3 < 1 || $LkR3 > 80) goto GMKninput3;

if ($LkR3 == $LkR1) goto GMKninput3;

if ($LkR3 == $LkR2) goto GMKninput3;

mes $LkR3;

GMKninput4:

input $LkR4;

if ($LkR4 < 1 || $LkR4 > 80) goto GMKninput4;

if ($LkR4 == $LkR1) goto GMKninput4;

if ($LkR4 == $LkR2) goto GMKninput4;

if ($LkR4 == $LkR3) goto GMKninput4;

mes $LkR4;

GMKninput5:

input $LkR5;

if ($LkR5 < 1 || $LkR5 > 80) goto GMKninput5;

if ($LkR5 == $LkR1) goto GMKninput5;

if ($LkR5 == $LkR2) goto GMKninput5;

if ($LkR5 == $LkR3) goto GMKninput5;

if ($LkR5 == $LkR4) goto GMKninput5;

mes $LkR5;

GMKninput6:

input $LkR6;

if ($LkR6 < 1 || $LkR6 > 80) goto GMKninput6;

if ($LkR6 == $LkR1) goto GMKninput6;

if ($LkR6 == $LkR2) goto GMKninput6;

if ($LkR6 == $LkR3) goto GMKninput6;

if ($LkR6 == $LkR4) goto GMKninput6;

if ($LkR6 == $LkR5) goto GMKninput6;

mes $LkR6;

GMKninput7:

input $LkR7;

if ($LkR7 < 1 || $LkR7 > 80) goto GMKninput7;

if ($LkR7 == $LkR1) goto GMKninput7;

if ($LkR7 == $LkR2) goto GMKninput7;

if ($LkR7 == $LkR3) goto GMKninput7;

if ($LkR7 == $LkR4) goto GMKninput7;

if ($LkR7 == $LkR5) goto GMKninput7;

if ($LkR7 == $LkR6) goto GMKninput7;

mes $LkR7;

GMKninput8:

input $LkR8;

if ($LkR8 < 1 || $LkR8 > 80) goto GMKninput8;

if ($LkR8 == $LkR1) goto GMKninput8;

if ($LkR8 == $LkR2) goto GMKninput8;

if ($LkR8 == $LkR3) goto GMKninput8;

if ($LkR8 == $LkR4) goto GMKninput8;

if ($LkR8 == $LkR5) goto GMKninput8;

if ($LkR8 == $LkR6) goto GMKninput8;

if ($LkR8 == $LkR7) goto GMKninput8;

mes $LkR8;

GMKninput9:

input $LkR9;

if ($LkR9 < 1 || $LkR9 > 80) goto GMKninput9;

if ($LkR9 == $LkR1) goto GMKninput9;

if ($LkR9 == $LkR2) goto GMKninput9;

if ($LkR9 == $LkR3) goto GMKninput9;

if ($LkR9 == $LkR4) goto GMKninput9;

if ($LkR9 == $LkR5) goto GMKninput9;

if ($LkR9 == $LkR6) goto GMKninput9;

if ($LkR9 == $LkR7) goto GMKninput9;

if ($LkR9 == $LkR8) goto GMKninput9;

mes $LkR9;

GMKninput10:

input $LkR10;

if ($LkR10 < 1 || $LkR10 > 80) goto GMKninput10;

if ($LkR10 == $LkR1) goto GMKninput10;

if ($LkR10 == $LkR2) goto GMKninput10;

if ($LkR10 == $LkR3) goto GMKninput10;

if ($LkR10 == $LkR4) goto GMKninput10;

if ($LkR10 == $LkR5) goto GMKninput10;

if ($LkR10 == $LkR6) goto GMKninput10;

if ($LkR10 == $LkR7) goto GMKninput10;

if ($LkR10 == $LkR8) goto GMKninput10;

if ($LkR10 == $LkR9) goto GMKninput10;

mes $LkR10;

GMKninput11:

input $LkR11;

if ($LkR11 < 1 || $LkR11 > 80) goto GMKninput11;

if ($LkR11 == $LkR1) goto GMKninput11;

if ($LkR11 == $LkR2) goto GMKninput11;

if ($LkR11 == $LkR3) goto GMKninput11;

if ($LkR11 == $LkR4) goto GMKninput11;

if ($LkR11 == $LkR5) goto GMKninput11;

if ($LkR11 == $LkR6) goto GMKninput11;

if ($LkR11 == $LkR7) goto GMKninput11;

if ($LkR11 == $LkR8) goto GMKninput11;

if ($LkR11 == $LkR9) goto GMKninput11;

if ($LkR11 == $LkR10) goto GMKninput11;

mes $LkR11;

GMKninput12:

input $LkR12;

if ($LkR12 < 1 || $LkR12 > 80) goto GMKninput12;

if ($LkR12 == $LkR1) goto GMKninput12;

if ($LkR12 == $LkR2) goto GMKninput12;

if ($LkR12 == $LkR3) goto GMKninput12;

if ($LkR12 == $LkR4) goto GMKninput12;

if ($LkR12 == $LkR5) goto GMKninput12;

if ($LkR12 == $LkR6) goto GMKninput12;

if ($LkR12 == $LkR7) goto GMKninput12;

if ($LkR12 == $LkR8) goto GMKninput12;

if ($LkR12 == $LkR9) goto GMKninput12;

if ($LkR12 == $LkR10) goto GMKninput12;

if ($LkR12 == $LkR11) goto GMKninput12;

mes $LkR12;

GMKninput13:

input $LkR13;

if ($LkR13 < 1 || $LkR13 > 80) goto GMKninput13;

if ($LkR13 == $LkR1) goto GMKninput13;

if ($LkR13 == $LkR2) goto GMKninput13;

if ($LkR13 == $LkR3) goto GMKninput13;

if ($LkR13 == $LkR4) goto GMKninput13;

if ($LkR13 == $LkR5) goto GMKninput13;

if ($LkR13 == $LkR6) goto GMKninput13;

if ($LkR13 == $LkR7) goto GMKninput13;

if ($LkR13 == $LkR8) goto GMKninput13;

if ($LkR13 == $LkR9) goto GMKninput13;

if ($LkR13 == $LkR10) goto GMKninput13;

if ($LkR13 == $LkR11) goto GMKninput13;

if ($LkR13 == $LkR12) goto GMKninput13;

mes $LkR13;

GMKninput14:

input $LkR14;

if ($LkR14 < 1 || $LkR14 > 80) goto GMKninput14;

if ($LkR14 == $LkR1) goto GMKninput14;

if ($LkR14 == $LkR2) goto GMKninput14;

if ($LkR14 == $LkR3) goto GMKninput14;

if ($LkR14 == $LkR4) goto GMKninput14;

if ($LkR14 == $LkR5) goto GMKninput14;

if ($LkR14 == $LkR6) goto GMKninput14;

if ($LkR14 == $LkR7) goto GMKninput14;

if ($LkR14 == $LkR8) goto GMKninput14;

if ($LkR14 == $LkR9) goto GMKninput14;

if ($LkR14 == $LkR10) goto GMKninput14;

if ($LkR14 == $LkR11) goto GMKninput14;

if ($LkR14 == $LkR12) goto GMKninput14;

if ($LkR14 == $LkR13) goto GMKninput14;

mes $LkR14;

GMKninput15:

input $LkR15;

if ($LkR15 < 1 || $LkR15 > 80) goto GMKninput15;

if ($LkR15 == $LkR1) goto GMKninput15;

if ($LkR15 == $LkR2) goto GMKninput15;

if ($LkR15 == $LkR3) goto GMKninput15;

if ($LkR15 == $LkR4) goto GMKninput15;

if ($LkR15 == $LkR5) goto GMKninput15;

if ($LkR15 == $LkR6) goto GMKninput15;

if ($LkR15 == $LkR7) goto GMKninput15;

if ($LkR15 == $LkR8) goto GMKninput15;

if ($LkR15 == $LkR9) goto GMKninput15;

if ($LkR15 == $LkR10) goto GMKninput15;

if ($LkR15 == $LkR11) goto GMKninput15;

if ($LkR15 == $LkR12) goto GMKninput15;

if ($LkR15 == $LkR13) goto GMKninput15;

if ($LkR15 == $LkR14) goto GMKninput15;

mes $LkR15;

GMKninput16:

input $LkR16;

if ($LkR16 < 1 || $LkR16 > 80) goto GMKninput16;

if ($LkR16 == $LkR1) goto GMKninput16;

if ($LkR16 == $LkR2) goto GMKninput16;

if ($LkR16 == $LkR3) goto GMKninput16;

if ($LkR16 == $LkR4) goto GMKninput16;

if ($LkR16 == $LkR5) goto GMKninput16;

if ($LkR16 == $LkR6) goto GMKninput16;

if ($LkR16 == $LkR7) goto GMKninput16;

if ($LkR16 == $LkR8) goto GMKninput16;

if ($LkR16 == $LkR9) goto GMKninput16;

if ($LkR16 == $LkR10) goto GMKninput16;

if ($LkR16 == $LkR11) goto GMKninput16;

if ($LkR16 == $LkR12) goto GMKninput16;

if ($LkR16 == $LkR13) goto GMKninput16;

if ($LkR16 == $LkR14) goto GMKninput16;

if ($LkR16 == $LkR15) goto GMKninput16;

mes $LkR16;

GMKninput17:

input $LkR17;

if ($LkR17 < 1 || $LkR17 > 80) goto GMKninput17;

if ($LkR17 == $LkR1) goto GMKninput17;

if ($LkR17 == $LkR2) goto GMKninput17;

if ($LkR17 == $LkR3) goto GMKninput17;

if ($LkR17 == $LkR4) goto GMKninput17;

if ($LkR17 == $LkR5) goto GMKninput17;

if ($LkR17 == $LkR6) goto GMKninput17;

if ($LkR17 == $LkR7) goto GMKninput17;

if ($LkR17 == $LkR8) goto GMKninput17;

if ($LkR17 == $LkR9) goto GMKninput17;

if ($LkR17 == $LkR10) goto GMKninput17;

if ($LkR17 == $LkR11) goto GMKninput17;

if ($LkR17 == $LkR12) goto GMKninput17;

if ($LkR17 == $LkR13) goto GMKninput17;

if ($LkR17 == $LkR14) goto GMKninput17;

if ($LkR17 == $LkR15) goto GMKninput17;

if ($LkR17 == $LkR16) goto GMKninput17;

mes $LkR17;

GMKninput18:

input $LkR18;

if ($LkR18 < 1 || $LkR18 > 80) goto GMKninput18;

if ($LkR18 == $LkR1) goto GMKninput18;

if ($LkR18 == $LkR2) goto GMKninput18;

if ($LkR18 == $LkR3) goto GMKninput18;

if ($LkR18 == $LkR4) goto GMKninput18;

if ($LkR18 == $LkR5) goto GMKninput18;

if ($LkR18 == $LkR6) goto GMKninput18;

if ($LkR18 == $LkR7) goto GMKninput18;

if ($LkR18 == $LkR8) goto GMKninput18;

if ($LkR18 == $LkR9) goto GMKninput18;

if ($LkR18 == $LkR10) goto GMKninput18;

if ($LkR18 == $LkR11) goto GMKninput18;

if ($LkR18 == $LkR12) goto GMKninput18;

if ($LkR18 == $LkR13) goto GMKninput18;

if ($LkR18 == $LkR14) goto GMKninput18;

if ($LkR18 == $LkR15) goto GMKninput18;

if ($LkR18 == $LkR16) goto GMKninput18;

if ($LkR18 == $LkR17) goto GMKninput18;

mes $LkR18;

GMKninput19:

input $LkR19;

if ($LkR19 < 1 || $LkR19 > 80) goto GMKninput19;

if ($LkR19 == $LkR1) goto GMKninput19;

if ($LkR19 == $LkR2) goto GMKninput19;

if ($LkR19 == $LkR3) goto GMKninput19;

if ($LkR19 == $LkR4) goto GMKninput19;

if ($LkR19 == $LkR5) goto GMKninput19;

if ($LkR19 == $LkR6) goto GMKninput19;

if ($LkR19 == $LkR7) goto GMKninput19;

if ($LkR19 == $LkR8) goto GMKninput19;

if ($LkR19 == $LkR9) goto GMKninput19;

if ($LkR19 == $LkR10) goto GMKninput19;

if ($LkR19 == $LkR11) goto GMKninput19;

if ($LkR19 == $LkR12) goto GMKninput19;

if ($LkR19 == $LkR13) goto GMKninput19;

if ($LkR19 == $LkR14) goto GMKninput19;

if ($LkR19 == $LkR15) goto GMKninput19;

if ($LkR19 == $LkR16) goto GMKninput19;

if ($LkR19 == $LkR17) goto GMKninput19;

if ($LkR19 == $LkR18) goto GMKninput19;

mes $LkR19;

GMKninput20:

input $LkR20;

if ($LkR20 < 1 || $LkR20 > 80) goto GMKninput20;

if ($LkR20 == $LkR1) goto GMKninput20;

if ($LkR20 == $LkR2) goto GMKninput20;

if ($LkR20 == $LkR3) goto GMKninput20;

if ($LkR20 == $LkR4) goto GMKninput20;

if ($LkR20 == $LkR5) goto GMKninput20;

if ($LkR20 == $LkR6) goto GMKninput20;

if ($LkR20 == $LkR7) goto GMKninput20;

if ($LkR20 == $LkR8) goto GMKninput20;

if ($LkR20 == $LkR9) goto GMKninput20;

if ($LkR20 == $LkR10) goto GMKninput20;

if ($LkR20 == $LkR11) goto GMKninput20;

if ($LkR20 == $LkR12) goto GMKninput20;

if ($LkR20 == $LkR13) goto GMKninput20;

if ($LkR20 == $LkR14) goto GMKninput20;

if ($LkR20 == $LkR15) goto GMKninput20;

if ($LkR20 == $LkR16) goto GMKninput20;

if ($LkR20 == $LkR17) goto GMKninput20;

if ($LkR20 == $LkR18) goto GMKninput20;

if ($LkR20 == $LkR19) goto GMKninput20;

mes $LkR20;

next;

mes "[^008800Keno Teller^000000]";

mes "Lottery rigged for next draw.";

set $KENO_Rigged,1;

close;

}

prontera,166,198,5 duplicate(klottery) Keno Lotto Teller 817[/cbox]

January 10, 2014

Like your example you have different Ticket ID. maybe you miss to claim it and after an hour it draw a new number.

ex.

you buy a ticket for 3:00pm draw and you miss to claim it and after an hour the Ez2 lotto draw the 4:00pm draw and you are trying to claim the ticket for 3:00pm draw which is not a valid ticket anymore because it have a different Ticket ID.

EZ2 Lotto

[cbox]//===== eAthena Script =======================================

//= Ez2 Lottery Script

//===== By: ==================================================

//= chan - teamcars1broglobal.blogspot.com

//===== Current Version: =====================================

//= 1.1.1a

//===== Compatible With: =====================================

//= Any Hercules Version

//===== Description: =========================================

//= Ez2 lottery draw.

//= Just like in Ez2 Lotto in the Philippines

//===== Additional Comments: =================================

//= Numbers drawn daily every hour

//= this is from acky Lottery Script

//= I just modify it

//============================================================

prontera,162,194,5 script ezlotterygenerator 817,{

OnInit:

waitingroom "Let's Play Ez2 Lotto",0;

set $L_TicketPrice,10; // TICKET COST

set $L_Prize_Money,1000000; // JACKPOT AMOUNT

set $L_Prize_Money_Small,500000; // SECONDARY PRIZE

if ($LID == 0) goto L_GenID;

end;

//Modify for own time

OnClock0000:

OnClock0100:

OnClock0200:

OnClock0300:

OnClock0400:

OnClock0500:

OnClock0600:

OnClock0700:

OnClock0800:

OnClock0900:

OnClock1000:

OnClock1100:

OnClock1200:

OnClock1300:

OnClock1400:

OnClock1500:

OnClock1600:

OnClock1700:

OnClock1800:

OnClock1900:

OnClock2000:

OnClock2100:

OnClock2200:

OnClock2300:

set $S_LastDr$,gettimestr("%H:%M",21);

goto C_Ez2;

C_Ez2:

// CHECKS IF LOTTERY IS RIGGED

if ($L_Rigged == 1) goto L_Rigged_Draw;

// GENERATES RANDOM NUMBERS 1-31

Pick1:

set $LW1,rand (1,31);

Pick2:

set $LW2,rand (1,31);

// BROADCASTS DRAW

L_Broadcast:

announce "Welcome to Ez2 Lotto " + $S_LastDr$ + " Draw!",8;

announce "The numbers are as follows: [" + $LW1 + "] [" + $LW2 + "]",8;

announce "Congratulations to the winners of Ez2 Lotto!",8;

// GENERATES DRAW ID CODE

L_GenID:

set $LID2,$LID;

// setS Next ID NUMBER

set $LID,rand (100000,999999);

end;

// setS DRAW TO RIGGED NUMBERS

L_Rigged_Draw:

set $LW1,$LR1;

set $LW2,$LR2;

set $L_Rigged,0;

goto L_Broadcast;

}

// BEGIN LOTTERY SCRIPT

- script ezlottery 76,{

L_Begin:

mes "[^008800Ez2 Teller^000000]";

mes "Winning EZ2 Lotto Numbers ("+$LID2+"):";

mes "The Last Draw ^0000FF[" + $S_LastDr$ + "]^000000";

mes "^0000FF[" + $LW1 + "] [" + $LW2 + "]^000000";

if ($LID > 99999) mes "Your Ticket ("+#LID+"):";

if ($LID > 99999) mes "^FF0000[" + #LW1 + "] [" + #LW2 + "]^000000";

mes "Next Draw-ID: ^FF0000" + $LID + "^000000.";

next;

if (getgmlevel() > 2) goto L_GM;

menu "Claim Prize",L_Claim,"Buy New Ticket",L_Buy,"Cancel",L_Cancel;

// PURCHASE TICKET

L_Buy:

if (#LID == $LID && #LW1 != 0) goto L_DoubleTicket;

mes "[^008800Ez2 Teller^000000]";

mes "Tickets cost ^0000FF" + $L_TicketPrice + "z^000000.";

mes "The Jackpot is ^FF0000" + $L_Prize_Money + "z^000000.";

next;

menu "Buy Ticket",-,"Cancel",L_Cancel;

if (Zeny < $L_TicketPrice) goto L_NoZeny;

set Zeny,Zeny-$L_TicketPrice;

mes "[^008800Ez2 Teller^000000]";

mes "Would you like your numbers Hand Picked or Lucky Picked?";

next;

menu "Lucky Picked",L_ComputerGen,"Hand Picked",L_HandPick,"Renew Ticket",L_Renew;

// RENEW LAST TICKET

L_Renew:

if ($LID < 99999) goto L_Invalid;

set #LID,$LID;

goto L_Confirm2;

L_ComputerGen:

// SELECTS RANDOM NUMBERS

set @L1,0;

set @L2,0;

Pick1:

set @L1,rand (1,31);

Pick2:

set @L2,rand (1,31);

mes "[^008800Ez2 Teller^000000]";

mes "The computer has selected the following numbers:";

mes "^0000FF" + @L1 + " " + @L2 + "^000000";

next;

menu "Confirm",L_Confirm,"Re-Generate",L_ComputerGen;

// HAND PICK LOTTERY NUMBERS

L_HandPick:

mes "[^008800Ez2 Teller^000000]";

mes "Please pick your numbers (1-31):";

set @L1,0;

set @L2,0;

input1:

input @L1;

if (@L1 < 1 || @L1 > 31) goto input1;

mes @L1;

input2:

input @L2;

if (@L2 < 1 || @L2 > 31) goto input2;

mes @L2;

next;

mes "[^008800Ez2 Teller^000000]";

mes "Your numbers are:";

mes "^0000FF" + @L1 + " " + @L2 + "^000000";

next;

menu "Confirm",L_Confirm,"Re-Pick",L_HandPick;

L_Confirm:

set #LW1,@L1;

set #LW2,@L2;

set #LID,$LID;

L_Confirm2:

mes "[^008800Ez2 Teller^000000]";

mes "The live broadcasted draw are at 11am, 4pm and 9pm";

mes "You can claim your ticket between then and the next draw.";

next;

mes "[^008800Ez2 Teller^000000]";

mes "Good luck!";

close;

L_Claim:

// CHECKS TICKET VALIDILITY

if (#LID != $LID2) goto L_Invalid;

// CHECKS HOW MANY NUMBERS MATCHED

set @LPrize,0;

if (#LW1 == $LW1) set @LPrize,@LPrize+1;

if (#LW2 == $LW2) set @LPrize,@LPrize+1;

if (@LPrize == 2) goto LWinBig;

if (#LW1 == $LW2) set @LPrize,@LPrize+2;

if (#LW2 == $LW1) set @LPrize,@LPrize+2;

if (@LPrize == 4) goto LWinSmall;

// NO WINNER

mes "[^008800Ez2 Teller^000000]";

mes "Bad luck, it appears you do not hold a winning ticket.";

next;

mes "[^008800Ez2 Teller^000000]";

mes "Better luck next time!.";

set #LID,0;

close;

// MATCHED TWO IN EXACT ORDER

LWinBig:

mes "[^008800Ez2 Teller^000000]";

mes "You have matched Two Numbers in Exact Order";

mes "Jackpot!";

mes "You've won ^0000FF" + $L_Prize_Money + "z^000000.";

set Zeny,Zeny+$L_Prize_Money;

announce "Ez2 Teller: " + strcharinfo(0) + " has won the JACKPOT of " + $L_Prize_Money + "z!",8;

set #LID,0;

close;

// MATCHED TWO I RANDOM ORDER

LWinSmall:

mes "[^008800Ez2 Teller^000000]";

mes "You have matched Two numbers in Random Order";

mes "You've won ^0000FF" + $L_Prize_Money_Small + "z^000000.";

set Zeny,Zeny+$L_Prize_Money_Small;

announce "Ez2 Teller: " + strcharinfo(0) + " has won a prize of " + $L_Prize_Money_Small + "z!",8;

set #LID,0;

close;

// NO Zeny

L_NoZeny:

mes "[^008800Ez2 Teller^000000]";

mes "You can't afford a Ez2 Lottery ticket.";

close;

// INVALID TICKET

L_Invalid:

mes "[^008800Ez2 Teller^000000]";

mes "I'm sorry but it appears that you have an invalid ticket.";

close;

// DOUBLE TICKET

L_DoubleTicket:

mes "[^008800Ez2 Teller^000000]";

mes "It appears that you already have a ticket for today.";

mes "You may only purchase one ticket per draw.";

close;

L_Cancel:

mes "[^008800Ez2 Teller^000000]";

mes "Come back soon!";

close;

// GM MENU (Lets you manually do draws)

L_GM:

menu "Claim Prize",L_Claim,"Buy New Ticket",L_Buy,"[GM]Do Draw Now",-,"[GM]Rig the Ez2 Lottery",L_GM_Rig,"Cancel",L_Cancel;

// CHECKS IF Lottery IS RIGGED

if ($L_Rigged == 1) goto L_Rigged_Draw;

// GENERATES RANDOM NUMBERS 1-31

GMPick1:

set $LW1,rand (1,31);

GMPick2:

set $LW2,rand (1,31);

// BROADCASTS DRAW

L_Broadcast:

announce "Ez2 Teller: Welcome to the Special GM's Ez2 Lotto draw!",8;

announce "The numbers are as follows: [" + $LW1 + "] [" + $LW2 + "]",8;

announce "Congratulations to the Ez2 Lotto winners!",8;

// GENERATES DRAW ID CODE

L_GenID:

set $LID2,$LID;

// setS Next ID NUMBER

set $LID,rand (100000,999999);

set $S_LastDr$,"Special GM's draw!";

close;

// setS DRAW TO RIGGED NUMBERS

L_Rigged_Draw:

set $LW1,$LR1;

set $LW2,$LR2;

set $L_Rigged,0;

goto L_Broadcast;

// ALLOWS GM TO DO A RIGGED DRAW

L_GM_Rig:

mes "[Lottery]";

mes "Please pick your numbers (1-31):";

set $LR1,0;

set $LR2,0;

GMinput1:

input $LR1;

if ($LR1 < 1 || $LR1 > 31) goto GMinput1;

mes $LR1;

GMinput2:

input $LR2;

if ($LR2 < 1 || $LR2 > 31) goto GMinput2;

mes $LR2;

next;

mes "[^008800Ez2 Teller^000000]";

mes "Lottery rigged for next draw.";

set $L_Rigged,1;

close;

}

prontera,162,194,5 duplicate(ezlottery) Ez2 Lotto Teller 817[/cbox]

January 10, 2014

Eraserheads

Parokya ni Edgar

January 10, 2014

This is my favorite tv show.

Ancient Aliens - Best Show ever

http://www.youtube.com/watch?v=yF-3LHeZg4c&list=PLkBCk1MDzeanjPTAt-E73_vEjDqnKiJAd

Mythbusters

January 10, 2014

after I update my hercules.grf by merging it with the new data folder from https://subversion.assembla.com/svn/client-side-translation/ "client-side-translation - Revision 74: /"
keep getting that error

Note: I if used my old hercules.grf that I back up. I don't get this error

please check this if you can recreate this error.
what I did to temporary fix the problem is to use my old hercules.grf and download only the changes from
https://subversion.assembla.com/svn/client-side-translation/ and make
new custom.grf file but don't include the new updated stateiconinfo.lub

now in data.ini
[Data]
0=msgstring.grf
1=custom.grf
2=hercules.grf
3=rdata.grf
4=data.grf

Don't know why but I think this is causing the error
http://upaste.me/111d97090fb3bc55

January 9, 2014

DELETED

January 9, 2014

go Malufett. malupet ka talaga

January 9, 2014

after I update my hercules.grf by merging it with the new data folder from https://subversion.assembla.com/svn/client-side-translation/ "client-side-translation - Revision 74: /"
keep getting that error

Note: I if used my old hercules.grf that I back up. I don't get this error

Sign In

Profiles

Forums

Downloads

Staff Applications

Calendar

Posts posted by themon

Important Information