summaryrefslogtreecommitdiff
path: root/npc
diff options
context:
space:
mode:
Diffstat (limited to 'npc')
-rw-r--r--npc/017-3/_import.txt1
-rw-r--r--npc/017-3/gambler.txt163
2 files changed, 164 insertions, 0 deletions
diff --git a/npc/017-3/_import.txt b/npc/017-3/_import.txt
index 6d9b59e77..8028fb04d 100644
--- a/npc/017-3/_import.txt
+++ b/npc/017-3/_import.txt
@@ -6,6 +6,7 @@
"npc/017-3/dimonds.txt",
"npc/017-3/doctor.txt",
"npc/017-3/doug.txt",
+"npc/017-3/gambler.txt",
"npc/017-3/loratay.txt",
"npc/017-3/slots.txt",
"npc/017-3/vault.txt",
diff --git a/npc/017-3/gambler.txt b/npc/017-3/gambler.txt
new file mode 100644
index 000000000..5f914ea7a
--- /dev/null
+++ b/npc/017-3/gambler.txt
@@ -0,0 +1,163 @@
+// TMW2 Scripts
+// Author:
+// Jesusalva
+// Description:
+// Gambler: Can you remember the sequence?
+
+017-3,23,38,0 script Gambler#017-3 NPC_PLAYER,{
+ function colorname {
+ switch (getarg(0)) {
+ case 1:
+ return "Green"; break;
+ case 2:
+ return "Blue"; break;
+ case 3:
+ return "Red"; break;
+ case 4:
+ return "Yellow"; break;
+ case 5:
+ return "Exit"; break;
+ default:
+ return l("ERROR: %d", getarg(0));
+ }
+ }
+
+ goto L_Menu;
+
+L_Menu:
+ showavatar NPC_FLOPPED_NOBLEMAN;
+ mesn;
+ mesc l("Gambling is for the weak, I offer you a true game!");
+ mesc l("You need %d %s. I'll start showing you sequences of colors.", .price, getitemlink(CasinoCoins));
+ mesc l("The farther you go on the sequence, the better the payout!");
+ next;
+ menu
+ rif(countitem(CasinoCoins) >= .price, l("Let's play!")), L_Start,
+ l("Information"), L_Info,
+ l("Leave"), -;
+ close;
+
+L_Info:
+ mes "";
+ mesc l("Rules:");
+ mesc l("A color sequence will be displayed on the avatar frame.");
+ mesc l("You must then repeat the sequence at the board which will show.");
+ next;
+ mesc l("Prizes:");
+ mesc l("You'll get %d GP every time you finish the sequence.", .prize);
+ next;
+ mesc l("Winning Strike Prizes:");
+ mesc l("Every %d sequences, you'll get a %s!", 10, getitemlink(StrangeCoin));
+ mesc l("If you get %d sequence, you'll get a %s!", 30, getitemlink(BronzeGift));
+ mesc l("If you get %d sequence, you'll get a %s!", 50, getitemlink(SilverGift));
+ //mesc l("If you get %d sequence, you'll get a %s!", 50, getitemlink(GoldenGift));
+ next;
+ goto L_Menu;
+
+
+L_Start:
+ showavatar AVATAR_SEQBOARD;
+ mesc l("Pay attention to the sequence!");
+ next;
+ delitem CasinoCoins, .price;
+ deletearray(@sequence);
+ @streak=0;
+
+L_Sequence:
+ // Configure
+ setnpcdialogtitle l("Memorize the sequence!");
+ array_push(@sequence, 1+rand2(4));
+ sleep2(1000);
+
+ // Display
+ freeloop(true);
+ for (.@i=0;.@i < getarraysize(@sequence);.@i++) {
+ showavatar 1200+@sequence[.@i];
+ sleep2(1200-(@streak*20));
+ }
+ freeloop(false);
+
+ // Request
+ setnpcdialogtitle l("What was the sequence?");
+ showavatar AVATAR_SEQBOARD;
+ sleep2(500);
+
+ for (.@i=0;.@i < getarraysize(@sequence);.@i++) {
+ setskin "seqboard";
+ select
+ l("Green"),
+ l("Blue"),
+ l("Red"),
+ l("Yellow"),
+ l("Exit");
+ .@ans=@menu;
+ setskin "";
+ mes "";
+ mes l("%s", colorname(.@ans));
+ //next;
+ setnpcdialogtitle strnpcinfo(1);
+
+ // Exit
+ if (.@ans == 5)
+ goto L_Close;
+
+ // Wrong reply
+ if (.@ans != @sequence[.@i])
+ goto L_Wrong;
+ // Correct!
+ }
+ mes "";
+
+ // Seems like everything is/was correct
+ mesn;
+ mesq l("Congratulations! Everything was correct!");
+ Zeny+=.prize;
+ @streak+=1;
+
+ // Winning Streak
+ if (@streak % 10 == 0)
+ getitem StrangeCoin, 1;
+ if (@streak == 30)
+ getitem BronzeGift, 1;
+ if (@streak == 50)
+ getitem SilverGift, 1;
+ mesc l("Your current win streak is @@!", @streak);
+ next;
+ // Game over
+ if (@streak == 50)
+ goto L_Close;
+ // Otherwise, go ahead
+ mesn;
+ mesc l("Continue?"), 1;
+ next;
+ if (askyesno() == ASK_YES)
+ goto L_Sequence;
+ goto L_Close;
+
+L_Wrong:
+ mesn;
+ mesq l("Oh no... That is wrong! %%3");
+ next;
+ mesn;
+ mesq l("Better luck next time!");
+ close;
+
+L_Close:
+ mesn;
+ mesq l("Thanks for playing!");
+ close;
+
+OnInit:
+ .@npcId = getnpcid(.name$);
+ setunitdata(.@npcId, UDT_HEADTOP, TopHat);
+ setunitdata(.@npcId, UDT_HEADMIDDLE, CreasedShirt);
+ setunitdata(.@npcId, UDT_HEADBOTTOM, JeansShorts);
+
+ .sex = G_MALE;
+ .distance = 4;
+ .price = 5;
+ .prize = 50;
+ npcsit;
+ end;
+}
+