Created by Taz.
Using "RC_Core.rcm"
; By tazco
;June 14th 2012
; Any new gambling script should be called for from this one, actors could be excluted if needed.
Function Main()
Player = Actor()
Target = ContextActor()
ChatBox$ = OpenDialog(Player, Target, "Gambling", 418)
PlayerWithItem% = HasItem(Player, "Info Guide")
If (PlayerWithItem = 0)
DialogOUtPUt(Player, D, "Register ha, what can I help you with?")
DialogInput(Player, D, "Close")
CloseDialog(Player, D)
ChatBox$ = OpenDialog(Player, Target, "Gambling", 418)
EndIf
DialogOutPut(Player, ChatBox, "What would you like to gamble on?")
POption% = DialogInPut(Player, ChatBox, "25 Cent Toss,Pick a Cup")
If (POption = 1)
CloseDialog(Player, ChatBox)
ThreadExecute("Gamble_Cent Toss", "Main", Player, 0)
EndIf
If (POption = 2)
CloseDialog(Player, ChatBox)
ThreadExecute("Gamble_Cup Pick", "Main", Player, 0)
EndIf
End Function