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
122
123
124
|
//author: Lien
//reviewed by Pjotr Orial and Jenalya
//To enable: sed 's_^// __' -i npc/020-1/KrickKrackKrock.txt
// 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;
// }
|
