The Game Creators
The Game Creators Home Online Shop Click to Login
  Hot: Christmas CompetitionNovember NewsletterModel Pack 36DB Pro Pack 2009DGS BonanzaCharacter PackFPS Creator Bonanza;
The Game Creators
Code Snippets / My first graphic demo thing, tell me what you think...

Go to the first page of this board Return to the Forum Menu Post Message
18 Messages - Page   of 1   
Bookmark and Share Search the Forum

Author Message
NathanF

User


Joined: Wed Mar 24th 2004
Location: Melbourne, Australia
Posted: 6th Jan 2005 08:53     Edited: 9th Jan 2005 23:36     | link | toggle

This is a sorta graphics demo I made in the last half hour, using circles and lines instead of clearing the screen to make a nice effect. The mouse emits a shadow from the screen center. If you point near the middle of the screen, the screen will be cleared normally. Also, by pressing the left mouse button you turn on a falling character thing like in the matrix. Anyways, hope ya like it

Edited:
+ Code Snippet
set display mode 1024,768,16
hide mouse
sync on
sync rate 0
colchr=rnd(200)+20
colchg=rnd(200)+20
colchb=rnd(200)+20
dim txt(90,3)
for t=1 to 90
   txt(t,0)=rnd(300)+32
   txt(t,1)=rnd(1024)
   txt(t,2)=rnd(1536)
   txt(t,3)=3+rnd(4)
next t
set text font "Symbol"
set text size 26
set text to bold
do
inc speed#
if speed#>1000 then speed#=1000
inc g#,speed#/1000
inc ci
if colchra=0
   inc colchr,rnd(1)+1
   if colchr>250 then colchra=1
else
   dec colchr,rnd(1)+1
   if colchr<2 then colchra=0
endif
if colchga=0
   inc colchg,rnd(1)+1
   if colchg>250 then colchga=1
else
   dec colchg,rnd(1)+1
   if colchg<2 then colchga=0
endif
if colchba=0
   inc colchb,rnd(1)+1
   if colchb>250 then colchba=1
else
   dec colchb,rnd(1)+1
   if colchb<2 then colchba=0
endif
if ci=20 then ci=0
ink rgb(255-colchr,255-colchg,255-colchb),0
for s=1 to 36
   nx=newxvalue(512,wrapvalue((360/36)*s+g#),700)
   ny=newzvalue(384,wrapvalue((360/36)*s+g#),700)
   nxa=512
   nya=384
   line nxa+rnd(2)-1,nya+rnd(2)-1,nx+rnd(2)-1,ny+rnd(2)-1
next s
for c=1 to 40
   color=255-(c*6)
   colorr=color-colchr
   colorg=color-colchg
   colorb=color-colchb
   if colorr<10 then colorr=10
   if colorr>255 then colorr=255
   if colorg<10 then colorg=10
   if colorg>255 then colorg=255
   if colorb<10 then colorb=10
   if colorb>255 then colorb=255
   ink rgb(colorr,colorg,colorb),0
   nxa=512
   nya=384
   circle nxa,nya,(c*20+ci)-8
next c
mex=mousex()
mey=mousey()
mang=ATANFULL(mex-512,mey-384)
mdist=sqrt((512-mex)^2+(384-mey)^2)
ink rgb(0,0,0),0
for l=1 to 20
   nxa=newxvalue(512,mang+(l/2)-5,mdist)
   nya=newzvalue(384,mang+(l/2)-5,mdist)
   nxb=newxvalue(512,mang+(l/2)-5,800)
   nyb=newzvalue(384,mang+(l/2)-5,800)
   line nxa+rnd(4)-2,nya+rnd(4)-2,nxb+rnd(4)-2,nyb+rnd(4)-2
next l
sync
if mdist<20
   cls rgb(5,5,5)
endif
if mouseclick()=1
   for t=1 to 90
      inc txt(t,2),txt(t,3)
      if txt(t,2)>1536 then txt(t,2)=0
      ink rgb(50,100+(txt(t,3)*20),50),0
      text txt(t,1),txt(t,2)/2,chr$(txt(t,0))
   next l
endif
ent$=entry$()
if len(ent$)>0 then dcount=0 else inc dcount
if dcount=100 then st$="":dcount=0
st$=st$+ent$
clear entry buffer
ink rgb(50+(dcount*2),50+(dcount*2),50+(dcount*2)),0
center text 510,98-(dcount/2),st$
center text 514,102-(dcount/2),st$
ink rgb(rnd(100)+100+(dcount/2),rnd(100)+100+(dcount/2),rnd(100)+100+(dcount/2)),0
center text 512,100-(dcount/2),st$
loop


-Formerly DarkSephiroth-
Back to top
Download: pic.JPG Size: 334052 bytes  View Image: pic.JPG Size: 334052 bytesReport this message as abusive
Essence

User


Joined: Sat Oct 12th 2002
Location: The Netherlands
Posted: 6th Jan 2005 15:28           | link | toggle

wow! Thats a really nice effect
Dont watch it for too long or ur gonna puke all over ur monitor
Back to top
Report this message as abusive
TEH_CODERER

User


Joined: Wed Nov 12th 2003
Location: Right behind you!
Posted: 6th Jan 2005 19:10           | link | toggle
Back to top
Report this message as abusive
Ric

User


Joined: Sun Jul 11th 2004
Location: object position x
Posted: 7th Jan 2005 02:47           | link | toggle

Cool.


Back to top
Andromedus.com
Report this message as abusive
Gil Galvanti

User


Joined: Wed Dec 22nd 2004
Location: Texas, United States
Posted: 7th Jan 2005 03:40           | link | toggle

good job

Video games…they can take you places unreachable, impossible, unfeasible. They put you in the book...they put you in the movie...they put you in a world, a world that before could only be imagined.
Back to top
Game Dev Portfolio
Report this message as abusive
Lost in Thought

User


Joined: Wed Feb 4th 2004
Location: U.S.A. : Douglas, Georgia
Posted: 7th Jan 2005 04:43           | link | toggle

Yeah great job

Back to top
Find user on ICQ
Report this message as abusive
NathanF

User


Joined: Wed Mar 24th 2004
Location: Melbourne, Australia
Posted: 8th Jan 2005 03:11           | link | toggle

Thanks guys

-Formerly DarkSephiroth-
Back to top
Report this message as abusive
Neofish

User


Joined: Wed Apr 7th 2004
Location: A swimming pool of coke
Posted: 9th Jan 2005 00:53           | link | toggle

Great, although it should come with a health warning, it took me half-an-hour to press the esc key (it draws you in )

Back to top
neofish.co.uk
Report this message as abusive
Indian Homie G

User


Joined: Fri Jan 23rd 2004
Location: San Jose, CA
Posted: 9th Jan 2005 03:15           | link | toggle

Oww.. my head hurts .

Nice effect

AMD Athlon XP 3000+, S3 Deltachrome s8, 512 PC3200 RAM, 160 GB HD
Back to top
Report this message as abusive
Google Ad
Back to top
 
Three Score

User


Joined: Fri Jun 18th 2004
Location: behind you
Posted: 9th Jan 2005 03:56           | link | toggle

AWESOME
that is so cool i would make it a screensaver if i were u
i did but ti is all screwy cause it like will start 2 times for soem reason but anyway congratulations u have made soemthign that i will put on my screen rather than the blank default

come to my forums http://hck83.darktech.info/forum/ formerly: 404 name not found
"others understand me but i dont understand my own thoughts"
Back to top
JouleOS and friends Send AIM user a message
Report this message as abusive
Major Payn

User


Joined: Tue Dec 16th 2003
Location: United States of America
Posted: 9th Jan 2005 17:46           | link | toggle

It seems to run a little slow in DBC, or maybe that is just how it is supposed to be, well anyways, good job!

Guns arn't the problem, people are the problem, shoot all the people and guns arn't a problem anymore.
Back to top
Report this message as abusive
NathanF

User


Joined: Wed Mar 24th 2004
Location: Melbourne, Australia
Posted: 9th Jan 2005 23:41           | link | toggle

Wow, so many responses
I fixed up the origonal one. No the colors dont get too dark, and switch quicker - Looks a tad nicer.
Also, If your looking for wierd, look at this one! Many "improvments"... :
**MUST BE RUN IN FULLSCREEN EXCLUSIVE 1024/768**

+ Code Snippet
set display mode 1024,768,16
hide mouse
sync on
sync rate 0
colchr=rnd(200)+20
colchg=rnd(200)+20
colchb=rnd(200)+20
dim txt(90,3)
for t=1 to 90
   txt(t,0)=rnd(300)+32
   txt(t,1)=rnd(1024)
   txt(t,2)=rnd(1536)
   txt(t,3)=3+rnd(4)
next t
set text font "Symbol"
set text size 26
set text to bold
do
inc speed#
if speed#>1000 then speed#=1000
inc g#,speed#/1000
inc ci
if colchra=0
   inc colchr,rnd(1)+1
   if colchr>250 then colchra=1
else
   dec colchr,rnd(1)+1
   if colchr<2 then colchra=0
endif
if colchga=0
   inc colchg,rnd(1)+1
   if colchg>250 then colchga=1
else
   dec colchg,rnd(1)+1
   if colchg<2 then colchga=0
endif
if colchba=0
   inc colchb,rnd(1)+1
   if colchb>250 then colchba=1
else
   dec colchb,rnd(1)+1
   if colchb<2 then colchba=0
endif
if ci=20 then ci=0
ink rgb(255-colchr,255-colchg,255-colchb),0
for s=1 to 36
   nx=newxvalue(512,wrapvalue((360/36)*s+g#),700)
   ny=newzvalue(384,wrapvalue((360/36)*s+g#),700)
   nxa=512
   nya=384
   line nxa+rnd(2)-1,nya+rnd(2)-1,nx+rnd(2)-1,ny+rnd(2)-1
next s
for c=1 to 40
   color=255-(c*6)
   colorr=color-colchr
   colorg=color-colchg
   colorb=color-colchb
   if colorr<10 then colorr=10
   if colorr>255 then colorr=255
   if colorg<10 then colorg=10
   if colorg>255 then colorg=255
   if colorb<10 then colorb=10
   if colorb>255 then colorb=255
   ink rgb(colorr,colorg,colorb),0
   nxa=512
   nya=384
   circle nxa,nya,(c*20+ci)-8
next c
mex=mousex()
mey=mousey()
mang=ATANFULL(mex-512,mey-384)
mdist=sqrt((512-mex)^2+(384-mey)^2)
set gamma 255+mdist,255+mdist,255+mdist
ink rgb(0,0,0),0
for l=1 to 20
   nxa=newxvalue(512,mang+(l/2)-5,mdist)
   nya=newzvalue(384,mang+(l/2)-5,mdist)
   nxb=newxvalue(512,mang+(l/2)-5,800)
   nyb=newzvalue(384,mang+(l/2)-5,800)
   line nxa+rnd(4)-2,nya+rnd(4)-2,nxb+rnd(4)-2,nyb+rnd(4)-2
next l
sync
if mdist<20
   cls rgb(5,5,5)
endif
if mouseclick()=1
   for t=1 to 90
      inc txt(t,2),txt(t,3)
      if txt(t,2)>1536 then txt(t,2)=0
      ink rgb(50,100+(txt(t,3)*20),50),0
      text txt(t,1),txt(t,2)/2,chr$(txt(t,0))
   next l
endif
ent$=entry$()
if len(ent$)>0 then dcount=0 else inc dcount
if dcount=100 then st$="":dcount=0
st$=st$+ent$
clear entry buffer
ink rgb(50+(dcount*2),50+(dcount*2),50+(dcount*2)),0
center text 510,98-(dcount/2),st$
center text 514,102-(dcount/2),st$
ink rgb(rnd(100)+100+(dcount/2),rnd(100)+100+(dcount/2),rnd(100)+100+(dcount/2)),0
center text 512,100-(dcount/2),st$
loop


-Formerly DarkSephiroth-
Back to top
Report this message as abusive
NathanF

User


Joined: Wed Mar 24th 2004
Location: Melbourne, Australia
Posted: 11th Jan 2005 07:44           | link | toggle

^^^ Anyone tried the last one? ^^^ (last post of mine)
Tis, very lots gooder. (grammar, meh)


-Formerly DarkSephiroth-
Back to top
Report this message as abusive
Baggers

User


Joined: Mon May 31st 2004
Location: Yonder over dem dere hills
Posted: 12th Jan 2005 17:31           | link | toggle

BEEEUUUUGGGGHHHHHH......um..interesting effect, anyone got a tissue?
Back to top
Report this message as abusive
Pheagey

User


Joined: Sun Jan 26th 2003
Location: Mid-Fl., USA
Posted: 20th Jan 2005 12:41           | link | toggle

thats kinda neat...
'i like that'-Ying Yang Twins

I picked up a Magic 8 ball th other day and it said "Outlook not so good".
I replyed "I know, but Microsoft ships it anyways."
Back to top
Send AIM user a message
Report this message as abusive
fasdfsdaf

User


Joined: Mon Jan 17th 2005
Location: Cyberspace
Posted: 22nd Jan 2005 18:54           | link | toggle

What is reallly cool is when you left-click the mouse adn hold while you point the mouse to the center of the screen.

Nice!

www.war3forums.net
Back to top
Report this message as abusive
King Al

User


Joined: Thu Feb 10th 2005
Location: Cyberspace
Posted: 10th Feb 2005 20:59           | link | toggle

Hey, there is a good game in this demo - trying to hold the mouse pointer in the centre to make the screen go blank.
Back to top
Download: guestAJB.gif Size: 30899 bytes  View Image: guestAJB.gif Size: 30899 bytesReport this message as abusive
Robot Booger

User


Joined: Tue Jan 4th 2005
Location: Cyberspace
Posted: 4th Apr 2005 03:07           | link | toggle

Oh great now I feel sick thanks a lot!
Back to top
Report this message as abusive

Go to the first page of this board Return to the Forum Menu Post Message
18 Messages - Page   of 1   
Search the Forum

Sorry, but it has been so long since anyone replied to this Thread that it has been automatically locked.
You may read it but not reply.

Forum Search

Enter a word or phrase to search our Forum for:

Thread Subject Search
Search Phrase:
Search Scope: Entire forum
Just this board
 
Google Forum Search
Search Phrase:
 
Apollo v2.02


Dark Game Studio
Privacy Policy AUP Top of Page