haha, I made it into a frog that eats the mouse (actually a fly) when you click.
`setup
hide mouse
sync on : sync rate 60
set display mode 1024,768,32
`main loop
do
ink rgb(255,0,255),0
`eyes
drawEye(500,300,100,mousex(),mousey(),10)
drawEye(700,300,100,mousex(),mousey(),10)
ink rgb(0,255,0),0
circle 500,300,300
Ang=wrapvalue(Ang+Mousemovex()/8 )
Ang2=wrapvalue(ANG2+mousemovey()/8 )
ellipse 550,550,abs(50*COS(ANG2)),abs(20*Cos(ANG))
if mouseclick()
line 550, 550, mousex(), mousey()
eaten = 1
endif
ink rgb(255,0,0),0
if eaten = 0
box mousex()-2,mousey()-2,MouseX()+2,Mousey()+2
else
endif
sync
cls
loop
function drawEye(x,y,s,mx,my,er)
local a as float
local d as float
local dx as float : local dy as float
circle x,y,s
a=atanfull(mx-x,my-y)
d=sqrt((mx-x)^2+(my-y)^2)
if d<s
dx=mx : dy=my
else
dx=x+(sin(a)*(s-(er/2))) : dy=y+(cos(a)*(s-(er/2)))
endif
circle dx,dy,er
endfunction
Confucius Say...Programmer who makes genetic programming system loses job
