;*****************************************************************
;**                                                             **
;**  Source Code Generated By Blitz-Case By Richard Jones 1994  **
;**                Code generated on: 05/04/1994                **
;**              Kickstart: 3.0  Processor: 68020               **
;**                                                             **
;*****************************************************************

;*****************************************************************
;**                                                             **
;**                 Blitz-Eyes by Richard Jones                 **
;**                        Version: 1.0                         **
;**  Requirements:-                                             **
;**                         Memory: Any                         **
;**                       Workbench: Any                        **
;**                       Processor: Any                        **
;**                                                             **
;*****************************************************************

NoCli
CloseEd
FindScreen 0

ADDIDCMP $10
Window 0,(ScreenWidth-200)/2,(ScreenHeight-50)/2,200,50,$100e,"Blitz-Eyes",1,2
WEllipse 50,30,30,15,1:WEllipse 150,30,30,15,1
WEllipse 50,30,29,14,1:WEllipse 150,30,29,14,1

Statement _draweyes{}
SHARED eyex,eyey
WJam 2:WEllipse eyex,eyey,16,8,1:WEllipse eyex+100,eyey,16,8,1
WEllipse eyex+4,eyey+4,6,3,2:WEllipse eyex+104,eyey+4,6,3,2:WJam 0
End Statement
Statement _moveeyes{}
SHARED eyex,eyey
Use Window 0
_draweyes{}
x=SMouseX:y=SMouseY
diffx=x-(WindowX+100):diffy=y-(WindowY+30)
eyex=50+(15*(diffx/640)):eyey=30+(10*(diffy/256))
_draweyes{}
End Statement
eyex=50:eyey=30
_draweyes{}
_moveeyes{}
Repeat
ev.l=WaitEvent
Select ev
Case $10
_moveeyes{}
End Select
FlushEvents $10
Until ev=$200