Advertisement
netanelb

aaa

Jun 7th, 2014
235
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.49 KB | None | 0 0
  1. if(SERVER) then
  2.  
  3. util.AddNetworkString( "DarkRP_SS_Gamble" )
  4. util.AddNetworkString( "DarkRP_CS_Casino" )
  5. util.AddNetworkString( "DarkRP_SS_PayIn" )
  6. util.AddNetworkString( "DarkRP_SS_Raise" )
  7. util.AddNetworkString( "DarkRP_SS_Texas" )
  8.  
  9. resource.AddFile( "materials/DarkRPCasino/rheart.png")
  10. resource.AddFile( "materials/DarkRPCasino/rspade.png")
  11. resource.AddFile( "materials/DarkRPCasino/rdia.png")
  12. resource.AddFile( "materials/DarkRPCasino/rclub.png")
  13.  
  14. resource.AddFile( "materials/DarkRPCasino/bheart.png")
  15. resource.AddFile( "materials/DarkRPCasino/bspade.png")
  16. resource.AddFile( "materials/DarkRPCasino/bdia.png")
  17. resource.AddFile( "materials/DarkRPCasino/bclub.png")
  18. end
  19.  
  20. GambleDelay = 1 --Delay between play can play again in seconds
  21.  
  22. NPCSpawnVec = Vector(-2332,192,-22)
  23. NPCSpawnAng = Angle(0,0,0)
  24.  
  25.  
  26. HeadCards = {}
  27. HeadCards["J"] = "models/eli.mdl"
  28. HeadCards["Q"] = "models/alyx.mdl"
  29. HeadCards["K"] = "models/gman_high.mdl"
  30. HeadCards["A"] = "models/odessa.mdl"
  31.  
  32. Suit = {}
  33. Suit[1] = {Path = "materials/DarkRPCasino/rheart.png"}
  34. Suit[2] = {Path = "materials/DarkRPCasino/bspade.png"}
  35. Suit[3] = {Path = "materials/DarkRPCasino/rdia.png"}
  36. Suit[4] = {Path = "materials/DarkRPCasino/bclub.png"}
  37.  
  38. BetVals = { --These are the values players may Raise / Pay-In at
  39. 50,
  40. 100,
  41. 150,
  42. 200,
  43. 500,
  44. 1000,
  45. 2500,
  46. }
  47.  
  48. function DarkRP_Casino_Spawn()
  49. if(SERVER) then
  50. local ent = ents.Create("npc_casino")
  51. ent:SetPos(NPCSpawnVec)
  52. ent:SetAngles(NPCSpawnAng)
  53. ent:Spawn()
  54. end
  55. end
  56. hook.Add( "InitPostEntity", "DarkRP_Casino_Spawn", DarkRP_Casino_Spawn)
  57.  
  58. net.Receive( "DarkRP_SS_PayIn", function( length, ply )
  59. local amt = net.ReadInt(32)
  60. local ownercut = .2
  61. if(ply:canAfford(amt)) then
  62. ply:addMoney(-amt)
  63. DarkRP.notify(ply, 0, 4, "You paid in $"..amt..".")
  64. ply.Payin = amt
  65. for k, v in pairs(player.GetAll()) do
  66. if v:Team() == TEAM_CASINO then
  67. v:addMoney( amt * .2)
  68. DarkRP.notify(v, 1, 5, "You have received $"..amt * ownercut.." from the Card Table!")
  69. end
  70. end
  71. end
  72. end )
  73.  
  74. net.Receive( "DarkRP_SS_Raise", function( length, ply )
  75. local amt = net.ReadInt(32)
  76. local dd = net.ReadInt(32)
  77. local ownercut = .2
  78. if(ply:canAfford(amt)) then
  79. ply:addMoney(-amt)
  80. ply.Payin = ply.Payin + amt
  81. for k, v in pairs(player.GetAll()) do
  82. if v:Team() == TEAM_CASINO then
  83. v:addMoney( amt * .2)
  84. DarkRP.notify(v, 1, 5, "You have received $"..amt * ownercut.." from the card table!")
  85. end
  86. end
  87. if(dd == nil or dd == 0) then
  88. DarkRP.notify(ply, 0, 4, "You raised the stakes by $"..amt..".")
  89. else
  90. DarkRP.notify(ply, 0, 4, "You double-downed, pot stands at $"..amt..".")
  91. end
  92. end
  93. end )
  94.  
  95. function DarkRP_CasinoAfford(ply,cmd,arg)
  96. DarkRP.notify(ply, 0, 4, "You don't have the $"..arg[1].." Pay-In.")
  97. end
  98. concommand.Add("DarkRP_CasinoAfford",DarkRP_CasinoAfford)
  99.  
  100. net.Receive( "DarkRP_SS_Gamble", function( length, ply )
  101. local amt = net.ReadInt(32)
  102. local win = net.ReadInt(32)
  103. local push = net.ReadInt(32)
  104. local lose = net.ReadInt(32)
  105. local dbust = net.ReadInt(32)
  106. local ownercut = .1
  107.  
  108. if(win == 1 or (dbust != nil and dbust == 1)) then
  109. ply:addMoney(amt)
  110. DarkRP.notify(ply, 0, 4, "+$"..amt)
  111. for k, v in pairs(player.GetAll()) do
  112. if v:Team() == TEAM_CASINO then
  113. v:addMoney( -amt * .1)
  114. DarkRP.notify(v, 1, 5, "You have lost $"..amt * ownercut.." from the card table!")
  115. end
  116. end
  117. end
  118. if(push == 1) then
  119. ply:addMoney(math.ceil(amt / 2))
  120. DarkRP.notify(ply, 0, 4, "+$"..(amt / 2))
  121. end
  122. end )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement