common.pb

;common.pb
Structure square
  x.w
  y.w
  type.b
  id.s
EndStructure

Structure dot
  x.w
  y.w
  type.b
  color.l
EndStructure

Enumeration
  #start
  #stop
  #area
  #squareBegin
  #squareEnd
EndEnumeration
#White = 16777215
#Red = 255
#Green = 65280

Global NewList all.dot(), NewList every.square()

Procedure Modulo(num)
  If num < 0
    ProcedureReturn -num
  EndIf
  ProcedureReturn num
EndProcedure

Procedure addDot(x,y,type=#start,color=#White)
  AddElement(all())
  all()\x = x
  all()\y = y
  all()\type = type
  all()\color = color ;Random(#white-100)
EndProcedure

Procedure addSquare(x,y,type,id$="")
  AddElement(every())
  every()\id = id$
  every()\x = x
  every()\y = y
  every()\type = type
EndProcedure

Procedure drawAll()
  StartDrawing(CanvasOutput(#canva))
  Box(0,0,300,300,0)
  fin = ListSize(all())-1
  For i = 0 To fin
    SelectElement(all(),i)
    type = all()\type
    x = all()\x
    y = all()\y
    color = all()\color
    Select type
      Case #start
        Circle(x,y,R,color)
        If i > 0 And Not type = #stop
          SelectElement(all(),i-1)
          x2 = all()\x
          y2 = all()\y
          LineXY(x,y,x2,y2,color)
          SelectElement(all(),i)
        EndIf
      Case #stop  
        Circle(x,y,R,color)
      Case #area
        FillArea(x,y,-1,color)
        DrawingMode(#PB_2DDrawing_XOr)
        Circle(x,y,R,color)
        DrawingMode(#PB_2DDrawing_Default)
    EndSelect
  Next
  fin = ListSize(every())-1
  For i = 0 To fin
    SelectElement(every(),i)
    type = every()\type
    x = every()\x
    y = every()\y
    Select type
      Case #squareBegin
        Circle(x,y,R,squaresClr)
      Case #squareEnd
        DrawingMode(#PB_2DDrawing_Outlined)
        If i>0
          SelectElement(every(),i-1)
          x2 = every()\x
          y2 = every()\y
          Box(x,y,x2-x,y2-y,squaresClr)
          DrawingMode(#PB_2DDrawing_Default)
          Circle(x,y,R,squaresClr)
        EndIf
        SelectElement(every(),i)
    EndSelect
  Next
  StopDrawing()
EndProcedure

Procedure popalSquare(mX, mY, objX, objY, objW, objH)
  If mX >= objX And mX <= objX+objW And mY >= objY And mY <= objY+objH
    ProcedureReturn #True
  EndIf
  ProcedureReturn #False
EndProcedure

Macro squares2btns
  For i = ListSize(every())-1 To 0 Step -2
    SelectElement(every(),i)
    x = every()\x
    y = every()\y
    If i>0
      SelectElement(every(),i-1)
      number$ = every()\id
      x2 = every()\x
      y2 = every()\y
      SelectElement(every(),i)
      objW = Modulo(x-x2)
      objH = Modulo(y-y2)
      Debug "mX="+Str(mX)+",mY="+Str(mY)+",x="+Str(x) +",y="+ Str(y)+",x2="+Str(x2) +",y2="+ Str(y2)+",objW="+Str(objW)+",objH="+Str(objH)
      If x < x2
        x2 = x
      EndIf
      If y < y2
        y2 = y
      EndIf
      If popalSquare(mX,mY,x2,y2,objW,objH) 
        Debug "HIT the "+number$
        MessageRequester("HIT!!!","You hit the square name "+number$)
        offsetX = mX - x
        offsetY = mY - y
        selectedObject = i
        Break
      Else
        Debug "Fail"
      EndIf
    Else
      MessageRequester("No squares","There is no squares on canvas. Add some")
    EndIf
  Next
  Debug "==="
EndMacro