equal
deleted
inserted
replaced
1146 repeat |
1146 repeat |
1147 Gear^.X := Gear^.X + Gear^.dX; |
1147 Gear^.X := Gear^.X + Gear^.dX; |
1148 Gear^.Y := Gear^.Y + Gear^.dY; |
1148 Gear^.Y := Gear^.Y + Gear^.dY; |
1149 tX:= Gear^.X; |
1149 tX:= Gear^.X; |
1150 tY:= Gear^.Y; |
1150 tY:= Gear^.Y; |
1151 if WorldWrap(Gear) then |
1151 if (Gear^.PortalCounter < 30) and WorldWrap(Gear) then |
1152 begin |
1152 begin |
1153 cX:= Gear^.X; |
1153 cX:= Gear^.X; |
1154 cY:= Gear^.Y; |
1154 cY:= Gear^.Y; |
1155 Gear^.X:= tX; |
1155 Gear^.X:= tX; |
1156 Gear^.Y:= tY; |
1156 Gear^.Y:= tY; |