Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- if(SERVER) then
- util.AddNetworkString( "DarkRP_SS_Gamble" )
- util.AddNetworkString( "DarkRP_CS_Casino" )
- util.AddNetworkString( "DarkRP_SS_PayIn" )
- util.AddNetworkString( "DarkRP_SS_Raise" )
- util.AddNetworkString( "DarkRP_SS_Texas" )
- resource.AddFile( "materials/DarkRPCasino/rheart.png")
- resource.AddFile( "materials/DarkRPCasino/rspade.png")
- resource.AddFile( "materials/DarkRPCasino/rdia.png")
- resource.AddFile( "materials/DarkRPCasino/rclub.png")
- resource.AddFile( "materials/DarkRPCasino/bheart.png")
- resource.AddFile( "materials/DarkRPCasino/bspade.png")
- resource.AddFile( "materials/DarkRPCasino/bdia.png")
- resource.AddFile( "materials/DarkRPCasino/bclub.png")
- end
- GambleDelay = 1 --Delay between play can play again in seconds
- NPCSpawnVec = Vector(-2332,192,-22)
- NPCSpawnAng = Angle(0,0,0)
- HeadCards = {}
- HeadCards["J"] = "models/eli.mdl"
- HeadCards["Q"] = "models/alyx.mdl"
- HeadCards["K"] = "models/gman_high.mdl"
- HeadCards["A"] = "models/odessa.mdl"
- Suit = {}
- Suit[1] = {Path = "materials/DarkRPCasino/rheart.png"}
- Suit[2] = {Path = "materials/DarkRPCasino/bspade.png"}
- Suit[3] = {Path = "materials/DarkRPCasino/rdia.png"}
- Suit[4] = {Path = "materials/DarkRPCasino/bclub.png"}
- BetVals = { --These are the values players may Raise / Pay-In at
- 50,
- 100,
- 150,
- 200,
- 500,
- 1000,
- 2500,
- }
- function DarkRP_Casino_Spawn()
- if(SERVER) then
- local ent = ents.Create("npc_casino")
- ent:SetPos(NPCSpawnVec)
- ent:SetAngles(NPCSpawnAng)
- ent:Spawn()
- end
- end
- hook.Add( "InitPostEntity", "DarkRP_Casino_Spawn", DarkRP_Casino_Spawn)
- net.Receive( "DarkRP_SS_PayIn", function( length, ply )
- local amt = net.ReadInt(32)
- local ownercut = .2
- if(ply:canAfford(amt)) then
- ply:addMoney(-amt)
- DarkRP.notify(ply, 0, 4, "You paid in $"..amt..".")
- ply.Payin = amt
- for k, v in pairs(player.GetAll()) do
- if v:Team() == TEAM_CASINO then
- v:addMoney( amt * .2)
- DarkRP.notify(v, 1, 5, "You have received $"..amt * ownercut.." from the Card Table!")
- end
- end
- end
- end )
- net.Receive( "DarkRP_SS_Raise", function( length, ply )
- local amt = net.ReadInt(32)
- local dd = net.ReadInt(32)
- local ownercut = .2
- if(ply:canAfford(amt)) then
- ply:addMoney(-amt)
- ply.Payin = ply.Payin + amt
- for k, v in pairs(player.GetAll()) do
- if v:Team() == TEAM_CASINO then
- v:addMoney( amt * .2)
- DarkRP.notify(v, 1, 5, "You have received $"..amt * ownercut.." from the card table!")
- end
- end
- if(dd == nil or dd == 0) then
- DarkRP.notify(ply, 0, 4, "You raised the stakes by $"..amt..".")
- else
- DarkRP.notify(ply, 0, 4, "You double-downed, pot stands at $"..amt..".")
- end
- end
- end )
- function DarkRP_CasinoAfford(ply,cmd,arg)
- DarkRP.notify(ply, 0, 4, "You don't have the $"..arg[1].." Pay-In.")
- end
- concommand.Add("DarkRP_CasinoAfford",DarkRP_CasinoAfford)
- net.Receive( "DarkRP_SS_Gamble", function( length, ply )
- local amt = net.ReadInt(32)
- local win = net.ReadInt(32)
- local push = net.ReadInt(32)
- local lose = net.ReadInt(32)
- local dbust = net.ReadInt(32)
- local ownercut = .1
- if(win == 1 or (dbust != nil and dbust == 1)) then
- ply:addMoney(amt)
- DarkRP.notify(ply, 0, 4, "+$"..amt)
- for k, v in pairs(player.GetAll()) do
- if v:Team() == TEAM_CASINO then
- v:addMoney( -amt * .1)
- DarkRP.notify(v, 1, 5, "You have lost $"..amt * ownercut.." from the card table!")
- end
- end
- end
- if(push == 1) then
- ply:addMoney(math.ceil(amt / 2))
- DarkRP.notify(ply, 0, 4, "+$"..(amt / 2))
- end
- end )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement