57 

    57 

    58 procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean);

    58 procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean);

    59 var strSurface, resSurface: PSDL_Surface;

    59 var strSurface, resSurface: PSDL_Surface;

    60 	w, h: LongInt;

    60 	w, h: LongInt;

    61 	color: TSDL_Color;

    61 	color: TSDL_Color;

    62 begin

    63 begin

    63 if cl.Tex <> nil then

    64 if cl.Tex <> nil then

    64 	FreeTexture(cl.Tex);

    65 	FreeTexture(cl.Tex);

    65 

    66 

    66 

    67 

    79 begin

    80 begin

    80 	color:= colors[str[1]];

    81 	color:= colors[str[1]];

    81 	delete(str, 1, 1)

    82 	delete(str, 1, 1)

    82 end;

    83 end;

    83 

    84 

    86 

    87 

    87 resSurface:= SDL_CreateRGBSurface(0, toPowerOf2(w), toPowerOf2(h), 32, RMask, GMask, BMask, AMask);

    88 resSurface:= SDL_CreateRGBSurface(0, toPowerOf2(w), toPowerOf2(h), 32, RMask, GMask, BMask, AMask);

    88 

    89 

    90 cl.Width:= w + 4;

    91 cl.Width:= w + 4;

    91 SDL_UpperBlit(strSurface, nil, resSurface, nil);

    92 SDL_UpperBlit(strSurface, nil, resSurface, nil);

    92 SDL_FreeSurface(strSurface);

    93 SDL_FreeSurface(strSurface);

    93 

    94 

    94 cl.Time:= RealTicks + 12500;

    95 cl.Time:= RealTicks + 12500;