{$DEFINE SW}

{$I MSSL\MSSL.scar}

var
  x, y: Integer;

function SW_GetName2: string;
var
  x: Integer;
  b: TBox;
  p: TPointArray;
  s: string;
begin
  if FindColorEx(p, 62208, 154, 180, 209, 192) then
  begin
    b := TPABounds(p);
    for x := (b.X1 - 2) to 209 do
    begin
      s := MSSL_StrTrimEnd(GetTextAtEx(x, 182, 0, MSSL_MM.st[SW_MMS].font[SW_MainFont].obj, False, False, 0, 0, 62208, 10, True, tr_AllChars));
      if (PregMatch('/[a-zA-Z_]{1,10}/', s) = s) then
        if (Length(s) > Length(Result)) then
          Result := s;
    end;
  end;
end;

begin
  MSSL_Setup;
  SW_Client.Activate;
  WriteLn('Your name: ' + SW_GetName2);
  MSSL_Unsetup;
end.