property pCanvasSize, pMember, pPartList, pValid, pSync, pMainAction, pPartIndex, pAnimCounter, pEyesClosed, pSleeping, pTalking, pMoving, pWaving, pDancing, pChanges, pBuffer, pAlphaColor, pPeopleSize, pDirection, pColors, pFlipList, pLastDir, pCarrying

on construct me 
  pPartList = []
  pPartIndex = [:]
  pFlipList = [0, 1, 2, 3, 2, 1, 0, 7]
  pUpdateRect = rect(0, 0, 0, 0)
  pLocFix = point(0, 0)
  pAnimCounter = 0
  pEyesClosed = 0
  pSync = 1
  pChanges = 1
  pMainAction = "std"
  pMoving = 0
  pTalking = 0
  pCarrying = 0
  pSleeping = 0
  pDancing = 0
  pWaving = 0
  pCurrentAnim = ""
  pAlphaColor = rgb(255, 255, 255)
  pSync = 1
  pColors = [:]
  pDefShadowMem = member(0)
  return TRUE
end

on deconstruct me 
  pValid = 0
  pPartList = []
  return(removeMember(me.getID() && "Canvas"))
end

on define me, tdata 
  pValid = 1
  pClass = tdata.getAt(#class)
  pDirection = tdata.getAt(#direction).getAt(1)
  pLastDir = me.pDirection
  me.pPeopleSize = getVariable("human.size." & tdata.getAt(#type))
  if not me.pPeopleSize then
    error(me, "People size not found, using default!", #define)
    me.pPeopleSize = "h"
  end if
  me.pCanvasSize = value(getVariable("human.canvas." & me.pPeopleSize))
  if not me.pCanvasSize then
    error(me, "Canvas size not found, using default!", #define)
    me.pCanvasSize = [#std:[64, 102, 32, -10], #lay:[89, 102, 32, -8]]
  end if
  if not memberExists(me.getID() && "Canvas") then
    createMember(me.getID() && "Canvas", #bitmap)
  end if
  tSize = pCanvasSize.getAt(#std)
  pMember = member(getmemnum(me.getID() && "Canvas"))
  pMember.image = image(tSize.getAt(1), tSize.getAt(2), tSize.getAt(3))
  pMember.regPoint = point(0, (pMember.image.height + tSize.getAt(4)))
  pBuffer = pMember.image
  tPartSymbols = tdata.getAt(#parts)
  if not me.setPartLists(tdata.getAt(#figure)) then
    return(error(me, "Couldn't create part lists!", #define))
  end if
  me.arrangeParts()
  me.simulateUpdate()
  return(pMember)
end

on resetTemplateHuman me 
  pMoving = 0
  pDancing = 0
  pTalking = 0
  pCarrying = 0
  pWaving = 0
  pTrading = 0
  pAnimating = 0
  call(#reset, pPartList)
  pMainAction = "std"
  me.arrangeParts()
  pChanges = 1
end

on simulateUpdate me 
  if pValid then
    pSync = not pSync
    if pSync then
      me.prepare()
    else
      me.render()
    end if
    me.delay((1000 / the frameTempo), #simulateUpdate)
  end if
end

on refresh me, tX, tY, tH, tDirHead, tDirBody 
  pMoving = 0
  pDancing = 0
  pTalking = 0
  pCarrying = 0
  pWaving = 0
  pTrading = 0
  pCtrlType = 0
  pModState = 0
  pLocFix = point(-1, 2)
  call(#reset, pPartList)
  pMainAction = "std"
  pLocX = tX
  pLocY = tY
  pLocH = tH
  pRestingHeight = 0
  call(#defineDir, pPartList, tDirBody)
  if pMainAction <> "lay" then
    call(#defineDirMultiple, pPartList, tDirHead, ["hd", "hr", "ey", "fc"])
  end if
  pDirection = tDirBody
  me.arrangeParts()
  pChanges = 1
end

on setPartModel me, tPart, tmodel 
  if voidp(pPartIndex.getAt(tPart)) then
    return(void())
  end if
  pPartList.getAt(pPartIndex.getAt(tPart)).setModel(tmodel)
end

on setPartColor me, tPart, tColor 
  if voidp(pPartIndex.getAt(tPart)) then
    return(void())
  end if
  pPartList.getAt(pPartIndex.getAt(tPart)).setColor(tColor)
end

on getPartMember me, tPart 
  if voidp(pPartIndex.getAt(tPart)) then
    return(void())
  end if
  return(pPartList.getAt(pPartIndex.getAt(tPart)).getCurrentMember())
end

on getPartColor me, tPart 
  if voidp(pPartIndex.getAt(tPart)) then
    return(void())
  end if
  return(pPartList.getAt(pPartIndex.getAt(tPart)).getColor())
end

on getPicture me, tImg 
  if voidp(tImg) then
    tCanvas = image(64, 102, 16)
  else
    tCanvas = tImg
  end if
  call(#copyPicture, pPartList, tCanvas)
  tCanvas = me.flipImage(tCanvas)
  return(tCanvas)
end

on closeEyes me 
  if (pMainAction = "lay") then
    call(#defineActMultiple, pPartList, "ley", ["ey"])
  else
    call(#defineActMultiple, pPartList, "eyb", ["ey"])
  end if
  pEyesClosed = 1
  pChanges = 1
end

on openEyes me 
  if (pMainAction = "lay") then
    call(#defineActMultiple, pPartList, "lay", ["ey"])
  else
    call(#defineActMultiple, pPartList, "std", ["ey"])
  end if
  pEyesClosed = 0
  pChanges = 1
end

on prepare me 
  pAnimCounter = ((pAnimCounter + 1) mod 4)
  if pEyesClosed and not pSleeping then
    me.openEyes()
  else
    if (random(30) = 3) then
      me.closeEyes()
    end if
  end if
  if pTalking and random(3) > 1 then
    if (pMainAction = "lay") then
      call(#defineActMultiple, pPartList, "lsp", ["hd", "hr", "fc"])
    else
      call(#defineActMultiple, pPartList, "spk", ["hd", "hr", "fc"])
    end if
    pChanges = 1
  end if
  if pMoving then
    pChanges = 1
  end if
  if pWaving and pMainAction <> "lay" then
    call(#doHandWorkLeft, pPartList, "wav")
    pChanges = 1
  end if
  if pDancing then
    pAnimating = 1
    pChanges = 1
  end if
end

on render me 
  if not pChanges then
    return()
  end if
  pChanges = 0
  pUpdateRect = rect(0, 0, 0, 0)
  pBuffer.fill(pBuffer.rect, pAlphaColor)
  call(#update, pPartList)
end

on reDraw me 
  pBuffer.fill(pBuffer.rect, pAlphaColor)
  call(#render, pPartList)
  pMember.image.copyPixels(pBuffer, pBuffer.rect, pBuffer.rect)
end

on setPartLists me, tModels 
  tAction = pMainAction
  pPartList = []
  tPartDefinition = getVariableValue("human.parts." & pPeopleSize)
  i = 1
  repeat while i <= tPartDefinition.count
    tPartSymbol = tPartDefinition.getAt(i)
    if voidp(tModels.getAt(tPartSymbol)) then
      tModels.setAt(tPartSymbol, [:])
    end if
    if voidp(tModels.getAt(tPartSymbol).getAt("model")) then
      tModels.getAt(tPartSymbol).setAt("model", "001")
    end if
    if voidp(tModels.getAt(tPartSymbol).getAt("color")) then
      tModels.getAt(tPartSymbol).setAt("color", rgb("EEEEEE"))
    end if
    tPartObj = createObject(#temp, "Bodypart Template Class")
    if stringp(tModels.getAt(tPartSymbol).getAt("color")) then
      tColor = value("rgb(" & tModels.getAt(tPartSymbol).getAt("color") & ")")
    end if
    if tModels.getAt(tPartSymbol).getAt("color").ilk <> #color then
      tColor = rgb(tModels.getAt(tPartSymbol).getAt("color"))
    else
      tColor = tModels.getAt(tPartSymbol).getAt("color")
    end if
    if ((tColor.red + tColor.green) + tColor.blue) > (238 * 3) then
      tColor = rgb("EEEEEE")
    end if
    tPartObj.define(tPartSymbol, tModels.getAt(tPartSymbol).getAt("model"), tColor, pDirection, tAction, me)
    pPartList.add(tPartObj)
    pColors.setAt(tPartSymbol, tColor)
    i = (1 + i)
  end repeat
  pPartIndex = [:]
  i = 1
  repeat while i <= pPartList.count
    pPartIndex.setAt(pPartList.getAt(i).pPart, i)
    i = (1 + i)
  end repeat
  return TRUE
end

on arrangeParts me 
  if pPartIndex.getAt("lg") < pPartIndex.getAt("sh") then
    tIndex1 = pPartIndex.getAt("lg")
    tIndex2 = pPartIndex.getAt("sh")
  else
    tIndex1 = pPartIndex.getAt("sh")
    tIndex2 = pPartIndex.getAt("lg")
  end if
  tLG = pPartList.getAt(pPartIndex.getAt("lg"))
  tSH = pPartList.getAt(pPartIndex.getAt("sh"))
  if pMainAction <> "sit" then
    if (pMainAction = "lay") then
      if (pFlipList.getAt((pDirection + 1)) = 0) then
        pPartList.setAt(tIndex1, tSH)
        pPartList.setAt(tIndex2, tLG)
      else
        pPartList.setAt(tIndex1, tLG)
        pPartList.setAt(tIndex2, tSH)
      end if
    else
      pPartList.setAt(tIndex1, tSH)
      pPartList.setAt(tIndex2, tLG)
    end if
    tRS = pPartList.getAt(pPartIndex.getAt("rs"))
    tRH = pPartList.getAt(pPartIndex.getAt("rh"))
    tRI = pPartList.getAt(pPartIndex.getAt("ri"))
    pPartList.deleteAt(pPartIndex.getAt("rs"))
    pPartList.deleteAt(pPartIndex.getAt("rh"))
    pPartList.deleteAt(pPartIndex.getAt("ri"))
    if (tRH.pActionRh = "drk") and [0, 6].getPos(pDirection) <> 0 then
      pPartList.addAt(8, tRI)
      pPartList.addAt(9, tRH)
      pPartList.addAt(10, tRS)
    else
      if (pDirection = 7) then
        pPartList.addAt(1, tRI)
        pPartList.addAt(2, tRH)
        pPartList.addAt(3, tRS)
      else
        pPartList.append(tRI)
        pPartList.append(tRH)
        pPartList.append(tRS)
      end if
    end if
    i = 1
    repeat while i <= pPartList.count
      pPartIndex.setAt(pPartList.getAt(i).pPart, i)
      i = (1 + i)
    end repeat
    if (pLastDir = pDirection) then
      return()
    end if
    pLastDir = pDirection
    tLS = pPartList.getAt(pPartIndex.getAt("ls"))
    tLH = pPartList.getAt(pPartIndex.getAt("lh"))
    tLI = pPartList.getAt(pPartIndex.getAt("li"))
    pPartList.deleteAt(pPartIndex.getAt("ls"))
    pPartList.deleteAt(pPartIndex.getAt("lh"))
    pPartList.deleteAt(pPartIndex.getAt("li"))
    if (pMainAction = 3) then
      pPartList.addAt(8, tLI)
      pPartList.addAt(9, tLH)
      pPartList.addAt(10, tLS)
    else
      pPartList.addAt(1, tLI)
      pPartList.addAt(2, tLH)
      pPartList.addAt(3, tLS)
    end if
    i = 1
    repeat while i <= pPartList.count
      pPartIndex.setAt(pPartList.getAt(i).pPart, i)
      i = (1 + i)
    end repeat
  end if
end

on flipImage me, tImg_a 
  tImg_b = image(tImg_a.width, tImg_a.height, tImg_a.depth)
  tQuad = [point(tImg_a.width, 0), point(0, 0), point(0, tImg_a.height), point(tImg_a.width, tImg_a.height)]
  tImg_b.copyPixels(tImg_a, tQuad, tImg_a.rect)
  return(tImg_b)
end

on action_mv me, tProps 
  pMainAction = "wlk"
  pMoving = 1
  call(#defineActMultiple, pPartList, "wlk", ["bd", "lg", "lh", "rh", "ls", "rs", "sh"])
end

on action_sit me, tProps 
  call(#defineActMultiple, pPartList, "sit", ["bd", "lg", "sh"])
  pMainAction = "sit"
  me.arrangeParts()
end

on action_lay me, tProps 
  pMainAction = "lay"
  pCarrying = 0
  pLocFix = point(30, -10)
  call(#layDown, pPartList)
  if (pDirection = 0) then
    pDirection = 4
  end if
  call(#defineDir, pPartList, pDirection)
  me.arrangeParts()
end

on action_carryd me, tProps 
  pCarrying = tProps.getProp(#word, 2, tProps.count(#word))
  tCarryItm = "001"
  if variableExists("handitem.right." & pCarrying) then
    tCarryItm = getVariable("handitem.right." & pCarrying, "001")
  end if
  call(#doHandWorkRight, pPartList, "crr")
  call(#setModel, pPartList.getAt(pPartIndex.getAt("ri")), tCarryItm)
end

on action_drink me, tProps 
  pCarrying = tProps.getProp(#word, 2, tProps.count(#word))
  tCarryItm = "001"
  if variableExists("handitem.right." & pCarrying) then
    tCarryItm = getVariable("handitem.right." & pCarrying, "001")
  end if
  call(#doHandWorkRight, pPartList, "drk")
  call(#setModel, pPartList.getAt(pPartIndex.getAt("ri")), tCarryItm)
end

on action_carryf me, tProps 
  pCarrying = tProps.getProp(#word, 2)
  tCarryItm = "001"
  if variableExists("handitem.right." & pCarrying) then
    tCarryItm = getVariable("handitem.right." & pCarrying, "001")
  end if
  call(#doHandWorkRight, pPartList, "crr")
  call(#setModel, pPartList.getAt(pPartIndex.getAt("ri")), tCarryItm)
end

on action_eat me, tProps 
  pCarrying = tProps.getProp(#word, 2)
  tCarryItm = "001"
  if variableExists("handitem.right." & pCarrying) then
    tCarryItm = getVariable("handitem.right." & pCarrying, "001")
  end if
  call(#doHandWorkRight, pPartList, "drk")
  call(#setModel, pPartList.getAt(pPartIndex.getAt("ri")), tCarryItm)
end

on action_talk me, tProps 
  pTalking = 1
end

on action_gest me, tProps 
  if (pPeopleSize = "sh") then
    return()
  end if
  tList = ["ey", "fc"]
  tGesture = tProps.getProp(#word, 2)
  if (tGesture = "spr") then
    tGesture = "srp"
  end if
  if (pMainAction = "lay") then
    tGesture = "l" & tGesture.getProp(#char, 1, 2)
    call(#defineActMultiple, pPartList, tGesture, tList)
  else
    call(#defineActMultiple, pPartList, tGesture, tList)
    if (tGesture = "ohd") then
      defineAct(pPartList.getAt(pPartIndex.getAt("hd")), tGesture)
      defineAct(pPartList.getAt(pPartIndex.getAt("hr")), tGesture)
    end if
  end if
end

on action_wave me, tProps 
  pWaving = 1
end

on action_ohd me 
  call(#defineActMultiple, pPartList, "ohd", ["hd", "fc", "ey", "hr"])
  call(#doHandWorkRight, pPartList, "ohd")
end

on action_sleep me 
  pSleeping = 1
end