sms.lua

-- Short Message Script
--[[
Inbox message limit: 15
Commands:
	!sms - Shows SMS panel
	!sms [name] - Shows a popup to type message
	!sms [name] message - Sends message to name
	!mute [name] - Mutes the player, the player you specified can't send you message
	!unmute [name] - Unmutes the player
	!fsms [sender] [name] message - Sends fake message
Use or make your own isAdmin and trans functions
]]

langs={
	EN={
		smsPanel='<R><b><a href="event:close">^</a></b> <J>You have <BL><b>%i</b><G>/<R><b>%i</b> <J>messages in your inbox. <R><a href="event:inbox"><b>[Inbox]</b></a>%s',
		smsSuccess='<V>Your message has been sent!',
		smsFail='<R>The player could not be found!',
		smsFail2="<R>The player's inbox is full!",
		smsLimit='<R>Your inbox is full!',
		smsMute="<V>%s <J>is ignored!",
		smsUnmute='<V>%s <J>is unignored!',
		smsFakeMsgOk='<V>Fake message has been sent!',
		smsPopup='Message',
		smsInbox='<R><b><a href="event:close">^</a></b> <J>Inbox<V>',
		smsInboxEmpty='<V>Empty',
		smsInfo=[[<R><p align="right"><b><a href="event:close">X</a></b></p><V><b>Sender:</b> <N>%s
<V><b>Date:</b> <N>%s
<V><b>Message</b><J>
%s
<V><p align="center"><b><a href="event:smsr%s">Answer</a></b>]]
	},
	TR={
		smsPanel='<R><b><a href="event:close">^</a></b> <J>Gelen kutunuzda <BL><b>%i</b><G>/<R><b>%i</b> <J>mesajınız bulunmakta. <R><a href="event:inbox"><b>[Gelen Kutusu]</b></a>%s',
		smsSuccess='<V>Mesajınız alıcıya teslim edildi!',
		smsFail='<R>Oyuncu bulunamadı!',
		smsFail2='<R>Oyuncunun gelen kutusu dolu!',
		smsLimit='<R>Gelen kutunuz doldu!',
		smsMute='<V>%s <J>engellendi!',
		smsUnmute='<V>%s <J>engeli kaldırıldı!',
		smsFakeMsgOk='<V>Sahte mesaj gönderildi!',
		smsPopup='Mesaj',
		smsInbox='<R><b><a href="event:close">^</a></b> <J>Gelen Kutusu<V>',
		smsInboxEmpty='<V>Boş',
		smsInfo=[[<R><p align="right"><b><a href="event:close">X</a></b></p><V><b>Gönderen:</b> <N>%s
<V><b>Tarih:</b> <N>%s
<V><b>Mesaj</b><J>
%s
<V><p align="center"><b><a href="event:smsr%s">Cevapla</a></b>]]
	},
}
players={}
function init()
	for name in pairs(tfm.get.room.playerList) do
		eventNewPlayer(name)
	end
	for _,c in pairs({'sms','fsms'}) do
		system.disableChatCommandDisplay(c, true)
	end
end
function eventNewPlayer(name)
	if not _get(players, name) then
		_set(players, name, {muteList={}, msgs={}, msgc=0})
	end
end
function eventChatCommand(name, cmd)
	local args = {}
	for a in cmd:gmatch('%S+') do args[#args+1] = a end
	local pInfo = _get(players,name)
	if 'sms' == args[1] then
		if args[2] then
			local receiver, msg = args[2], cmd:sub(#args[2]+6)
			if #msg > 0 then
				local rInfo = _get(players, receiver)
				if rInfo then
					if _get(rInfo.muteList, name) then
						updateMsgUI(name, trans('smsFail2',name))
					elseif #rInfo.msgs > 14 then
						updateMsgUI(name, trans('smsFail2',name))
						updateMsgUI(receiver, trans('smsLimit',receiver))
					else
						table.insert(rInfo.msgs, {time=os.date(), sender=name, msg=isAdmin(name) and msg or smsFilter(msg)})
						rInfo.msgc = rInfo.msgc+1
						updateMsgUI(name, trans('smsSuccess',name))
						updateMsgUI(receiver)
					end
				else
					updateMsgUI(name, trans('smsFail',name))
				end
			else
				pInfo.smsr = receiver
				ui.addPopup(8787, 2, trans('smsPopup',name), name, 300, 100, 200, true)
			end
		else
			updateMsgUI(name)
		end
	elseif 'mute ' == cmd:sub(1,5) then
		local who = cmd:sub(6):lower()
		pInfo.muteList[who] = 1
		updateMsgUI(name, trans('smsMute',name):format(smsFilter(who)))
	elseif 'unmute ' == cmd:sub(1,7) then
		local who = cmd:sub(8)
		_set(pInfo.muteList, who, nil)
		updateMsgUI(name, trans('smsUnmute',name):format(smsFilter(who)))
	elseif isAdmin(name) then
		if 'fsms ' == cmd:sub(1,5) then
			local sender,msg = cmd:match('fsms (%S+) (.+)')
			if sender and msg then
				eventChatCommand(sender, 'sms '..msg)
				updateMsgUI(name, trans('smsFakeMsgOk',name))
			end
		end
	end
end
function eventPopupAnswer(ID, name, answer)
	if ID == 8787 then
		local pInfo = _get(players, name)
		if pInfo and pInfo.smsr and #answer > 0 then
			eventChatCommand(name, 'sms '..pInfo.smsr..' '..answer)
		end
	end
end
function eventTextAreaCallback(ID,name,event)
	if event == 'close' then
		ui.removeTextArea(ID, name)
	else
		local pInfo = _get(players, name)
		if pInfo then
			if event == 'inbox' then
				ui.addTextArea(8778, '', name, 450, 20, 330, nil, 1, 0, 0.7, true)
				updateMsgUI(name)
			elseif 'smsd' == event:sub(1,4) then
				local smsID = tonumber(event:sub(5))
				if pInfo.msgs[smsID] then
					if not pInfo.msgs[smsID].ok then
						pInfo.msgc = pInfo.msgc-1
					end
					table.remove(pInfo.msgs, smsID)
					updateMsgUI(name)
				end
			elseif 'smsr' == event:sub(1,4) then
				pInfo.smsr = event:sub(5)
				ui.addPopup(8787, 2, trans('smsPopup',name), name, 300, 100, 200, true)
			elseif 'sms' == event:sub(1,3) then
				local smsID = tonumber(event:sub(4))
				if pInfo.msgs[smsID] then
					local sInfo = pInfo.msgs[smsID]
					ui.addTextArea(7878, trans('smsInfo',name):format(sInfo.sender, sInfo.time, sInfo.msg, sInfo.sender),
						name, 10, 100, 300, nil, 0x000011, 0, 0.7, true)
					if not sInfo.ok then
						pInfo.msgc = pInfo.msgc-1
						sInfo.ok = true
						updateMsgUI(name)
					end
				end
			end
		end
	end
end
function updateMsgUI(name, msg)
	local pInfo = _get(players, name)
	if not pInfo then return end
	ui.addTextArea(7887, trans('smsPanel',name):format(#pInfo.msgs, pInfo.msgc,msg and '\n' .. msg or ''),
		name, 10, 20, nil, nil, 0x110000, 0, 0.7, true)
	local text = trans('smsInbox', name)
	if #pInfo.msgs > 0 then
		for i=1,#pInfo.msgs do
			text = string.format('%s\n[%s] <a href="event:sms%i">%s</a> <G>- <J>%s <R><a href="event:smsd%i">[X]</a><V>', text,
				pInfo.msgs[i].ok and '+' or '-', i, pInfo.msgs[i].sender, pInfo.msgs[i].time, i)
		end
	else
		text = text.."\n"..trans('smsInboxEmpty', name)
	end
	ui.updateTextArea(8778, text, name)
end
function isAdmin(name)
	return true -- name=='Transforcips'
end
function trans(key)
	return langs.EN[key]
	--return langs.TR[key]
end
function _get(t,k)
	return t[k:lower()]
end
function _set(t,k,v)
	t[k:lower()] = v
end
function smsFilter(s)
	return s:gsub('&','&amp;'):gsub('<','&lt;'):gsub('>','&gt;'):gsub('http','ht<c/>tp')
end
init()