1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
// author: Lien
// reviewed by Pjotr Orial and Jenalya
//020-1.gat,82,82,0 script Criker 192, {
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
getinventorylist;
if (@inventorylist_count == 100) goto L_Full_Inv;
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
getinventorylist;
if (@inventorylist_count == 100) goto L_Full_Inv;
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_Full_Inv:
mes @NPC_NAME$;
mes "\"What are you doing? You have so much stuff with you, you can't carry what you won. Ha, well, then I will keep it!\"";
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 will I 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 double your money or an item worth what you bet. \"";
next;
mes "\"So, do you want to play? \"";
goto L_Menu;
}
|
