Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- THIS GOES IN cl_init.lua
- function gangrp( self, row, pl )
- local logrecs = string.Explode("\n",file.Read("gangrp/logs/log.txt"))
- local chatrecs = string.Explode("\n",file.Read("gangrp/logs/log1.txt"))
- local GangRPMain = vgui.Create( "DFrame" )
- GangRPMain:SetSize( 400, 476 )
- GangRPMain.lblTitle:SetTextColor(Color(255, 255, 255, 255))
- GangRPMain:SetTitle( "Logs" )
- GangRPMain:ShowCloseButton( true )
- GangRPMain:SetVisible( true )
- GangRPMain:SetDraggable( false )
- GangRPMain:MakePopup( )
- GangRPMain:Center( )
- local DPropertySheet1 = vgui.Create( "DPropertySheet", GangRPMain )
- DPropertySheet1:SetPos( 5, 30 )
- DPropertySheet1:SetSize( 390, 440 )
- local Kill = vgui.Create("DPanelList")
- Kill:SetSize(380, 230)
- Kill:SetPos(5, 10)
- Kill:SetSpacing(5)
- Kill:EnableHorizontal(false)
- Kill:EnableVerticalScrollbar(true)
- local Chat = vgui.Create("DPanelList")
- Chat:SetSize(380, 210)
- Chat:SetPos(5, 10)
- Chat:SetSpacing(5)
- Chat:EnableHorizontal(false)
- Chat:EnableVerticalScrollbar(true)
- local gangrpDListView6 = vgui.Create("DListView")
- gangrpDListView6:SetParent(Kill)
- gangrpDListView6:SetPos(3, 30)
- gangrpDListView6:SetSize(373, 375)
- gangrpDListView6:SetMultiSelect(false)
- gangrpDListView6:AddColumn("Killer | Victim | Weapon | Date | Time")
- for _, log in ipairs(logrecs) do
- gangrpDListView6:AddLine( log ) end
- local gangrpDListView7 = vgui.Create("DListView")
- gangrpDListView7:SetParent(Chat)
- gangrpDListView7:SetPos(3, 30)
- gangrpDListView7:SetSize(373, 375)
- gangrpDListView7:SetMultiSelect(false)
- gangrpDListView7:AddColumn("Date | Name | Text")
- for _, chat in ipairs(chatrecs) do
- gangrpDListView7:AddLine( chat ) end
- local ClearChatButton = vgui.Create("DButton", Kill)
- ClearChatButton:SetPos( 140, 5 )
- ClearChatButton:SetSize( 90, 20 )
- ClearChatButton:SetText( "Clear Kill Log" )
- ClearChatButton.DoClick = function()
- RunConsoleCommand("ClearKillLog")
- end
- local ClearKillButton = vgui.Create("DButton", Chat)
- ClearKillButton:SetPos( 140, 5 )
- ClearKillButton:SetSize( 90, 20 )
- ClearKillButton:SetText( "Clear Chat Log" )
- ClearKillButton.DoClick = function()
- RunConsoleCommand("ClearChatLog")
- end
- DPropertySheet1:AddSheet( "Kill Log", Kill, "gui/silkicons/page_white_magnify", false, false, nil )
- DPropertySheet1:AddSheet( "Chat Log", Chat, "gui/silkicons/page_white_magnify", false, false, nil )
- --end
- end
- concommand.Add("MainMenu", gangrp)
- -- THIS GOES IN init.lua
- function playerDies( victim, inflictor, attacker )
- if attacker == victim then
- filex.Append("gangrp/logs/log.txt", attacker:Name() .. " suicided" .." | "..tostring(os.date("%d/%m/%y")).." | "..tostring(os.date("%H:%M:%S")).. "\n")
- else
- filex.Append("gangrp/logs/log.txt", attacker:Name().." killed "..victim:Name().. " | "..tostring(os.date("%d/%m/%y")).." | "..tostring(os.date("%H:%M:%S")).. "\n")
- end
- end
- hook.Add( "PlayerDeath", "playerDeathTest", playerDies )
- function ChatLog( ply, text, team )
- filex.Append("gangrp/logs/log1.txt", os.date("%S:%M:%H").. " | " .. ply:Nick() .. " said: "..text.. "\n")
- end
- hook.Add( "PlayerSay", "PlayerSayChat", ChatLog)
- function ClearChatLog()
- file.Delete("gangrp/logs/log1.txt")
- end
- concommand.Add( "ClearChatLog", ClearChatLog )
- function ClearKillLog()
- file.Delete("gangrp/logs/log.txt")
- end
- concommand.Add( "ClearKillLog", ClearKillLog )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement