Jan 26, 2009: Still workin' on it!... As with the rest of my entries, none of this is even close to finished. Here I'm just playing with making a wire-frame dungeon. Kinda like Ak

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    SET DISPLAY MODE 640, 480, 32
drawgrid()
INK RGB(255,255,255),0

`drawHallwayLength6()
`drawHallwayLength5()
`drawHallwayLength4()
`drawHallwayLength3()
drawHallwayLength2()
`drawDoorCenter2Closed()
drawDoorCenter2Open()
drawDoorLeft2Open()

WAIT KEY
END

FUNCTION drawGrid()
   `RED
   INK RGB(255,0,0),0
   LINE 0,0,640,480
   LINE 0,480,640,0
   `GREEN
   INK RGB(0,255,0),0
   LINE 0,120,640,360
   LINE 0,360,640,120
   `BLUE
   INK RGB(0,0,255),0
   LINE 0,240,640,240
   LINE 320,0,320,480
   `YELLOW
   INK RGB(255,255,0),0
   LINE 0,60,640,420
   LINE 0,420,640,60
   `MAGENTA
   INK RGB(255,0,255),0
   `LINE 0,60,640,420
   `LINE 0,420,640,60
   `MAKE SCREEN CENTER DOT
   `INK RGB(255,255,255),0
   `CIRCLE 320,240,2
ENDFUNCTION`drawGrid()

FUNCTION drawHallwayLength6()
    `diag lines
        LINE 0,0,314,235
        LINE 0,480,314,245
        LINE 640,0,327,235
        LINE 640,480,327,245
    `hallway end
        LINE 314,235,327,235
        LINE 314,245,327,245
        LINE 314,235,314,245
        LINE 327,235,327,246
ENDFUNCTION

FUNCTION drawHallwayLength5()
    `diag lines
        LINE 0,0,288,215
        LINE 0,480,288,265
        LINE 640,0,353,215
        LINE 640,480,353,265
    `hallway end
        LINE 288,215,353,215
        LINE 288,265,353,265
        LINE 288,215,288,265
        LINE 353,215,353,266
ENDFUNCTION

FUNCTION drawHallwayLength4()
    `diag lines
        LINE 0,0,247,185
        LINE 0,480,247,295
        LINE 640,0,393,185
        LINE 640,480,393,295
    `hallway end
        LINE 247,185,393,185
        LINE 247,295,393,295
        LINE 247,185,247,295
        LINE 393,185,393,296
ENDFUNCTION

FUNCTION drawHallwayLength3()
    `diag lines
        LINE 0,0,186,140
        LINE 0,480,186,340
        LINE 640,0,454,140
        LINE 640,480,454,340
    `hallway end
        LINE 186,140,454,140
        LINE 186,340,454,340
        LINE 186,140,186,340
        LINE 454,140,454,341
ENDFUNCTION

FUNCTION drawHallwayLength2()
    `diag lines
        LINE 0,0,106,80
        LINE 0,480,106,400
        LINE 640,0,534,80
        LINE 640,480,534,400
    `hallway end
        LINE 106,80,534,80
        LINE 106,400,534,400
        LINE 106,80,106,400
        LINE 534,80,534,401
ENDFUNCTION

FUNCTION drawDoorLeft2Open()
        `ERASE BOTTOM LINE
        INK RGB (0,0,0),0
            LINE 0,482,80,422
            LINE 0,481,80,421
            LINE 0,480,80,420
            LINE 0,479,80,419
            LINE 0,478,80,418
            LINE -1,479,0,479
        `DRAW OUTLINE
        INK RGB(255,255,255),0
            LINE 0,60,80,105
            LINE 80,105,80,420
ENDFUNCTION

FUNCTION drawDoorCenter2Open()
    `outline
        LINE 220,400,220,125
        LINE 420,400,420,125
        LINE 220,125,420,125
        INK RGB(0,0,0),0
        LINE 221,400,420,400
        INK RGB(255,255,255),0
ENDFUNCTION

FUNCTION drawDoorCenter2Closed()
    `OUTLINE
        LINE 220,400,220,125
        LINE 420,400,420,125
        LINE 220,125,420,125
    `WOOD PATTERN ON DOOR
        LINE 228,135,228,390    `LEFT VERTICAL
        LINE 233,135,233,390    `RIGHT VERTICAL
        LINE 228,135,233,135    `UPPER HORIZONTAL
        LINE 228,390,233,390    `LOWER HORIZONTAL
                                `SAME PATTERN BELOW..
        LINE 243,135,243,390
        LINE 248,135,248,390
        LINE 243,135,248,135
        LINE 243,390,248,390

        LINE 258,135,258,390
        LINE 263,135,263,390
        LINE 258,135,263,135
        LINE 258,390,263,390

        LINE 273,135,273,390
        LINE 278,135,278,390
        LINE 273,135,278,135
        LINE 273,390,278,390

        LINE 288,135,288,390
        LINE 293,135,293,390
        LINE 288,135,293,135
        LINE 288,390,293,390

        LINE 303,135,303,390
        LINE 308,135,308,390
        LINE 303,135,308,135
        LINE 303,390,308,390

        LINE 318,135,318,390
        LINE 323,135,323,390
        LINE 318,135,323,135
        LINE 318,390,323,390

        LINE 333,135,333,390
        LINE 338,135,338,390
        LINE 333,135,338,135
        LINE 333,390,338,390

        LINE 348,135,348,390
        LINE 353,135,353,390
        LINE 348,135,353,135
        LINE 348,390,353,390

        LINE 363,135,363,390
        LINE 368,135,368,390
        LINE 363,135,368,135
        LINE 363,390,368,390

        LINE 378,135,378,390
        LINE 383,135,383,390
        LINE 378,135,383,135
        LINE 378,390,383,390

        LINE 393,135,393,390
        LINE 398,135,398,390
        LINE 393,135,398,135
        LINE 393,390,398,390

        LINE 408,135,408,390
        LINE 413,135,413,390
        LINE 408,135,413,135
        LINE 408,390,413,390

    `DELETE THE BOTTOM LINE
        INK RGB(0,0,0),0
        LINE 221,400,420,400
        INK RGB(255,255,255),0

    `DRAW A NEW BOTTOM LINE TO
    `INDICATE THE BOTTOM OF THE
    `CLOSED DOOR
        LINE 220,398,420,398
    `KNOB
        temp = 403
        temp2= 265
        CIRCLE temp,temp2,5
    `BLACK CIRCLES TO ELIMINATE
    `WOOD LINES IN/AROUND THE KNOB
        INK RGB(0,0,0),0
        CIRCLE temp,temp2,0
        CIRCLE temp,temp2,1
        CIRCLE temp,temp2,2
        CIRCLE temp,temp2,3
        CIRCLE temp,temp2,4
        CIRCLE temp,temp2,6
        CIRCLE temp,temp2,7
        CIRCLE temp,temp2,8
        CIRCLE temp,temp2,9
        CIRCLE temp,temp2,10
        CIRCLE temp,temp2,11
        INK RGB(255,255,255),0
ENDFUNCTION

`FUNCTION drawHallwayLength1()
`    INK RGB(255,0,255),0
`    LINE 0,0,640,0
`    LINE 0,479,640,479
`    LINE 0,0,0,479
`    LINE 639,0,639,480
`ENDFUNCTION