equal
deleted
inserted
replaced
341 begin |
341 begin |
342 // probably needs tweaking. might need to be in a case statement based upon gear type |
342 // probably needs tweaking. might need to be in a case statement based upon gear type |
343 Y:= hwRound(Gear^.Y); |
343 Y:= hwRound(Gear^.Y); |
344 if cWaterLine < Y + Gear^.Radius then |
344 if cWaterLine < Y + Gear^.Radius then |
345 begin |
345 begin |
|
346 if Gear^.State and gstInvisible <> 0 then |
|
347 begin |
|
348 DeleteGear(Gear); |
|
349 exit |
|
350 end; |
346 isSubmersible:= (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack); |
351 isSubmersible:= (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack); |
347 skipSpeed := _0_25; |
352 skipSpeed := _0_25; |
348 skipAngle := _1_9; |
353 skipAngle := _1_9; |
349 skipDecay := _0_87; |
354 skipDecay := _0_87; |
350 X:= hwRound(Gear^.X); |
355 X:= hwRound(Gear^.X); |