Extreme lag; how do I streamline my code properly?

It seems to me, that you forgot to put a ResetCollisions call
in your main loop.

Try just before or after you cls.