View difference between Paste ID: x7dTXAV7 and Bj0JTDuQ

 ; simulator_v0.1
 ; вопросы: как избежать повторения кода?
 
 Enumeration
   #forum
   #mkSite
   #sellSite
   #siteCnt
   #mnyCnt
   #status
   #yw
 EndEnumeration
 
-k=0
+
-m=0
+
 ; это не нужно, потому что по умолчанию необъявленные переменные и так равны 0
 ;k=0
 ;m=0
 
 ; вообще пара дополнений по стилю:
 ; If k>=0
 ; то же самое что и
 ; If k
 ;
 ; не нужно лишних движений
 ; k=k+1
 ; можно писать просто
 ; k+1
 
 ; вообще все эти k, m, i жутко неудобны для чтения
 ; почему бы не называть их нормально?
 
 ; для того чтобы избавиться от копипаста обычно используют процедуры
-              If k>=0
+Procedure setInfo(sites.l,money.l)
-                ButtonGadget(#sellSite, 10, 110, 120, 40, "Продать сайт")
+  ; твой код:
   ;text2$ = "Денег: " + m
-              k=k+1
+  ;TextGadget(#mnyCnt, 140, 120, 100, 25, text2$)
-              text$ = "Сайтов: " + k
+  ;text$ = "Сайтов: " + k
-              TextGadget(#siteCnt, 140, 70, 100, 25, text$)
+  ;TextGadget(#siteCnt, 140, 70, 100, 25, text$)
   ; ты каждый раз пересоздаешь гаджет на том же месте с тем же айди
   ; это лишнее, поэтому делаем так
   moneyString.s = "Денег: " + Str(money)
   siteString.s = "Сайтов: " + Str(sites)
 
   ; меняем статусы
   If Not IsGadget(#mnyCnt)
     TextGadget(#mnyCnt,140,120,100,25,moneyString)
   Else
     SetGadgetText(#mnyCnt,moneyString)
   EndIf
   If Not IsGadget(#siteCnt)
     TextGadget(#siteCnt,140,70,100,25,siteString)
   Else
-                  ButtonGadget(#sellSite, 10, 110, 120, 40, "Продать сайт") : DisableGadget(#sellSite, 1)
+    SetGadgetText(#siteCnt,siteString)
-                  k=k-1
+  EndIf
-                  m=m+1
+
-                  text2$ = "Денег: " + m
+  ; активируем/деактивируем кнопочку когда надо
-                  TextGadget(#mnyCnt, 140, 120, 100, 25, text2$)
+  If sites
-                  text$ = "Сайтов: " + k
+    If Not IsGadget(#sellSite)
-                  TextGadget(#siteCnt, 140, 70, 100, 25, text$)
+      ButtonGadget(#sellSite, 10, 110, 120, 40, "Продать сайт")
     Else
-                  k=k-1
+      DisableGadget(#sellSite,0)
-                  m=m+1
+    EndIf
-                  text2$ = "Денег: " + m
+  Else
-                  TextGadget(#mnyCnt, 140, 120, 100, 25, text2$)
+    DisableGadget(#sellSite,1)
-                  text$ = "Сайтов: " + k
+  EndIf
-                  TextGadget(#siteCnt, 140, 70, 100, 25, text$)
+EndProcedure
 ; теперь мы просто вызываем эту процедуру с указанными параметрами
 ; когда нам нужно обновить инфу
 
 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
               k + 1
               setInfo(k,m)
           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
                 ; для урлов есть HyperLinkGadget()
                 ; по клику на него можно повесить OpenProgram() с url в качестве параметра
                 ; и сразу откроется твоя ссылка
                 StringGadget(#PB_Any, 10, 150, 360, 25, "Source: http://anatolt.ru")
               Else
                 If k=1
                   k - 1
                   m + 1
                   setInfo(k,m)
                 Else
                   k - 1
                   m + 1
                   setInfo(k,m)
                 EndIf
               EndIf
           EndSelect
       EndSelect
   EndSelect
 Until ev = #PB_Event_CloseWindow