Global X_s, Y_s

Global Vrema_0     ;Время начала отсчета в таймере работы с программой
Global Vrema_Tec   ; на текущий момент замера
Global Vrema_MS    ; милисекунды
Global Vrema_S
Global Vrema_M
Global Vrema_H

Procedure Zatr_Vrema()  ; Выводит время работы и Координаты Х и Y ...
     
Vrema_Tec=ElapsedMilliseconds() ; Устанавликает переменную текущего времени на это мгновение...
Vrema_MS=Vrema_Tec-Vrema_0      ; Vrema_0 на момент запуска равно 0
  If Vrema_MS>=1000             ; если время достигло минуты то идет фактически обнуление Vrema_MS  и +1 секунда...   
    Vrema_0=ElapsedMilliseconds()
    Vrema_S=Vrema_S+1
      If Vrema_S>=60                   ; По аналагичной схеме минуты и часы...
        Vrema_S=0
        Vrema_M=Vrema_M+1
          If Vrema_M>=60
            Vrema_M=0
            Vrema_H=Vrema_H=1
          EndIf  
      EndIf
    EndIf
    
    StatusBarText(30,0,"Время работы: "+ Str(Vrema_H)+":"+Str(Vrema_M)+":"+Str(Vrema_S)+":"+Str(Vrema_MS)) ; Выводит число ошибок на строку состояния
    StatusBarText(30,1,"Координата X= "+ Str(WindowMouseX(0)))
    StatusBarText(30,2,"Координата Y= "+ Str(WindowMouseY(0)))
 EndProcedure

Procedure Windows()
If OpenWindow(0, 0, 0, 800, 645, "2DDrawing Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CreateImage(0, 1000, 602)
  ImageGadget(0, 0, 0, 800, 602, ImageID(0))
  If CreateMenu(0, WindowID(0))      
    MenuItem(1,"Старт")
    MenuItem(2,"Выход")
  EndIf
  
  If CreateStatusBar(30, WindowID(0))
          
      AddStatusBarField(#PB_Ignore)
      AddStatusBarField(#PB_Ignore)
      AddStatusBarField(#PB_Ignore)
      SetTimer_(WindowID(0), 1, 100, @Zatr_Vrema() ) ; При создании окна запускается таймер показывающий время текущее и день недели...
    EndIf  
  
EndIf
EndProcedure

Procedure Zigzag()  
  ;SetTimer_(WindowID(0), 1, 100, @Zatr_Vrema() ) 
  V=Random(30)
    While V<20
      V=Random(50)
    Wend
    ToRad.d = 1/V
    
  R=Random(250)
    While r<50
      R=Random(250)
    Wend
  If  StartDrawing(ImageOutput(0))
    Box(0,0,800,601,RGB(0,0,0))
      z.f=100
      For x=0 To 600              
        color=RGB(255, 0, 0)
          For t=0 To z
            Plot(Sin(x*ToRad)*R+200+(z/2+t),x,color)
          Next t
        ToRad-0.00004
        z+0.4
      Next x    
    ;LineXY (0,602,800,602,RGB(255,0,0)) ; Рисуем снизу линию
      DrawingMode(#PB_2DDrawing_Gradient)      
        BackColor($00FFFF)
        FrontColor($FF0000)        
        x=200+400        
          While Point(x+20, 600-25)<>RGB(255,0,0)
            x-5
          Wend         
        X_s=x
        Y_s=645-28
        SetCursorPos_(WindowX(0)+X_s, WindowY(0)+20+Y_s)
        CircularGradient(X_s, Y_s, 5)     
        Circle(X_s, Y_s, 5)
        ;Debug X_s
        ;Debug Y_s
       StopDrawing()     
     SetGadgetState(0,ImageID(0))
  EndIf
  
   ;SetCursorPos_(WindowX(0)+X_s, WindowY(0)+Y_s)
   ;wc.hCursor=LoadCursor_(NULL, IDC_SIZE	)
   ;SetCursor_(NULL)
   ShowCursor_(FALSE)
 EndProcedure
 
Windows()

Repeat
  Event=WaitWindowEvent(100)
  Menu=EventMenu()
  If event=#PB_Event_Menu
    If Menu=1
      Start=ElapsedMilliseconds()
      d=0
      Zigzag()
;{ Вложенный цикл
Repeat        
    ;Kor_X=WindowMouseX(0) ; Это лишнее условие
    ;Kor_Y=WindowMouseY(0) ; Это лишнее условие
    If WindowMouseX(0) <>Kor_X Or WindowMouseY(0)<>Kor_Y
      Kor_X=WindowMouseX(0)
      Kor_Y=WindowMouseY(0)
      ;If Kor_Y>600-10
        ;or_Y=600-10
      ;EndIf
      StartDrawing(ImageOutput(0))
      Circle(X_s, Y_s, 5,RGB(255,0,0))
      DrawingMode(#PB_2DDrawing_Gradient) 
      X_s=Kor_X
      Y_s=Kor_Y        
        If Y_s<=5 And Y_s<>-1
          DrawingMode(#PB_2DDrawing_Default )
          Box(0,0,800,601,RGB(0,0,0))
          StopDrawing()
          SetGadgetState(0,ImageID(0)) 
            Debug Y_s
            ShowCursor_(-1)
            temp.f=(ElapsedMilliseconds()-start)/1000
            ;KillTimer_(WindowID(0),1)
            MessageRequester("Информация!", "Задание выполнено! Затраченное время: "+Left(StrF(temp),5)+ " сек.", #MB_OK|#MB_ICONINFORMATION)
          Break          
        EndIf        
        BackColor($00FFFF)
        FrontColor($FF0000)        
        
        For a=0 To 360 Step 15
          If Kor_X<>-1
            ;Debug Kor_Y
            Cvet=Point(Cos(a*#PI/180)*5+Kor_X, Sin(a*#PI/180)*5+Kor_Y)
            
          EndIf
          
          If  Cvet=RGB(0,0,0)
            DrawingMode(#PB_2DDrawing_Default )
            Box(0,0,800,601,RGB(0,0,0))
            StopDrawing()
            SetGadgetState(0,ImageID(0))
            ;Debug Y_s
            ;Debug Cvet
            ShowCursor_(-1)
            ;KillTimer_(WindowID(0),1)
            temp=ElapsedMilliseconds()-start
            MessageRequester("Ошибка!", "Задание провалено, касание в точке с координатами:X= "+Str(Cos(a*#PI/180)*5+Kor_X)+" y= " +Str(Sin(a*#PI/180)*5+Kor_Y), #MB_OK|#MB_ICONQUESTION)
            Goto k
          EndIf  
        Next a
        CircularGradient(X_s, Y_s, 5)     
        Circle(X_s, Y_s, 5)      
        StopDrawing()
        SetGadgetState(0,ImageID(0))  
    EndIf     
Until d=1
;}      
ElseIf menu=2
  KillTimer_(WindowID(0),1)
      End
    EndIf  
  EndIf
   k:
 Until Event = #PB_Event_CloseWindow
 KillTimer_(WindowID(0),1)
 End