diff options
Diffstat (limited to 'npc/020-1/KrickKrackKrock.txt')
| -rwxr-xr-x | npc/020-1/KrickKrackKrock.txt | 121 |
1 files changed, 121 insertions, 0 deletions
diff --git a/npc/020-1/KrickKrackKrock.txt b/npc/020-1/KrickKrackKrock.txt new file mode 100755 index 00000000..b37dd0e1 --- /dev/null +++ b/npc/020-1/KrickKrackKrock.txt @@ -0,0 +1,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; +} + |