XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Cursor: Fadenkreuz als Cursor (für Ballerspiele)
declare ende%,x%,y%
window 100,100-500,500
showcursor 0
x% = %mousex
y% = %mousey

whilenot ende%

    sleep 10

    if %Scankey = 27

        ende% = 1

    endif

    startpaint %HWND

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

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

    endif

    endpaint

wend