TheGameCreators - CodeBase

Category: Miscellaneous

Version: 0.01

Information

Uploaded: 12th Nov 2008 21:08

Modified: 15th Nov 2013 20:29

Author: MaPo

Summary

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 Akalabeth.

Full Description

DarkBASIC Professional Source Code

` 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

Download

Please login to download

Comments

No comments yet.

CodeBase - Black Dungeon

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	MaPo
CodeBase Entries:	14