--SCRIPT ORBITAL CLASS
property myType
property mySprite
property myRadius
property myAngle
property MyFactor
property myIncrement
on new me,channelnum
add the actorlist, me
set myIncrement=random(3)*0.99
set z =random(2)
if Z > 1 then set myIncrement=myIncrement*-1
set mySprite=channelnum
puppetSprite mySprite, TRUE
set the forecolor of sprite mysprite = random(256)
set myType=#Orbital
set myRadius=random(160)
set myAngle=(random(6)/3.0)*pi()
set MyFactor = 1.001
end new
on stepFrame me
orbit me
move me
end stepFrame
on move me
set myAngle=myAngle+myIncrement
set the locH of sprite mySprite to 160+cos(myAngle)*myRadius
set the locV of sprite mySprite to 160+sin(myAngle)*myRadius
end move
on orbit me
set myRadius=myRadius*MyFactor
if myRadius > 160-mysprite*10 then
set MyFactor = 0.999
end if
if myRadius < mysprite*10 then
set MyFactor = 1.001
end if
end orbit