Sorry your browser is not supported!

cls:hide mouse:sync on:sync rate 60:do:repeat:cls rgb(100,100,100):ink rgb(255,255,255),1:print "choose level between 1 and 10":input level#:until level# => 1 and level# =< 10:levelmaths#=level#*4-100:levelline#=(abs(levelmaths#))
ink rgb(000,255,000),2:box 0,0,15,levelline#:get image 1,0,0,15,levelline#:ink rgb(255,000,000),3:box 0,0,15,100:get image 2,0,0,15,100:ink rgb(255,255,255),4
box 0,0,15,15:get image 3,0,0,15,15:cls rgb(100,100,100):score=0:playerx#=10.0:playery#=240.0:playerspeed#=0.0
playermove#=2.0:player=1:enemyx#=610.0:enemyy#=240.0:enemyspeed#=0.0:enemymove#=3.0
enemy=2:ballx#=100.0:bally#=200.0:ballxspeed#=2.0:ballyspeed#=2.0:ballinc#=0.2:ball=3
repeat:if upkey()=1:playerspeed#=0.0-playermove#:else:if downkey()=1:playerspeed#=playermove#:else:playerspeed#=0:endif:endif
if enemyy#+50-bally# < 0.0:enemyspeed#=enemymove#:endif
if enemyy#+50-bally# > 0.0:enemyspeed#=0.0-enemymove#:endif
if playery# < 0.0 then playery#=0.0:if playery# > 480.0-levelline# then playery#=480.0-levelline#
if enemyy# < 0.0 then enemyy#=0.0:if enemyy# > 380.0 then enemyy#=380.0
if bally# < 0.0 or bally# > 465.0 then ballyspeed# = 0.0-ballyspeed#
playery#=playery#+playerspeed#:enemyy#=enemyy#+enemyspeed#:ballx#=ballx#+ballxspeed#:bally#=bally#+ballyspeed#
sprite player,playerx#,playery#,player:sprite enemy,enemyx#,enemyy#,enemy:sprite ball,ballx#,bally#,ball
if sprite collision(player,ball):ballxspeed#=0.0+(abs(ballxspeed#)+ballinc#)
random#=(rnd(10)-5)/10.0:ballyspeed#=ballyspeed# + (playerspeed/2) + random#:score=score+1:endif
if sprite collision(enemy,ball):ballxspeed#=0.0-(abs(ballxspeed#)+ballinc#):random#=(rnd(10)-5)/10.0:ballyspeed#=ballyspeed# + (enemyspeed/2) + random#:endif
sync:until ballx# > 640.0 or ballx# < -15.0:cls:print "score: ";score
repeat:sync:until returnkey() or spacekey():if spacekey()=1 then exit
loop

cls
hide mouse
sync on
sync rate 60
do
repeat
cls rgb(100,100,100)
ink rgb(255,255,255),1
print "choose level between 1 and 10"
input levelline#
until levelline# => 1 and levelline# =< 10
ink rgb(000,255,000),2
box 0,0,15,100
get image 1,0,0,15,100
ink rgb(255,000,000),3
box 0,0,15,100
get image 2,0,0,15,100
ink rgb(255,255,255),4
box 0,0,15,15
get image 3,0,0,15,15
cls rgb(100,100,100)
score=0
playerx#=10.0
playery#=240.0
playerspeed#=0.0
playermove#=2.0
player=1
enemyx#=610.0
enemyy#=240.0
enemyspeed#=0.0
enemymove#=3.0
enemy=2
ballx#=100.0
bally#=200.0
ballxspeed#=levelline#
ballyspeed#=levelline#
ballinc#=0.2
ball=3
repeat
if upkey()=1
playerspeed#=0.0-playermove#
else
if downkey()=1
playerspeed#=playermove#
else:playerspeed#=0
endif
endif
if enemyy#+50-oldbally# < 0.0
enemyspeed#=enemymove#
endif
if enemyy#+50-oldbally# > 0.0
enemyspeed#=0.0-enemymove#
endif
if playery# < 0.0 then playery#=0.0
if playery# > 480.0-levelline# then playery#=480.0-levelline#
if enemyy# < 0.0 then enemyy#=0.0
if enemyy# > 380.0 then enemyy#=380.0
if oldbally# < 0.0 or oldbally# > 300.0 then ballyspeed# = abs(ballyspeed#)
playery#=playery#+playerspeed#
oldplayery#=curvevalue(playery#,oldplayery#,5.0)
enemyy#=enemyy#+enemyspeed#
oldenemyy#=curvevalue(enemyy#,oldenemyy#,5.0)
ballx#=ballx#+ballxspeed#
oldballx#=curvevalue(ballx#,oldballx#,5.0)
bally#=bally#+ballyspeed#
oldbally#=curvevalue(bally#,oldbally#,5.0)
sprite player,playerx#,oldplayery#,player
sprite enemy,enemyx#,oldenemyy#,enemy
sprite ball,oldballx#,oldbally#,ball
if sprite collision(player,ball)
ballxspeed#=0.0+(abs(ballxspeed#)+ballinc#)
random#=(rnd(10)-5)/10.0
ballyspeed#=ballyspeed# + (playerspeed/2) + random#
score=score+1
endif
if sprite collision(enemy,ball)
ballxspeed#=0.0-(abs(ballxspeed#)+ballinc#)
random#=(rnd(10)-5)/10.0:ballyspeed#=ballyspeed# + (enemyspeed/2) + random#
endif
sync
until ballx# = 640.0 or ballx# = -15.0
cls
print "score: ";score
repeat
sync
until returnkey() or spacekey()
if spacekey()=1 then exit
loop

cls:hide mouse:sync on:sync rate 60:do:repeat:cls rgb(100,100,100):ink rgb(255,255,255),1:print "choose level between 1 and 10":
input levelline#:until levelline# => 1 and levelline# =< 10:levelline#=levelline#*2:ink rgb(000,255,000),2:box 0,0,15,100:get image 1,0,0,15,100:ink rgb(255,000,000),3:
box 0,0,15,100:get image 2,0,0,15,100:ink rgb(255,255,255),4:cls:print FillCircle(8,8,7):get image 3,0,0,16,16:cls rgb(100,100,100):score=0:playerx#=10.0:playery#=240.0:
playerspeed#=0.0:playermove#=2.0:player=1:enemyx#=610.0:enemyy#=240.0:enemyspeed#=0.0:enemymove#=levelline#:enemy=2:ballx#=100.0:bally#=200.0:
ballxspeed#=2.0:ballyspeed#=2.0:ballinc#=0.2:ball=3:repeat:if upkey()=1:playerspeed#=0.0-playermove#:else:if downkey()=1:playerspeed#=playermove#:else:playerspeed#=0:endif:endif:
if enemyy#+50-oldbally# < 0.0:enemyspeed#=enemymove#:endif:if enemyy#+50-oldbally# > 0.0:enemyspeed#=0.0-enemymove#:endif:if bally# < 0.0 or bally# > 465.0 then ballyspeed# = 0.0-ballyspeed#:
if oldplayery# < 0.0:oldplayery#=0.0:playery#=0.0:endif:if oldplayery# > 380.0:oldplayery#=380.0:playery#=380.0:endif:if oldenemyy# < 0.0:oldenemyy#=0.0:enemyy#=0.0:endif:if oldenemyy# > 380.0:oldenemyy#=380.0:enemyy#=380.0:endif:
playery#=playery#+playerspeed#:oldplayery#=curvevalue(playery#,oldplayery#,5.0):enemyy#=enemyy#+enemyspeed#:oldenemyy#=curvevalue(enemyy#,oldenemyy#,10.0):
ballx#=ballx#+ballxspeed#:oldballx#=curvevalue(ballx#,oldballx#,5.0):bally#=bally#+ballyspeed#:oldbally#=curvevalue(bally#,oldbally#,5.0):
sprite player,playerx#,oldplayery#,player:sprite enemy,enemyx#,oldenemyy#,enemy:sprite ball,oldballx#,oldbally#,ball:if sprite hit(player,ball):ballxspeed#=0.0+(abs(ballxspeed#)+ballinc#):random#=(rnd(10)-5)/10.0:
ballyspeed#=ballyspeed# + (playerspeed/2) + random#:score=score+1:endif:if sprite hit(enemy,ball):ballxspeed#=0.0-(abs(ballxspeed#)+ballinc#):
random#=(rnd(10)-5)/10.0:ballyspeed#=ballyspeed# + (enemyspeed/2) + random#:endif:sync:until oldballx# > 640.0 or oldballx# < -15.0:cls:print "score: ";score:repeat:sync:until returnkey() or spacekey():if spacekey()=1 then exit:
loop
Function Fillcircle(x,y,r):
overdraw=0:for ang = 1 to 180:px = x + sin(360-ang) * r:py = y + cos(360-ang) * r:px2 = x + sin(ang) * r:py2 = y + cos(ang) * r:if point(x,py) <> point(0,0) then inc overdraw:
line px,py,px2,py2:next ang:
endfunction overdraw