Code: Select all
Enabled 1
Name messageCode: Select all
SystemHookScript ssmessage.ecl
{
SendSysMessage SendMessage
}Code: Select all
use uo;
use unicode;
const TXT_FONTE := 3;
const TXT_COLOR := 50;
program ssmessage()
return 1;
endprogram
exported function SendMessage(who, text, font := TXT_FONTE, color := TXT_COLOR, langcode := "ENG")
return SendSysMessageUC(who, UC(text), langcode, font, color);
endfunction
function UC(strs)
var result := array {};
if(TypeOf(strs) != "Array")
result := CAscZ(CStr(strs));
else
foreach str in (strs)
if(TypeOf(str) != "Array")
str := CAscZ(CStr(str));
endif
result := result + str;
endforeach
endif
return result;
endfunction