; ein kleiner Nervtöter
; Coded by mr x
Const WINDOW_WIDTH = 340 
Const WINDOW_HEIGHT = 100 
Const WINDOW_WIDTH2 = 140 
Const WINDOW_HEIGHT2 = 30 
;Event flags 
Const EVENT_KEYDOWN = $101 ; Key pressed 
Const EVENT_KEYUP = $102 ; Key released 
Const EVENT_KEYCHAR = $103 ; Key generated ASCII character 
Const EVENT_MOUSEDOWN = $201 ; Mouse button pressed 
Const EVENT_MOUSEUP = $202 ; Mouse button released 
Const EVENT_MOUSEMOVE = $203 ; Mouse moved 
Const EVENT_GADGET = $401 ; Gadget clicked 
Const EVENT_MOVE = $801 ; Window moved 
Const EVENT_SIZE = $802 ; Window resized 
Const EVENT_CLOSE = $803 ; Window closed 
Const EVENT_MENU = $1001 ; Menu item selected 
Const EVENT_APP_PAUSED = $2001 ; The app has been suspended (loss windows focus) 
Const EVENT_APP_STARTED = $2002 ; The app has been resumed (regained windows focus) 
;Window creation flags 
Const APP_WINDOW_CREATION_FLAGS = %00001 ;standard window 
Const TOOL_WINDOW_CREATION_GLAGS = %10001 
Global iDesktopWidth=ClientWidth(Desktop()) 
Global iDesktopHeight=ClientHeight(Desktop()) 
wxp=((iDesktopWidth-WINDOW_WIDTH2)/2)+(WINDOW_WIDTH2/4) 
wyp=((iDesktopHeight-WINDOW_HEIGHT2)/2)+(WINDOW_HEIGHT2/4) 
pMainWindow=CreateWindow(\"du kriegst mich nicht!\",wxp,wyp,WINDOW_WIDTH2,WINDOW_HEIGHT2,0,%10000 Or APP_WINDOW_CREATION_FLAGS) 
bDone=False ; This loop is not read to be exited yet 
While bDone=False 
Ev=WaitEvent(2) ; Wait till the 'x' is tapped in the window 
xp=(MouseX()-(WINDOW_WIDTH2/2)) 
yp=(MouseY()-(WINDOW_HEIGHT2/2)) 
dx=Abs(xp-wxp) 
dy=Abs(yp-wyp) 
dist=Sqr(dx*dx + dy*dy) 
If dist<120 
If Abs(wyp-yp)>5 
If wxp<xp ;Window is to the left of the mouse pointer 
wxp=wxp-2 
If wxp<0 Then wxp=0 
Else 
wxp=wxp+2 
If wxp>(iDesktopWidth-WINDOW_WIDTH2) Then wxp=(iDesktopWidth-WINDOW_WIDTH2) 
EndIf 
EndIf 
If wyp<yp ;Window is to the above of the mouse pointer 
wyp=wyp-2 
If wyp<0 Then wyp=0 
Else 
wyp=wyp+2 
If wyp>(iDesktopHeight-WINDOW_HEIGHT2) Then wyp=(iDesktopHeight-WINDOW_HEIGHT2) 
EndIf 
SetGadgetShape pMainWindow,wxp,wyp,WINDOW_WIDTH2,WINDOW_HEIGHT2 
EndIf 
Es=EventSource() 
Select Es ; Source of the event 
Case pMainWindow: 
If Ev=$803 ; X tapped in the main window 
bDone=True 
EndIf 
End Select 
Wend 
FreeGadget pMainWindow 
End