Sky Roads - GameCreators Forum

Author

Message

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 13th Mar 2003 01:45

Link

This game was designed on DBP so I'm not sure if it works on DBC.

Remstart Sky Roads in 19 lines! By Mad Matt Noble
Controls:Turn left - Left cursor key
Turn right- Right cursor key
Accelerate- Up cursor key
Brake - Down cursor key
Remend

Make object cube 1,100

osition object 1,50,50,50:Make object cube 2,200

osition object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2

im position(2) as integer:position(1)=1:position(2)=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position(2)

Visit the Mad Matt Games Website
http://www.geocities.com/madmattgames/index.htm
Home of Witch Bomber and Pinball Football (and a lame website)

Back to top

Profile PM Website

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 13th Mar 2003 01:46

Link

Didn't work.

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:Dim position(2) as integer:position(1)=1:position(2)=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position(2)<100:position(2)=position(2)+rnd(1):position(1)=position(1)+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position(1)) - 100,-99,(200 * position(2)) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5
   If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),object angle Y(1)-180,200),300,newzvalue(object position Z(1),object angle Y(1)-180,200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",score,"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

+ Code Snippet

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:Dim position(2) as integer:position(1)=1:position(2)=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position(2)<100:position(2)=position(2)+rnd(1):position(1)=position(1)+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position(1)) - 100,-99,(200 * position(2)) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5
   If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),object angle Y(1)-180,200),300,newzvalue(object position Z(1),object angle Y(1)-180,200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",score,"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

Visit the Mad Matt Games Website
http://www.geocities.com/madmattgames/index.htm
Home of Witch Bomber and Pinball Football (and a lame website)

Back to top

Profile PM Website

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 13th Mar 2003 01:54

Link

Doesn't work in DB. If you don't have DBPro try this

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:position=1:position2=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position2<100:position2=position2+rnd(1):position=position+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position) - 100,-99,(200 * position2) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5
   If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),object angle Y(1)-180,200),300,newzvalue(object position Z(1),object angle Y(1)-180,200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",score,"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

+ Code Snippet

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:position=1:position2=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position2<100:position2=position2+rnd(1):position=position+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position) - 100,-99,(200 * position2) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5
   If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),object angle Y(1)-180,200),300,newzvalue(object position Z(1),object angle Y(1)-180,200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",score,"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

Visit the Mad Matt Games Website
http://www.geocities.com/madmattgames/index.htm
Home of Witch Bomber and Pinball Football (and a lame website)

Back to top

Profile PM Website

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 13th Mar 2003 02:09

Link

Again, try this if you don't have DBPro.

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:position=1:position2=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position2<100:position2=position2+rnd(1):position=position+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position) - 100,-99,(200 * position2) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5
   If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),wrapvalue(object angle Y(1)-180),200),300,newzvalue(object position Z(1),wrapvalue(object angle Y(1)-180),200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",score,"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

+ Code Snippet

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:position=1:position2=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position2<100:position2=position2+rnd(1):position=position+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position) - 100,-99,(200 * position2) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5
   If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),wrapvalue(object angle Y(1)-180),200),300,newzvalue(object position Z(1),wrapvalue(object angle Y(1)-180),200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",score,"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

Visit the Mad Matt Games Website
http://www.geocities.com/madmattgames/index.htm
Home of Witch Bomber and Pinball Football (and a lame website)

Back to top

Profile PM Website

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 13th Mar 2003 02:31

Link

Just found a bug. This is DBPro version.

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:Dim position(2) as integer:position(1)=1:position(2)=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position(2)<100:position(2)=position(2)+rnd(1):position(1)=position(1)+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position(1)) - 100,-99,(200 * position(2)) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5
   If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),object angle Y(1)-180,200),300,newzvalue(object position Z(1),object angle Y(1)-180,200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",object position Z(1),"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

+ Code Snippet

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:Dim position(2) as integer:position(1)=1:position(2)=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position(2)<100:position(2)=position(2)+rnd(1):position(1)=position(1)+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position(1)) - 100,-99,(200 * position(2)) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5
   If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),object angle Y(1)-180,200),300,newzvalue(object position Z(1),object angle Y(1)-180,200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",object position Z(1),"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

For those that don't have DBPro

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:position=1:position2=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position2<100:position2=position2+rnd(1):position=position+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position) - 100,-99,(200 * position2) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5
   If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),wrapvalue(object angle Y(1)-180),200),300,newzvalue(object position Z(1),wrapvalue(object angle Y(1)-180),200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",object position Z(1),"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

+ Code Snippet

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:position=1:position2=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position2<100:position2=position2+rnd(1):position=position+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position) - 100,-99,(200 * position2) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5
   If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),wrapvalue(object angle Y(1)-180),200),300,newzvalue(object position Z(1),wrapvalue(object angle Y(1)-180),200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",object position Z(1),"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

Visit the Mad Matt Games Website
http://www.geocities.com/madmattgames/index.htm
Home of Witch Bomber and Pinball Football (and a lame website)

Back to top

Profile PM Website

Jimmy Cool

21

Years of Service

User Offline

Joined: 6th Mar 2003

Location: United States

Posted: 13th Mar 2003 03:30

Link

hey, I like it, for 20 lines, it's way fun, especially when I go freaking fast! FREAKING FAST!!!!

FREAKING!

FAST!!!

***********************************************
Me, i'll just be here crying my brains out

Back to top

Profile PM Email Website

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 13th Mar 2003 17:38

Link

Oops. This should work

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:position=1:position2=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position2<100:position2=position2+rnd(1):position=position+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position) - 100,-99,(200 * position2) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
cls
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,wrapvalue(object angle Y(1) - 5)
   If rightkey()=1 then Yrotate object 1,wrapvalue(object angle Y(1) + 5)
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),wrapvalue(object angle Y(1)-180),200),300,newzvalue(object position Z(1),wrapvalue(object angle Y(1)-180),200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",object position Z(1),"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

+ Code Snippet

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:position=1:position2=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
While position2<100:position2=position2+rnd(1):position=position+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position) - 100,-99,(200 * position2) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
cls
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,wrapvalue(object angle Y(1) - 5)
   If rightkey()=1 then Yrotate object 1,wrapvalue(object angle Y(1) + 5)
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),wrapvalue(object angle Y(1)-180),200),300,newzvalue(object position Z(1),wrapvalue(object angle Y(1)-180),200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",object position Z(1),"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

I'm surprised I missed that one out.

Visit the Mad Matt Games Website
http://www.geocities.com/madmattgames/index.htm
Home of Witch Bomber and Pinball Football (and a lame website)

Back to top

Profile PM Website

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 13th Mar 2003 17:41

Link

Apart from the text moving down the screen(which I don't mind) you don't get these bugs in DBPro.

Visit the Mad Matt Games Website
http://www.geocities.com/madmattgames/index.htm
Home of Witch Bomber and Pinball Football (and a lame website)

Back to top

Profile PM Website

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 15th Mar 2003 00:44

Link

I just had a thought. There's no need to limit the size of the level to 100.

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:Dim position(2) as integer:position(1)=1:position(2)=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
rem Where it says 200 on the next line the size of the level depends on what number you put there.
While position(2)<200:position(2)=position(2)+rnd(1):position(1)=position(1)+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position(1)) - 100,-99,(200 * position(2)) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5
   If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),object angle Y(1)-180,200),300,newzvalue(object position Z(1),object angle Y(1)-180,200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",object position Z(1),"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

+ Code Snippet

Remstart Sky Roads in 19 lines! By Mad Matt Noble
         Controls:Turn left - Left cursor key
                  Turn right- Right cursor key
                  Accelerate- Up cursor key
                  Brake     - Down cursor key
Remend

Make object cube 1,100:Position object 1,50,50,50:Make object cube 2,200:Position object 2,100,-99,100:cubes=1
Hide mouse:color backdrop rgb(0,0,255)
set object collision to boxes 1:set object collision to boxes 2:Dim position(2) as integer:position(1)=1:position(2)=1
Color object 1,rgb(0,255,0):Ink rgb(255,0,0),rgb(0,0,255):Sync On:Sync rate 30:Randomize timer()
rem Where it says 200 on the next line the size of the level depends on what number you put there.
While position(2)<200:position(2)=position(2)+rnd(1):position(1)=position(1)+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position(1)) - 100,-99,(200 * position(2)) - 100
Set object collision to boxes cubes + 2:cubes=cubes+1:Endwhile
Do
   If upkey()=1 then speed# = speed# + 0.1
   If downkey()=1 then speed# = speed# - 0.03
   If leftkey()=1 then Yrotate object 1,object angle Y(1) - 5
   If rightkey()=1 then Yrotate object 1,object angle Y(1) + 5
   Position object 1,newxvalue(object position X(1),object angle Y(1),speed#),50,newzvalue(object position Z(1),object angle Y(1),speed#)
   Position camera newxvalue(object position X(1),object angle Y(1)-180,200),300,newzvalue(object position Z(1),object angle Y(1)-180,200):point camera object position X(1),200,object position Z(1)
   If object collision(1,0)=0:Print "Game Over.  Final Score - ",object position Z(1),"  Final time - ",time:sync
   wait key:exit:endif
   loops = loops + 1:If loops = 30 then time = time + 1:loops = 0
   Print "score - ",object position Z(1),"    time - ",time
   Sync
Loop

Visit the Mad Matt Games Website
http://www.geocities.com/madmattgames/index.htm
Home of Magic Cube, Witch Bomber and Pinball Football (and a lame website)

Back to top

Profile PM Website

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 15th Mar 2003 00:47

Link

That probably doesn't work in DB but it's getting that I just don't care about that. It works fine in DBPro.

Visit the Mad Matt Games Website
http://www.geocities.com/madmattgames/index.htm
Home of Magic Cube, Witch Bomber and Pinball Football (and a lame website)

Back to top

Profile PM Website

Rob K

Retired Moderator

21

Years of Service

User Offline

Joined: 10th Sep 2002

Location: Surrey, United Kingdom

Posted: 15th Mar 2003 02:10

Link

Random levels - that is interesting

I am remaking SkyRoads for my retro compo entry - interesting idea that

Current Project: Retro Compo. Entry.

Back to top

Profile PM Email Website

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 15th Mar 2003 02:51

Link

Random levels would be a lot harder to do with all those tunnels and things though.

Visit the Mad Matt Games Website
http://www.geocities.com/madmattgames/index.htm
Home of Magic Cube, Witch Bomber and Pinball Football (and a lame website)

Back to top

Profile PM Website

Rob K

Retired Moderator

21

Years of Service

User Offline

Joined: 10th Sep 2002

Location: Surrey, United Kingdom

Posted: 16th Mar 2003 16:17

Link

Not really. I couldn't have an intricate structures (ie. tunnels going through blocks etc) but it is possible. Still due to other commitments I think that I won't have time to add these features.

Current Project: Retro Compo. Entry.

Back to top

Profile PM Email Website

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 22nd Mar 2003 00:12

Link

Thanks to Rich for adding new graphics effects and showing me a few new tricks. (But this version isn't within the limits of 5 commands per line)

remstart

Sky Roads by Mad Matt Noble

Controls:
                  Rotate left - left cursor key
                  Rotate right - right cursor key
                  Accelerate - up cursor key
                  Brake - down cursor key

Objective:
                  You are the green cube, the aim is to stay ontop of the white grid without
                  falling off the edge. To achieve this you must accelerate/brake and rotate
                  your way around the "road".

Winner of the March 2003 20-line competition

remend

sync on : sync rate 0 : randomize timer() : draw to back : backdrop off : hide mouse : box 0,0,640,480,rgb(200,0,0),rgb(20,0,0),rgb(200,100,0),rgb(20,0,0) : get image 1,0,0,640,480
make object cube 1,100 : position object 1,50,50,50 : make object cube 2,200 : position object 2,100,-99,100 : cubes=1

set object collision to boxes 1 : set object collision to boxes 2 : dim position(2) as integer : position(1)=1 : position(2)=1
color object 1,rgb(0,255,0) : ink rgb(255,0,0),rgb(0,0,255)

`  Where it says 200 on the next line the size of the level depends on what number you put there

while position(2)<200:position(2)=position(2)+rnd(1):position(1)=position(1)+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position(1)) - 100,-99,(200 * position(2)) - 100
set object collision to boxes cubes + 2:cubes=cubes+1 : endwhile
fog distance 2000 : fog color 0 : set camera range 1,2500 : fog on : t=timer()

do

paste image 1,0,0 : if upkey() then speed# = speed# + 0.1
   if downkey() then speed# = speed# - 0.03
   if leftkey() then yrotate object 1, object angle y(1) - 5
   if rightkey() then yrotate object 1, object angle y(1) + 5

position object 1, newxvalue(object position x(1), object angle y(1), speed#), 50, newzvalue(object position z(1), object angle y(1), speed#)
   position camera newxvalue(object position x(1), object angle y(1)-180, 200), 300, newzvalue(object position z(1), object angle y(1)-180,200) : point camera object position x(1), 200, object position z(1)

if object collision(1,0)=0 : print "Game Over! Final Score = ",object position z(1),"  Final time = ",time : sync : wait 1000 : wait key : exit : endif
   if timer()>t+1000 then inc time : t=timer()
   set cursor 0,0 : Print "Score: " + str$(object position Z(1)) : set cursor 540,0 : print "Time: " + str$(time)
   sync

loop

+ Code Snippet

remstart

         Sky Roads by Mad Matt Noble

         Controls:
                  Rotate left - left cursor key
                  Rotate right - right cursor key
                  Accelerate - up cursor key
                  Brake - down cursor key

         Objective:
                  You are the green cube, the aim is to stay ontop of the white grid without
                  falling off the edge. To achieve this you must accelerate/brake and rotate
                  your way around the "road".

         Winner of the March 2003 20-line competition

remend

sync on : sync rate 0 : randomize timer() : draw to back : backdrop off : hide mouse : box 0,0,640,480,rgb(200,0,0),rgb(20,0,0),rgb(200,100,0),rgb(20,0,0) : get image 1,0,0,640,480
make object cube 1,100 : position object 1,50,50,50 : make object cube 2,200 : position object 2,100,-99,100 : cubes=1

set object collision to boxes 1 : set object collision to boxes 2 : dim position(2) as integer : position(1)=1 : position(2)=1
color object 1,rgb(0,255,0) : ink rgb(255,0,0),rgb(0,0,255)

`  Where it says 200 on the next line the size of the level depends on what number you put there

while position(2)<200:position(2)=position(2)+rnd(1):position(1)=position(1)+rnd(2)-1:Make object cube cubes + 2,200:Position object cubes + 2,(200 * position(1)) - 100,-99,(200 * position(2)) - 100
set object collision to boxes cubes + 2:cubes=cubes+1 : endwhile
fog distance 2000 : fog color 0 : set camera range 1,2500 : fog on : t=timer()

do

   paste image 1,0,0 : if upkey() then speed# = speed# + 0.1
   if downkey() then speed# = speed# - 0.03
   if leftkey() then yrotate object 1, object angle y(1) - 5
   if rightkey() then yrotate object 1, object angle y(1) + 5

   position object 1, newxvalue(object position x(1), object angle y(1), speed#), 50, newzvalue(object position z(1), object angle y(1), speed#)
   position camera newxvalue(object position x(1), object angle y(1)-180, 200), 300, newzvalue(object position z(1), object angle y(1)-180,200) : point camera object position x(1), 200, object position z(1)

   if object collision(1,0)=0 : print "Game Over! Final Score = ",object position z(1),"  Final time = ",time : sync : wait 1000 : wait key : exit : endif
   if timer()>t+1000 then inc time : t=timer()
   set cursor 0,0 : Print "Score: " + str$(object position Z(1)) : set cursor 540,0 : print "Time: " + str$(time)
   sync

loop

Visit the new Madd Matt Games Website
http://www.madamattgames.o-f.com/index.htm
Home of Witch Bomber,Magic Cube and Pinball Football(and a lame website)

Back to top

Profile PM Website

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 25th Mar 2003 17:56

Link

If Sky Roads is too easy for you go to
http://www.darkbasicpro.com/apollo/view.php?t=7826&b=11

Visit the new Madd Matt Games Website
http://www.madamattgames.o-f.com/index.htm
Home of Witch Bomber,Magic Cube and Pinball Football(and a lame website)

Back to top

Profile PM Website

Sorry your browser is not supported!

The 20 Line Challenge / Sky Roads