Make Characters Talk

function LocalChat(role,target,text)
local pkt = GetPacket()
local tid = GetCharID( target )
WriteCmd( pkt, 501 );
WriteDword( pkt, tid );
WriteString( pkt, text);
SendPacket( role, pkt );
end

function Say(character,text)
local map_copy = GetChaMapCopy ( character )
local ply_num = GetMapCopyPlayerNum(map_copy)
local ps={}
local i = 1

BeginGetMapCopyPlayerCha ( map_copy )
for i = 1 ,ply_num , 1 do
ps[i]=GetMapCopyNextPlayerCha ( map_copy )
end

for i=1,ply_num,1 do
if(ps[i]~=0 and ps[i]~=nil)then
LocalChat( ps[i], character, text )
end
end
end



I hope you can learn from this code

it makes the Character talk to all characters around without any need of storing some info in some variables

Usage:
Say(character,"Hallo World")