Tiny Maze Maker - ASCII

[bplus]

Nice! lets get rid of black hole and change up the colors a bit:

Code: (Select All)

'Maze Text

'By SierraKen and Bplus

_Title "Maze Text - Esc to quit"

Screen _NewImage(800, 600, 32)

_Font 8

prt& = _NewImage(48, 16, 32)

_Dest prt&

Color _RGB32(0, 0, 1)

word$ = "QB64pe"

_PrintString (1, 0), word$

letters = Len(word$)

ll = (letters * 8) - 3

_Dest 0

Color &HFF000000, &HFFAAAAAA

For r = 1 To 75: For c = 1 To 100

        Locate r, c: Print Chr$(Int(Rnd * 2) * 45 + 47);

Next: Next



dir = 1

_Source prt&

Do

    If s > 2 Then dir = 2

    If s < .1 Then dir = 1

    If dir = 1 Then s = s + .1

    If dir = 2 Then s = s - .1



    For I = 1 To 1 + ll Step s

        For j = 0 To 14 Step s

            If Point(I, j) = _RGB32(0, 0, 1) Then

                Color &HFFFFFFFF, &HFF000000

                _PrintString ((I * 8) + 220 - (ll / 2), j * 8 + 50), Chr$(Int(Rnd * 2) * 45 + 47)

            End If

        Next j

    Next I

    _Delay .1

Loop Until InKey$ = Chr$(27)