A little moving trouble - GameCreators Forum

Author

Message

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 16th May 2006 12:43 Edited at: 16th May 2006 12:44

Link

Hey guys. I'm working on a new game(that i'll hopefully finish) thats kind of like a frogger clone. I'm using an array to make the cars and position them but i'm having trouble getting them to move. Here's what i got:

sync on

DIM car(15)
car(1)=1
car(2)=2
car(3)=3
car(4)=4
car(5)=5
car(6)=6
car(7)=7
car(8)=8
car(9)=9
car(10)=10
car(11)=11
car(12)=12
car(13)=13
car(14)=14
car(15)=15

DIM carx(15)
carx(1)=-4
carx(2)=4
carx(3)=5
carx(4)=-7
carx(5)=10
carx(6)=-3
carx(7)=-2
carx(8)=-8
carx(9)=0
carx(10)=12
carx(11)=5
carx(12)=-3
carx(13)=1
carx(14)=-8
carx(15)=-6

DIM carz(15)
carz(1)=1
carz(2)=1
carz(3)=3
carz(4)=3
carz(5)=4
carz(6)=4
carz(7)=5
carz(8)=5
carz(9)=6
carz(10)=6
carz(11)=7
carz(12)=7
carz(13)=8
carz(14)=8
carz(15)=9

`make a car
for t = 1 to 15
make object box car(t),rnd(3),1,1
position object t,carx(t),0,carz(t)
color object car(t),rgb(rnd(255),rnd(255),rnd(255))
next t

`make the dog
make object cube 16,1
color object 16,rgb(150,50,0)

`variables i will use
`frogx=the x position of the player
`frogz=the z position of the player
`frogyr=the rotation of the player

frogx#=0
frogz#=0
carx#=12

do
`move the dog
if upkey()=1 then frogz#=frogz#+0.25
if downkey()=1 then frogz#=frogz#-0.25
if leftkey()=1 then frogx#=frogx#-0.25
if rightkey()=1 then frogx#=frogx#+0.25

`contain the dog
if frogx#>7 then frogx#=frogx#-0.25
if frogx#<-7 then frogx#=frogx#+0.25
if frogz#>10 then frogz#=frogz#-0.25
if frogz#<0 then frogz#=frogz#+0.25

`position the cars
for v = 1 to 15
carx(v)=newxvalue(carx(v),0,0.1)
position object v,carx(v),0,carz(v)
if carx(v)<-12 then carx(v)=12
next v

`position the dog
position object 16,frogx#,0,frogz#

position camera 0,10,5
point camera 0,0,5

sync
loop

+ Code Snippet

sync on

DIM car(15)
car(1)=1
car(2)=2
car(3)=3
car(4)=4
car(5)=5
car(6)=6
car(7)=7
car(8)=8
car(9)=9
car(10)=10
car(11)=11
car(12)=12
car(13)=13
car(14)=14
car(15)=15

DIM carx(15)
carx(1)=-4
carx(2)=4
carx(3)=5
carx(4)=-7
carx(5)=10
carx(6)=-3
carx(7)=-2
carx(8)=-8
carx(9)=0
carx(10)=12
carx(11)=5
carx(12)=-3
carx(13)=1
carx(14)=-8
carx(15)=-6

DIM carz(15)
carz(1)=1
carz(2)=1
carz(3)=3
carz(4)=3
carz(5)=4
carz(6)=4
carz(7)=5
carz(8)=5
carz(9)=6
carz(10)=6
carz(11)=7
carz(12)=7
carz(13)=8
carz(14)=8
carz(15)=9

`make a car
for t = 1 to 15
make object box car(t),rnd(3),1,1
position object t,carx(t),0,carz(t)
color object car(t),rgb(rnd(255),rnd(255),rnd(255))
next t

`make the dog
make object cube 16,1
color object 16,rgb(150,50,0)

`variables i will use
`frogx=the x position of the player
`frogz=the z position of the player
`frogyr=the rotation of the player


frogx#=0
frogz#=0
carx#=12

do
`move the dog
if upkey()=1 then frogz#=frogz#+0.25
if downkey()=1 then frogz#=frogz#-0.25
if leftkey()=1 then frogx#=frogx#-0.25
if rightkey()=1 then frogx#=frogx#+0.25

`contain the dog
if frogx#>7 then frogx#=frogx#-0.25
if frogx#<-7 then frogx#=frogx#+0.25
if frogz#>10 then frogz#=frogz#-0.25
if frogz#<0 then frogz#=frogz#+0.25

`position the cars
for v = 1 to 15
carx(v)=newxvalue(carx(v),0,0.1)
position object v,carx(v),0,carz(v)
if carx(v)<-12 then carx(v)=12
next v

`position the dog
position object 16,frogx#,0,frogz#

position camera 0,10,5
point camera 0,0,5

sync
loop

If someone could help me that would be great. I'll try to look for the problem myself too. Thanks.

The nintendo Wii. Okay...

Back to top

Profile PM

Ant

19

Years of Service

User Offline

Joined: 27th Nov 2004

Location:

Posted: 16th May 2006 19:53

Link

try this !

sync on
sync rate 60

DIM car(15)
car(1)=1
car(2)=2
car(3)=3
car(4)=4
car(5)=5
car(6)=6
car(7)=7
car(8)=8
car(9)=9
car(10)=10
car(11)=11
car(12)=12
car(13)=13
car(14)=14
car(15)=15

DIM carx#(15)
carx#(1)=-4
carx#(2)=4
carx#(3)=5
carx#(4)=-7
carx#(5)=10
carx#(6)=-3
carx#(7)=-2
carx#(8)=-8
carx#(9)=0
carx#(10)=12
carx#(11)=5
carx#(12)=-3
carx#(13)=1
carx#(14)=-8
carx#(15)=-6

DIM carz(15)
carz(1)=1
carz(2)=1
carz(3)=3
carz(4)=3
carz(5)=4
carz(6)=4
carz(7)=5
carz(8)=5
carz(9)=6
carz(10)=6
carz(11)=7
carz(12)=7
carz(13)=8
carz(14)=8
carz(15)=9

`make a car
for t = 1 to 15
make object box car(t),rnd(3),1,1
position object t,carx#(t),0,carz(t)
color object car(t),rgb(rnd(255),rnd(255),rnd(255))
next t

`make the dog
make object cube 16,1
color object 16,rgb(150,50,0)

`variables i will use
`frogx=the x position of the player
`frogz=the z position of the player
`frogyr=the rotation of the player

frogx#=0
frogz#=0
carx#=12

do
`move the dog
if upkey()=1 then frogz#=frogz#+0.25
if downkey()=1 then frogz#=frogz#-0.25
if leftkey()=1 then frogx#=frogx#-0.25
if rightkey()=1 then frogx#=frogx#+0.25

`contain the dog
if frogx#>7 then frogx#=frogx#-0.25
if frogx#<-7 then frogx#=frogx#+0.25
if frogz#>10 then frogz#=frogz#-0.25
if frogz#<0 then frogz#=frogz#+0.25

`position the cars
for v = 1 to 15
carx#(v)=newxvalue(carx#(v),0,0.1)
position object v,carx#(v),0,carz(v)
carx#(v)=carx#(v)-0.25
if carx#(v)<-12 then carx#(v)=12
next v

`position the dog
position object 16,frogx#,0,frogz#

position camera 0,10,5
point camera 0,0,5

sync
loop

+ Code Snippet

sync on
sync rate 60

DIM car(15)
car(1)=1
car(2)=2
car(3)=3
car(4)=4
car(5)=5
car(6)=6
car(7)=7
car(8)=8
car(9)=9
car(10)=10
car(11)=11
car(12)=12
car(13)=13
car(14)=14
car(15)=15

DIM carx#(15)
carx#(1)=-4
carx#(2)=4
carx#(3)=5
carx#(4)=-7
carx#(5)=10
carx#(6)=-3
carx#(7)=-2
carx#(8)=-8
carx#(9)=0
carx#(10)=12
carx#(11)=5
carx#(12)=-3
carx#(13)=1
carx#(14)=-8
carx#(15)=-6

DIM carz(15)
carz(1)=1
carz(2)=1
carz(3)=3
carz(4)=3
carz(5)=4
carz(6)=4
carz(7)=5
carz(8)=5
carz(9)=6
carz(10)=6
carz(11)=7
carz(12)=7
carz(13)=8
carz(14)=8
carz(15)=9

`make a car
for t = 1 to 15
make object box car(t),rnd(3),1,1
position object t,carx#(t),0,carz(t)
color object car(t),rgb(rnd(255),rnd(255),rnd(255))
next t

`make the dog
make object cube 16,1
color object 16,rgb(150,50,0)

`variables i will use
`frogx=the x position of the player
`frogz=the z position of the player
`frogyr=the rotation of the player


frogx#=0
frogz#=0
carx#=12

do
`move the dog
if upkey()=1 then frogz#=frogz#+0.25
if downkey()=1 then frogz#=frogz#-0.25
if leftkey()=1 then frogx#=frogx#-0.25
if rightkey()=1 then frogx#=frogx#+0.25

`contain the dog
if frogx#>7 then frogx#=frogx#-0.25
if frogx#<-7 then frogx#=frogx#+0.25
if frogz#>10 then frogz#=frogz#-0.25
if frogz#<0 then frogz#=frogz#+0.25

`position the cars
for v = 1 to 15
carx#(v)=newxvalue(carx#(v),0,0.1)
position object v,carx#(v),0,carz(v)
carx#(v)=carx#(v)-0.25
if carx#(v)<-12 then carx#(v)=12
next v

`position the dog
position object 16,frogx#,0,frogz#

position camera 0,10,5
point camera 0,0,5

sync
loop

Back to top

Profile PM Email

smallg

Valued Member

18

Years of Service

User Offline

Joined: 8th Dec 2005

Location: steam

Posted: 16th May 2006 20:42 Edited at: 16th May 2006 20:43

Link

change this

+ Code Snippet

car(1)=1
car(2)=2
car(3)=3
car(4)=4
car(5)=5
car(6)=6
car(7)=7
car(8)=8
car(9)=9
car(10)=10
car(11)=11
car(12)=12
car(13)=13
car(14)=14
car(15)=15

to

+ Code Snippet

for c=1 to 15
car(1)=c
next c

life's one big game
spec= 2ghz, 1gb ram, 512mb gpu, directx 9.0c, dbpro and classic

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 16th May 2006 21:09 Edited at: 17th May 2006 16:24

Link

and i would change this

+ Code Snippet

DIM carx(15)
carx(1)=-4
carx(2)=4
carx(3)=5
carx(4)=-7
carx(5)=10
carx(6)=-3
carx(7)=-2
carx(8)=-8
carx(9)=0
carx(10)=12
carx(11)=5
carx(12)=-3
carx(13)=1
carx(14)=-8
carx(15)=-6

DIM carz(15)
carz(1)=1
carz(2)=1
carz(3)=3
carz(4)=3
carz(5)=4
carz(6)=4
carz(7)=5
carz(8)=5
carz(9)=6
carz(10)=6
carz(11)=7
carz(12)=7
carz(13)=8
carz(14)=8
carz(15)=9

to

+ Code Snippet

restore datx
for c=1 to 15
read v
carx(c)=v
next c

restore datz
for c=1 to 15
read v
carz(c)= v
next c

`outside and below main loop.

datx:
data -4,4,5,-7,10,-3,-2,-8,0,12,5,-3,1,-8,-6

datz: 
data 1,1,3,3,4,4,5,5,6,6,7,7,8,8,9

Makes it easier if you ever need to read in the data again. Or, to add new data you just have to restore to a new data line.

of course you can combine the loops and data together to read X and Z; and the above initialization of car(c).

than just

+ Code Snippet

restore dataxz

for c=1 to 15
read v: read w
car(c)=c
carx(c)=v
carz(c)=w
next c

rem after the main loop. 

end
dataxz:
rem stagger the value for V and W
data -4,1,4,1,5,3,-7,3 etc...

lastly, It could be made into a function.

Note: I have had times where the above gives a compiler error. Can't remember if it was DBC only. I don't know fully why this happend. In those circumstances I found that I had to assign the read to a variable first.

eg.
read v
anum=v
carx(c)=anum

~zen

Back to top

Profile PM Email

Ant

19

Years of Service

User Offline

Joined: 27th Nov 2004

Location:

Posted: 16th May 2006 21:53

Link

Or this is a slightly better version of my previous attempt !

hide mouse
sync on
sync rate 60

global frogx#
global frogz#

randomize timer()

DIM car(15)

for v = 1 to 15
car(v) = v
next v

DIM carx#(15)
for v = 1 to 15
carx#(v) = rnd(40) - rnd(5)
next v

DIM carz(15)
for v = 1 to 15
carz(v)= rnd(8)+1
next v

`make a car
for t = 1 to 15
make object box car(t),rnd(3),1,1
position object t,carx#(t),0,carz(t)
color object car(t),rgb(rnd(255),rnd(255),rnd(255))
next t

`make the dog
make object cube 16,1
color object 16,rgb(150,50,0)

`variables i will use
`frogx=the x position of the player
`frogz=the z position of the player
`frogyr=the rotation of the player

frogx#=0
frogz#=0
carx#=12

do
color backdrop 0

`move the dog
if upkey()=1 then frogz#=frogz#+0.25
if downkey()=1 then frogz#=frogz#-0.25
if leftkey()=1 then frogx#=frogx#-0.25
if rightkey()=1 then frogx#=frogx#+0.25

`contain the dog
if frogx#>7 then frogx#=frogx#-0.25
if frogx#<-7 then frogx#=frogx#+0.25
if frogz#>10 then frogz#=frogz#-0.25
if frogz#<0 then frogz#=frogz#+0.25

`position the cars
for v = 1 to 15
        carx#(v)=newxvalue(carx#(v),0,0.1)
        position object v,carx#(v),0,carz(v)

`---------------------------------------------------------
`basic collision
`---------------------------------------------------------
        if object collision(v,16)
            set text font "arial"
            set text size 40
            set text to bold
            set text opaque
            ink rgb(255,0,0),0
            center text 320,200,"You have been struck by a car"
            center text 320,240,"         Game Over !!!       "
            sync
            wait key
            end
        endif
`---------------------------------------------------------
`set up speed of cars
       carx#(v) = carx#(v) - 0.05
`----------------------------------------------------------
       if carx#(v)<-12 then carx#(v)=12
next v

`position the dog
position object 16,frogx#,frogy#,frogz#

position camera 0,10,5
point camera 0,0,5

sync
loop

+ Code Snippet


hide mouse
sync on
sync rate 60

global frogx#
global frogz#

randomize timer()

DIM car(15)

for v = 1 to 15
car(v) = v
next v

DIM carx#(15)
for v = 1 to 15
carx#(v) = rnd(40) - rnd(5)
next v

DIM carz(15)
for v = 1 to 15
carz(v)= rnd(8)+1
next v

`make a car
for t = 1 to 15
make object box car(t),rnd(3),1,1
position object t,carx#(t),0,carz(t)
color object car(t),rgb(rnd(255),rnd(255),rnd(255))
next t

`make the dog
make object cube 16,1
color object 16,rgb(150,50,0)

`variables i will use
`frogx=the x position of the player
`frogz=the z position of the player
`frogyr=the rotation of the player

frogx#=0
frogz#=0
carx#=12

do
color backdrop 0

`move the dog
if upkey()=1 then frogz#=frogz#+0.25
if downkey()=1 then frogz#=frogz#-0.25
if leftkey()=1 then frogx#=frogx#-0.25
if rightkey()=1 then frogx#=frogx#+0.25

`contain the dog
if frogx#>7 then frogx#=frogx#-0.25
if frogx#<-7 then frogx#=frogx#+0.25
if frogz#>10 then frogz#=frogz#-0.25
if frogz#<0 then frogz#=frogz#+0.25

`position the cars
for v = 1 to 15
        carx#(v)=newxvalue(carx#(v),0,0.1)
        position object v,carx#(v),0,carz(v)

`---------------------------------------------------------
`basic collision
`---------------------------------------------------------
        if object collision(v,16)
            set text font "arial"
            set text size 40
            set text to bold
            set text opaque
            ink rgb(255,0,0),0
            center text 320,200,"You have been struck by a car"
            center text 320,240,"         Game Over !!!       "
            sync
            wait key
            end
        endif
`---------------------------------------------------------
`set up speed of cars
       carx#(v) = carx#(v) - 0.05
`----------------------------------------------------------
       if carx#(v)<-12 then carx#(v)=12
next v

`position the dog
position object 16,frogx#,frogy#,frogz#

position camera 0,10,5
point camera 0,0,5

sync
loop

Back to top

Profile PM Email

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 17th May 2006 12:49

Link

Hey thanks guys. I'll play around with this and hopefully get it all fixed soon.

The nintendo Wii. Okay...

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / A little moving trouble