--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