custom chat lua preview and help section

-- this takes all 'say'  inputs and sends them to client
-- pl stands for the target player(s), ply is the speaker,
-- cmd is the type of chat cmd, msg is the message itself

function CAKE.SendChat( pl, ply, cmd, msg )
   
      umsg.Start( "chatupdate", pl );
         umsg.String(pl);
         umsg.String(ply);
         umsg.String(cmd);
         umsg.String(msg);
      umsg.End( );
   
end

-------------------------------
-- Olden's chatframe
-- Author: Kain
--
-- cl_chatframe.lua
-- This shit is the chatframe, yo.
-------------------------------

--Make note, this file is presently shared by the server and client. Will make it more independant and seperate the server/client parts later on.

-- this is our test font. Note the font size is scaled to screen.
surface.CreateFont ("Arial", ScreenScale(20), 400, true, false, "Standard")

-- THE ALMIGHTY CHATLOG... IS CLIENTSIDE. Also a table.
-- Yes, all chat lines eventually end up in a table named LOG,
-- and each player gets one unique to the messages he/she
-- will send and recieve.

pl.LOG = {}


-- Defining some colors to divide up message types when displaying them.
-- These aren't all the types, just a few I've done so far.

say.color = 80, 165, 255, 100
me.color = 0, 190, 255, 100
yell.color = 240, 80, 45, 100
w.color = 85, 180, 90, 100


-- This function grabs the usermessage and formats it into our clientside chatlog.

function CAKE.ChatUpdate(entry)
   
   local pl = entry:ReadString();
   local ply = entry:ReadString();
   local cmd = entry:ReadString();
   local msg = entry:ReadString();
   
   cmd = string.sub(cmd, "/", "" )
   
   local message = tostring(ply .. "^" .. cmd .. "^" .. text)
   table.insert( pl.LOG, message )
   ChatRefresh();
   
end
usermessage.Hook("chatupdate", ChatUpdate);

-- This function feels a little messy, but what it does is it
-- formats our message table, line by line, to divide each
-- line into 4 readable strings: line number, speaker, the
-- chat command used, and the message itself.

function CAKE.ChatFormat( line, message )

   local frmtmsg = string.Explode( ^ , message )
   
   line.ply = frmtmsg[1]
   line.cmd = frmtmsg[2]
   line.msg = frmtmsg[3]
   
   return line, line.ply, line.cmd, line.msg
   
end


-- And this is where the magic happens. Presently in alpha phase,
-- the command is neither finished nor tested, but it should work
-- fine once all the code is put together. This reads the cmd type of
-- each line, picks out its color and formats the message accordingly.

function ChatRefresh();

   for line , message in pairs( pl.LOG ) do
   
      CAKE.ChatFormat( line , message)
      
      if( line.cmd == say) then
      
      draw.DrawText( line.ply:Nick() .. ": " .. line.msg , "Standard", ScrW()/2, ScrH() - 300 - line*25, cmd.color, 0)
      
      elseif( line.cmd == yell) then
      
      draw.DrawText( line.ply:Nick() .. ": " .. line.msg , "Standard", ScrW()/2, ScrH() - 300 - line*25, cmd.color, 0)
      
      elseif( line.cmd == whisper) then
      
      draw.DrawText( line.ply:Nick() .. ": " .. line.msg , "Standard", ScrW()/2, ScrH() - 300 - line*25, cmd.color, 0)
      
      elseif( line.cmd == event) then
      
      elseif( line.cmd == report) then
      
      elseif( line.cmd == ooc) then
      
      elseif( line.cmd == broadcast) then
      
      elseif( line.cmd == me) then
      
      draw.DrawText( line.ply:Nick() .. ": " .. line.msg , "Standard", ScrW()/2, ScrH() - 300 - line*25, cmd.color, 0)
      
      elseif( line.cmd == pm) then      

      elseif( line.cmd == emote) then
      
      end
      

   draw.DrawText( text , "Standard", screenpos.x, screenpos.y, line.cmd.color, 0)

   end
   
end

-- This little array will contain the info of our moighty chatframe.
chatframe = {}

-- WITH THIS, WE SET OUR CHATBAUX IN MOSHUN
-- This means, when you press enter, the real chat box
-- opens up, but is hidden, but can still be 'used.' Handy,
-- but this is only temporary until I get an independent
-- system going (just need to find the entry for the key
-- input that causes chat (like +forward for walking).

local function StartChat(TeamSay)
   OpenChat();
   return true
end
hook.Add("StartChat", "HideMyChatBox", StartChat)

-- WITH THIS, WE MAKE IT SO WE CAN SEE WTF WE'RE TYPING.
-- It has the text in the real chatbox show up in textentry.

function chatTextChangedHook( text )
   textentry:SetValue( text );
end
hook.Add( "ChatTextChanged", "ChatTextChangedHook", chatTextChangedHook );

-- This makes our chat both visible and usable.

function OpenChat()
   
   if( chatready == true) then
   
      chatframe:SetVisible( true );
      chatframe:SetKeyboardInputEnabled( true );
      chatframe:SetMouseInputEnabled( true );   
   
      chatform:SetVisible( true );
      chatform:SetKeyboardInputEnabled( true );
      chatform:SetMouseInputEnabled( true );   
   
      chatmenu:SetVisible( true )
      chatmenu:SetKeyboardInputEnabled( true )
      chatmenu:SetMouseInputEnabled( true )
   
      textentry:SetVisible( true );
      textentry:SetKeyboardInputEnabled( true );
      textentry:SetMouseInputEnabled( true );
      textentry:SetEnabled( true );

   end

end


-- This hides our chat and makes it unusable

function CloseChat()
   
   if( chatready == true) then
   
      chatframe:SetVisible( false );
      chatframe:SetKeyboardInputEnabled( false );
      chatframe:SetMouseInputEnabled( false );   

      chatmenu:SetVisible( false )
      chatmenu:SetKeyboardInputEnabled( false )
      chatmenu:SetMouseInputEnabled( false )
      
      chatform:SetVisible( false );
      chatform:SetKeyboardInputEnabled( false );
      chatform:SetMouseInputEnabled( false );   
      
      textentry:SetVisible( false );
      textentry:SetKeyboardInputEnabled( false );
      textentry:SetMouseInputEnabled( false );
      textentry:SetEnabled( false );
      textentry:SetValue( "" );
   
   end
   
   
end


-- This draws our derma chatbox. Even now,
-- it's not working perfectly, because I broke it
-- a little and forgot how it was when I had it
-- working right. Main problems come from
-- the textentry being misplaced. Make note, we
-- don't remove this; it's hidden when not in use.

function DrawChat()

if(CLIENT) then

   chatframe = vgui.Create( "DFrame" )
   chatframe:SetSize( ScrW()/2 - ScrW()/8 + 6, ScrH()/2 - ScrH()/8 + 6)
   chatframe:SetPos( ScrW()/36, ScrH() - (ScrH()*13/32) )
   chatframe:SetVisible( false )
   chatframe:SetKeyboardInputEnabled( false )
   chatframe:SetMouseInputEnabled( false )
   chatframe:SetTitle( "Chatbox" )
   chatframe:SetSizable(true)
   chatframe:SetDraggable(true)
   chatframe:ShowCloseButton( false )

   chatform = vgui.Create("DForm");
   chatform:SetSize( ScrW()/2 - ScrW()/8, ScrH()/2 - ScrH()/8) ;
   chatform:SetPos( ScrW()/36, ScrH() - (ScrH()*28/32) );  --actually 13/32
   chatform:SetVisible( false );
   chatform:SetKeyboardInputEnabled( false );
   chatform:SetMouseInputEnabled( false );
   chatform:SetParent( chatframe );
   
   chatmenu = vgui.Create( "DPropertySheet" );
   chatmenu:SetParent(chatframe);
   chatmenu:SetPos( 3, 30 );
   chatmenu:SetSize( ScrW()/2 - ScrW()/8 - 6, ScrH()/2 - ScrH()/8 - 66 );
   
   textentry = vgui.Create("DTextEntry");
   chatform:AddItem(textentry);
   textentry:SetPos( 3, ScrH()*7/8 );
   textentry:SetSize( ScrW()/2 - ScrW()/8 - 6, 25 );
   textentry:SetValue("");
   textentry:SetKeyboardInputEnabled( false );
   textentry:SetMouseInputEnabled( false );
   textentry.OnKeyCodePressed = function ( keycode )
   
      if( keycode == KEY_ESCAPE ) then
         GM:FinishChat();
         end
      end
   
   textentry.OnEnter = function()
   
      local say = textentry:GetValue();
         GM:PlayerSay( say )
         textentry:SetValue("");
         GM:FinishChat();
      end
   
   AllChat = vgui.Create("DPanelList");
   AllChat:SetAutoSize(true);
   AllChat:SetPadding( 3, 3)
   
   AllBox = vgui.Create("DPanelList");
   AllBox:SetSize( ScrW()/2 - ScrW()/8 - 12, ScrH()/2 - ScrH()/8 - 102 );
   
   AllChat:AddItem(AllBox);
   
   ICChat = vgui.Create("DPanelList");
   ICChat:SetAutoSize(true);
   ICChat:SetPadding( 3, 3)
   
   ICBox = vgui.Create("DPanelList");
   ICBox:SetSize( ScrW()/2 - ScrW()/8 - 12, ScrH()/2 - ScrH()/8 - 102 );
   ICChat:AddItem(ICBox);
   
   OOCChat = vgui.Create("DPanelList");
   OOCChat:SetAutoSize(true);
   OOCChat:SetPadding( 3, 3)
   
   OOCBox = vgui.Create("DPanelList");
   OOCBox:SetSize( ScrW()/2 - ScrW()/8 - 12, ScrH()/2 - ScrH()/8 - 102 );
   OOCChat:AddItem(OOCBox);
   
   PMChat = vgui.Create("DPanelList");
   PMChat:SetAutoSize(true);
   PMChat:SetPadding( 3, 3)
   
   PMBox = vgui.Create("DPanelList");
   PMBox:SetSize( ScrW()/2 - ScrW()/8 - 12, ScrH()/2 - ScrH()/8 - 102 );
   PMChat:AddItem(PMBox);
   
   chatmenu:AddSheet( "All", AllChat, nil, false, false, nil );
   chatmenu:AddSheet( "In-Character", ICChat, nil, false, false, nil );
   chatmenu:AddSheet( "Out-of-Character", OOCChat, nil, false, false, nil );
   chatmenu:AddSheet( "Private Messages", PMChat, nil, false, false, nil );
   
   end
   
   chatready = true
   
   end
   DrawChat()

function ChatRefresh()

   for line , message in pairs( pl.LOG ) do
   
      local linecount = table.getn( pl.LOG )
   
      CAKE.ChatFormat( line , message)
      
      draw.DrawText( line.msg , "Standard", ScrW()/2, ScrH() - 300 - (linecount - line)*25, cmd.color, 0)
      
   end

end

say.color = Color( 80, 165, 255, 100 )
me.color = Color( 0, 190, 255, 100 )
yell.color = Color( 240, 80, 45, 100 )
w.color = Color( 85, 180, 90, 100 )

color = {}

color[0] = Color( 255, 0, 0, 100 ) -- error
color[1] = Color( 220, 195 , 57, 100 ) -- server message
color[2] = Color( 80, 165, 255, 100 ) -- say
color[3] = Color( 0, 190, 255, 100 ) -- me
color[4] = Color( 230, 80, 45, 100 ) -- yell
color[5] = Color( 85, 180, 90, 100 ) -- whisper
color[6] = Color( 10, 115, 225, 100 ) -- anon or /?
color[7] = Color( 100, 200, 255, 100 ) -- event
color[8] = Color( 200, 210, 180, 100 ) -- broadcast
color[9] = Color( 110, 70, 155, 100 ) -- report
color[10] = Color( 190, 150, 235, 100 ) -- pm
color[11] = Color( 255, 235, 225, 100 ) -- radio
color[12] = Color( 180, 210, 180, 100 ) -- adverts
color[13] = Color( 255, 255, 255, 100 ) -- ooc
color[14] = Color( 150, 150, 150, 100 ) -- local ooc

count = 0

-- This function grabs the usermessage and formats it into our clientside chatlog.
function CAKE.ChatUpdate( entry )
   
   -- local pl = entry:ReadEntity();
   local ply = entry:ReadEntity();
   local clr = entry:ReadLong();
   local msg = entry:ReadString();
   
   local message = tostring( count .. "^" .. ply:Name() .. "^" .. clr .. "^" .. msg )
   table.insert( LOG, message )
   ChatRefresh();
   count = count + 1
   
end
usermessage.Hook( "chatupdate", CAKE.ChatUpdate );

function CAKE.ChatFormat( message )

   local frmtmsg = string.Explode( "^" , message )
   
   local row = tonumber(frmtmsg[1])
   local ply = tostring(frmtmsg[2])
   local clr = tonumber(frmtmsg[3])
   local msg = tostring(frmtmsg[4])
   
   return row, ply, clr, msg
   
end

function ChatRefresh()

   for line , message in pairs( LOG ) do
      
      local chat = CAKE.ChatFormat( message )
      
      draw.DrawText( chat[4] , "Standard", ScrW()/2, ScrH() - 300 - (count - chat[1] )*25, chat[3], 0 )
      
   end

end