XProfan

Was meinst du mit aufräumen? Ist er den nicht aufgeräumt?

Proc QuadratKoordinaten

    Parameters a%,b%' das sind die virtuellen Koordinaten der Quadrate (also 1,1 oder 0,2)
    Declare Wert$

    If Between(%mousex,a% * Breite%,(a% + 1) * Breite%, %mousey, b% * Hoehe%,  (b% + 1) * Hoehe%)

        'hier werden die tatsächlichen X/Y-Koordinaten ermittelt
        Wert$ = Str$(%mousex \ Breite% * Breite%) + " " + Str$(%mousey \ Hoehe% * Hoehe%)

    EndIf

    Return Wert$

EndProc

Proc MouseAbfrage

    WhileLoop 0,Anzahl%-1

        WhileLoop 0,Anzahl%-1

            Test$ = QuadratKoordinaten(&Loop,l%)

            If Test$ > " "

                x% = Val(SubStr$(Test$,1," "))
                y% = Val(SubStr$(Test$,2," "))
                Break

            EndIf

            Test$ = " "

        Wend

        Case Test$ > " ":Break
        Inc l%

    Wend

    Clear l%
    'WindowTitle Test$ ' zur Kontrolle werden die X/Y-Koordinaten in der Titelleiste gezeigt

EndProc

Proc Bewegen

    Parameters x1%,y1%
    'innerhalb des Fensters bleiben

    If ((x1% > -1) And (y1% > -1)) And (((x1% + Breite%) <= Width(%hwnd)) And ((y1% + Hoehe%) <= Height(%hwnd)))

        SetWindowPos hAnzeige&,x1%,y1%
        x% = x1%
        y% = y1%
        x_alt% = x1%
        y_alt% = y1%

    EndIf

EndProc

Randomize
WindowStyle 2 | 8 | 16' | 512
Window 100,100 - 806,600 + %cyCaption + 6' Fenster kann man auch beliebig einstellen
Declare l%,Test$,x%,y%,x_alt%,y_alt%,Breite%,Hoehe%,Anzahl%
Declare i1%,i2%
Anzahl% = 4' hier kann man die Anzahl der Felder einstellen. Anzahl% = 4 ergibt 16 Felder
Breite% = (Width(%hwnd) / Anzahl%,0)
Hoehe% = (Height(%hwnd) / Anzahl%,0)
SetWindowPos %hwnd = %winleft,%wintop - (Anzahl% * Breite% + 6),(Anzahl% * Hoehe% + %cyCaption + 6)' Rundungsfehler ausgleichen
x_alt% = Rnd(Anzahl%) * Breite%
y_alt% = Rnd(Anzahl%) * Hoehe%
Var hPic& = Create("hNewPic",Breite%,Hoehe%,$0F00FF)
Var hAnzeige& = Create("Bitmap",%hwnd,hPic&,x_alt%,y_alt%)

While 1

    WaitInput
    Locate 1,1
    Case %Mousepressed = 1:MouseAbfrage()

    If %key = 2

        Break

    ElseIf Test$ > " "

        i1% = Abs(x_alt% - x%)' <= 100
        i2% = Abs(y_alt% - y%)' <= 100

        If ((i1% + i2%) = Breite%) | ((i1% + i2%) = Hoehe%)

            SetWindowPos hAnzeige&,x%,y%
            x_alt% = x%
            y_alt% = y%

        EndIf

        Test$ = " "

    ElseIf IsKey(37)

        Bewegen(x_alt% - Breite%,y_alt%)

    ElseIf IsKey(38)

        Bewegen(x_alt%,y_alt% - Hoehe%)

    ElseIf IsKey(39)

        Bewegen(x_alt% + Breite%,y_alt%)

    ElseIf IsKey(40)

        Bewegen(x_alt%,y_alt% + Hoehe%)

    EndIf

Wend

whileloop 1,part_x&,If((part_x& Mod 2)=0,2,1)

    space&=Create("hNewPic", &loop, part_y&, Back_Color())
    DrawPic space&, ((spalte_&-1)*part_x&), (zeile_&-1)*part_y&; 0
    DrawPic pic_part&[i_&], ((spalte_&-1)*part_x&)+&loop, (zeile_&-1)*part_y&; 0
    DeleteObject space&

EndWhile