Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/GSHandlers.inc
changeset 2932 9bc0cf3c7ac1
parent 2915 a02f276035e8
child 2933 02af54eb7e1e
equal deleted inserted replaced
2931:97f75507e1cb 2932:9bc0cf3c7ac1 
  1297 if (Gear^.dY.QWordValue <> 0) or (not TestCollisionYwithGear(Gear, 1)) then
 
  1297 if (Gear^.dY.QWordValue <> 0) or (not TestCollisionYwithGear(Gear, 1)) then
 
  1298 	begin
 
  1298 	begin
 
  1299 	AllInactive:= false;
 
  1299 	AllInactive:= false;
 
  1300 	Gear^.dY:= Gear^.dY + cGravity;
 
  1300 	Gear^.dY:= Gear^.dY + cGravity;
 
  1301 	Gear^.Y:= Gear^.Y + Gear^.dY;
 
  1301 	Gear^.Y:= Gear^.Y + Gear^.dY;
 
       
  1302     if (not Gear^.dY.isNegative) and (Gear^.Kind = gtExplosives) then SetAllHHToActive;
 
  1302 	if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= _0 else
 
  1303 	if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= _0 else
 
  1303 	if (not Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, 1) then
 
  1304 	if (not Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, 1) then
 
  1304 		begin
 
  1305 		begin
 
  1305 		if Gear^.dY > _0_2 then
 
  1306 		if Gear^.dY > _0_2 then
 
  1306 	        for i:= min(12, hwRound(Gear^.dY*_10)) downto 0 do 
  1307 	        for i:= min(12, hwRound(Gear^.dY*_10)) downto 0 do
hedgewars