Wednesday, October 03, 2012 10:29 PM
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