Sega Genesis Game.bex

 OPTION TITLE, "Guessing Game"

 DIM x AS INTEGER
 DIM y AS INTEGER

 DIM level AS INTEGER

 x = 128
 y = 128

 level = 1

 s = addSprite(1, 1)

 PALETTE rgb(255, 255, 255), 0, 0

 propSprite s, 1, 0

 PRINT ""
 PRINT "GUESS WHICH HASH MARK IS THE GOAL."

 DO

    drawTile 76, 10, 0
    drawTile 69, 11, 0
    drawTile 65 + 21, 12, 0
    drawTile 69, 13, 0
    drawTile 76, 14, 0

    IF level = 1 THEN

    drawTile 35, 39, 27
    drawTile 35, 20, 20
    drawTile 35, 10, 10
    drawTile 35, 5, 5
    drawTile 35, 10, 25

    drawTile 49, 16, 0

    END IF

    IF level = 2 THEN

        drawTile 35, 10, 20
        drawTile 35, 20, 10
        drawTile 35, 20, 20

        drawTile 50, 16, 0

    END IF

    IF level = 3 THEN

        drawTile 51, 16, 0

        drawTile 35, 7, 7
        drawTile 35, 8, 8
        drawTile 35, 9, 9
        drawTile 35, 10, 10
        drawTile 35, 11, 11
        drawTile 35, 12, 12
        drawTile 35, 13, 13
        drawTile 35, 14, 14
        drawTile 35, 15, 15
        drawTile 35, 16, 16
        drawTile 35, 17, 17
        drawTile 35, 18, 18
        drawTile 35, 19, 19

        drawTile 35, 7, 7
        drawTile 35, 8, 7
        drawTile 35, 9, 7
        drawTile 35, 10, 7
        drawTile 35, 11, 7
        drawTile 35, 12, 7
        drawTile 35, 13, 7
        drawTile 35, 14, 7
        drawTile 35, 15, 7
        drawTile 35, 16, 7
        drawTile 35, 17, 7
        drawTile 35, 18, 7
        drawTile 35, 19, 7
        drawTile 35, 20, 7

        drawTile 35, 20, 8
        drawTile 35, 20, 9
        drawTile 35, 20, 10
        drawTile 35, 20, 11
        drawTile 35, 20, 12
        drawTile 35, 20, 13
        drawTile 35, 20, 14
        drawTile 35, 20, 15
        drawTile 35, 20, 16
        drawTile 35, 20, 17
        drawTile 35, 20, 18
        drawTile 35, 20, 19
        drawTile 35, 20, 20

    END IF

    IF level = 4 THEN

        drawTile 52, 16, 0

        drawTile 35, 20, 20
        drawTile 35, 34, 25
        drawTile 35, 7, 23
        drawTile 35, 3, 2
        drawTile 35, 2, 2
        drawTile 35, 15, 10

    END IF

    IF level = 5 THEN

        drawTile 53, 16, 0

        drawTile 35, 0, 0
        drawTile 35, 1, 1
        drawTile 35, 2, 2
        drawTile 35, 3, 3
        drawTile 35, 4, 4
        drawTile 35, 5, 5
        drawTile 35, 6, 6
        drawTile 35, 7, 7
        drawTile 35, 8, 8
        drawTile 35, 9, 9
        drawTile 35, 10, 10
        drawTile 35, 11, 11
        drawTile 35, 12, 12
        drawTile 35, 13, 13
        drawTile 35, 14, 14
        drawTile 35, 15, 15
        drawTile 35, 16, 16
        drawTile 35, 17, 17
        drawTile 35, 18, 18
        drawTile 35, 19, 19
        drawTile 35, 20, 20
        drawTile 35, 21, 21
        drawTile 35, 22, 22
        drawTile 35, 23, 23
        drawTile 35, 24, 24
        drawTile 35, 25, 25
        drawTile 35, 26, 26
        drawTile 35, 27, 27
        drawTile 35, 28, 27
        drawTile 35, 29, 27
        drawTile 35, 30, 27
        drawTile 35, 31, 27
        drawTile 35, 32, 27
        drawTile 35, 33, 27
        drawTile 35, 34, 27
        drawTile 35, 35, 27
        drawTile 35, 36, 27
        drawTile 35, 37, 27
        drawTile 35, 38, 27
        drawTile 35, 39, 27
        drawTile 35, 38, 26
        drawTile 35, 37, 25
        drawTile 35, 36, 24
        drawTile 35, 35, 23
        drawTile 35, 34, 22
        drawTile 35, 33, 21
        drawTile 35, 32, 20
        drawTile 35, 31, 19
        drawTile 35, 30, 18
        drawTile 35, 29, 17
        drawTile 35, 28, 16
        drawTile 35, 27, 15
        drawTile 35, 26, 14
        drawTile 35, 25, 13
        drawTile 35, 24, 12
        drawTile 35, 23, 11
        drawTile 35, 22, 10
        drawTile 35, 21, 9
        drawTile 35, 20, 8
        drawTile 35, 19, 7
        drawTile 35, 18, 6
        drawTile 35, 17, 5
        drawTile 35, 16, 4
        drawTile 35, 15, 3
        drawTile 35, 14, 2
        drawTile 35, 13, 1
        drawTile 35, 1, 0
        drawTile 35, 2, 0
        drawTile 35, 3, 0
        drawTile 35, 4, 0
        drawTile 35, 5, 0
        drawTile 35, 6, 0
        drawTile 35, 7, 0
        drawTile 35, 8, 0
        drawTile 35, 9, 0

    END IF

    IF level = 6 THEN

        drawTile 72, 16, 0
        drawTile 73, 17, 0

        'H
        drawTile 72, 0, 2
        drawTile 72, 0, 3
        drawTile 72, 0, 4
        drawTile 72, 0, 5
        drawTile 72, 0, 6
        drawTile 72, 0, 7
        drawTile 72, 0, 8

        drawTile 72, 1, 5
        drawTile 72, 2, 5
        drawTile 72, 3, 5

        drawTile 72, 4, 5
        drawTile 72, 4, 2
        drawTile 72, 4, 3
        drawTile 72, 4, 4
        drawTile 72, 4, 6
        drawTile 72, 4, 7
        drawTile 72, 4, 8

        'I
        drawTile 73, 6, 2
        drawTile 73, 7, 2
        drawTile 73, 8, 2
        drawTile 73, 9, 2
        drawTile 73, 10, 2

        drawTile 73, 8, 3
        drawTile 73, 8, 4
        drawTile 73, 8, 5
        drawTile 73, 8, 6
        drawTile 73, 8, 7

        drawTile 73, 8, 8
        drawTile 73, 6, 8
        drawTile 73, 7, 8
        drawTile 73, 9, 8
        drawTile 73, 10, 8

        '!
        drawTile 2, 12, 8
        drawTile 2, 12, 6
        drawTile 2, 12, 5
        drawTile 2, 12, 4
        drawTile 2, 12, 3
        drawTile 2, 12, 2

    END IF

    IF level = 7 THEN

        drawTile 35, 39, 27
        drawTile 35, 20, 20
        drawTile 35, 10, 10
        drawTile 35, 5, 5
        drawTile 35, 10, 25
        drawTile 35, 10, 20
        drawTile 35, 20, 10
        drawTile 35, 20, 20
        drawTile 35, 7, 7
        drawTile 35, 8, 8
        drawTile 35, 9, 9
        drawTile 35, 10, 10
        drawTile 35, 11, 11
        drawTile 35, 12, 12
        drawTile 35, 13, 13
        drawTile 35, 14, 14
        drawTile 35, 15, 15
        drawTile 35, 16, 16
        drawTile 35, 17, 17
        drawTile 35, 18, 18
        drawTile 35, 19, 19

        drawTile 35, 7, 7
        drawTile 35, 8, 7
        drawTile 35, 9, 7
        drawTile 35, 10, 7
        drawTile 35, 11, 7
        drawTile 35, 12, 7
        drawTile 35, 13, 7
        drawTile 35, 14, 7
        drawTile 35, 15, 7
        drawTile 35, 16, 7
        drawTile 35, 17, 7
        drawTile 35, 18, 7
        drawTile 35, 19, 7
        drawTile 35, 20, 7

        drawTile 35, 20, 8
        drawTile 35, 20, 9
        drawTile 35, 20, 10
        drawTile 35, 20, 11
        drawTile 35, 20, 12
        drawTile 35, 20, 13
        drawTile 35, 20, 14
        drawTile 35, 20, 15
        drawTile 35, 20, 16
        drawTile 35, 20, 17
        drawTile 35, 20, 18
        drawTile 35, 20, 19
        drawTile 35, 20, 20

    END IF

    Darken 0, 1, 0x000002, 5, 1

    'Movement Controls
    IF joypad().0 THEN y = y - 8
    IF joypad().1 THEN y = y + 8
    IF joypad().2 THEN x = x - 8
    IF joypad().3 THEN x = x + 8

    'Quick level switching.
    IF joypad().7 THEN

        CLS
        level = level + 1

    END IF

    'Edge-Of-Screen Collsiion Detection
    IF x < 128 THEN x = 128
    IF x > 128 + 320 - 8 THEN x = 128 + 320 - 8
    IF y < 128 THEN y = 128
    IF y > 128 + 224 - 8 THEN y = 128 + 224 - 8

    IF level = 1 AND x = 128 + 320 - 8 AND y = 128 + 224 - 8 THEN

        CLS
        PRINT "YOU CLEARED THE GOAL!!!!"

        SLEEP 60 * 2

        CLS
        level = 2

        x = 128
        y = 128

    END IF

    IF level = 2 AND x = 288 AND y = 288 THEN

        CLS
        PRINT "YOU CLEARED THE GOAL!!!!"

        SLEEP 60 * 2

        CLS
        level = 3

        x = 128
        y = 128

    END IF

    IF level = 3 AND x = 288 AND y = 288 THEN

        CLS
        PRINT "YOU CLEARED THE GOAL!!!!"

        SLEEP 60 * 2

        CLS
        level = 4

        x = 128
        y = 128

    END IF

    IF level = 4 AND x = 184 AND y = 312 THEN

        CLS
        PRINT "YOU CLEARED THE GOAL!!!!"

        SLEEP 60 * 2

        CLS
        level = 5

        x = 128
        y = 128

    END IF

    IF level = 5 AND x = 256 AND y = 256 THEN

        CLS
        PRINT "YOU CLEARED THE GOAL!!!!"

        SLEEP 60 * 2

        CLS
        level = 6

        x = 128
        y = 128

    END IF

    IF level = 6 AND x = 224 AND y = 192 THEN

        CLS
        PRINT "YOU CLEARED THE GOAL!!!!"

        SLEEP 60 * 2

        CLS
        level = 7

        x = 128
        y = 128

    END IF

    moveSprite s, x, y

    'print x; ", "; y

 LOOP