XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Cursor: Fadenkreuz como Cursor (para Ballerspiele)
declarar 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%) O (%mousey <> y%)

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

    endif

    endpaint

wend