property pWindowID, pDialogId, pmode, pNoiseDirV, pNoiseDirH, pDisplaymem, pCamShotImage, pCamMember, pZoomLevel, pHandItemData

on construct me 
  pCamMember = member(createMember("__cam_display_mem", #bitmap))
  pWindowID = #photo_camera_window
  pDialogId = #camera_dialog
  pNoiseDirH = 1
  pNoiseDirV = 1
  return TRUE
end

on deconstruct me 
  unregisterMessage(#leaveRoom, me.getID())
  unregisterMessage(#changeRoom, me.getID())
  if windowExists(pWindowID) then
    removeWindow(pWindowID)
  end if
  if windowExists(pDialogId) then
    removeWindow(pDialogId)
  end if
  if memberExists("__cam_display_mem") then
    removeMember("__cam_display_mem")
  end if
  removeUpdate(me.getID())
  return TRUE
end

on open me 
  if not createWindow(pWindowID) then
    return FALSE
  end if
  tWndObj = getWindow(pWindowID)
  tWndObj.merge("photo_camera.window")
  tWndObj.moveTo(100, 100)
  tWndObj.registerProcedure(#eventProcCameraMouseDown, me.getID(), #mouseDown)
  tWndObj.registerProcedure(#eventProcCameraMouseUp, me.getID(), #mouseUp)
  tWndObj.registerProcedure(#eventProcCameraMouseEnter, me.getID(), #mouseEnter)
  tWndObj.registerProcedure(#eventProcCameraMouseLeave, me.getID(), #mouseLeave)
  pmode = #live
  pDisplaymem = tWndObj.getElement("cam_display").getProperty(#buffer)
  me.setCameraToLiveMode()
  me.setButtonHilites()
  me.updateFilm()
  tWndObj.getElement("cam_savetxt").setProperty(#visible, 0)
  getConnection(getVariable("connection.room.id")).send("CARRYOBJECT", [#integer:20])
  registerMessage(#leaveRoom, me.getID(), #close)
  registerMessage(#changeRoom, me.getID(), #close)
  return(receiveUpdate(me.getID()))
end

on close me 
  if threadExists(#room) then
    tRoomID = getThread(#room).getComponent().getRoomID()
  end if
  if connectionExists(getVariable("connection.room.id")) and tRoomID <> "" then
    getConnection(getVariable("connection.room.id")).send("CARRYOBJECT", [#integer:0])
  end if
  pmode = #closed
  if windowExists(pWindowID) then
    removeWindow(pWindowID)
  end if
  if windowExists(pDialogId) then
    removeWindow(pDialogId)
  end if
  removeUpdate(me.getID())
  unregisterMessage(#leaveRoom, me.getID())
  unregisterMessage(#changeRoom, me.getID())
  return TRUE
end

on updateFilm me 
  if windowExists(pWindowID) then
    getWindow(pWindowID).getElement("photo_picnumber").setText(me.getComponent().getFilm())
  end if
end

on update me 
  if not windowExists(pWindowID) then
    return(removeUpdate(me.getID()))
  end if
  if (pmode = #live) then
    tWndObj = getWindow(pWindowID)
    tDispWidth = tWndObj.getElement("cam_display").getProperty(#width)
    tDispHeight = tWndObj.getElement("cam_display").getProperty(#height)
    tDispLocX = tWndObj.getElement("cam_display").getProperty(#locH)
    tDispLocY = tWndObj.getElement("cam_display").getProperty(#locV)
    tVertElem = tWndObj.getElement("cam_display_noise_vertical")
    tLocX = tVertElem.getProperty(#locH)
    tLocY = (tVertElem.getProperty(#locV) + pNoiseDirV)
    if tLocY >= ((tDispLocY + tDispHeight) - tVertElem.getProperty(#height)) then
      pNoiseDirV = -1
    else
      if tLocY <= tDispLocY then
        pNoiseDirV = 1
      end if
    end if
    tVertElem.moveTo(tLocX, tLocY)
    tHorElem = tWndObj.getElement("cam_display_noise_horizontal")
    tLocX = (tHorElem.getProperty(#locH) + pNoiseDirH)
    tLocY = tHorElem.getProperty(#locV)
    if tLocX >= ((tDispLocX + tDispWidth) - tHorElem.getProperty(#width)) then
      pNoiseDirH = -1
    else
      if tLocX <= tDispLocX then
        pNoiseDirH = 1
      end if
    end if
    tHorElem.moveTo(tLocX, tLocY)
  end if
end

on setCameraToLiveMode me 
  tWndObj = getWindow(pWindowID)
  tWndObj.getElement("cam_display_noise_horizontal").setProperty(#visible, 1)
  tWndObj.getElement("cam_display_noise_horizontal").setProperty(#blend, 100)
  tWndObj.getElement("cam_display_noise_vertical").setProperty(#visible, 1)
  tWndObj.getElement("cam_display_noise_vertical").setProperty(#blend, 100)
  tWndObj.getElement("cam_display").setProperty(#buffer, pDisplaymem)
  tWndObj.getElement("cam_display").setProperty(#blend, 100)
  tWndObj.getElement("cam_display").setProperty(#ink, 33)
  tWndObj.getElement("cam_display").setProperty(#color, rgb("#000000"))
  tWndObj.getElement("cam_display").setProperty(#bgColor, rgb("#ffffff"))
  return TRUE
end

on eventProcCameraMouseEnter me, tEvent, tSprID, tParam 
  if not getThread(#room).getComponent().roomExists(void()) then
    return FALSE
  end if
  me.showHelpLine(tSprID)
end

on eventProcCameraMouseLeave me, tEvent, tSprID, tParam 
  if not getThread(#room).getComponent().roomExists(void()) then
    return FALSE
  end if
  me.hideHelpLine(tSprID)
end

on eventProcCameraMouseDown me, tEvent, tSprID, tParam 
  if not getThread(#room).getComponent().roomExists(void()) then
    return FALSE
  end if
  tWndObj = getWindow(pWindowID)
  if (tSprID = "cam_shoot") then
    if pmode <> #live then
      return()
    end if
    getConnection(getVariable("connection.room.id")).send("USEOBJECT", [#integer:20])
    pZoomLevel = 1
    tWndObj.getElement("cam_display").setProperty(#visible, 0)
    tWndObj.getElement("cam_display_noise_horizontal").setProperty(#visible, 0)
    tWndObj.getElement("cam_display_noise_vertical").setProperty(#visible, 0)
    getThread(#room).getComponent().getBalloon().hideBalloons()
    tHandVis = getThread(#room).getInterface().getContainer().getVisual()
    if tHandVis <> 0 then
      tHandVis.hide()
    end if
    hideWindows()
    executeMessage(#takingPhoto)
    tWndObj.show()
    updateStage()
    tRect = tWndObj.getElement("cam_display").getProperty(#rect)
    pCamShotImage = image((tRect.right - tRect.left), (tRect.bottom - tRect.top), 8, #grayscale)
    pCamShotImage.copyPixels(the stage.image, pCamShotImage.rect, tRect)
    pCamShotImage.draw(pCamShotImage.rect.left, pCamShotImage.rect.top, pCamShotImage.rect.right, pCamShotImage.rect.bottom, [#color:rgb(0, 0, 0), #shapeType:#rect])
    pCamMember.image = pCamShotImage
    pCamMember.regPoint = point(0, 0)
    getThread(#room).getComponent().getBalloon().showBalloons()
    tHandVis = getThread(#room).getInterface().getContainer().getVisual()
    if tHandVis <> 0 then
      tHandVis.show()
    end if
    showWindows()
    executeMessage(#photoTaken)
    tDispElem = tWndObj.getElement("cam_display")
    tDispElem.setProperty(#buffer, pCamMember)
    tDispElem.setProperty(#visible, 1)
    tDispElem.setProperty(#blend, 100)
    tDispElem.setProperty(#color, rgb("681F10"))
    tDispElem.setProperty(#bgColor, rgb("FFCC66"))
    tDispElem.setProperty(#ink, 41)
    updateStage()
    pmode = #still
  else
    if (tSprID = "cam_release") then
      if (pmode = #still) then
        me.setCameraToLiveMode()
        pmode = #live
      end if
    else
      if (tSprID = "cam_save") then
        if (pmode = #still) and me.getComponent().getFilm() > 0 then
          tWndObj.getElement("cam_display").setProperty(#blend, 50)
          tWndObj.getElement("cam_savetxt").setProperty(#visible, 1)
          tWndObj.getElement("cam_display").setProperty(#buffer, pDisplaymem)
          me.getComponent().storePicture(pCamMember, tWndObj.getElement("photo_text").getText())
          pmode = #save
        else
          beep(1)
        end if
        if (pmode = #still) and (me.getComponent().getFilm() = 0) then
          executeMessage(#alert, [#Msg:"cam_save_nofilm"])
        end if
      else
        if (tSprID = "cam_zoom_in") then
          if (pmode = #still) then
            if pZoomLevel < 11 then
              pZoomLevel = (pZoomLevel + 1)
            end if
            me.zoom()
          else
            beep(1)
          end if
        else
          if (tSprID = "cam_zoom_out") then
            if (pmode = #still) then
              pZoomLevel = (pZoomLevel - 1)
              if pZoomLevel < 1 then
                pZoomLevel = 1
              end if
              me.zoom()
            else
              beep(1)
            end if
          end if
        end if
      end if
    end if
  end if
  me.setButtonHilites()
end

on eventProcCameraMouseUp me, tEvent, tSprID, tParam 
  if not getThread(#room).getComponent().roomExists(void()) then
    return FALSE
  end if
  tWndObj = getWindow(pWindowID)
  if (tSprID = "cam_close") then
    me.close()
    return TRUE
  end if
end

on setButtonHilites me 
  if not windowExists(pWindowID) then
    return FALSE
  end if
  if (pmode = #live) then
    me.hilite(["cam_shoot"])
    me.unhilite(["cam_release", "cam_save", "cam_zoom_in", "cam_zoom_out", "cam_txtscreen"])
  else
    if (pmode = #still) then
      if me.getComponent().getFilm() > 0 then
        me.hilite(["cam_save", "cam_zoom_in", "cam_zoom_out"])
      end if
      me.unhilite(["cam_shoot"])
      me.hilite(["cam_release", "cam_txtscreen"])
    else
      if (pmode = #save) then
        me.unhilite(["cam_shoot", "cam_release", "cam_save", "cam_zoom_in", "cam_zoom_out", "cam_txtscreen"])
      end if
    end if
  end if
end

on saveOk me 
  if not windowExists(pWindowID) then
    return FALSE
  end if
  pmode = #live
  me.setCameraToLiveMode()
  getWindow(pWindowID).getElement("cam_savetxt").setProperty(#visible, 0)
  me.setButtonHilites()
  me.updateFilm()
  return TRUE
end

on hilite me, tElements 
  tWndObj = getWindow(pWindowID)
  repeat while tElements <= undefined
    tID = getAt(undefined, tElements)
    tName = tID & "_hi"
    tWndObj.getElement(tID).setProperty(#buffer, member(getmemnum(tName)))
  end repeat
end

on unhilite me, tElements 
  tWndObj = getWindow(pWindowID)
  repeat while tElements <= undefined
    tID = getAt(undefined, tElements)
    tName = tID
    tWndObj.getElement(tID).getProperty(#buffer, member(getmemnum(tName)))
  end repeat
end

on zoom me 
  tRect = pCamShotImage.rect
  tH = (pCamShotImage.height / pZoomLevel)
  tW = (pCamShotImage.width / pZoomLevel)
  tRect.top = ((pCamShotImage.height / 2) - (tH / 2))
  tRect.bottom = (tRect.top + tH)
  tRect.left = ((pCamShotImage.width / 2) - (tW / 2))
  tRect.right = (tRect.left + tW)
  pCamMember.image.copyPixels(pCamShotImage, pCamMember.image.rect, tRect, [#bgColor:rgb(238, 238, 238)])
end

on showHelpLine me, tElemID 
  tElement = getWindow(pWindowID).getElement("cam_statusbar")
  if (tElemID = "cam_shoot") then
    tText = getText("cam_shoot.help")
  else
    if (tElemID = "cam_release") then
      tText = getText("cam_release.help")
    else
      if (tElemID = "cam_save") then
        tText = getText("cam_save.help")
      else
        if (tElemID = "cam_zoom_in") then
          tText = getText("cam_zoom_in.help")
        else
          if (tElemID = "cam_zoom_out") then
            tText = getText("cam_zoom_out.help")
          else
            if (tElemID = "cam_txtscreen") then
              tText = getText("cam_txtscreen.help")
            else
              if (tElemID = "photo_picnumber") then
                tText = getText("cam_film.help")
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  if tText <> void() then
    tElement.setText(tText)
  end if
end

on hideHelpLine me 
  getWindow(pWindowID).getElement("cam_statusbar").setText("")
end

on handItemSelect me, tdata 
  if getThread(#room).getComponent().getRoomID() <> "private" then
    me.open()
  else
    pHandItemData = tdata
    createWindow(pDialogId, "habbo_simple.window", 300, 300)
    tWndObj = getWindow(pDialogId)
    tWndObj.merge("camera_dialog.window")
    tWndObj.registerProcedure(#eventProcDialogMouseUp, me.getID(), #mouseUp)
  end if
end

on eventProcDialogMouseUp me, tEvent, tElemID, tParam 
  if (tElemID = "camera_dialog_open") then
    me.open()
    removeWindow(pDialogId)
  else
    if (tElemID = "camera_dialog_place") then
      removeWindow(pDialogId)
      if threadExists(#room) then
        getThread(#room).getInterface().getContainer().startItemPlacing(pHandItemData)
      end if
    end if
  end if
end