primary noob...please help - GameCreators Forum

Author

Message

Asternus

20

Years of Service

User Offline

Joined: 11th Aug 2004

Location: N.C. U.S.A

Posted: 12th Aug 2004 11:10

Link

Hello all. I am fairly new to programming. The only skills I have are on winamp5 skins,(not really programming,but I got an idea).I wanted to start off simple.

Make a couple of cubes position them on the screen -- Done That.
Take the cubes and spin them -- Done That.
Make the cubes move up and down, then left and right -- Can't do it.

So any help would be nice.

Back to top

Profile PM Email

MR AI

20

Years of Service

User Offline

Joined: 24th Jan 2004

Location:

Posted: 12th Aug 2004 11:50

Link

dark basic classic or pro
not that it make much difference to the question

Back to top

Profile PM

Enclosed

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location: Colorado

Posted: 12th Aug 2004 15:08

Link

Heres my wicked cool version

+ Code Snippet

autocam off
sync on
sync rate 30
make object cube 1,2
color object 1,rgb(255,0,0)
make object cube 2,1
color object 2,rgb(0,255,0)
make object cube 3,3
color object 3,rgb(0,0,255)
position camera 0,20,-20
point camera 0,0,0
backdrop on
color backdrop rgb(0,0,0)
do
if x#>4 then n#=1
if x#<-4 then n#=0
if y#>4 then m#=1
if y#<-4 then m#=0
if n#=0 then x#=x#+.5
if n#=1 then x#=x#-.5
if m#=0 then y#=y#+1
if m#=1 then y#=y#-1
a#=a#+10
if a#>360 then a#=a#-360
Xrotate object 1,A#
Yrotate object 2,A#
Zrotate object 3,A#
position object 1,x#-10,y#,z#
position object 2,x#,y#,z#
position object 3,x#+10,y#,z#
sync
loop

I didnt make them stop then go different directions because I'm lazy and if you understand mine then you can do it yourself

Back to top

Profile PM Email Website

Dodo

20

Years of Service

User Offline

Joined: 8th Aug 2004

Location: eating lunch

Posted: 12th Aug 2004 22:18

Link

Why not try adding user inputs into it Asternus. this code makes cubes and textures, textures the cubes and then takes user inputs to move and rotate the cubes. the arrow keys move the cubes and pressing control and the arrowkeys rotates the cubes (both in opposite directions)

`set up computer
sync on
cls
hide mouse
color backdrop rgb(70,70,70)
set ambient light 100

`prepare texture
create bitmap 1,64,64
ink 0,0
box 0,0,64,64
ink rgb(0,255,0),0
ellipse 32,24,13,13
ink rgb(50,90,240),0
ellipse 40,16,20,20
ink rgb(25,100,240),0
ellipse 55,46,15,15
ink rgb(75,180,0),0
ellipse 12,50,5,5
get image 1,0,0,64,64,1
delete bitmap 1

`make cubes
make object cube 1,50
texture object 1,1
make object cube 2,50
texture object 2,1

`position cubes
position object 1,400,0,250
position object 2,600,0,250

`position camera
position camera 500,10,0

`main loop
do

`rotate objects
if controlkey()=1
if rightkey()=1 then yrotate object 1,object angle y(1)-0.25 : yrotate object 2,object angle y(2)+0.25
if leftkey()=1 then yrotate object 1,object angle y(1)+0.25 : yrotate object 2,object angle y(2)-0.25
if upkey()=1 then xrotate object 1,object angle x(1)-0.25 : xrotate object 2,object angle x(2)+0.25
if downkey()=1 then xrotate object 1,object angle x(1)+0.25 : xrotate object 2,object angle x(2)-0.25
endif

`move objects
if controlkey()=0
if rightkey()=1 then move object right 1,0.25 : move object left 2,0.25
if leftkey()=1 then move object left 1,0.25 : move object right 2,0.25
if upkey()=1 then move object up 1,0.25 : move object down 2,0.25
if downkey()=1 then move object down 1,0.25 : move object up 2,0.25
endif

`end loop
sync
loop

+ Code Snippet

`set up computer
sync on
cls
hide mouse
color backdrop rgb(70,70,70)
set ambient light 100

`prepare texture
create bitmap 1,64,64
ink 0,0
box 0,0,64,64
ink rgb(0,255,0),0
ellipse 32,24,13,13
ink rgb(50,90,240),0
ellipse 40,16,20,20
ink rgb(25,100,240),0
ellipse 55,46,15,15
ink rgb(75,180,0),0
ellipse 12,50,5,5
get image 1,0,0,64,64,1
delete bitmap 1

`make cubes
make object cube 1,50
texture object 1,1
make object cube 2,50
texture object 2,1

`position cubes
position object 1,400,0,250
position object 2,600,0,250

`position camera
position camera 500,10,0

`main loop
do

`rotate objects
if controlkey()=1
if rightkey()=1 then yrotate object 1,object angle y(1)-0.25 : yrotate object 2,object angle y(2)+0.25
if leftkey()=1 then yrotate object 1,object angle y(1)+0.25 : yrotate object 2,object angle y(2)-0.25
if upkey()=1 then xrotate object 1,object angle x(1)-0.25 : xrotate object 2,object angle x(2)+0.25
if downkey()=1 then xrotate object 1,object angle x(1)+0.25 : xrotate object 2,object angle x(2)-0.25
endif

`move objects
if controlkey()=0
if rightkey()=1 then move object right 1,0.25 : move object left 2,0.25
if leftkey()=1 then move object left 1,0.25 : move object right 2,0.25
if upkey()=1 then move object up 1,0.25 : move object down 2,0.25
if downkey()=1 then move object down 1,0.25 : move object up 2,0.25
endif

`end loop
sync
loop

Back to top

Profile PM Email Website

Asternus

20

Years of Service

User Offline

Joined: 11th Aug 2004

Location: N.C. U.S.A

Posted: 13th Aug 2004 01:06

Link

Yes, Enclosed, that works.Thanks.
I am using DBP. So variables make all the difference when positioning objects? I haven't really gotten to using keystrokes to move them yet...
To make the cubes start at the top of the screen and drop to the bottom I need to put a variable in "Y"?...
I looked at one of the pong tuts and that just confused me.I couldn't figure out where they got the position.
I'll try tonight and hopefully get somewhere.
Thanks people.

Back to top

Profile PM Email

Enclosed

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location: Colorado

Posted: 13th Aug 2004 03:02

Link

The thing is code reads like a person does(at least I like to picture it that way) left to right top to bottom. However when we do certain things to code it reads differently like when the code reaches a command LOOP it goes back up to the DO that it is paired with and then back down over and over... SO every time we go through the DO LOOP I defined a variable(Y) to be different and then placed the object at variable(Y). Therefore every time the code went through the DO LOOP the object was positioned at a different point. A simpler example would be:

+ Code Snippet

make object cube 1,3
color object 1,rgb(255,255,0)
position camera 0,10,-10
point camera 0,0,0
DO
xposition#=xposition#+.01
position object 1,xposition#,0,0
LOOP

However I did not stop xposition# from getting too big so it left our sight. To fix this I would add a command that makes it so xposition# does not get bigger then lets say 5. So I set up an if command so that if xposition# is less then 5 we can add .01 to xposition. ANd that would end up looking like this:

+ Code Snippet

make object cube 1,3
color object 1,rgb(255,255,0)
position camera 0,10,-10
point camera 0,0,0
DO
if xposition#<5 then xposition#=xposition#+.01
position object 1,xposition#,0,0
LOOP

Now I believe you can fully understand my code and how I used variables and IF statements in combination to keep the boxes within a certain area and constantly moving. Hope this helps. Anymore questions about this?

Back to top

Profile PM Email Website

Asternus

20

Years of Service

User Offline

Joined: 11th Aug 2004

Location: N.C. U.S.A

Posted: 15th Aug 2004 01:38

Link

Thank you all.I rewrote my blocks and I've got the hang of it.
Here is my bouncing cubes.Now,to get them to move at different speeds,wouldn't I have to make a different variable for each?

Back to top

Profile PM Email

Asternus

20

Years of Service

User Offline

Joined: 11th Aug 2004

Location: N.C. U.S.A

Posted: 15th Aug 2004 01:39

Link

make()
y#=28
yy#=-59

sleep 1000
sync on:do
if y#>28 then reverseY=1
if y#<-51 then reverseY=0
if reverseY=1 then y#=y#-0.4
if reverseY=0 then y#=y#+0.4
if yy#<-59 then reverseYY=0
if yy#>27 then reverseYY=1
if reverseYY=0 then yy#=yy#+0.4
if reverseYY=1 then yy#=yy#-0.4
if object hit (1,9) then reverseY=0 and reverseY=1
if object hit (9,1) then reverseYY=1 and reverseYY=0

``First Line
position object 1,-53,y#,70:rotate object 1,1,object angle y(1)+1,0
position object 2,-37,y#,70:rotate object 2,1,object angle y(2)+1,0
position object 3,-22,y#,70:rotate object 3,1,object angle y(3)+1,0
position object 4,-8,y#,70:rotate object 4,1,object angle y(4)+1,0
position object 5,6,y#,70:rotate object 5,1,object angle y(5)+1,0
position object 6,20,y#,70:rotate object 6,1,object angle y(6)+1,0
position object 7,34,y#,70:rotate object 7,1,object angle y(7)+1,0
position object 8,49,y#,70:rotate object 8,1,object angle y(8)+1,0
``Second Line
position object 9,-53,yy#,70:rotate object 9,1,object angle y(9)+1,0
position object 10,-37,yy#,70:rotate object 10,1,object angle y(10)+1,0
position object 11,-22,yy#,70:rotate object 11,1,object angle y(11)+1,0
position object 12,-8,yy#,70:rotate object 12,1,object angle y(12)+1,0
position object 13,6,yy#,70:rotate object 13,1,object angle y(13)+1,0
position object 14,20,yy#,70:rotate object 14,1,object angle y(14)+1,0
position object 15,34,yy#,70:rotate object 15,1,object angle y(15)+1,0
position object 16,49,yy#,70:rotate object 16,1,object angle y(16)+1,0

sync:loop

function load()
load image "Img 0.jpg",1
load image "Img 1.jpg",2
load image "Skull.jpg",3
endfunction

function make()

make object cube 1,10
make object cube 2,10
make object cube 3,10
make object cube 4,10
make object cube 5,10
make object cube 6,10
make object cube 7,10
make object cube 8,10
make object cube 9,10
make object cube 10,10
make object cube 11,10
make object cube 12,10
make object cube 13,10
make object cube 14,10
make object cube 15,10
make object cube 16,10
endfunction

Back to top

Profile PM Email

Asternus

20

Years of Service

User Offline

Joined: 11th Aug 2004

Location: N.C. U.S.A

Posted: 15th Aug 2004 01:40

Link

say when I position them...
position object 1,-53,y1#,70:rotate object 1,1,object angle y(1)+1,0
position object 2,-37,y2#,70:rotate object 2,1,object angle y(2)+1,0
and increase or decrease the movement.

Back to top

Profile PM Email

Sir Spaghetti Code

20

Years of Service

User Offline

Joined: 12th Jul 2004

Location: Just left of Hell

Posted: 15th Aug 2004 01:46

Link

May I suggest doing the tutorials for DB? Peep the link:http://darkbasic.thegamecreators.com/?f=tutorials That is where I started and it really helped me!

"I attribute the quarrelsome nature of the Middle Ages young men entirely to the want of the soothing weed."
-Jerome K. Jerome(1859-1927),Writer

Back to top

Profile PM Email

Asternus

20

Years of Service

User Offline

Joined: 11th Aug 2004

Location: N.C. U.S.A

Posted: 15th Aug 2004 08:45

Link

i'll give it a shot

Back to top

Profile PM Email

Asternus

20

Years of Service

User Offline

Joined: 11th Aug 2004

Location: N.C. U.S.A

Posted: 15th Aug 2004 10:02

Link

just for the sake of argument...
could I use an array or a "for" command to save some space when
positioning objects?

Back to top

Profile PM Email

Dodo

20

Years of Service

User Offline

Joined: 8th Aug 2004

Location: eating lunch

Posted: 15th Aug 2004 21:05 Edited at: 15th Aug 2004 21:05

Link

yeah, u could use a "for" command e.g.

+ Code Snippet

make()
y#=28
yy#=-59

sleep 1000

sync on
sync rate 120

do
if y#>28 then reverseY=1
if y#<-51 then reverseY=0
if reverseY=1 then y#=y#-0.4
if reverseY=0 then y#=y#+0.4
if yy#<-59 then reverseYY=0
if yy#>27 then reverseYY=1
if reverseYY=0 then yy#=yy#+0.4
if reverseYY=1 then yy#=yy#-0.4
if object hit (1,9) then reverseY=0 and reverseY=1
if object hit (9,1) then reverseYY=1 and reverseYY=0


``First Line
for n=1 to 8
position object n,-53,y#,70:rotate object n,1,object angle y(n)+1,0
next n

``Second Line
for n=9 to 16
position object n,-53,yy#,70:rotate object n,1,object angle y(n)+1,0
next n

sync:loop

function load()
load image "Img 0.jpg",1
load image "Img 1.jpg",2
load image "Skull.jpg",3
endfunction

function make()

for n=1 to 16
make object cube n,10
next n

endfunction

p.s. i added in the sync rate command cos it ran too fast on my computer

Back to top

Profile PM Email Website

Asternus

20

Years of Service

User Offline

Joined: 11th Aug 2004

Location: N.C. U.S.A

Posted: 15th Aug 2004 21:24

Link

Thought so.Thanks

Back to top

Profile PM Email

Asternus

20

Years of Service

User Offline

Joined: 11th Aug 2004

Location: N.C. U.S.A

Posted: 19th Aug 2004 22:28 Edited at: 19th Aug 2004 22:34

Link

Well I got the cubes to do what I wanted.Now I want the camera to have a limit,just not sure how to stop it.
Here is the full code.

``Loading prompt
sync
 center text screen width()/2,screen height()/2,"LOADING"
sync
set display mode 880,640,16
make()

`first row | `second row
dim Y#(8,8)
y#(1,1)=35 : y#(2,1)=-68
y#(1,2)=36 : y#(2,2)=-67
y#(1,3)=35 : y#(2,3)=-66
y#(1,4)=34 : y#(2,4)=-65
y#(1,5)=33 : y#(2,5)=-64
y#(1,6)=32 : y#(2,6)=-63
y#(1,7)=31 : y#(2,7)=-62
y#(1,8)=30 : y#(2,8)=-61

sync on:do

gosub Y_move
 gosub Hit

``First row
  position object 1,-53,y#(1,1),70: rotate object 1,1,object angle y(1)+1,0
  position object 2,-37,y#(1,2),70: rotate object 2,1,object angle y(2)+1,0
  position object 3,-22,y#(1,3),70: rotate object 3,1,object angle y(3)+1,0
  position object 4,-8,y#(1,4),70: rotate object 4,1,object angle y(4)+1,0
  position object 5,6,y#(1,5),70: rotate object 5,1,object angle y(5)+1,0
  position object 6,20,y#(1,6),70: rotate object 6,1,object angle y(6)+1,0
  position object 7,34,y#(1,7),70: rotate object 7,1,object angle y(7)+1,0
  position object 8,49,y#(1,8),70: rotate object 8,1,object angle y(8)+1,0
  ``Second row
  position object 9,-53,y#(2,1),70: rotate object 9,1,object angle y(9)+1,0
  position object 10,-37,y#(2,2),70: rotate object 10,1,object angle y(10)+1,0
  position object 11,-22,y#(2,3),70: rotate object 11,1,object angle y(11)+1,0
  position object 12,-8,y#(2,4),70: rotate object 12,1,object angle y(12)+1,0
  position object 13,6,y#(2,5),70: rotate object 13,1,object angle y(13)+1,0
  position object 14,20,y#(2,6),70: rotate object 14,1,object angle y(14)+1,0
  position object 15,34,y#(2,7),70: rotate object 15,1,object angle y(15)+1,0
  position object 16,49,y#(2,8),70: rotate object 16,1,object angle y(16)+1,0

`camera controls
   if upkey() then move camera 1
   if downkey() then move camera -1
   if leftkey() then camera_left()
   if rightkey() then camera_right()
   if shiftkey():pitch_up():endif
   if controlkey():pitch_down():endIf

sync:loop

function make()

make object cube 1,10
   make object cube 2,10
   make object cube 3,10
   make object cube 4,10
   make object cube 5,10
   make object cube 6,10
   make object cube 7,10
   make object cube 8,10
   make object cube 9,10
   make object cube 10,10
   make object cube 11,10
   make object cube 12,10
   make object cube 13,10
   make object cube 14,10
   make object cube 15,10
   make object cube 16,10
endfunction

function camera_left()
   turn camera left 90
   move camera 0.4
   turn camera right 90
endfunction

function camera_right()
   turn camera right 90
   move camera 0.4
   turn camera left 90
endfunction

function pitch_up()
   pitch camera up 90
   move camera .5
   pitch camera down 90
endfunction

function pitch_down()
   pitch camera up 90
   move camera -.5
   pitch camera down 90
endfunction

Y_move:
`set movement limit
 if y#(1,1)>28 then reverseY=1
 if y#(1,1)<-51 then reverseY=0
 if y#(1,2)>28 then reverseY2=1
 if y#(1,2)<-51 then reverseY2=0
 if y#(1,3)>28 then reverseY3=1
 if y#(1,3)<-51 then reverseY3=0
 if y#(1,4)>28 then reverseY4=1
 if y#(1,4)<-51 then reverseY4=0
 if y#(1,5)>28 then reverseY5=1
 if y#(1,5)<-51 then reverseY5=0
 if y#(1,6)>28 then reverseY6=1
 if y#(1,6)<-51 then reverseY6=0
 if y#(1,7)>28 then reverseY7=1
 if y#(1,7)<-51 then reverseY7=0
 if y#(1,8)>28 then reverseY8=1
 if y#(1,8)<-51 then reverseY8=0
`reverse movement
 if reverseY=1 then y#(1,1)=y#(1,1)-0.4
 if reverseY=0 then y#(1,1)=y#(1,1)+0.4
 if reverseY2=1 then y#(1,2)=y#(1,2)-0.4
 if reverseY2=0 then y#(1,2)=y#(1,2)+0.4
 if reverseY3=1 then y#(1,3)=y#(1,3)-0.4
 if reverseY3=0 then y#(1,3)=y#(1,3)+0.4
 if reverseY4=1 then y#(1,4)=y#(1,4)-0.4
 if reverseY4=0 then y#(1,4)=y#(1,4)+0.4
 if reverseY5=1 then y#(1,5)=y#(1,5)-0.4
 if reverseY5=0 then y#(1,5)=y#(1,5)+0.4
 if reverseY6=1 then y#(1,6)=y#(1,6)-0.4
 if reverseY6=0 then y#(1,6)=y#(1,6)+0.4
 if reverseY7=1 then y#(1,7)=y#(1,7)-0.4
 if reverseY7=0 then y#(1,7)=y#(1,7)+0.4
 if reverseY8=1 then y#(1,8)=y#(1,8)-0.4
 if reverseY8=0 then y#(1,8)=y#(1,8)+0.4
`set movement limit
 if y#(2,1)<-59 then reverseYY=0
 if y#(2,1)>27 then reverseYY=1
 if y#(2,2)<-59 then reverseYY2=0
 if y#(2,2)>27 then reverseYY2=1
 if y#(2,3)<-59 then reverseYY3=0
 if y#(2,3)>27 then reverseYY3=1
 if y#(2,4)<-59 then reverseYY4=0
 if y#(2,4)>27 then reverseYY4=1
 if y#(2,5)<-59 then reverseYY5=0
 if y#(2,5)>27 then reverseYY5=1
 if y#(2,6)<-59 then reverseYY6=0
 if y#(2,6)>27 then reverseYY6=1
 if y#(2,7)<-59 then reverseYY7=0
 if y#(2,7)>27 then reverseYY7=1
 if y#(2,8)<-59 then reverseYY8=0
 if y#(2,8)>27 then reverseYY8=1
`reverse movement
 if reverseYY=0 then y#(2,1)=y#(2,1)+0.4
 if reverseYY=1 then y#(2,1)=y#(2,1)-0.4
 if reverseYY2=0 then y#(2,2)=y#(2,2)+0.4
 if reverseYY2=1 then y#(2,2)=y#(2,2)-0.4
 if reverseYY3=0 then y#(2,3)=y#(2,3)+0.4
 if reverseYY3=1 then y#(2,3)=y#(2,3)-0.4
 if reverseYY4=0 then y#(2,4)=y#(2,4)+0.4
 if reverseYY4=1 then y#(2,4)=y#(2,4)-0.4
 if reverseYY5=0 then y#(2,5)=y#(2,5)+0.4
 if reverseYY5=1 then y#(2,5)=y#(2,5)-0.4
 if reverseYY6=0 then y#(2,6)=y#(2,6)+0.4
 if reverseYY6=1 then y#(2,6)=y#(2,6)-0.4
 if reverseYY7=0 then y#(2,7)=y#(2,7)+0.4
 if reverseYY7=1 then y#(2,7)=y#(2,7)-0.4
 if reverseYY8=0 then y#(2,8)=y#(2,8)+0.4
 if reverseYY8=1 then y#(2,8)=y#(2,8)-0.4
return

Hit:
 if object hit (1,9) then reverseY=0 and reverseY=1
 if object hit (9,1) then reverseYY=1 and reverseYY=0
 if object hit (2,10) then reverseY2=0 and reverseY2=1
 if object hit (10,2) then reverseYY2=1 and reverseYY2=0
 if object hit (3,11) then reverseY3=0 and reverseY3=1
 if object hit (11,3) then reverseYY3=1 and reverseYY3=0
 if object hit (4,12) then reverseY4=0 and reverseY4=1
 if object hit (12,4) then reverseYY4=1 and reverseYY4=0
 if object hit (5,13) then reverseY5=0 and reverseY5=1
 if object hit (13,5) then reverseYY5=1 and reverseYY5=0
 if object hit (6,14) then reverseY6=0 and reverseY6=1
 if object hit (14,6) then reverseYY6=1 and reverseYY6=0
 if object hit (7,15) then reverseY7=0 and reverseY7=1
 if object hit (15,7) then reverseYY7=1 and reverseYY7=0
 if object hit (8,16) then reverseY8=0 and reverseY8=1
 if object hit (16,8) then reverseYY8=1 and reverseYY8=0
return

+ Code Snippet

   ``Loading prompt
sync
 center text screen width()/2,screen height()/2,"LOADING"
sync
set display mode 880,640,16
make()

`first row | `second row
dim Y#(8,8)
y#(1,1)=35 : y#(2,1)=-68
y#(1,2)=36 : y#(2,2)=-67
y#(1,3)=35 : y#(2,3)=-66
y#(1,4)=34 : y#(2,4)=-65
y#(1,5)=33 : y#(2,5)=-64
y#(1,6)=32 : y#(2,6)=-63
y#(1,7)=31 : y#(2,7)=-62
y#(1,8)=30 : y#(2,8)=-61


sync on:do

 gosub Y_move
 gosub Hit

 ``First row
  position object 1,-53,y#(1,1),70: rotate object 1,1,object angle y(1)+1,0
  position object 2,-37,y#(1,2),70: rotate object 2,1,object angle y(2)+1,0
  position object 3,-22,y#(1,3),70: rotate object 3,1,object angle y(3)+1,0
  position object 4,-8,y#(1,4),70: rotate object 4,1,object angle y(4)+1,0
  position object 5,6,y#(1,5),70: rotate object 5,1,object angle y(5)+1,0
  position object 6,20,y#(1,6),70: rotate object 6,1,object angle y(6)+1,0
  position object 7,34,y#(1,7),70: rotate object 7,1,object angle y(7)+1,0
  position object 8,49,y#(1,8),70: rotate object 8,1,object angle y(8)+1,0
  ``Second row
  position object 9,-53,y#(2,1),70: rotate object 9,1,object angle y(9)+1,0
  position object 10,-37,y#(2,2),70: rotate object 10,1,object angle y(10)+1,0
  position object 11,-22,y#(2,3),70: rotate object 11,1,object angle y(11)+1,0
  position object 12,-8,y#(2,4),70: rotate object 12,1,object angle y(12)+1,0
  position object 13,6,y#(2,5),70: rotate object 13,1,object angle y(13)+1,0
  position object 14,20,y#(2,6),70: rotate object 14,1,object angle y(14)+1,0
  position object 15,34,y#(2,7),70: rotate object 15,1,object angle y(15)+1,0
  position object 16,49,y#(2,8),70: rotate object 16,1,object angle y(16)+1,0


 `camera controls
   if upkey() then move camera 1
   if downkey() then move camera -1
   if leftkey() then camera_left()
   if rightkey() then camera_right()
   if shiftkey():pitch_up():endif
   if controlkey():pitch_down():endIf

   sync:loop



function make()

   make object cube 1,10
   make object cube 2,10
   make object cube 3,10
   make object cube 4,10
   make object cube 5,10
   make object cube 6,10
   make object cube 7,10
   make object cube 8,10
   make object cube 9,10
   make object cube 10,10
   make object cube 11,10
   make object cube 12,10
   make object cube 13,10
   make object cube 14,10
   make object cube 15,10
   make object cube 16,10
endfunction



function camera_left()
   turn camera left 90
   move camera 0.4
   turn camera right 90
endfunction

function camera_right()
   turn camera right 90
   move camera 0.4
   turn camera left 90
endfunction

function pitch_up()
   pitch camera up 90
   move camera .5
   pitch camera down 90
endfunction

function pitch_down()
   pitch camera up 90
   move camera -.5
   pitch camera down 90
endfunction


Y_move:
`set movement limit
 if y#(1,1)>28 then reverseY=1
 if y#(1,1)<-51 then reverseY=0
 if y#(1,2)>28 then reverseY2=1
 if y#(1,2)<-51 then reverseY2=0
 if y#(1,3)>28 then reverseY3=1
 if y#(1,3)<-51 then reverseY3=0
 if y#(1,4)>28 then reverseY4=1
 if y#(1,4)<-51 then reverseY4=0
 if y#(1,5)>28 then reverseY5=1
 if y#(1,5)<-51 then reverseY5=0
 if y#(1,6)>28 then reverseY6=1
 if y#(1,6)<-51 then reverseY6=0
 if y#(1,7)>28 then reverseY7=1
 if y#(1,7)<-51 then reverseY7=0
 if y#(1,8)>28 then reverseY8=1
 if y#(1,8)<-51 then reverseY8=0
`reverse movement
 if reverseY=1 then y#(1,1)=y#(1,1)-0.4
 if reverseY=0 then y#(1,1)=y#(1,1)+0.4
 if reverseY2=1 then y#(1,2)=y#(1,2)-0.4
 if reverseY2=0 then y#(1,2)=y#(1,2)+0.4
 if reverseY3=1 then y#(1,3)=y#(1,3)-0.4
 if reverseY3=0 then y#(1,3)=y#(1,3)+0.4
 if reverseY4=1 then y#(1,4)=y#(1,4)-0.4
 if reverseY4=0 then y#(1,4)=y#(1,4)+0.4
 if reverseY5=1 then y#(1,5)=y#(1,5)-0.4
 if reverseY5=0 then y#(1,5)=y#(1,5)+0.4
 if reverseY6=1 then y#(1,6)=y#(1,6)-0.4
 if reverseY6=0 then y#(1,6)=y#(1,6)+0.4
 if reverseY7=1 then y#(1,7)=y#(1,7)-0.4
 if reverseY7=0 then y#(1,7)=y#(1,7)+0.4
 if reverseY8=1 then y#(1,8)=y#(1,8)-0.4
 if reverseY8=0 then y#(1,8)=y#(1,8)+0.4
`set movement limit
 if y#(2,1)<-59 then reverseYY=0
 if y#(2,1)>27 then reverseYY=1
 if y#(2,2)<-59 then reverseYY2=0
 if y#(2,2)>27 then reverseYY2=1
 if y#(2,3)<-59 then reverseYY3=0
 if y#(2,3)>27 then reverseYY3=1
 if y#(2,4)<-59 then reverseYY4=0
 if y#(2,4)>27 then reverseYY4=1
 if y#(2,5)<-59 then reverseYY5=0
 if y#(2,5)>27 then reverseYY5=1
 if y#(2,6)<-59 then reverseYY6=0
 if y#(2,6)>27 then reverseYY6=1
 if y#(2,7)<-59 then reverseYY7=0
 if y#(2,7)>27 then reverseYY7=1
 if y#(2,8)<-59 then reverseYY8=0
 if y#(2,8)>27 then reverseYY8=1
`reverse movement
 if reverseYY=0 then y#(2,1)=y#(2,1)+0.4
 if reverseYY=1 then y#(2,1)=y#(2,1)-0.4
 if reverseYY2=0 then y#(2,2)=y#(2,2)+0.4
 if reverseYY2=1 then y#(2,2)=y#(2,2)-0.4
 if reverseYY3=0 then y#(2,3)=y#(2,3)+0.4
 if reverseYY3=1 then y#(2,3)=y#(2,3)-0.4
 if reverseYY4=0 then y#(2,4)=y#(2,4)+0.4
 if reverseYY4=1 then y#(2,4)=y#(2,4)-0.4
 if reverseYY5=0 then y#(2,5)=y#(2,5)+0.4
 if reverseYY5=1 then y#(2,5)=y#(2,5)-0.4
 if reverseYY6=0 then y#(2,6)=y#(2,6)+0.4
 if reverseYY6=1 then y#(2,6)=y#(2,6)-0.4
 if reverseYY7=0 then y#(2,7)=y#(2,7)+0.4
 if reverseYY7=1 then y#(2,7)=y#(2,7)-0.4
 if reverseYY8=0 then y#(2,8)=y#(2,8)+0.4
 if reverseYY8=1 then y#(2,8)=y#(2,8)-0.4
return

Hit:
 if object hit (1,9) then reverseY=0 and reverseY=1
 if object hit (9,1) then reverseYY=1 and reverseYY=0
 if object hit (2,10) then reverseY2=0 and reverseY2=1
 if object hit (10,2) then reverseYY2=1 and reverseYY2=0
 if object hit (3,11) then reverseY3=0 and reverseY3=1
 if object hit (11,3) then reverseYY3=1 and reverseYY3=0
 if object hit (4,12) then reverseY4=0 and reverseY4=1
 if object hit (12,4) then reverseYY4=1 and reverseYY4=0
 if object hit (5,13) then reverseY5=0 and reverseY5=1
 if object hit (13,5) then reverseYY5=1 and reverseYY5=0
 if object hit (6,14) then reverseY6=0 and reverseY6=1
 if object hit (14,6) then reverseYY6=1 and reverseYY6=0
 if object hit (7,15) then reverseY7=0 and reverseY7=1
 if object hit (15,7) then reverseYY7=1 and reverseYY7=0
 if object hit (8,16) then reverseY8=0 and reverseY8=1
 if object hit (16,8) then reverseYY8=1 and reverseYY8=0
return

Back to top

Profile PM Email

Asternus

20

Years of Service

User Offline

Joined: 11th Aug 2004

Location: N.C. U.S.A

Posted: 19th Aug 2004 22:30 Edited at: 19th Aug 2004 22:35

Link

edit!!

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / primary noob...please help