Just a random snippet, its like the little target indicator you might see when clicking on the map in an RTS game.
type Stuff
x as integer
y as integer
flag as boolean
alpha as integer
radius as float
endtype
dim queue(5) as Stuff
qPointer = 1
sync on
sync rate 60
do
cls
if mouseclick() = 1 and mFlag = 0
mFlag = 1
queue(qPointer).x = mousex()
queue(qPointer).y = mousey()
queue(qPointer).flag = 1
queue(qPointer).alpha = 255
queue(qPointer).radius = 0
inc qPointer
if qPointer > 5 then qPointer = 1
endif
if mouseclick() = 0 then mFlag = 0
for i = 1 to 5
if queue(i).flag = 1
inc queue(i).radius, 3
ink rgb(queue(i).alpha, 0, 0),0
circle queue(i).x, queue(i).y, queue(i).radius
ink rgb(queue(i).alpha*2, 0, 0),0
circle queue(i).x, queue(i).y, queue(i).radius/2
ink rgb(queue(i).alpha*3, 0, 0),0
circle queue(i).x, queue(i).y, queue(i).radius/3
dec queue(i).alpha, 15
if queue(i).alpha < 1 then queue(i).flag = 0
endif
next i
sync
loop
"You're not going crazy. You're going sane in a crazy world!" ~Tick