irkorz
Newbie
Joined: 24 Feb 2013
Posts: 1
|
 Posted: Sun Feb 24, 2013 8:31 am
Slot machine
|
#CLASS {AnyBar}
#TRIGGER {^you say 'RedBar RedBar WhiteBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'RedBar RedBar BlueBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'RedBar WhiteBar RedBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'RedBar WhiteBar WhiteBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'RedBar BlueBar RedBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'RedBar BlueBar WhiteBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'RedBar BlueBar BlueBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'BlueBar RedBar RedBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'BlueBar RedBar WhiteBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'BlueBar RedBar BlueBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'BlueBar WhiteBar RedBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'BlueBar WhiteBar WhiteBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'BlueBar WhiteBar BlueBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'BlueBar BlueBar RedBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'BlueBar BlueBar WhiteBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'WhiteBar RedBar RedBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'WhiteBar RedBar WhiteBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'WhiteBar RedBar BlueBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'WhiteBar WhiteBar RedBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'WhiteBar WhiteBar BlueBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'WhiteBar BlueBar RedBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'WhiteBar BlueBar WhiteBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'WhiteBar BlueBar BlueBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@AnyB);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#CLASS 0
#CLASS {Bet}
#ALIAS setbio1 {I am a Red White and Blue seven machine.;Just give me anwhere from 2 to 100,000 coins to play.;Payouts are based on number of coins given to me.;***************************************************;* Blank Blank Blank.......................1 X Bet *;* AnyBar AnyBar AnyBar....................5 X Bet *;* RedBar RedBar RedBar...................10 X Bet *}
#ALIAS setbio2 {* WhiteBar WhiteBar WhiteBar.............25 X Bet *;* BlueBar BlueBar BlueBar................40 X Bet *;* RedBar WhiteBar BlueBar................50 X Bet *;* Any7 Any7 Any7.........................80 X Bet *;* Blue7 Blue7 Blue7.....................150 X Bet *;* White7 White7 White7..................200 X Bet *;* Red7 Red7 Red7........................250 X Bet *}
#ALIAS setbio3 {* Red7 White7 Blue7.....................500 X Bet *;***************************************************;This BOT is brought to you by the GoW.;Thank you for helping to support our quests.;Thank you, Galendorf;/i 1;/i 5;/i 19;/s;title is a Red White + Blue 7's machine. Whois Xalidos.;save}
#VAR Any7 {40}
#VAR AnyB {5}
#VAR Blank {1}
#VAR Blue7 {150}
#VAR BlueB {40}
#VAR Red7 {250}
#VAR RedB {10}
#VAR RWB73 {500}
#VAR RWBB {50}
#VAR White7 {200}
#VAR WhiteB {25}
#VAR maxbet {20000}
#VAR reel1 {7} {7}
#VAR reel2 {17} {17}
#VAR reel3 {27} {27}
#VAR slots1 {Blank|Blank|Blank|Blank|Blank|Blank|Blank|Blank|Blank|RedBar|RedBar|RedBar|RedBar|RedBar|WhiteBar|WhiteBar|WhiteBar|WhiteBar|BlueBar|BlueBar|BlueBar|Blue7|Blue7|Blue7|Blue7|White7|White7|White7|White7|Red7}
#VAR slots2 {Blank|Blank|Blank|Blank|Blank|Blank|Blank|Blank|Blank|Blank|Blank|RedBar|RedBar|RedBar|RedBar|RedBar|WhiteBar|WhiteBar|WhiteBar|BlueBar|BlueBar|BlueBar|Blue7|Blue7|Blue7|Blue7|White7|Red7|Red7|Red7}
#VAR slots3 {Blank|Blank|Blank|Blank|Blank|Blank|Blank|Blank|Blank|Blank|Blank|Blank|Blank|RedBar|RedBar|RedBar|WhiteBar|WhiteBar|WhiteBar|WhiteBar|BlueBar|BlueBar|BlueBar|Blue7|White7|White7|White7|Red7|Red7|Red7}
#VAR BADAMT {2000000}
#VAR BET {2580000}
#VAR payout {20000}
#VAR PERSON {}
#VAR wager {20000}
#TRIGGER {%1 nudges you.} {say Yes %1 I am awake, play when you are ready.}
#TRIGGER {&person gives you &wager coins.} {#VAR wager %replace( @wager, ",", "");#IF (@wager > @maxbet) {give @wager coins @person.;say The bet has to be less then $20,000 coins.} {#T+ gamble;#T+ AnyBar;#T- onecoin;#T- twocoin;#T+ threecoin;#VAR reel1 %item( @slots1, %random( 1, 30));#VAR reel2 %item( @slots2, %random( 1, 30));#VAR reel3 %item( @slots3, %random( 1, 30));say @reel1 @reel2 @reel3}} "" {line=134}
#TRIGGER {(E.S.T.)} {#COLOR 6;#CAP Gamble}
#TRIGGER {and have %1 gold coins.} {say I have %1 coins on hand right now.}
#TRIGGER {Last connected from:} {l;save;time}
#TRIGGER {Very generous of you, but you haven't got that much gold.} {#CAP Gamble;sayto @person I am sorry but I don't have enough to pay you what I owe you.;give @wager coins @person;sayto @person This problem has been logged and I will get you the gold you were promised as soon as possible.;#T- bet;#T- gamble;#T+ nomoney}
#TRIGGER {You give %1 coins to %2.} {#COLOR 12;#CAP Gamble}
#TRIGGER {You have %1 gold pieces.} {#CAP Gamble}
#CLASS 0
#CLASS {Gamble}
#TRIGGER {^you say 'Blank Blank Blank'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@wager*@Blank);give @payout coins @person;#T+ bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'RedBar RedBar RedBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@wager*@RedB);give @payout coins @person;gold;#T+ bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'WhiteBar WhiteBar WhiteBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@wager*@WhiteB);give @payout coins @person;gold;#T+ bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'BlueBar BlueBar BlueBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@wager*@BlueB);give @payout coins @person;gold;#T+ bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'RedBar WhiteBar BlueBar'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@wager*@RWBB);give @payout coins @person;gold;#T+ bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Blue7 Blue7 Blue7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@wager*@Blue7);give @payout coins @person;gold;#T+ bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'White7 White7 White7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@wager*@White7);give @payout coins @person;gold;#T+ bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Red7 Red7 Red7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@wager*@Red7);give @payout coins @person;gold;#T+ bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Red7 Red7 White7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Red7 Red7 Blue7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Red7 White7 Red7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Red7 White7 White7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Red7 Blue7 Red7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Red7 Blue7 White7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Red7 Blue7 Blue7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Blue7 Red7 Red7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Blue7 Red7 White7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Blue7 Red7 Blue7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Blue7 White7 Red7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Blue7 White7 White7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Blue7 White7 Blue7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Blue7 Blue7 Red7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Blue7 Blue7 White7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'White7 Red7 Red7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'White7 Red7 White7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'White7 Blue7 White7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'White7 Blue7 Blue7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@Wager*@Any7);give @payout coins @person;gold;#T+ Bet;#T- AnyBar;#T- gamble}
#TRIGGER {^you say 'Red7 White7 Blue7'} {#CAP Gamble;#VAR payout %replace( @payout",", "");#math payout (@wager*@RWB73);give @payout coins @person;gold;#T+ bet;#T- AnyBar;#T- gamble}
#TRIGGER {^You say '} {#IF (@line <> "You say 'RedBar RedBar WhiteBar'");#IF (@line <> "You say 'RedBar RedBar BlueBar'");#IF (@line <> "You say 'RedBar WhiteBar RedBar'");#IF (@line <> "You say 'RedBar WhiteBar WhiteBar'");#IF (@line <> "You say 'RedBar BlueBar RedBar'");#IF (@line <> "You say 'RedBar BlueBar WhiteBar'");#IF (@line <> "You say 'RedBar BlueBar BlueBar'");#IF (@line <> "You say 'BlueBar RedBar RedBar'");#IF (@line <> "You say 'BlueBar RedBar WhiteBar'");#IF (@line <> "You say 'BlueBar RedBar BlueBar'");#IF (@line <> "You say 'BlueBar WhiteBar RedBar'");#IF (@line <> "You say 'BlueBar WhiteBar WhiteBar'");#IF (@line <> "You say 'BlueBar WhiteBar BlueBar'");#IF (@line <> "You say 'BlueBar BlueBar RedBar'");#IF (@line <> "You say 'BlueBar BlueBar WhiteBar'");#IF (@line <> "You say 'WhiteBar RedBar RedBar'");#IF (@line <> "You say 'WhiteBar RedBar WhiteBar'");#IF (@line <> "You say 'WhiteBar RedBar BlueBar'");#IF (@line <> "You say 'WhiteBar WhiteBar RedBar'");#IF (@line <> "You say 'WhiteBar WhiteBar BlueBar'");#IF (@line <> "You say 'WhiteBar BlueBar RedBar'");#IF (@line <> "You say 'WhiteBar BlueBar WhiteBar'");#IF (@line <> "You say 'WhiteBar BlueBar BlueBar'");#IF (@line <> "You say 'Blank Blank Blank'");#IF (@line <> "You say 'RedBar RedBar RedBar'");#IF (@line <> "You say 'WhiteBar WhiteBar WhiteBar'");#IF (@line <> "You say 'BlueBar BlueBar BlueBar'");#IF (@line <> "You say 'RedBar WhiteBar BlueBar'");#IF (@line <> "You say 'Blue7 Blue7 Blue7'");#IF (@line <> "You say 'White7 White7 White7'");#IF (@line <> "You say 'Red7 Red7 Red7'");#IF (@line <> "You say 'Red7 Red7 White7'");#IF (@line <> "You say 'Red7 Red7 Blue7'");#IF (@line <> "You say 'Red7 White7 Red7'");#IF (@line <> "You say 'Red7 White7 White7'");#IF (@line <> "You say 'Red7 Blue7 Red7'");#IF (@line <> "You say 'Red7 Blue7 White7'");#IF (@line <> "You say 'Red7 Blue7 Blue7'");#IF (@line <> "You say 'Blue7 Red7 Red7'");#IF (@line <> "You say 'Blue7 Red7 White7'");#IF (@line <> "You say 'Blue7 Red7 Blue7'");#IF (@line <> "You say 'Blue7 White7 Red7'");#IF (@line <> "You say 'Blue7 White7 White7'");#IF (@line <> "You say 'Blue7 White7 Blue7'");#IF (@line <> "You say 'Blue7 Blue7 Red7'");#IF (@line <> "You say 'Blue7 Blue7 White7'");#IF (@line <> "You say 'White7 Red7 Red7'");#IF (@line <> "You say 'White7 Red7 White7'");#IF (@line <> "You say 'White7 Red7 Blue7'");#IF (@line <> "You say 'White7 White7 Red7'");#IF (@line <> "You say 'White7 White7 Blue7'");#IF (@line <> "You say 'White7 Blue7 Red7'");#IF (@line <> "You say 'White7 Blue7 White7'");#IF (@line <> "You say 'White7 Blue7 Blue7'");#IF (@line <> "You say 'Red7 White7 Blue7'");#T+ bet;#T- AnyBar;#T- gamble}
#CLASS 0
#CLASS {Nomoney}
#TRIGGER {&person gives you &bet coins.} {#COLOR 13;#CAP Gamble;#VAR bet %replace( @bet, ",", "");give @bet coins @person;sayto %1 I am sorry, but I have no money at this time so I have put myself out of service until I get replenished.}
#TRIGGER {%1 nudges you.} {say I'm sorry %1, but I am out of service at the moment. Please try again later.}
#CLASS 0
#ALIAS clearbio {bio;/c;/s;title is just hangin' around.;setprompt}
#ALIAS ticktimer {save;time}
#VAR BET {}
#VAR PERSON {}
I got this script off of the finish script forums. It isn't for my mud and I can not figure out how to make it compatible. I think that it is very similar and wouln't be hard for someone that is good with zmud. If anyone could help me please leave a message |
|
