summaryrefslogtreecommitdiff
path: root/npc/020-1/rockscissor.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/020-1/rockscissor.txt')
-rwxr-xr-xnpc/020-1/rockscissor.txt96
1 files changed, 96 insertions, 0 deletions
diff --git a/npc/020-1/rockscissor.txt b/npc/020-1/rockscissor.txt
new file mode 100755
index 00000000..d4a9d6f6
--- /dev/null
+++ b/npc/020-1/rockscissor.txt
@@ -0,0 +1,96 @@
+// author: Lien
+// reviewed by Pjotr Orial and Jenalya
+//#####################################
+//== NPC [Player] #
+// anyone want to do a funny bet #
+// ------------------------ #
+// Rock-Paper-Scissors can be playing #
+// I hope that'll make fun #
+// ------------------------ #
+//#####################################
+
+//020-1.gat,74,78,0 script Gobmel 189, {
+ //var
+ set @NPC_name$, "[Gobmel]";
+ set @NPC_point, 0;
+ set @PC_point, 0;
+ set @gamblerun, 0;
+ setarray @CHOOSE_PC$, "Scissors", "Paper", "Rock";
+ setarray @CHOSE_ID, 0, 1, 2;
+ //0 : scissors; 1: Paper; 2: Rock;
+ // 0 cut 1 and 1 cover 3 and break 0 ...
+ //var ends
+
+ mes @NPC_name$;
+ mes "\"Hello " + strcharinfo(0) + "! Do you want to do a little party of Rock-Paper-Scissors and bet some gold?\"";
+ menu
+ "Yes, I want.", L_RPS,
+ "Well, maybe later.", -;
+ close;
+
+L_RPS:
+
+ mes @NPC_name$;
+ mes "\"How much money do you want to bet?\"";
+ input @MONEY_BET;
+ if(zeny < @MONEY_BET) goto L_poor;
+ set zeny, zeny - @MONEY_BET;
+
+L_Start:
+ if(@gamblerun == 3) goto L_finish;
+ //what chose the NPC ?
+
+ set @CHOOSE_NPCID, rand(2);
+
+ mes @NPC_name$;
+ mes "[ " + @gamblerun + "/3 ]";
+ mes "\"1... 2... 3...\"";
+ mes "";
+ mes"[chose what sign you do]";
+ mes "";
+ menu
+ @CHOOSE_PC$[0], -,
+ @CHOOSE_PC$[1], -,
+ @CHOOSE_PC$[2], -;
+
+ set @CHOSEN, @menu -1;
+ mes "Gobmal: " + @CHOOSE_PC$[@CHOOSE_NPCID];
+ mes strcharinfo(0)+" " + strcharinfo(0)+ ": " +@CHOOSE_PC$[@CHOSEN];
+ mes "";
+ if(@CHOSEN == @CHOOSE_NPCID) goto L_Start;
+ if(@CHOSEN == 0 && @CHOOSE_NPCID == 2) goto L_Lost;
+ if(@CHOSEN == 1 && @CHOOSE_NPCID == 0) goto L_Lost;
+ if(@CHOSEN == 2 && @CHOOSE_NPCID == 1) goto L_Lost;
+L_Win:
+ set @PC_point, @PC_point + 1;
+ set @gamblerun, @gamblerun + 1;
+ mes "Oh no! I have lost.";
+ mes "";
+ next;
+ goto L_Start;
+
+L_poor:
+ mes @NPC_name$;
+ mes "\"Go away from me...\"";
+ close;
+
+L_Lost:
+ set @NPC_point, @NPC_point + 1;
+ set @gamblerun, @gamblerun + 1;
+ mes "I have won!";
+ mes "";
+ next;
+ goto L_Start;
+
+L_finish:
+ if(@PC_point > @NPC_point ) goto L_Won;
+ mes @NPC_name$;
+ mes "\"Nice! I have won, give me your gp!\"";
+ close;
+L_Won:
+ mes @NPC_name$;
+ mes "\"Here is my money.\"";
+ set zeny, zeny + @MONEY_BET*2;
+ close;
+}
+