Tiny Maze Maker - ASCII

[SierraKen]

Awesome! 

I decided to go crazy on this and added large animated text only using your CHR$'s. LOL

Code: (Select All)

'Maze Text

'By SierraKen and Bplus

_Title "Maze Text - Esc to quit"

Screen _NewImage(800, 600, 32)

_Font 8

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

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

Next: Next

Color _RGB32(0, 0, 1)

word$ = "QB64pe"

_PrintString (1, 0), word$

letters = Len(word$)

ll = (letters * 8) - 2



dir = 1

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 15 Step s

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

                Color _RGB32(0, 255, 0)

                _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)

---

The tiny little blank area in the upper-left hand corner is intential, because that's where it has to detect the original word at to make the larger one.