property pAnimCounter, pAnimList, pCurrentFrm

on construct me 
  pAnimCounter = 0
  pCurrentFrm = 1
  pAnimList = [1, 2, 3, 4, 5, 6, 7]
  initThread("hubu.index")
  return(receiveUpdate(me.getID()))
end

on deconstruct me 
  removeUpdate(me.getID())
  closeThread(#hubu)
  return TRUE
end

on prepare me 
  tRoomVis = getThread(#room).getInterface().getRoomVisualizer()
  repeat while ["bus", "hubu_kiosk_1", "hubu_kiosk_2", "hubu_kiosk_3", "hubu_kiosk_4", "hubu_kiosk_5"] <= undefined
    tid = getAt(undefined, undefined)
    tsprite = tRoomVis.getSprById(tid)
    registerProcedure(tsprite, #parkAEventProc, me.getID(), #mouseDown)
  end repeat
end

on showprogram me, tMsg 
  if voidp(tMsg) then
    return FALSE
  end if
  tDst = tMsg.getAt(#show_dest)
  tCmd = tMsg.getAt(#show_command)
  tPar = tMsg.getAt(#show_params)
  if tDst contains "bus" then
    me.busDoor(tDst, tCmd)
  end if
end

on busDoor me, tid, tCommand 
  if (tCommand = "open") then
    tMem = member(getmemnum("park_bussioviopen"))
  else
    if (tCommand = "close") then
      tMem = member(getmemnum("park_bussi_ovi"))
    end if
  end if
  tRoomVis = getThread(#room).getInterface().getRoomVisualizer()
  if (tRoomVis = 0) then
    return FALSE
  end if
  tRoomVis.getSprById(tid).setMember(tMem)
end

on parkAEventProc me, tEvent, tSprID, tParm 
  tConnection = getThread(#room).getComponent().getRoomConnection()
  if (tConnection = 0) then
    return FALSE
  end if
  if (tSprID = "bus") then
    tConnection.send("TRYBUS")
  else
    if tSprID contains "hubu_kiosk" then
      if (tSprID = "hubu_kiosk_1") then
        tKioskLoc = "12 20"
      else
        if (tSprID = "hubu_kiosk_2") then
          tKioskLoc = "12 21"
        else
          if (tSprID = "hubu_kiosk_3") then
            tKioskLoc = "12 22"
          else
            if (tSprID = "hubu_kiosk_4") then
              tKioskLoc = "12 23"
            else
              if (tSprID = "hubu_kiosk_5") then
                tKioskLoc = "12 24"
              end if
            end if
          end if
        end if
      end if
      dumpVariableField("hubu.http.links")
      me.ChangeWindowView("hubukiosk", "hubu_kiosk_1.window")
      tImg = member(getmemnum("hubu_kiosk_tab1_cont")).image
      getWindow("hubukiosk").getElement("hubu_kiosk_text").feedImage(tImg)
      tConnection.send("MOVE", tKioskLoc)
    end if
  end if
end

on ChangeWindowView me, tWindowTitle, tWindowName, tX, tY 
  createWindow(tWindowTitle, tWindowName, void(), void(), #modal)
  tWndObj = getWindow(tWindowTitle)
  tWndObj.center()
  tWndObj.registerClient(me.getID())
  tWndObj.registerProcedure(#hubuEventProc, me.getID(), #mouseUp)
  tWndObj.registerProcedure(#hubuEventProc, me.getID(), #keyDown)
end

on hubuEventProc me, tEvent, tSprID, tParm 
  if tSprID contains "hubukiosk_navibutton" then
    tWindow = "hubu_kiosk_" & tSprID.getProp(#char, tSprID.count(#char)) & ".window"
    me.ChangeWindowView("hubukiosk", tWindow)
    tImg = member(getmemnum("hubu_kiosk_tab" & tSprID.getProp(#char, tSprID.count(#char)) & "_cont")).image
    getWindow("hubukiosk").getElement("hubu_kiosk_text").feedImage(tImg)
  else
    if tSprID contains "close" then
      if windowExists("hubukiosk") then
        removeWindow("hubukiosk")
      end if
    else
      if tSprID contains "hubukiosk_txtlink" then
        tTemp = getVariableValue("hubu_t" & tSprID.getProp(#char, (length(tSprID) - 2), length(tSprID)))
        if not listp(tTemp) then
          return(error(me, "Missing link:" && "hubu_t" & tSprID.getProp(#char, (length(tSprID) - 2), length(tSprID)), #hubuEventProc))
        end if
        tURL = tTemp.getAt(1)
        tAdId = tTemp.getAt(2)
        openNetPage(tURL)
        if connectionExists(getVariable("connection.info.id")) then
          getConnection(getVariable("connection.info.id")).send("ADVIEW", tAdId)
          getConnection(getVariable("connection.info.id")).send("ADCLICK", tAdId)
        end if
      end if
    end if
  end if
end

on update me 
  if pAnimCounter > 2 then
    tNextFrm = pAnimList.getAt(random(pAnimList.count))
    pAnimList.deleteOne(tNextFrm)
    pAnimList.add(pCurrentFrm)
    pCurrentFrm = tNextFrm
    tMem = member(getmemnum("park_fountain" & pCurrentFrm))
    tRoomVis = getThread(#room).getInterface().getRoomVisualizer()
    if not tRoomVis then
      return FALSE
    end if
    tRoomVis.getSprById("fountain").setMember(tMem)
    pAnimCounter = 0
  end if
  pAnimCounter = (pAnimCounter + 1)
end