Author Topic: Orbiting script  (Read 1871 times)

badrush

  • Guest
Orbiting script
« on: 2009-Feb-08 »
Yep yep if you need some orbiting here you go

GOSUB makevars

main:
  GOSUB step_event
  GOSUB DRAW
GOTO main

SUB makevars:
 GLOBAL x1 = 200
 GLOBAL y1 = 200
 
 GLOBAL x2 = 200
 GLOBAL y2 = 200

 GLOBAL length=100
 GLOBAL direction=0
  LOADSPRITE "ball.bmp" ,0

ENDSUB // MAKEVARS




// ------------------------------------------------------------- //
// ---  STEP_EVENT  ---
// ------------------------------------------------------------- //
SUB step_event:
 x2=x1+COS(direction)*length
 y2=y1+SIN(direction)*length
 direction=direction+5
ENDSUB // STEP_EVENT







// ------------------------------------------------------------- //
// ---  DRAW  ---
// ------------------------------------------------------------- //
SUB DRAW:
 ALPHAMODE 0
 DRAWSPRITE 0, x1, y1
 DRAWSPRITE 0, x2, y2
 SHOWSCREEN
ENDSUB // DRAW