XProfan

EX% / EY% = Anzahl der Spalten / Zeilen, jeweils -1
var ex% = 4
var ey% = 3
Der Rest ergibt sich von selbst
var dx% = %MaxX / (ex% + 1)
var dy% = %MaxY / (ey% + 1)
var x% = ex%
var y% = ey%
var altdir% = 0
declare dir% , bed% , gis%
WindowStyle 1024 + 240
Window 0 , 0 - %MaxX , %MaxY + 5
WindowTitle Bildschirmschoner
Randomize
UseBrush 1 , 0
ShowCursor 0
Entfernen der unbenötigten Teile
Rectangle (ex%+1)*dx%,0 - %MaxX,%MaxY
Rectangle 0,(ey%+1)*dy% - %MaxX,%MaxY
Rectangle ex%*dx%,ey%*dy%-(ex%+1)*dx%,(ey%+1)*dy%

while gis% < 10

    clear bed%
    altdir% = dir%

    repeat

        dir% = Rnd(4) ^0 v1 <2 >3
        case ((dir% = 0) and (y% <> 0)) : inc bed%
        case ((dir% = 1) and (y% <> ey%)) : inc bed%
        case ((dir% = 2) and (x% <> 0)) : inc bed%
        case ((dir% = 3) and (x% <> ex%)) : inc bed%
        case ((altdir% + dir% = 1) or (altdir% + dir% = 5)) : clear bed%

    until bed%

    Select dir%

        CaseOf 0 HOCH

        whileloop ((y% - 1) * dy%) , ((y% * dy%) - 1) , 1

            CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop + 1) ; 0
            Line (x% * dx%) , &loop - (((x% + 1) * dx%) - 1) , &loop
            case %GetInputState : inc gis%
            Sleep 1

        EndWhile

        dec y%

        CaseOf 1 RUNTER

        whileloop ((y% + 1) * dy%) , ((y% * dy%) + 1) , (-1)

            CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop - 1) ; 0
            Line (x% * dx%) , (&loop + dy% - 1) - (((x% + 1) * dx%) - 1) , (&loop + dy% - 1)
            case %GetInputState : inc gis%
            Sleep 1

        EndWhile

        inc y%

        CaseOf 2 LINKS

        whileloop ((x% - 1) * dx%) , ((x% * dx%) - 1) , 1

            CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop + 1) , (y% * dy%) ; 0
            Line &loop , (y% * dy%) - &loop , (((y% + 1) * dy%) - 1)
            case %GetInputState : inc gis%
            Sleep 1

        EndWhile

        dec x%

        CaseOf 3 RECHTS

        whileloop ((x% + 1) * dx%) , ((x% * dx%) + 1) , (-1)

            CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop - 1) , (y% * dy%) ; 0
            Line (&loop + dx% - 1) , (y% * dy%) - (&loop + dx% - 1) , (((y% + 1) * dy%) - 1)
            case %GetInputState : inc gis%
            Sleep 1

        EndWhile

        inc x%

    EndSelect

    case %GetInputState : inc gis%

wend

ShowCursor 1
end

EX% / EY% = Anzahl der Spalten / Zeilen, jeweils -1
declare ex%,ey%
ex% = 4
ey% = 3
Das sieht auch recht nett aus:
ex% = 19
ey% = 13
Der Rest ergibt sich von selbst
declare dx%,dy%,x%,y%,altdir%
dx% = %MaxX / (ex% + 1)
dy% = %MaxY / (ey% + 1)
x% = ex%
y% = ey%
altdir% = 0
declare dir% , bed% , gis%
###########################################################
WindowStyle 1024 + 240
Window 0 , 0 - %MaxX , %MaxY + 5
WindowTitle Bildschirmschoner
Randomize
UseBrush 1 , 0
ShowCursor 0
Entfernen der unbenötigten Teile
Rectangle (ex%+1)*dx%,0 - %MaxX,%MaxY
Rectangle 0,(ey%+1)*dy% - %MaxX,%MaxY
Rectangle ex%*dx%,ey%*dy%-(ex%+1)*dx%,(ey%+1)*dy%

while gis% < 10

    clear bed%
    altdir% = dir%

    whilenot bed%

        dir% = Rnd(4)^0 v1 <2 >3
        case ((dir% = 0) and (y% <> 0)) : inc bed%
        case ((dir% = 1) and (y% <> ey%)) : inc bed%
        case ((dir% = 2) and (x% <> 0)) : inc bed%
        case ((dir% = 3) and (x% <> ex%)) : inc bed%
        case ((altdir% + dir% = 1) or (altdir% + dir% = 5)) : clear bed%

    endwhile

    if dir% = 0HOCH

        whileloop ((y% - 1) * dy%) , ((y% * dy%) - 1) , 1

            CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop + 1) ; 0
            Line (x% * dx%) , &loop - (((x% + 1) * dx%) - 1) , &loop
            case %GetInputState : inc gis%
            Sleep 1

        EndWhile

        dec y%

    elseif dir% =  1RUNTER

        whileloop ((y% + 1) * dy%) , ((y% * dy%) + 1) , (-1)

            CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop - 1) ; 0
            Line (x% * dx%) , (&loop + dy% - 1) - (((x% + 1) * dx%) - 1) , (&loop + dy% - 1)
            case %GetInputState : inc gis%
            Sleep 1

        EndWhile

        inc y%

    elseif dir% = 2LINKS

        whileloop ((x% - 1) * dx%) , ((x% * dx%) - 1) , 1

            CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop + 1) , (y% * dy%) ; 0
            Line &loop , (y% * dy%) - &loop , (((y% + 1) * dy%) - 1)
            case %GetInputState : inc gis%
            Sleep 1

        EndWhile

        dec x%

    elseif dir% =  3RECHTS

        whileloop ((x% + 1) * dx%) , ((x% * dx%) + 1) , (-1)

            CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop - 1) , (y% * dy%) ; 0
            Line (&loop + dx% - 1) , (y% * dy%) - (&loop + dx% - 1) , (((y% + 1) * dy%) - 1)
            case %GetInputState : inc gis%
            Sleep 1

        EndWhile

        inc x%

    elseif %GetInputState

        inc gis%

    endif

endwhile

ShowCursor 1
end