hedgewars/uMisc.pas
changeset 2023 41d3afaa20c7
parent 2017 7845c77c8d31
child 2031 b6f3e56fb100
equal deleted inserted replaced
2022:9bbf8af42ace 2023:41d3afaa20c7
   104 	cWindSpeed,
   104 	cWindSpeed,
   105 	cGravity: hwFloat;
   105 	cGravity: hwFloat;
   106 	cDamageModifier: hwFloat;
   106 	cDamageModifier: hwFloat;
   107 	cLaserSighting: boolean;
   107 	cLaserSighting: boolean;
   108 	cVampiric: boolean;
   108 	cVampiric: boolean;
       
   109 	cArtillery: boolean;
   109 
   110 
   110 	flagMakeCapture: boolean = false;
   111 	flagMakeCapture: boolean = false;
   111 
   112 
   112 	InitStepsFlags: Longword = 0;
   113 	InitStepsFlags: Longword = 0;
   113 
   114 
   548 cWindSpeed.QWordValue:=     429496;// 0.0001
   549 cWindSpeed.QWordValue:=     429496;// 0.0001
   549 cGravity:= cMaxWindSpeed;
   550 cGravity:= cMaxWindSpeed;
   550 cDamageModifier:= _1;
   551 cDamageModifier:= _1;
   551 cLaserSighting:= false;
   552 cLaserSighting:= false;
   552 cVampiric:= false;
   553 cVampiric:= false;
       
   554 cArtillery:= false;
   553 
   555 
   554 {$IFDEF DEBUGFILE}
   556 {$IFDEF DEBUGFILE}
   555 {$I-}
   557 {$I-}
   556 if ParamCount >= 0 then
   558 if ParamCount >= 0 then
   557  //this check prevents a crash in Mac OS X
   559  //this check prevents a crash in Mac OS X