Sim_v0.1

; simulator_v0.1
; вопросы: как избежать повторения кода?

OpenWindow(0,100,100,380,190,"Симулятор вебмастера",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
Enumeration
  #forum
  #mkSite
  #sellSite
  #siteCnt
  #mnyCnt
  #status
  #yw
EndEnumeration
k=0
m=0
ButtonGadget(#forum, 10, 10, 120, 40, "Почитать форум")

Repeat
  ev = WaitWindowEvent()
  Select ev
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #forum
          ; и что за тип ивента
          Select EventType()
            Case #PB_EventType_LeftClick
              TextGadget(#status, 140, 20, 230, 25, "Вы изучили: разработка сайтов")
              ButtonGadget(#forum, 10, 10, 120, 40, "Почитать форум") : DisableGadget(#forum, 1)
              ButtonGadget(#mkSite, 10, 60, 120, 40, "Сделать сайт")
          EndSelect
        Case #mkSite
          Select EventType()
            Case #PB_EventType_LeftClick
              If k>=0
                ButtonGadget(#sellSite, 10, 110, 120, 40, "Продать сайт")
              EndIf
              k=k+1
              text$ = "Сайтов: " + k
              TextGadget(#siteCnt, 140, 70, 100, 25, text$)
          EndSelect
        Case #sellSite
          Select EventType()
            Case #PB_EventType_LeftClick
              If m>18
                CloseWindow(0)
                OpenWindow(1,100,100,380,190,"Симулятор вебмастера - победа",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
                LoadFont(#yw,"Arial Narrow", 48)
                TextGadget(#yw, 10, 10, 360, 170, "You WIN")
                SetGadgetFont(#yw, FontID(#yw))
                Repeat : Until #PB_Event_CloseWindow
                StringGadget(#PB_Any, 10, 150, 360, 25, "Source: http://anatolt.ru")
              Else
                If k=1
                  ButtonGadget(#sellSite, 10, 110, 120, 40, "Продать сайт") : DisableGadget(#sellSite, 1)
                  k=k-1
                  m=m+1
                  text2$ = "Денег: " + m
                  TextGadget(#mnyCnt, 140, 120, 100, 25, text2$)
                  text$ = "Сайтов: " + k
                  TextGadget(#siteCnt, 140, 70, 100, 25, text$)
                Else
                  k=k-1
                  m=m+1
                  text2$ = "Денег: " + m
                  TextGadget(#mnyCnt, 140, 120, 100, 25, text2$)
                  text$ = "Сайтов: " + k
                  TextGadget(#siteCnt, 140, 70, 100, 25, text$)
                EndIf
              EndIf
          EndSelect
      EndSelect
  EndSelect
Until ev = #PB_Event_CloseWindow