Sorry your browser is not supported!

_load:
smiley=10
load image "smiley.jpg",smiley
beep=21
load sound "nicebeep.wav", beep
player = 1
make object box player,15,5,5
color object player,blue
position object player,0,0,80


rem make player 2
enemy = 2
make object box enemy,15,5,5
color object enemy,blue
position object enemy,0,0,300
rem make ball
ball = 5
make object sphere ball, 8
texture object ball, smiley
position object ball, 0, 0, 160
fix object pivot ball

rem Set Camera stuff
rem normal z = -20
position camera 0,0,50,-20
rem point camera 0, object position x(player), 45,0

rem lage kanter og vegger
vegg1 = 3
vegg2 = 4

make object box vegg1, 5,5,400
color object vegg1,red
position object vegg1,80,0,200
make object box vegg2, 5,5,400
color object vegg2,red
position object vegg2,-80,0,200
rem SCOREZ OSV
player1score = 0
player2score = 0
thepoint = 0
hits = 0

rem show stats

white = rgb(255,255,255)



yrotate object ball,45

ballspeed = 2.0

end

if a=0
 print a

if a=0
 print a
endif

do
 x=20:y=20:Menu=0
 for t=0 to 3
  if mousex()>x and mousey()>y and mousex()<x+text width(Menu$(t)) and mousey()<y+text height(Menu$(t))
   if mouseclick()=1 then Menu=t:exit
   ink rgb(0,0,255),0
  else
   ink rgb(0, 0, 150),0  
  endif
  text x,y,Menu$(t)
  inc y,20
 next t
loop