`-------------------
`---Irojo's Entry---
`-------------------
`=-Thanks To Obese-=
`-------------------
 
`-----Sync-----
sync on
sync rate 0
`-----|Sync|-----
 
 
 
ink rgb(255,255,255),0
 
hide mouse
 
 
 
`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
while scancode()=0 and mouseclick()=0
   cls
    ink rgb(255,255,255),0
    green=rnd(20)
     if green=1 then ink rgb(0,rnd(255),0),0
     if mouseclick()=2 then position mouse 320,240
    circle mousex(),mousey(),rnd(500)+1
     if trigger<>1 then x=x+inricatevalue#
     if x>=658 and trigger2=0 then y=y+inricatevalue#
     if x>=658 then trigger=1
    line mousex(),mousey(),x,y
     if y>=500 then trigger2=1
     if trigger2=1 then x=x-inricatevalue#
     if x=0 and y>=500 and trigger2=1 then trigger3=1
     if trigger3=1 then y=y-inricatevalue#
     if trigger3=1 then trigger2=0
     if y=0 and x=0
      trigger=0
      trigger2=0
      trigger3=0
     endif
  sync
endwhile
 
end