Crack the Safe

//Made by Karul

gm02,92,90,5	script	Crack the Safe Event	793,{
if(getgmlevel() < 80) {
		mes "Sorry you must be a level 80 Admin";
		close;
		}
		if(select("Start Event:Nevermind")==2) close;
		{
			mes "Starting the event now...";
			close2;
			goto OnStart;
		}
OnStart:
	Announce "There will be a Crack the Safe Event Held in Prontera!",bc_all | bc_blue;
	enablenpc "Crack the Safe";
	end;
}

prontera,155,180,4	script	Crack the Safe	793,{
set .ctsservername$, "Excalibur"; // Server Name
set .@name$, "^0099FF[Banker]^000000";
set .ctsbankdepmin, 10000000; // Minimum to deposit and use event

mes .@name$;
mes "There sure have been a lot of thefts from banks lately.";
next;
mes .@name$;
mes "That's why you can trust us.";
next;
mes .@name$;
mes "What do you want to do?";
menu 	"Deposit",L_Deposit,"Keep Going",-,"View Deposit",L_View;

next;
mes "^FF0000A safe has been sitting inside for a while, and no one is there to guard it.^000000";
next;
mes "^FF0000The note near it says, 'GMs Private Safe'^000000";
next;
mes "^FF0000Should you try to crack it?^000000";
if(select("Yes:No")==2) close;
	if(#ctsdeposit < .ctsbankdepmin) {
		next;
		mes "^FF0000You find out that you must have a bank account to enter the bank.^000000";
		close;
	} else {
		next;
		mes "^FF0000You find out that you must guess a 5 digit password to open it.^000000";
		next;
		mes "^FF0000Do you continue?^000000";
		if(select("Yes:No")==2) close;
		set .@rand1, rand(0,9);
		set .@rand2, rand(0,9);
		set .@rand3, rand(0,9);
		set .@rand4, rand(0,9);
		set .@rand5, rand(0,9);
		next;
		mes "^FF0000The first digit you guess is...^000000";
		input .@ctspass1;
		if(.@ctspass1 != .@rand1) {
			next;
			mes "^FF0000A siren rings and 1 million zeny is taken to pay for a new safe.^000000";
			npctalk "Alert! "+strcharinfo(0)+" is trying to crack the safe!";
			set #ctsdeposit, #ctsdeposit -1000000;
			close;
			} else {
			next;
			npctalk strcharinfo(0)+" has gotten past the 1st digit!";
			mes "^FF0000You notice that you have entered the correct digit.";
			next;
			}
		mes "^FF0000The second digit you guess is...^000000";
		input .@ctspass2;
		if(.@ctspass2 != .@rand2) {
			next;
			mes "^FF0000A siren rings and 2 million is taken to pay for a new safe.^000000";
			npctalk "Alert! "+strcharinfo(0)+" is trying to crack the safe!";
			set #ctsdeposit, #ctsdeposit -2000000;
			close;
			} else {
			next;
			npctalk strcharinfo(0)+" has gotten past the 2nd digit!";
			mes "^FF0000You notice that you have entered the correct digit.";
			next;
			}
		mes "^FF0000The third digit you guess is...^000000";
		input .@ctspass3;
		if(.@ctspass3 != .@rand3) {
			next;
			mes "^FF0000A siren rings and 3 million is taken to pay for a new safe.^000000";
			npctalk "Alert! "+strcharinfo(0)+" is trying to crack the safe!";
			set #ctsdeposit, #ctsdeposit -3000000;
			close;
			} else {
			next;
			npctalk strcharinfo(0)+" has gotten past the 3rd digit!";
			mes "^FF0000You notice that you have entered the correct digit.";
			next;
			}
		mes "^FF0000The fourth digit you guess is...^000000";
		input .@ctspass4;
		if(.@ctspass4 != .@rand4) {
			next;
			mes "^FF0000A siren rings and 4 million is taken to pay for a new safe.^000000";
			npctalk "Alert! "+strcharinfo(0)+" is trying to crack the safe!";
			set #ctsdeposit, #ctsdeposit -4000000;
			close;
			} else {
			next;
			npctalk strcharinfo(0)+" has gotten past the 4th digit!";
			mes "^FF0000You notice that you have entered the correct digit.";
			next;
			}
		mes "^FF0000The fifth digit you guess is...^000000";
		input .@ctspass5;
		if(.@ctspass5 != .@rand5) {
			next;
			mes "^FF0000A siren rings and 5 million is taken to pay for a new safe.^000000";
			npctalk "Alert! "+strcharinfo(0)+" is trying to crack the safe!";
			set #ctsdeposit, #ctsdeposit -5000000;
			close;
			} else {
			next;
			npctalk strcharinfo(0)+" has gotten past the 5th digit!";
			mes "^FF0000You notice that you have entered the correct digit.";
			next;
			}
		mes "^FF0000You notice that all correct digits have been entered.^000000";
		next;
		mes "^FF0000Your zeny deposit has been doubled and given to you, you're bank is closed.";
		dispbottom "You have gained " + (#ctsdeposit * 2) + " Zeny!";
		Announce strcharinfo(0) + " has cracked the Game Masters' Safe!",bc_all | bc_blue;
		set zeny, zeny + (#ctsdeposit * 2);
		set #ctsdeposit, 0;
		close;
		}

L_Deposit:
next;
mes .@name$;
mes "Welcome to the Bank of " + .ctsservername$;
next;
mes .@name$;
mes "How much do you want to deposit?";
input .@cts;
if(.@cts < .ctsbankdepmin) {
	next;
	mes .@name$;
	mes "Sorry the minimum to start an account is " + .ctsbankdepmin;
	close;
	} else {
	next;
	mes .@name$;
	mes "Thank you for starting your account.";
	set zeny, zeny-.@cts;
	set #ctsdeposit, (#ctsdeposit + .@cts);
	close;
	}

L_View:
if(#ctsdeposit == 0) {
	next;
	mes .@name$;
	mes "You have no bank account started.";
	next;
	mes .@name$;
	mes "Do you want to start one?";
	if(select("Yes:No")==2) close;
	goto L_Deposit;
	end;
	} else {
	next;
	mes .@name$;
	mes "You have " + #ctsdeposit + " inside the bank.";
	next;
	mes .@name$;
	mes "Do you want to deposit more?";
	if(select("Yes:No")==2) close;
	goto L_Deposit;
	end;
	}
OnInit:
		disablenpc "Crack the Safe";
}