Detection - GameCreators Forum

Author

Message

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 13th Oct 2005 22:42

Link

Hi everybody!

Once again I'm back to work on the masterpiece "Pin-Go," a pong clone with breakout style action. I'm attempting to add powerups (e.g long paddle) but it's not working quite right.

I have 2 variables, 1 to determine if player1 should get the powerup, and one to determine when the other player gets one. The variables switch back and forth whenever the paddle hits the ball. (So if you hit the ball, you get the powerup) But it's always detecting the computer player as getting the powerup.

Here's the basic bouncing code:

+ Code Snippet

if ballx#>6.5 and ballx#<7 and ABS(player1pos#-ballz#)<1.5
   balla#=360-balla#
   player1hit#=1: player2hit#=0
endif

if bosslvl#=0
   if ballx#<-6.5 and ballx#>-7 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
   player2movespeed#=.5+((.2)*(level#-1))
   player2hit#=1: player1hit#=0
endif

if bosslvl#=1
   if ballx#<-6.5 and ballx#>-7 and abs(player2pos#-ballz#)<2.25 then balla#=360-balla#
   scale object 2,100,100,150
   player2hit#=1: player1hit#=0
endif

It looks like it should work. The code for the entire game is in the source box. (it's non media so just plug it into DBPro and play)

"I will work harder... if you ask me enough times."

Back to top

Profile PM Email

Flashing Blade

21

Years of Service

User Offline

Joined: 19th Oct 2002

Location: United Kingdom

Posted: 13th Oct 2005 23:27

Link

You got some floats there that have boolean tests on them. Using floats and comparing with '=' operator is gonna lead to problems.
Lose the # from the end of any variable that doesn't need to be a float.
eg:
bosslvl#,player1hit# and player2hit# should be bosslvl,player1hit and player2hit.

Don't know if this is cause of this particular problem but if you continue to use floats and the '=' (for comparison not assignments obviously) you will get problems.

Or instead of if variableabc#=5, use if int(variableabc#)=5.

The word "Gullible" cannot be found in any English Dictionary.

Back to top

Profile PM Email Website

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 13th Oct 2005 23:48 Edited at: 13th Oct 2005 23:57

Link

O! I didn't know that affected it. I always thought that the # meant it was a variable. Just like $ is for string.

Edit: Ok, I tested out removing the #s from the end of the variables to make them not be floats, but nothing seems to have changed.

"I will work harder... if you ask me enough times."

Back to top

Profile PM Email

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 14th Oct 2005 18:57 Edited at: 14th Oct 2005 19:45

Link

I've decided to define all my variables at the beginning of my program.

So the stupidist question I can ask right now is.... How do you define a boolean variable.

Edit: Nevermind that. Here's the most recent code. The detection of hits still doesn't appear to work.

rem hide the mouse and set sync
hide mouse:sync rate 40
hide light 0
set ambient light 10
make light 1
position light 1,20,10,10
sync on
autocam off
position camera 0,10,-10:point camera 0,0,0

`Boolean Variables
dim boolean (alreadymade)
dim boolean (breakoutlvl)
dim boolean (player1hit)
dim boolean (player2hit)
dim boolean (powerupactive)
dim boolean (bosslvl)

`Float Variables
dim float (ball2a#)
dim float (ball2x#)
dim float (ball2y#)
dim float (ball2z#)
dim float (balla#)
dim float (ballx#)
dim float (ballz#)
dim float (bossspeed#)
dim float (player1pos#)
dim float (player2movespeed#)
dim float (player2pos#)

`Integer Variables
dim int (player1score)
dim int (player2score)
dim int (powerup1)
dim int (powerx)

level#=1
player2movespeed#=.5
powerx=0

`um, randomize... the timer.... i thnk...
randomize timer()

rem MAKE THE PADDLES, BALL AND FLOOR
make object box 1,1,1,3:color object 1,rgb(255,0,0)
make object box 2,1,1,3:color object 2,rgb(0,255,0)
make object sphere 3,1,30,30:color object 3,rgb(0,0,50)
set object specular 3,rgb(200,50,50)
make object box 4,15,0.1,10:position object 4,0,-0.55,0
make object box 5,15,4,2: position object 5,0,0,6
make object box 6,15,2,2: position object 6,0,0,-6

rem SET THE BALL ANGLE
balla#=rnd(45)+45

goto menu1
menu1:
cls
show mouse
`if this button is pressed, go to the main game loop!
   if button3(320,240,"Start Game!") > 0

goto mainloop
   endif

`if this button is pressed, exit the program!
   if button3(320,280,"Exit") >0
      end
   endif

sync
goto menu1

rem START THE MAIN LOOP

`tag for main loop
mainloop:
do

`set collision for the ball
set object collision on 3
set object collision to spheres 3

gosub movement
gosub scoring
gosub bouncing
gosub positioning

`check to see if boss lvl
for x=1 to 4
   if level#=5*x
      bosslvl=1
   endif
next x

`check to see if breakout lvl
for x=1 to 10
   if level#=2*x
      gosub breakout
   endif
next x

rem MAKE SURE balla# IS LESS THAN 360 AND MORE THAN 0
balla#=wrapvalue(balla#)

if breakoutlvl=1 and powerup1=1
   scale object 1, 100, 100, 200
   text 0,0, "Long Paddle"
   make object box 9999, powerx, 1, 1
   powerx=powerx-1
   delete object 9999
   powerupactive=1
   if powerx=0
      powerup1=0
      powerx=100
   endif
endif

if breakoutlvl=1 and powerup1=3
   if object exist(9998)=0
      make object sphere 9998,1,30,30
      set object specular 9998, rgb(rnd(255),rnd(255), rnd(255))
   endif
   gosub extraballproperties
   text 0,0, "Extra Ball"
   make object box 9999, powerx,1,1
   powerx=powerx-1
   delete object 9999
   powerupactive=1
   if powerx=0
      powerup1=0
      powerx=100
   endif
endif

sync
loop

levelup:
boss_speed#=player2movespeed#*1.5
level#=level#+1
inc player2movespeed#, .2
for x=1 to 6
   color object x, rgb(rnd(255), rnd(255), rnd(255))
next x
ink 0,rgb(rnd(255), rnd(255), rnd(255))
player1score=0
player2score=0
return

movement:
rem PLAYER 1 PADDLE MOVEMENT
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
if upkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#+8
if downkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#-8

rem ai to find ball
if bosslvl=0
   if player2pos#>object position z(3)+3 and object position z(2)>-3.5
      player2pos#=player2pos#-player2movespeed#
      position object 2,-5,0,player2pos#
   endif
   if player2pos#<object position z(3)-3 and object position z(2)<3.5
      player2pos#=player2pos#+player2movespeed#
      position object 2,-5,0,player2pos#
   endif
endif

if bosslvl=1
   if player2pos#>object position z(3)+3 and object position z(2)>-2.25
      player2pos#=player2pos#-player2movespeed#
      position object 2,-5,0,player2pos#
   endif
   if player2pos#<object position z(3)-3 and object position z(2)<2.25
      player2pos#=player2pos#+player2movespeed#
      position object 2, -5, 0, player2pos#
   endif
endif

rem BALL MOVEMENT
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
return

scoring:
rem SCORING
if ballx#>9 then player2score=player2score+1:ballx#=0:ballz#=0:balla#=rnd(90)+45
if ballx#<-9 then player1score=player1score+1:ballx#=0:ballz#=0:balla#=-rnd(90)-45
set cursor 300,50:print player2score
set cursor 320,50:print "-"
set cursor 340,50:print player1score

if player1score>=10 and player1score-2>=player2score
   gosub levelup
endif

return

bouncing:
rem BOUNCING
if ballx#>6.5 and ballx#<7 and ABS(player1pos#-ballz#)<1.5
   balla#=360-balla#
   player1hit=1: player2hit=0
endif

if bosslvl=0
   if ballx#<-6.5 and ballx#>-7 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
   player2movespeed#=.5+((.2)*(level#-1))
   player2hit=1: player1hit=0
endif

if bosslvl=1
   if ballx#<-6.5 and ballx#>-7 and abs(player2pos#-ballz#)<2.25 then balla#=360-balla#
   scale object 2,100,100,150
   player2hit=1: player1hit=0
endif

if ballz#>4 or ballz#<-4 then balla#=180-balla#
return

positioning:
rem POSITION OBJECTS
position object 1,7.5,0,player1pos#:position object 2,-7.5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#

return

breakout:
for boxnum=7 to level#+12
   if object exist(boxnum)=0 and alreadymade=0
      `make block
      make object box boxnum,1,1,1.5
      position object boxnum,rnd(6)-3,0,rnd(7)-3.5

`set collision for block
      set object collision on boxnum
      set object collision to boxes boxnum
      alreadymade=1
   endif

if object exist(boxnum)=1
      if object collision(3,boxnum)=1 and player1hit=1
         player1score=player1score+1
         delete object boxnum

if powerupactive=0
            powerup1=rnd(5)
         endif

balla#=360-balla#
      endif
   endif
   if object exist(boxnum)=1
      if object collision(3,boxnum)=1 and player2hit=1
         player2score=player2score+1
         delete object boxnum

balla#=360-balla#
      endif
   endif
next boxnum

breakoutlvl=1

return

extraballproperties:
if object exist(9998)=1
   position object 9998, ball2x#, ball2y#, ball2z#
   ball2x#=newxvalue(ball2x#,ball2a#, .3)
   ball2z#=newxvalue(ball2z#,ball2a#, .3)
   if bosslvl=1
      if ball2x#<-6.5 and ball2x#>-7 and abs(player2pos#-ball2z#)<2.25
         ball2a#=360-ball2a#
         player2hit=1
      endif
   endif
   if bosslvl=0
      if ball2x#<-6.5 and ball2x#>-7 and abs(player2pos#-ball2z#)<1.5
         ball2a#=360-ball2a#
         player2hit=1
      endif
   endif

if ball2x#>6.5 and ball2x<7 and abs(player1pos-ball2z#)<1.5
      ball2a#=360-ball2a#
      player1hit=1
   endif

if ball2z#>4 or ball2z#<-4 then ball2a#=180-ball2a#

endif

`makes button 1 (in big grey box)
function button1(x,y,xsize,ysize,content$)
   colortheme = rgb(200,200,200)
   pressed = 0
   if mousex() > x and mousex() < x + xsize
      if mousey() > y and mousey() < y + ysize
         if mouseclick() > 0 then pressed = mouseclick()
      endif
   endif
   if pressed = 1
      ink rgb(rgbr(colortheme)/2,rgbg(colortheme)/2,rgbb(colortheme)/2),0
      box x,y,x+xsize-1,y+ysize-1
      ink rgb(255,255,255),0
      box x+1,y+1,x+xsize,y+ysize
   else
      ink rgb(rgbr(colortheme)/2,rgbg(colortheme)/2,rgbb(colortheme)/2),0
      box x+1,y+1,x+xsize,y+ysize
      ink rgb(255,255,255),0
      box x,y,x+xsize-1,y+ysize-1
   endif
   ink colortheme,0
   box x+1,y+1,x+xsize-1,y+ysize-1
   ink 0,0
   center text x+(xsize/2),y + (ysize/2) - (text height(content$)/2),content$
endfunction pressed

` to make a button like button 2 (changes color when moused over)
function button2(x,y,content$)
   colortheme = rgb(255,0,0)
   pressed = 0
   tx = text width(content$) / 2
   ty = text height(content$) / 2
   if mousex() > x - tx and mousex() < x + tx
      if mousey() > y - ty and mousey() < y + ty
         pressed = 1
      endif
   endif
   if pressed = 1 then ink colortheme,0 else ink rgb(255,255,255),0
   center text x,y - ty, content$
   if pressed > 0
      pressed = mouseclick()
   endif
endfunction pressed

`makes a button like button 3 (dissapears when moused over)
function button3(x,y,content$)
   colortheme = rgb(255,255,0)
   if rgbr(colortheme) > 0
      if redval = 0 then redi = 1
      if redval = rgbr(colortheme) then redi = -1
      inc redval,redi
   endif
   if rgbg(colortheme) > 0
      if greenval = 0 then greeni = 1
      if greenval = rgbg(colortheme) then greeni = -1
      inc greenval,greeni
   endif
   if rgbb(colortheme) > 0
      if blueval = 0 then bluei = 1
      if blueval = rgbb(colortheme) then bluei = -1
      inc blueval,bluei
   endif
   pressed = 0
   tx = text width(content$) / 2
   ty = text height(content$) / 2
   if mousex() > x - tx and mousex() < x + tx
      if mousey() > y - ty and mousey() < y + ty
         pressed = 1
      endif
   endif
   if pressed = 1 then ink rgb(redval,greenval,blueval),0 else ink rgb(255,255,255),0
   center text x,y - ty,content$
   if pressed > 0
      pressed = mouseclick()
   endif
endfunction pressed

+ Code Snippet

rem hide the mouse and set sync
hide mouse:sync rate 40
hide light 0
set ambient light 10
make light 1
position light 1,20,10,10
sync on
autocam off
position camera 0,10,-10:point camera 0,0,0


`Boolean Variables
dim boolean (alreadymade)
dim boolean (breakoutlvl)
dim boolean (player1hit)
dim boolean (player2hit)
dim boolean (powerupactive)
dim boolean (bosslvl)

`Float Variables
dim float (ball2a#)
dim float (ball2x#)
dim float (ball2y#)
dim float (ball2z#)
dim float (balla#)
dim float (ballx#)
dim float (ballz#)
dim float (bossspeed#)
dim float (player1pos#)
dim float (player2movespeed#)
dim float (player2pos#)


`Integer Variables
dim int (player1score)
dim int (player2score)
dim int (powerup1)
dim int (powerx)







level#=1
player2movespeed#=.5
powerx=0



`um, randomize... the timer.... i thnk...
randomize timer()

rem MAKE THE PADDLES, BALL AND FLOOR
make object box 1,1,1,3:color object 1,rgb(255,0,0)
make object box 2,1,1,3:color object 2,rgb(0,255,0)
make object sphere 3,1,30,30:color object 3,rgb(0,0,50)
set object specular 3,rgb(200,50,50)
make object box 4,15,0.1,10:position object 4,0,-0.55,0
make object box 5,15,4,2: position object 5,0,0,6
make object box 6,15,2,2: position object 6,0,0,-6

rem SET THE BALL ANGLE
balla#=rnd(45)+45

goto menu1
menu1:
cls
show mouse
`if this button is pressed, go to the main game loop!
   if button3(320,240,"Start Game!") > 0

   goto mainloop
   endif

`if this button is pressed, exit the program!
   if button3(320,280,"Exit") >0
      end
   endif

sync
goto menu1

rem START THE MAIN LOOP


`tag for main loop
mainloop:
do

`set collision for the ball
set object collision on 3
set object collision to spheres 3


gosub movement
gosub scoring
gosub bouncing
gosub positioning

`check to see if boss lvl
for x=1 to 4
   if level#=5*x
      bosslvl=1
   endif
next x

`check to see if breakout lvl
for x=1 to 10
   if level#=2*x
      gosub breakout
   endif
next x


rem MAKE SURE balla# IS LESS THAN 360 AND MORE THAN 0
balla#=wrapvalue(balla#)


if breakoutlvl=1 and powerup1=1
   scale object 1, 100, 100, 200
   text 0,0, "Long Paddle"
   make object box 9999, powerx, 1, 1
   powerx=powerx-1
   delete object 9999
   powerupactive=1
   if powerx=0
      powerup1=0
      powerx=100
   endif
endif

if breakoutlvl=1 and powerup1=3
   if object exist(9998)=0
      make object sphere 9998,1,30,30
      set object specular 9998, rgb(rnd(255),rnd(255), rnd(255))
   endif
   gosub extraballproperties
   text 0,0, "Extra Ball"
   make object box 9999, powerx,1,1
   powerx=powerx-1
   delete object 9999
   powerupactive=1
   if powerx=0
      powerup1=0
      powerx=100
   endif
endif





sync
loop



levelup:
boss_speed#=player2movespeed#*1.5
level#=level#+1
inc player2movespeed#, .2
for x=1 to 6
   color object x, rgb(rnd(255), rnd(255), rnd(255))
next x
ink 0,rgb(rnd(255), rnd(255), rnd(255))
player1score=0
player2score=0
return



movement:
rem PLAYER 1 PADDLE MOVEMENT
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
if upkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#+8
if downkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#-8


rem ai to find ball
if bosslvl=0
   if player2pos#>object position z(3)+3 and object position z(2)>-3.5
      player2pos#=player2pos#-player2movespeed#
      position object 2,-5,0,player2pos#
   endif
   if player2pos#<object position z(3)-3 and object position z(2)<3.5
      player2pos#=player2pos#+player2movespeed#
      position object 2,-5,0,player2pos#
   endif
endif

if bosslvl=1
   if player2pos#>object position z(3)+3 and object position z(2)>-2.25
      player2pos#=player2pos#-player2movespeed#
      position object 2,-5,0,player2pos#
   endif
   if player2pos#<object position z(3)-3 and object position z(2)<2.25
      player2pos#=player2pos#+player2movespeed#
      position object 2, -5, 0, player2pos#
   endif
endif


rem BALL MOVEMENT
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
return



scoring:
rem SCORING
if ballx#>9 then player2score=player2score+1:ballx#=0:ballz#=0:balla#=rnd(90)+45
if ballx#<-9 then player1score=player1score+1:ballx#=0:ballz#=0:balla#=-rnd(90)-45
set cursor 300,50:print player2score
set cursor 320,50:print "-"
set cursor 340,50:print player1score

if player1score>=10 and player1score-2>=player2score
   gosub levelup
endif

return


bouncing:
rem BOUNCING
if ballx#>6.5 and ballx#<7 and ABS(player1pos#-ballz#)<1.5
   balla#=360-balla#
   player1hit=1: player2hit=0
endif

if bosslvl=0
   if ballx#<-6.5 and ballx#>-7 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
   player2movespeed#=.5+((.2)*(level#-1))
   player2hit=1: player1hit=0
endif

if bosslvl=1
   if ballx#<-6.5 and ballx#>-7 and abs(player2pos#-ballz#)<2.25 then balla#=360-balla#
   scale object 2,100,100,150
   player2hit=1: player1hit=0
endif

if ballz#>4 or ballz#<-4 then balla#=180-balla#
return


positioning:
rem POSITION OBJECTS
position object 1,7.5,0,player1pos#:position object 2,-7.5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#

return

breakout:
for boxnum=7 to level#+12
   if object exist(boxnum)=0 and alreadymade=0
      `make block
      make object box boxnum,1,1,1.5
      position object boxnum,rnd(6)-3,0,rnd(7)-3.5

      `set collision for block
      set object collision on boxnum
      set object collision to boxes boxnum
      alreadymade=1
   endif

   if object exist(boxnum)=1
      if object collision(3,boxnum)=1 and player1hit=1
         player1score=player1score+1
         delete object boxnum

         if powerupactive=0
            powerup1=rnd(5)
         endif

         balla#=360-balla#
      endif
   endif
   if object exist(boxnum)=1
      if object collision(3,boxnum)=1 and player2hit=1
         player2score=player2score+1
         delete object boxnum

         balla#=360-balla#
      endif
   endif
next boxnum

breakoutlvl=1



return

extraballproperties:
if object exist(9998)=1
   position object 9998, ball2x#, ball2y#, ball2z#
   ball2x#=newxvalue(ball2x#,ball2a#, .3)
   ball2z#=newxvalue(ball2z#,ball2a#, .3)
   if bosslvl=1
      if ball2x#<-6.5 and ball2x#>-7 and abs(player2pos#-ball2z#)<2.25
         ball2a#=360-ball2a#
         player2hit=1
      endif
   endif
   if bosslvl=0
      if ball2x#<-6.5 and ball2x#>-7 and abs(player2pos#-ball2z#)<1.5
         ball2a#=360-ball2a#
         player2hit=1
      endif
   endif

   if ball2x#>6.5 and ball2x<7 and abs(player1pos-ball2z#)<1.5
      ball2a#=360-ball2a#
      player1hit=1
   endif

   if ball2z#>4 or ball2z#<-4 then ball2a#=180-ball2a#

endif

`makes button 1 (in big grey box)
function button1(x,y,xsize,ysize,content$)
   colortheme = rgb(200,200,200)
   pressed = 0
   if mousex() > x and mousex() < x + xsize
      if mousey() > y and mousey() < y + ysize
         if mouseclick() > 0 then pressed = mouseclick()
      endif
   endif
   if pressed = 1
      ink rgb(rgbr(colortheme)/2,rgbg(colortheme)/2,rgbb(colortheme)/2),0
      box x,y,x+xsize-1,y+ysize-1
      ink rgb(255,255,255),0
      box x+1,y+1,x+xsize,y+ysize
   else
      ink rgb(rgbr(colortheme)/2,rgbg(colortheme)/2,rgbb(colortheme)/2),0
      box x+1,y+1,x+xsize,y+ysize
      ink rgb(255,255,255),0
      box x,y,x+xsize-1,y+ysize-1
   endif
   ink colortheme,0
   box x+1,y+1,x+xsize-1,y+ysize-1
   ink 0,0
   center text x+(xsize/2),y + (ysize/2) - (text height(content$)/2),content$
endfunction pressed


` to make a button like button 2 (changes color when moused over)
function button2(x,y,content$)
   colortheme = rgb(255,0,0)
   pressed = 0
   tx = text width(content$) / 2
   ty = text height(content$) / 2
   if mousex() > x - tx and mousex() < x + tx
      if mousey() > y - ty and mousey() < y + ty
         pressed = 1
      endif
   endif
   if pressed = 1 then ink colortheme,0 else ink rgb(255,255,255),0
   center text x,y - ty, content$
   if pressed > 0
      pressed = mouseclick()
   endif
endfunction pressed


`makes a button like button 3 (dissapears when moused over)
function button3(x,y,content$)
   colortheme = rgb(255,255,0)
   if rgbr(colortheme) > 0
      if redval = 0 then redi = 1
      if redval = rgbr(colortheme) then redi = -1
      inc redval,redi
   endif
   if rgbg(colortheme) > 0
      if greenval = 0 then greeni = 1
      if greenval = rgbg(colortheme) then greeni = -1
      inc greenval,greeni
   endif
   if rgbb(colortheme) > 0
      if blueval = 0 then bluei = 1
      if blueval = rgbb(colortheme) then bluei = -1
      inc blueval,bluei
   endif
   pressed = 0
   tx = text width(content$) / 2
   ty = text height(content$) / 2
   if mousex() > x - tx and mousex() < x + tx
      if mousey() > y - ty and mousey() < y + ty
         pressed = 1
      endif
   endif
   if pressed = 1 then ink rgb(redval,greenval,blueval),0 else ink rgb(255,255,255),0
   center text x,y - ty,content$
   if pressed > 0
      pressed = mouseclick()
   endif
endfunction pressed

"I will work harder... if you ask me enough times."

Back to top

Profile PM Email

Antidote

19

Years of Service

User Offline

Joined: 18th Mar 2005

Location: San Francisco, CA

Posted: 15th Oct 2005 00:24

Link

Well just about defining booleans in DBP I'll go over anyway so other newcomers can figure it out.

A boolean is a true/false variable. By giving it true or false you can check for certain changes such as an object not rotating. In DBP (as far as I know) there are technically no booleans. An integer will work as a boolean you just give it the values 0 and 1 instead of true and false.

I R tEh Antid0te! ROOOAAAR!

Back to top

Profile PM

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 15th Oct 2005 06:08

Link

Can't you just :

Dim boolean monkey

"I will work harder... if you ask me enough times."

Back to top

Profile PM Email

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 15th Oct 2005 08:03

Link

Anyway, another newb question. I really should know all of this, I've just forgotton it one way or another.

How do you load an image, texture it on a plain, and then make sure that plain is in the background.

"I will work harder... if you ask me enough times."

Back to top

Profile PM Email

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 18th Oct 2005 12:59

Link

Anybody?

"I will work harder... if you ask me enough times."

Back to top

Profile PM Email

Evil stick

19

Years of Service

User Offline

Joined: 27th Mar 2005

Location:

Posted: 18th Oct 2005 14:02

Link

Well, I'm not sure, but what's the point of a boolean? I know what they do, but what's the point?

I ALWAYS have flame proof jacket...just in case...and a shotgun. If you want any, just ask!

We are all nice,except for that one who's name starts in a m and ends in erranvo.

Back to top

Profile PM Email

Antidote

19

Years of Service

User Offline

Joined: 18th Mar 2005

Location: San Francisco, CA

Posted: 18th Oct 2005 18:53

Link

@Programmer of Power
Load image "file directory and name" , imagenumber
make object plain objnum , xsize , ysize
texture object objnum , imagenumber

The position the plain towards the back and make sure it moves with the camera. If your doing a 2d game it's really easy. If your doing a 3d game I suggest using backdrop off , draw sprite to back , then load the image and make a sprite in the backround. That will always appear in the back.

@Evil stick
Think about it this way. How many times when programming in DB have you had to get a value such as upkey(). When you call the upkey the program is checking a boolean if it is pressed or not. If you could not return values in this way then it would be impossible to get any keyboard , mouse , joystick , or internal system data.

Back to top

Profile PM

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 19th Oct 2005 13:18

Link

I was messing around with all of this, this morning, and I couldn't seem to get it to work either way.

This picture I'm using is currenty only for the menu of the game, but the game itself is 3d.

Since the program is mostly 3d, I tried using the draw sprite to back command, but it didn't seem to work, only the "sprite" part of the command was accepted as a command, so um.... I don't really know how to fix it.

And the 2d version of making a plain and putting it in the back didn't show anything. I made sure that all the cls's were out of the way and such but still nothing.

"I will work harder... if you ask me enough times."

Back to top

Profile PM Email

UnderLord

21

Years of Service

User Offline

Joined: 2nd Aug 2003

Location:

Posted: 19th Oct 2005 15:47

Link

Why don't you post some code for us to look at?

When we talk to god, we're praying. When god talks to us, we're schizophrenic.
http://dbworlds.darkuniverse.net/

Back to top

Profile PM

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 19th Oct 2005 21:42

Link

Um, if you'd read some of the above posts you can see the code, however I'll post the newest code in this post.

"I will work harder... if you ask me enough times."

Back to top

Profile PM Email

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 20th Oct 2005 12:54

Link

In that code one problem that I'm trying to fix is here.

+ Code Snippet

bouncing:
rem BOUNCING
if ballx#>6.5 and ballx#<7 and ABS(player1pos#-ballz#)<1.5
   balla#=360-balla#
   player1hit=1: player2hit=0
endif

if bosslvl=0
   if ballx#<-6.5 and ballx#>-7 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
   player2movespeed#=.5+((.2)*(level#-1))
   player2hit=1: player1hit=0
endif

if bosslvl=1
   if ballx#<-6.5 and ballx#>-7 and abs(player2pos#-ballz#)<2.25 then balla#=360-balla#
   scale object 2,100,100,150
   player2hit=1: player1hit=0
endif

When I run the program, player2hit is always 1 and player1 hit is always 0.

"I will work harder... if you ask me enough times."

Back to top

Profile PM Email

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 20th Oct 2005 13:08

Link

Anyway, back to the image thing. I got the image to come up, but it won't go away, I've tried using hide sprite and hide object but neither have worked, I just get some half-demeted arena with the picture overlaying it.

And the picture only shows when I use the debug feature, just making a compiled version doesn't show the picture.

"I will work harder... if you ask me enough times."

Back to top

Profile PM Email

Programmer of Power

19

Years of Service

User Offline

Joined: 22nd Aug 2005

Location: Home

Posted: 21st Oct 2005 00:52

Link

Is there something that changes between the debugger and the actual program. I press F5 and it loads a game without some of my big fixes for collision and no picture at the menu. When I use the debugger, I have a picture that shows up on the menu but then won't go away with the cls! ugh.

"I will work harder... if you ask me enough times."

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Detection