hedgewars/GSHandlers.inc
changeset 9137 d987230b85ed
parent 9080 9b42757d7e71
child 9145 6b51a32e48ed
equal deleted inserted replaced
9134:9330bacf2569 9137:d987230b85ed
  5133 const iceHeight = 40;
  5133 const iceHeight = 40;
  5134 var
  5134 var
  5135     HHGear, iter: PGear;
  5135     HHGear, iter: PGear;
  5136     landRect: TSDL_Rect;
  5136     landRect: TSDL_Rect;
  5137     ndX, ndY: hwFloat;
  5137     ndX, ndY: hwFloat;
  5138     i, j, t, gX, gY: LongInt;
  5138     i, t, gX, gY: LongInt;
  5139     hogs: PGearArrayS;
  5139     hogs: PGearArrayS;
  5140     vg: PVisualGear;
  5140     vg: PVisualGear;
  5141 begin
  5141 begin
  5142     HHGear := Gear^.Hedgehog^.Gear;
  5142     HHGear := Gear^.Hedgehog^.Gear;
  5143     if (Gear^.Message and gmAttack <> 0) or (Gear^.Health = 0) or (HHGear = nil) or (HHGear^.Damage <> 0) or (HHGear^.dX.QWordValue > 4294967)  then
  5143     if (Gear^.Message and gmAttack <> 0) or (Gear^.Health = 0) or (HHGear = nil) or (HHGear^.Damage <> 0) or (HHGear^.dX.QWordValue > 4294967)  then