equal
deleted
inserted
replaced
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 |
346 if Gear^.State and gstInvisible <> 0 then |
347 begin |
347 begin |
348 DeleteGear(Gear); |
348 if Gear^.Kind = gtGenericFaller then |
|
349 begin |
|
350 Gear^.X:= int2hwFloat(GetRandom(rightX-leftX)+leftX); |
|
351 Gear^.Y:= int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY); |
|
352 Gear^.dX:= _90-(GetRandomf*_360); |
|
353 Gear^.dY:= _90-(GetRandomf*_360) |
|
354 end |
|
355 else DeleteGear(Gear); |
349 exit |
356 exit |
350 end; |
357 end; |
351 isSubmersible:= (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack); |
358 isSubmersible:= (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack); |
352 skipSpeed := _0_25; |
359 skipSpeed := _0_25; |
353 skipAngle := _1_9; |
360 skipAngle := _1_9; |