Code: Select all

Enabled	   1
Name       message

Code: 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