XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Cursor: Fadenkreuz as Cursor (for Ballerspiele)
declare end%,x%,y%
window 100,100-500,500
showcursor 0
x% = %mousex
y% = %mousey

whilenot end%

    sleep 10

    if %Scankey = 27

        end% = 1

    endif

    startpaint %HWND

    if (%mousex <> x%) OR (%mousey <> y%)

        x% = %mousex
        y% = %mousey
        loadbmp scenary.bmp,0,0;0
        loadbmp fadenkreuz.bmp,(%mousex-15),(%mousey-15);-1

    endif

    endpaint

wend