Prototype of my first game with loads of problems.

Author

Message

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 24th Aug 2004 06:01

Link

--Have your name in the final version if you help debug this prototype------------------------------------------------------------

Here is my first proper game made with dbpro. The aim of the game is to touch all the cubes in the court to finish the level. There is no scoring system and no new levels or obstacles which will end the game, but like I said its just a prototype. I have a few problems though.

1.I cant seem to randomly place the cubes inside of the court.

2.I want to be able to make it look like the ball is rolling over
the court.

3.I want to optimize my code because I know there must be a better way than having hundreds of if statements.

ps. no comments sorry, its a prototype.

Thankyou I would really appreciate if someone spent the time to look through it or help me with one of the problems I have.

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

French gui

20

Years of Service

User Offline

Joined: 11th May 2004

Location: France

Posted: 24th Aug 2004 06:17 Edited at: 24th Aug 2004 06:18

Link

Random positions:
numofcub=20
for i=1 to numofcub
position object i,rnd(1000)-500,0,rnd(1000)-500
next i

(assuming the cubes are created and with numbers from 1 to numofcub, they will be positionned in a zone of 500 units from the point 0,0,0 of your world)

My English is not so good I'm just French

Back to top

Profile PM Website

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 24th Aug 2004 06:43

Link

Thankyou, but the court is (x,z) (-125,0),(-125,125),(125,0),(125,125) and I used this code which I think should work but it doesnt.

+ Code Snippet

for t = 7 to 12
   make object cube t,5
   set object collision to boxes t
   randomize timer()
   position object t,125-rnd(220),3,125-rnd(220)
   next t

Thanks for any more help you might give me

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

French gui

20

Years of Service

User Offline

Joined: 11th May 2004

Location: France

Posted: 24th Aug 2004 06:55

Link

Then it will be:

+ Code Snippet

for t = 7 to 12
   make object cube t,5
   set object collision to boxes t
   randomize timer()
   position object t,rnd(250)-125,3,rnd(125)
   next t

My English is not so good I'm just French

Back to top

Profile PM Website

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 24th Aug 2004 18:54

Link

Thankyou for your help, it looks as though your code should work but it still doesnt work, I now have it so the cubes have a more random position(I put a wait command in), but like I said they still dont start off in the court. Please could you look over it again and see if there is something Ive missed. Thankyou, much appreciated.

REM Project: TouchMeTouchMe
REM Created: 23/08/2004 18:23:16
REM
REM ***** Main Source File *****
REM
Sync rate 60
Make object sphere 1,6:color object 1,rgb(255,0,0)
Make object box 2,126,1,126:color object 2,rgb(0,128,0)
Position object 1,-40,3,40
Make object box 3,126,5,1:color object 3,rgb(128,56,0)
Make object box 4,126,5,1:color object 4,rgb(128,56,0)
Make object box 5,1,5,126:color object 5,rgb(128,56,0)
Make object box 6,1,5,126:color object 6,rgb(128,56,0)
Position object 3,0,0,63
Position object 4,0,0,-63
position object 5,63,0,0
position object 6,-63,0,0
For x = 1 to 6
      set object collision to boxes x
      next x
      randomize timer()
for t = 7 to 12
   make object cube t,5
   set object collision to boxes t
   position object t,rnd(252)-125,3,rnd(125)
   randomize timer()
   wait 100
   next t
score#=0
Do

yang# = object angle y(1)
xpos# = object position x(1)
zpos# = object position z(1)
xpos7#= object position x(7)
zpos7#= object position z(7)
xpos8#= object position x(8)
zpos8#= object position z(8)
xpos9#= object position x(9)
zpos9#= object position z(9)
xpos10#= object position x(10)
zpos10#= object position z(10)
xpos11#= object position x(11)
zpos11#= object position z(11)
xpos12#= object position x(12)
zpos12#= object position z(12)
If upkey()=1 then move object 1,1
If leftkey()=1 then yrotate object 1,wrapvalue(yang#-5)
If rightkey()=1 then yrotate object 1,wrapvalue(yang#+5)
for r = 7 to 12
      randomize timer()
      yrotate object r,wrapvalue(object angle y(r)- rnd(360))
      randomize timer()
      move object r,2
      next r
If object collision(7,3) then position object 7,xpos7#,3,zpos7#-0.5
If object collision(8,3) then position object 8,xpos8#,3,zpos8#-0.5
If object collision(9,3) then position object 9,xpos9#,3,zpos9#-0.5
If object collision(10,3) then position object 10,xpos10#,3,zpos10#-0.5
If object collision(11,3) then position object 11,xpos11#,3,zpos11#-0.5
If object collision(12,3) then position object 12,xpos12#,3,zpos12#-0.5
If object collision(7,4) then position object 7,xpos7#,3,zpos7#+0.5
If object collision(8,4) then position object 8,xpos8#,3,zpos8#+0.5
If object collision(9,4) then position object 9,xpos9#,3,zpos9#+0.5
If object collision(10,4) then position object 10,xpos10#,3,zpos10#+0.5
If object collision(11,4) then position object 11,xpos11#,3,zpos11#+0.5
If object collision(12,4) then position object 12,xpos12#,3,zpos12#+0.5
If object collision(7,5) then position object 7,xpos7#-0.5,3,zpos7#
If object collision(8,5) then position object 8,xpos7#-0.5,3,zpos8#
If object collision(9,5) then position object 9,xpos7#-0.5,3,zpos9#
If object collision(10,5) then position object 10,xpos10#-0.5,3,zpos10#
If object collision(11,5) then position object 11,xpos11#-0.5,3,zpos11#
If object collision(12,5) then position object 12,xpos12#-0.5,3,zpos12#
If object collision(7,6) then position object 7,xpos7#+0.5,3,zpos7#
If object collision(8,6) then position object 8,xpos8#+0.5,3,zpos8#
If object collision(9,6) then position object 9,xpos9#+0.5,3,zpos9#
If object collision(10,6) then position object 10,xpos10#+0.5,3,zpos10#
If object collision(11,6) then position object 11,xpos11#+0.5,3,zpos11#
If object collision(12,6) then position object 12,xpos12#+0.5,3,zpos12#
If object collision(1,3) then position object 1,xpos#,3,zpos#-0.5
If object collision(1,4) then position object 1,xpos#,3,zpos#+0.5
If object collision(1,5) then position object 1,xpos#-0.5,3,zpos#
If object collision(1,6) then position object 1,xpos#+0.5,3,zpos#
For a = 7 to 12
   If object collision(1,a) then hide object a
next a
xpos# = object position x(1)
zpos# = object position z(1)
camz# = Newzvalue(zpos#,yang#-180,50)
camx# = Newxvalue(xpos#,yang#-180,50)

Position camera camx#,30,camz#
Point camera xpos#,3,zpos#
Sync
Loop

+ Code Snippet

REM Project: TouchMeTouchMe
REM Created: 23/08/2004 18:23:16
REM
REM ***** Main Source File *****
REM
Sync rate 60
Make object sphere 1,6:color object 1,rgb(255,0,0)
Make object box 2,126,1,126:color object 2,rgb(0,128,0)
Position object 1,-40,3,40
Make object box 3,126,5,1:color object 3,rgb(128,56,0)
Make object box 4,126,5,1:color object 4,rgb(128,56,0)
Make object box 5,1,5,126:color object 5,rgb(128,56,0)
Make object box 6,1,5,126:color object 6,rgb(128,56,0)
Position object 3,0,0,63
Position object 4,0,0,-63
position object 5,63,0,0
position object 6,-63,0,0
For x = 1 to 6
      set object collision to boxes x
      next x
      randomize timer()
for t = 7 to 12
   make object cube t,5
   set object collision to boxes t
   position object t,rnd(252)-125,3,rnd(125)
   randomize timer()
   wait 100
   next t
score#=0
Do

yang# = object angle y(1)
xpos# = object position x(1)
zpos# = object position z(1)
xpos7#= object position x(7)
zpos7#= object position z(7)
xpos8#= object position x(8)
zpos8#= object position z(8)
xpos9#= object position x(9)
zpos9#= object position z(9)
xpos10#= object position x(10)
zpos10#= object position z(10)
xpos11#= object position x(11)
zpos11#= object position z(11)
xpos12#= object position x(12)
zpos12#= object position z(12)
If upkey()=1 then move object 1,1
If leftkey()=1 then yrotate object 1,wrapvalue(yang#-5)
If rightkey()=1 then yrotate object 1,wrapvalue(yang#+5)
for r = 7 to 12
      randomize timer()
      yrotate object r,wrapvalue(object angle y(r)- rnd(360))
      randomize timer()
      move object r,2
      next r
If object collision(7,3) then position object 7,xpos7#,3,zpos7#-0.5
If object collision(8,3) then position object 8,xpos8#,3,zpos8#-0.5
If object collision(9,3) then position object 9,xpos9#,3,zpos9#-0.5
If object collision(10,3) then position object 10,xpos10#,3,zpos10#-0.5
If object collision(11,3) then position object 11,xpos11#,3,zpos11#-0.5
If object collision(12,3) then position object 12,xpos12#,3,zpos12#-0.5
If object collision(7,4) then position object 7,xpos7#,3,zpos7#+0.5
If object collision(8,4) then position object 8,xpos8#,3,zpos8#+0.5
If object collision(9,4) then position object 9,xpos9#,3,zpos9#+0.5
If object collision(10,4) then position object 10,xpos10#,3,zpos10#+0.5
If object collision(11,4) then position object 11,xpos11#,3,zpos11#+0.5
If object collision(12,4) then position object 12,xpos12#,3,zpos12#+0.5
If object collision(7,5) then position object 7,xpos7#-0.5,3,zpos7#
If object collision(8,5) then position object 8,xpos7#-0.5,3,zpos8#
If object collision(9,5) then position object 9,xpos7#-0.5,3,zpos9#
If object collision(10,5) then position object 10,xpos10#-0.5,3,zpos10#
If object collision(11,5) then position object 11,xpos11#-0.5,3,zpos11#
If object collision(12,5) then position object 12,xpos12#-0.5,3,zpos12#
If object collision(7,6) then position object 7,xpos7#+0.5,3,zpos7#
If object collision(8,6) then position object 8,xpos8#+0.5,3,zpos8#
If object collision(9,6) then position object 9,xpos9#+0.5,3,zpos9#
If object collision(10,6) then position object 10,xpos10#+0.5,3,zpos10#
If object collision(11,6) then position object 11,xpos11#+0.5,3,zpos11#
If object collision(12,6) then position object 12,xpos12#+0.5,3,zpos12#
If object collision(1,3) then position object 1,xpos#,3,zpos#-0.5
If object collision(1,4) then position object 1,xpos#,3,zpos#+0.5
If object collision(1,5) then position object 1,xpos#-0.5,3,zpos#
If object collision(1,6) then position object 1,xpos#+0.5,3,zpos#
For a = 7 to 12
   If object collision(1,a) then hide object a
next a
xpos# = object position x(1)
zpos# = object position z(1)
camz# = Newzvalue(zpos#,yang#-180,50)
camx# = Newxvalue(xpos#,yang#-180,50)

Position camera camx#,30,camz#
Point camera xpos#,3,zpos#
Sync
Loop

Daniel.

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 24th Aug 2004 19:00

Link

sorted the problem. It should be position object t,rnd(126)-63,3,rnd(63)

Thankyou

Daniel.

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

Mentor

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 24th Aug 2004 22:34

Link

a better code would be

for t=7 to 12
repeat
position object t,rnd(126)-63,3,rnd(63)
until object collision (t,0)=0
next t

the repeat until loop makes sure that you dont get objects in the same place, it will repeat until no object occupies the same space as any other (most of the time it will succeed the first time) so you can`t get an object inside another or partialy inside another, it will only leave a object at a position that gives no collision.

Mentor.

PC1: P4 3ghz, 1gig mem, 2x160gig hd`s, Radeon 9800pro w cooler (3rd gfx card), 6 way speakers.
PC2: AMD 2ghz, 512mb ram, FX5200 ultra, 16 bit SB.
Mini ATX cases suck.

Back to top

Profile PM

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 25th Aug 2004 03:02

Link

Excellent thankyou, do you know of any way I can shorten all of the collision detection commands like in a for next loop because when I create a new level im going to have extra cubes to get meaning i would have to add some more collision detection commands, it would be easier if i could just change the number in the for next loop so more cubes are created. I also want to have each level;s code in a different function because Im going to add more obstacles and that inda thing, so this is another reason why I need a shorter more efficient way to check for all the object collisions which can occur and need responding to. Thankyou for your help. Mentor - your name will go in the credits of the final version under volunteers. Thankyou again

Daniel.

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

French gui

20

Years of Service

User Offline

Joined: 11th May 2004

Location: France

Posted: 25th Aug 2004 04:51 Edited at: 25th Aug 2004 04:58

Link

You can put these parts...

xpos7#= object position x(7)
zpos7#= object position z(7)
xpos8#= object position x(8)
zpos8#= object position z(8)
xpos9#= object position x(9)
zpos9#= object position z(9)
xpos10#= object position x(10)
zpos10#= object position z(10)
xpos11#= object position x(11)
zpos11#= object position z(11)
xpos12#= object position x(12)
zpos12#= object position z(12)
...

If object collision(7,3) then position object 7,xpos7#,3,zpos7#-0.5
If object collision(8,3) then position object 8,xpos8#,3,zpos8#-0.5
If object collision(9,3) then position object 9,xpos9#,3,zpos9#-0.5
If object collision(10,3) then position object 10,xpos10#,3,zpos10#-0.5
If object collision(11,3) then position object 11,xpos11#,3,zpos11#-0.5
If object collision(12,3) then position object 12,xpos12#,3,zpos12#-0.5
If object collision(7,4) then position object 7,xpos7#,3,zpos7#+0.5
If object collision(8,4) then position object 8,xpos8#,3,zpos8#+0.5
If object collision(9,4) then position object 9,xpos9#,3,zpos9#+0.5
If object collision(10,4) then position object 10,xpos10#,3,zpos10#+0.5
If object collision(11,4) then position object 11,xpos11#,3,zpos11#+0.5
If object collision(12,4) then position object 12,xpos12#,3,zpos12#+0.5
If object collision(7,5) then position object 7,xpos7#-0.5,3,zpos7#
If object collision(8,5) then position object 8,xpos7#-0.5,3,zpos8#
If object collision(9,5) then position object 9,xpos7#-0.5,3,zpos9#
If object collision(10,5) then position object 10,xpos10#-0.5,3,zpos10#
If object collision(11,5) then position object 11,xpos11#-0.5,3,zpos11#
If object collision(12,5) then position object 12,xpos12#-0.5,3,zpos12#
If object collision(7,6) then position object 7,xpos7#+0.5,3,zpos7#
If object collision(8,6) then position object 8,xpos8#+0.5,3,zpos8#
If object collision(9,6) then position object 9,xpos9#+0.5,3,zpos9#
If object collision(10,6) then position object 10,xpos10#+0.5,3,zpos10#
If object collision(11,6) then position object 11,xpos11#+0.5,3,zpos11#
If object collision(12,6) then position object 12,xpos12#+0.5,3,zpos12#

+ Code Snippet

xpos7#= object position x(7)
zpos7#= object position z(7)
xpos8#= object position x(8)
zpos8#= object position z(8)
xpos9#= object position x(9)
zpos9#= object position z(9)
xpos10#= object position x(10)
zpos10#= object position z(10)
xpos11#= object position x(11)
zpos11#= object position z(11)
xpos12#= object position x(12)
zpos12#= object position z(12)
...

If object collision(7,3) then position object 7,xpos7#,3,zpos7#-0.5
If object collision(8,3) then position object 8,xpos8#,3,zpos8#-0.5
If object collision(9,3) then position object 9,xpos9#,3,zpos9#-0.5
If object collision(10,3) then position object 10,xpos10#,3,zpos10#-0.5
If object collision(11,3) then position object 11,xpos11#,3,zpos11#-0.5
If object collision(12,3) then position object 12,xpos12#,3,zpos12#-0.5
If object collision(7,4) then position object 7,xpos7#,3,zpos7#+0.5
If object collision(8,4) then position object 8,xpos8#,3,zpos8#+0.5
If object collision(9,4) then position object 9,xpos9#,3,zpos9#+0.5
If object collision(10,4) then position object 10,xpos10#,3,zpos10#+0.5
If object collision(11,4) then position object 11,xpos11#,3,zpos11#+0.5
If object collision(12,4) then position object 12,xpos12#,3,zpos12#+0.5
If object collision(7,5) then position object 7,xpos7#-0.5,3,zpos7#
If object collision(8,5) then position object 8,xpos7#-0.5,3,zpos8#
If object collision(9,5) then position object 9,xpos7#-0.5,3,zpos9#
If object collision(10,5) then position object 10,xpos10#-0.5,3,zpos10#
If object collision(11,5) then position object 11,xpos11#-0.5,3,zpos11#
If object collision(12,5) then position object 12,xpos12#-0.5,3,zpos12#
If object collision(7,6) then position object 7,xpos7#+0.5,3,zpos7#
If object collision(8,6) then position object 8,xpos8#+0.5,3,zpos8#
If object collision(9,6) then position object 9,xpos9#+0.5,3,zpos9#
If object collision(10,6) then position object 10,xpos10#+0.5,3,zpos10#
If object collision(11,6) then position object 11,xpos11#+0.5,3,zpos11#
If object collision(12,6) then position object 12,xpos12#+0.5,3,zpos12#

in 2 for...next:

+ Code Snippet

rem Do you know DIMs?
dim xpos#(20)
dim zpos#(20)
dim k#(20)

k#(3)=-0.5
k#(4)=0.5

do
...
for i=7 to 12
xpos#(i)=object position x(i)
zpos#(i)=object position z(i)
next i
...

for j=3 to 6
for i=7 to 12
If object collision(i,j) then position object i,xpos#(i)+0.5,3,zpos#(i)+k#(i)
next i
next j
...
loop

...then for others levels you just have to change the numbers after FOR commands.

My English is not so good I'm just French

Back to top

Profile PM Website

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 25th Aug 2004 05:51

Link

Thankyou, I shall try that later, at work at the moment.

Daniel.

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Prototype of my first game with loads of problems.