how do i change the speed of a ball by pressing a hotkey

Author

Message

Ants95

15

Years of Service

User Offline

Joined: 24th Jul 2009

Location:

Posted: 25th Jul 2009 05:45

Link

i made a pong game thingy and i want it so when i push 1 it makes the ball go .10 then 2 makes the ball go .20 and so on.

Can some one please explain how i can do this? any help would be nice, thanx

-Ants95

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 25th Jul 2009 10:58

Link

The KEYSTATE() for numbers 1 to 0 are numbers 2 to 11. You can use a FOR/NEXT loop to check for those keys since they are sequentially ordered.

+ Code Snippet

do

 ` Set the starting temp speed
 TempSpeed#=.10

 ` Go through every key
 for t=2 to 11

  ` Check for the key
  if keystate(t)
   ` Set the ball speed to the current temp speed
   BallSpeed#=TempSpeed#   
  endif
  ` Increase the temp speed
  inc TempSpeed#,.10

 next t

 ` Show the current ball speed
 print "BallSpeed = "+str$(BallSpeed#)

loop

KEYSTATE works for the entire keyboard so if you want to see what numbers each key uses without using SCANCODE to find the number use this graphic:

http://mysite.verizon.net/grueslayer/Keystate.png

Back to top

Profile PM Email

Ants95

15

Years of Service

User Offline

Joined: 24th Jul 2009

Location:

Posted: 25th Jul 2009 22:07 Edited at: 25th Jul 2009 22:22

Link

ok now that i now that how do i insert that into my code so it works with the game

this is the code so far and i need to insert that code so it will work cus is i just paste it in there it messes it up so do you know what i need to change so it matches up

[edit] in the next post

-Ants95

Back to top

Profile PM

Ants95

15

Years of Service

User Offline

Joined: 24th Jul 2009

Location:

Posted: 25th Jul 2009 22:12 Edited at: 25th Jul 2009 22:28

Link

I was wondering how do i make it so i can insert that into the game here is the code i had and i was wondering if you could tell me how to make that code work in the game

rem HIDE THE MOUSE AND LIMIT THE SYNC RATE TO 40
hide mouse:sync rate 40
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,0,255)
make object sphere 3,1:color object 3,rgb(0,255,0)
make object box 4,10,0.1,10:position object 4,0,-0.55,0
rem SET THE BALL ANGLE TO 90 DEGREES
balla#=90

rem START THE MAIN LOOP
sync on:do

if returnkey()>0 then end
print "Press ENTER or ESC to exit the game"
rem SCORING
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#
rem BALL MOVEMENT
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
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 PLAYER 2 PADDLE MOVEMENT
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8
rem BOUNCING
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#
rem MAKE SURE balla# IS LESS THAN 360 AND MORE THAN 0
balla#=wrapvalue(balla#)
rem POSITION OBJECTS
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,10,-10:point camera 0,0,0
COLOR BACKDROP rgb(0,50,0)
sync:loop

+ Code Snippet

rem HIDE THE MOUSE AND LIMIT THE SYNC RATE TO 40
hide mouse:sync rate 40
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,0,255)
make object sphere 3,1:color object 3,rgb(0,255,0)
make object box 4,10,0.1,10:position object 4,0,-0.55,0
rem SET THE BALL ANGLE TO 90 DEGREES
balla#=90


rem START THE MAIN LOOP
sync on:do

if returnkey()>0 then end
print "Press ENTER or ESC to exit the game"
rem SCORING
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#
rem BALL MOVEMENT
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
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 PLAYER 2 PADDLE MOVEMENT
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8
rem BOUNCING
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#
rem MAKE SURE balla# IS LESS THAN 360 AND MORE THAN 0
balla#=wrapvalue(balla#)
rem POSITION OBJECTS
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,10,-10:point camera 0,0,0
COLOR BACKDROP rgb(0,50,0)
sync:loop

-Ants95

Back to top

Profile PM

Ants95

15

Years of Service

User Offline

Joined: 24th Jul 2009

Location:

Posted: 26th Jul 2009 00:17

Link

rem HIDE THE MOUSE AND LIMIT THE SYNC RATE TO 40
hide mouse:sync rate 40
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,0,255)
make object sphere 3,1:color object 3,rgb(0,255,0)
make object box 4,10,0.1,10:position object 4,0,-0.55,0
rem SET THE BALL ANGLE TO 90 DEGREES
balla#=90

rem START THE MAIN LOOP
sync on:do

if returnkey()>0 then end
print "Press ENTER or ESC to exit the game"
rem SCORING
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#
rem BALL MOVEMENT
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
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 PLAYER 2 PADDLE MOVEMENT
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8
rem BOUNCING
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#
rem MAKE SURE balla# IS LESS THAN 360 AND MORE THAN 0
balla#=wrapvalue(balla#)
rem POSITION OBJECTS
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,10,-10:point camera 0,0,0
COLOR BACKDROP rgb(0,50,0)

` Set the starting temp speed
 TempSpeed#=.10

` Go through every key
 for t=2 to 11

` Check for the key
  if keystate(t)
   ` Set the ball speed to the current temp speed
   BallSpeed#=TempSpeed#
  endif
  ` Increase the temp speed
  inc TempSpeed#,.10

next t

` Show the current ball speed
 print "BallSpeed = "+str$(BallSpeed#)

sync:loop

+ Code Snippet

rem HIDE THE MOUSE AND LIMIT THE SYNC RATE TO 40
hide mouse:sync rate 40
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,0,255)
make object sphere 3,1:color object 3,rgb(0,255,0)
make object box 4,10,0.1,10:position object 4,0,-0.55,0
rem SET THE BALL ANGLE TO 90 DEGREES
balla#=90


rem START THE MAIN LOOP
sync on:do

if returnkey()>0 then end
print "Press ENTER or ESC to exit the game"
rem SCORING
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#
rem BALL MOVEMENT
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
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 PLAYER 2 PADDLE MOVEMENT
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8
rem BOUNCING
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#
rem MAKE SURE balla# IS LESS THAN 360 AND MORE THAN 0
balla#=wrapvalue(balla#)
rem POSITION OBJECTS
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,10,-10:point camera 0,0,0
COLOR BACKDROP rgb(0,50,0)


 ` Set the starting temp speed
 TempSpeed#=.10

 ` Go through every key
 for t=2 to 11

  ` Check for the key
  if keystate(t)
   ` Set the ball speed to the current temp speed
   BallSpeed#=TempSpeed#
  endif
  ` Increase the temp speed
  inc TempSpeed#,.10

 next t

 ` Show the current ball speed
 print "BallSpeed = "+str$(BallSpeed#)


sync:loop

ok i tried that and it runs and the print ball speed works but when i push the nubers it does not actully change the speen of the ball.

-Ants95

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / how do i change the speed of a ball by pressing a hotkey