equal
deleted
inserted
replaced
171 tdX, tdY: hwFloat; |
171 tdX, tdY: hwFloat; |
172 collV, collH: LongInt; |
172 collV, collH: LongInt; |
173 land: word; |
173 land: word; |
174 begin |
174 begin |
175 // clip velocity at 2 - over 1 per pixel, but really shouldn't cause many actual problems. |
175 // clip velocity at 2 - over 1 per pixel, but really shouldn't cause many actual problems. |
176 {$IFNDEF WEB} |
|
177 if Gear^.dX.Round > 2 then |
176 if Gear^.dX.Round > 2 then |
178 Gear^.dX.QWordValue:= 8589934592; |
177 Gear^.dX.QWordValue:= 8589934592; |
179 if Gear^.dY.Round > 2 then |
178 if Gear^.dY.Round > 2 then |
180 Gear^.dY.QWordValue:= 8589934592; |
179 Gear^.dY.QWordValue:= 8589934592; |
181 {$ELSE} |
180 |
182 if Gear^.dX.Round > 2 then |
|
183 begin |
|
184 Gear^.dX.Round:= 2; |
|
185 Gear^.dX.Frac:= 0 |
|
186 end; |
|
187 if Gear^.dY.QWordValue > 2 then |
|
188 begin |
|
189 Gear^.dY.Round:= 2; |
|
190 Gear^.dY.Frac:= 0 |
|
191 end; |
|
192 {$ENDIF} |
|
193 Gear^.State := Gear^.State and (not gstCollision); |
181 Gear^.State := Gear^.State and (not gstCollision); |
194 collV := 0; |
182 collV := 0; |
195 collH := 0; |
183 collH := 0; |
196 tdX := Gear^.dX; |
184 tdX := Gear^.dX; |
197 tdY := Gear^.dY; |
185 tdY := Gear^.dY; |