{$DEFINE RSCE}

{$I MSSL.scar}

var
  uptext: string;
  objs: TStrArray;

begin
  MSSL_Setup;
  RSCE_Client.Activate;
  Wait(2500);
  uptext := MSSL_StrReplaceMulti(RSCE_UpText([RSCE_TEXT_NPC, RSCE_TEXT_NPC, RSCE_TEXT_OBJECT, RSCE_TEXT_INFO]), ['I', 'l'], '*');
  WriteLn('UPTEXT: ' + uptext);
  objs := MSSL_TSAReplaceMulti(['Banker', 'Master Fisher', 'Man', 'Goblin'], ['I', 'l'], '*');
  if MSSL_StrContainsEx(uptext, objs, True, tc_AnyMatch) then
    WriteLn('WOOHOOO');
  MSSL_Unsetup;
end.