equal
deleted
inserted
replaced
319 i, maxDrops, X, Y: LongInt; |
319 i, maxDrops, X, Y: LongInt; |
320 vdX, vdY: real; |
320 vdX, vdY: real; |
321 particle: PVisualGear; |
321 particle: PVisualGear; |
322 isSubmersible: boolean; |
322 isSubmersible: boolean; |
323 begin |
323 begin |
324 isSubmersible:= (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack); |
|
325 // probably needs tweaking. might need to be in a case statement based upon gear type |
324 // probably needs tweaking. might need to be in a case statement based upon gear type |
326 Y:= hwRound(Gear^.Y); |
325 Y:= hwRound(Gear^.Y); |
327 if cWaterLine < Y + Gear^.Radius then |
326 if cWaterLine < Y + Gear^.Radius then |
328 begin |
327 begin |
|
328 isSubmersible:= (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack); |
329 skipSpeed := _0_25; |
329 skipSpeed := _0_25; |
330 skipAngle := _1_9; |
330 skipAngle := _1_9; |
331 skipDecay := _0_87; |
331 skipDecay := _0_87; |
332 X:= hwRound(Gear^.X); |
332 X:= hwRound(Gear^.X); |
333 vdX:= hwFloat2Float(Gear^.dX); |
333 vdX:= hwFloat2Float(Gear^.dX); |