130 

   130 

   131 	RealTicks: Longword = 0;

   131 	RealTicks: Longword = 0;

   132 

   132 

   133 	AttackBar: LongInt = 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP

   133 	AttackBar: LongInt = 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP

   134 

   134 

   136 

   136 

   137 type HwColor4f = record

   137 type HwColor4f = record

   138 	r, g, b, a: byte

   138 	r, g, b, a: byte

   139 	end;

   139 	end;

   140 

   140 

   542 

   542 

   543 function RectToStr(Rect: TSDL_Rect): shortstring;

   543 function RectToStr(Rect: TSDL_Rect): shortstring;

   544 begin

   544 begin

   545 RectToStr:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')'

   545 RectToStr:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')'

   546 end;

   546 end;

   551 {$ENDIF}

   547 {$ENDIF}

   552 

   548 

   553 function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface;

   549 function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface;

   554 {* for more information http://www.idevgames.com/forum/showpost.php?p=85864&postcount=7 *}

   550 {* for more information http://www.idevgames.com/forum/showpost.php?p=85864&postcount=7 *}

   555 var convertedSurf: PSDL_Surface = nil;

   551 var convertedSurf: PSDL_Surface = nil;