--[[

]]--
-----------------------------------------------------------------------------------------------------------------------------------------------------
--	B A C K P A C K S
-----------------------------------------------------------------------------------------------------------------------------------------------------


Lixo = "orange backpack"    -- Bp de LIXO recomendado : 100+ 1 dentro da outra!

BetCashBP = "shopping bag"  -- Checar o Dinheiro

MoneyBP = "red backpack"  -- Local para guardar o seu dinheiro 10 + 1 dentro da outra!

LyreBackpack = "brocade backpack" -- Local ParaColocar o ITEM DE MUSICA


-----------------------------------------------------------------------------------------------------------------------------------------------------
-- T R U E    &    F A L S E   S E T T I N G S 									    	   							                           	   --
-----------------------------------------------------------------------------------------------------------------------------------------------------

LyreActive = true -- [[True Ou False]]
LyreCassino = 1.0 -- Tempo que vai Usar LYRE 1.0 = 1 Segundo(s)
Connection_Speed = 'real-time' -- (real-time/sfast/fast/normal/slow or default)
MensagemAntiTRASH = "Nao Jogue Lixo"
DPBox = 1 -- De 1 a 17 [ Local onde as Backpacks estar?o dentro do dp]

-----------------------------------------------------------------------------------------------------------------------------------------------------
-- P O S I T I O N    C O N F I G				   					                                                                               --
-----------------------------------------------------------------------------------------------------------------------------------------------------

Dicer = "norte" -- norte/sul

-----------------------------------------------------------------------------------------------------------------------------------------------------
-- G A M E   T Y P E S																				   											   --
-----------------------------------------------------------------------------------------------------------------------------------------------------


Bet =
{
    Value = 0, -- Deixe assim
    min = 5, -- 5 = 5cc  5 = 50k
    max = 300, -- 200 = 1kk
}

payo = 0.85 --    1 == 90%  ,  0.9 == 90%

-----------------------------------------------------------------------------------------------------------------------------------------------------
-- T R U E    &    F A L S E   S E T T I N G S 									    	   							                           	   --
-----------------------------------------------------------------------------------------------------------------------------------------------------

yellActive = true
yellMessage = ("["..Self.Name().."]\n $| 7/24\n| (H/L) |\n| PAYOUT: 90% |\n| MIN: 5 CC ~ MAX: 3 kk |")



info = "Min: 5 cc ~ Max: 3 KK\nGames: {High/Low}\nSay any game to know how to play!"



-----------------------------------------------------------------------------------------------------------------------------------------------------
-- T R U E    &    F A L S E   S E T T I N G S 									    	   							                           	   --
-----------------------------------------------------------------------------------------------------------------------------------------------------


MENSAGEM_BEMVINDO = {
"•[ Ola! ]•\n•[ |Gambler| ]•\n•[ Info ]• ",
"•[ Bem vinda! ]•\n•[ |Gambler| ]•\n•[ Info ]•",
"•[ Bem vinda! ]•\n•[ |Gambler| ]\n5 cc Max: 3 kk \nScript Version 3.5",
"•Opa Tigers\n [Bem-vindo ]\n 5 cc Max: 3 kk\n ao melhor cassino!",
"•Welcome, Tigers\n| Min: 5 cc | Max: 3 kk |\nBem-vindo ao melhor cassino!\n| Nao Accept Itens |",

}


-----------------------------------------------------------------------------------------------------------------------------------------------------
--	F U N C T I O N S    &   M O D U L E S    A R E A					                        												   --
-----------------------------------------------------------------------------------------------------------------------------------------------------

Last_Activity_Player_In_Spot = os.time()
EXHT_BEM_VINDO = os.time()
cashposx = Self.Position().x
cashposy = Self.Position().y
cashposz = Self.Position().z
Players = {}
Rolls = {}
cc = 3043
Balance = 0
Gambler_Name = ""
EXHT_BEM_VINDO = os.time()
 money = Self.ItemCount(cc)
 cash = Self.ItemCount(cc)
 Players = {}
Rolls = {}
AntiSpamTimer = os.clock()
function AntiSpam(message, type)
if os.difftime(os.clock(), AntiSpamTimer) >= 2 then
Self.Speak(message, type)
AntiSpamTimer = os.clock()
end
end
dados = {
  5792,
  5793,
  5794,
  5795,
  5796,
  5797,
  3043,
  3497,
  3499
}
crystal = {3043}
TempoDeBlocker = 1
local PositionDice
if Dicer == "norte" then
  PositionDice = Self.Position().y - 1
else
  PositionDice = Self.Position().y + 1
end
Module.New("ANTI-TRASH", function(mod)
  if not table.contains(dados, Map.GetTopUseItem(Self.Position().x, PositionDice, Self.Position().z).id) then
    Map.PickupItem(cashposx - 1, cashposy, cashposz, Container(Lixo), 19)
    AntiSpam("")
  end
  mod:Delay(WaitConfiguration + Self.Ping())
end)
Module.New("ANTI-TRASH1", function(mod)
  if table.contains(crystal, Map.GetTopUseItem(Self.Position().x, PositionDice, Self.Position().z).id) then
    Map.MoveItem(cashposx - 1, cashposy, cashposx + 1, cashposy, 100)
    AntiSpam("By Star Fire-SCRIPTS\n" .. MensagemAntiTRASH .. "")
  end
  mod:Delay(WaitConfiguration + Self.Ping())
end)
if Connection_Speed == "Star Fire" then
  WaitConfiguration = 300
elseif Connection_Speed == "default" then
  WaitConfiguration = 200
elseif Connection_Speed == "normal" then
  WaitConfiguration = 150
elseif Connection_Speed == "fast" then
  WaitConfiguration = 300
elseif Connection_Speed == "sfast" then
  WaitConfiguration = 15
elseif Connection_Speed == "real-time" then
  WaitConfiguration = 0
end
function onSpeak(channel, msg)
  if msg == 'balance' then
    channel:SendOrangeMessage('DiceBot', Gambler_Name .. '\'s balance is ' .. Balance)
  end
  if msg == 'info' then
    channel:SendOrangeMessage('DiceBot', "Bet.min = " .. Bet.min)
    channel:SendOrangeMessage('DiceBot', "Bet.max = " .. Bet.max)
    channel:SendOrangeMessage('DiceBot', "Gambler_Name = " .. Gambler_Name)
    channel:SendOrangeMessage('DiceBot', "Balance = " .. Balance)
  end
end
function onClose(channel, msg)
  print("Leaving channel")
end
channel = Channel.New('DiceBot log', onSpeak, onClose)
Module.New('Casino_Turn', function(Mod)
  Casino_Loaded = true
    if (Casino_Loaded) then
        Player_Detected = false

        for name, creature in Creature.iPlayers(2) do

            if (creature:Position().x == Self.Position().x + 2 and creature:Position().y == Self.Position().y and creature:Position().z == Self.Position().z) then
                Player_Detected = true
                    if Gambler_Name ~= creature:Name() and not table.contains(Players, Gambler_Name) then
                    table.insert(Players, Gambler_Name)
                    for i = 1, #Players do
                    print(Players[i])
               end
               end

                Gambler_Name = creature:Name()
                if (creature:Position().x < Self.Position().x) then
                  cashposx = Self.Position().x + 1
                  cashposy = PositionDice
                  cashposz = Self.Position().z
                    if (Self.LookDirection() ~= WEST) then
                        Last_Activity_Player_In_Spot = os.time()
                        Self.Turn(WEST)
                    end
                elseif (creature:Position().x > Self.Position().x) then
                                    cashposx = Self.Position().x + 1
                                     cashposy = PositionDice
                                     cashposz = Self.Position().z
                                        if (Self.LookDirection() ~= EAST) then
                                        Last_Activity_Player_In_Spot = os.time()
                             Self.Turn(EAST)
      tmp = string.gsub(tostring(MENSAGEM_BEMVINDO[math.random(1, table.getn(MENSAGEM_BEMVINDO))]), "|Gambler|", name)
if os.time() - EXHT_BEM_VINDO > 4 then
	 Self.Say(tmp) EXHT_BEM_VINDO = os.time() end





                    end


                else
                    if (creature:Position().y < Self.Position().y) then
                        if (Self.LookDirection() ~= SOUTH) then
                            Last_Activity_Player_In_Spot = os.time()
                            Self.Turn(SOUTH)
                        end
                    elseif (creature:Position().y > Self.Position().y) then
                        if (Self.LookDirection() ~= SOUTH) then
                            Last_Activity_Player_In_Spot = os.time()
                            Self.Turn(SOUTH)
                        end
                    else
                        print('Casino: Error. Self character is the potential gambler.')
                    end
                end
                break
            end
        end
        if not (Player_Detected) then
                          Balance = 0
            if (Self.LookDirection() ~= SOUTH) then
              yellDelay = os.time()
                Self.Turn(SOUTH)
                Balance = 0
                AntiSpam("GoodBye, " .. Gambler_Name .. ".\n{*Today Gamblers*}: " .. #Players, SPEAK_SAY)
            end
        end
    end
    Mod:Delay(0)
end)
Module.New("UseFanfare", function(module)
  if LyreActive and not Player_Detected then
    Container(LyreBackpack):UseItem(spot, true)
    module:Delay(LyreCassino * 1000)
  end
end)
Module('InactivityDetectionSystem', function(Mod)

	  if(Player_Detected == true) then
	if (os.difftime(os.time(),Last_Activity_Player_In_Spot) >= TempoDeBlocker*80) then
								Self.Say("[BOT] Porfavor jugue o muevase.")
								Last_Activity_Player_In_Spot = os.time()
							end

						end
		Mod:Delay(30000)
	end)

EffectMessageProxy.OnReceive("DiceSignal", function(proxy, message, x, y, z)
roll = string.match(message, Self.Name().." rolled a (.+).")
if roll then
dice = Signal.New('Dice')
dice:Send(roll)
end
end)
Module.New('Check-Bet', function(mod)

      BetBP = Container.New(BetCashBP)
      CashBP = Container.New(MoneyBP)
            if (Map.GetTopMoveItem(cashposx, cashposy, cashposz).id == cc and not withdraw and not Casher) then
              Casher = true
             d =  (Map.GetTopMoveItem(cashposx, cashposy, cashposz)).count
            Map.PickupItem(cashposx, cashposy, cashposz, BetBP:Index(), 0)
              wait(WaitConfiguration + Self.Ping())
                           --  print(BetBP:CountItemsOfID(cc))
                  Bet.Value = BetBP:CountItemsOfID(cc)
                  Balance   = Balance + Bet.Value

                 Self.Say("[ " .. Gambler_Name .. " ] Balance: "  .. Balance/100 .. "kk" , SPEAK_SAY)

                  repeat
                  BetBP:MoveItemToContainer(0, CashBP:Index(), 0)
                  until
                    BetBP:CountItemsOfID(cc) == 0
           --  AntiSpam("Bot added " .. Bet.Value * 10 .. " k to your balance. Your balance is " .. Balance * 10 .. "k.", SPEAK_SAY)
             channel:SendOrangeMessage('DiceLog', 'Bot added ' .. Bet.Value *10 .. 'k on ' .. Gambler_Name .. '\'s balance and its ' .. Balance *10 .. 'k.')
          --   print('Bet Value is ' .. Bet.Value * 10 .. " " .. Gambler_Name .. " balance is " .. Balance * 10)
             wait(WaitConfiguration + Self.Ping())
             Casher = false
             Bet.Value = 0

end
end)
 LocalSpeechProxy.OnReceive('bet', function(proxy, mtype, speaker, level, text)
  Cyfra = text:match('%d+')
  Litera = text:match('%a+')
  if speaker == Gambler_Name and Cyfra ~= nil and Litera ~= "" then
    Cyfra1 = tonumber(Cyfra) + 0
    if table.isStrIn({'l', 'h'}, Litera) and Cyfra ~= nil then
  --    print(Cyfra1 .. " " .. Litera)
      if Cyfra1 >= Bet.min * 1 and Cyfra1 <= Bet.max * 1 and Balance >= Cyfra1 / 1 and Litera == "h" or Litera == "l" or Litera == "high" or Litera == "low" or Litera == "odd" or Litera == "even" or Litera == "246" or Litera == "135" or Litera == "1" or Litera == "2" or Litera == "3" or Litera == "4" or Litera == "5" or Litera == "6" or Litera == "first" or Litera == "middle" or Litera == "last" and speaker == Gambler_Name then
                ValidBet = true
                playerBet = Cyfra1
                playerType = Litera
            --    print('valid ' .. playerBet .. 'valid ' .. playerType)
                else
                  ValidBet = false
              end
            else
              ValidBet = false
            end
          end
          if Cyfra == nil or Cyfra == 0 and Litera == "" then
               ValidBet = false
  end
  end)
 LocalSpeechProxy.OnReceive('Balance', function(proxy, mtype, speaker, level, text)
  if speaker == Gambler_Name and text:lower() == 'balance' then
    AntiSpam(MENSAGEM_BALANCE .. Balance * 1 .. " cc. Crystal Coins.", SPEAK_SAY)
  end
end)
 LocalSpeechProxy.OnReceive('BalanceRolls', function(proxy, mtype, speaker, level, text)
  if speaker == Gambler_Name and ValidBet and not Casher then
 --   print(playerBet .. " playerBet " .. "playerType " .. playerType)

                                      if playerType:lower() == 'h' and playerBet / 1  >= Bet.min and playerBet / 1 <= Bet.max and Balance ~= 0 and playerBet /1 <= Balance and ValidBet == true and not Bett and not withdrawthen then
                                        Bett = true
                                           Self.UseItemFromGround(Self.Position().x, PositionDice, Self.Position().z)
                         Signal.OnReceive('Dice', function(signal, data)
                              if (data == "4" or data == "5" or data == "6") and playerType:lower() == 'h' and playerBet / 1 >= Bet.min and not withdraw then
    Container(LyreBackpack):UseItem(spot, true)
	    Container(LyreBackpack):UseItem(spot, true)
Last_Activity_Player_In_Spot = os.time()
                                   Balance = math.floor(Balance + ((playerBet / 1) * payo))
                                     AntiSpam("Balance: "  .. Balance/100 .. "kk" , SPEAK_SAY)
                         channel:SendYellowMessage('DiceLog', Gambler_Name .. ": " .. playerType .. ' . Bet: ' .. playerBet .. ' $$ Oiaa Acertou $$:' .. playerBet  .. ' Balance = ' .. Balance * 10)

                         print('won')
                         Bett = false
                    else
                      Bett = true
                         Balance = math.floor(Balance - playerBet / 1)
                       AntiSpam( "Balance 0kk" , SPEAK_SAY)
Last_Activity_Player_In_Spot = os.time()
                Self.Say('exura gran san')
                Self.Say('exura gran san')
                                                  channel:SendOrangeMessage('DiceLog', Gambler_Name .. ": " .. playerType .. ' . Bet: ' .. playerBet .. ' $$ Perdeu Paizمo , Tenta Dnv $$ :' .. playerBet  .. ' Balance = ' .. Balance * 10)
                         print("lost")
                         Bett = false
                       end
                    end)
                          elseif playerType:lower() == 'l' and playerBet / 1 >= Bet.min and  playerBet / 1 <= Bet.max  and playerBet /1 <= Balance and Balance ~= 0 and ValidBet == true and not Bett and not withdraw then
                        -- browse:UseItem(0)
                        Bett = true
                         Self.UseItemFromGround(Self.Position().x, PositionDice, Self.Position().z)
                         Signal.OnReceive('Dice', function(signal, data)
                              if (data == "1" or data == "2" or data == "3") and playerType:lower() == 'l' and playerBet /1 >= Bet.min and not withdraw then
    Container(LyreBackpack):UseItem(spot, true)
	    Container(LyreBackpack):UseItem(spot, true)

Last_Activity_Player_In_Spot = os.time()
                                   Balance = math.floor(Balance + ((playerBet / 1)*payo))
                                     AntiSpam("Balance: "  .. Balance/100 .. "kk" , SPEAK_SAY)
                                  channel:SendYellowMessage('DiceLog', Gambler_Name .. ": " .. playerType .. ' . Bet: ' .. playerBet / 1.2 .. ' $$ - Aي Sim , Ganhou rsrs $$:' .. playerBet * 0.8 .. ' Balance = ' .. Balance * 10)
Bett = false
                         print('won')
                               else
                                Bett = true
                          Balance =math.floor(Balance - playerBet / 1)
Last_Activity_Player_In_Spot = os.time()
                Self.Say('exura gran san')
                Self.Say('exura gran san')

                        AntiSpam( "You Lose! Balance 0kk" , SPEAK_SAY)
                                                channel:SendOrangeMessage('DiceLog', Gambler_Name .. ": " .. playerType .. ' . Bet: ' .. playerBet .. ' $$ Perdeu Paizمo , Tenta Dnv $$ :' .. playerBet  .. ' Balance = ' .. Balance * 10)
                         print("lost")
                         Bett = false
                       end
                    end)
                end
            elseif speaker == Gambler_Name and not ValidBet then
              if text:lower() == 'h' and Balance >= Bet.min and Balance <= Bet.max and not Bett and not withdraw then
                Bett = true
                                                           Self.UseItemFromGround(Self.Position().x, PositionDice, Self.Position().z)
                         Signal.OnReceive('Dice', function(signal, data)
                              if (data == "4" or data == "5" or data == "6") and text:lower() == 'h'   then

    Container(LyreBackpack):UseItem(spot, true)
	    Container(LyreBackpack):UseItem(spot, true)
Last_Activity_Player_In_Spot = os.time()
                                   Balance = math.floor(Balance + (Balance * payo))
                                     AntiSpam("[ " .. Gambler_Name .. " ] Balance: "  .. Balance/100 .. "kk" , SPEAK_SAY)
                         channel:SendYellowMessage('DiceLog', Gambler_Name .. ": " .. text:upper() .. ' . Bet: ' .. Balance * 10 .. ' Ganhou!! Parabens <3:' .. Balance * 10 .. ' Balance = ' .. Balance * 10)
                   Bett = false
                         print('won')
                    else
                         Bett = true
                         cash = money + Balance
Last_Activity_Player_In_Spot = os.time()
                Self.Say('exura gran san')
                Self.Say('exura gran san')

                         AntiSpam( "[ " .. Gambler_Name .. " ] Balance 0kk", SPEAK,SAY)
                         Balance = 0
                                                  channel:SendOrangeMessage('DiceLog', Gambler_Name .. ": " .. text:upper() .. ' . Bet: ' .. Balance * 10 .. ' Lost:' .. Balance * 10  .. ' Balance = 0' )
                         print("lost")
                         Bett = false
                       end
                       end)
 elseif   text:lower() == 'l' and Balance >= Bet.min and Balance <= Bet.max and not Bett and not withdraw then
              Bett = true
                                                           Self.UseItemFromGround(Self.Position().x, PositionDice, Self.Position().z)
                         Signal.OnReceive('Dice', function(signal, data)
                              if (data == "1" or data == "2" or data == "3") and text:lower() == 'l'   then
    Container(LyreBackpack):UseItem(spot, true)
	    Container(LyreBackpack):UseItem(spot, true)

Last_Activity_Player_In_Spot = os.time()
                                   Balance = math.floor(Balance + (Balance * payo))
                                   AntiSpam("[ " .. Gambler_Name .. " ] Balance: "  .. Balance/100 .. "kk" , SPEAK_SAY)
                         channel:SendYellowMessage('DiceLog', Gambler_Name .. ": " .. text:upper() .. ' . Bet: ' .. Balance .. ' Pirikita:D:' .. Balance * 10 .. ' Balance = ' .. Balance * 10)
                   Bett = false
                         print('won')
                    else
                         Bett = true
Last_Activity_Player_In_Spot = os.time()
                Self.Say('exura gran san')
                Self.Say('exura gran san')

                         AntiSpam( "[ " .. Gambler_Name .. " ] Balance 0kk", SPEAK,SAY)
                         Balance = 0
                                                  channel:SendOrangeMessage('DiceLog', Gambler_Name .. ": " .. text:upper() .. ' . Bet: ' .. Balance * 10 .. ' Lost:' .. Balance * 10  .. ' Balance = 0' )
                         print("lost")
                         Bett = false
                       end
                       end)
end
end

end)


	 LocalSpeechProxy.OnReceive("withdraw", function(proxy, mtype, speaker, level, text)
  if not Casher and not withdraw and speaker:lower() == Gambler_Name:lower() and Balance ~= 0 and not withdraw and not Bett and not Casher and (text:lower() == "pay" or text:lower() == ">" or text:lower() == "payout" or text:lower() == "payo" or text:lower() == "withdraw" or text:lower() == "<" and not withdraw) then
    withdraw = true
    channel:SendRedMessage("DiceLog", "Moving " .. Balance .. " Crystal Coins onto " .. Gambler_Name .. "'s locker.")
    repeat
      if CashBP:CountItemsOfID(cc) > 100 then
        if Balance >= 100 then
          lalunia = Self.ItemCount(cc)
          dupcia = CashBP:GetItemData(1)
          for _, value in pairs(dupcia) do
            if value == cc then
              CashBP:MoveItemToGround(1, cashposx + 1, cashposy, cashposz, 100)
              wait(WaitConfiguration + Self.Ping())
            end
          end
          if lalunia - Self.ItemCount(cc) == 100 then
            Balance = Balance - 100
          else
            Balance = Balance
          end
        else
          Self.DropItem(cashposx + 1, cashposy, cashposz, cc, Balance)
          Balance = 0
        end
      else
        CashBP:GoBack()
        wait(1000)
      end
    until Balance == 0
     AntiSpam("Withdrawn: " ..  Balance * 1 .. " cc.", SPEAK_SAY)
    wait(2000)
    withdraw = false
  end
end)



Module.New("openNextBackpack", function(m)
  for c = 0, #Container.GetAll() - 1 do
    cont = Container.New(c)
    if cont:EmptySlots() == 0 and Item.isContainer(cont:GetItemData(cont:ItemCapacity() - 1).id) then
      cont:UseItem(cont:ItemCapacity() - 1, true)
    end
  end
  m:Delay(WaitConfiguration + Self.Ping())
end)




Module.New('Yelling', function(mod)
  if yellActive then
    if not Player_Detected then
     -- Timer2 = yellDelay
        local Spam2 = os.difftime(os.time(), Timer2)
Self.UseItemFromEquipment("head")
        if Spam2 >= 5 then
        Self.Yell(yellMessage)
        Timer2 = os.time()
    end
    end
  end
    mod:Delay(700)
    end)


LocalSpeechProxy.OnReceive('info', function(proxy, mtype, speaker, level, text)
if (speaker == Gambler_Name and text:lower() == 'info') then
AntiSpam(info , SPEAK_SAY)
end
end)
Self.CloseContainers()
Self.OpenDepot()
Client.HideEquipment()
local DPChest = Container.GetLast()
for i = 0, DPChest:ItemCount() - 1 do
  if DPChest:GetItemData(i).id == 22796 + DPBox then
    DPChest:UseItem(i, true)
    wait(Self.Ping() * 2, Self.Ping() * 3)
    for j = 0, DPChest:ItemCount() - 1 do
      if DPChest:GetItemData(j).id == Item.GetID(Lixo) then
        DPChest:UseItem(j, false)
        wait(Self.Ping() * 2, Self.Ping() * 3)
        Container.New(#Container.GetAll() - 3):Minimize()
        wait(Self.Ping())
      end
    end
  end
end
for j = 0, DPChest:ItemCount() - 1 do
  if DPChest:GetItemData(j).id == Item.GetID(BetCashBP) then
    DPChest:UseItem(j, false)
    wait(Self.Ping() * 2, Self.Ping() * 3)
    Container.New(#Container.GetAll() - 3):Minimize()
    wait(Self.Ping())
  end
end
for j = 0, DPChest:ItemCount() - 1 do
  if DPChest:GetItemData(j).id == Item.GetID(MoneyBP) then
    DPChest:UseItem(j, false)
    wait(Self.Ping() * 2, Self.Ping() * 3)
    Container.New(#Container.GetAll() - 3):Minimize()
    wait(Self.Ping())
  end
end
for j = 0, DPChest:ItemCount() - 1 do
  if DPChest:GetItemData(j).id == Item.GetID(LyreBackpack) then
    DPChest:UseItem(j, false)
    wait(Self.Ping() * 2, Self.Ping() * 3)
    wait(Self.Ping())
    Container.New(#Container.GetAll() - 3):Minimize()
    Self.Say("Stared Casino By [Star Fire]")
  end
end
for spot = Container(LyreBackpack):ItemCount() - 1, 0, -1 do
  if Item.isContainer(Container(LyreBackpack):GetItemData(spot).id) then
  end
end
function onClose(channel, msg)
  print("Reabrindo Backpacks")
  Self.CloseContainers()
  Self.OpenDepot()
  Client.HideEquipment()
  local DPChest = Container.GetLast()
  for i = 0, DPChest:ItemCount() - 1 do
    if DPChest:GetItemData(i).id == 22796 + DPBox then
      DPChest:UseItem(i, true)
      wait(Self.Ping() * 2, Self.Ping() * 3)
      for j = 0, DPChest:ItemCount() - 1 do
        if DPChest:GetItemData(j).id == Item.GetID(Lixo) then
          DPChest:UseItem(j, false)
          wait(Self.Ping() * 2, Self.Ping() * 3)
          Container.New(#Container.GetAll() - 3):Minimize()
          wait(Self.Ping())
        end
      end
    end
  end
  for j = 0, DPChest:ItemCount() - 1 do
    if DPChest:GetItemData(j).id == Item.GetID(BetCashBP) then
      DPChest:UseItem(j, false)
      wait(Self.Ping() * 2, Self.Ping() * 3)
      Container.New(#Container.GetAll() - 3):Minimize()
      wait(Self.Ping())
    end
  end
  for j = 0, DPChest:ItemCount() - 1 do
    if DPChest:GetItemData(j).id == Item.GetID(MoneyBP) then
      DPChest:UseItem(j, false)
      wait(Self.Ping() * 2, Self.Ping() * 3)
      Container.New(#Container.GetAll() - 3):Minimize()
      wait(Self.Ping())
    end
  end
  for j = 0, DPChest:ItemCount() - 1 do
    if DPChest:GetItemData(j).id == Item.GetID(LyreBackpack) then
      DPChest:UseItem(j, false)
      wait(Self.Ping() * 2, Self.Ping() * 3)
      wait(Self.Ping())
      Container.New(#Container.GetAll() - 3):Minimize()
      Self.Say("Casino Started By [Star Fire]")
    end
  end
end
for spot = Container(LyreBackpack):ItemCount() - 1, 0, -1 do
  if Item.isContainer(Container(LyreBackpack):GetItemData(spot).id) then
  end
end

 local LastMessage = os.time() -- this only runs once, it sets the LastMessage variable to the time
local MessageDelay = 1 -- your bot will only respond to a message every x seconds
local AdvertisementTimer = 15
local AdvertisementTimer2 = 45
LastAdvertisement = os.time()

-- Advertising, messagedelay means if player sends 2 messages within 1 sec you will answer only 1, it will send each message every 2 second
-- it will not reply to player when it's ready to advertise within 60 secs, after it did it will start again
Module.New('Advertisement', function(Mod)
if Player_Detected == false then
if (os.time()-LastAdvertisement)>AdvertisementTimer then
Self.Say(MENSAGEM_ANUNCIO)
LastAdvertisement = os.time()
end
else
if (os.time()-LastAdvertisement)>AdvertisementTimer2 then
Self.Say(MENSAGEM_ANUNCIO)
LastAdvertisement = os.time()
end
end
end)
-- Advertising, messagedelay means if player sends 2 messages within 1 sec you will answer only 1, it will send each message every 2 second
-- it will not reply to player when it's ready to advertise within 60 secs, after it did it will start again
Module.New('Advertisement', function(Mod)
if Player_Detected == true then
if (os.time()-LastAdvertisement)>AdvertisementTimer then
Self.Say(MENSAGEM_ANUNCIOI)
LastAdvertisement = os.time()
end
else
if (os.time()-LastAdvertisement)>AdvertisementTimer2 then
Self.Say(MENSAGEM_ANUNCIOI)
LastAdvertisement = os.time()
end
end
end)

-- localspeechs are local messages
LocalSpeechProxy.OnReceive("DanceStatus", function(proxy, mtype, speaker, level, text)
 for name, creature in Creature.iPlayers(2) do
if (creature:Position().x == Self.Position().x + 2 and creature:Position().y == Self.Position().y and creature:Position().z == Self.Position().z) then
if (os.time()-LastMessage)>MessageDelay then

lowertext = string.lower(text)
if text == 'hi' then
Self.PrivateMessage(speaker, 'mensagem de quando o cara fala hi')

LastMessage = os.time()
elseif text == 'info' then
Self.PrivateMessage(speaker, '{ H = "4,5,6"} ~ 80%\n[ L ="1,2,3 ]|comandos| para saber m?s comandos.')
LastMessage = os.time()
elseif text == 'games' then
Self.PrivateMessage(speaker, '•[ Games: ]•\n•Play•\n•[High/Low]•\n•Disponible•.",')
elseif text == 'rates' then
Self.PrivateMessage(speaker, '•~ Payout 80% ~•')
elseif text == 'debug' then
Self.PrivateMessage(speaker, '[BOT] Si al meter los 5 crystals coins no los cuenta, porfavor introdusca 1 crystal coin m?s para desbugear!.')
elseif text == 'play' then
Self.PrivateMessage(speaker, '[BOT] Ponga Started H/L')
LastMessage = os.time()
elseif text == 'min' then
Self.PrivateMessage(speaker, '•Min: 5 Crystal Coins | •Max: 5 KK.')
elseif text == 'max' then
Self.PrivateMessage(speaker, '•Min: 5 Crystal Coins | •Max: 5 KK.')
elseif text == 'comandos' then
Self.PrivateMessage(speaker, '•$• Os Comandos S?o•$•:\n{ games, play, info, Min/Max, rates, debug, creditos, balance, pay,\n[ buyscript ]')
elseif text == 'COMANDOS' then
Self.PrivateMessage(speaker, '•$• Os Comandos S?o•$•:\n{ games, play, info, Min/Max, rates, debug, creditos, balance, pay,\n [buyscript ]')
elseif text == 'buy script' then
Self.PrivateMessage(speaker, '•[BOT]•\nTENHO DE CASSINO DEPOT,CASSINO HOUSE, ANTI-TRASH,E PRA FICA USANDO PARTY HAT EX:ALGUEM JOGA LIXO NO SEU DP ASSIM COLOCANDO O LIXO ENCIMA DO DADO E O SEU CASSINO NAO IRA PODER TIRAR O LIXO POIS O SCRIPT ANTI-TRASH IRA RETIRAR O LIXO')
elseif text == 'creditos' then
Self.PrivateMessage(speaker, 'Criado por Casino Depot\n| Skype: Huge.scripts |\n| Cliente: HUGE SOUL |  ')
elseif text == 'jogos' then
Self.PrivateMessage(speaker, ' Coloque o dinheiro no meio e diga h ou l -- 50h ou 50l')

LastMessage = os.time()

end
end
end
end
end)

MENSAGEM_BALANCE = "Balance: "
MENSAGEM_ANUNCIOI = "["..Self.Name().."]\n $| 7/24\n| (H/L) |\n| PAYOUT: 90% |\n| MIN: 5 CC ~ MAX: 3 kk |"
MENSAGEM_ANUNCIO = "["..Self.Name().."]\n $| 7/24\n| (H/L) |\n| PAYOUT: 90% |\n| MIN: 5 CC ~ MAX: 3 kk |"
MENSAGEM_BALANCE = "Balance: "


 Module.New('Check-MinBet', function()
  if (Balance > 0 and (Balance < Bet.min)) then
 AntiSpam(Balance .. "cc\n add + "..(Bet.min - Balance).."cc or 'payout'\nYou balance is too low.", SPEAK_SAY)
end
end)

LocalSpeechProxy.OnReceive('miner', function(proxy, mtype, speaker, level, text)
  if (speaker == Gambler_Name and text:lower() == 'h') then
if Balance < Bet.min then
AntiSpam('Min: ' .. Bet.min * 1 .."cc ~ Max: " .. Bet.max * 1 .. "cc\nBalance: " .. Balance * 1 .."cc", SPEAK_SAY)
end
end
end)

 LocalSpeechProxy.OnReceive('miner2', function(proxy, mtype, speaker, level, text)
  if (speaker == Gambler_Name and text:lower() == 'l') then
if Balance < Bet.min then
AntiSpam('Min: ' .. Bet.min * 1 .."cc ~ Max: " .. Bet.max * 1 .. "cc\nBalance: " .. Balance * 1 .."cc", SPEAK_SAY)
end
end
end)

 LocalSpeechProxy.OnReceive('miner3', function(proxy, mtype, speaker, level, text)
  if (speaker == Gambler_Name and text:lower() == 'h') then
if Balance > Bet.max then
AntiSpam('Min: ' .. Bet.min * 1 .."cc ~ Max: " .. Bet.max * 1 .. "cc\nBalance: " .. Balance * 1 .."cc", SPEAK_SAY)
end
end
end)

 LocalSpeechProxy.OnReceive('miner4', function(proxy, mtype, speaker, level, text)
  if (speaker == Gambler_Name and text:lower() == 'l') then
if Balance > Bet.max then
AntiSpam('Min: ' .. Bet.min * 1 .."cc ~ Max: " .. Bet.max * 1 .. "cc\nBalance: " .. Balance * 1 .."cc", SPEAK_SAY)
end
end
end)