6 Lines of Crazyness - GameCreators Forum

Author

Message

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 21st May 2003 22:27 Edited at: 21st May 2003 22:27

Link

Lol! Its not really that crazy. DBC only.

rem *******************************************
rem * 6 Lines of Crazyness by Hamish McHaggis *
rem *******************************************
rem *            Arrow keys to move           *
rem *******************************************

sync on:sync rate 0:backdrop on:make matrix 1,1000,1000,25,25:make object cube 1,100:position object 1,0,0,300:t#=200:do:h#=curvevalue(t#,h#,30):ax#=wrapvalue(ax#+1):ay#=wrapvalue(ay#+2):az#=wrapvalue(az#+0.3):rotate object 1,ax#,ay#,az#
if coltimer+1000<timer():coltimer=timer():color object 1,rgb(rnd(255),rnd(255),rnd(255)):endif:if h#>195:t#=-100:endif:if h#<-95:t#=200:endif:camA#=wrapvalue(camA#+2):if upkey()=1:cx#=cx#+sin(a#)*6:cz#=cz#+cos(a#)*6:endif:if downkey()=1
cx#=cx#-sin(a#)*6:cz#=cz#-cos(a#)*6:endif:if leftkey()=1:a#=wrapvalue(a#-3):endif:if rightkey()=1:a#=wrapvalue(a#+3):endif:text 20,20,str$(screen fps()):color backdrop rgb(255,0,0):position camera 0,h#,0:point camera 0,0,300
set camera view 0,0,screen width()/2,screen height()/2:color backdrop rgb(0,0,255):position camera sin(camA#)*300,200,cos(camA#)*400:point camera 0,0,300:set camera view screen width()/2,0,screen width(),screen height()/2
color backdrop rgb(0,255,0):position camera cx#,20,cz#:rotate camera 0,a#,0:set camera view 0,screen height()/2,screen width()/2,screen height():color backdrop rgb(255,255,0):position camera -150,100,450:point camera 0,0,300
set camera view screen width()/2,screen height()/2,screen width(),screen height():sync:loop

+ Code Snippet

rem *******************************************
rem * 6 Lines of Crazyness by Hamish McHaggis *
rem *******************************************
rem *            Arrow keys to move           *
rem *******************************************

sync on:sync rate 0:backdrop on:make matrix 1,1000,1000,25,25:make object cube 1,100:position object 1,0,0,300:t#=200:do:h#=curvevalue(t#,h#,30):ax#=wrapvalue(ax#+1):ay#=wrapvalue(ay#+2):az#=wrapvalue(az#+0.3):rotate object 1,ax#,ay#,az#
if coltimer+1000<timer():coltimer=timer():color object 1,rgb(rnd(255),rnd(255),rnd(255)):endif:if h#>195:t#=-100:endif:if h#<-95:t#=200:endif:camA#=wrapvalue(camA#+2):if upkey()=1:cx#=cx#+sin(a#)*6:cz#=cz#+cos(a#)*6:endif:if downkey()=1
cx#=cx#-sin(a#)*6:cz#=cz#-cos(a#)*6:endif:if leftkey()=1:a#=wrapvalue(a#-3):endif:if rightkey()=1:a#=wrapvalue(a#+3):endif:text 20,20,str$(screen fps()):color backdrop rgb(255,0,0):position camera 0,h#,0:point camera 0,0,300
set camera view 0,0,screen width()/2,screen height()/2:color backdrop rgb(0,0,255):position camera sin(camA#)*300,200,cos(camA#)*400:point camera 0,0,300:set camera view screen width()/2,0,screen width(),screen height()/2
color backdrop rgb(0,255,0):position camera cx#,20,cz#:rotate camera 0,a#,0:set camera view 0,screen height()/2,screen width()/2,screen height():color backdrop rgb(255,255,0):position camera -150,100,450:point camera 0,0,300
set camera view screen width()/2,screen height()/2,screen width(),screen height():sync:loop

cuRant PRogekt: a three-de map editer

Why the hell'd you ask me for crying out loud!?!
Athelon XP 1400 Plus - Nvidia Geforce MX400 - 256mb RAM

Back to top

Profile PM Email Website

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 24th May 2003 11:10

Link

saw this in the discussion forum, good stuff

ARE YOU A 3D MODELER??? IF SO WE NEED YOU!!!
EMAIL mynameisnoneofyourbuisness@hotmail.com to work on the new Star Strike project!!!

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 24th May 2003 15:29

Link

yeah, i just posted it here for no reason

cuRant PRogekt: a three-de map editer

Why the hell'd you ask me for crying out loud!?!
Athelon XP 1400 Plus - Nvidia Geforce MX400 - 256mb RAM

Back to top

Profile PM Email Website

medwayman

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: uk

Posted: 27th May 2003 03:20

Link

I like this

And only 6 lines!
Nice work

Back to top

Profile PM

Mattman

20

Years of Service

User Offline

Joined: 5th Jun 2003

Location: East Lansing

Posted: 24th Jun 2003 18:27

Link

wow!!! how do u do multible cameras like that? I didn't really understand your code...

---Mattman
"Computers make it easier to do a lot of things, but most of the things they make it easier to do don't need to be done." Andy Rooney

Back to top

Profile PM Email Website

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 24th Jun 2003 20:24

Link

heres some of the code from the original thread about multiple cameras in dbc

sync on
sync rate 0
backdrop on
hide mouse
make matrix 1,1000,1000,25,25
make object cube 1,100
position object 1,0,0,300
t#=200

do

h#=curvevalue(t#,h#,30)

ax#=wrapvalue(ax#+1)
   ay#=wrapvalue(ay#+2)
   az#=wrapvalue(az#+0.3)
   rotate object 1,ax#,ay#,az#
   if coltimer+1000<timer() then coltimer=timer():color object 1,rgb(rnd(255),rnd(255),rnd(255))

if h#>195 then t#=-100
   if h#<-95 then t#=200
   camA#=wrapvalue(camA#+2)

if upkey()=1 then cx#=cx#+sin(a#)*6:cz#=cz#+cos(a#)*6
   if downkey()=1 then cx#=cx#-sin(a#)*6:cz#=cz#-cos(a#)*6
   if leftkey()=1 then a#=wrapvalue(a#-3)
   if rightkey()=1 then a#=wrapvalue(a#+3)

text 20,20,str$(screen fps())

gosub cameras

sync
loop

cameras:
   position camera 0,h#,0
   point camera 0,0,300
   set camera view 0,0,screen width()/2,screen height()/2

position camera sin(camA#)*300,200,cos(camA#)*400
   point camera 0,0,300
   set camera view screen width()/2,0,screen width(),screen height()/2

position camera cx#,20,cz#
   rotate camera 0,a#,0
   set camera view 0,screen height()/2,screen width()/2,screen height()

position camera -150,100,450
   point camera 0,0,300
   set camera view screen width()/2,screen height()/2,screen width(),screen height()
return

+ Code Snippet

sync on
sync rate 0
backdrop on
hide mouse
make matrix 1,1000,1000,25,25
make object cube 1,100
position object 1,0,0,300
t#=200

do

   h#=curvevalue(t#,h#,30)

   ax#=wrapvalue(ax#+1)
   ay#=wrapvalue(ay#+2)
   az#=wrapvalue(az#+0.3)
   rotate object 1,ax#,ay#,az#
   if coltimer+1000<timer() then coltimer=timer():color object 1,rgb(rnd(255),rnd(255),rnd(255))

   if h#>195 then t#=-100
   if h#<-95 then t#=200
   camA#=wrapvalue(camA#+2)

   if upkey()=1 then cx#=cx#+sin(a#)*6:cz#=cz#+cos(a#)*6
   if downkey()=1 then cx#=cx#-sin(a#)*6:cz#=cz#-cos(a#)*6
   if leftkey()=1 then a#=wrapvalue(a#-3)
   if rightkey()=1 then a#=wrapvalue(a#+3)

   text 20,20,str$(screen fps())

   gosub cameras

   sync
loop

cameras:
   position camera 0,h#,0
   point camera 0,0,300
   set camera view 0,0,screen width()/2,screen height()/2

   position camera sin(camA#)*300,200,cos(camA#)*400
   point camera 0,0,300
   set camera view screen width()/2,0,screen width(),screen height()/2

   position camera cx#,20,cz#
   rotate camera 0,a#,0
   set camera view 0,screen height()/2,screen width()/2,screen height()

   position camera -150,100,450
   point camera 0,0,300
   set camera view screen width()/2,screen height()/2,screen width(),screen height()
return

the important bit is the stuff in the cameras: section basically what is hapenning is the camera is jumping rapidly around the four camera positions, what it sees is then drawn to a smaller 3d area using the set camera view command.

hi guys

Back to top

Profile PM Email Website

Mattman

20

Years of Service

User Offline

Joined: 5th Jun 2003

Location: East Lansing

Posted: 25th Jun 2003 00:34

Link

thx red eye

---Mattman
"Computers make it easier to do a lot of things, but most of the things they make it easier to do don't need to be done." Andy Rooney

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 1st Jul 2003 21:50

Link

I think it's cool how you can change the background colour each time you change the camera position and you get 4 different colours in each window.

cuRant PRogekt: a three-de map editer
Why the hell'd you ask me for crying out loud!?!
Athelon XP 1400 Plus - Nvidia Geforce MX400 - 256mb RAM

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 1st Jul 2003 22:49

Link

402 fps for me, but I think it may times that by how many times the camera is placed, so 100fps maybe. Yeah, the multiple camera thing does bring the frame rate down a lot.

cuRant PRogekt: a three-de map editer
Why the hell'd you ask me for crying out loud!?!
Athelon XP 1400 Plus - Nvidia Geforce MX400 - 256mb RAM

Back to top

Profile PM Email Website

CrayZemon

20

Years of Service

User Offline

Joined: 16th Jun 2003

Location: United States

Posted: 2nd Jul 2003 00:44

Link

CrayZe, just Crayzee. Heck, I'm even getting a 90+ fps rate.

"I need gopher-chucks!!"

Back to top

Profile PM

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 2nd Jul 2003 21:10

Link

check this out guys i made a 2 player split screen game in dbc!!!
its called tag! each player controls a cube in first person perspective and you have to run around trying to catch each other, two types of power ups speed and invisibility, they last until a tag is made.

controls:
player 1-top view
left right up down cursor keys

player 2-bottom view
w,a,s,d keys

its not that great but it uses hamishes technique so just try it, runs in dbc but i could compile to an .exe for pro, you need a matrix texture for it to work.
power ups are just rotating untextured plains.
hope you like it

hi guys

Back to top

Profile PM Email Website

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 2nd Jul 2003 21:11

Link

possibly i could get it down into 20 lines but unlikely if you think i should i'll give it a go or maybe someone could do it for me????lol

hi guys

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 3rd Jul 2003 19:01

Link

Cool! Its anoying how when you split the screen ito 2, the view gets stretched, maybe you can use cam fov to fix it or something?

cuRant PRogekt: a three-de map editer
Why the hell'd you ask me for crying out loud!?!
Athelon XP 1400 Plus - Nvidia Geforce MX400 - 256mb RAM

Back to top

Profile PM Email Website

The Wendigo

21

Years of Service

User Offline

Joined: 13th Sep 2002

Location: A hole near the base of a tree in the US

Posted: 4th Jul 2003 22:52

Link

lvl 18
score 4326!

WHAT A RUSH!

Won't run for me in DBP for some reason, but the frame rate in DBC is very good still!

Current Projects: Game Spawn 85%, mini BSP maker 50%, Height Mapper with many features 75%, Space Tactical (Like BC300AD) 15%.

Back to top

Profile PM Website

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 5th Jul 2003 11:37

Link

wrong thread maybe????

hi guys

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 5th Jul 2003 17:03

Link

lol!

cuRant PRogekt: a three-de map editer
Why the hell'd you ask me for crying out loud!?!
Athelon XP 1400 Plus - Nvidia Geforce MX400 - 256mb RAM

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / 6 Lines of Crazyness