Scratch

Here's an idea: Store the positions of the top and bottom of the hoop in a few lists (where item number corresponds to level number).  Then, use these scripts.  You will not be able to move through the top or bottom of the hoop.  This'll make a pretty nice-looking physics interaction (it's the same script that's used for corners in Music Marathon).  The scripts are big, but it should work.  Anyway, I hope you'll consider it. 

Since comments don't work in massive Scratchblocks scripts, here's the description:

Store the locations of the top/bottom x/y positions of the hoop in variables for easy access.
Check the distance to these locations. 
  If the distance is less than the radius of the player, project the velocity onto the perpendicular to the vector formed between the point and the character. 

And that's it!  One word of caution, though: make sure that the distance between the top and bottom points is no less than two times the radius, otherwise you'll never be able to get through the hoop.

These scripts use Velocity.X and Velocity.Y to represent X and Y velocities.  Those are the only two variables that you have already, all the others won't interfere. 

when I receive [Play v]
set [Radius v] to [20] // Or however many pixels it actually is.
set [Hoop.Bottom.X v] to (item (LevelNumber) of [Hoop.Bottom.X's v])
set [Hoop.Bottom.X v] to (item (LevelNumber) of [Hoop.Bottom.Y's v])
set [Hoop.Top.X v] to (item (LevelNumber) of [Hoop.Top.X's v])
set [Hoop.Top.Y v] to (item (LevelNumber) of [Hoop.Top.Y's v])
repeat until <not <(Playing?) = [true]> >
  update position, velocity, etc.

set [DistanceToHoopBottom v] to ([sqrt v] of ((((x position)-(Hoop.Bottom.X))*((x position)-(Hoop.Bottom.X))) + (((y position)-(Hoop.Bottom.Y))*((y position)-(Hoop.Bottom.Y)))))
if <(DistanceToHoopBottom) < (Radius)>
  set x to ((  ( ((x position) - (Hoop.Bottom.X)) * (Radius) ) / (DistanceToHoopBottom)) + (Hoop.Bottom.X))
  set y to ((  ( ((y position) - (Hoop.Bottom.Y)) * (Radius) ) / (DistanceToHoopBottom)) + (Hoop.Bottom.Y)) 
  set [Surface.X v] to ((y position) - (Hoop.Bottom.Y)) // The perpendicular to vector <x, y> is
  set [Surface.Y v] to ([-1] * ((x position) - (Hoop.Bottom.X))) // vector <y, -x>.
  set [Surface.MagnitudeSquared v] to (((Surface.X) * (Surface.X)) + ((Surface.Y) * (Surface.Y)))
  set [Surface.Scalar v] to ((((Velocity.X) * (Surface.X)) + ((Velocity.Y) * (Surface.Y))) / (Surface.MagnitudeSquared))
  set [Velocity.X v] to ((Surface.X) * (Surface.Scalar))
  set [Velocity.Y v] to ((Surface.Y) * (Surface.Scalar))
  end

set [DistanceToHoopTop v] to ([sqrt v] of ((((x position)-(Hoop.Top.X))*((x position)-(Hoop.Top.X))) + (((y position)-(Hoop.Top.Y))*((y position)-(Hoop.Top.Y)))))
if <(DistanceToHoopTop) < (Radius)>
  set x to ((  ( ((x position) - (Hoop.Top.X)) * (Radius) ) / (DistanceToHoopTop)) + (Hoop.Top.X))
  set y to ((  ( ((y position) - (Hoop.Top.Y)) * (Radius) ) / (DistanceToHoopTop)) + (Hoop.Top.Y)) 
  set [Surface.X v] to ((y position) - (Hoop.Top.Y)) // The perpendicular to vector <x, y> is
  set [Surface.Y v] to ([-1] * ((x position) - (Hoop.Top.X))) // vector <y, -x>.
  set [Surface.MagnitudeSquared v] to (((Surface.X) * (Surface.X)) + ((Surface.Y) * (Surface.Y)))
  set [Surface.Scalar v] to ((((Velocity.X) * (Surface.X)) + ((Velocity.Y) * (Surface.Y))) / (Surface.MagnitudeSquared))
  set [Velocity.X v] to ((Surface.X) * (Surface.Scalar))
  set [Velocity.Y v] to ((Surface.Y) * (Surface.Scalar))
  end


end

Last edited by amcerbu (2012-04-26 20:17:15)

Your game doesn't appear to display anything bad, just that you can stand in the hoop

I'm glad it worked!  If you don't want the player to stick to the hoop, put the right/left/up sensing scripts after the scripts for hoop collision.

EDIT: Oh, never mind.  I keep thinking in terms of 1s1s.  It seems you have separate scripts for motion and collision.

Last edited by amcerbu (2012-04-27 13:21:40)