Jump to content
  • 0

Help Making - 3 Number Lottery

Rivers

Asked by Rivers,

 Share

Question

Rivers Metaling

Rivers

Posted
Posted (edited)

Good day!
I've been trying for a week now to get this to a 3 digit lottery, but I can't seem to get it working. Does anyone think they can do this or have time to do this? I would appreciate it so much. 

//============================================================
//= Lottery
//============================================================

prontera,129,218,4	script	Lottery Generator	406,{
OnInit:
	set $L_TicketPrice,100000; // TICKET COST
	set $L_Prize_Money,2000000000; // JACKPOT AMOUNT
	set $L_Prize_Money_Small,1000000000; // SECONDARY PRIZE
	if ($LID == 0) goto L_GenID;
	end;

	//Modify for own time
OnClock0200:
OnClock0400:
OnClock0600:
OnClock0800:
OnClock1000:
OnClock1200:
OnClock1600:
OnClock1800:
OnClock2000:
OnClock2200:
	// CHECKS IF LOTTERY IS RIGGED
	if ($L_Rigged == 1) goto L_Rigged_Draw;
	// GENERATES RANDOM NUMBERS 1-40
Pick1:
	set $LW1,rand (1,40);

Pick2:
	set $LW2,rand (1,40);
	if ($LW2 == $LW1) goto Pick2;

Pick3:
	set $LW3,rand (1,40);
	if ($LW3 == $LW2) goto Pick3;
	if ($LW3 == $LW1) goto Pick3;

Pick4:
	set $LW4,rand (1,40);
	if ($LW4 == $LW2) goto Pick4;
	if ($LW4 == $LW1) goto Pick4;
	if ($LW4 == $LW3) goto Pick4;

Pick5:
	set $LW5,rand (1,40);
	if ($LW5 == $LW1) goto Pick5;
	if ($LW5 == $LW2) goto Pick5;
	if ($LW5 == $LW3) goto Pick5;
	if ($LW5 == $LW4) goto Pick5;

Pick6:
	set $LW6,rand (1,40);
	if ($LW6 == $LW1) goto Pick6;
	if ($LW6 == $LW2) goto Pick6;
	if ($LW6 == $LW3) goto Pick6;
	if ($LW6 == $LW4) goto Pick6;
	if ($LW6 == $LW5) goto Pick6;

	// BROADCASTS DRAW
L_Broadcast:
	Announce "Lottery: This hour's draw is worth 2b Zeny and 100 Credits!!",8;
	Announce "The numbers are as follows: [" + $LW1 + "] [" + $LW2 + "] [" + $LW3 + "] [" + $LW4 + "] [" + $LW5 + "] [" + $LW6 + "]",8;
	Announce "Congratulations to the winners of tonight!",8;

	// GENERATES DRAW ID CODE
L_GenID:
	set $LID2,$LID;
	// SETS TOMORROW'S ID NUMBER
	set $LID,rand (100000,999999);
	end;

	// SETS DRAW TO RIGGED NUMBERS
L_Rigged_Draw:
	set $LW1,$LR1;
	set $LW2,$LR2;
	set $LW3,$LR3;
	set $LW4,$LR4;
	set $LW5,$LR5;
	set $LW6,$LR6;
	set $L_Rigged,0;
	goto L_Broadcast;
}

prontera,130,215,5	script	Lottery	76,{
L_Begin:
	mes "[Lottery]";
	mes "Winning Lotto Numbers ("+$LID2+"):";
	mes "^0000FF[" + $LW1 + "] [" + $LW2 + "] [" + $LW3 + "] [" + $LW4 + "] [" + $LW5 + "] [" + $LW6 + "]^000000";
	if ($LID > 99999) mes "Your Ticket ("+#LID+"):";
	if ($LID > 99999) mes "^FF0000[" + #LW1 + "] [" + #LW2 + "] [" + #LW3 + "] [" + #LW4 + "] [" + #LW5 + "] [" + #LW6 + "]^000000";
	mes "Next Draw-ID: ^FF0000" + $LID + "^000000.";
	next;
	if (getgmlevel() > 90) goto L_GM;
	menu "Claim Prize",L_Claim,"Buy New Ticket",L_Buy,"Cancel",L_Cancel;

// PURCHASE TICKET
L_Buy:
	if (#LID == $LID && #L1 != 0) goto L_DoubleTicket;
	mes "[Lottery]";
	mes "Tickets cost ^0000FF" + $L_TicketPrice + "z^000000.";
	mes "The Jackpot is ^FF0000" + $L_Prize_Money + "z^000000 & 100 credits!";
	next;
	menu "Buy Ticket",-,"Cancel",L_Cancel;
	if (Zeny < $L_TicketPrice) goto L_NoZeny;
	set Zeny, Zeny-$L_TicketPrice;
	mes "[Lottery]";
	mes "Would you like your numbers hand picked or computer generated?";
	next;
	menu "Computer Generated",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;
	set @L3,0;
	set @L4,0;
	set @L5,0;
	set @L6,0;
Pick1:
	set @L1,rand (1,40);
Pick2:
	set @L2,rand (1,40);
	if (@L2 == @L1) goto Pick2;
Pick3:
	set @L3,rand (1,40);
	if (@L3 == @L2) goto Pick3;
	if (@L3 == @L1) goto Pick3;
Pick4:
	set @L4,rand (1,40);
	if (@L4 == @L2) goto Pick4;
	if (@L4 == @L1) goto Pick4;
	if (@L4 == @L3) goto Pick4;
Pick5:
	set @L5,rand (1,40);
	if (@L5 == @L1) goto Pick5;
	if (@L5 == @L2) goto Pick5;
	if (@L5 == @L3) goto Pick5;
	if (@L5 == @L4) goto Pick5;
Pick6:
	set @L6,rand (1,40);
	if (@L6 == @L1) goto Pick6;
	if (@L6 == @L2) goto Pick6;
	if (@L6 == @L3) goto Pick6;
	if (@L6 == @L4) goto Pick6;
	if (@L6 == @L5) goto Pick6;
	mes "[Lottery]";
	mes "The computer has selected the following numbers:";
	mes "^0000FF" + @L1 + " " + @L2 + " " + @L3 + " " + @L4 + " " + @L5 + " " + @L6 + "^000000";
	next;
	menu "Confirm",L_Confirm,"Re-Generate",L_ComputerGen;

// HAND PICK LOTTERY NUMBERS
L_HandPick:
	mes "[Lottery]";
	mes "Please pick your numbers (1-40):";
	set @L1,0;
	set @L2,0;
	set @L3,0;
	set @L4,0;
	set @L5,0;
	set @L6,0;
Input1:
	input @L1;
	if (@L1 < 1 || @L1 > 40) goto Input1;
	mes @L1;
Input2:
	input @L2;
	if (@L2 < 1 || @L2 > 40) goto Input2;
	if (@L2 == @L1) goto Input2;
	mes @L2;
Input3:
	input @L3;
	if (@L3 < 1 || @L3 > 40) goto Input3;
	if (@L3 == @L1) goto Input3;
	if (@L3 == @L2) goto Input3;
	mes @L3;
Input4:
	input @L4;
	if (@L4 < 1 || @L4 > 40) goto Input4;
	if (@L4 == @L1) goto Input4;
	if (@L4 == @L2) goto Input4;
	if (@L4 == @L3) goto Input4;
	mes @L4;
Input5:
	input @L5;
	if (@L5 < 1 || @L5 > 40) goto Input5;
	if (@L5 == @L1) goto Input5;
	if (@L5 == @L2) goto Input5;
	if (@L5 == @L3) goto Input5;
	if (@L5 == @L4) goto Input5;
	mes @L5;
Input6:
	input @L6;
	if (@L6 < 1 || @L6 > 40) goto Input6;
	if (@L6 == @L1) goto Input6;
	if (@L6 == @L2) goto Input6;
	if (@L6 == @L3) goto Input6;
	if (@L6 == @L4) goto Input6;
	if (@L6 == @L5) goto Input6;
	mes @L6;
	next;
	mes "[Lottery]";
	mes "Your numbers are:";
	mes "^0000FF" + @L1 + " " + @L2 + " " + @L3 + " " + @L4 + " " + @L5 + " " + @L6 + "^000000";
	next;
	menu "Confirm",L_Confirm,"Re-Pick",L_HandPick;

L_Confirm:
	set #LW1,@L1;
	set #LW2,@L2;
	set #LW3,@L3;
	set #LW4,@L4;
	set #LW5,@L5;
	set #LW6,@L6;
	set #LID,$LID;
L_Confirm2:
	mes "[Lottery]";
	mes "The live broadcasted draw is at 9pm.";
	mes "You can claim your ticket between then and the next draw.";
	next;
	mes "[Lottery]";
	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 (#LW1 == $LW2) set @LPrize,@LPrize+1;
	if (#LW1 == $LW3) set @LPrize,@LPrize+1;
	if (#LW1 == $LW4) set @LPrize,@LPrize+1;
	if (#LW1 == $LW5) set @LPrize,@LPrize+1;
	if (#LW1 == $LW6) set @LPrize,@LPrize+1;
	if (#LW2 == $LW1) set @LPrize,@LPrize+1;
	if (#LW2 == $LW2) set @LPrize,@LPrize+1;
	if (#LW2 == $LW3) set @LPrize,@LPrize+1;
	if (#LW2 == $LW4) set @LPrize,@LPrize+1;
	if (#LW2 == $LW5) set @LPrize,@LPrize+1;
	if (#LW2 == $LW6) set @LPrize,@LPrize+1;
	if (#LW3 == $LW1) set @LPrize,@LPrize+1;
	if (#LW3 == $LW2) set @LPrize,@LPrize+1;
	if (#LW3 == $LW3) set @LPrize,@LPrize+1;
	if (#LW3 == $LW4) set @LPrize,@LPrize+1;
	if (#LW3 == $LW5) set @LPrize,@LPrize+1;
	if (#LW3 == $LW6) set @LPrize,@LPrize+1;
	if (#LW4 == $LW1) set @LPrize,@LPrize+1;
	if (#LW4 == $LW2) set @LPrize,@LPrize+1;
	if (#LW4 == $LW3) set @LPrize,@LPrize+1;
	if (#LW4 == $LW4) set @LPrize,@LPrize+1;
	if (#LW4 == $LW5) set @LPrize,@LPrize+1;
	if (#LW4 == $LW6) set @LPrize,@LPrize+1;
	if (#LW5 == $LW1) set @LPrize,@LPrize+1;
	if (#LW5 == $LW2) set @LPrize,@LPrize+1;
	if (#LW5 == $LW3) set @LPrize,@LPrize+1;
	if (#LW5 == $LW4) set @LPrize,@LPrize+1;
	if (#LW5 == $LW5) set @LPrize,@LPrize+1;
	if (#LW5 == $LW6) set @LPrize,@LPrize+1;
	if (#LW6 == $LW1) set @LPrize,@LPrize+1;
	if (#LW6 == $LW2) set @LPrize,@LPrize+1;
	if (#LW6 == $LW3) set @LPrize,@LPrize+1;
	if (#LW6 == $LW4) set @LPrize,@LPrize+1;
	if (#LW6 == $LW5) set @LPrize,@LPrize+1;
	if (#LW6 == $LW6) set @LPrize,@LPrize+1;

	if (@LPrize == 6) goto LWinBig;
	if (@LPrize > 3 && @LPrize < 6) goto LWinSmall;

// NO WINNER
	mes "[Lottery]";
	mes "Bad luck, it appears you do not hold a winning ticket.";
	next;
	mes "[Lottery]";
	mes "Better luck next time!.";
	close;

// MATCHED ALL SIX
LWinBig:
	mes "[Lottery]";
	mes "You have matched all six numbers!";
	mes "Jackpot!";
	mes "You've won ^0000FF" + $L_Prize_Money + "z^000000 & 100 credits!!";
	set Zeny, Zeny+$L_Prize_Money;
	getitem 35012,5;	//100 credits
	Announce "Lottery: " + strcharinfo(0) + " has won the JACKPOT of " + $L_Prize_Money + "z & 100 credits!",8;
	set #LID,0;
	close;

// MATCHED AT LEAST 4
LWinSmall:
	mes "[Lottery]";
	mes "You have matched at least 4 numbers!";
	mes "You've won ^0000FF" + $L_Prize_Money_Small + "z^000000.";
	set Zeny, Zeny+$L_Prize_Money_Small;
	getitem 35011,25;	//10 Credits
	Announce "Lottery: " + strcharinfo(0) + " has won a prize of " + $L_Prize_Money_Small + "z & 25 Credits!",8;
	set #LID,0;
	close;

// NO ZENY
L_NoZeny:
	mes "[Lottery]";
	mes "You can't afford a lottery ticket.";
	close;

// INVALID TICKET
L_Invalid:
	mes "[Lottery]";
	mes "I'm sorry but it appears that you have an invalid ticket.";
	close;

// DOUBLE TICKET
L_DoubleTicket:
	mes "[Lottery]";
	mes "It appears that you already have a ticket for today.";
	mes "You may only purchase one ticket per draw.";
	close;

L_Cancel:
	mes "[Lottery]";
	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 Lottery",L_GM_Rig,"Cancel",L_Cancel;

	// CHECKS IF LOTTERY IS RIGGED
	if ($L_Rigged == 1) goto L_Rigged_Draw;
	// GENERATES RANDOM NUMBERS 1-40
GMPick1:
	set $LW1,rand (1,40);

GMPick2:
	set $LW2,rand (1,40);
	if ($LW2 == $LW1) goto GMPick2;

GMPick3:
	set $LW3,rand (1,40);
	if ($LW3 == $LW2) goto GMPick3;
	if ($LW3 == $LW1) goto GMPick3;

GMPick4:
	set $LW4,rand (1,40);
	if ($LW4 == $LW2) goto GMPick4;
	if ($LW4 == $LW1) goto GMPick4;
	if ($LW4 == $LW3) goto GMPick4;

GMPick5:
	set $LW5,rand (1,40);
	if ($LW5 == $LW1) goto GMPick5;
	if ($LW5 == $LW2) goto GMPick5;
	if ($LW5 == $LW3) goto GMPick5;
	if ($LW5 == $LW4) goto GMPick5;

GMPick6:
	set $LW6,rand (1,40);
	if ($LW6 == $LW1) goto GMPick6;
	if ($LW6 == $LW2) goto GMPick6;
	if ($LW6 == $LW3) goto GMPick6;
	if ($LW6 == $LW4) goto GMPick6;
	if ($LW6 == $LW5) goto GMPick6;

// BROADCASTS DRAW
L_Broadcast:
	Announce "Lottery: Welcome to the special GM's lotto draw!",8;
	Announce "The numbers are as follows: [" + $LW1 + "] [" + $LW2 + "] [" + $LW3 + "] [" + $LW4 + "] [" + $LW5 + "] [" + $LW6 + "]",8;
	Announce "Congratulations to the winners!",8;

// GENERATES DRAW ID CODE
L_GenID:
	set $LID2,$LID;
	// SETS TOMORROW'S ID NUMBER
	set $LID,rand (100000,999999);
	close;

// SETS DRAW TO RIGGED NUMBERS
L_Rigged_Draw:
	set $LW1,$LR1;
	set $LW2,$LR2;
	set $LW3,$LR3;
	set $LW4,$LR4;
	set $LW5,$LR5;
	set $LW6,$LR6;
	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-40):";
	set $LR1,0;
	set $LR2,0;
	set $LR3,0;
	set $LR4,0;
	set $LR5,0;
	set $LR6,0;
GMInput1:
	Input $LR1;
	if ($LR1 < 1 || $LR1 > 40) goto GMInput1;
	mes $LR1;
GMInput2:
	Input $LR2;
	if ($LR2 < 1 || $LR2 > 40) goto GMInput2;
	if ($LR2 == $LR1) goto GMInput2;
	mes $LR2;
GMInput3:
	Input $LR3;
	if ($LR3 < 1 || $LR3 > 40) goto GMInput3;
	if ($LR3 == $LR1) goto GMInput3;
	if ($LR3 == $LR2) goto GMInput3;
	mes $LR3;
GMInput4:
	Input $LR4;
	if ($LR4 < 1 || $LR4 > 40) goto GMInput4;
	if ($LR4 == $LR1) goto GMInput4;
	if ($LR4 == $LR2) goto GMInput4;
	if ($LR4 == $LR3) goto GMInput4;
	mes $LR4;
GMInput5:
	Input $LR5;
	if ($LR5 < 1 || $LR5 > 40) goto GMInput5;
	if ($LR5 == $LR1) goto GMInput5;
	if ($LR5 == $LR2) goto GMInput5;
	if ($LR5 == $LR3) goto GMInput5;
	if ($LR5 == $LR4) goto GMInput5;
	mes $LR5;
GMInput6:
	Input $LR6;
	if ($LR6 < 1 || $LR6 > 40) goto GMInput6;
	if ($LR6 == $LR1) goto GMInput6;
	if ($LR6 == $LR2) goto GMInput6;
	if ($LR6 == $LR3) goto GMInput6;
	if ($LR6 == $LR4) goto GMInput6;
	if ($LR6 == $LR5) goto GMInput6;
	mes $LR6;
	next;
	mes "[Lottery]";
	mes "Lottery rigged for next draw.";
	set $L_Rigged,1;
	close;

OnInit:
waitingroom " Hourly Lottery",0;
end;
}

//=========Duplicates=========//
veil,138,172,6	duplicate(Lottery)	Lottery Machine	406
kaufhaus,14,52,6	duplicate(Lottery)	Lottery Machine	406

 

Edited by Rivers

4 answers to this question

Recommended Posts

  • 0
Rivers Metaling

Rivers

Posted
  • Author
Posted

Good day, the script above is a 6-digit Lottery. I just want to cut the 6 into 3 to make winning a lot easier.

With 6 digits you have a 1 in ~4,096,000,000 chance of winning. With a 3 digit lottery it cuts it down to a mere 1 in ~64,000 chance. This seems much better for my server, I find, as no one plays the lottery here.

  • 1
Patskie Santa Poring

Patskie

Posted
Posted

You can try below and let me know if it works for you 

prontera,130,215,5	script	Lottery	76,{
	function ShowNumbers;
	function GenerateNumbers;
	function MatchCount;
	function GenerateID;
	
	function GenerateID {
		$LWID = $LID;
		$LID = rand(100000, 999999);
		return;
	}
	
	function MatchCount {
		.@cnt = 0;
		
		for (.@i = 0; .@i < .combinations; .@i++) {
			if (inarray($LW, #LW[.@i]) != -1)
				.@cnt++;
		}
		
		return .@cnt;
	}
	
	function ShowNumbers {
		switch (getarg(0)) {
			default:
			case 0:
				.@color$ = "^FF0000";
				.@prefix$ = "#LW";
				break;
			case 1:
				.@color$ = "^0000FF";
				.@prefix$ = "$LW";
				break;
			case 2:
				.@color$ = "^006600";
				.@prefix$ = "$LR";
				break;
		}
		
		if (getarg(1, 0))
			.@color$ = "";
	
		.@mes$ = .@color$;
			for (.@i = 0; .@i < .combinations; .@i++)
				.@mes$ = .@mes$ + "[" + getd(.@prefix$+"["+.@i+"]") + "] ";
		
		if (!getarg(1, 0))
			.@mes$ = .@mes$ + "^000000";
			
		return .@mes$;
	}
	
	function GenerateNumbers {
		.@a = 0;
		deletearray getarg(0);
		while (.@a < .combinations) {
			do {
				.@i = rand(1, 40);
			} while (inarray(getarg(0), .@i) != -1);
			set getelementofarray(getarg(0), .@a), .@i;
			.@a++;
		}
		return;
	}

	mes .npc$;
	mes "Winning Lotto Numbers ("+$LWID+"):";
	mes ShowNumbers(1, 0);
	mes "Your Ticket ("+#LID+"):";
	mes ShowNumbers(0, 0);
	mes "Next Draw-ID: ^FF0000" + $LID + "^000000.";
	next;
	switch(select((#LID == $LWID ? "Claim Prize" : ""), "Buy New Ticket", 
			(getgmlevel() < .gm_level ? "" : "^FF0000[GM]^000000 Do Draw Now"), 
			(getgmlevel() < .gm_level ? "" : "^FF0000[GM]^000000 Rig the Lottery"), "Cancel")) {
		default: break;
		
		// Claim Prize
		case 1:
			.@match_count = MatchCount();
			
			if (.@match_count != .combinations) {
				mes .npc$;
				mes "Bad luck, it appears you do not hold a winning ticket.";
				next;
				mes .npc$;
				mes "Better luck next time!.";
				close;
			}
			
			mes .npc$;
			mes "You have matched all " + .combinations + " numbers!";
			mes "Jackpot!";
			mes "You've won ^0000FF" + F_InsertComma(.jackpot_zeny) + "^000000z & " + .jackpot_items[1] + " " + getitemname(.jackpot_items[0]) + "!";
			Zeny = (Zeny + .jackpot_zeny) > 2147483647 ? 2147483647 : (Zeny + .jackpot_zeny);
			getitem .jackpot_items[0], .jackpot_items[1];
			announce "Lottery: " + strcharinfo(0) + " has won the JACKPOT of " + F_InsertComma(.jackpot_zeny) + "z & " + .jackpot_items[1] + " " + getitemname(.jackpot_items[0]) + "!", 0;
			#LID = 0;
			
			break;
		
		// Buy New Ticket
		case 2:
			if (#LW && #LID == $LID) {
				mes .npc$;
				mes "It appears that you already have a ticket for today.";
				mes "You may only purchase one ticket per draw.";
				close;
			}
			mes .npc$;
			mes "Tickets cost ^0000FF" + F_InsertComma(.ticket_price) + "^000000z.";
			mes "The Jackpot is ^FF0000" + F_InsertComma(.jackpot_zeny) + "^000000z & " + .jackpot_items[1] + " " + getitemname(.jackpot_items[0]) + "!";
			next;
			
			if (Zeny < .ticket_price) {
				mes .npc$;
				mes "You can't afford a lottery ticket.";
				close;
			}	
			
			mes .npc$;
			mes "Would you like your numbers hand picked or computer generated?";
			next;
			switch(select("Computer Generated", "Hand Picked")) {
				case 1:
					while (true) {
						mes .npc$;
						mes "The computer has selected the following numbers:";
						GenerateNumbers(#LW);
						mes ShowNumbers(0, 0);
						next;
						if (select("Re-Generate", "Confirm") & 2) break;
					}
					break;
				case 2:
					while (true) {
						mes .npc$;
						mes "Please pick your numbers (1-40):";
						.@a = 0;
						.@j = 0;
						deletearray #LW;
						while (.@a < .combinations) {
							
							if (getarraysize(#LW)) {
								mes "PICK " + .@a + ": ^0000FF" + #LW[.@j] + "^000000";
								.@j++;
							}
						
							do {
								input @pick;
							} while (@pick < 1 || @pick > 40 || inarray(#LW, @pick) != -1);
							
							#LW[getarraysize(#LW)] = @pick;
							
							.@a++;
						}
						
						mes "PICK " + .@a + ": ^0000FF" + #LW[.@j] + "^000000";
						next;
						mes .npc$;
						mes "Your numbers are:";
						mes ShowNumbers(0, 0);
						next;
						if (select("Confirm", "Re-Pick") == 1) break;
					}
					break;
			}
			
			Zeny -= .ticket_price;
			#LID = $LID;
			mes .npc$;
			mes "The live broadcasted draw is at 9pm.";
			mes "You can claim your ticket between then and the next draw.";
			next;
			mes .npc$;
			mes "Good luck!";
			
			break;
		
		// Do Draw Now
		case 3:
			deletearray $LW;
			if (!$LR)
				GenerateNumbers($LW);
			else
				copyarray $LW, $LR, getarraysize($LR);
			close2;
			announce "Lottery: Welcome to the special GM's lotto draw!", 0;
			sleep 3000;
			announce "The numbers are as follows: " + ShowNumbers(1, 1), 0;
			sleep 3000;
			announce "Congratulations to the winners!", 0;
			GenerateID();
			deletearray $LR;
			end;
		
		// Rig the Lottery
		case 4:
			while (true) {
				mes .npc$;
				mes "Please pick your numbers (1-40):";
				.@a = 0;
				.@j = 0;
				deletearray $LR;
				while (.@a < .combinations) {
					
					if (getarraysize($LR)) {
						mes "PICK " + .@a + ": ^0000FF" + $LR[.@j] + "^000000";
						.@j++;
					}
				
					do {
						input @pick;
					} while (@pick < 1 || @pick > 40 || inarray($LR, @pick) != -1);
					
					$LR[getarraysize($LR)] = @pick;
					
					.@a++;
				}
				
				mes "PICK " + .@a + ": ^0000FF" + $LR[.@j] + "^000000";
				next;
				mes .npc$;
				mes "Your rigged numbers are:";
				mes ShowNumbers(2, 0);
				next;
				if (select("Confirm", "Re-Pick") == 1) break;
			}
			
			mes .npc$;
			mes "Lottery rigged for next draw.";
			break;
	}
	close;
	
	// Automatic Draw
	OnClock0200:
	OnClock0400:
	OnClock0600:
	OnClock0800:
	OnClock1000:
	OnClock1200:
	OnClock1600:
	OnClock1800:
	OnClock2000:
	OnClock2006:
	OnClock2007:
	OnClock2200:
		deletearray $LW;
		if (!$LR)
			GenerateNumbers($LW);
		else
			copyarray $LW, $LR, getarraysize($LR);
		announce "Lottery: This hour's draw is worth " + F_InsertComma(.jackpot_zeny) + " Zeny and " + .jackpot_items[1] + " " + getitemname(.jackpot_items[0]) + "!!", 0;
		sleep 3000;
		announce "The numbers are as follows: " + ShowNumbers(1, 1), 0;
		sleep 3000;
		announce "Congratulations to the winners of tonight!", 0;
		GenerateID();
		deletearray $LR;
		end;

	OnInit:
		.npc$ 						= "[Lottery]";
		.gm_level 					= 99;
		.combinations				= 3;
		.ticket_price				= 100000;
		.jackpot_zeny 				= 2000000000;
		setarray .jackpot_items[0], 501, 20;
		
		if (!$LID)
			GenerateID();
		
		waitingroom "Hourly Lottery",0;
		end;
}

You can set below configs as per your desire 

.gm_level
.combinations
.ticket_price
.jackpot_zeny
.jackpot_items

 

  • MVP 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...