FANDOM


Created by Taz.

Using "RC_Core.rcm"
; testingrc1 1.26
; Date/Time: 5:20:59 PM on 7/12/2010
; By Naddaz on TAZCO
;25 cent toss gambling game.
;Textures 
  ;Idle 429
  ;Heads 430
  ;Tails 430
  
  
  Function Main()
  Player = Actor()
  Target = ContextActor()
  PMoney% = Money(Player)
  BetPicked% = 0 ;variable to hold players heads or tails choice will end if/when script ends.
  ChatBox = OpenDialog(Player, Target, "25 Cent Toss", 429) ;set number to main menu media id in editor
  
          DialogOutPut(Player, ChatBox, "Hey there can I interest ", 230, 145, 23) ;Chat
        DialogOutPut(Player, ChatBox, "you in a game of chance?", 230, 145, 23) ;Chat
        DialogOutPut(Player, ChatBox, "So what do you say?", 230, 145, 23) ;Chat
        Tosshelp% = DialogInPut(Player, ChatBox, "Lets Play,Wait how to play?,Is this Legal?,Close")

            If (Tosshelp = 1) ; Lets play start the game
                CloseDialog(Player, ChatBox)
                ChatBox = OpenDialog(Player, Target, "25 Cent Toss", 429) ;set number to main menu media id in editor
                DialogOutPut(Player, ChatBox, "Enter an amount that you would like to bet.", 230, 145, 23)
                DialogOutPut(Player, ChatBox, "You currently have " + Pmoney + " Cash on hand", 230, 145, 23)
                GambleAmount% = Input(Player, "How much to bet?", "Total", 2) ;get player to add amount to bet

                      If (GambleAmount > PMoney) ;if player don`t have enough money for bet end script.
                         DialogOutPut(Player, ChatBox, "You do not have enough money for this bet.", 230, 145, 23)
                         DialogOutPut(Player, ChatBox, "Dont waste my time!!", 255, 255, 255)
                         DOEvents(2300)
                         CloseDialog(Player, ChatBox)
                         Return
                       EndIf

                 DialogOutPut(Player, ChatBox, "You have bet " + GambleAmount, 230, 145, 23)
                 BetChoice% = DialogInPut(Player, ChatBox, "Bet Heads,Bet Tails")
                    ;1 = heads  2 = tails
                    If (BetChoice = 1) ;player bet heads
                        BetPicked% = 1
                    ElseIf (BetChoice = 2) ;Player, bet tails
                         BetPicked% = 2
                    EndIf

                    ;---------------------------------------------
                    ;do coin flip animation
                    ;---------------------------------------------
                    Ticks% = Rand(5, 8) ;Set to amount that coin should flip
                    ; Note the coin side that is landed on will be the winning side.
                    Flip% = Rand(1, 2) ;set coin side to a random side to start on. 1 = Heads 2 = Tails

                    Repeat

                       Ticks% = Ticks - 1

                        If (Flip = 1)
                            CloseDialog(Player, Chatbox)
                            ChatBox = OpenDialog(Player, Target, "25 Cent Toss", 430)   ;set number to Heads media id in editor
                            DialogOutPut(Player, ChatBox, "Please Wait - - - Coin Fliping", 130, 246, 23)
                            Flip% = 2 ;set flip back to 2 so it will show tails next.
                            If (Ticks <= 0) ;if repeat is ending then set coin to last side it was.
                                Flip% = 1
                            EndIf
                            DoEvents(500)
                         ElseIf (Flip = 2)
                            CloseDialog(Player, ChatBox)
                            ChatBox = OpenDialog(Player, Target, "25 Cent Toss", 431)   ;set number to tails media id in editor
                            DialogOutPut(Player, ChatBox, "Please Wait - - - Coin Fliping", 130, 246, 23)
                            Flip% = 1 ;set flip back to 1 to show heads next.
                            If (Ticks <= 0) ;if repeat is ending then set coin to last side it was.
                                Flip% = 2
                            EndIf
                           DoEvents(500)
                         EndIf

                        DoEvents(500)

                    Until(Ticks = 0)

                    ;--------------------------------------------
                    ;End coin flip animation
                    ;---------------------------------------------

                        PMoney% = Money(Player) ;Player total money
                        GambleFlip% =  Flip ;heads = 1 tails = 2
                        JackPot% = GambleAmount * 3 ;jackpot to win amount player added * 3
                        ;OutPut(Player, "Total jackpot amount is " + JackPot, 245, 214, 43) ;Debug
                        ;Check if player won
                        If (GambleFlip = 1) ;fliped heads
                            If (BetPicked = 1) ;if player picked 1
                              CloseDialog(Player, ChatBox)
                              DoEvents(500)
                              ChatBox = OpenDialog(Player, Target, "25 Cent Toss", 430)      ;set number to Heads media id in editor

                                If (BetPicked = 1) ;tell player if they picked heads or tails.
                                DialogOutPut(Player, ChatBox, "You picked Heads.", 230, 145, 23)
                                ElseIf (BetPicked = 2)
                                DialogOutPut(Player, ChatBox, "You picked Tails.", 230, 145, 23)
                                EndIf
                              DoEvents(1000)
                              DialogOutPut(Player, ChatBox, "Great Job you have won the Jackpot.", 230, 245, 23)
                              DialogOutPut(Player, ChatBox, "You win a total of " + JackPot + " this round", 230, 245, 23)
                              Winbet% = PMoney + JackPot
                              SetMoney(Player, Winbet)
                              DialogInput(Player, ChatBox, "Close")
                              CloseDialog(Player, Chatbox)
                              Return
                            Else ;player picked 2
                                CloseDialog(Player, ChatBox)
                                DoEvents(500)
                                ChatBox = OpenDialog(Player, Target, "25 Cent Toss", 430) ;set number to Heads media id in editor

                                If (BetPicked = 1) ;tell player if they picked heads or tails.
                                    DialogOutPut(Player, ChatBox, "You picked Heads.", 230, 145, 23)
                                ElseIf (BetPicked = 2)
                                    DialogOutPut(Player, ChatBox, "You picked Tails.", 230, 145, 23)
                                EndIf

                                DoEvents(1000)
                                DialogOutPut(Player, ChatBox, "Dam to bad you lost that one.", 230, 245, 23)
                                Losebet% = Pmoney - GambleAmount ;amount player will pay
                                SetMoney(Player, Losebet) ; take bet money from player.
                                DialogOutPut(Player, ChatBox, "You have lost " + GambleAmount, 230, 245, 23)
                                DialogInput(Player, ChatBox, "Close")
                                DoEvents(500)
                                CloseDialog(Player, ChatBox)
                                Return
                            EndIf

                        ElseIf (GambleFlip = 2) ;fliped tails
                             If (BetPicked = 2) ;if player picked 2
                              CloseDialog(Player, ChatBox)
                              DoEvents(500)
                              ChatBox = OpenDialog(Player, Target, "25 Cent Toss", 431) ;set number to tails media id in editor

                                If (BetPicked = 1) ;tell player if they picked heads or tails.
                                    DialogOutPut(Player, ChatBox, "You picked Heads.", 230, 145, 23)
                                ElseIf (BetPicked = 2)
                                    DialogOutPut(Player, ChatBox, "You picked Tails.", 230, 145, 23)
                                EndIf
                                DoEvents(1000)
                              DialogOutPut(Player, ChatBox, "Great Job you have won the Jackpot.", 230, 245, 23)
                              DialogOutPut(Player, ChatBox, "You win a total of " + JackPot + " this round", 230, 245, 23)
                              Winbet% = PMoney + JackPot
                              SetMoney(Player, Winbet)
                              DialogInput(Player, ChatBox, "Close")
                              CloseDialog(Player, Chatbox)
                              Return
                            Else ;player picked 1

                                CloseDialog(Player, ChatBox)
                                DoEvents(500)
                                ChatBox = OpenDialog(Player, Target, "25 Cent Toss", 431) ;set number to tails media id in editor

                                If (BetPicked = 1) ;tell player if they picked heads or tails.
                                    DialogOutPut(Player, ChatBox, "You picked Heads.", 230, 145, 23)
                                ElseIf (BetPicked = 2)
                                    DialogOutPut(Player, ChatBox, "You picked Tails.", 230, 145, 23)
                                EndIf
                                    DoEvents(1000)
                                DialogOutPut(Player, ChatBox, "Dam to bad you lost that one.", 230, 245, 23)
                                Losebet% = Pmoney - GambleAmount ;amount player will pay
                                SetMoney(Player, Losebet) ; take bet money from player.
                                DialogOutPut(Player, ChatBox, "You have lost " + GambleAmount, 230, 245, 23)
                                DialogInput(Player, ChatBox, "Close")
                                DoEvents(500)
                                CloseDialog(Player, ChatBox)
                                Return
                            EndIf

                        EndIf

            ElseIf (TossHelp = 2) ; Explain how to play and what to do.
            CloseDialog(Player, ChatBox)
            ChatBox = OpenDialog(Player, Target, "25 Cent Toss", 429) ;set number to main menu media id in editor
            DialogOutPut(Player, ChatBox, "Well its simple, put in an amount you would like to bet. Then you pick Heads or Tails if your choice is picked you win.", 230, 145, 23)
            DialogInput(Player, ChatBox, " I think I got it.")
            CloseDialog(Player, ChatBox)
            Return
            Elseif (TossHelp = 3) ; Answer is legal question
            CloseDialog(Player, ChatBox)
            ChatBox = OpenDialog(Player, Target, "25 Cent Toss", 429) ;set number to main menu media id in editor
            DialogOutPut(Player, ChatBox, "Well between us, sure it is.", 230, 145, 23)
            DialogInPut(Player, ChatBox, "Thats what i was thinking.")
            CloseDialog(Player, ChatBox)
            Return

            Elseif (TossHelp = 4) ;End script
            DialogOutPut(Player, ChatBox, "Come Back anytime.", 230, 145, 23)
            DoEvents(1500)
            CloseDialog(Player, ChatBox)
            Return
            EndIf
End Function