hedgewars/uChat.pas
changeset 6898 344b0dbd9690
parent 6893 69cc0166be8d
child 6954 a61458a81480
equal deleted inserted replaced
6897:a9126661f613 6898:344b0dbd9690
   386 end;
   386 end;
   387 
   387 
   388 procedure initModule;
   388 procedure initModule;
   389 var i: ShortInt;
   389 var i: ShortInt;
   390 begin
   390 begin
   391     RegisterVariable('chatmsg', vtCommand, @chChatMessage, true);
   391     RegisterVariable('chatmsg', @chChatMessage, true);
   392     RegisterVariable('say', vtCommand, @chSay, true);
   392     RegisterVariable('say', @chSay, true);
   393     RegisterVariable('team', vtCommand, @chTeamSay, true);
   393     RegisterVariable('team', @chTeamSay, true);
   394     RegisterVariable('history', vtCommand, @chHistory, true );
   394     RegisterVariable('history', @chHistory, true );
   395     RegisterVariable('chat', vtCommand, @chChat, true );
   395     RegisterVariable('chat', @chChat, true );
   396 
   396 
   397     lastStr:= 0;
   397     lastStr:= 0;
   398     visibleCount:= 0;
   398     visibleCount:= 0;
   399     showAll:= false;
   399     showAll:= false;
   400     ChatReady:= false;
   400     ChatReady:= false;