property BarDoorOpentimer

on new me, tName, tMemberPrefix, tMemberFigureType, tLocX, tLocY, tHeight, tDirection, lDimensions, spr, taltitude, pData, partColors, update 
  ancestor = new(script("FUSEMember Class"), tName, tMemberPrefix, tMemberFigureType, tLocX, tLocY, tHeight, tDirection, lDimensions, spr, taltitude, pData)
  if getaProp(me.pData, "DOOROPEN") = "TRUE" and update = 1 then
    BarDoorOpentimer = 16
  else
    BarDoorOpentimer = 0
  end if
  return(me)
end

on updateStuffdata me, tProp, tValue 
  if tValue = "TRUE" then
    BarDoorOpentimer = 16
  else
    BarDoorOpentimer = 0
  end if
end

on mouseDown me 
  userObj = sprite(getProp(gpObjects, gMyName)).getProp(#scriptInstanceList, 1)
  if the doubleClick then
    if me.getProp(#direction, 1) = 4 then
      if me.locX = userObj.locX and me.locY - userObj.locY = -1 then
        giveDrink(me)
      else
        sendFuseMsg("Move" && me.locX && me.locY + 1)
        return()
      end if
    else
      if me.getProp(#direction, 1) = 0 then
        if me.locX = userObj.locX and me.locY - userObj.locY = 1 then
          giveDrink(me)
        else
          sendFuseMsg("Move" && me.locX && me.locY - 1)
          return()
        end if
      else
        if me.getProp(#direction, 1) = 2 then
          if me.locY = userObj.locY and me.locX - userObj.locX = -1 then
            giveDrink(me)
          else
            sendFuseMsg("Move" && me.locX + 1 && me.locY)
            return()
          end if
        else
          if me.getProp(#direction, 1) = 6 then
            if me.locY = userObj.locY and me.locX - userObj.locX = 1 then
              giveDrink(me)
            else
              sendFuseMsg("Move" && me.locX - 1 && me.locY)
            end if
          end if
        end if
      end if
    end if
    return()
  end if
  if listp(gpUiButtons) and the movieName contains "private" then
    gChosenStuffId = me.id
    if not voidp(gChosenStuffSprite) then
      sendSprite(gChosenStuffSprite, #unhilite)
    end if
    gChosenStuffSprite = me.spriteNum
    gChosenStuffType = #stuff
    setInfoTexts(me)
    myUserObj = sprite(getaProp(gpObjects, gMyName)).getProp(#scriptInstanceList, 1)
    if myUserObj.controller = 1 then
      hilite(me)
      if the optionDown then
        moveStuff(hiliter, gChosenStuffSprite)
      end if
    end if
  end if
end

on giveDrink me 
  sendFuseMsg("SETSTUFFDATA /" & me.id & "/" & "DOOROPEN" & "/" & "TRUE")
  put("CarryDrink" && getDrinkname(me))
  sendFuseMsg("LOOKTO" && me.locX && me.locY)
  sendFuseMsg("CarryDrink" && getDrinkname(me))
end

on getDrinkname me 
  r = abs(random(5))
  if r = 0 then
    return("green_tea")
  else
    if r = 1 then
      return("herbal_tea")
    else
      if r = 2 then
        return("ice_tea")
      else
        if r = 3 then
          return("jasmine_tea")
        else
          if r = 4 then
            return("plain_old_tea")
          end if
        end if
      end if
    end if
  end if
  return("lemon_tea")
end

on exitFrame me 
  if BarDoorOpentimer <> 0 then
    mNamer = me.getPropRef(#lSprites, 1).member.name
    newMNamer = mNamer.char[1..mNamer.length - 1] & 1
    me.getPropRef(#lSprites, 1).castNum = abs(getmemnum(newMNamer))
    BarDoorOpentimer = BarDoorOpentimer - 1
    if BarDoorOpentimer = 0 then
      mNamer = me.getPropRef(#lSprites, 1).member.name
      newMNamer = mNamer.char[1..mNamer.length - 1] & 0
      me.getPropRef(#lSprites, 1).castNum = getmemnum(newMNamer)
    end if
  end if
end