summaryrefslogtreecommitdiff
path: root/npc/017-3/gambler.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/017-3/gambler.txt')
-rw-r--r--npc/017-3/gambler.txt165
1 files changed, 0 insertions, 165 deletions
diff --git a/npc/017-3/gambler.txt b/npc/017-3/gambler.txt
deleted file mode 100644
index 7d5c848..0000000
--- a/npc/017-3/gambler.txt
+++ /dev/null
@@ -1,165 +0,0 @@
-// 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 "";
- showavatar AVATAR_SEQBOARD_WELL;
-
- // 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:
- showavatar AVATAR_SEQBOARD_FAIL;
- 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;
-}
-