109 clr.g:= (Color shr 8) and $FF;

   109 clr.g:= (Color shr 8) and $FF;

   110 clr.b:= Color and $FF;

   110 clr.b:= Color and $FF;

   111 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, PChar(s), clr);

   111 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, PChar(s), clr);

   112 Result.x:= X + 3;

   112 Result.x:= X + 3;

   113 Result.y:= Y + 1;

   113 Result.y:= Y + 1;

   115 SDL_UpperBlit(tmpsurf, nil, Surface, @Result);

   115 SDL_UpperBlit(tmpsurf, nil, Surface, @Result);

   116 SDL_FreeSurface(tmpsurf);

   116 SDL_FreeSurface(tmpsurf);

   117 Result.x:= X;

   117 Result.x:= X;

   118 Result.y:= Y;

   118 Result.y:= Y;

   119 Result.w:= w + 6;

   119 Result.w:= w + 6;

   373 r.y:= Y;

   373 r.y:= Y;

   374 clr.r:= $FF;

   374 clr.r:= $FF;

   375 clr.g:= $FF;

   375 clr.g:= $FF;

   376 clr.b:= $FF;

   376 clr.b:= $FF;

   377 tmpsurf:= TTF_RenderUTF8_Solid(Fontz[Font].Handle, PChar(s), clr);

   377 tmpsurf:= TTF_RenderUTF8_Solid(Fontz[Font].Handle, PChar(s), clr);

   379 SDL_UpperBlit(tmpsurf, nil, Surface, @r);

   379 SDL_UpperBlit(tmpsurf, nil, Surface, @r);

   380 SDL_FreeSurface(tmpsurf)

   380 SDL_FreeSurface(tmpsurf)

   381 end;

   381 end;

   382 

   382 

   383 procedure DrawLand(X, Y: integer; Surface: PSDL_Surface);

   383 procedure DrawLand(X, Y: integer; Surface: PSDL_Surface);