Enumeration
  #Window_0
EndEnumeration


Enumeration
  #Button_0
  #Button_1
  #Button_2
  #Button_3
  #Button_4
  #Button_5
  #Button_6
  #Button_7
  #Button_8
  #Button_9
  #Button_10
  #Button_11
  #Button_12
  #Button_13
  #Button_14
  #Button_15
EndEnumeration


Global dvig

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 516, 346, 325, 353, "Пятнашки",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered )
    
    If LoadFont(0, "Arial", 22)
      SetGadgetFont(#PB_Default, FontID(0))   ; Устанавливаем шрифт по умолчанию
    EndIf


      ButtonGadget(#Button_1, 5, 10, 75, 75, "1")
      ButtonGadget(#Button_2, 85, 10, 75, 75, "2")
      ButtonGadget(#Button_3, 165, 10, 75, 75, "3")
      ButtonGadget(#Button_4, 245, 10, 75, 75, "4")
      ButtonGadget(#Button_5, 5, 90, 75, 75, "5")
      ButtonGadget(#Button_6, 85, 90, 75, 75, "6")
      ButtonGadget(#Button_7, 165, 90, 75, 75, "7")
      ButtonGadget(#Button_8, 245, 90, 75, 75, "8")
      ButtonGadget(#Button_9, 5, 170, 75, 75, "9")
      ButtonGadget(#Button_10, 85, 170, 75, 75, "10")
      ButtonGadget(#Button_11, 165, 170, 75, 75, "11")
      ButtonGadget(#Button_12, 245, 170, 75, 75, "12")
      ButtonGadget(#Button_13, 5, 250, 75, 75, "13")
      ButtonGadget(#Button_14, 85, 250, 75, 75, "14")
      ButtonGadget(#Button_15, 165, 250, 75, 75, "15")
 
      
    If CreateMenu(1,WindowID(#Window_0))         ;Создаем меню
       MenuTitle("Меню")
        MenuItem(1,"Новая игра")
        MenuItem(2,"Об игре")
        MenuBar()
        MenuItem(3,"Выход")
    EndIf
       
  EndIf
EndProcedure

Procedure.l Pustoe_mesto(a)
 razmer_x = GadgetX(a)     ;местонахождение гаджета
 razmer_y = GadgetY(a)

  For gad=1 To 15
    raz_x = GadgetX(gad)
    raz_y = GadgetY(gad)
    
      If razmer_x + 80 < 320
       If razmer_x + 80 <> raz_x Or razmer_y <> raz_y      ; проверка справа
        Schet=Schet+1
       EndIf
      EndIf

      If razmer_x - 80 >= 5 
       If razmer_x - 80 <> raz_x  Or razmer_y <> raz_y           ;проверка слева
        Schet1=Schet1+1
       EndIf
      EndIf
      

      If razmer_y + 80 < 325
       If razmer_y + 80 <> raz_y  Or razmer_x <> raz_x         ;проверка снизу
        Schet2=Schet2+1
       EndIf
      EndIf

      
     
      If razmer_y - 80 >= 10 
       If razmer_y - 80 <> raz_y  Or razmer_x <> raz_x           ;проверка сверху
        Schet3=Schet3+1
       EndIf
      EndIf  
  Next
 

  If Schet=15
   dvig=1
  EndIf
  
  If Schet1=15
   dvig=2
  EndIf
   
  If Schet2=15
   dvig=3
  EndIf
  
  If Schet3=15
   dvig=4
   
  EndIf


EndProcedure

Procedure peremeshenie(a,b)

 Select a
  Case 1
   ResizeGadget(b, GadgetX(b)+80, #PB_Ignore, #PB_Ignore, #PB_Ignore)              ;Перемещение кнопок
  Case 2
   ResizeGadget(b, GadgetX(b)-80, #PB_Ignore, #PB_Ignore, #PB_Ignore)
  Case 3
   ResizeGadget(b, #PB_Ignore,GadgetY(b)+80,  #PB_Ignore, #PB_Ignore)
  Case 4
   ResizeGadget(b, #PB_Ignore,GadgetY(b)-80,  #PB_Ignore, #PB_Ignore)
 EndSelect
 dvig=0
EndProcedure

Procedure sluch()

        For ww=1 To 2000             
           gadget= Random(15)                ; случайная расстановка
           If gadget=0
            gadget=1
           EndIf 
           Pustoe_mesto(gadget) 
           peremeshenie(dvig,gadget) 
        Next

EndProcedure



Open_window_0()
sluch()

Repeat

  ev=WaitWindowEvent()

 If ev=#PB_Event_Gadget                        
    For gadget=1 To 15                         
     If EventGadget()=gadget                   ; Индефикация гаджета    
      Pustoe_mesto(gadget) 
      peremeshenie(dvig,gadget)                      
      Break                                    
     EndIf                                     
    Next                                       
 EndIf
 
 
 If GadgetX(1)+GadgetY(1)=15 And GadgetX(2)+GadgetY(2)=95 And GadgetX(3)+GadgetY(3)=175 And GadgetX(4)+GadgetY(4)=255
   If GadgetX(5)+GadgetY(5)=95 And GadgetX(6)+GadgetY(6)=175 And GadgetX(7)+GadgetY(7)=255 And GadgetX(8)+GadgetY(8)=335
     If GadgetX(9)+GadgetY(9)=175 And GadgetX(10)+GadgetY(10)=255 And GadgetX(11)+GadgetY(11)=335 And GadgetX(12)+GadgetY(12)=415
       If GadgetX(13)+GadgetY(13)=255 And GadgetX(14)+GadgetY(14)=335 And GadgetX(15)+GadgetY(15)=415
         MessageRequester("Победа", "Молодец ты сумел(а) собрать пятнашку.")
         sluch()
       EndIf 
     EndIf
   EndIf
 EndIf                                      
  
  Menu=EventMenu()                     ;события меню
    If ev=#PB_Event_Menu
      Select Menu
        Case 1
          sluch()
        Case 2 
          MessageRequester("Об игре", "Создано в PureBasic, автор: Станислав Будинов")
        Case 3
          End
      EndSelect  
    EndIf
      
Until ev=#PB_Event_CloseWindow