I paste the code inside the code snippet, but it wont come! Anyway the old problem is solved, but as usual another problem came up. I tried to make a highscore, but it didnt work. It drew the numbers on top of eachother.
Here is the code:
Rem skaffer navna til spillerne
input "Hva heter player 1? "; playerI$
input "Hva heter player 2? "; PlayerII$
rem starts the program
set display mode 1024, 768, 32
sync on
Rem starter bakgrundsmusikken
load music "song2dom.mid", 1
play music 1
rem loader "donk" lyden når ballen treffer veggen
load sound "dong.wav", 1
load sound "applause_2.mp3", 2
rem loader bildene
load bitmap "pong field.bmp", 0
load bitmap "pong1.bmp", 1
load bitmap "pong1.bmp", 2
get image 1, 0, 0, 43, 113
get image 2, 0, 0, 43, 113
load bitmap "ball.bmp", 3
get image 3, 0,0, 43, 44
sprite 1, 150, 327, 1
sprite 2, 845, 333, 2
sprite 3, 496, 364, 3
rem fikser 1player variablene
Axposisjon=sprite x(2)
Ayposisjon=sprite y(2)
rem fikser 2player variablene
Bxposisjon=sprite x(1)
Byposisjon=sprite Y(1)
rem fikser ball variablene
ballX=sprite x(3)
ballY=sprite Y(3)
Rem lager random tall
RANDOMIZE TIMER()
ballsiden = rnd(1)
ballopp = rnd(1)
balloppF = rnd(10)
set current bitmap 0
rem setter spillernavnene ut
set text size 30
text 100, 15, PlayerI$
text 850, 15, playerII$
set text size 30
sleep 1000
paddlehit:
mainloop:
rem Hovedloopen:
do
Rem fikser ett eller annet, den er nødvendig for at spillet ikke skal klikke.
set current bitmap 0
rem fikser score
set cursor 412, 15
print playerI
set cursor 612, 15
print playerII
rem beveger player 1
if upkey() = 1 and Ayposisjon > 48
Ayposisjon=Ayposisjon-10
sprite 2,Axposisjon, Ayposisjon, 2
endif
if downkey() = 1 and Ayposisjon < 607
Ayposisjon=Ayposisjon+10
sprite 2,Axposisjon, Ayposisjon, 2
endif
rem Beveger player 2
IF keystate(17) = 1 and Byposisjon > 46
Byposisjon=Byposisjon-10
sprite 1,Bxposisjon, Byposisjon, 1
endif
IF keystate(31) = 1 and Byposisjon < 606
Byposisjon=Byposisjon+10
sprite 1,Bxposisjon, Byposisjon, 1
endif
Rem beveger ballen til venstre eller høyre
if ballsiden=1
ballX=ballX+7
sprite 3, ballX, ballY, 3
endif
if ballsiden=0
ballX=ballX-7
sprite 3, ballX, ballY, 3
endif
Rem beveger ballen ned
if ballopp=1
ballY = ballY+balloppF
sprite 3, ballX, ballY, 3
endif
rem beveger ballen opp
if ballopp=0
BallY = Bally-balloppF
sprite 3, ballX, ballY, 3
endif
rem sjekker on ballen krasjer i veggen nede
if ballY>673
play sound 1
ballopp=0
goto mainloop
endif
rem sjekker om ballen krasjer i veggen oppe
if ballY<50
play sound 1
ballopp=1
goto mainloop
endif
rem sjekker om ballen går ut på høyresiden
if ballX>1000
play sound 2
ballsiden=0
PlayerII=playerII+1
goto mainloop
endif
rem sjekker om ballen går ut på venstresiden
if ballX<24
play sound 2
ballsiden=1
playerI=playerI+1
goto mainloop
endif
rem sjekker om ballen treffer høyre paddle
if sprite hit(3,2) > 0
ballsiden=0
goto paddlehit
endif
rem sjekker om ballen treffer venstre paddle
if sprite hit(3,1) > 0
ballsiden=1
goto paddlehit
endif
sync
loop
