vanilla-wow-addons – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 ChatrBacklog_Log={};
2 ChatrBacklog_Count=5;
3 ChatrBacklog_Color={0.6,0.6,0.6};
4  
5 function ChatrBacklog_Init()
6 Chatr_CallMe("IncomingWhisper",ChatrBacklog_Record);
7 Chatr_CallMe("OutgoingWhisper",ChatrBacklog_Record);
8 Chatr_CallMe("Note",ChatrBacklog_Record);
9 Chatr_CallMe("OpenChatr",ChatrBacklog_Populate);
10 Chatr_Print(GetAddOnMetadata("ChatrBacklog","Title").." loaded.");
11 ChatrBacklogOptionsTitle:SetText(GetAddOnMetadata("ChatrBacklog","Title"));
12 Chatr_AddPluginButton(ChatrBacklogToggle);
13  
14 end
15  
16 function ChatrBacklog_Record(tab)
17 local event,chatr,name,msg,fmtd=unpack(tab);
18 if ChatrBacklog_Log[name]==nil then
19 ChatrBacklog_Log[name]={};
20 end
21  
22 tinsert(ChatrBacklog_Log[name],fmtd);
23 if getn(ChatrBacklog_Log[name])>ChatrBacklog_Count then
24 tremove(ChatrBacklog_Log[name],1);
25 end
26 end
27  
28 function ChatrBacklog_Populate(tab)
29 local _,v;
30 if ChatrBacklog_Log[tab[2].target]~=nil then
31 for _,v in ChatrBacklog_Log[tab[2].target] do
32 tab[2].chatBox:AddMessage(v,ChatrBacklog_Color[1],ChatrBacklog_Color[2],ChatrBacklog_Color[3]);
33 end
34 end
35 end