[Games] Jackpot slot machine

[GrandlineHost]

Hi there,

Today i would like to share two script that enable you to play the jackpot game!

1st script  : slot machine - original scripter is release by godaimet

2nd script : casino employee - my script which i modified from a simple "redeem script i found..uhmm...nowhere?"

How it work?

First, you need a exchange your zeny into token from the casino employee npc. From this script i set 1 token = 50k zeny.

Note that you can also :

• exchange back the token into zeny
  
• redeem some special gift
  

2nd, you can start play the casino machine. Click on the casino machine npc.

You can roll the machine as many time as you like and it will reduce 1 pcs of your coin every single time you roll it.

During rolling the machine, it will goes randomly in 3 sequence alphabet.

If you are lucky to get the same three Alphabet in a row, you will win the reward as stated on the previous picture

Credits
goes to the casino machine scripter owner godaimet and i hope you guys
will have fun playing with this jackpot machine! 

slotmachine.txt

casinoemployee.txt

 

[Hadeszeus]

Nice. Please update zeny to Zeny. and close to end on cutin part.

close2;

cutin "",255;

end;  <---

 

[Oceanid]

//===== Hercules Script =======================================
//= Casino Employee
//===== By: ==================================================
//= Oceanid
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= Hercules Project
//===== Description: =========================================
//= Casino Employee to work with slot machine script
//===== Additional Comments: =================================
//= 1.0 Initial script.
//============================================================

scythero,44,162,4 script Casino Employee 4_F_KAFRA9,{

mes "[Casino Employee]";
mes "Hello " + strcharinfo(0) + ".","I sell the items you need to gamble.";
mes "So what can I help you with?";
next;
switch(select("Trade Zeny for Token:Return Tokens:Redeem Tickets:Nothing")) {
case 1:
mes "[Casino Employee]";
mes "Very well. Each Token of the Ox costs 50,000 zeny.";
mes "How many would you like?";
next;
input @coinamount;
if (checkweight(7606,@coinamount) == 0) {
mes "[Casino Employee]";
mes "You do not have enough space for that many tokens!";
emotion e_hmm;
close;
}else if (Zeny > (50000 * @coinamount)) {
set Zeny,(Zeny - (50000 * @coinamount));
getitem 7606,@coinamount;
mes "[Casino Employee]";
mes "Here are your Tokens.";
close;
}else{
mes "[Casino Employee]";
mes "You do not have enough Zeny for that many Tokens!";
mes "Get out of here before I call Security!";
close;
}
case 2:
mes "[Casino Employee]";
mes "Please be careful not to excahnge more than 1 billion zeny!";
mes "YOU WILL NOT RECEIVE ZENY EXCEEDING 1 BILLION.";
mes "------------------------------------------------";
mes "YOU HAVE BEEN WARNED!";
next;
mes "[Casino Employee]";
mes "How many Token of the Ox would you like to return?";
input @returnamount;
if (countitem(7606) < @returnamount) {
mes "You don't have that many tokens!";
mes "Get out of here before I call security!";
close;
}else{
delitem 7606,@returnamount;
set Zeny,(Zeny + (50000 * @returnamount));
mes "Thank You. Here is your Zeny.";
close;
}
case 3:
mes "[Casino Employee]";
mes "Please select which prize you would like to redeem.";
next;
switch(select("Old Card Album ^FF0000[5 Tickets]^000000:Old Blue Box ^FF0000[5 Tickets]^000000:Gift Box ^FF0000[5 Tickets]^000000oison Bottle ^FF0000[5 Tickets]^000000:Nevermind")) {
case 1:
mes "[Casino Employee]";
mes "How many would you like to get?";
input @prizeamount;
if (countitem(7528) < 5 * @prizeamount) {
mes "You do not have enough tickets for that many!";
mes "Get out of here before I call security!";
close;
}else{
delitem 7528,5 * @prizeamount;
getitem 616,@prizeamount;
mes "Thanks come again!";
close;
}
case 2:
mes "[Casino Employee]";
mes "How many would you like to get?";
input @prizeamount;
if (countitem(7528) < 5 * @prizeamount) {
mes "You do not have enough tickets for that many!";
mes "Get out of here before I call security!";
close;
}else{
delitem 7528,5 * @prizeamount;
getitem 617,@prizeamount;
mes "Thanks come again!";
close;
}
case 3:
mes "[Casino Employee]";
mes "How many would you like to get?";
input @prizeamount;
if (countitem(7528) < 5 * @prizeamount) {
mes "You do not have enough tickets for that many!";
mes "Get out of here before I call security!";
close;
}else{
delitem 7528,5 * @prizeamount;
getitem 644,@prizeamount;
mes "Thanks come again!";
close;
}
case 4:
mes "[Casino Employee]";
mes "How many would you like to get?";
input @prizeamount;
if (countitem(7528) < 5 * @prizeamount) {
mes "You do not have enough tickets for that many!";
mes "Get out of here before I call security!";
close;
}else{
delitem 7528,5 * @prizeamount;
getitem 678,@prizeamount;
mes "Thanks come again!";
close;
}
case 5:
close;
}
case 4:
close;
}
}



Downloaded these scripts for my server and the Casino Employee did not work so I scripted a new one