equal
deleted
inserted
replaced
1092 procedure doStepBee(Gear: PGear); |
1092 procedure doStepBee(Gear: PGear); |
1093 begin |
1093 begin |
1094 AllInactive := false; |
1094 AllInactive := false; |
1095 Gear^.X := Gear^.X + Gear^.dX; |
1095 Gear^.X := Gear^.X + Gear^.dX; |
1096 Gear^.Y := Gear^.Y + Gear^.dY; |
1096 Gear^.Y := Gear^.Y + Gear^.dY; |
|
1097 WorldWrap(Gear); |
1097 Gear^.dY := Gear^.dY + cGravity; |
1098 Gear^.dY := Gear^.dY + cGravity; |
1098 CheckGearDrowning(Gear); |
1099 CheckGearDrowning(Gear); |
1099 CheckCollision(Gear); |
1100 CheckCollision(Gear); |
1100 if (Gear^.State and gstCollision) <> 0 then |
1101 if (Gear^.State and gstCollision) <> 0 then |
1101 begin |
1102 begin |