From ab4ab2b1440dcd80dc6d8aaa962b05063a846451 Mon Sep 17 00:00:00 2001 From: Ben Longbons Date: Wed, 3 Aug 2011 16:26:16 -0700 Subject: Completely comment out disabled scripts instead of just the first line This meant that every line would be parsed as a toplevel script, and could crash the server under some conditions. --- world/map/npc/020-1/KrickKrackKrock.txt | 243 ++++++++++++++++---------------- 1 file changed, 123 insertions(+), 120 deletions(-) (limited to 'world/map/npc/020-1/KrickKrackKrock.txt') diff --git a/world/map/npc/020-1/KrickKrackKrock.txt b/world/map/npc/020-1/KrickKrackKrock.txt index b37dd0e1..20b2d6c6 100644 --- a/world/map/npc/020-1/KrickKrackKrock.txt +++ b/world/map/npc/020-1/KrickKrackKrock.txt @@ -1,121 +1,124 @@ -// 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; -} +//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; +// } -- cgit v1.2.3-60-g2f50