i put a wait 3000 command after this code:
if player1score#=2
input "won, again? (1)yes or (2)no",keuze
else
input "lost, again? (1)yes or (2)no",keuze
endif
and i deleted all the suspend key commands, but now it just freezes the game when the paddles and ball is drawn, so it doesn't seem to freeze at the right time, very strange so if you still got some ideas or anybody else i ll post the full code with it now
hide mouse
set display mode 1024,768,32
rem maakt paddle 1
make object box 2,1,3,1
rem maakt paddle 2
make object box 1,1,3,1
rem maakt een balleke
make object sphere 3,1 : color object 3,rgb(0,0,50)
sync on
balla#=90
player1score#=0
player2score#=0
do
sync
rem move paddle 1
IF upkey()=1 AND player1pos#<10 then player1pos#=player1pos#+0.4
IF downkey()=1 AND player1pos#>-10 then player1pos#=player1pos#-0.4
rem change degree
if upkey()=1 and ballx#>13 and ballx#<13.5 then balla#=balla#+9
if downkey()=1 and ballx#>13 and ballx#<13.5 then balla#=balla#-9
rem move paddle2
IF keystate(17)=1 AND player2pos#<10 then player2pos#=player2pos#+0.4
IF keystate(31)=1 AND player2pos#>-10 then player2pos#=player2pos#-0.4
rem hoek veranderen
if keystate(17)=1 and ballx#<-13 and ballx#>-13.5 then balla#=balla#+9
if keystate(31)=1 and ballx#<-13 and ballx#>-13.5 then balla#=balla#-9
rem maak een nieuwe waarde voor x of y coordinaat van de bal aan de hand van
rem al bestaande postie, hoek (balla) en snelheid (0.3 pix per sync)
ballx#=newxvalue(ballx#,balla#,0.4)
bally#=newzvalue(bally#,balla#,0.4)
rem bouncing of ball
if ballx#>13 and ballx#<13.5 and ABS(player1pos#-bally#)<1.75 then balla#=360-balla#
if ballx#<-13 and ballx#>-13.5 and ABS(player2pos#-bally#)<1.5 then balla#=360-balla#
rem bovenkant botsen
if bally#>10 or bally#<-11 then balla#=180-balla#
rem voor foute hoeken
balla#=wrapvalue(balla#)
rem score bij houden en uitprinten
if ballx#>15 then player2score#=player2score#+1:ballx#=0:bally#=0:balla#=270:player2pos#=0:player1pos#=0
if ballx#<-15 then player1score#=player1score#+1:ballx#=0:bally#=0:balla#=90:player2pos#=0:player1pos#=0
set cursor 492,20:print player1score#
set cursor 512,20:print "-"
set cursor 532,20:print player2score#
rem menu code
if player2score#=2 or player1score#=2
cls
set cursor 492,250
if player1score#=2
input "U hebt gewonnen,Wilt u opnieuw spelen? (1)yes or (2)no",keuze
else
input "U hebt verloren,Wilt u opnieuw spelen? (1)yes or (2)no",keuze
endif
wait 3000
if keuze = 2
end
endif
player1score#=0
player2score#=0
endif
position object 2,-14,player2pos#,0
position object 1,14,player1pos#,0
position object 3,ballx#,bally#,0
zrotate object 3,balla#
position camera 0,0,-20
point camera 0,0,0
loop
Don't mind the dutch code or prints you get the idea what they mean by looking at the code
thanks
