equal
deleted
inserted
replaced
1161 TargetPoint.X:= NoPointX |
1161 TargetPoint.X:= NoPointX |
1162 end; |
1162 end; |
1163 |
1163 |
1164 //////////////////////////////////////////////////////////////////////////////// |
1164 //////////////////////////////////////////////////////////////////////////////// |
1165 procedure doStepTeleportAfter(Gear: PGear); |
1165 procedure doStepTeleportAfter(Gear: PGear); |
1166 var HHGear: PGear; |
1166 //var HHGear: PGear; |
1167 begin |
1167 begin |
1168 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
1168 //HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
1169 HHGear^.Y:= HHGear^.Y + HHGear^.dY; |
1169 //HHGear^.Y:= HHGear^.Y + HHGear^.dY; |
1170 HHGear^.dY:= HHGear^.dY + cGravity; |
1170 //HHGear^.dY:= HHGear^.dY + cGravity; |
1171 if TestCollisionYwithGear(HHGear, 1) then |
1171 //if TestCollisionYwithGear(HHGear, 1) then |
1172 begin |
1172 // begin |
1173 DeleteGear(Gear); |
1173 DeleteGear(Gear); |
1174 AfterAttack |
1174 AfterAttack |
1175 end |
1175 // end |
1176 end; |
1176 end; |
1177 |
1177 |
1178 procedure doStepTeleport(Gear: PGear); |
1178 procedure doStepTeleport(Gear: PGear); |
1179 var HHGear: PGear; |
1179 var HHGear: PGear; |
1180 begin |
1180 begin |