equal
deleted
inserted
replaced
4777 end |
4777 end |
4778 else |
4778 else |
4779 if not ((Gear^.dX*ox + Gear^.dY*oy).isNegative) then |
4779 if not ((Gear^.dX*ox + Gear^.dY*oy).isNegative) then |
4780 continue; |
4780 continue; |
4781 |
4781 |
4782 if iterator^.Kind = gtDuck then |
|
4783 // Make duck go into “falling” mode again |
|
4784 iterator^.Pos:= 0; |
|
4785 |
|
4786 isbullet:= (iterator^.Kind in [gtShotgunShot, gtDEagleShot, gtSniperRifleShot, gtSineGunShot, gtMinigunBullet]); |
4782 isbullet:= (iterator^.Kind in [gtShotgunShot, gtDEagleShot, gtSniperRifleShot, gtSineGunShot, gtMinigunBullet]); |
4787 |
4783 |
4788 r:= int2hwFloat(iterator^.Radius); |
4784 r:= int2hwFloat(iterator^.Radius); |
4789 |
4785 |
4790 if not (isbullet or iscake) then |
4786 if not (isbullet or iscake) then |
6601 Gear^.dY:= _90-(GetRandomf*_360) |
6597 Gear^.dY:= _90-(GetRandomf*_360) |
6602 end; |
6598 end; |
6603 end |
6599 end |
6604 end; |
6600 end; |
6605 |
6601 |
|
6602 // TODO: Finish creeper implementation |
6606 procedure doStepCreeper(Gear: PGear); |
6603 procedure doStepCreeper(Gear: PGear); |
6607 var i,t,targDist,tmpDist: LongWord; |
6604 var i,t,targDist,tmpDist: LongWord; |
6608 targ, tmpG: PGear; |
6605 targ, tmpG: PGear; |
6609 tX, tY: hwFloat; |
6606 tX, tY: hwFloat; |
6610 vg: PVisualGear; |
6607 vg: PVisualGear; |