UsePNGImageDecoder()
v = 0
z = 0
a = 10
#Sprite = 0
If InitSprite() = 0
EndIf
 If InitSound()

   CatchSound(1, ?SoundFile)
DataSection
 SoundFile:
 IncludeBinary "untitled.wav"
EndDataSection

   CatchSound(2, ?SoundFile2)
DataSection
 SoundFile2:
 IncludeBinary "SP0000.wav"
EndDataSection

   CatchImage (0, ?Logo)
DataSection
  Logo: IncludeBinary "Безымянный123.bmp"
EndDataSection

   CatchImage (2, ?Logo2)
DataSection
  Logo2: IncludeBinary "Досылатель.png"
EndDataSection

   CatchImage (3, ?Logo3)
DataSection
  Logo3: IncludeBinary "Стереотруба.png"
EndDataSection

   CatchImage (4, ?Logo4)
DataSection
  Logo4: IncludeBinary "база.bmp"
  EndDataSection

EndIf

If OpenWindow(0, 0, 0, 300, 600, "Game", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Screen_WaitSynchronization)
                      SmartWindowRefresh(0, 1)
  
        If OpenWindowedScreen(WindowID(0), 0, 0, 300, 570, 0, 0, 0, #PB_Screen_WaitSynchronization)
          
              CreateSprite(1, 5, 20) 
    If StartDrawing(SpriteOutput(1))
      Box(0, 0, 3, 20, RGB(150, 75, 0))
      StopDrawing()
    EndIf
          
EndIf
EndIf

Repeat
    Event = WindowEvent()
    
    TextGadget(5, 240, 580, 500, 15, "Score: " +Str(a))
    
  FlipBuffers() 
  ClearScreen(RGB(255, 255, 255))
    ImageGadget(4, 0, 430, 100, 530, ImageID(4))
  ImageGadget(0, x, y, 23, 28, ImageID(0))
  DisplaySprite (1, x1, y1)
  y1 - direction
            y1 - direction
          y1 - direction
          y1 - direction
          y1 - direction
                    y1 - direction
          y1 - direction
          y1 - direction
                    y1 - direction
                    y1 - direction
          y1 - direction
          y1 - direction
          y1 - b
          y1 - b
          y1 - b
          y1 - b
          y1 - b
          y1 - b
  y + direction
  direction = 1
  Delay(30)
      If event = #PB_Event_Gadget
        If EventGadget () = 0     
          x1 = x + 15
          y1 = 530 
          PlaySound(2)
          EndIf
      EndIf
      
            If z = 5
              y = -100
              TextGadget(4, 10, 10, 500, 15, "Игра приостановлена")
      ImageGadget(2, 10, 25, 43, 40, ImageID(2))
      ImageGadget(3, 60, 25, 34, 43, ImageID(3))
      If event = #PB_Event_Gadget
      If EventGadget () = 2
           b = direction
           z - 5
           y = 20 
        EndIf
      EndIf
        If event = #PB_Event_Gadget
          If EventGadget () = 3
            v - 80
            z - 5
          EndIf
          EndIf
      If a < 70
    direction = 1
    TextGadget (1, 10, 580, 35, 15, "Level 1")
  EndIf
  If a > 70
    If a <= 150
      EndIf
      direction = 2
                    y1 + direction
          y1 + direction
                    y1 + direction
                    y1 + direction
          y1 + direction
          y1 + direction
          TextGadget (1, 20, 580, 35, 15, "Level 2")
        EndIf
  If a > 150
    If a <= 300
      If x < -20 
x = 220
    EndIf
      direction = 3
      TextGadget (1, 30, 580, 35, 15, "Level 3")
      EndIf
  EndIf
  If a > 300
    If a <= 450
      If x > 220
        x = -20
        EndIf
        direction = 4
        TextGadget (1, 50, 580, 35, 15, "Level 4")
        EndIf
  EndIf
  If a > 450
    If a <= 600
        direction = 5
        TextGadget (1, 50, 580, 35, 15, "Level 5")
        EndIf
  EndIf
  If a > 600
    If a <= 750
      If x < -20 
        x = 220
        EndIf
      direction = 6
        TextGadget (1, 60, 580, 35, 15, "Level 6")
        EndIf
          EndIf
          If a > 750
            If a <= 900
      If x > 220
        x = -20
          EndIf
        direction = 7
        TextGadget (1, 70, 580, 35, 15, "Level 7")
         EndIf
        EndIf
          If a > 900
        direction = 8
            TextGadget (1, 80, 580, 35, 15, "Level 8")
          EndIf
      EndIf
      
      If y1 - 50 < y 
        z + 1
            a + 10
            y1 = 10000
    y = 20 + v
    x = Random(230)
  EndIf
    If y > 260
    MessageRequester ("Сообщение", "Вы проиграли")
    End
  EndIf
  
          WaitWindowEvent ()
Until Event = #PB_Event_CloseWindow

  Window = EventWindow() 
  Gadget = EventGadget()

Procedure TextGadget_2D(x, y, Text.s)
  If StartDrawing(ScreenOutput())
    DrawingMode(#PB_2DDrawing_Transparent)
    DrawText(x, y, Text)
    StopDrawing()
  EndIf
EndProcedure

If InitSprite() = 0 Or InitKeyboard()=0
  MessageRequester("Error", "Can't open the sprite system", 0)
  End
EndIf

Procedure TextGadget_2D(x, y, Text.s)
  If StartDrawing(ScreenOutput())
    DrawingMode(#PB_2DDrawing_Transparent)
    DrawText(x, y, Text, 0)
    StopDrawing()
  EndIf
EndProcedure

OpenWindow(0, 0, 0, 340, 285, "Gadget and sprites!", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)
  
OpenWindowedScreen(WindowID(0), 10, 70, 320, 200, 0, 0, 0)
If LoadSprite(0, "C:\Танк.bmp")=0
  MessageRequester("", "Ошибка при загрузке картинки")
  End
EndIf

Repeat
  Repeat
    Event = WindowEvent()
    
    Select Event
      Case #PB_Event_CloseWindow
        Quit = 1
    EndSelect
    
  Until Event = 0 ; Quit the event loop only when no more events are available
  
  ; Clear the screen and draw our sprites
  ClearScreen(RGB(128,128,128))
  
  TextGadget_2D(10, 10, "1234")
  TextGadget_2D(50, 40, "5678")
  
  DisplaySprite(0, 80, 80)
  DisplaySprite(0, 130, 20)
    
  FlipBuffers()       ; Inverse the buffers (the back become the front (visible)... and we can do the rendering on the back
  
  ExamineKeyboard()
Until  Quit Or KeyboardPushed(#PB_Key_Escape)