My moving extension

Question

I have made a simple moving extension. Compile this with Fremy's Extension Compiler (Thank you very much Fremy and Litdev for it) and place in the 'lib' folder with the name 'Moving'. I have also made several samples for my extension. I will provide their import codes below it.

Angle = 0
ObjectSelected = 1
Distance = "(Not defined)"
ObjectType = "(Not defined)"
X = "(Not defined)"
Y = "(Not defined)"
_ObjectNumber = 1
Sub MoveAndRotate
  _X1 = Shapes.GetLeft(_Object[ObjectSelected])
  _Y1 = Shapes.GetTop(_Object[ObjectSelected])
  Radians = Math.GetRadians(Angle)
  _X2 = _X1 + Distance * Math.Cos(Radians)
  _Y2 = _Y1 + Distance * Math.Sin(Radians)
  Shapes.Rotate(_Object[ObjectSelected],Angle)
  Shapes.Move(_Object[ObjectSelected],_X2,_Y2)
EndSub
Sub MoveTo
  Shapes.Move(_Object[ObjectSelected],X,Y)
EndSub
Sub OppositeCoordinates
  Shapes.Move(_Object[ObjectSelected],GraphicsWindow.Width-X,GraphicsWindow.Height/Y)
EndSub
Sub AddObject
  _Object[_ObjectNumber] = ObjectType
  _ObjectNumber = _ObjectNumber + 1
EndSub

About acceleration: WZV688

A sine wave: DVG006 (Requires Litdev Extension also)

I don't know how to describe this one: LJX905

If you have any problems with this or questions about it, please feel free to ask!

---

I am a 10 year old that loves math, games, and computers. "Everyone is potentially great, you just have to turn it into kinetic greatness."

Answer 1

Awesome extension! Great work =)