path: root/npc/020-1_Nivalis/KrickKrackKrock.txt

// author: Lien
// reviewed by Pjotr Orial and Jenalya
020-1.gat,82,82,0	script	Criker	183, {

L_Main:
//Var

	set @NPC_NAME$, "[Criker]";
	set @BET, 50;
//lots of array ;(
	setarray @KRICK$, "Krick", "Krack", "Krock";
	setarray @ITEM_RAND, 613, 537, 631, 775, 703, 640, 641, 4006, 700;
	setarray @ITEM_HEALTH, 684, 685, 686, 687;

//ends of var

	mes @NPC_NAME$;
	mes "\"Hello " + strcharinfo(0) + ", do you want to play Krick-Krack-Krock?\"";
L_Menu:
	menu	"Let's start!", L_Start,
		"What's this?", L_info,
		"Well, not for the moment.", -;
	close;
L_Start:
	mes @NPC_NAME$;
	mes "\"Well, how many do you want to bet?\"";
	input @BET;
	if(@BET < 50 ) goto L_poor;
	if(@BET > 2000) goto L_Too_rich;
	if(zeny < @BET) goto L_No_Money;
	set zeny, zeny - @BET;



	set @NPC_KRICK, rand(2);
	mes "\"Choose Krick, Krack or Krock.\"";
	menu
		@KRICK$[0], -,
		@KRICK$[1], -,
		@KRICK$[2], -;

	//menu = min 1 & not 0 so I change it
	set @menu, @menu - 1;

	mes @NPC_NAME$;
	mes "\" "+ @KRICK$[@NPC_KRICK] +" !\"";
	if( @menu == @NPC_KRICK ) goto L_Work;
	mes @NPC_NAME$;
	mes "\"Too bad! You were not lucky!\"";
	close;
L_Work:
	mes @NPC_NAME$;
	mes "\"Wow amazing... What kind of present do you want?\"";
	menu
		"Money!", L_Money,
		"An item!", L_Item,
		"Some healing potions would be cool!", L_Health_item;
	close;

L_Money:
	mes @NPC_NAME$;
	mes "\"Here is your money.\"";
	set zeny, zeny + (@BET*2);
	close;
L_Item:
//item

if( @BET > 50) getitem @ITEM_RAND[rand(1)], 1;
if( @BET > 200) getitem @ITEM_RAND[1 + rand(1)], 1;
if( @BET > 500) getitem @ITEM_RAND[2 + rand(1)], 1;
if( @BET > 1000) getitem @ITEM_RAND[3 + rand(1)], 1;
if( @BET > 1200) getitem @ITEM_RAND[4 + rand(1)], 1;
if( @BET > 1500) getitem @ITEM_RAND[5 + rand(1)], 1;
if( @BET == 2000) getitem @ITEM_RAND[6 + rand(1)], 1;
	mes @NPC_NAME$;
	mes "\"Here it is !\"";
	close;

L_Health_item:
// health item

if( @BET > 50) getitem @ITEM_HEALTH[rand(1)], 1;
if( @BET > 200) getitem @ITEM_HEALTH[ 1 +rand(1)], 1 + rand(1);
if( @BET > 500) getitem @ITEM_HEALTH[2 + rand(1)], 1 + rand(3);
if( @BET > 1000) getitem @ITEM_HEALTH[3], 2 + rand(1);
if( @BET > 1500) getitem @ITEM_HEALTH[3], 3 + rand(2);
if( @BET == 2000) getitem @ITEM_HEALTH[3], 5 + rand(10);
	mes @NPC_NAME$;
	mes "\"Here it is !\"";
	close;


L_poor:
	mes @NPC_NAME$;
	mes "\"Erm... if you want to play you HAVE to bet, and you can't bet "+ @BET +" gold pieces. You need at least 50gp.\"";
	close;
L_Too_rich:
	mes @NPC_NAME$;
	mes "\"Mh... I have to bet too. How I'll get a present which is "+ @BET +"? No, that's too much.\"";
	close;
L_No_Money:
	mes @NPC_NAME$;
	mes "\"Oh? You don't have "+ @BET +" gold pieces.\"";
	close;
L_info:
	mes @NPC_NAME$;
	mes "\"Well, if you want to play Krick Krack Krock with me, you need to bet some money. We will both say a word (Krack, Krick or Krock). If we say the same, you can win the double of your money or an item worth of what you bet. \"";
	next;
	mes "\"So, do you want to play? \"";
	goto L_Menu;
}