Advertisement
Guest User

Untitled

a guest
Jan 19th, 2011
53
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.31 KB | None | 0 0
  1.  
  2. -- THIS GOES IN cl_init.lua
  3. function gangrp( self, row, pl )
  4.  
  5. local logrecs = string.Explode("\n",file.Read("gangrp/logs/log.txt"))
  6. local chatrecs = string.Explode("\n",file.Read("gangrp/logs/log1.txt"))
  7.  
  8. local GangRPMain = vgui.Create( "DFrame" )
  9. GangRPMain:SetSize( 400, 476 )
  10. GangRPMain.lblTitle:SetTextColor(Color(255, 255, 255, 255))
  11. GangRPMain:SetTitle( "Logs" )
  12. GangRPMain:ShowCloseButton( true )
  13. GangRPMain:SetVisible( true )
  14. GangRPMain:SetDraggable( false )
  15. GangRPMain:MakePopup( )
  16. GangRPMain:Center( )
  17.  
  18. local DPropertySheet1 = vgui.Create( "DPropertySheet", GangRPMain )
  19. DPropertySheet1:SetPos( 5, 30 )
  20. DPropertySheet1:SetSize( 390, 440 )
  21.  
  22. local Kill = vgui.Create("DPanelList")
  23. Kill:SetSize(380, 230)
  24. Kill:SetPos(5, 10)
  25. Kill:SetSpacing(5)
  26. Kill:EnableHorizontal(false)
  27. Kill:EnableVerticalScrollbar(true)
  28.  
  29. local Chat = vgui.Create("DPanelList")
  30. Chat:SetSize(380, 210)
  31. Chat:SetPos(5, 10)
  32. Chat:SetSpacing(5)
  33. Chat:EnableHorizontal(false)
  34. Chat:EnableVerticalScrollbar(true)
  35.  
  36. local gangrpDListView6 = vgui.Create("DListView")
  37. gangrpDListView6:SetParent(Kill)
  38. gangrpDListView6:SetPos(3, 30)
  39. gangrpDListView6:SetSize(373, 375)
  40. gangrpDListView6:SetMultiSelect(false)
  41. gangrpDListView6:AddColumn("Killer | Victim | Weapon | Date | Time")
  42. for _, log in ipairs(logrecs) do
  43. gangrpDListView6:AddLine( log ) end
  44.  
  45. local gangrpDListView7 = vgui.Create("DListView")
  46. gangrpDListView7:SetParent(Chat)
  47. gangrpDListView7:SetPos(3, 30)
  48. gangrpDListView7:SetSize(373, 375)
  49. gangrpDListView7:SetMultiSelect(false)
  50. gangrpDListView7:AddColumn("Date | Name | Text")
  51. for _, chat in ipairs(chatrecs) do
  52. gangrpDListView7:AddLine( chat ) end
  53.  
  54. local ClearChatButton = vgui.Create("DButton", Kill)
  55. ClearChatButton:SetPos( 140, 5 )
  56. ClearChatButton:SetSize( 90, 20 )
  57. ClearChatButton:SetText( "Clear Kill Log" )
  58. ClearChatButton.DoClick = function()
  59. RunConsoleCommand("ClearKillLog")
  60. end
  61.  
  62. local ClearKillButton = vgui.Create("DButton", Chat)
  63. ClearKillButton:SetPos( 140, 5 )
  64. ClearKillButton:SetSize( 90, 20 )
  65. ClearKillButton:SetText( "Clear Chat Log" )
  66. ClearKillButton.DoClick = function()
  67. RunConsoleCommand("ClearChatLog")
  68. end
  69.  
  70. DPropertySheet1:AddSheet( "Kill Log", Kill, "gui/silkicons/page_white_magnify", false, false, nil )
  71. DPropertySheet1:AddSheet( "Chat Log", Chat, "gui/silkicons/page_white_magnify", false, false, nil )
  72. --end
  73. end
  74. concommand.Add("MainMenu", gangrp)
  75.  
  76. -- THIS GOES IN init.lua
  77.  
  78.  
  79. function playerDies( victim, inflictor, attacker )
  80. if attacker == victim then
  81. filex.Append("gangrp/logs/log.txt", attacker:Name() .. " suicided" .." | "..tostring(os.date("%d/%m/%y")).." | "..tostring(os.date("%H:%M:%S")).. "\n")
  82. else
  83. filex.Append("gangrp/logs/log.txt", attacker:Name().." killed "..victim:Name().. " | "..tostring(os.date("%d/%m/%y")).." | "..tostring(os.date("%H:%M:%S")).. "\n")
  84. end
  85. end
  86. hook.Add( "PlayerDeath", "playerDeathTest", playerDies )
  87.  
  88. function ChatLog( ply, text, team )
  89. filex.Append("gangrp/logs/log1.txt", os.date("%S:%M:%H").. " | " .. ply:Nick() .. " said: "..text.. "\n")
  90. end
  91. hook.Add( "PlayerSay", "PlayerSayChat", ChatLog)
  92.  
  93. function ClearChatLog()
  94. file.Delete("gangrp/logs/log1.txt")
  95. end
  96. concommand.Add( "ClearChatLog", ClearChatLog )
  97.  
  98. function ClearKillLog()
  99. file.Delete("gangrp/logs/log.txt")
  100. end
  101. concommand.Add( "ClearKillLog", ClearKillLog )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement