TheGameCreators - CodeBase

Category: 2D

Version: 1.0

Information

Uploaded: 14th Sep 2003 09:41

Modified: 1st Jan 1970 01:00

Author: Richard Davey

Summary

What can I say? I wanted to do a game! Here it is. Columns converted from the Megadrive/Genesis classic. Graphics are ripped direct from the original thanks to Genecyst. The music is a Midi conversion of the Prehistoric Tale music from the Atari ST by Jochen Hippel. Midi conversion by Oedipus.

Full Description

========================================================== A Screaming Product Of The DARKFORGE (www.darkforge.co.uk) ========================================================== Title Columns Version 1.0 Date November 14th 2000 Files columns.dba 23,035 Bytes columns.mid 85,048 Bytes bmpack22.bmp 1,382,456 Bytes font.bmp 192,054 Bytes columns.gif 19,639 Bytes Programmer Richard Davey (rich@fatal-design.co.uk) Music Jochen Hippel (Atari ST original) Oedipus (Midi conversion) Graphics Sega DB Version DarkBasic v1.07 (Registered) License Public Domain Comments What can I say? I wanted to do a game! Here it is. Columns converted from the Megadrive/Genesis classic. Graphics are ripped direct from the original thanks to Genecyst. The music is a Midi conversion of the Prehistoric Tale music from the Atari ST by Jochen Hippel. Midi conversion by Oedipus. All DarkBASIC code by Richard Davey as always. You can learn a lot from the source code and also see how you could expand the game for 2 players - indeed all of the graphics, variables and arrays are already set-up for you! But I'll leave you to figure out the controls :-) If I had had more time I'd like to have added more features such as a high-score table, exploding jewels and not used the nasty text command to display the score but used graphics instead. But I don't have that time right now and I don't want to wait any longer to release this. The code is quite well commented and you'll see how I use an array to track the columns progress and perform the explode checking. This game could easily make it into 3D with a little thought using my exact same routines. If you like it or even hate it, drop me a mail. This is likely to be the last release from us for the year 2000. If that is the case - have a good Christmas everyone! ========================================================== (c) www.darkforge.co.uk 2000 ==========================================================

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`   --------------------------------------------------------------------------

`   Columns                                                 (C) DarkForge 2000

`   --------------------------------------------------------------------------

`   Version 0.22d

`  Music I listened to while coding this game was extensive! But most noteable

`  includes Alanis Morissette (Jagged Little Pill), all of the DJ Pretzel MP3

`  game mixes (from remix.overclocked.org), Bart Klepka MP3 remixes (Shodan!)

`  and Placebo (see them live! They rock!) - the following was my to-do list

`  and if you feel like finishing any off, let me know :-)

`   To Do (* = done in this version) :

`         ADD - Colourful exploding score goes into the blank box

`         ADD - Hi-Score table (and saved to disk)

`         ADD - "How to Play" game menu screen (if title page left untouched)

`         ADD - 2 Player option - 1 keyboard, 1 joystick or both keyboard?

`         ADD - Config screen to set control method and difficulty

`         ADD - Jewels should drop from above the gamegrid!

`         ADD - "Explode" bonus jewel (?)

`         ADD - There is no level advance working yet

`         ADD - The game over graphic should slide up the screen & explode

`         ADD - Change crapy text for graphical font (score, etc)

`         ADD - Let the user use their own MP3 if in directory :-)

`         ADD ^ File and error checking for this required

`  *      ADD - Ability to slide for a few seconds even when landed

`  *      ADD - Control method option (no, make both controllers active)

`  *      BUG - Speed drop key sometimes sticks

`  *      ADD - Firework jewels for the intro screen

`  *      BUG - Highscore doesn't go back to fireworks properly (leaves sprites)

set display mode 320,240,16

hide mouse

sync rate 0

sync on

`   0 = keyboard, 1 = joystick, 2 = both

`   0 = off, 1 = on

`   1 = one player, 2 = 2 players!

`   global arrays so we can access from within functions mainly for 2 player expansion

dim control(1)

dim music(1)

dim players(1)

music(0)=0

control(0)=2

players(0)=1

`   music maestro? (can use mp3 or mid)

if file exist("columns.mp3")

music(0)=1

load music "columns.mp3",1

endif

if file exist("columns.mid")

music(0)=1

load music "columns.mid",1

endif

`   Create our scroll-text fonts, prep it all, etc...

load image "font.bmp",500

paste image 500,0,0

i=165

for y=0 to 32 step 16

for x=0 to 295 step 15

get image i,x,y,x+16,y+16

inc i

next x

next y

dim scrolltext$(20)

dim scrollnext$(20)

dim scrolltemp$(20)

dim scroller_offset#(1)

dim scroller_count(1)

dim scroller_speed#(1)

scroller_offset#(0)=0

scroller_count(0)=0

scroller_speed#(0)=2

getscrolltext(0)

cls 0

load bitmap "bmpack22.bmp",7

`   title1, title2, 1player, jewels, 2player, highscore, gameover

get image 1,640,0,960,240

get image 2,0,240,320,480

get image 3,0,0,320,220

get image 4,637,240,959,256

get image 5,320,0,640,220

get image 6,320,240,640,460

get image 7,640,256,728,270

`   Swap screen

sw=screen width() : sh=screen height()

create bitmap 2,sw,sh

delete bitmap 7

`   Cut out the jewels

`   Image 10 = blank, 11,12,13,14,15,16 = jewels

`   17 = explode, 18,19,20,21 = explosion

paste image 4,0,0

i=10

for x=0 to 192 step 16

get image i,x,0,x+16,16

inc i

next a

cls 0

`   PREP the intro sequence

t=60

dim velocity#(t)

dim acceleration#(t)

dim jump(t)

dim x#(t)

dim speed#(t)

dim y#(t)

dim d(t)

dim jewel(t)

makefire(t,320,240,120)

for a=0 to t

sprite 1000+a,-16,-16,10

set sprite 1000+a,0,1

next a

`   Distort Title Picture on & start intro sequence

if music(0)=1 then loop music 1

startgame:

i=1+rnd(1)

sinewaveon(i)

show all sprites

intro(i,t)

set current bitmap 2

cls 0

set current bitmap 1

cls 0

set current bitmap 0

cls 0

set current bitmap 2

hide all sprites

sync

`   game grid is 6x13 with 16x16 sprites

if players(0)=1

dim grid1(5,12)

dim colour1(5,12)

dim explode1(5,12)

dim jewels1(0)

dim score1(0)

dim t1(12)

x1=144 : y1#=8 : s1#=0.50 : gx1=(x1-112)/16 : gy1=(y1#+24)/16

jewels1(0)=3 : friendly1=0 : difficulty1=5

`   get 3 random jewels to make our droplet

i11=rnd(difficulty1)+11

i21=rnd(difficulty1)+11

i31=rnd(difficulty1)+11

`   get the next 3 (preview pane) too

n11=rnd(difficulty1)+11

n21=rnd(difficulty1)+11

n31=rnd(difficulty1)+11

sprite 1,x1,y1#,i11

sprite 2,x1,y1#+16,i21

sprite 3,x1,y1#+32,i31

show sprite 1

show sprite 2

show sprite 3

endif

if players(0)=2

dim grid2(5,12)

dim colour2(5,12)

dim explode2(5,12)

dim jewels2(0)

dim score2(0)

dim t2(12)

x1=32 : y1#=8 : s1#=0.50 : gx1=(x1-16)/16 : gy1=(y1#+24)/16

jewels1(0)=3 : friendly1=0 : difficulty1=2

x2=144 : y2#=8 : s2#=0.50 : gx2=(x2-112)/16 : gy2=(y#+24)/16

jewels2(0)=3 : friendly2=0 : difficulty2=2

`   get 3 random jewels to make our droplet

i11=rnd(difficulty1)+11

i21=rnd(difficulty1)+11

i31=rnd(difficulty1)+11

i12=rnd(difficulty2)+11

i22=rnd(difficulty2)+11

i32=rnd(difficulty2)+11

`   get the next 3 (preview pane) too

n11=rnd(difficulty1)+11

n21=rnd(difficulty1)+11

n31=rnd(difficulty1)+11

n12=rnd(difficulty2)+11

n22=rnd(difficulty2)+11

n32=rnd(difficulty2)+11

sprite 1,x1,y1#,i11

sprite 2,x1,y1#+16,i21

sprite 3,x1,y1#+32,i31

sprite 4,x2,y2#,i12

sprite 5,x2,y2#+16,i22

sprite 6,x2,y2#+32,i32

show sprite 1

show sprite 2

show sprite 3

show sprite 4

show sprite 5

show sprite 6

endif

keytimer=0 : level=1

for a=0 to 5

for b=0 to 12

colour1(a,b)=10

if players(0)=2 then colour2(a,b)=10

next b

next a

`   set the scene

ink rgb(175,175,0),0

set text font "Arial"

set text size 12

set text opaque

slideallow1=0

if players(0)=1

paste image 3,0,0

for a=0 to 5

for b=0 to 12

paste image 10,112+(a*16),8+(b*16)

next b

next a

paste image n11,88,8

paste image n21,88,24

paste image n31,88,40

else

paste image 5,0,0

for a=0 to 5

for b=0 to 12

paste image 10,16+(a*16),8+(b*16)

next b

next a

paste image n11,88,8

paste image n21,88,24

paste image n31,88,40

endif

copy bitmap 2,0

sync

`   --------------------------------------------------------------------------

`   da main event...

`   --------------------------------------------------------------------------

`   debug info

`   text 0,222,"X: "+str$(gx)+" Y: "+str$(gy)+" Friendly: "+str$(friendly)+"  "

`   temporary score display, etc.

if players(0)=1

text 44,132,str$(score1(0))

text 89,173,str$(level)

text 89,205,str$(jewels1(0))

endif

sprite 1,x1,y1#,i11

sprite 2,x1,y1#+16,i21

sprite 3,x1,y1#+32,i31

ox1=x1 : oy1=y1#

if players(0)=2

sprite 4,x2,y2#,i12

sprite 5,x2,y2#+16,i22

sprite 6,x2,y2#+32,i32

ox2=x2 : oy2=y2#

endif

`  check for control direction

if upkey() or joystick up() then direction=1

if rightkey() or joystick right() then direction=2

if downkey() or joystick down() then direction=3

if leftkey() or joystick left() then direction=4

inc keytimer

if keytimer>=7

if direction=2 and gx1<5 and slideallow1=0

if grid1(gx1+1,gy1+1)=0

inc x1,16

endif

keytimer=0

endif

if direction=4 and gx1>0 and slideallow1=0

if grid1(gx1-1,gy1+1)=0

dec x1,16

endif

keytimer=0

endif

if direction=3 and gy1<13 and slideallow1=0

speed1=1

else

speed1=0

endif

`      rotate the pieces

if direction=1

itemp1=i11

i11=i21

i21=i31

i31=itemp1

keytimer=0

endif

`   down we go

if slideallow1=0

if speed1=0

inc y1#,s1#

else

inc y1#,s1#*4

speed1=0

endif

if players(0)=1

gx1=(x1-112)/16 : gy1=(y1#+24)/16

else

gx1=(x1-16)/16 : gy1=(y1#+24)/16

endif

`   we're at the top so check to see if it's full below us

if gy1=2

if grid1(gx1,gy1+1)=1

goto gameover

endif

`   no? good, lets test for another colour/base of the game grid

if gy1<12

if grid1(gx1,gy1+1)=1 then hit1=1

endif

if gy1=12 then hit1=1

if hit1=1

paste image i11,x1,(gy1*16)-24

paste image i21,x1,(gy1*16)-8

paste image i31,x1,(gy1*16)+8

grid1(gx1,gy1-2)=1

grid1(gx1,gy1-1)=1

grid1(gx1,gy1)=1

colour1(gx1,gy1-2)=i11

colour1(gx1,gy1-1)=i21

colour1(gx1,gy1)=i31

`   here is where we start checking the explode loop

for a=1 to 3

hide sprite a

next a

repeat

e=explode(gx1,gy1)

if e=1

d=dropem()

else

d=0

endif

until d=0

for a=1 to 3

show sprite a

next a

`   get the next set and reset our stuff

if players(0)=2

x1=16

y1#=8

x2=144

y2#=8

else

x1=144

y1#=8

endif

i11=n11

i21=n21

i31=n31

inc friendly1

if friendly1=3

n11=rnd(difficulty1)+11

n21=rnd(difficulty1)+11

n31=n21

friendly1=0

else

n11=rnd(difficulty1)+11

n21=rnd(difficulty1)+11

n31=rnd(difficulty1)+11

endif

paste image n11,88,8

paste image n21,88,24

paste image n31,88,40

if players(0)=1

gx1=(x1-112)/16

gy1=(y1#+24)/16

else

gx1=(x1-16)/16

gy1=(y1#+24)/16

gx2=(x2-112)/16

gy2=(y2#+24)/16

endif

j1=jewels1(0)

inc j1,3

jewels1(0)=j1

hit1=0

sco1=score1(0)

inc sco1,25

score1(0)=sco1

`   gosub progress

endif

`   textgrid()

direction=0

scroller_go()

copy bitmap 2,0

sync

loop

`   Scroll Text Routine

function scroller_go()

scroller_x#=0

for scroll=0 to 20

im=asc(scrolltext$(scroll))

inc im,100

if im=132 then im=191

if im=146 then im=192

if im=144 then im=193

if im=158 then im=194

if im=145 then im=195

if im=143 then im=196

if im=133 then im=197

if im=148 then im=205

if im=149 then im=206

if im=150 then im=207

if im=151 then im=208

if im=152 then im=209

if im=153 then im=210

if im=154 then im=211

if im=155 then im=212

if im=156 then im=213

if im=157 then im=214

paste image im,scroller_offset#(0)+scroller_x#,224

inc scroller_x#,16

next scroll

sotemp#=scroller_offset#(0)

dec sotemp#,scroller_speed#(0)

scroller_offset#(0)=sotemp#

`   dec scroller_offset#,scroller_speed#(0)

if sotemp#=<-16

scroller_offset#(0)=0

getnextcharacter(scroller_count(0))

sctemp=scroller_count(0)

inc sctemp

scroller_count(0)=sctemp

`      inc scroller_count

if sctemp=21

getscrolltext(1)

scroller_count(0)=0

endif

endfunction

function explode(x,y)

`   scan array vertically looking for matching jewels and mark them all

e=0

for a=0 to 5

for b=12 to 2 step -1

tj1=colour1(a,b)

tj2=colour1(a,b-1)

tj3=colour1(a,b-2)

`         we got a match sir!

if tj1>10

if tj1=tj2 and tj2=tj3

grid1(a,b)=99

grid1(a,b-1)=99

grid1(a,b-2)=99

e=1

s=score1(0)

inc s,50

score1(0)=s

endif

next b

next a

`   scan horizontally too

for a=0 to 3

for b=12 to 1 step-1

tj1=colour1(a,b)

tj2=colour1(a+1,b)

tj3=colour1(a+2,b)

if tj1>10

if tj1=tj2 and tj2=tj3

grid1(a,b)=99

grid1(a+1,b)=99

grid1(a+2,b)=99

e=1

s=score1(0)

inc s,50

score1(0)=s

endif

next b

next a

`   scan diagnols, bottom left up to top right

for a=0 to 3

for b=12 to 3 step-1

tj1=colour1(a,b)

tj2=colour1(a+1,b-1)

tj3=colour1(a+2,b-2)

if tj1>10

if tj1=tj2 and tj2=tj3

grid1(a,b)=99

grid1(a+1,b-1)=99

grid1(a+2,b-2)=99

e=1

s=score1(0)

inc s,100

score1(0)=s

endif

next b

next a

`   scan diagnols, bottom right up to top left

for a=5 to 2 step -1

for b=12 to 3 step-1

tj1=colour1(a,b)

tj2=colour1(a-1,b-1)

tj3=colour1(a-2,b-2)

if tj1>10

if tj1=tj2 and tj2=tj3

grid1(a,b)=99

grid1(a-1,b-1)=99

grid1(a-2,b-2)=99

e=1

s=score1(0)

inc s,100

score1(0)=s

endif

next b

next a

endfunction e

function dropem()

d=0

`   2 stage process, first remove all 99 (exploded) jewels

for a=0 to 5

for b=0 to 12

if grid1(a,b)=99

colour1(a,b)=10

grid1(a,b)=0

if players(0)=1

jx=(a*16)+112

jy=(b*16)+8

else

jx=(a*16)+16

jy=(b*16)+8

jx2=(a*16)+112

jy2=(b*16)+8

endif

`   shatter jewels loop

ei=18

repeat

paste image ei,jx,jy

scroller_go()

copy bitmap 2,0

sync

inc ei

until ei=22

paste image 10,jx,jy

`            j=jewels1(0)

`            dec j

`            jewels1(0)=j

d=1

endif

next b

next a

`   now move remainder down

`   check to see if this row is blank

for a=0 to 5

rowcount=0

for b=0 to 12

rowcount=rowcount+colour1(a,b)

next b

if rowcount>130

count=0

for b=0 to 12

tc=colour1(a,b)

if tc>10

if players(0)=1

jx=(a*16)+112

jy=(b*16)+8

else

jx=(a*16)+16

jy=(b*16)+8

jx2=(a*16)+112

jy2=(b*16)+8

endif

t1(count)=tc

paste image 10,jx,jy

colour1(a,b)=10

grid1(a,b)=0

inc count

endif

next b

dec count

rkd=count

for b=12 to 0 step -1

if players(0)=1

jx=(a*16)+112

jy=(b*16)+8

else

jx=(a*16)+16

jy=(b*16)+8

jx2=(a*16)+112

jy2=(b*16)+8

endif

dal=12-b

if t1(dal)>0

paste image t1(rkd),jx,jy

colour1(a,b)=t1(rkd)

grid1(a,b)=1

dec rkd

endif

next b

for b=0 to 12

t1(b)=0

next b

scroller_go()

copy bitmap 2,0

sync

endif

next a

endfunction d

function textgrid()

x=340 : y=0

for a=0 to 12

for b=0 to 5

text x,y,str$(colour1(b,a))+"  "

text x+140,y,str$(grid1(b,a))

inc x,20

next b

inc y,20

x=340

next a

endfunction

function sinewaveon(im)

set current bitmap 2

paste image im,0,0

for i=1 to 240

get image 499+i,0,i-1,320,i

next i

cls 0

step#=8.0 : sx=0 : speed=6 : o#=25

t=timer()

repeat

cls 0

si=500

for i=1 to 240

paste image si,sin(sx+i*step#)*o#,i-1

inc si

next i

inc sx,speed

copy bitmap 2,0

if timer()=>t+25

dec step#,0.05

dec o#,0.25

t=timer()

endif

skip=0

if scancode()<>0 then skip=1

if joystick fire a()=1 then skip=1

sync

until step#<=3 or skip=1

paste image im,0,0

copy bitmap 2,0

sync

repeat

until scancode()=0

endfunction

`   Scroll text routine to kick things off

function getscrolltext(c)

if c=0

read line$

if line$="*"

restore

read line$

endif

read line2$

if line2$="*"

restore

read line2$

endif

for a=0 to 20

scrolltext$(a)=mid$(line$,1+a)

scrollnext$(a)=mid$(line2$,1+a)

next a

else

read line$

if line$="*"

restore

read line$

endif

for a=0 to 20

scrollnext$(a)=mid$(line$,1+a)

next a

endif

endfunction

`   Scroll text routine to get the next character and shuffle stuff

function getnextcharacter(c)

for a=0 to 20

scrolltemp$(a)=scrolltext$(a)

next a

for a=0 to 19

scrolltext$(a)=scrolltemp$(1+a)

next a

scrolltext$(20)=scrollnext$(c)

endfunction

`   Intro Sequence

function intro(b,t)

start=timer()

set current bitmap 0

w=320

h=240

xh=120

for a=1 to 6

if sprite exist(a) then hide sprite a

next a

paste image b,0,0

for a=0 to t

if jump(a)=0

velocity#(a)=9.0+rnd(10)

jump(a)=1

endif

if jump(a)=1

if velocity#(a)!-10

velocity#(a)=velocity#(a)-acceleration#(a)

endif

y#(a)=y#(a)-velocity#(a)

endif

temp_x#=x#(a)

temp_s#=speed#(a)

if y#(a)>h

y#(a)=h

else

if d(a)=1

inc temp_x#,temp_s#

else

dec temp_x#,temp_s#

endif

x#(a)=temp_x#

endif

sprite 1001+a,x#(a),y#(a),jewel(a)

next a

if timer()=>start+2500+rnd(1000)

makefire(t,320,240,120)

start=timer()

endif

if joystick fire a()=1 or scancode()>0 then exitfunction

sync

loop

endfunction

function makefire(t,w,h,xh)

for a=0 to t

velocity#(a)=0

acceleration#(a)=0.5

jump(a)=0

x#(a)=xh+10+rnd(xh/2)

speed#(a)=rnd(4)

y#(a)=150+rnd(40)

d(a)=rnd(1)

jewel(a)=11+rnd(6)

next a

endfunction

`   Game Over Routine and HighScore Table Display

gameover:

paste image 7,116,120

hide all sprites

copy bitmap 2,0

sync

repeat

scroller_go()

copy bitmap 2,0

sync

until joystick fire a()=1 or scancode()>0

`   do the mass explode thing

ei=18

repeat

for a=12 to 0 step -1

for b=0 to 5

jx=(b*16)+112

jy=(a*16)+8

paste image ei,jx,jy

next b

scroller_go()

copy bitmap 2,0

sync

next a

inc ei

until ei=22

scroller_go()

copy bitmap 2,0

sync

for a=0 to 5

for b=0 to 12

paste image 10,112+(a*16),8+(b*16)

next b

next a

scroller_go()

copy bitmap 2,0

sync

repeat

scroller_go()

copy bitmap 2,0

sync

until joystick fire a()=1 or scancode()>0

cls 0

goto startgame

`   **************************************************** PROGRESS!

`  This part isn't used yet, but could be

progress:

if sco1>=2500 and difficulty1=2

inc difficulty1

endif

if sco1=>5000 and difficulty1=3

inc difficulty1

endif

if sco1=>10000 and difficulty1=4

inc difficulty1

endif

if sco1=>10000 and s1#=0.5

inc s1#,0.25

endif

if sco1=>50000 and s1#=0.75

inc s1#,0.25

endif

return

`  Scroll text data, terminated by an asterisk

`  20 characters per line

data "                 ... "

data "DARKFORGE PRESENTS TO"

data " YOU A DARKBASIC CONV"

data "ERSION OF A SEGA CLAS"

data "SIC + COLUMNS +      "

data "ALL CODE BY REQUIEM +"

data "RICHARD DAVEY+, GRAPH"

data "ICS DIRECT FROM THE C"

data "ONSOLE AND MUSIC BY J"

data "OCHEN HIPPEL FROM THE"

data " ATARI ST!           "

data "THIS MIGHT NOT BE A V"

data "ERY COMPLETE GAME, BU"

data "T IT IS STILL DAMN FU"

data "N TO PLAY AND IS JUST"

data " BEGGING FOR SOMEONE "

data "TO GIVE IT A LITTLE L"

data "OVE AND ATTENTION TO "

data "FINISH IT OFF. THE CO"

data "DE SHOULD BE COMMENTE"

data "D ENOUGH AND IT IS RE"

data "ADY AND WAITING FOR T"

data "HE 2 PLAYER OPTION TO"

data "BE ADDED!            "

data "THIS IS PROBABLY THE "

data "LAST RELEASE FROM DAR"

data "KFORGE FOR THE YEAR 2"

data "000 + IT HAS BEEN A G"

data "REAT YEAR AND WE HAVE"

data " HAD MUCH FUN WITH DA"

data "RKBASIC. IN IT WE REL"

data "EASED OVER 50 DIFFERE"

data "NT PIECES OF CODE INC"

data "LUDING MANY ROUTINES "

data "FIRST SEEN, THE FASTE"

data "ST 2D EVER RELEASED A"

data "ND ALWAYS WE MAKE OUR"

data " SOURCE OPEN AND FREE"

data " - YOU WILL NOT FIND "

data "AN EXE ONLY FILE ON O"

data "UR SITE! NO ONE CAN L"

data "EARN WITHOUT SEEING T"

data "HE REAL CODE.        "

data "2001 SHOULD BRING SOM"

data "E MORE FROM THE FORGE"

data " THAT NEVER SLEEPS..."

data " BUT UNTIL THAT TIME "

data "IT JUST REMAINS FOR M"

data "E TO WISH YOU ALL A H"

data "APPY CHRISTMAS, A GOO"

data "D NEW YEAR AND KEEP O"

data "N CODING!!!          "

data "... BIG HELLOS FLY OU"

data "T TO ... ALL ON THE I"

data "RC CHANNEL + RAIAK + "

data "ASMPROGRAMMER + TRACE"

data "R + CHRIS + SOLIN + W"

data "ARPY + HUDBULE + SI +"

data " AND THE REST OF THE "

data "GANG. JOIN US ON IRC."

data "CJB.NET PORT 6667 !!!"

data "                THAT "

data "IS ALL FOR NOW. SEE Y"

data "OU SOON.             "

data "*"

Download

Please login to download

Comments

No comments yet.

CodeBase - Columns

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Richard Davey
CodeBase Entries:	57