in less than 20 my first one - GameCreators Forum

Author

Message

DarKLE

20

Years of Service

User Offline

Joined: 16th Jun 2004

Location:

Posted: 10th Oct 2004 02:31

Link

ok this is my first 20 line program its kinda badbecause i just started programming with Db again(i quit for awhile) but click at the bottom for the source code

what do we burn apart from witches. MORE WITCHES!

Back to top

Profile PM Email

DarKLE

20

Years of Service

User Offline

Joined: 16th Jun 2004

Location:

Posted: 10th Oct 2004 09:25

Link

post please i wrote in just 11 lines of code and its my first one at least compliment me on that

what do we burn apart from witches. MORE WITCHES!

Back to top

Profile PM Email

DarKLE

20

Years of Service

User Offline

Joined: 16th Jun 2004

Location:

Posted: 11th Oct 2004 06:08

Link

day 3 still no answer i think my dog hates me im afraid of my bathtub

what do we burn apart from witches. MORE WITCHES!

Back to top

Profile PM Email

BiggAdd

Retired Moderator

20

Years of Service

User Offline

Joined: 6th Aug 2004

Location: != null

Posted: 12th Oct 2004 06:58

Link

Cool....... its a good start.... reminds me of my first program..... but i had a sphere...... and icouldn't rotate it.... because i was rubbish....... Simple programs can sometimes be the best........ chect out my Dark goo post in Code snipets.... a few lines can go a long way...... good work!

Back to top

Profile PM

DarKLE

20

Years of Service

User Offline

Joined: 16th Jun 2004

Location:

Posted: 12th Oct 2004 07:34

Link

im not completely done yet i still a bit more to write itll be much better i post the finished product soon

http://www.freewebs.com/warhammered/image2.jpg

Back to top

Profile PM Email

They Killed Kenny

20

Years of Service

User Offline

Joined: 18th Jul 2004

Location: FL, USA

Posted: 15th Oct 2004 06:51

Link

Is it soon yet?

Back to top

Profile PM Website

The Nerd

20

Years of Service

User Offline

Joined: 5th Jun 2004

Location: Denmark

Posted: 15th Oct 2004 08:46

Link

please post it when you done

The Nerd

i make games, i play games... But the fun thing is that i like to make them more than play them....

Back to top

Profile PM Email

Kivu_Rako

20

Years of Service

User Offline

Joined: 10th May 2004

Location:

Posted: 2nd Nov 2004 07:24

Link

YES!!!
SIEZURE PROGRAM!!!
W00T
w00t
woot
oo
anywho....
awesome siezure program

"geez, its probably a noobish mistake too!"

Back to top

Profile PM

Ilya

21

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 2nd Nov 2004 09:27

Link

Look at dis:

+ Code Snippet

SET DISPLAY MODE 640,480,32
SET WINDOW OFF
sync on
randomize timer()
for x=0 to screen width()
for y=0 to screen height()
i=i+1
if i=1 then ink rgb(0,0,0),rgb(0,0,0)
if i=2 then ink rgb(255,255,255),rgb(255,255,255) : i=0
box x-1,y-1,x+1,y+1
next y
if mousex()<x then position mouse x,mousey()
sync
next x
hide mouse
set text size 45
ink rgb(255,255,255),rgb(255,255,255)
center text screen width()/2,screen height()/2,"DIE!!!!"
ink 0,0
do
set gamma rnd(255),rnd(255),rnd(255)
x=rnd(screen width())
y=rnd(screen height())
box x-5,y-5,x+5,y+5
sync
loop

Quote: "I've seen the word programming and I'm not sure what it means. Anybody please explain?"

Quote: "We shouldn't sacrifice the truth to preserve "balance"."

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 16th Nov 2004 05:24

Link

@ Both of those..

OMFG.. MY EYES ARE BLEEDING!! FFS!!

My Website:

http://www.thingy-ma-jig.co.uk

Back to top

Profile PM Email Website

blanky

20

Years of Service

User Offline

Joined: 3rd Aug 2004

Location: ./

Posted: 30th Nov 2004 06:07

Link

You're gonna run out of black squares eventually....

Anyway, I kinda went a bit overdrive... and... well...

Enjoy epileptic fit version two point nought...

`ehehe...
disable escapekey

`EPILEPTIC FIT v2.0
`set window on

print "EPILEPTIC FIT"
print "VERSION TWO POINT NOUGHT!!!!!!!!!!!!!!!!!!!!!!"
print "!!!!!!!!!!!!!!!!!!!!!!"
print "!!!!!!!!!!!!!!!!!!!!"
print "Press a key"
wait key

`put this in
`smoother & cooler EVERYTHING
sync on
`if you were making something time-critical (e.g., bomb), you would
`say '55' (frames per second) instead or something rather than 0 which is MAX!!!!
sync rate 0

i=1

for i=1 to 3
	load sound "c:\windows\media\chimes.wav",i
next i

for i=4 to 12
	load sound "c:\windows\media\notify.wav",i
next i

for i=13 to 56
	load sound "c:\windows\media\ding.wav",i
next i

for i=57 to 61
	load sound "c:\windows\media\recycle.wav",i
next i

for i=62 to 101
	load sound "c:\windows\media\start.wav",i
next i

Make object cube 1,77
b=0

fog on

do
b=b+1
if b=100
	get image 1,0,0,screen width()-1,screen height()-1
	`color object 1,rnd(16000000) 
	texture object 1,1
color backdrop rnd(16000000)

fog color rnd(16000000)
	b=0
endif	
Xrotate object 1,object angle X(1)+1

`BlEeD!!!
set camera fov ((b+1)/5)+1
fog distance (b+1)*5

set gamma 255-rnd(255),255-rnd(255),255-rnd(255)

if sound exist((b+1))=1
	play sound b+1
endif

loop

+ Code Snippet

`ehehe...
disable escapekey

`EPILEPTIC FIT v2.0
`set window on

print "EPILEPTIC FIT"
print "VERSION TWO POINT NOUGHT!!!!!!!!!!!!!!!!!!!!!!"
print "!!!!!!!!!!!!!!!!!!!!!!"
print "!!!!!!!!!!!!!!!!!!!!"
print "Press a key"
wait key

`put this in
`smoother & cooler EVERYTHING
sync on
`if you were making something time-critical (e.g., bomb), you would
`say '55' (frames per second) instead or something rather than 0 which is MAX!!!!
sync rate 0

i=1

for i=1 to 3
	load sound "c:\windows\media\chimes.wav",i
next i

for i=4 to 12
	load sound "c:\windows\media\notify.wav",i
next i

for i=13 to 56
	load sound "c:\windows\media\ding.wav",i
next i

for i=57 to 61
	load sound "c:\windows\media\recycle.wav",i
next i

for i=62 to 101
	load sound "c:\windows\media\start.wav",i
next i

Make object cube 1,77
b=0

fog on

do
b=b+1
if b=100
	get image 1,0,0,screen width()-1,screen height()-1
	`color object 1,rnd(16000000) 
	texture object 1,1
color backdrop rnd(16000000)

fog color rnd(16000000)
	b=0
endif	
Xrotate object 1,object angle X(1)+1


`BlEeD!!!
set camera fov ((b+1)/5)+1
fog distance (b+1)*5

set gamma 255-rnd(255),255-rnd(255),255-rnd(255)

if sound exist((b+1))=1
	play sound b+1
endif



loop

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / in less than 20 my first one