equal
deleted
inserted
replaced
1121 end; |
1121 end; |
1122 end; |
1122 end; |
1123 end; |
1123 end; |
1124 |
1124 |
1125 procedure doStepBee(Gear: PGear); |
1125 procedure doStepBee(Gear: PGear); |
|
1126 var wrapped: boolean; |
1126 begin |
1127 begin |
1127 AllInactive := false; |
1128 AllInactive := false; |
1128 Gear^.X := Gear^.X + Gear^.dX; |
1129 Gear^.X := Gear^.X + Gear^.dX; |
1129 Gear^.Y := Gear^.Y + Gear^.dY; |
1130 Gear^.Y := Gear^.Y + Gear^.dY; |
1130 WorldWrap(Gear); |
1131 wrapped:= WorldWrap(Gear); |
|
1132 if wrapped then |
|
1133 HomingWrap(Gear); |
1131 Gear^.dY := Gear^.dY + cGravity; |
1134 Gear^.dY := Gear^.dY + cGravity; |
1132 CheckGearDrowning(Gear); |
1135 CheckGearDrowning(Gear); |
1133 CheckCollision(Gear); |
1136 CheckCollision(Gear); |
1134 if (Gear^.State and gstCollision) <> 0 then |
1137 if (Gear^.State and gstCollision) <> 0 then |
1135 begin |
1138 begin |