sync on : sync rate 40
Begin:
Do
if button(290,198,"Start")=1 then Goto Start
sync
loop
Start:
Do
cls
if Button(20,55,"New Game")=1 then Goto Num
If Button(20,95,"Exit")=1 then End
sync:loop
Num:
cls
Print "What score do you want to go to!" : sync
num=10
`Input "",num
Goto New_Game
New_Game:
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:color object 3,rgb(0,0,50)
make object box 4,10,0.1,10:position object 4,0,-0.55,0:color object 4,rgb(255,114,0)
rem SET THE BALL ANGLE TO 90 DEGREES
balla#=90
rem START THE MAIN LOOP
Do
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 ballz# < player2pos# then player2pos# = player2pos# - 2
If ballz# > player2pos# then player2pos# = player2pos# + 2
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
if player1score#>=num
do
text 0,0,"Player 1 Wins":if button(300,260,"Restart")=1 then Goto Restart
sync : loop
endif
if player2score#>=num
do
text 0,0,"Player 2 Wins":if button(300,260,"Restart")=1 then Goto Restart
sync : loop
endif
if Button(500,55,"INSTRUCTIONS")=1 then Goto Instructions
sync:loop
Restart:
for object_num = 1 to 2000
if object exist(object_num) then delete object object_num
next object_num
player1score#=0 : player2score#=0
Goto Start
Instructions:
Do
cls
show mouse
print "INSTRUCTIONS"
print "Player 1 uses the up and down key on the directional pad."
print "Player 2 uses the w and s key as up and down key."
if Button(20,95,"Exit")=1 then end
sync:loop
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(0,30,255),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed
How can i make then other bar run smoother?
