115 procedure SetLittle(var r: hwFloat);

   115 procedure SetLittle(var r: hwFloat);

   116 procedure SendStat(sit: TStatInfoType; s: shortstring);

   116 procedure SendStat(sit: TStatInfoType; s: shortstring);

   117 function  Str2PChar(const s: shortstring): PChar;

   117 function  Str2PChar(const s: shortstring): PChar;

   118 function  Surface2Tex(surf: PSDL_Surface): PTexture;

   118 function  Surface2Tex(surf: PSDL_Surface): PTexture;

   119 procedure FreeTexture(tex: PTexture);

   119 procedure FreeTexture(tex: PTexture);

   120 

   121 

   121 var CursorPoint: TPoint;

   122 var CursorPoint: TPoint;

   122     TargetPoint: TPoint = (X: NoPointX; Y: 0);

   123     TargetPoint: TPoint = (X: NoPointX; Y: 0);

   123 

   124 

   124 implementation

   125 implementation