equal
deleted
inserted
replaced
1044 //////////////////////////////////////////////////////////////////////////////// |
1044 //////////////////////////////////////////////////////////////////////////////// |
1045 procedure doStepBeeWork(Gear: PGear); |
1045 procedure doStepBeeWork(Gear: PGear); |
1046 var |
1046 var |
1047 t: hwFloat; |
1047 t: hwFloat; |
1048 gX,gY,i: LongInt; |
1048 gX,gY,i: LongInt; |
1049 uw, nuw: boolean; |
1049 uw, nuw, wrapped: boolean; |
1050 flower: PVisualGear; |
1050 flower: PVisualGear; |
1051 |
1051 |
1052 begin |
1052 begin |
1053 WorldWrap(Gear); |
1053 wrapped:= WorldWrap(Gear); |
|
1054 if wrapped then |
|
1055 HomingWrap(Gear); |
|
1056 |
1054 AllInactive := false; |
1057 AllInactive := false; |
1055 gX := hwRound(Gear^.X); |
1058 gX := hwRound(Gear^.X); |
1056 gY := hwRound(Gear^.Y); |
1059 gY := hwRound(Gear^.Y); |
1057 uw := (Gear^.Tag <> 0); // was bee underwater last tick? |
1060 uw := (Gear^.Tag <> 0); // was bee underwater last tick? |
1058 nuw := CheckCoordInWater(gx, gy + Gear^.Radius); // is bee underwater now? |
1061 nuw := CheckCoordInWater(gx, gy + Gear^.Radius); // is bee underwater now? |