summaryrefslogtreecommitdiff
path: root/world/map/npc/020-1/KrickKrackKrock.txt
blob: 6cbe6ac8c0be0e843633e789f43b6bc0cf1816a7 (plain) (blame)
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;
// }