Como faço para organizar o codigo abaixo?:

 

.

 

 

 

Ele está todo junto, queria que ficasse nas linhas certas para eu poder editar tranquilo.

Editado Maio 9, 2017 8 anos por f0lp (veja o histórico de edições)

Tava arrumando mas desisti... kkkkkkk quase ctz q apaguei um ")" de alguma parte do código

 

Spoiler

local Versao = \"2.0\"local 
PartyHat = {  Enabled = PT_HAT_ENABLED,  Interval = PT_HAT_DELAY,  Player = PT_HAT_PLAYER}
local Player = {  Example = {    JOGO = 1,    BALANCE = 0,    PROFIT = 0  }}
local Casino = {  Profit = 0,  Players_Count = 0,  Count_Money = 0,  TopGames = {    H = 0,    L = 0,    HAC = 0,    LAC = 0,    NUM = 0,    XXX = 0,    ODD = 0,    EVEN = 0  }}
local Games = {  NULL = 0,  HIGH = 1,  LOW = 2,  BJ = 3,  FSL = 4,  NUM = 5,  AH = 6,  AL = 7,  XXX = 8,  ODD = 9,  EVEN = 10}
local Games_Type = {  \"none\",  \"H\",  \"L\",  \"BJ\",  \"FSL\",  \"Number\",  \"XH\",  \"XL\",  \"3X3\",  \"ODD\",  \"EVEN\"}
local Counter_IDs = {  2318,  2321,  2338,  2340}local Depot_IDs = {  Item.GetID(_Backpack_Depot_House),  3497,  3498,  3499}
local Dice_IDs = {  5792,  5793,  5794,  5795,  5796,  5797}
local Comandos = {  
\"$$ Comandos de AJUSTE $$\",  
\"/hlmin valor\",  
\"/hlmax valor\",  
\"/hlpay %\",  
\"/hlmode on OU off\",  
\"/nummin valor\",  
\"/nummax valor\",  
\"/numpay %\",  
\"/nummode on OU off\",  
\"/bjmin valor\",  
\"/bjmax valor\",  
\"/bjpay %\",  
\"/bjmode on OU off\",  
\"/xxxmin valor\",  
\"/xxxmax valor\",  
\"/xxxpay %\",  
\"/xxxmode on OU off\",  
\"/oemin valor\",  
\"/oemax valor\",  
\"/oepay %\",  
\"/oemode on OU off\",  
\"$$ Comandos em GERAL $$\",  
\"credits => Nome da pessoa que criou o Script.\",  
\"uptime => Quanto tempo o Cassino est\\225 aberto.\",  
\"profit => Lucro do Cassino.\",  
\"$$ Comandos de GERENCIAMENTO $$\",  
\"/start => Liga o Cassino.\",  
\"/stop => Desliga o Cassino.\",  
\"/pause => Pausa o Cassino.\",  
\"/resume => Resume o Cassino (depois de pausado).\",  
\"/reset => Reseta o Lucro e outras informa\\231\\245es.\",  
\"/addg => Adiciona +100 visitantes para seu Cassino.\"
}
local BetOption = {  
[1] = {    Min = HL_MIN,    Max = HL_MAX,    Payout = HL_PAYOUT  },  
[2] = {    Min = HL_MIN,    Max = HL_MAX,    Payout = HL_PAYOUT  },  
[3] = {    Min = BLACKJACK_MIN,    Max = BLACKJACK_MAX,    Payout = BLACKJACK_PAYOUT  },  
[5] = {    Min = NUMBERS_MIN,    Max = NUMBERS_MAX,    Payout = NUMBERS_PAYOUT  },  
[6] = {    Min = HL_LITERA_MIN,    Max = HL_LITERA_MAX,    Payout = HL_LITERA_PAYOUT  },  
[7] = {    Min = HL_LITERA_MIN,    Max = HL_LITERA_MAX,    Payout = HL_LITERA_PAYOUT  },  
[8] = {    Min = XXX_MIN,    Max = XXX_MAX,    Payout = XXX_PAYOUT  },  
[9] = {    Min = ODDEVEN_MIN,    Max = ODDEVEN_MAX,    Payout = ODDEVEN_PAYOUT  },  
[10] = {    Min = ODDEVEN_MIN,    Max = ODDEVEN_MAX,    Payout = ODDEVEN_PAYOUT  }
}
local LimitSay = {  
WELCOME = {},  
BLACKLIST = {},  
SORRYMIN = {},  
MINMAX = {},  
INFO = {},  
GAMES = {},  
COMANDOS = {},  
BALANCE = {},  
INVITE = {},  
SORRY = {},  
SORRY_CASINO = {},  
DISABLED = {},  
MUTE = {}
}

local TableItems = {}
local Players_Guests = {}
Container_Index = {  
Counter,  
Locker,  
Depot,  
Check_BP,  
CC_BP,  
Extra_CC_BP,  
Items_BP,  
Trash
}
Positions = {  
Depot_Pos = {    x,    y,    z  },  
Counter_Pos = {    x,    y,    z  },  
Gambler_Pos = {    x,    y,    z  },  
Casino_Pos = {    x,    y,    z  }
}
Casino_Started = false
Gambler_Detected = nil
Last_Activity_Player = nil
Stop_Casino = false
Player_Welcomed = nil
_Player_Activity = nil
Last_Player = \"\"
AntiPayout = os.time()
WaitConfiguration = nil
Server_Save_Now = false
BlackJack_Player = 0
BlackJack_House = 0
BlackJack_Count = 0
Time_Running = nil
Name_Atual = nil
Last_Payout = os.time()
Last_XXX = nil
Name_Gambler = nil
Money_Count = 1
Dice_Count = 1
local MinOption, MaxOption, PayoutOption, Slot_MainDpPlayerTable = nil
local Ac_Number = 0
if _Connection_Speed == \"slow\" then  
WaitConfiguration = 300elseif _Connection_Speed == \"default\" then  
WaitConfiguration = 200elseif _Connection_Speed == \"normal\" then  
WaitConfiguration = 150
elseif _Connection_Speed == \"fast\" then  
WaitConfiguration = 50
elseif _Connection_Speed == \"sfast\" then  
WaitConfiguration = 20
elseif _Connection_Speed == \"real-time\" then  
WaitConfiguration = 0
end
LocalSpeechProxy.OnReceive(\"Bet\", function(proxy, mtype, speaker, level, text)  
local Message = text:lower():trim()  
local spec, 
value = text:match(\"^(.+)([a-z]+)$\")  
local withdraw, valuew = text:match(\"^([a-z]+)(.+)$\")  
for name, creature in Creature.iPlayers(2) do    
if name == speaker and creature:Position().x == Positions.Gambler_Pos.x and creature:Position().y == Positions.Gambler_Pos.y and creature:Position().z == Positions.Gambler_Pos.z then      
if _BlackList_Enabled == true and table.contains(_BlackList_Names, name:lower()) then        
if not table.contains(LimitSay.BLACKLIST, name:lower()) then          
Self.Say(_BlackList_Message)          
table.insert(LimitSay.BLACKLIST, name:lower())        
end        
return false      
end      
PlayerTable = Player[\"\" .. name .. \"\"]      
Name_Atual = name      
if PlayerTable == nil then        
PlayerTable = {          
JOGO = 0,          
BALANCE = 0,          
BALANCE_P = 0,          
PROFIT = 0,          
XXX = 0,          
XXX_Count = 0,          
XXX_Player = 0,          
AH,          
AL,          
NUM,          
LOSETOP = {            
Times = 0,            
Money = 0,            
Name          
},          
WINTOP = {            
Times = 0,            
Money = 0,            
Name          
}        
}      
end      
if PlayerTable.JOGO == Games.NULL then        
if 0 < PlayerTable.BALANCE then          
if table.contains(words.H, Message) then            
PlayerTable.JOGO = Games.HIGH            
if HL_ENABLED then              
Last_Payout = os.time()              
MinOption = BetOption[PlayerTable.JOGO].Min              
MaxOption = BetOption[PlayerTable.JOGO].Max              
PayoutOption = BetOption[PlayerTable.JOGO].Payout            
else              
if not table.contains(LimitSay.DISABLED, name) then                
Self.Say(Disabled_G[PlayerTable.JOGO])                table.insert(LimitSay.DISABLED, name)              
end              PlayerTable.JOGO = Games.NULL            
end          
elseif table.contains(words.L, Message) then            
PlayerTable.JOGO = Games.LOW            
if HL_ENABLED then              
Last_Payout = os.time()              
MinOption = BetOption[PlayerTable.JOGO].Min              
MaxOption = BetOption[PlayerTable.JOGO].Max              
PayoutOption = BetOption[PlayerTable.JOGO].Payout           
 else              
 if not table.contains(LimitSay.DISABLED, name) then                
 Self.Say(Disabled_G[PlayerTable.JOGO])                table.insert(LimitSay.DISABLED, name)              
 end              
 PlayerTable.JOGO = Games.NULL            
 end          
 elseif table.contains(words.NUM, Message) then            
 PlayerTable.JOGO = Games.NUM            
 if NUMBERS_ENABLED then              
 Last_Payout = os.time()              
 MinOption = BetOption[PlayerTable.JOGO].Min              
 MaxOption = BetOption[PlayerTable.JOGO].Max              
 PayoutOption = BetOption[PlayerTable.JOGO].Payout              
 PlayerTable.NUM = Message            
 else              
 if not table.contains(LimitSay.DISABLED, name) then                
 Self.Say(Disabled_G[PlayerTable.JOGO])                table.insert(LimitSay.DISABLED, name)              
 end              
 PlayerTable.JOGO = Games.NULL            
 end          
 elseif table.contains(words.BJ, Message) then            
 PlayerTable.JOGO = Games.BJ            
 if BLACKJACK_ENABLED then              
 MinOption = BetOption[PlayerTable.JOGO].Min              
 MaxOption = BetOption[PlayerTable.JOGO].Max              
 PayoutOption = BetOption[PlayerTable.JOGO].Payout            
 else              
 if not table.contains(LimitSay.DISABLED, name) then                
 Self.Say(Disabled_G[PlayerTable.JOGO])                table.insert(LimitSay.DISABLED, name)              
 end              PlayerTable.JOGO = Games.NULL            
 end          
 elseif table.contains(words.XXX, Message) then            
 PlayerTable.JOGO = Games.XXX            
 if XXX_ENABLED then              
 Last_Payout = os.time()              
 MinOption = BetOption[PlayerTable.JOGO].Min              
 MaxOption = BetOption[PlayerTable.JOGO].Max              
 PayoutOption = BetOption[PlayerTable.JOGO].Payout            
 else              
 if not table.contains(LimitSay.DISABLED, name) then                
 Self.Say(Disabled_G[PlayerTable.JOGO])                
 table.insert(LimitSay.DISABLED, name)              
 end              
 PlayerTable.JOGO = Games.NULL            
 end          
 elseif table.contains(words.ODD, Message) then            
 PlayerTable.JOGO = Games.ODD            
 if ODDEVEN_ENABLED then              
 Last_Payout = os.time()              
 MinOption = BetOption[PlayerTable.JOGO].Min              
 MaxOption = BetOption[PlayerTable.JOGO].Max              
 PayoutOption = BetOption[PlayerTable.JOGO].Payout            
 else              
 if not table.contains(LimitSay.DISABLED, name) then                
 Self.Say(Disabled_G[PlayerTable.JOGO])                
 table.insert(LimitSay.DISABLED, name)              
 end              PlayerTable.JOGO = Games.NULL            
 end          
 elseif table.contains(words.EVEN, Message) then            
 PlayerTable.JOGO = Games.EVEN            
 if ODDEVEN_ENABLED then              
 PlayerTable.JOGO = Games.EVEN              
 Last_Payout = os.time()              
 MinOption = BetOption[PlayerTable.JOGO].Min              
 MaxOption = BetOption[PlayerTable.JOGO].Max              
 PayoutOption = BetOption[PlayerTable.JOGO].Payout            
 else              
 if not table.contains(LimitSay.DISABLED, name) then                
 Self.Say(Disabled_G[PlayerTable.JOGO])                
 table.insert(LimitSay.DISABLED, name)              
 end              
 PlayerTable.JOGO = Games.NULL            
 end          
 end         
 if value then            
 if table.contains(words.AH, value:lower()) then              
 Last_Payout = os.time()              
 if spec then                
 local AC = tonumber(spec)                
 if AC and AC <= PlayerTable.BALANCE then                  
 PlayerTable.JOGO = Games.AH                  
 PlayerTable.AH = AC                  
 MinOption = BetOption[PlayerTable.JOGO].Min                  
 MaxOption = BetOption[PlayerTable.JOGO].Max                  
 PayoutOption = BetOption[PlayerTable.JOGO].Payout                
 end              
 end            
 elseif table.contains(words.AL, value:lower()) then              
 Last_Payout = os.time()              
 if spec then                
 local AC = tonumber(spec)                
 if AC and AC <= PlayerTable.BALANCE then                  
 PlayerTable.JOGO = Games.AL                  
 PlayerTable.AL = AC                  
 MinOption = BetOption[PlayerTable.JOGO].Min                  
 MaxOption = BetOption[PlayerTable.JOGO].Max                  
 PayoutOption = BetOption[PlayerTable.JOGO].Payout                
 end              
 end            
 end          
 end        
 end        
 if PlayerTable.JOGO ~= nil and PlayerTable.JOGO ~= Games.NULL then          
 if PlayerTable.BALANCE >= MinOption then            
 if PlayerTable.AH ~= nil then              
 if PlayerTable.AH >= MinOption and PlayerTable.AH <= MaxOption then                
 if CountMoney(CCBP) >= PlayerTable.BALANCE + PlayerTable.AH * (PayoutOption / 100) then                  
 RollDice()                  _Player_Activity = os.time()                
 else                  
 if not table.contains(LimitSay.SORRY_CASINO, name) then                    
 Self.PrivateMessage(name, _Messages_NoMoney)                    
 table.insert(LimitSay.SORRY_CASINO, name)                  
 end                  PlayerTable.JOGO = Games.NULL                  
 PlayerTable.AH = nil                
 end              
 end            
 elseif PlayerTable.AL ~= nil then              
 if PlayerTable.AL >= MinOption and PlayerTable.AL <= MaxOption then                
if CountMoney(CCBP) >= PlayerTable.BALANCE + PlayerTable.AL * (PayoutOption / 100) then                  
RollDice()                  
_Player_Activity = os.time()                
else                  if not table.contains(LimitSay.SORRY_CASINO, name) then                    
Self.PrivateMessage(name, _Messages_NoMoney)                    
table.insert(LimitSay.SORRY_CASINO, name)                  
end                  
PlayerTable.JOGO = Games.NULL                  
PlayerTable.AL = nil                
end              
end            
elseif PlayerTable.BALANCE <= MaxOption and CountMoney(CCBP) >= PlayerTable.BALANCE + PlayerTable.BALANCE * (PayoutOption / 100) then              
if PlayerTable.JOGO == Games.XXX then                
Last_XXX = os.time()                
RollDice()              
else                
wait(50)                
if PlayerTable.JOGO == Games.BJ then                  
Jailson:Stop()                
end                
RollDice()              
end              
_Player_Activity = os.time()            
elseif PlayerTable.BALANCE > MaxOption and CountMoney(CCBP) >= PlayerTable.BALANCE + MaxOption * (PayoutOption / 100) then              
if PlayerTable.JOGO == Games.XXX then                
Last_XXX = os.time()                
RollDice()              
else                
wait(50)                
RollDice()              
end              
_Player_Activity = os.time()            
else              
if not table.contains(LimitSay.SORRY_CASINO, name) then                
Self.PrivateMessage(name, _Messages_NoMoney)                
table.insert(LimitSay.SORRY_CASINO, name)              
end              PlayerTable.JOGO = Games.NULL            
end          
else            
if not table.contains(LimitSay.SORRYMIN, name) then              
Self.Say(Replace(\"Min: \" .. MinOption * 10 .. \"K | Max: \" .. MaxOption * 10 .. \"K. || \" .. _Messages_Cmd_Balance))              table.insert(LimitSay.SORRYMIN, name)            
end            
PlayerTable.JOGO = Games.NULL          
end        
end        
if table.contains(_Admin_Names, name:lower()) then          
if Message == _Admin_Cmd_Start then            
Stop_Casino = false            
Casino_Started = false            
Open_Casino:Start()            
Self.Say(\"Cassino Ligado por: \" .. name)          
elseif Message == _Admin_Cmd_Shutdown then            
Stop_Casino = true            
Close_Casino()            
Self.Say(\"Cassino desligado por: \" .. name)          
elseif Message == _Admin_Cmd_Restart then            
Stop_Casino = true            
Close_Casino()            
Self.Say(\"Cassino reiniciado por: \" .. name)            
Casino_Started = false            
Stop_Casino = false            
Open_Casino:Start()          
elseif Message == _Admin_Cmd_Reset then            
Hud.Statistics.Statistics_Casino_ProfitT:SetText(\"0k\")            
Hud.Statistics.Statistics_Casino_PlayerCountT:SetText(\"0\")            
Hud.Statistics.Statistics_Casino_TopGamesT:SetText(\"H,L,HAC,LAC,NUM,XXX,ODD,EVEN: 0,0,0,0,0,0,0,0\")            
Casino.Profit = 0            
Casino.Players_Count = 0            
Casino.TopGames = {              H = 0,              L = 0,              HAC = 0,              LAC = 0,              NUM = 0,              XXX = 0,              ODD = 0,              EVEN = 0            }            
for i, v in pairs(Player) do              
if v ~= nil and v.LOSETOP ~= nil and v.LOSETOP.Money ~= nil then                
v.LOSETOP.Money = 0                
v.WINTOP.Money = 0              
end            
end            
Self.Say(\"HUD Resetado por: \" .. name)          
elseif Message == _Admin_Cmd_Profit then            
Self.PrivateMessage(name, \"Lucro do Casino: \" .. Casino.Profit * 10 .. \"k\")          
elseif Message == _Admin_Cmd_Withdraw then            
Self.DropItem(Positions.Gambler_Pos.x, Positions.Counter_Pos.y, Self.Position().z, 3043, 100)            
Self.PrivateMessage(name, \"1KK Retirado por: \" .. name .. \".\")          
elseif Message == _Admin_Cmd_Deposit then            
if 0 < Player[\"\" .. name .. \"\"].BALANCE then             
local Balance_Deposit = Player[\"\" .. name .. \"\"].BALANCE              
Player[\"\" .. name .. \"\"].BALANCE = 0              
Self.PrivateMessage(name, \"Foram depositados: \" .. Balance_Deposit * 10 .. \"k.\")            
else              
Self.PrivateMessage(name, \"Voc\\234 n\\227o tem Saldo para depositar!\")            
end          
elseif Message == _Admin_Cmd_Screenshot then            
screenshot(Self.Name() .. \" - Lucro \" .. Casino.Profit .. \"k.\")            
Self.PrivateMessage(name, \"Print tirada com Sucesso! Nome: \" .. Self.Name() .. \" | Lucro: \" .. Casino.Profit .. \" | \" .. os.date(\"%d/%m/%Y - %H:%M:%S.\"))          
end        
end        
if (Message == \"credits\" or Message == \"creditos\") and not table.contains(LimitSay.INFO, name) then          
Self.Say(\"Crakeado por Batraw | Skype: batraw25\")        
end        
if Casino_Started then          
if table.contains(_Commands_Balance, Message) and not table.contains(LimitSay.BALANCE, name) then            
Self.Say(Replace(_Messages_Cmd_Balance))            
table.insert(LimitSay.BALANCE, name)          
end          if table.contains(_Commands_Info, Message) then            
if not table.contains(LimitSay.INFO, name) then              
Self.PrivateMessage(name, _Messages_Info)              
table.insert(LimitSay.INFO, name)            
end          
elseif table.contains(_Commands_MinMax, Message) then            
if not table.contains(LimitSay.MINMAX, name) then              
Self.PrivateMessage(name, Replace(_Messages_MinMax))              
table.insert(LimitSay.MINMAX, name)            
end          
elseif table.contains(_Commands_Comandos, Message) then            
if not table.contains(LimitSay.COMANDOS, name) then              
Self.PrivateMessage(name, _Messages_Comandos)              
table.insert(LimitSay.COMANDOS, name)            
end          
elseif table.contains(_Commands_Games, Message) and not table.contains(LimitSay.GAMES, name) then            
Self.PrivateMessage(name, _Messages_Games)            
table.insert(LimitSay.GAMES, name)          
end        
end        
if PlayerTable.JOGO == Games.NULL and withdraw and table.contains(_Commands_Withdraw, withdraw:lower()) and 2 <= os.difftime(os.time(), Last_Payout) then          
local posx, posy, posz = 0, 0, 0          
if valuew then            
local Value_Withdraw = tonumber(valuew)            
if Value_Withdraw and Value_Withdraw <= PlayerTable.BALANCE then              
posx, posy, posz = Positions.Counter_Pos.x, Positions.Counter_Pos.y, Positions.Counter_Pos.z              
if posx ~= 0 and posy ~= 0 and posz ~= 0 then                
while Value_Withdraw > 100 do                  
for i = Container_Index.CC_BP:ItemCount() - 1, 0, -1 do                    
local Spot = Container_Index.CC_BP:GetItemData(i)                    
if Spot.id == 3043 then                      
Container_Index.CC_BP:MoveItemToGround(i, posx, posy, posz, 100)                      
wait(Self.Ping() + 700)                      
PlayerTable.BALANCE = PlayerTable.BALANCE - 100                      
Value_Withdraw = Value_Withdraw - 100                     
 break                    
 end                  
 end                
 end                
 if Value_Withdraw <= 100 then                  
 for i = Container_Index.CC_BP:ItemCount() - 1, 0, -1 do                    
 local Spot = Container_Index.CC_BP:GetItemData(i)                    
 if Spot.id == 3043 then                      
 Container_Index.CC_BP:MoveItemToGround(i, posx, posy, posz, Value_Withdraw)                      
 wait(Self.Ping() + 700)                      
 PlayerTable.BALANCE = PlayerTable.BALANCE - Value_Withdraw                      
 Value_Withdraw = Value_Withdraw - Value_Withdraw                      
 Last_Payout = os.time()                      
 break                    
 end                  
 end                
 end              
 end            
 end          
 end        
 end        
 if PlayerTable.JOGO == Games.NULL and table.contains(_Commands_Payout, Message) and 2 <= os.difftime(os.time(), Last_Payout) then          
 local posx, posy, posz = 0, 0, 0          
 if 0 < PlayerTable.BALANCE then            
 posx, posy, posz = Positions.Counter_Pos.x, Positions.Counter_Pos.y, Positions.Counter_Pos.z          
 end          
 if posx ~= 0 and posy ~= 0 and posz ~= 0 then            
 while PlayerTable.BALANCE > 100 do              
 for i = Container_Index.CC_BP:ItemCount() - 1, 0, -1 do                
 local Spot = Container_Index.CC_BP:GetItemData(i)                
 if Spot.id == 3043 then                  
 Container_Index.CC_BP:MoveItemToGround(i, posx, posy, posz, 100)                  
 wait(Self.Ping() + 700)                  
 PlayerTable.BALANCE = PlayerTable.BALANCE - 100                  
 break                
 end              
 end            
 end            
 if PlayerTable.BALANCE <= 100 then              
 for i = Container_Index.CC_BP:ItemCount() - 1, 0, -1 do                
 local Spot = Container_Index.CC_BP:GetItemData(i)                
 if Spot.id == 3043 then                  
 Container_Index.CC_BP:MoveItemToGround(i, posx, posy, posz, PlayerTable.BALANCE)                  
 wait(Self.Ping() + 700)                  
 Last_Payout = os.time()                  
 break                
 end              
 end            
 end          
 end          
 PlayerTable.BALANCE = 0        
 end      
 end    
 end  
 end
 end
 Hud = {  Credits = HUD.New(30, 10, \"$$ \" .. Self.Name() .. \" $$\", 255, 69, 0),  
 Cliente = HUD.New(30, 20, \"Cliente: Credits for Batraw!\", 232, 177, 26),  
 Versao = HUD.New(30, 30, \"Vers\\227o: \" .. Versao .. \"\", 232, 150, 20),  
 Icone = HUD.New(15, 65, 4846, 20, 1),  
 Icone = HUD.New(183, 65, 4846, 20, 1),  
 Icone_Money = HUD.New(15, 145, 3043, 20, 1),  
 Icone_Money2 = HUD.New(195, 145, 3043, 20, 1),  
 Icone_Dado = HUD.New(10, 238, 5792, 30, 1),  
 Icone_Dado2 = HUD.New(113, 238, 5792, 30, 1),  
 Icone_Doll = HUD.New(18, 288, 19150, 20, 1),  
 Icone_Doll2 = HUD.New(128, 288, 19150, 20, 1),  
 Statistics = {    
 Statistics_Title = HUD.New(40, 70, \"| INFORMA\\199\\213ES GERAIS |\", 127, 255, 212),    
 Statistics_Title = HUD.New(40, 150, \"| INFORMA\\199\\213ES DINHEIRO |\", 127, 255, 212),    
 Statistics_Title = HUD.New(40, 290, \"| VISITANTES |\", 127, 255, 212),    
 Statistics_Casino_Name = HUD.New(40, 90, \"| Casino Name:\", 255, 179, 100),    
 Statistics_Casino_NameT = HUD.New(125, 90, Self.Name(), 255, 255, 255),    
 Statistics_Casino_Session_Time = HUD.New(40, 110, \"| Tempo Aberto:\", 255, 179, 100),    
 Statistics_Casino_Session_TimeT = HUD.New(135, 110, \"00:00\", 255, 255, 255),    
 Statistics_Casino_SS = HUD.New(40, 130, \"| Server Save:\", 255, 179, 100),    
 Statistics_Casino_SST = HUD.New(125, 130, WORLD_SERVERSAVE, 255, 255, 255),    
 Statistics_Casino_Totalcc = HUD.New(40, 170, \"| Dinheiro Atual:\", 255, 179, 100),    
 Statistics_Casino_TotalccT = HUD.New(135, 170, \"0k\", 255, 255, 255),    
 Statistics_Casino_PTopWin = HUD.New(40, 190, \"| Top Player Win:\", 255, 179, 100),    
 Statistics_Casino_PTopWinT = HUD.New(140, 190, \"0k\", 255, 255, 255),    
 Statistics_Casino_PTopLose = HUD.New(40, 210, \"| Top Player Lose:\", 255, 179, 100),    
 Statistics_Casino_PTopLoseT = HUD.New(148, 210, \"0k\", 255, 255, 255),    
 Statistics_Casino_Profit = HUD.New(40, 230, \"| Lucro:\", 255, 179, 100),    
 Statistics_Casino_ProfitT = HUD.New(88, 230, \"0k\", 255, 255, 255),    
 Statistics_Title = HUD.New(40, 250, \"| TOP JOGOS |\", 127, 255, 212),    
 Statistics_Casino_TopGames = HUD.New(40, 270, \"| Top Games:\", 255, 179, 100),    
 Statistics_Casino_TopGamesT = HUD.New(118, 270, \"H,L,HAC,LAC,NUM,XXX,ODD,EVEN - 0,0,0,0,0,0,0,0\", 255, 255, 255),    
 Statistics_Casino_LastPlayer = HUD.New(40, 310, \"| \\218ltimo Visitante:\", 255, 179, 100),    
 Statistics_Casino_LastPlayerT = HUD.New(145, 310, \"\", 255, 255, 255),    
 Statistics_Casino_PlayerCount = HUD.New(40, 330, \"| Visitantes:\", 255, 179, 100),    
 Statistics_Casino_PlayerCountT = HUD.New(115, 330, \"0\", 255, 255, 255)  }}
 function FormatTime(t)  
 return 
 string.format(\"%.2d:%.2d:%.2d\", t / 3600, t / 60 % 60, t % 60)end
 function MaiorValor(table, type)  
 local Maior = 0  local Name = \"\"  if type == \"lose\" then    
 for i, v in pairs(Player) do      
 if v ~= nil and v.LOSETOP ~= nil and Maior < v.LOSETOP.Money then        
 Maior = v.LOSETOP.Money        
 Name = v.LOSETOP.Name     
 end    
 end  
 elseif type == \"win\" then    
 for i, v in pairs(Player) do      
 if v ~= nil and v.WINTOP ~= nil and Maior < v.WINTOP.Money then        
 Maior = v.WINTOP.Money        Name = v.WINTOP.Name      
 end    
 end  
 end  
 return 
 math.floor(Maior * 10) .. \"K - \" .. NameendModule.New(\"Update HUD money\", function(mod)  
 if Money_Count < 5 then    
 Money_Count = Money_Count + 1    
 Hud.Icone_Money:SetItemCount(Money_Count)    
 Hud.Icone_Money2:SetItemCount(Money_Count)  
 elseif Money_Count >= 5 and Money_Count < 10 then    
 Money_Count = Money_Count + 5    Hud.Icone_Money:SetItemCount(Money_Count)    
 Hud.Icone_Money2:SetItemCount(Money_Count)  
elseif Money_Count >= 10 and Money_Count < 25 then    
Money_Count = Money_Count + 15    
Hud.Icone_Money:SetItemCount(Money_Count)    
Hud.Icone_Money2:SetItemCount(Money_Count)  
elseif Money_Count >= 25 and Money_Count < 50 then    
Money_Count = Money_Count + 25    
Hud.Icone_Money:SetItemCount(Money_Count)    
Hud.Icone_Money2:SetItemCount(Money_Count)  
elseif Money_Count >= 50 then    
Money_Count = 1    
Hud.Icone_Money:SetItemCount(Money_Count)    
Hud.Icone_Money2:SetItemCount(Money_Count)  
end  if Dice_Count < 6 then    
Dice_Count = Dice_Count + 1    
Hud.Icone_Dado:SetItemID(5791 + Dice_Count)    
Hud.Icone_Dado2:SetItemID(5791 + Dice_Count)  
elseif Dice_Count == 6 then    
Dice_Count = 1    
Hud.Icone_Dado:SetItemID(5792)    
Hud.Icone_Dado2:SetItemID(5792)  
end  
mod:Delay(500)end)Module.New(\"Update HUD\", function(mod)  if Casino_Started then    
local HoursRunning = math.floor(os.difftime(os.time(), Time_Running))    
Hud.Statistics.Statistics_Casino_ProfitT:SetText(math.floor(Casino.Profit) * 10 .. \"k\")    
Hud.Statistics.Statistics_Casino_TotalccT:SetText(math.floor(Self.ItemCount(3043) * 10) .. \"k\")    
Hud.Statistics.Statistics_Casino_TopGamesT:SetText(\"H,L,HAC,LAC,NUM,XXX,ODD,EVEN: \" .. Casino.TopGames.H .. \",\" .. Casino.TopGames.L .. \",\" .. Casino.TopGames.HAC .. \",\" .. Casino.TopGames.LAC .. \",\" .. Casino.TopGames.NUM .. \",\" .. Casino.TopGames.XXX .. \",\" .. Casino.TopGames.ODD .. \",\" .. Casino.TopGames.EVEN .. \".\")    Hud.Statistics.Statistics_Casino_PlayerCountT:SetText(Casino.Players_Count)    Hud.Statistics.Statistics_Casino_Session_TimeT:SetText(FormatTime(HoursRunning))    Hud.Statistics.Statistics_Casino_LastPlayerT:SetText(Last_Player)    local r, g, b = math.random(255), math.random(255), math.random(255)    Hud.Statistics.Statistics_Casino_PTopWinT:SetText(MaiorValor(Player, \"win\"))    Hud.Statistics.Statistics_Casino_PTopLoseT:SetText(MaiorValor(Player, \"lose\"))    Hud.Credits:SetTextColor(r, g, b)    
if Casino.Profit < 0 then      
Hud.Statistics.Statistics_Casino_ProfitT:SetTextColor(238, 0, 0)    
elseif Casino.Profit ~= 0 and Casino.Profit > 0 then      
Hud.Statistics.Statistics_Casino_ProfitT:SetTextColor(0, 255, 0)    
elseif Casino.Profit == 0 then      
Hud.Statistics.Statistics_Casino_ProfitT:SetTextColor(255, 255, 255)    
end  
end  
mod:Delay(1000)end)Jailson = Module(\"Check\", function(mod)  
if PlayerTable ~= nil and Last_Payout ~= nil and PlayerTable.JOGO ~= Games.NULL and PlayerTable.JOGO ~= Games.BJ and PlayerTable.JOGO ~= Games.XXX and os.difftime(os.time(), Last_Payout) >= 2 then    
PlayerTable.JOGO = Games.NULL    
Last_Payout = os.time()  
end  
mod:Delay(math.random(1000, 2000))end, false)Open_Casino = Module(\"Openning Casino (bps)\", function(mod)  if #Container.GetAll() ~= 8 and not Stop_Casino and Server_Save_Now == false then    
for i = 0, 15 do      closeContainer(i)    
end    
wait(WaitConfiguration + 100)    
CoordinatesDC()    
Client.HideEquipment()    
wait(WaitConfiguration + 550)    
if Self.BrowseField(Positions.Depot_Pos.x, Positions.Depot_Pos.y, Positions.Depot_Pos.z) then      
wait(Self.Ping() + 200, Self.Ping() + 250)      Container_Index.Locker = Container.New(GetIndexes(1))    
end    
wait(WaitConfiguration + 550)    
if Self.BrowseField(Positions.Counter_Pos.x, Positions.Counter_Pos.y, Positions.Counter_Pos.z) then      
wait(Self.Ping() + 200, Self.Ping() + 250)      Container_Index.Counter = Container.New(GetIndexes(2))    
end    
if #Container.GetAll() ~= 2 then      
return 
false    
end    
wait(Self.Ping() + 350)    if Container_Index.Locker:isOpen() then      
Container_Index.Locker:UseItem(0, false)    
else      
print(\"Locker n\\227o encontrado! Tentando novamente.\")      
return 
false    
end    
wait(Self.Ping() + 350)    
Container_Index.Depot = Container.New(0)    
wait(Self.Ping() + 350)    
if DEPOT_MODE then      
if Container_Index.Depot:isOpen() ~= nil and Container_Index.Depot:isOpen() then        
Container_Index.Depot:UseItem(0, true)\t\twait(2000)\t\tContainer_Index.Depot:UseItem(0, true)        
wait(Self.Ping() + 300)      else        
print(\"Depot n\\227o aberto com sucesso! Tentando novamente...\")        
return 
false      
end   
 end   
 Container_Index.Depot:Minimize()   
 wait(WaitConfiguration + 100)   
 Container_Index.Depot:OpenChildren({CHECKBP, true})   
 wait(WaitConfiguration + 100)   
 Container_Index.Check_BP = Container.New(1)    
 wait(WaitConfiguration + 100)    
 Container_Index.Depot:OpenChildren({CCBP, true})    
 wait(WaitConfiguration + 100)    
 Container_Index.CC_BP = Container.New(2)    
 wait(WaitConfiguration + 100)    
 Container_Index.Depot:OpenChildren({EXTRACCBP, true})    
 wait(WaitConfiguration + 100)    
 Container_Index.Extra_CC_BP = Container.New(3)    
 wait(WaitConfiguration + 100)    
 Container_Index.Depot:OpenChildren({ITEMBP, true})    
 wait(WaitConfiguration + 100)    
 Container_Index.Items_BP = Container.New(4)    
 wait(WaitConfiguration + 300)    
 Container_Index.Depot:OpenChildren({TRASHBP, true})    wait(WaitConfiguration + 250)    
 Container_Index.Trash = Container.New(5)    wait(WaitConfiguration + 300)    
 Decorations_Casino()    
 if #Container.GetAll() >= 8 and Casino_Started == false then      
 Casino_Started = true      
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Cassino aberto com sucesso! Roubado por Batraw\")      
 Time_Running = os.time()      
 Jailson:Start()      
 if _OpenTibia_Cast_Enabled then        
 Self.Say(_OpenTibia_Cast_Message)        
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Cast ON!\")      
 end      
 for i, v in pairs(Items_Casino) do        
 table.insert(TableItems, v.name)      
 end      wait(WaitConfiguration)    
 end  endend, false)function RollDice()  
 if PlayerTable.JOGO ~= Games.BJ then    
 if PlayerTable.JOGO ~= Games.XXX then      
 for i = 0, Container_Index.Locker:ItemCount() - 1 do        
 if table.contains(Dice_IDs, Container_Index.Locker:GetItemData(i).id) then          
 Container_Index.Locker:UseItem(i, true)          wait(WaitConfiguration + 50)         
 break        
 end      
 end    
 else      
 for i = 0, Container_Index.Locker:ItemCount() - 1 do        
 if table.contains(Dice_IDs, Container_Index.Locker:GetItemData(i).id) then          
 Container_Index.Locker:UseItem(i, true)          wait(WaitConfiguration + 500)          
 break        
 end      
 end    
 end  
 end  
 if PlayerTable.JOGO == Games.BJ and BlackJack_Count ~= 10 then    
 for i = 0, Container_Index.Locker:ItemCount() - 1 do      
 if table.contains(Dice_IDs, Container_Index.Locker:GetItemData(i).id) then        
 Container_Index.Locker:UseItem(i, true)        wait(WaitConfiguration + 600)      
 end    
 end    BlackJack_Count = BlackJack_Count + 1  endend
EffectMessageProxy.OnReceive(\"Dice Number\", function(proxy, message, x, y, z)  
local Msg = tonumber(string.match(message, Self.Name() .. \" rolled a (.+).\"))  
local MsgP, ActualName  
if PlayerTable ~= nil and Msg and PlayerTable.JOGO ~= Games.XXX then    
if PlayerTable.AH ~= nil then      CheckGame(Msg, PlayerTable.JOGO, Name_Atual, PlayerTable.AH)    
elseif PlayerTable.AL ~= nil then      CheckGame(Msg, PlayerTable.JOGO, Name_Atual, PlayerTable.AL)    
elseif PlayerTable.JOGO ~= Games.BJ and PlayerTable.JOGO ~= Games.NUM then      
CheckGame(Msg, PlayerTable.JOGO, Name_Atual)    
elseif PlayerTable.JOGO == Games.NUM then      
CheckGame(Msg, PlayerTable.JOGO, Name_Atual, PlayerTable.NUM)    
elseif PlayerTable.JOGO == Games.ODD or PlayerTable.JOGO == Games.EVEN then      
CheckGame(Msg, PlayerTable.JOGO, Name_Atual)    
end    
if PlayerTable.JOGO == Games.BJ then      
if BlackJack_Count <= 5 then        
BlackJack_House = BlackJack_House + Msg        
RollDice()        
wait(WaitConfiguration + 100)      
elseif BlackJack_Count > 5 and BlackJack_Count < 10 then        
BlackJack_Player = BlackJack_Player + Msg        
RollDice()        
wait(WaitConfiguration + 100)        
if BlackJack_Count == 10 then          
CheckGame(Msg, PlayerTable.JOGO, Name_Atual, nil, BlackJack_House, BlackJack_Player)        
end      
end    
end  
end  
if PlayerTable ~= nil and PlayerTable.JOGO == Games.XXX then    
MsgP = tonumber(string.match(message, Name_Atual .. \" rolled a (.+).\"))    
if MsgP then      if PlayerTable.XXX_Count >= 3 then       
 PlayerTable.XXX_Player = PlayerTable.XXX_Player + MsgP        
 PlayerTable.XXX_Count = PlayerTable.XXX_Count + 1        
 if PlayerTable.XXX_Count == 6 then          
 CheckGame(nil, PlayerTable.JOGO, Name_Atual, nil, PlayerTable.XXX, PlayerTable.XXX_Player)        
 end      
 end    
 elseif Msg and PlayerTable.XXX_Count < 3 then      
 PlayerTable.XXX_Count = PlayerTable.XXX_Count + 1      
 PlayerTable.XXX = PlayerTable.XXX + Msg      
 Last_XXX = os.time()      
 if PlayerTable.XXX_Count == 3 then        
 Self.Say(\"Minha soma deu: \" .. PlayerTable.XXX .. \". Agora gire o dado 3 vezes!.\")      
 else        RollDice()        wait(WaitConfiguration + 100)      
 end    
 end  endend)function GetPlayerTable(type)  
 if type == \"balancewl\" then    
 if PlayerTable ~= nil and PlayerTable.BALANCE_P ~= nil then      
 return PlayerTable.BALANCE_P    
 end  
 elseif type == \"balance\" then    
 if PlayerTable ~= nil and PlayerTable.BALANCE ~= nil then      
 return math.floor(PlayerTable.BALANCE * 10)    
 end  
 elseif type == \"moneyw\" then    
 if PlayerTable ~= nil and PlayerTable.BALANCE ~= nil and PlayerTable.JOGO ~= nil and PlayerTable.JOGO ~= 0 then      
 if PlayerTable.BALANCE > BetOption[PlayerTable.JOGO].Max then        
 if PlayerTable.JOGO ~= Games.AH and PlayerTable.JOGO ~= Games.AL then          
 return math.floor(BetOption[PlayerTable.JOGO].Max * 10 * (BetOption[PlayerTable.JOGO].Payout / 100))        
 elseif PlayerTable.AL ~= nil then          
 return PlayerTable.AL + PlayerTable.BALANCE * 10 * PayoutOption / 100        
 elseif PlayerTable.AH ~= nil then          
 return PlayerTable.AH + PlayerTable.BALANCE * 10 * PayoutOption / 100        
 end      
 elseif PlayerTable.JOGO ~= Games.AH and PlayerTable.JOGO ~= Games.AL then        
 return
 math.floor(PlayerTable.BALANCE * 10 * (BetOption[PlayerTable.JOGO].Payout / 100))      
 elseif PlayerTable.AL ~= nil then        
 return PlayerTable.AL * 10 * PayoutOption / 100      
 elseif PlayerTable.AH ~= nil then        
 return PlayerTable.AH * 10 * PayoutOption / 100      
 end    
 end  
 elseif type == \"moneyl\" then    if PlayerTable ~= nil and PlayerTable.BALANCE ~= nil and PlayerTable.JOGO ~= nil and PlayerTable.JOGO ~= 0 then      
 if PlayerTable.BALANCE > BetOption[PlayerTable.JOGO].Max then        
 if PlayerTable.JOGO ~= Games.AH and PlayerTable.JOGO ~= Games.AL then          
 return 
 math.floor(BetOption[PlayerTable.JOGO].Max * 10)        elseif PlayerTable.AL ~= nil then          
 return 
 PlayerTable.AL * 10        
 elseif PlayerTable.AH ~= nil then          
 return PlayerTable.AH * 10        
 end      
 elseif PlayerTable.JOGO ~= Games.AH and PlayerTable.JOGO ~= Games.AL then        
 return math.floor(PlayerTable.BALANCE * 10)      
 elseif PlayerTable.AL ~= nil then        
 return PlayerTable.AL * 10     
 elseif PlayerTable.AH ~= nil then        
 return PlayerTable.AH * 10      
 end    
 end  
 elseif 
 type == \"game\" and PlayerTable ~= nil and PlayerTable.JOGO ~= nil and PlayerTable.JOGO >= 0 then   
 return 
 Games_Type[PlayerTable.JOGO + 1]  endendfunction Replace(message)  
 replacements = {    
 [\"|HLMIN|\"] = HL_MIN * 10,    
 [\"|HLMAX|\"] = HL_MAX * 10,    
 [\"|HLPAY|\"] = HL_PAYOUT,    
 [\"|HLACMIN|\"] = HL_LITERA_MIN * 10,    
 [\"|HLACMAX|\"] = HL_LITERA_MAX * 10,    
 [\"|HLACPAY|\"] = HL_LITERA_PAYOUT,    
 [\"|NUMMIN|\"] = NUMBERS_MIN * 10,    
 [\"|NUMMAX|\"] = NUMBERS_MAX * 10,    
 [\"|NUMPAY|\"] = NUMBERS_PAYOUT,    
 [\"|BJMIN|\"] = BLACKJACK_MIN * 10,    
 [\"|BJMAX|\"] = BLACKJACK_MAX * 10,    
 [\"|BJPAY|\"] = BLACKJACK_PAYOUT,    
 [\"|XXXMIN|\"] = XXX_MIN * 10,    
 [\"|XXXMAX|\"] = XXX_MAX * 10,    
 [\"|XXXPAY|\"] = XXX_PAYOUT,    
 [\"|OEMIN|\"] = ODDEVEN_MIN * 10,    
 [\"|OEMAX|\"] = ODDEVEN_MAX * 10,    
 [\"|OEPAY|\"] = ODDEVEN_PAYOUT,    
 [\"|CASINO|\"] = Self.Name(),    
 [\"|GUESTS|\"] = Casino.Players_Count,    
 [\"|BALANCE|\"] = GetPlayerTable(\"balance\"),    
 [\"|BALANCEWL|\"] = GetPlayerTable(\"balancewl\"),    
 [\"|MONEYWIN|\"] = GetPlayerTable(\"moneyw\"),    
 [\"|MONEYLOSE|\"] = GetPlayerTable(\"moneyl\"),    
 [\"|GAME|\"] = GetPlayerTable(\"game\")  }  
 result = string.gsub(message, \"|%a+|\", 
 function(str)    
 return 
 replacements[str]  end)  
 return resultendfunction CountMoney(CONTAINER)  
 local Cont = Container.New(CONTAINER:lower())  
 local MoneyTotal = 0  
 if Cont:isOpen() then    
 for i = 0, Cont:ItemCount() - 1 do      
 local Spot = Cont:GetItemData(i)      
 if Spot.id == 3043 then        
 MoneyTotal = MoneyTotal + Spot.count      
 end    
 end  
 end  
 return MoneyTotalendfunction Decorations_Casino()  
 for i = 0, Container_Index.Depot:ItemCount() - 1 do    
 local Spot = Container_Index.Depot:GetItemData(i)    if table.contains(_Decoration_Items, Item.GetName(Spot.id)) then      
 Container_Index.Depot:MoveItemToGround(i, Positions.Depot_Pos.x, Positions.Depot_Pos.y, Positions.Depot_Pos.z, 1)      
 wait(WaitConfiguration + 500)      
 for j = 1, #_Decoration_Items do        
 if 0 < Container_Index.Depot:CountItemsOfID(Item.GetID(_Decoration_Items[j]:lower())) then          Decorations_Casino()        
 end      end    end  end  
 for i = 0, Container_Index.Depot:ItemCount() - 1 do    
 local Spot = Container_Index.Depot:GetItemData(i)    
 while table.contains(Dice_IDs, Spot.id) do      
 Container_Index.Depot:MoveItemToGround(i, Positions.Depot_Pos.x, Positions.Depot_Pos.y, Positions.Depot_Pos.z, 1)      wait(WaitConfiguration + 500)     
 break   
 end  
 end  
 if DEPOT_MODE and Positions.Counter_Pos.x > Positions.Casino_Pos.x then    
 for i = 0, Container_Index.Depot:ItemCount() - 1 do      
 local Spot = Container_Index.Depot:GetItemData(i)      
 while Spot.id == Item.GetID(_Decoration_Tapestry) do        
 Container_Index.Depot:MoveItemToGround(i, Positions.Depot_Pos.x - 1, Positions.Depot_Pos.y, Positions.Depot_Pos.z, 1)        
 wait(WaitConfiguration + 500)   
 break    
 end  
 end  
 endendfunction Close_Casino()  
 if Casino_Started then    
 for i = 0, Container_Index.Locker:ItemCount() - 1 do      
 local Spot = Container_Index.Locker:GetItemData(i)      
 if table.contains(_Decoration_Items, Item.GetName(Spot.id)) then        
 Container_Index.Locker:MoveItemToContainer(i, Container_Index.Depot:Index(), Container_Index.Depot:ItemCapacity() - 1, Spot.count)   
 wait(WaitConfiguration + 500)   
 for j = 1, #_Decoration_Items do     
 if 0 < Container_Index.Locker:CountItemsOfID(Item.GetID(_Decoration_Items[j]:lower())) then        
 Close_Casino()       
 end   
 end   
 end  
 end  
 for i = 0, Container_Index.Locker:ItemCount() - 1 do   
 local Spot = Container_Index.Locker:GetItemData(i)   
 while table.contains(Dice_IDs, Spot.id) do     
 Container_Index.Locker:MoveItemToContainer(i, Container_Index.Depot:Index(), Container_Index.Depot:ItemCapacity() - 1, Spot.count) 
 wait(WaitConfiguration + 500)     
 break    
 end  
 end  
 Map.PickupItem(Positions.Depot_Pos.x - 1, Positions.Depot_Pos.y, Positions.Depot_Pos.z, Container_Index.Depot:Index(), Container_Index.Depot:ItemCapacity() - 1) 
 wait(WaitConfiguration + 300)   
 for i = 0, 15 do  
 closeContainer(i) 
 end    Casino_Started = false 
 endendfunction onWrite(_Channel_Casino, message)  
 _Channel_Casino:SendYellowMessage(Self.Name(), message) 
 local Message = message:lower():trim() 
 local cmd, value = message:lower():match(\"^/([a-z]+)(.+)$\")  if Message == \"uptime\" then  
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Uptime: \" .. Hud.Statistics.Statistics_Casino_Session_TimeT)  
 elseif Message == \"credits\" then 
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Crakeado por Azemat | Skype: batraw25\") 
 elseif Message == \"/help\" then 
 for i = 1, #Comandos do    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", Comandos)     
 if i == #Comandos then   
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Todos os comandos do Cassino s\\227o esses.\")  
 end   
 end  
 elseif Message == \"profit\" then    _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Profit: \" .. Casino.Profit) 
 elseif Message == \"/start\" then    if Casino_Started == false then      _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Abrindo Cassino!\")    
 Open_Casino:Start()   
 Stop_Casino = false  
 else  
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Seu cassino j\\225 est\\225 Ligado!\")   
 end 
 elseif Message == \"/stop\" then  
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Fechando Cassino!\")   
 Close_Casino()  
 Stop_Casino = true 
 elseif Message == \"/pause\" then  
 if Stop_Casino == false then    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Pausado (para voltar ao normal use /resume).\")     
 Casino_Started = false    
 Stop_Casino = true   
 else   
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"O cassino j\\225 est\\225 pausado!\")   
 end 
 elseif Message == \"/resume\" then   
 if Stop_Casino == true then   
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Resumido!\")    
 Casino_Started = true   
 Stop_Casino = false    
 else    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"O cassino n\\227o est\\225 pausado para ser resumido!\")    
 end  
 elseif Message == \"/reset\" then  
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", 
 \"HUD Reset Success!\")   
 Casino.Profit = 0   
 Casino.Players_Count = 0    
 Casino.TopGames = {      
 H = 0,     
 L = 0,    
 HAC = 0,    
 LAC = 0,    
 NUM = 0,   
 XXX = 0,   
 ODD = 0,    
 EVEN = 0    } 
 for i, v in pairs(Player) do   
 if v ~= nil and v.LOSETOP ~= nil and v.LOSETOP.Money ~= nil then      
 v.LOSETOP.Money = 0      
 v.WINTOP.Money = 0    
 end    
 end  
 elseif Message == \"/addg\" then 
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Foram adicionados mais 100 Visitantes!\")  
 Casino.Players_Count = Casino.Players_Count + 100
 end 
 if cmd == \"hlmin\" then 
 if value then  
 local HighLow_Min = tonumber(value)   
 HL_MIN = HighLow_Min    
 if HighLow_Min then   
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{High/Low} - Minimo ajustado para: \" .. HighLow_Min * 10 .. \"k.\")  
 else   
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /hlmin NUMEROAQUI\")   
 end    end  elseif cmd == \"hlmax\" then   
 if value then   
 local HighLow_Max = tonumber(value) 
 HL_MAX = HighLow_Max   
 if HighLow_Max then       
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{High/Low} - M\\225ximo ajustado para: \" .. HighLow_Max * 10 .. \"k.\")    
 else     
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /hlmax NUMEROAQUI\") 
 end  
 end 
 elseif cmd == \"hlpay\" then 
 if value then   
 local HighLow_Payout = tonumber(value)    
 HL_PAYOUT = HighLow_Payout    
 if HighLow_Payout then       
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{High/Low} - Payout ajustado para: \" .. HighLow_Payout .. \"%.\")    
 else       
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /hlpay NUMEROAQUI\")   
 end   
 end  
 elseif cmd == \"hlmode\" then  
 if value then  
 local Choice = value:lower()      if Choice == \"on\" and HL_ENABLED == false then       
 HL_ENABLED = true    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{High/Low} - LIGADO!\")    
 elseif Choice == \"off\" and HL_ENABLED == true then  
 HL_ENABLED = false      
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{High/Low} - DESLIGADO!\")    
 else      
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{High/Low} - Verifique se voc\\234 digitou 'on' para ligar ou 'off' para desligar. | Caso n\\227o funcionar quer dizer que j\\225 est\\225 configurado como solicitado.\")    
 end  
 end 
 elseif cmd == \"hlacmin\" then   
 if value then      
 local HighLow_AC_Min = tonumber(value)  
 HL_LITERA_MIN = HighLow_AC_Min   
 if HighLow_AC_Min then       
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{High/Low (AC)} - M\\225ximo ajustado para: \" .. HighLow_AC_Min * 10 .. \"k.\")  
 else       
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /hlacmin NUMEROAQUI\")   
 end  
 end 
 elseif cmd == \"hlacmax\" then 
 if value then   
 local HighLow_AC_Max = tonumber(value)     
 HL_LITERA_MAX = HighLow_AC_Max     
 if HighLow_AC_Max then     
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{High/Low (AC)} - M\\225ximo ajustado para: \" .. HighLow_AC_Max * 10 .. \"k.\")    
 else       
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /hlacmax NUMEROAQUI\") 
 end   
 end 
 elseif cmd == \"hlacpay\" then  
 if value then      local HighLow_AC_Payout = tonumber(value)   
 HL_LITERA_PAYOUT = HighLow_AC_Payout    
 if HighLow_AC_Payout then     
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{High/Low (AC)} - Payout ajustado para: \" .. HighLow_AC_Payout .. \"%.\")   
 else     
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /hlacpay NUMEROAQUI\")  
 end  
 end  
 elseif cmd == \"hlacmode\" then  
 if value then   
 local Choice = value:lower()   
 if Choice == \"on\" and HL_LITERA_ENABLED == false then 
 HL_LITERA_ENABLED = true      
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{High/Low (AC)} - LIGADO!\")   
 elseif Choice == \"off\" and HL_LITERA_ENABLED == true then   
 HL_LITERA_ENABLED = false    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{High/Low (AC)} - DESLIGADO!\")   
 else     
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{High/Low (AC)} - Verifique se voc\\234 digitou 'on' para ligar ou 'off' para desligar. | Caso n\\227o funcionar quer dizer que j\\225 est\\225 configurado como solicitado.\")  
 end   
 end 
 elseif cmd == \"nummin\" then  
 if value then      local Numbers_Min = tonumber(value)      NUMBERS_MIN = Numbers_Min      if Numbers_Min then    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{Numbers} - Minimo ajustado para: \" .. Numbers_Min * 10 .. \"k.\")   
 else       
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /nummin NUMEROAQUI\")    
 end  
 end  
 elseif cmd == \"nummax\" then  
 if value then   
 local Numbers_Max = tonumber(value)  
 NUMBERS_MAX = Numbers_Max  
 if Numbers_Min then    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{Numbers} - M\\225ximo ajustado para: \" .. Numbers_Max * 10 .. \"k.\")  
 else      
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /nummax NUMEROAQUI\")    
 end  
 end 
 elseif cmd == \"numpay\" then  
 if value then    
 local Numbers_Payout = tonumber(value)   
 NUMBERS_PAYOUT = Numbers_Payout   
 if Numbers_Payout then   
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{Numbers} - Payout ajustado para: \" .. Numbers_Payout .. \"%.\")    
 else     
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /numpay NUMEROAQUI\")  
 end   
 end
 elseif cmd == \"nummode\" then   
 if value then    
 local Choice = value:lower()     
 if Choice == \"on\" and NUMBERS_ENABLED == false then    
 NUMBERS_ENABLED = true       
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{Numbers} - LIGADO!\")   
 elseif Choice == \"off\" and NUMBERS_ENABLED == true then    
 NUMBERS_ENABLED = false    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{Numbers} - DESLIGADO!\")  
 else        
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{Numbers} - Verifique se voc\\234 digitou 'on' para ligar ou 'off' para desligar. | Caso n\\227o funcionar quer dizer que j\\225 est\\225 configurado como solicitado.\")  
 end  
 end 
 elseif cmd == \"bjmin\" then  
 if value then   
 local BlackJack_Min = tonumber(value)   
 if BlackJack_Min then       
 BLACKJACK_MIN = BlackJack_Min   
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{BlackJack} - Minimo ajustado para: \" .. BlackJack_Min * 10 .. \"k.\")
 else   
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /bjmin NUMEROAQUI\")   
 end  
 end  
 elseif cmd == \"bjmax\" then  
 if value then    
 local BlackJack_Max = tonumber(value)      if BlackJack_Max then  
 BLACKJACK_MAX = BlackJack_Max  
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{BlackJack} - Minimo ajustado para: \" .. BlackJack_Max * 10 .. \"k.\") 
 else     
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /bjmax NUMEROAQUI\")    
 end 
 end
 elseif cmd == \"bjpay\" then  
 if value then   
 local BlackJack_Payout = tonumber(value)    
 if BlackJack_Payout then    
 BLACKJACK_PAYOUT = BlackJack_Payout    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{BlackJack} - Minimo ajustado para: \" .. BlackJack_Payout .. \"%.\")     
 else       
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /bjpay NUMEROAQUI\")    
 end  
 end 
 elseif cmd == \"bjmode\" then 
 if value then    
 local Choice = value:lower()  
 if Choice == \"on\" and BLACKJACK_ENABLED == false then  
 BLACKJACK_ENABLED = true      
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{BlackJack} - LIGADO!\")    
 elseif Choice == \"off\" and BLACKJACK_ENABLED == true then    
 BLACKJACK_ENABLED = false  
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{BlackJack} - DESLIGADO!\")    
 else       
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{BlackJack} - Verifique se voc\\234 digitou 'on' para ligar ou 'off' para desligar. | Caso n\\227o funcionar quer dizer que j\\225 est\\225 configurado como solicitado.\")    
 end  
 end
 elseif cmd == \"xxxmin\" then   
 if value then   
 local XXX_Min = tonumber(value)  
 if XXX_Min then        XXX_MIN = XXX_Min       
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{3X3} - Minimo ajustado para: \" .. XXX_Min * 10 .. \"k.\")   
 else        _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /xxxmin NUMEROAQUI\")   
 end   
 end  
 elseif cmd == \"xxxmax\" then  
 if value then     
 local XXX_Max = tonumber(value)   
 if XXX_Max then   
 XXX_MAX = XXX_Max     
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{3X3} - Minimo ajustado para: \" .. XXX_Max * 10 .. \"k.\")  
 else     
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /xxxmax NUMEROAQUI\")  
 end    end  elseif cmd == \"xxxpay\" then  
 if value then   
 local XXX_Payout = tonumber(value)  
 if XXX_Payout then   
 XXX_PAYOUT = XXX_Payout    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{3X3} - Minimo ajustado para: \" .. XXX_Payout .. \"%.\")    
 else   
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /xxxpay NUMEROAQUI\")    
 end   
 end
 elseif cmd == \"xxxmode\" then 
 if value then  
 local Choice = value:lower()  
 if Choice == \"on\" and XXX_ENABLED == false then    
 XXX_ENABLED = true    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{3X3} - LIGADO!\")  
 elseif Choice == \"off\" and XXX_ENABLED == true then     
 XXX_ENABLED = false      
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{3X3} - DESLIGADO!\")    
 else    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{3X3} - Verifique se voc\\234 digitou 'on' para ligar ou 'off' para desligar. | Caso n\\227o funcionar quer dizer que j\\225 est\\225 configurado como solicitado.\")      end    end  elseif cmd == \"oemin\" then    if value then      local ODD_Min = tonumber(value)      if ODD_Min then        ODDEVEN_MIN = ODD_Min        _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{ODD/EVEN} - M\\237nimo ajustado para: \" .. ODD_Min * 10 .. \"K.\")      else        _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /oemin NUMEROAQUI\")    
 end  
 end
 elseif cmd == \"oemax\" then 
 if value then   
 local ODD_Max = tonumber(value)     
 if ODD_Max then    
 ODDEVEN_MAX = ODD_Max    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{ODD/EVEN} - Minimo ajustado para: \" .. ODD_Max * 10 .. \"K.\")  
 else  
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /oemax NUMEROAQUI\")    
 end   
 end 
 elseif cmd == \"oepay\" then  
 if value then   
 local ODD_Payout = tonumber(value)   
 if ODD_Payout then  
 ODDEVEN_PAYOUT = ODD_Payout    
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{ODD/EVEN} - Minimo ajustado para: \" .. ODD_Payout .. \"%.\")   
 else       
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Por favor, para usar o comando digite /oepay NUMEROAQUI\")     
 end   
 end 
 elseif cmd == \"oemode\" and value then 
 local Choice = value:lower() 
 if Choice == \"on\" and ODDEVEN_ENABLED == false then   
 ODDEVEN_ENABLED = true      _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{ODD/EVEN} - LIGADO!\")   
 elseif Choice == \"off\" and ODDEVEN_ENABLED == true then  
 ODDEVEN_ENABLED = false   
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{ODD/EVEN} - DESLIGADO!\")  
 else   
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"{ODD/EVEN} - Verifique se voc\\234 digitou 'on' para ligar ou 'off' para desligar. | Caso n\\227o funcionar quer dizer que j\\225 est\\225 configurado como solicitado.\")    end  endend_Channel_Casino = Channel.New(\"Canal Cassino\", onWrite, onClose)_Channel_Casino:SendOrangeMessage(\"PROIBIDO\", \"Revender o Script e/ou passar pra outra pessoa! Caso realize tal ato o Script bloquear\\225!\")_Channel_Casino:SendOrangeMessage(\"Comprador\", \"Credits for Batraw!.\")_Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"Fa\\231a bom proveito do Script! Crakeado por Azemat! Skype: batraw25. Para d\\250vidas digite /help\")function onClose()  print(\"O Channel foi fechado, para utiliza-lo novamente reabra o Script em Scripter.\")endfunction GetIndexes(Container_Integer) 
 local Index_ID  if Container_Integer == 1 then  
 wait(WaitConfiguration + 300)   
 for i, v in pairs(Container.GetAll()) do  
 Index_ID = v   
 break    end  end  if Container_Integer == 2 then   
 wait(WaitConfiguration + 300)
 for i, v in pairs(Container.GetAll()) do   
 if Container.New(v):isOpen() and Container.New(v):CountItemsOfID(3497) == 0 and Container.New(v):CountItemsOfID(3498) == 0 and Container.New(v):CountItemsOfID(3499) == 0 then   
 Index_ID = v       
 break    
 end  
 end  
 end
 return Index_IDendfunction CoordinatesDC() 
 for x = -1, 1 do  
 for y = -1, 1 do  
 if table.contains(Counter_IDs, Map.GetTopUseItem(Self.Position().x + x, Self.Position().y + y, Self.Position().z).id) then    
 local posx, posy, posz = Self.Position().x, Self.Position().y, Self.Position().z   
 Positions.Counter_Pos.x, Positions.Counter_Pos.y, Positions.Counter_Pos.z = posx + x, posy + y, posz     
 break    
 end  
 end 
 end  for x = -1, 1 do 
 for y = -1, 1 do  
 if table.contains(Depot_IDs, Map.GetTopUseItem(Self.Position().x + x, Self.Position().y + y, Self.Position().z).id) then    
 local posx, posy, posz = Self.Position().x, Self.Position().y, Self.Position().z    
 Positions.Depot_Pos.x, Positions.Depot_Pos.y, Positions.Depot_Pos.z = posx + x, posy + y, posz 
 break     
 end  
 end 
 end 
 Positions.Casino_Pos.x, Positions.Casino_Pos.y, Positions.Casino_Pos.z = Self.Position().x, Self.Position().y, Self.Position().z 
 if Positions.Counter_Pos.x == nil then  
 print(\"Erro: Counter n\\227o encontrado! Se tiver itens sobre ele, tire!\")  
 return false  end  if Positions.Depot_Pos.x == nil then 
 print(\"Erro: Depot n\\227o encontrado! Se tiver itens sobre ele, tire!\")  
 return false  end  if Positions.Casino_Pos.x == nil then 
 print(\"Erro: Posi\\231\\227o do Cassino n\\227o encontrado! Tentando novamente...\") 
 return false  end  if Positions.Casino_Pos.x > Positions.Counter_Pos.x then   
 Positions.Gambler_Pos.x, Positions.Gambler_Pos.y, Positions.Gambler_Pos.z = Positions.Casino_Pos.x - 2, Positions.Casino_Pos.y, Positions.Casino_Pos.z  
 elseif Positions.Casino_Pos.x < Positions.Counter_Pos.x then   
 Positions.Gambler_Pos.x, Positions.Gambler_Pos.y, Positions.Gambler_Pos.z = Positions.Casino_Pos.x + 2, Positions.Casino_Pos.y, Positions.Casino_Pos.z 
 elseif Positions.Casino_Pos.y < Positions.Counter_Pos.y then   
 Positions.Gambler_Pos.x, Positions.Gambler_Pos.y, Positions.Gambler_Pos.z = Positions.Casino_Pos.x, Positions.Casino_Pos.y + 2, Positions.Casino_Pos.z 
 elseif Positions.Casino_Pos.y > Positions.Counter_Pos.y then  
 Positions.Gambler_Pos.x, Positions.Gambler_Pos.y, Positions.Gambler_Pos.z = Positions.Casino_Pos.x, Positions.Casino_Pos.y - 2, Positions.Casino_Pos.z 
 end
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"[Posi\\231\\227o] - Counter: OK.\")
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"[Posi\\231\\227o] - Locker: OK.\")
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"[Posi\\231\\227o] - Gambler: OK.\") 
 _Channel_Casino:SendOrangeMessage(\"[$ \" .. Self.Name() .. \" $]\", \"[Posi\\231\\227o] - Cassino: OK.\")
 end
 function AntiSpam(tipo, mensagem)
 if tipo == \"game\" and not table.contains(LimitSay.MUTE, \"anti\") then   
 Self.Say(mensagem)   
 table.insert(LimitSay.MUTE, \"anti\")  
 endendfunction CheckGame(Number, Choice, name, Ac, bj_house, bj_player) 
 local _playerWin = false 
 local _playerWin_Ac 
 if Choice ~= Games.XXX and Games_Type[PlayerTable.JOGO + 1] ~= Games.NULL then  
 _Channel_Casino:SendOrangeMessage(\"[Game]\", \"Jogo: \" .. Games_Type[PlayerTable.JOGO + 1] .. \" | N\\250mero (Dado): \" .. Number .. \" | Balance: \" .. math.floor(PlayerTable.BALANCE) .. \"0k\") 
 end 
 if Choice == Games.LOW then   
 Casino.TopGames.L = Casino.TopGames.L + 1   
 if Number >= 1 and Number <= 3 then     
 _playerWin = true  
 end 
 elseif Choice == Games.HIGH then 
 Casino.TopGames.H = Casino.TopGames.H + 1  
 if Number >= 4 and Number <= 6 then   
 _playerWin = true 
 end  
 end 
 if Choice == Games.ODD then 
 Casino.TopGames.ODD = Casino.TopGames.ODD + 1  
 if table.contains({      1,      3,      5    }, Number) then  
 _playerWin = true    
 end
 elseif Choice == Games.EVEN then   
 Casino.TopGames.EVEN = Casino.TopGames.EVEN + 1   
 if table.contains({      2,      4,      6    }, Number) then   
 _playerWin = true   
 end 
 end  if Choice == Games.NUM then  
 Casino.TopGames.NUM = Casino.TopGames.NUM + 1    if Number == tonumber(Ac) then   
 _playerWin = true   
 end
 end 
 if Choice == Games.AL then   
 Casino.TopGames.LAC = Casino.TopGames.LAC + 1  
 if Number >= 1 and Number <= 3 then   
 _playerWin_Ac = true  
 else  
 _playerWin_Ac = false  
 end 
 elseif Choice == Games.AH then  
 Casino.TopGames.HAC = Casino.TopGames.HAC + 1    
 if Number >= 4 and Number <= 6 then   
 _playerWin_Ac = true   
 else 
 _playerWin_Ac = false  
 end  
 end 
 if Choice == Games.BJ then   
 if bj_player < bj_house and bj_house <= 21 then   
 _playerWin = false    
 Self.Say(\"House Win! House: \" .. bj_house .. \", Player: \" .. bj_player .. \".\")      BlackJack_House = 0  
 BlackJack_Player = 0  
 BlackJack_Count = 0  
 Jailson:Start()   
 elseif bj_house < bj_player and bj_player <= 21 then  
 _playerWin = true  
 Self.Say(\"Player Win! House: \" .. bj_house .. \", Player: \" .. bj_player .. \".\")   
 BlackJack_House = 0   
 BlackJack_Player = 0     
 BlackJack_Count = 0   
 Jailson:Start()   
 elseif bj_house < bj_player and bj_player > 21 then   
 _playerWin = false   
 Self.Say(\"House Win! House: \" .. bj_house .. \", Player: \" .. bj_player .. \".\")  
 BlackJack_House = 0   
 BlackJack_Player = 0   
 BlackJack_Count = 0    
 Jailson:Start() 
 elseif bj_player < bj_house and bj_house > 21 then     
 _playerWin = true 
 Self.Say(\"Player Win! House: \" .. bj_house .. \", Player: \" .. bj_player .. \".\")  
 BlackJack_House = 0   
 BlackJack_Player = 0   
 BlackJack_Count = 0     
 Jailson:Start()   
 elseif bj_player == bj_house then  
 Self.Say(\"Tie! House: \" .. bj_house .. \", Player: \" .. bj_player .. \".\")   
 _playerWin = nil 
 PlayerTable.JOGO = Games.NULL   
 BlackJack_House = 0    
 BlackJack_Player = 0     
 BlackJack_Count = 0    
 Jailson:Start() 
 elseif bj_player > 21 and bj_house > 21 then    
 Self.Say(\"Two loses.\")    
 _playerWin = nil  
 PlayerTable.JOGO = Games.NULL    
 BlackJack_House = 0  
 BlackJack_Player = 0   
 BlackJack_Count = 0  
 Jailson:Start() 
 end 
 elseif Choice == Games.XXX then   
 if bj_player < bj_house then    
 Self.Say(\"House Win! House Sum: \" .. bj_house .. \", Player Sum: \" .. bj_player .. \".\")    
 _playerWin = false  
 elseif bj_house < bj_player then  
 Self.Say(\"Player Win! House Sum: \" .. bj_house .. \", Player Sum: \" .. bj_player .. \".\")    
 _playerWin = true    elseif bj_house == bj_player then   
 Self.Say(\"Tie!\")    
 _playerWin = nil 
 PlayerTable.JOGO = 0  
 Player[\"\" .. name .. \"\"].XXX = 0    
 Player[\"\" .. name .. \"\"].XXX_Player = 0   
 Player[\"\" .. name .. \"\"].XXX_Count = 0 
 end 
 end  
 if _playerWin == true and _playerWin_Ac == nil then 
 Casino_Won(name)   
 BlackJack_House = 0  
 BlackJack_Player = 0  
 BlackJack_Count = 0   
 Player[\"\" .. name .. \"\"].XXX = 0 
 Player[\"\" .. name .. \"\"].XXX_Player = 0 
 Player[\"\" .. name .. \"\"].XXX_Count = 0 
 elseif _playerWin == false and _playerWin_Ac == nil then  
 Casino_Lose(name)    
 BlackJack_House = 0  
 BlackJack_Player = 0 
 BlackJack_Count = 0   
 Player[\"\" .. name .. \"\"].XXX = 0    Player[\"\" .. name .. \"\"].XXX_Player = 0 
 PlayerTable.XXX_Count = 0  
 elseif _playerWin_Ac == true then 
 Casino_Won_Ac(name, Ac)  elseif _playerWin_Ac == false then  
 Casino_Lose_Ac(name, Ac)  elseif _playerWin == nil then  
 if PlayerTable.JOGO == Games.XXX then   
 Last_XXX = nil 
 PlayerTable.JOGO = nil 
 elseif PlayerTable.JOGO == Games.BJ then   
 PlayerTable.JOGO = nil 
 end  endendfunction ReadBalance(name)  
 local SALDO = 0 
 SALDO = PlayerTable.BALANCE  
 if SALDO == nil then  
 SALDO = 0 
 end  
 return
 SALDOendfunction Casino_Won(name)  Last_Activity_Player = os.time()
 if PlayerTable.BALANCE and PlayerTable.JOGO and BetOption[PlayerTable.JOGO] then 
 if PlayerTable.BALANCE > BetOption[PlayerTable.JOGO].Max then  
 PlayerTable.WINTOP.Name = name    
 PlayerTable.WINTOP.Money = PlayerTable.WINTOP.Money + BetOption[PlayerTable.JOGO].Max * (BetOption[PlayerTable.JOGO].Payout / 100) 
 PlayerTable.WINTOP.Times = PlayerTable.WINTOP.Times + 1 
 Casino.Profit = Casino.Profit - BetOption[PlayerTable.JOGO].Max * (BetOption[PlayerTable.JOGO].Payout / 100)   
 _Channel_Casino:SendOrangeMessage(\"[Casino Win]\", \"Player: \" .. name .. \" | Game: \" .. Games_Type[PlayerTable.JOGO + 1] .. \" | Win: +\" .. math.floor(BetOption[PlayerTable.JOGO].Max * 10 * (BetOption[PlayerTable.JOGO].Payout / 100)) .. \"k | Balance: \" .. math.floor(PlayerTable.BALANCE * 10 + BetOption[PlayerTable.JOGO].Max * 10 * (BetOption[PlayerTable.JOGO].Payout / 100)) .. \"k\")   
 PlayerTable.BALANCE_P = math.floor(PlayerTable.BALANCE * 10 + BetOption[PlayerTable.JOGO].Max * 10 * (BetOption[PlayerTable.JOGO].Payout / 100))      AntiSpam(\"game\", Replace(Win_Messages_Casino[math.random(#Win_Messages_Casino)]))      PlayerTable.BALANCE = PlayerTable.BALANCE + BetOption[PlayerTable.JOGO].Max * (BetOption[PlayerTable.JOGO].Payout / 100)      BlackJack_House = 0      BlackJack_Player = 0      BlackJack_Count = 0   
 PlayerTable.JOGO = Games.NULL  
 else 
 PlayerTable.WINTOP.Name = name    
 PlayerTable.WINTOP.Money = PlayerTable.WINTOP.Money + PlayerTable.BALANCE * (BetOption[PlayerTable.JOGO].Payout / 100) 
 PlayerTable.WINTOP.Times = PlayerTable.WINTOP.Times + 1  
 Casino.Profit = Casino.Profit - PlayerTable.BALANCE * (BetOption[PlayerTable.JOGO].Payout / 100)    
 _Channel_Casino:SendOrangeMessage(\"[Casino Win]\", \"Player: \" .. name .. \" | Game: \" .. Games_Type[PlayerTable.JOGO + 1] .. \" | Win: +\" .. math.floor(PlayerTable.BALANCE * 10 * (BetOption[PlayerTable.JOGO].Payout / 100)) .. \"k | Balance: \" .. math.floor(PlayerTable.BALANCE * 10 + PlayerTable.BALANCE * 10 * (BetOption[PlayerTable.JOGO].Payout / 100)) .. \"k\")      PlayerTable.BALANCE_P = math.floor(PlayerTable.BALANCE * 10 + PlayerTable.BALANCE * 10 * (BetOption[PlayerTable.JOGO].Payout / 100))      AntiSpam(\"game\", Replace(Win_Messages_Casino[math.random(#Win_Messages_Casino)]))    
 PlayerTable.BALANCE = PlayerTable.BALANCE + PlayerTable.BALANCE * (BetOption[PlayerTable.JOGO].Payout / 100)    
 BlackJack_House = 0    
 BlackJack_Player = 0      BlackJack_Count = 0      PlayerTable.JOGO = Games.NULL  
 end  
 end 
 for i = 0, Container_Index.Depot:ItemCount() - 1 do 
 local Spot = Container_Index.Depot:GetItemData(i)   
 if Spot.id == Item.GetID(_Item_Use_Win) then     
 Container_Index.Depot:UseItem(i, true)    
 break  
 end  endendfunction Casino_Lose(name)  Last_Activity_Player = os.time()  if PlayerTable.BALANCE and PlayerTable.JOGO and BetOption[PlayerTable.JOGO] then 
 if PlayerTable.BALANCE > BetOption[PlayerTable.JOGO].Max then    
 PlayerTable.LOSETOP.Name = name      PlayerTable.LOSETOP.Money = PlayerTable.LOSETOP.Money + BetOption[PlayerTable.JOGO].Max   
 PlayerTable.LOSETOP.Times = PlayerTable.LOSETOP.Times + 1      
 Casino.Profit = Casino.Profit + BetOption[PlayerTable.JOGO].Max   
 _Channel_Casino:SendOrangeMessage(\"[Casino Lose]\", \"Player: \" .. name .. \" | Game: \" .. Games_Type[PlayerTable.JOGO + 1] .. \" | Lose: -\" .. math.floor(BetOption[PlayerTable.JOGO].Max * 10) .. \"k | Balance: \" .. math.floor(PlayerTable.BALANCE * 10 - BetOption[PlayerTable.JOGO].Max * 10) .. \"k\")      PlayerTable.BALANCE_P = math.floor(PlayerTable.BALANCE * 10 - BetOption[PlayerTable.JOGO].Max * 10)      AntiSpam(\"game\", Replace(Lose_Messages_Casino[math.random(#Lose_Messages_Casino)]))      PlayerTable.BALANCE = PlayerTable.BALANCE - BetOption[PlayerTable.JOGO].Max      BlackJack_House = 0      BlackJack_Player = 0      BlackJack_Count = 0      PlayerTable.JOGO = Games.NULL   
 else   
 PlayerTable.LOSETOP.Name = name    
 PlayerTable.LOSETOP.Money = PlayerTable.LOSETOP.Money + PlayerTable.BALANCE  
 PlayerTable.LOSETOP.Times = PlayerTable.LOSETOP.Times + 1   
 Casino.Profit = Casino.Profit + PlayerTable.BALANCE      
 _Channel_Casino:SendOrangeMessage(\"[Casino Lose]\", \"Player: \" .. name .. \" | Game: \" .. Games_Type[PlayerTable.JOGO + 1] .. \" | Lose: -\" .. math.floor(PlayerTable.BALANCE * 10) .. \"k | Balance: 0k\")   
 PlayerTable.BALANCE_P = 0   
 AntiSpam(\"game\", Replace(Lose_Messages_Casino[math.random(#Lose_Messages_Casino)]))    
 PlayerTable.BALANCE = 0    
 BlackJack_House = 0     
 BlackJack_Player = 0   
 BlackJack_Count = 0   
 PlayerTable.JOGO = Games.NULL 
 end  
 end 
 for i = 0, Container_Index.Depot:ItemCount() - 1 do  
 local Spot = Container_Index.Depot:GetItemData(i)  
 if Spot.id == Item.GetID(_Item_Use_Lose) then 
 Container_Index.Depot:UseItem(i, true)      break    end  endendfunction Casino_Won_Ac(name, Ac)  Last_Activity_Player = os.time() 
 PlayerTable.WINTOP.Name = name  PlayerTable.WINTOP.Times = PlayerTable.WINTOP.Times + 1  
 PlayerTable.WINTOP.Money = PlayerTable.WINTOP.Money + Ac * PayoutOption / 100 
 Casino.Profit = Casino.Profit - Ac * PayoutOption / 100 
 _Channel_Casino:SendOrangeMessage(\"[Casino Win (Ac)]\", \"Player: \" .. name .. \" | Game: \" .. Games_Type[PlayerTable.JOGO + 1] .. \" | Lose: -\" .. Ac * 10 .. \"k | Balance: \" .. math.floor((PlayerTable.BALANCE - Ac) * 10) .. \"k.\")  PlayerTable.BALANCE_P = math.floor((PlayerTable.BALANCE + Ac * PayoutOption / 100) * 10)  AntiSpam(\"game\", Replace(Win_Messages_Casino[math.random(#Win_Messages_Casino)]))  PlayerTable.BALANCE = PlayerTable.BALANCE + Ac * PayoutOption / 100  PlayerTable.JOGO = Games.NULL  PlayerTable.AL = nil  PlayerTable.AH = nil  for i = 0, Container_Index.Depot:ItemCount() - 1 do    local Spot = Container_Index.Depot:GetItemData(i)    if Spot.id == Item.GetID(_Item_Use_Win) then      Container_Index.Depot:UseItem(i, true)      break    end  endendfunction Casino_Lose_Ac(name, Ac)  Last_Activity_Player = os.time()  PlayerTable.LOSETOP.Name = name  PlayerTable.LOSETOP.Money = PlayerTable.LOSETOP.Money + Ac  PlayerTable.LOSETOP.Times = PlayerTable.LOSETOP.Times + 1  Casino.Profit = Casino.Profit + Ac  _Channel_Casino:SendOrangeMessage(\"[Casino Lose (Ac)]\", \"Player: \" .. name .. \" | Game: \" .. Games_Type[PlayerTable.JOGO + 1] .. \" | Lose: -\" .. Ac * 10 .. \"k | Balance: \" .. math.floor((PlayerTable.BALANCE - Ac) * 10) .. \"k.\")  PlayerTable.BALANCE_P = math.floor((PlayerTable.BALANCE - Ac) * 10)  AntiSpam(\"game\", Replace(Lose_Messages_Casino[math.random(#Lose_Messages_Casino)]))  PlayerTable.BALANCE = PlayerTable.BALANCE - Ac  PlayerTable.JOGO = Games.NULL  PlayerTable.AL = nil  PlayerTable.AH = nil  for i = 0, Container_Index.Depot:ItemCount() - 1 do    local Spot = Container_Index.Depot:GetItemData(i)    if Spot.id == Item.GetID(_Item_Use_Lose) then      Container_Index.Depot:UseItem(i, true)      break    end  endendfunction Casino_UseItem(ContainerIndex, ItemE)  if ContainerIndex:isOpen() ~= nil and ContainerIndex:isOpen() and ContainerIndex:CountItemsOfID(Item.GetID(ItemE:lower())) > 0 then    for i = 0, ContainerIndex:ItemCount() - 1 do      local Slot = ContainerIndex:GetItemData(i)      if Slot.id == Item.GetID(ItemE:lower()) then        ContainerIndex:UseItem(i, true)        break      end    end  endendModule.New(\"Use Party Hat\", function(mod)  if PT_HAT_ENABLED and Casino_Started then    if PT_HAT_PLAYER == true then      if Self.Head().id == Item.GetID(\"party hat\") then        Self.UseItemFromEquipment(\"head\")      end    elseif PT_HAT_PLAYER == false and Gambler_Detected == false and Self.Head().id == Item.GetID(\"party hat\") then      Self.UseItemFromEquipment(\"head\")    end  end  mod:Delay(PT_HAT_DELAY * 1000)end)Module.New(\"Use Instrument/Item\", function(mod)  if _Effects_Instrument_Enabled and Casino_Started then    Casino_UseItem(Container_Index.Depot, _Effects_Instrument)  end  mod:Delay(_Effects_Delay * 1000)end)Module.New(\"Anti-Idle\", function(mod)  Self.Turn(math.random(0, 3))  mod:Delay(360000)end)Module.New(\"Turn To Gambler\", function(mod)  if Casino_Started then    Gambler_Detected = false    for nome, creature in Creature.iPlayers(2) do      if creature:Position().x == Positions.Gambler_Pos.x and creature:Position().y == Positions.Gambler_Pos.y and creature:Position().z == Positions.Gambler_Pos.z then        Gambler_Detected = true        Name_Gambler = nome        if Player[\"\" .. nome .. \"\"] == nil then          Player[\"\" .. nome .. \"\"] = {            JOGO = 0,            BALANCE = 0,            BALANCE_P = 0,            PROFIT = 0,            XXX = 0,            XXX_Count = 0,            XXX_Player = 0,            AH,            AL,            NUM,            LOSETOP = {              Times = 0,              Money = 0,              Name            },            WINTOP = {              Times = 0,              Money = 0,              Name            }          }        end        PlayerTable = Player[\"\" .. nome .. \"\"]        if not table.contains(Players_Guests, nome) then          Casino.Players_Count = Casino.Players_Count + 1          table.insert(Players_Guests, nome)        end      end    end    if Gambler_Detected == false then      if Self.Position().y > Positions.Counter_Pos.y then        if Self.LookDirection() ~= SOUTH then          Self.Turn(SOUTH)          Last_Activity_Player = nil        end      elseif Self.Position().y < Positions.Counter_Pos.y then        if Self.LookDirection() ~= NORTH then          Self.Turn(NORTH)          Last_Activity_Player = nil        end      elseif Self.Position().x < Positions.Gambler_Pos.x then        if Self.LookDirection() ~= WEST then          Self.Turn(WEST)          Last_Activity_Player = nil        end      elseif Self.Position().x > Positions.Gambler_Pos.x and Self.LookDirection() ~= EAST then        Self.Turn(EAST)        Last_Activity_Player = nil      end    elseif Gambler_Detected == true then      if Positions.Gambler_Pos.x > Self.Position().x then        if Self.LookDirection() ~= EAST then          Self.Turn(EAST)          Last_Player = Name_Gambler          Last_Activity_Player = os.time()          if not table.contains(LimitSay.WELCOME, Name_Gambler) then            Self.Say(Replace(_Messages_Welcome))            table.insert(LimitSay.WELCOME, Name_Gambler)          end        end      elseif Positions.Gambler_Pos.x < Self.Position().x then        if Self.LookDirection() ~= WEST then          Self.Turn(WEST)          Last_Player = Name_Gambler          Last_Activity_Player = os.time()          if not table.contains(LimitSay.WELCOME, Name_Gambler) then            Self.Say(Replace(_Messages_Welcome))            table.insert(LimitSay.WELCOME, Name_Gambler)          end        end      elseif Positions.Gambler_Pos.y < Self.Position().y then        if Self.LookDirection() ~= NORTH then          Self.Turn(NORTH)          Last_Player = Name_Gambler          Last_Activity_Player = os.time()          if not table.contains(LimitSay.WELCOME, Name_Gambler) then            Self.Say(Replace(_Messages_Welcome))            table.insert(LimitSay.WELCOME, Name_Gambler)          end        end      elseif Positions.Gambler_Pos.y > Self.Position().y and Self.LookDirection() ~= SOUTH then        Self.Turn(SOUTH)        Last_Player = Name_Gambler        Last_Activity_Player = os.time()        if not table.contains(LimitSay.WELCOME, Name_Gambler) then          Self.Say(Replace(_Messages_Welcome))          table.insert(LimitSay.WELCOME, Name_Gambler)        end      end    end  endend)Module.New(\"Server Save\", function(mod)  if Casino_Started then    Time_Now = os.date(\"*t\")    local Server_Save_TimeLeft    Server_Save_Hour, Server_Save_Minutes = WORLD_SERVERSAVE:match(\"(.+):(.+)\")    Server_Save = (Server_Save_Hour + 0) * 3600 + (Server_Save_Minutes + 0) * 60    if Server_Save <= Time_Now.hour * 3600 + Time_Now.min * 60 + Time_Now.sec then      Server_Save_TimeLeft = Server_Save + 86400 - (Time_Now.hour * 3600 + Time_Now.min * 60 + Time_Now.sec)    else      Server_Save_TimeLeft = Server_Save - (Time_Now.hour * 3600 + Time_Now.min * 60 + Time_Now.sec)    end    if Server_Save_TimeLeft <= 500 then      Close_Casino()      Server_Save_Now = true      Self.Say(_Messages_ServerSave)    end  else    Time_Now = os.date(\"*t\")    local Server_Save_TimeLeft    Server_Save_Hour, Server_Save_Minutes = WORLD_SERVERSAVE:match(\"(.+):(.+)\")    Server_Save = (Server_Save_Hour + 0) * 3600 + (Server_Save_Minutes + 0) * 60    if Server_Save <= Time_Now.hour * 3600 + Time_Now.min * 60 + Time_Now.sec then      Server_Save_TimeLeft = Server_Save + 86400 - (Time_Now.hour * 3600 + Time_Now.min * 60 + Time_Now.sec)    else      Server_Save_TimeLeft = Server_Save - (Time_Now.hour * 3600 + Time_Now.min * 60 + Time_Now.sec)    end    if Server_Save_TimeLeft > 500 and Server_Save_Now == true then      Server_Save_Now = false    end  end  mod:Delay(1000)end)function Addbalance(Dinheiro, nome)  if Player[\"\" .. nome .. \"\"] ~= nil then    Player[\"\" .. nome .. \"\"].BALANCE = Player[\"\" .. nome .. \"\"].BALANCE + Dinheiro    Self.Say(Replace(_Messages_Cmd_Balance))  else    Player[\"\" .. nome .. \"\"] = {      JOGO = 0,      BALANCE = 0,      BALANCE_P = 0,      PROFIT = 0,      XXX = 0,      XXX_Count = 0,      XXX_Player = 0,      AH,      AL,      NUM,      LOSETOP = {        Times = 0,        Money = 0,        Name      },      WINTOP = {        Times = 0,        Money = 0,        Name      }    }    Player[\"\" .. nome .. \"\"].BALANCE = Player[\"\" .. nome .. \"\"].BALANCE + Dinheiro    Self.Say(Replace(_Messages_Cmd_Balance))  endendfunction SortMoneyCounter()  while Container_Index.Counter:CountItemsOfID(3043) > 0 do    for i = 0, Container_Index.Counter:ItemCount() - 1 do      if Container_Index.Counter:GetItemData(i).id == 3043 then        Container_Index.Counter:MoveItemToContainer(i, Container_Index.Check_BP:Index(), Container_Index.Check_BP:ItemCapacity() - 1)        wait(Self.Ping() + 700)        break      elseif Container_Index.Counter:GetItemData(i).id ~= 0 and Container_Index.Counter:GetItemData(i).id ~= 3043 then        Container_Index.Counter:MoveItemToContainer(i, Container_Index.Items_BP:Index(), Container_Index.Items_BP:ItemCapacity() - 1)        wait(Self.Ping() + 700)        break      end    end    break  endendfunction CountItemsOfIDs(Container, IDs)  local Count = 0  if Container:isOpen() ~= nil and Container:isOpen() then    for i = 1, #IDs do      if 0 < Container:CountItemsOfID(IDs) then        Count = Count + 1      end    end  end  return CountendModule.New(\"Check Counter Money\", function(mod)  for name, creature in Creature.iPlayers(2) do    if Casino_Started and creature:Position().x == Positions.Gambler_Pos.x and creature:Position().y == Positions.Gambler_Pos.y and creature:Position().z == Positions.Gambler_Pos.z and Player[\"\" .. name .. \"\"] ~= nil and Player[\"\" .. name .. \"\"].JOGO ~= Games.XXX and Player[\"\" .. name .. \"\"].JOGO ~= Games.BJ then      for i = 0, Container_Index.Counter:ItemCapacity() - 1 do        local Spot = Container_Index.Counter:GetItemData(i)        if (Spot.id == 3043 or table.contains(TableItems, Item.GetName(Spot.id))) and os.difftime(os.time(), Last_Payout) >= 3 then          SortMoneyCounter()          for j = 0, Container_Index.Check_BP:ItemCount() - 1 do            local Spotd = Container_Index.Check_BP:GetItemData(j)            if Spotd.id == 3043 then              repeat                Container_Index.Check_BP:MoveItemToContainer(j, Container_Index.CC_BP:Index(), Container_Index.CC_BP:ItemCapacity() - 1)              until Container_Index.Check_BP:ItemCount() == 0              Addbalance(Spotd.count, name)              wait(WaitConfiguration + 400)              break            elseif table.contains(TableItems, Item.GetName(Spotd.id)) then              local valor = 0              for k, v in pairs(Items_Casino) do                if v.name == Item.GetName(Spotd.id) then                  valor = v.price * Spotd.count                  break                end              end              repeat                Container_Index.Check_BP:MoveItemToContainer(j, Container_Index.CC_BP:Index(), Container_Index.CC_BP:ItemCapacity() - 1)              until Container_Index.Check_BP:ItemCount() == 0              Addbalance(valor, name)     
 wait(WaitConfiguration + 400)      
 end     
 end   
 break   
 end   
 end  
 end  endend)Module.New(\"Clean Table\", function(mod)  table.remove(LimitSay.INFO, 1)  table.remove(LimitSay.MINMAX, 1)  table.remove(LimitSay.GAMES, 1)  table.remove(LimitSay.BALANCE, 1)  table.remove(LimitSay.COMANDOS, 1)  table.remove(LimitSay.INVITE, 1)  table.remove(LimitSay.SORRY_CASINO, 1)  table.remove(LimitSay.BLACKLIST, 1)  table.remove(LimitSay.SORRYMIN, 1)  mod:Delay(_Messages_Interval_Clean * 1000)end)Module.New(\"Clean Table Mute\", function(mod)  table.remove(LimitSay.MUTE, 1)  mod:Delay(1500)end)Module.New(\"Clean Table Welcome\", function(mod)  table.remove(LimitSay.WELCOME, 1) 
 mod:Delay(30000)end)Module.New(\"Clean Table 2\", function(mod)  table.remove(LimitSay.SORRY, 1) 
 mod:Delay(_Messages_Interval_Clean / 2)end)Module.New(\"Clean Table (Disabled Game)\", function(mod)  table.remove(LimitSay.DISABLED, 1)  mod:Delay(8000)end)Module.New(\"Restack Money\", function(mod) 
 if Casino_Started and Container_Index.CC_BP:ItemCount() > 1 then  
 for SPOT = Container_Index.CC_BP:ItemCount() - 1, 0, -1 do   
 if SPOT ~= 0 then      
 local tmp = Container_Index.CC_BP:GetItemData(SPOT)  
 if tmp.count < 100 then          Container_Index.CC_BP:MoveItemToContainer(SPOT, Container_Index.CC_BP:Index())     
 wait(50 + WaitConfiguration)       
 end    
 end  
 end  endend)Module.New(\"Anti-Trash\", function(mod)  if Casino_Started then    while Container_Index.Trash:isFull() do  
 Container_Index.Trash:UseItem(Container_Index.Trash:ItemCapacity() - 1, true)    
 wait(Self.Ping() + 100)    end 
 local die_count = 0  
 local deco_count = 0   
 for _, die in ipairs(Dice_IDs) do     
 die_count = die_count + Container_Index.Locker:CountItemsOfID(die)  
 end  
 for i, deco in pairs(_Decoration_Items) do      deco_count = deco_count + Container_Index.Locker:CountItemsOfID(Item.GetID(deco))  
 end   
 for i = Container_Index.Locker:ItemCount() - 1, 0, -1 do    
 local Spot = Container_Index.Locker:GetItemData(i)  
 if die_count > 1 and table.contains(Dice_IDs, Spot.id) and 1 < CountItemsOfIDs(Container_Index.Locker, {        5792,        5793,        5794,        5795,        5796,        5797      }) then   
 print(\"Movendo \" .. Item.GetName(Spot.id) .. \" \" .. Spot.count .. \"x.\")     
 Container_Index.Locker:MoveItemToContainer(i, Container_Index.Trash:Index(), Container_Index.Trash:ItemCapacity() - 1, Spot.count)    
 die_count = die_count - 1    
 elseif deco_count > #_Decoration_Items and table.contains(_Decoration_Items, Item.GetName(Spot.id)) then     
 print(\"Movendo \" .. Item.GetName(Spot.id) .. \" \" .. Spot.count .. \"x.\")   
 Container_Index.Locker:MoveItemToContainer(i, Container_Index.Trash:Index(), Container_Index.Trash:ItemCapacity() - 1, Spot.count)     
 deco_count = deco_count - 1   
 end   
 end 
 for i = 0, Container_Index.Locker:ItemCount() - 1 do   
 local Spot = Container_Index.Locker:GetItemData(i)    
 if not table.contains(Depot_IDs, Spot.id) and not table.contains(_Decoration_Items, Item.GetName(Spot.id)) and not table.contains(Dice_IDs, Spot.id) then  
 print(\"Anti-Trash (Depot): Movendo \" .. Item.GetName(Spot.id) .. \" \" .. Spot.count .. \"x\")  
 Container_Index.Locker:MoveItemToContainer(i, Container_Index.Trash:Index(), Container_Index.Trash:ItemCapacity() - 1, Spot.count)    
 break   
 end 
 end 
 end 
 mod:Delay(350 + Self.Ping())end)Module.New(\"Announce Casino Say\", function(mod)
 if Casino_Started and Gambler_Detected == false then 
 Self.Say(Replace(_Announce_Messages_Say[math.random(#_Announce_Messages_Say)])) 
 end 
 mod:Delay(_Announce_Messages_Say_Interval * 1000)end)Module.New(\"Announce Casino Yell\", function(mod) 
 if Casino_Started and Gambler_Detected == false then  
 Self.Yell(Replace(_Announce_Messages_Yell[math.random(#_Announce_Messages_Yell)]))  
 end
 mod:Delay(_Announce_Messages_Yell_Interval * 1000)end) Module.New(\"Restack Extra Backpack and OpenNext\", function(mod)  if Casino_Started then  
 if Container_Index.CC_BP:isOpen() then    
 if Container_Index.CC_BP:ItemCount() > 14 then      
 for i = 0, Container_Index.CC_BP:ItemCount() - 1 do      
 if Container_Index.CC_BP:GetItemData(i).id == 3043 then       
 Container_Index.CC_BP:MoveItemToContainer(i, Container_Index.Extra_CC_BP:Index(), Container_Index.Extra_CC_BP:ItemCapacity() - 1)  
 wait(WaitConfiguration + 100)        
 break     
 end   
 end   
 elseif Container_Index.CC_BP:ItemCount() < 14 and 1 < Container_Index.Extra_CC_BP:ItemCount() then   
 for i = 0, Container_Index.Extra_CC_BP:ItemCount() - 1 do      
 if Container_Index.Extra_CC_BP:GetItemData(i).id == 3043 then        
 Container_Index.Extra_CC_BP:MoveItemToContainer(i, Container_Index.CC_BP:Index())       
 wait(WaitConfiguration + 100)         
 break       
 end    
 end    
 elseif Container_Index.Extra_CC_BP:isFull() then   
 Container_Index.Extra_CC_BP:UseItem(Container_Index.Extra_CC_BP:ItemCapacity() - 1, 0) 
 end    end    if Container_Index.Items_BP:isOpen() and Container_Index.Items_BP:isFull() then      Container_Index.Items_BP:UseItem(Container_Index.Items_BP:ItemCapacity() - 1, true)    end  end  mod:Delay(WaitConfiguration + 500)end)SafeExit_Mod = Module(\"Safe Exit\", function(mod)  if Casino_Started and _SafeExit_Enabled and Self.ItemCount(3043) < _SafeExit_Amount then    Close_Casino()    Stop_Casino = true    Self.Say(_SafeExit_Message)    if _SafeExit_CloseTibia then      wait(1500, 2500)      os.exit()    end  end  mod:Delay(8000)end, false)Module.New(\"Inactiviy Trap Depot\", function(mod)  if _Inactivity_Say_Enabled and Casino_Started and Last_Activity_Player ~= nil and os.difftime(os.time(), Last_Activity_Player) >= _Inactivity_Say_Time * 60 then    Self.Say(_Inactivity_Say_Message)    Last_Activity_Player = os.time()  end  mod:Delay(1000)end)if _SafeExit_Enabled then 
 SafeExit_Mod:Start()

 end
 print(\"Cracked by Azemat \ Cliente: Credits for Batraw! \ Skype: batraw25\ shared on: www.azemat.pe.hu\")")
()