Edge	Previous  Next

---

Returns a number that represents the boundary that the sprite collided with.

Syntax: Edge As Int32

This value should be used inside the CollisionEdge event sub.

Edge values:

1 - East wall

2 - Southeast corner

3 - South

4 - Southwest

5 - West

6 - Northwest

7 - North

8 - NorthEast

Example:

Sub gw_CollisionEdge

'This event occurs when a sprite hits one of the boundaries.

      sprite.Value = gw.Sprite1 'Get the sprite.

      If gw.SpriteIndex(sprite.Value) = 0 Then Return 'Ignore the explode sprite.

      Select gw.Edge 'Check the edge value and set the new direction accordingly.

        Case 1 'east

            iMinAngle = 135 : iMaxAngle = 225

        Case 2 'southeast

            iMinAngle = 180 : iMaxAngle = 270

        Case 3 'south

            iMinAngle = 225 : iMaxAngle = 315

        Case 4 'southwest

            iMinAngle = 270 : iMaxAngle = 359

        Case 5 'west

            iMinAngle = 0 : iMaxAngle = 45

        Case 6 'northwest

            iMinAngle = 0 : iMaxAngle = 90

        Case 7 'north

            iMinAngle = 45 : iMaxAngle = 135

        Case 8 'northeast

            iMinAngle = 90 : iMaxAngle = 180

      End Select

      angle = Rnd(iMinAngle,iMaxAngle)

      sprite.Direction = angle 'Set the new direction.

      Sound("bounce.wav") 'Play the sound.

End Sub