990 t^.ar[i]^.dX:= Ammo^.dX * Power * _0_01; |
990 t^.ar[i]^.dX:= Ammo^.dX * Power * _0_01; |
991 t^.ar[i]^.dY:= Ammo^.dY * Power * _0_01; |
991 t^.ar[i]^.dY:= Ammo^.dY * Power * _0_01; |
992 t^.ar[i]^.Active:= true; |
992 t^.ar[i]^.Active:= true; |
993 t^.ar[i]^.State:= t^.ar[i]^.State or gstMoving; |
993 t^.ar[i]^.State:= t^.ar[i]^.State or gstMoving; |
994 |
994 |
995 (* if TestCollisionXwithGear(t^.ar[i], hwSign(t^.ar[i]^.dX)) then |
995 if TestCollisionXwithGear(t^.ar[i], hwSign(t^.ar[i]^.dX)) then |
996 begin |
996 begin |
997 if not (TestCollisionXwithXYShift(t^.ar[i], _0, -3, hwSign(t^.ar[i]^.dX)) |
997 if not (TestCollisionXwithXYShift(t^.ar[i], _0, -3, hwSign(t^.ar[i]^.dX)) |
998 or TestCollisionYwithGear(t^.ar[i], -1)) then t^.ar[i]^.Y:= t^.ar[i]^.Y - _1; |
998 or TestCollisionYwithGear(t^.ar[i], -1)) then t^.ar[i]^.Y:= t^.ar[i]^.Y - _1; |
999 if not (TestCollisionXwithXYShift(t^.ar[i], _0, -2, hwSign(t^.ar[i]^.dX)) |
999 if not (TestCollisionXwithXYShift(t^.ar[i], _0, -2, hwSign(t^.ar[i]^.dX)) |
1000 or TestCollisionYwithGear(t^.ar[i], -1)) then t^.ar[i]^.Y:= t^.ar[i]^.Y - _1; |
1000 or TestCollisionYwithGear(t^.ar[i], -1)) then t^.ar[i]^.Y:= t^.ar[i]^.Y - _1; |
1001 if not (TestCollisionXwithXYShift(t^.ar[i], _0, -1, hwSign(t^.ar[i]^.dX)) |
1001 if not (TestCollisionXwithXYShift(t^.ar[i], _0, -1, hwSign(t^.ar[i]^.dX)) |
1002 or TestCollisionYwithGear(t^.ar[i], -1)) then t^.ar[i]^.Y:= t^.ar[i]^.Y - _1; |
1002 or TestCollisionYwithGear(t^.ar[i], -1)) then t^.ar[i]^.Y:= t^.ar[i]^.Y - _1; |
1003 end; |
1003 end; |
1004 *) |
1004 |
1005 FollowGear:= t^.ar[i] |
1005 FollowGear:= t^.ar[i] |
1006 end; |
1006 end; |
1007 end |
1007 end |
1008 end; |
1008 end; |
1009 SetAllToActive |
1009 SetAllToActive |