;{модуль
UsePNGImageDecoder()
;}

;{константы
#width = 1024 ; ширина окна
#height = 768 ; высота окна
;}

;{структуры

;игрок
Structure SPlayer
       x.f
       y.f
       speed.f
       image.i
       score.i
EndStructure

;враг
Structure SEnemy Extends SPlayer
          
EndStructure

;}

MP_Graphics3D(#width,#height,32,2) ;ширина,высота,глубина,мод[0-полноэкранный режим]
MP_VSync(1)

Global font = MP_CatchSprite(?font, ?endfont - ?font) ; шрифт
MP_SpriteSetAnimate(font,60,0,16,16) ; размеры и позиция символов шрифта
Global bg = MP_CatchSprite(?stars, ?font - ?stars) ;космос

;{
;инициализация

;игрок
Global Player.SPlayer
Player\speed = 5
Player\x = 0
Player\y = 350
Player\image = MP_CatchSprite(?Player, ?Enemy - ?Player)
Player\score = 0

;враг
Global Enemy.SEnemy
Enemy\speed = 8
Enemy\x = 1000
Enemy\y = MP_RandomFloat(20,650)
Enemy\image = MP_CatchSprite(?Enemy, ?stars- ?Enemy)
;}
;управление игроком
Procedure UpdatePlayer()
          
       If MP_KeyDown(#PB_Key_Down)
           If Player\y < #height - MP_SpriteGetWidth(Player\image)/2
               Player\y + Player\speed
           EndIf
       EndIf
          
       If MP_KeyDown(#PB_Key_Up)
           If player\y <> 0
                
               Player\y - Player\speed
        
           EndIf
       EndIf
       If MP_SpriteCollision(Enemy\image,Enemy\x,Enemy\y,Player\image,Player\x,Player\y)
           MP_DrawBitMapText(font, #width/2 - 100, 100, "COLLISION")
       EndIf
          
EndProcedure
Procedure UpdateEnemy()
       Enemy\x - enemy\speed
       If enemy\x < 0 - MP_SpriteGetWidth(Enemy\image)
           enemy\x = 1000
           enemy\y = MP_RandomInt(0,700)
           player\score + 100
              
       EndIf
          
       EndProcedure

       Procedure Draw()
              
       MP_DrawSprite(Player\image,Player\x,Player\y)
       MP_DrawSprite(Enemy\image,Enemy\x,Enemy\y)
          
          
       MP_DrawTiledSprite(bg,0,0)
       MP_DrawBitMapText(font, 10, 10, "SCORE:"+Str(Player\score),255,32,3)
          
EndProcedure

While  Not MP_KeyHit(#PB_Key_Escape) And Not WindowEvent()=#PB_Event_CloseWindow
          
        Draw()
       UpdatePlayer()
       UpdateEnemy()
          
          
     SetWindowTitle(0,"Space "+"FPS: "+Str(MP_FPS()))
       MP_RenderWorld()
       MP_Flip()
Wend
End

DataSection
     Player:
        IncludeBinary "player.png"
     Enemy:
        IncludeBinary "enemy.png"
     stars:
        IncludeBinary "stars.bmp"
     font:
        IncludeBinary "Spherical.bmp"
     endfont:
           
EndDataSection