// 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));
}
}
inspectorQuest();
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;
}