none
My moving extension

    General discussion

  • 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."


    • Edited by Math Man Wednesday, October 03, 2012 10:29 PM
    Wednesday, October 03, 2012 10:29 PM

All replies