XProfan

Declare Handle imageA[6], btn1, btn2, btn3, tx, edit1, Long x, y, ende, String farben
Declare Handle picbutton[5]
VAR Handle Colors[] = $F30003, $04A3FA, $04FF04, $500AA9, $04F6F9, $FDFFF9
ende = 0

WhileLoop 0, 5

    MCLs 48, 48, Colors[&LOOP]
    imageA[&LOOP] = Create("hSizedPic", 0, "&MEMBMP", 48, 48, 0)

EndWhile

WindowTitle "MALERMEISTER PINSEL STREICHT FENSTER"
Window 900, 900
Cls RGB(0, 0, 0)
tx    = Create("Text",   %HWnd, "Bitte 25 Farbcodes eingeben !", 200, 430, 220, 25)
edit1 = Create("Edit",   %HWnd, "",      200, 460, 240, 25)
btn1  = Create("Button", %HWnd, "Setze", 200, 500, 60, 25)
btn2  = Create("Button", %HWnd, "Neu",   300, 500, 60, 25)
btn3  = Create("Button", %HWnd, "Ende",  200, 560, 60, 25)
x = 10
y = 420
DrawText x, y - 60, "FARBEN (auch zum Anklicken) "

WhileLoop 0, 4

    picbutton[&LOOP] = Create("PicButton", %HWnd, imageA[&LOOP], x, y, 48, 48)
    DrawText x + 70, y + 20, " = " + Str$(&LOOP)
    Inc y, 60

EndWhile

x = 500
y = 400
DrawHaus(x, y)
Dach()

WhileNot ende

    WaitInput

    If Clicked(btn1)

        ' Farben setzen
        farben = GetText$(edit1)

        If Len(farben) > 1

            SetzeFarben(farben, x, y)

        Else

            Messagebox("Nicht genug\nFarben gesetzt !", "Info", 0)

        EndIf

    ElseIf Clicked(btn2)

        x = 500
        y = 400
        DrawHaus(x, y)
        SetText edit1, ""

    ElseIf Clicked(btn3)

        ' ENDE
        ende = 1

    ElseIf Clicked(picbutton[0])

        SetText edit1, GetText$(edit1) + "0"

    ElseIf Clicked(picbutton[1])

        SetText edit1, GetText$(edit1) + "1"

    ElseIf Clicked(picbutton[2])

        SetText edit1, GetText$(edit1) + "2"

    ElseIf Clicked(picbutton[3])

        SetText edit1, GetText$(edit1) + "3"

    ElseIf Clicked(picbutton[4])

        SetText edit1, GetText$(edit1) + "4"

    EndIf

    Case %Key = 2 : ende = 1

EndWhile

Proc DrawHaus

    Parameters Long x, y
    DrawText 10, 10, "Malermeister Pinsel hat einen schwierigen Auftrag angenommen."
    DrawText 10, 30, "Ein Kunde hat ihn gebeten, 25 Fenster seines Hauses mit 5 verschiedenen Farben zu streichen."
    DrawText 10, 50, "Jede Farbe soll gleich oft verwendet werden. In jeder waagrechten und senkrechten Fensterreihe"
    DrawText 10, 70, "müssen 2 Fenster die gleiche Farbe haben. Diese beiden Fenster sollen dann auch noch paarweise"
    DrawText 10, 90, "entweder nebeneinander oder übereinander liegen."
    DrawText 10, 130, "https://www.raetselstunde.de/kunterbunt/denksport-aufgaben/malermeister-pinsel.html"
    UsePen 0, 5, RGB(192, 192, 192)
    RectAngle (x - 10), (y - 10) - (x + 300), (y + 350)

    WhileLoop 0, 4

        WhileLoop 0, 4

            DrawPic imageA[5], x, y; 0
            Inc x, 60

        EndWhile

        x = 500
        Inc y, 60

    EndWhile

    DrawText 550, y + 20, "WWW.raetselstunde.de"

EndProc

Proc SetzeFarben

    Parameters String s, Long x, y
    Declare Long p, z
    z = 1

    WhileLoop 0, 4

        WhileLoop 0, 4

            If z <= Len(s)

                p = VAL(Mid$(s, z, 1))

            Else

                p = 5

            EndIf

            DrawPic imageA[p], x, y; 0
            Inc z
            Inc x, 60

        EndWhile

        x = 500
        Inc y, 60

    EndWhile

    If s = "0012301134122344230023441"

        MessageBox("Sie haben alles\nrichtig gemacht !", "GLÜCKWUNSCH !!!", 0)

    Else

        MessageBox("Leider sind noch\nwelche falsch\noder zu wenig !", "SCHADE !!!", 0)

    EndIf

EndProc

Proc Dach

    Declare Long x1, y1, x2, y2
    x1 = 490
    y1 = 380
    x2 = 800
    y2 = 380
    UsePen 0, 8, RGB(255, 0, 0)

    WhileLoop 1, 15

        Line x1, y1 - x2, y2
        Inc x1, 3
        Inc x2, 3
        Dec y1, 5
        Dec y2, 5

    EndWhile

    UsePen 0, 5, RGB(192, 192, 192)
    Line 485, 380 - 530, 305
    Line 805, 380 - 850, 305

EndProc

End