This module is part of the original MMBasic library. It is reproduced here with kind permission of Hugh Buckle and Geoff Graham. Be aware it may reference functionality which has changed or is deprecated in the latest versions of MMBasic.
Colour Maximite V4.0 Demos from Fabrice Muller, France
Arcade: Arcade game where you have to shoot enemies until you die 3 times. It shows how to use multi-sprite enemies, audio modules as sound effects and ADC input for moving your ship Right/Left with a potentiometer + a Button to fire.
BREAKTST.BAS:
'Breakout Game demo for Colour Maximite v4.0
'Fabrice Muller
'2012
'Connect a potentiometer to Pin 2
'
' Pin 2
' |
' |
' / \
' +3v3 ----------| o |---------- GND
' \___/
'
' 10Kohm Potentiometer
'
'All Arrays start at 0
Option base 0
'Setup the Pin 2 as ADC input
SetPin 2,1
'array for a 15 x 8 bricks wall
Dim Brick(14,7)
'Load the Sprites
Drive "b:"
Sprite Load "Break.spr"
RackSize = 32
'Put the screen in 240 x 216 pixels
Mode 4
Cls
Print @(100 , 80) "Press a key to start"
Do While Inkey$ = "" : Loop
Cls
Lives = 3
Level = 1
'Maximum number of level you created
Max_Level = 4
'Load level 1 at start
Load_Level(1)
Racket = Pot_Read(2)
Randomize Timer
ballx = Rnd * (MM.HRes -40) + 20
bally = 90
dx = 0
Do While dx = 0
dx = Rnd(5) - 2
Loop
dy = -2
'Draw the Racket and the Ball
Sprite On 1,racket,200
Sprite On 2,racket + 16,200
Sprite On 3,ballx,bally
Sprite_Flip = 0
'Main loop
Do While 1
'Get racket position
Racket = Pot_Read(2)
RackRight = Racket + RackSize
'Move the Racket and the Ball
If Sprite_Flip = 1 Then
Sprite off 1
Sprite off 2
Sprite off 3
Sprite on 1,racket,200
Sprite on 2,racket + 16,200
Sprite on 3,ballx,bally
Sprite_Flip = 0
Else
Sprite off 3
Sprite off 2
Sprite off 1
Sprite on 3,ballx,bally
Sprite on 2,racket + 16,200
Sprite on 1,racket,200
Sprite_Flip = 1
EndIf
ballx = ballx + dx
bally = bally + dy
If bally >= 190 Then Racket_Test
If bally <= 3 Then dy = Abs(dy)
If ballx > (MM.HRes - 7) Then dx = -dx
If ballx < 1 Then dx = Abs(dx)
ShootY = Int(bally / 8)
If (ShootY >= 0) And (ShootY <= 7) Then
ShootX = Int(Ballx / 16)
If ShootX <= 14 Then Test_the_Bricks
EndIf
Pause 20
Loop
Sub Racket_Test
If (ballx < (Racket - 7)) Or (ballx > RackRight) Then
Lives = Lives - 1
If Lives = 0 Then
Print @(100 , 90) "GAME OVER !"
Sound 500,500
Print @(60 , 110) "Press a key to restart"
Do While Inkey$ = "" : Loop
Run
Else
Sprite Off 3
Bally = 90
Ballx = Int(Rnd * (MM.HRes - 30) + 10)
Sprite On 3,Ballx,Bally
Exit Sub
EndIf
EndIf
Sound 700,10
dy = -dy
If (ballx >= Racket) And (ballx >= Racket + Int(RackSize / 4)) Then
If dx > 0 Then dx = -3
EndIf
If (Ballx >= Racket + Int(RackSize/4)) And (Ballx <= Racket + Int(RackSize/2)) Then
If dx > 0 Then dx = -2
EndIf
If (Ballx >= (Racket + Int(RackSize / 2)+Int(RackSize / 4))) And (Ballx <= RackRight) Then
If dx < 0 Then dx = 2
EndIf
End Sub
Sub Test_the_Bricks
If ShootX < 0 Then ShootX = 0
If brick(ShootX,ShootY) = 1 Then
brick(ShootX,ShootY) = 0
Sound 1000,20
Sprite Off 3
Line (ShootX*16,ShootY*8)-((ShootX*16)+15,(ShootY*8)+7),0,bf
Sprite On 3,ballx,bally
score = score + 10
Print @(0 , 200) score;" "
If (score Mod 1200) = 0 Then
'Load the next level
Level = Level + 1
If Level > Max_Level Then
Print @(100 , 80) "You win !"
Print @(70 , 100) "Press a key to restart"
Do While Inkey$ = "" : Loop
Run
EndIf
Sprite Off 1
Sprite Off 2
Sprite Off 3
Bally = 90
Ballx = Int(Rnd * (MM.HRes - 30) + 10)
Cls
Load_Level(Level)
Sprite On 1,racket,200
Sprite On 2,racket + 16,200
Sprite On 3,Ballx,Bally
Sprite_Flip = 0
dy = Abs(dy)
Exit Sub
EndIf
If dy > 0 Then
dy = -dy
Else
dy = Abs(dy)
EndIf
EndIf
End Sub
Sub Load_Level(Number)
'Here we load a bmp and it's related
'data array
Local FileBMP$,FileBrick$
Local Input_Line$
Local a,b
FileBMP$ = "brick"
If Number < 10 Then FileBMP$ = FileBMP$ + "0" + Str$(Number) + ".bmp"
If Number >= 10 Then FileBMP$ = FileBMP$ + Str$(Number) + ".bmp"
FileBrick$ = "brick"
If Number < 10 Then FileBrick$ = FileBrick$ + "0" + Str$(Number) + ".lvl"
If Number >= 10 Then FileBrick$ = FileBrick$ + Str$(Number) + ".lvl"
'We load the Wall BMP
LoadBMP FileBMP$,0,0
'We load the data array for this level
Open FileBrick$ For input As #1
For a = 0 To 7
Line Input #1,Input_Line$
For b = 0 To 14
If Mid$(Input_line$,b+1,1) <> " " Then
Brick(b,a) = 1
Else
Brick(b,a) = 0
EndIf
Next b
Next a
Close #1
End Sub
Function Pot_Read(ADC_Pin)
'Read the potentiometer value for place
'the X coordinate from the Ship
'ADC_Pin is the pin number we have define for ADC input
Local CalcPot , tmppos
CalcPot = 3 / MM.HRes
tmppos = Int((Pin(ADC_Pin) -0.1) / CalcPot)
If tmppos > (MM.HRes - 32) Then tmppos = MM.HRes - 32
Pot_Read = tmppos
End Function