103 	cMaxWindSpeed,

   103 	cMaxWindSpeed,

   104 	cWindSpeed,

   104 	cWindSpeed,

   105 	cGravity: hwFloat;

   105 	cGravity: hwFloat;

   106 	cDamageModifier: hwFloat;

   106 	cDamageModifier: hwFloat;

   107 	cLaserSighting: boolean;

   107 	cLaserSighting: boolean;

   108 

   109 

   109 	flagMakeCapture: boolean = false;

   110 	flagMakeCapture: boolean = false;

   110 

   111 

   111 	InitStepsFlags: Longword = 0;

   112 	InitStepsFlags: Longword = 0;

   112 

   113 

   380 			for x:= 0 to Pred(Surf^.w) do

   381 			for x:= 0 to Pred(Surf^.w) do

   381 				toP4^[x]:= fromP4^[x];

   382 				toP4^[x]:= fromP4^[x];

   382 			for x:= Surf^.w to Pred(tw) do

   383 			for x:= Surf^.w to Pred(tw) do

   383 				toP4^[x]:= 0;

   384 				toP4^[x]:= 0;

   384 			toP4:= @(toP4^[tw]);

   385 			toP4:= @(toP4^[tw]);

   386 			end;

   387 			end;

   387 

   388 

   388 		for y:= Surf^.h to Pred(th) do

   389 		for y:= Surf^.h to Pred(th) do

   389 			begin

   390 			begin

   390 			for x:= 0 to Pred(tw) do

   391 			for x:= 0 to Pred(tw) do

   546 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005

   547 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005

   547 cWindSpeed.QWordValue:=     429496;// 0.0001

   548 cWindSpeed.QWordValue:=     429496;// 0.0001

   548 cGravity:= cMaxWindSpeed;

   549 cGravity:= cMaxWindSpeed;

   549 cDamageModifier:= _1;

   550 cDamageModifier:= _1;

   550 cLaserSighting:= false;

   551 cLaserSighting:= false;

   551 

   553 

   552 {$IFDEF DEBUGFILE}

   554 {$IFDEF DEBUGFILE}

   553 {$I-}

   555 {$I-}

   554 if ParamCount >= 0 then

   556 if ParamCount >= 0 then

   555  //this check prevents a crash in Mac OS X

   557  //this check prevents a crash in Mac OS X