my first 2d pong - (help) - GameCreators Forum

Author

Message

Inverted

17

Years of Service

User Offline

Joined: 19th Nov 2006

Location: Oregon

Posted: 9th Dec 2006 01:11

Link

Hey guys,
Okay so iv been designing a 2d pong (my first real game, I havent been following a tutorial because i basically have a grip on the commands and such except i have a problem getting the paddles to move!
Iv just run a test.
To see the issue hit "1 player" then hit the up key and youll see what happens, it just jets up the screen.
If anyone can think of a way to slow it down thatd be awesome.

Heres my current code:

Rem Project: PONG
Rem Created: 12/7/2006 6:08:50 PM

Rem ***** Main Source File *****
Gosub SETUP

`Main Program Loop
Do : `Start of main loop
  CLS
  If new_window=1 then Gosub menu
  Gosub ShowMedia
  Gosub Player1_Move
  Gosub PlayerCoords
  Gosub Player2_Move
  Gosub Ball_Move
  Gosub Collision_Check
  Gosub Scores
Loop : `End of main loop

`***********************************************
`~~**************-[Procedures]-*****************
`***********************************************

ShowMedia:
ink rgb(255,255,255),0 : box 70,70,570,410 : `Create Table white spot
ink rgb(0,0,0),0 : box 71,71,569,409 : `Create Black spot to turn table into line
Return

PlayerCoords:
ink rgb(255,255,255),0
box plr1x1#,plr1y1#,plr1x2#,plr1y2#
box plr2x1#,plr2y1#,plr2x2#,plr2y2#
return

Player1_Move:
if upkey()=1 then plr1y1#=plr1y1#+.1 and plr1y2#=plr1y2#+1
Return

Player2_Move:
Return

Ball_Move:
Return

Collision_Check:
Return

Scores:
Return

`***********************************************
`~~***********-[START_PROCEDURES]-**************
`***********************************************

Menu:
repeat
if Button(oneplayerx1,oneplayery1,"1 Player")=1 then CLS : new_window=0 : ink rgb(255,255,255),0 : startgame1player=1
if Button(twoplayerx1,twoplayery1,"2 Player")=1 then CLS : new_window=0 : ink rgb(255,255,255),0 : startgame2player=1
until startgame1player=1 or startgame2player=1
return

Setup:
set text font "Courier" : Set text size 16 : `Font commands

`Variables, Floats, and Strings
SinglePlayerNew$="Single Player"
MultiplayerNew$="Multiplayer"
oneplayerx1=280 : oneplayery1=180
twoplayerx1=282 : twoplayery1=216

multiplayerx1=285 : multiplayery1=240
Plr1X1#=72 : Plr1Y1#=210 : Plr1x2#=85 : plr1y2#=260
Plr2X1#=553 : Plr2Y1#=210 : plr2x2#=568 : plr2y2#=260
ExitGame$="Exit"
SinglePressed=0 : Multipressed=0
new_window=1
Return

`***********************************************
`~~**************-[Functions]-******************
`***********************************************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

Rem Project: PONG
Rem Created: 12/7/2006 6:08:50 PM

Rem ***** Main Source File *****
Gosub SETUP

`Main Program Loop
Do : `Start of main loop
  CLS
  If new_window=1 then Gosub menu
  Gosub ShowMedia
  Gosub Player1_Move
  Gosub PlayerCoords
  Gosub Player2_Move
  Gosub Ball_Move
  Gosub Collision_Check
  Gosub Scores
Loop : `End of main loop

`***********************************************
`~~**************-[Procedures]-*****************
`***********************************************

ShowMedia:
ink rgb(255,255,255),0 : box 70,70,570,410 : `Create Table white spot
ink rgb(0,0,0),0 : box 71,71,569,409 : `Create Black spot to turn table into line
Return

PlayerCoords:
ink rgb(255,255,255),0
box plr1x1#,plr1y1#,plr1x2#,plr1y2#
box plr2x1#,plr2y1#,plr2x2#,plr2y2#
return

Player1_Move:
if upkey()=1 then plr1y1#=plr1y1#+.1 and plr1y2#=plr1y2#+1
Return

Player2_Move:
Return

Ball_Move:
Return

Collision_Check:
Return

Scores:
Return

`***********************************************
`~~***********-[START_PROCEDURES]-**************
`***********************************************

Menu:
repeat
if Button(oneplayerx1,oneplayery1,"1 Player")=1 then CLS : new_window=0 : ink rgb(255,255,255),0 : startgame1player=1
if Button(twoplayerx1,twoplayery1,"2 Player")=1 then CLS : new_window=0 : ink rgb(255,255,255),0 : startgame2player=1
until startgame1player=1 or startgame2player=1
return

Setup:
set text font "Courier" : Set text size 16 : `Font commands

`Variables, Floats, and Strings
SinglePlayerNew$="Single Player"
MultiplayerNew$="Multiplayer"
oneplayerx1=280 : oneplayery1=180
twoplayerx1=282 : twoplayery1=216

multiplayerx1=285 : multiplayery1=240
Plr1X1#=72 : Plr1Y1#=210 : Plr1x2#=85 : plr1y2#=260
Plr2X1#=553 : Plr2Y1#=210 : plr2x2#=568 : plr2y2#=260
ExitGame$="Exit"
SinglePressed=0 : Multipressed=0
new_window=1
Return

`***********************************************
`~~**************-[Functions]-******************
`***********************************************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

PS. I thank Xenocythe for the menu

Opposites are different, not wrong

Back to top

Profile PM Website

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 9th Dec 2006 02:30

Link

This code is your problem:

+ Code Snippet

if upkey()=1 then plr1y1#=plr1y1#+.1 and plr1y2#=plr1y2#+1

"and" is a boolean operation, so you're confusing the compiler. The solution is to break up each command onto a separate line.

+ Code Snippet

if upkey()=1
   plr1y1#=plr1y1#+.1
   plr1y2#=plr1y2#+.1
endif

CHESS ENCOUNTER
Demo
WIP

Back to top

Profile PM

Inverted

17

Years of Service

User Offline

Joined: 19th Nov 2006

Location: Oregon

Posted: 9th Dec 2006 05:38

Link

YAY!
Thank you so much!!

Opposites are different, not wrong

Back to top

Profile PM Website

Inverted

17

Years of Service

User Offline

Joined: 19th Nov 2006

Location: Oregon

Posted: 9th Dec 2006 06:35 Edited at: 9th Dec 2006 06:36

Link

Okay i have made some progress on the program.
But I have yet another issue.

For some reason the ball isnt coliding with the top or bottum of the table it just goes right through!

This is the code

Rem Project: PONG
Rem Created: 12/7/2006 6:08:50 PM

Rem ***** Main Source File *****
Gosub SETUP
`Main Program Loop
Do : `Start of main loop
  CLS
  If new_window=1 then Gosub menu
  Gosub ShowStats
  Gosub ShowMedia
  Gosub Player1_Move
  Gosub ObjectCoords
  Gosub Player2_Move
  Gosub Ball_Move
  Gosub Collision_Check
  Gosub Scores
  sync
Loop : `End of main loop

`***********************************************
`~~**************-[Procedures]-*****************
`***********************************************

ShowMedia:
ink rgb(255,255,255),0 : box 70,70,570,410 : `Create Table white spot
ink rgb(0,0,0),0 : box 71,71,569,409 : `Create Black spot to turn table into line
Return

ObjectCoords:
ink rgb(255,255,255),0
box plr1x1#,plr1y1#,plr1x2#,plr1y2#
box plr2x1#,plr2y1#,plr2x2#,plr2y2#
circle ballx#,bally#,6
return

Player1_Move:
if keystate(17)=1 and plr1y1#>73: `Move Up
   plr1y1#=plr1y1#-.07
   plr1y2#=plr1y2#-.07
endif
if keystate(31)=1 and plr1y2#<408: `Move down
   plr1y1#=plr1y1#+.07
   plr1y2#=plr1y2#+.07
endif
Return

Player2_Move:
if upkey()=1 and plr2y1#>73 and startgame2player=1: `Move Up player 2 (person)
   plr2y1#=plr2y1#-.07
   plr2y2#=plr2y2#-.07
endif
if downkey()=1 and plr2y2#<408 and startgame2player=1: `Move down player 2 (person)
   plr2y1#=plr2y1#+.07
   plr2y2#=plr2y2#+.07
endif
Return

Ball_Move:
ballx#=newxvalue(ballx#,balla#,0.05):bally#=newyvalue(bally#,balla2#,0.05)
`if ballx#>70 and ballx#<570 then balla#=360-balla#
if ballx#<70 or ballx#>570 then balla#=360-balla#
if bally#<70 or bally#>410 then balla#=180-balla#
Return

Collision_Check:
Return

Scores:
Return

ShowStats:
set cursor 0,0 : print "FPS ";screen fps() : print "Plr 1x1: ";plr1x1#;"            Plr 1y1: ";plr1y1#
print "Plr 1x2: ";plr1x2# ; "            Plr 1y2: ";plr1y2#
print "Ball X: ";ballx# ; "            Ball Y: ";bally#
Return

`***********************************************
`~~***********-[START_PROCEDURES]-**************
`***********************************************

Menu:
repeat
if Button(oneplayerx1,oneplayery1,"1 Player")=1 then CLS : new_window=0 : ink rgb(255,255,255),0 : startgame1player=1
if Button(twoplayerx1,twoplayery1,"2 Player")=1 then CLS : new_window=0 : ink rgb(255,255,255),0 : startgame2player=1
until startgame1player=1 or startgame2player=1
return

Setup:
set text font "Courier" : Set text size 16 : `Font commands

`Variables, Floats, and Strings
SinglePlayerNew$="Single Player"
MultiplayerNew$="Multiplayer"
oneplayerx1=280 : oneplayery1=180
twoplayerx1=282 : twoplayery1=216

multiplayerx1=285 : multiplayery1=240
Plr1X1#=72 : Plr1Y1#=210 : Plr1x2#=85 : plr1y2#=260
Plr2X1#=553 : Plr2Y1#=210 : plr2x2#=568 : plr2y2#=260
ballx#=315 : bally#=240 : balla#=90 : balla2#=rnd(360)
ExitGame$="Exit"
SinglePressed=0 : Multipressed=0
new_window=1
Return

`***********************************************
`~~**************-[Functions]-******************
`***********************************************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

Rem Project: PONG
Rem Created: 12/7/2006 6:08:50 PM

Rem ***** Main Source File *****
Gosub SETUP
`Main Program Loop
Do : `Start of main loop
  CLS
  If new_window=1 then Gosub menu
  Gosub ShowStats
  Gosub ShowMedia
  Gosub Player1_Move
  Gosub ObjectCoords
  Gosub Player2_Move
  Gosub Ball_Move
  Gosub Collision_Check
  Gosub Scores
  sync
Loop : `End of main loop

`***********************************************
`~~**************-[Procedures]-*****************
`***********************************************

ShowMedia:
ink rgb(255,255,255),0 : box 70,70,570,410 : `Create Table white spot
ink rgb(0,0,0),0 : box 71,71,569,409 : `Create Black spot to turn table into line
Return

ObjectCoords:
ink rgb(255,255,255),0
box plr1x1#,plr1y1#,plr1x2#,plr1y2#
box plr2x1#,plr2y1#,plr2x2#,plr2y2#
circle ballx#,bally#,6
return

Player1_Move:
if keystate(17)=1 and plr1y1#>73: `Move Up
   plr1y1#=plr1y1#-.07
   plr1y2#=plr1y2#-.07
endif
if keystate(31)=1 and plr1y2#<408: `Move down
   plr1y1#=plr1y1#+.07
   plr1y2#=plr1y2#+.07
endif
Return

Player2_Move:
if upkey()=1 and plr2y1#>73 and startgame2player=1: `Move Up player 2 (person)
   plr2y1#=plr2y1#-.07
   plr2y2#=plr2y2#-.07
endif
if downkey()=1 and plr2y2#<408 and startgame2player=1: `Move down player 2 (person)
   plr2y1#=plr2y1#+.07
   plr2y2#=plr2y2#+.07
endif
Return

Ball_Move:
ballx#=newxvalue(ballx#,balla#,0.05):bally#=newyvalue(bally#,balla2#,0.05)
`if ballx#>70 and ballx#<570 then balla#=360-balla#
if ballx#<70 or ballx#>570 then balla#=360-balla#
if bally#<70 or bally#>410 then balla#=180-balla#
Return

Collision_Check:
Return

Scores:
Return

ShowStats:
set cursor 0,0 : print "FPS ";screen fps() : print "Plr 1x1: ";plr1x1#;"            Plr 1y1: ";plr1y1#
print "Plr 1x2: ";plr1x2# ; "            Plr 1y2: ";plr1y2#
print "Ball X: ";ballx# ; "            Ball Y: ";bally#
Return

`***********************************************
`~~***********-[START_PROCEDURES]-**************
`***********************************************

Menu:
repeat
if Button(oneplayerx1,oneplayery1,"1 Player")=1 then CLS : new_window=0 : ink rgb(255,255,255),0 : startgame1player=1
if Button(twoplayerx1,twoplayery1,"2 Player")=1 then CLS : new_window=0 : ink rgb(255,255,255),0 : startgame2player=1
until startgame1player=1 or startgame2player=1
return

Setup:
set text font "Courier" : Set text size 16 : `Font commands

`Variables, Floats, and Strings
SinglePlayerNew$="Single Player"
MultiplayerNew$="Multiplayer"
oneplayerx1=280 : oneplayery1=180
twoplayerx1=282 : twoplayery1=216

multiplayerx1=285 : multiplayery1=240
Plr1X1#=72 : Plr1Y1#=210 : Plr1x2#=85 : plr1y2#=260
Plr2X1#=553 : Plr2Y1#=210 : plr2x2#=568 : plr2y2#=260
ballx#=315 : bally#=240 : balla#=90 : balla2#=rnd(360)
ExitGame$="Exit"
SinglePressed=0 : Multipressed=0
new_window=1
Return

`***********************************************
`~~**************-[Functions]-******************
`***********************************************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

Thanks in advance,
-inverted

Opposites are different, not wrong

Back to top

Profile PM Website

Inverted

17

Years of Service

User Offline

Joined: 19th Nov 2006

Location: Oregon

Posted: 10th Dec 2006 00:30

Link

Anybody?

Opposites are different, not wrong

Back to top

Profile PM Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 10th Dec 2006 03:53 Edited at: 10th Dec 2006 03:54

Link

Variables which have the # symbol on the end like your ballx# are floating point variables and hold values like 3.142 and 12.66.

Screen positions using the X and Y co-ordinates can only be whole numbers so you should use integer variables - like Ballx.

The use of newxvalue is overkill for moving a ball in 2D - all you need to do is simply add a value to both the X and Y screen position and then check to see if the Y value is less than 0 or greater than the screen height. (You can adjust these values depending on the size of the ball).

You are trying to add fractions of a pixel to the ball's position when the smallest element of the screen is a full pixel.

Just rewrite it using integers and get rid of the newxvalue function - which is more useful when used with 3D.

TDK_Man

DB Tutorials, Hints & Tips, Utils and lots more...
TGPF - TDK's Game Programming Forums

Back to top

Profile PM Email Website

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 10th Dec 2006 04:00

Link

Instead of using the ball angle and newxvalue and newyvalue functions, I would make a separate variable for the x velocity and for the y velocity.

Rem Project: PONG
Rem Created: 12/7/2006 6:08:50 PM

Rem ***** Main Source File *****
Gosub SETUP
`Main Program Loop
Do : `Start of main loop
  CLS
  If new_window=1 then Gosub menu
  Gosub ShowStats
  Gosub ShowMedia
  Gosub Player1_Move
  Gosub ObjectCoords
  Gosub Player2_Move
  Gosub Ball_Move
  Gosub Collision_Check
  Gosub Scores
  sync
Loop : `End of main loop

`***********************************************
`~~**************-[Procedures]-*****************
`***********************************************

ShowMedia:
ink rgb(255,255,255),0 : box 70,70,570,410 : `Create Table white spot
ink rgb(0,0,0),0 : box 71,71,569,409 : `Create Black spot to turn table into line
Return

ObjectCoords:
ink rgb(255,255,255),0
box plr1x1#,plr1y1#,plr1x2#,plr1y2#
box plr2x1#,plr2y1#,plr2x2#,plr2y2#
circle ballx#,bally#,6
return

Player1_Move:
if keystate(17)=1 and plr1y1#>73: `Move Up
   plr1y1#=plr1y1#-.07
   plr1y2#=plr1y2#-.07
endif
if keystate(31)=1 and plr1y2#<408: `Move down
   plr1y1#=plr1y1#+.07
   plr1y2#=plr1y2#+.07
endif
Return

Player2_Move:
if upkey()=1 and plr2y1#>73 and startgame2player=1: `Move Up player 2 (person)
   plr2y1#=plr2y1#-.07
   plr2y2#=plr2y2#-.07
endif
if downkey()=1 and plr2y2#<408 and startgame2player=1: `Move down player 2 (person)
   plr2y1#=plr2y1#+.07
   plr2y2#=plr2y2#+.07
endif
Return

Ball_Move:
 ballx#=ballx#+ballxV#
 bally#=bally#+ballyV#
`if ballx#>70 and ballx#<570 then balla#=360-balla#
if ballx#<70 or ballx#>570 then ballxV#= -BallxV#
if bally#<70 or bally#>410 then ballyV#= -BallyV#
Return

Collision_Check:
Return

Scores:
Return

ShowStats:
set cursor 0,0 : print "FPS ";screen fps() : print "Plr 1x1: ";plr1x1#;"            Plr 1y1: ";plr1y1#
print "Plr 1x2: ";plr1x2# ; "            Plr 1y2: ";plr1y2#
print "Ball X: ";ballx# ; "            Ball Y: ";bally#
Return

`***********************************************
`~~***********-[START_PROCEDURES]-**************
`***********************************************

Menu:
repeat
if Button(oneplayerx1,oneplayery1,"1 Player")=1 then CLS : new_window=0 : ink rgb(255,255,255),0 : startgame1player=1
if Button(twoplayerx1,twoplayery1,"2 Player")=1 then CLS : new_window=0 : ink rgb(255,255,255),0 : startgame2player=1
until startgame1player=1 or startgame2player=1
return

Setup:
sync rate 100
set text font "Courier" : Set text size 16 : `Font commands

`Variables, Floats, and Strings
SinglePlayerNew$="Single Player"
MultiplayerNew$="Multiplayer"
oneplayerx1=280 : oneplayery1=180
twoplayerx1=282 : twoplayery1=216

multiplayerx1=285 : multiplayery1=240
Plr1X1#=72 : Plr1Y1#=210 : Plr1x2#=85 : plr1y2#=260
Plr2X1#=553 : Plr2Y1#=210 : plr2x2#=568 : plr2y2#=260
ballx#=315 : bally#=240 : ballxV#=5 : BallyV#=rnd(10)-5
ExitGame$="Exit"
SinglePressed=0 : Multipressed=0
new_window=1
Return

`***********************************************
`~~**************-[Functions]-******************
`***********************************************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

Rem Project: PONG
Rem Created: 12/7/2006 6:08:50 PM

Rem ***** Main Source File *****
Gosub SETUP
`Main Program Loop
Do : `Start of main loop
  CLS
  If new_window=1 then Gosub menu
  Gosub ShowStats
  Gosub ShowMedia
  Gosub Player1_Move
  Gosub ObjectCoords
  Gosub Player2_Move
  Gosub Ball_Move
  Gosub Collision_Check
  Gosub Scores
  sync
Loop : `End of main loop

`***********************************************
`~~**************-[Procedures]-*****************
`***********************************************

ShowMedia:
ink rgb(255,255,255),0 : box 70,70,570,410 : `Create Table white spot
ink rgb(0,0,0),0 : box 71,71,569,409 : `Create Black spot to turn table into line
Return

ObjectCoords:
ink rgb(255,255,255),0
box plr1x1#,plr1y1#,plr1x2#,plr1y2#
box plr2x1#,plr2y1#,plr2x2#,plr2y2#
circle ballx#,bally#,6
return

Player1_Move:
if keystate(17)=1 and plr1y1#>73: `Move Up
   plr1y1#=plr1y1#-.07
   plr1y2#=plr1y2#-.07
endif
if keystate(31)=1 and plr1y2#<408: `Move down
   plr1y1#=plr1y1#+.07
   plr1y2#=plr1y2#+.07
endif
Return

Player2_Move:
if upkey()=1 and plr2y1#>73 and startgame2player=1: `Move Up player 2 (person)
   plr2y1#=plr2y1#-.07
   plr2y2#=plr2y2#-.07
endif
if downkey()=1 and plr2y2#<408 and startgame2player=1: `Move down player 2 (person)
   plr2y1#=plr2y1#+.07
   plr2y2#=plr2y2#+.07
endif
Return

Ball_Move:
 ballx#=ballx#+ballxV#
 bally#=bally#+ballyV#
`if ballx#>70 and ballx#<570 then balla#=360-balla#
if ballx#<70 or ballx#>570 then ballxV#= -BallxV#
if bally#<70 or bally#>410 then ballyV#= -BallyV#
Return

Collision_Check:
Return

Scores:
Return

ShowStats:
set cursor 0,0 : print "FPS ";screen fps() : print "Plr 1x1: ";plr1x1#;"            Plr 1y1: ";plr1y1#
print "Plr 1x2: ";plr1x2# ; "            Plr 1y2: ";plr1y2#
print "Ball X: ";ballx# ; "            Ball Y: ";bally#
Return

`***********************************************
`~~***********-[START_PROCEDURES]-**************
`***********************************************

Menu:
repeat
if Button(oneplayerx1,oneplayery1,"1 Player")=1 then CLS : new_window=0 : ink rgb(255,255,255),0 : startgame1player=1
if Button(twoplayerx1,twoplayery1,"2 Player")=1 then CLS : new_window=0 : ink rgb(255,255,255),0 : startgame2player=1
until startgame1player=1 or startgame2player=1
return

Setup:
sync rate 100
set text font "Courier" : Set text size 16 : `Font commands

`Variables, Floats, and Strings
SinglePlayerNew$="Single Player"
MultiplayerNew$="Multiplayer"
oneplayerx1=280 : oneplayery1=180
twoplayerx1=282 : twoplayery1=216

multiplayerx1=285 : multiplayery1=240
Plr1X1#=72 : Plr1Y1#=210 : Plr1x2#=85 : plr1y2#=260
Plr2X1#=553 : Plr2Y1#=210 : plr2x2#=568 : plr2y2#=260
ballx#=315 : bally#=240 : ballxV#=5 : BallyV#=rnd(10)-5
ExitGame$="Exit"
SinglePressed=0 : Multipressed=0
new_window=1
Return

`***********************************************
`~~**************-[Functions]-******************
`***********************************************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

CHESS ENCOUNTER
Demo
WIP

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 10th Dec 2006 04:33

Link

Which is what I said!

But he still needs to get rid of those float variables...

+ Code Snippet

Set Display Mode 800,600,16
Sync On
Ink RGB(255,255,255),0
Circle 5,5,4
Get Image 1,0,0,10,10
CLS 0
BallX=800: BallX=300
BallXDir = -4: BallYDir = -4
Sprite 1, BallX, BallY, 1
Set Sprite 1, 1, 1

Repeat
  Inc BallX,BallXDir
  Inc BallY,BallYDir
  If BallX < 10
    BallX=10: BallXDir = 0-BallXDir
  Endif
  If BallX > 790
    BallX=790: BallXDir = 0-BallXDir
  Endif
  If BallY < 10
    BallY=10: BallYDir = 0-BallYDir
  Endif
  If BallY > 590
    BallY=590: BallYDir = 0-BallYDir
  Endif
  Sprite 1, BallX, BallY, 1
  Sync
Until Scancode()>0
End

TDK_Man

DB Tutorials, Hints & Tips, Utils and lots more...
TGPF - TDK's Game Programming Forums

Back to top

Profile PM Email Website

Inverted

17

Years of Service

User Offline

Joined: 19th Nov 2006

Location: Oregon

Posted: 10th Dec 2006 06:54

Link

Wow thanks guys!
I appriciate your help so much!

Opposites are different, not wrong

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / my first 2d pong - (help)