AardCrowley-Aardwolf-Scripts/AardClock2.0_Beta

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Tuesday, May 15, 2018, 11:45 AM -->
<!-- MuClient version 5.06-pre -->

<!-- Plugin "Aardwolf_Clock" generated by Plugin Wizard -->

<muclient>
<plugin
   name="Aardwolf_Clock"
   author="Crowley"
   id="28a36788fa20aa062e760ee2"
   language="Lua"
   purpose="Displays a realtime clock based on Aardwolf game time"
   save_state="y"
   date_written="2018-05-15 11:43:22"
   requires="4.90"
   version="1.0"
   >

</plugin>

<!--  Triggers  -->

<triggers>
  <trigger
   enabled="n"
   match="^\s+\*\s+It is ((?:\d+|Noon|Midnight))((?:p|a))?m? on the (\d+)(?:rd|th|nd|st) day of the Season of (?:the )?(\w+).*$"
   script="getTime"
   regexp="y"
   sequence="100"
   omit_from_output="n"
   name="GetTime"
  >
  </trigger>
</triggers>

<!--  Timers  -->

<timers>
  <timer script="onTimer" second="0.25" offset_second="0.00" name="clockTimer" enabled="y" >

  </timer>
</timers>

<!--  Script  -->


<script>
<![CDATA[
require "mw_theme_base"
  require 'movewindow'

  background_colour = Theme.PRIMARY_BODY

  clock_seasons = {
    Sun =       {138, 3, 19, 1, "Light"},
    Scourge =   {168, 9, 18, 2, "Disease"},
    River =     {138, 7, 18, 3, "Water"},
    Song =      {150, 6, 19, 4, "Sonic"},
    Energy =    {148, 6, 20, 5, "Energy"},
    Nature =    {140, 5, 19, 6, "Earth"},
    Snake =     {142, 5, 20, 7, "Poison"},
    Sword =     {140, 7, 18, 8, "Slash"},
    Freeze =    {148, 9, 19, 9, "Cold"},
    Thought =   {148, 8, 20, 10, "Mental"},
    Darkness =  {134, 10, 18, 11, "Shadow"},
    Corrosion = {136, 8, 20, 12, "Acid"},
    Dagger =    {120, 9, 18, 13, "Pierce"},
    Storm =     {131, 8, 19, 14, "Electric"},
    Piety =     {143, 7, 18, 15, "Holy"},
    Suffering = {135, 6, 19, 16, "Negative"},
    Burning =   {144, 7, 20, 17, "Fire"},
    Tornado =   {142, 7, 21, 18, "Air"},
    Stone =     {120, 7, 21, 19, "Bash"},
    Magi =      {138, 6, 19, 20, "Magic"},
  }

  clock_season_order = {"Sun", "Scourge", "River", "Song", "Energy", "Nature", "Snake", "Sword", "Freeze", "Thought", "Darkness", "Corrosion", "Dagger", "Storm", "Piety", "Suffering", "Burning", "Tornado", "Stone", "Magi"}
  clock_current = {Season = "Sun", day = 1, order = 1}

  local win = "AardClock_" .. GetPluginID()
  local font = "f"

  windowinfo = movewindow.install(win, 7, miniwin.create_absolute_location, true, nil, {mouseup = MoveMouseUp, mousedown = MoveMouseDown})

  checked_time = false
  local footer_text = {}

  WindowCreate(win, 0, 0, 0, 0, 1, 0, 0)
  WindowFont(win, font, "Monoid", 10, true)
  local font_height = WindowFontInfo(win, font, 1)
  local font_width = WindowTextWidth(win, font, " ", 1)

  window_width = (20 * font_width) + 11
  local cx = math.floor((window_width-5)/2) + 1
  local cy = cx + font_height
  canRedraw = true

  bgDay           = 'khaki'
  bgNight         = 'navy'
  textDay         = 'black'
  textNight       = 'white'
  hourTime        = 12
  bgColour        = 'khaki'
  textColour      = 'black'
  handDay         = 'black'
  handNight       = 'yellow'
  handColour      = 'black'

  function round(v)
      local r = 0
      if type(v) == 'number' then
          i, f = math.modf(v)
          if f >0.5 then
              r = i + 1
          else
              r = i
          end
      end
      return r
  end

  function findPos(t)
      local spt = 12.0
      local r = 62
      local offset = 0

      if t > 6 then
          offset = font_width
      elseif t<= 6 then
          offset = font_width/2
      end

      local a = 2 * math.pi * (spt-t) / spt
      local diff = 0.9 -- default 0.9

      local s = math.sin(a)
      local c = math.cos(a)

      local x = 1 + round(cx - diff * r * s)
      local y = 10 + round(cy - diff * r * c)

      return {posx = x - offset, posy = y}
  end

  function drawHand(t, r, subset)
      local y9, x12, y3, x6 = findPos(9), findPos(12), findPos(3), findPos(6)
      local startx, starty, endx, endy = x12.posx + (font_width)/2, y9.posy + (font_height/2), x6.posx + font_width/2, y3.posy + font_height/2
      local tcx = (startx + endx)/2 -- + startx
      local tcy = (starty + endy)/2 -- + starty
      local spt = subset
      local a = 2 * math.pi * (spt-t)/ spt
      local s = math.sin(a)
      local c = math.cos(a)

      local x1 = 1 + round(tcx + 0.1 * r * s)
      local y1 = 1 + round(tcy + 0.1 * r * c)
      --local x1 = cx
      --local y1 = cy
      local x2 = 1 + round(tcx - 0.9 * r * s)
      local y2 = 1 + round(tcy - 0.9 * r * c)

      WindowLine(win, x1, y1, x2, y2, ColourNameToRGB(handColour), miniwin.pen_solid + miniwin.pen_join_miter + miniwin.pen_endcap_round, 2)
  end

  function circleDraw(x, y, r)
      local y9, x12, y3, x6 = findPos(9), findPos(12), findPos(3), findPos(6)
      local startx, starty, endx, endy = x12.posx + (font_width)/2, y9.posy + (font_height/2), x6.posx + font_width/2, y3.posy + font_height/2
      local tcx = (startx + endx)/2 -- + startx
      local tcy = (starty + endy)/2 -- + starty
      local left, top, right, bottom = tcx - r, tcy - r, tcx + r, tcy + r
    
      return {l = left, t = top, r = right, b = bottom}
  end

  function drawFace()
      local clock_numbers = {}
      local startx, endy, circle_left, circle_top, circle_right, circle_bottom = 0, 0, 0, 0, 0, 0
      for i = 1,12 do
          table.insert(clock_numbers, {text = i, pos = findPos(i)})
          if i == 6 then
              endy = clock_numbers[6].pos.posy
          end
          if i == 12 then
              starty = clock_numbers[12].pos.posy
          end
      end

      local window_height = font_height + 5 + endy + starty + (font_height * (#footer_text + 2)) -- font_height * 10

      WindowCreate(win, windowinfo.window_left, windowinfo.window_top, window_width, window_height, windowinfo.window_mode, windowinfo.window_flags + miniwin.create_keep_hotspots, ColourNameToRGB(Theme.SECONDARY_BODY))

      WindowLoadImage(win, "background", GetInfo(66) .. "/worlds/plugins/images/" .. bgImage .. ".png")
      WindowDrawImage(win, "background", 0, 0, WindowInfo(win, 3), WindowInfo(win, 4), miniwin.image_stretch)

      local x = 5
      local y = clock_numbers[6].pos.posy + font_height * 2

      WindowText(win, font, seasonEnd, center(seasonEnd), font_height/2, 0, 0, ColourNameToRGB(textColour))

      local sunr = clock_seasons[clock_current.Season][2] .. "am"
      local suns = (tonumber(clock_seasons[clock_current.Season][3]) - 12) .. "pm"

      WindowText(win, font, sunr, x, font_height*1.5, 0, 0, ColourNameToRGB(textColour))
    
      local cdiml, cdimt = font_width, font_height*2.5
      local cdimr, cdimb = cdiml + font_width*2, cdimt + (font_width*2)

      WindowCircleOp(win, 1, cdiml, cdimt, cdimr, cdimb, ColourNameToRGB("yellow"), 2, 1, ColourNameToRGB("yellow"), 0)

      cdiml = (WindowInfo(win, 3) - 5) - font_width*3
      cdimr = cdiml + font_width*2

      WindowText(win, font, suns, ((WindowInfo(win, 3) -5) - font_width*4), font_height*1.5, 0, 0, ColourNameToRGB(textColour))
    
      WindowCircleOp(win, 1, cdiml, cdimt, cdimr, cdimb, ColourNameToRGB("orangered"), 2, 1, ColourNameToRGB("orangered"), 0)
    
      sqdim = circleDraw(cx, cy, 68)

      WindowCircleOp(win, 1, sqdim.l, sqdim.t, sqdim.r, sqdim.b, ColourNameToRGB(handColour), 0, 1, 0, 1)
    
      sqdim = circleDraw(cx, cy, 70)

      WindowCircleOp(win, 1, sqdim.l, sqdim.t, sqdim.r, sqdim.b, ColourNameToRGB(handColour), 0, 1, 0, 1)

      sqdim = circleDraw(cx, cy, 71)

      WindowCircleOp(win, 1, sqdim.l, sqdim.t, sqdim.r, sqdim.b, ColourNameToRGB(handColour), 0, 1, 0, 1)

      sqdim = circleDraw(cx, cy, 72)

      WindowCircleOp(win, 1, sqdim.l, sqdim.t, sqdim.r, sqdim.b, ColourNameToRGB(handColour), 0, 1, 0, 1)    

      for _,v in ipairs(clock_numbers) do
          WindowText(win, font, v.text, v.pos.posx, v.pos.posy, 0, 0, ColourNameToRGB(textColour))

      end

      WindowText(win, font, dTime, center(dTime), y, 0, 0, ColourNameToRGB(textColour))
      y = y + font_height
      WindowText(win, font, string.format("[ Day %d of %d ]", footer_text.Day, footer_text.Cycle), center(string.format("[ Day %d of %d ]", footer_text.Day, footer_text.Cycle)), y, 0, 0, ColourNameToRGB(textColour))
      y = y + font_height
      WindowText(win, font, string.format("Season of %s", footer_text.Season), center(string.format("Season of %s", footer_text.Season)), y, 0, 0, ColourNameToRGB(textColour))
      y = y + font_height
      WindowText(win, font, string.format("[ %s ]", footer_text.DamType), center(string.format("[ %s ]", footer_text.DamType)), y, 0, 0, ColourNameToRGB(textColour))


      movewindow.add_drag_handler (win, 0, 0, 0, window_height)
      WindowRectOp(win, 4, 1, 1, WindowInfo(win, 3)-1, WindowInfo(win, 4)-1, Theme.PRIMARY_BODY, Theme.SECONDARY_BODY) -- 9, 15 + 0x1000 + 0x4000)
      WindowSetZOrder(win, 50)
      WindowShow(win, true)

  end

  function center(t)
      local twid = WindowTextWidth(win, font, t)
      local cdiff = window_width - twid

      return cdiff/2
  end

  function OnPluginBroadcast (msg, id, name, text)
      if (id == '3e7dedbe37e44942dd46d264') then
          if (text == 'comm.tick') then
              if checked_time then
                  if hourTime == 12 then
                      hourTime = 1
                  else
                      hourTime = hourTime + 1
                  end

                  if rTime == 23 then
                      rTime = 0
                      updateDay()
                  else
                      rTime = rTime + 1
                  end

                  if rTime >= 12 then
                      dTime = hourTime .. "pm"
                  else
                      dTime = hourTime .. "am"
                  end
                  checkColours()
                  ResetTimer("clockTimer")
                  last_tick = os.clock()
                  onTimer()
              else
                  EnableTrigger("GetTime")
                  Send("time")
              end
          end
      end
  end

  function OnPluginConnect()
      checked_time = false
  end

  function checkColours()
      local sunrise, sunset = clock_seasons[clock_current.Season][2], clock_seasons[clock_current.Season][3]

      if rTime >= sunrise and rTime < sunset then
          bgColour = bgDay
          textColour = textDay
          handColour = handDay
          bgImage = "cloud"
      elseif rTime >= sunset or rTime < sunrise then
          bgColour = bgNight
          textColour = textNight
          handColour = handNight
          sunsetColour = textColour
          bgImage = "darkstone"
      end
  end

  function getTime(name, line, args)
      clock_current = {Season = args[4], day = tonumber(args[3]), order = clock_seasons[args[4]][4]}

      footer_text = {Day = tonumber(args[3]), Season = args[4], Cycle = clock_seasons[args[4]][1], DamType = clock_seasons[args[4]][5]}


      if args[1] == "Noon" then
          hourTime = 12
          rTime = 12
      elseif args[1] == "Midnight" then
          hourTime = 12
          rTime = 0
      else
          hourTime = tonumber(args[1])
          if args[2] == "a" then
              rTime = tonumber(args[1])
              dTime = hourTime .. "am"
          else
              rTime = tonumber(args[1]) + 12
              dTime = hourTime .. "pm"
          end
      end

      checkColours()
      updateTime()

      checked_time = true
      EnableTrigger("GetTime", false)
  end

  function updateTime()
      seasonEnd = "Season ends: "
      local days, hours, cday = clock_seasons[clock_current.Season][1], rTime, clock_current.day

      local days_left = days - cday
      local days_mins_left = (days_left-1) * 12
      local day_mins_left = 24 - (rTime * 0.5)

      local mins_left = days_mins_left + day_mins_left

      local rH, rM = math.floor(mins_left/60), math.floor(mins_left%60)

      seasonEnd = seasonEnd .. rH .. "h " .. rM .. "m"
  end

  function onTimer()
      if canRedraw then
          if checked_time then
              last_tick = last_tick or os.clock()
              local s = os.clock() - last_tick
              updateTime()
              drawFace()
              drawHand(math.min(30, s), 60, 30)
              hourHandTime = hourTime + s/30
              drawHand(hourHandTime, 45, 12)
              Redraw()
          end
      end
  end

  function updateDay()
      if clock_current.day == clock_seasons[clock_current.Season][1] then
          if clock_current.order == #clock_season_order then
              clock_current.order = 1
              clock_current.Season = "Sun"
              clock_current.day = 1
          else
              clock_current.order = clock_current.order + 1
              clock_current.Season = clock_season_order[clock_current.order]
              clock_current.day = 1
          end
      else
          clock_current.day = clock_current.day + 1
      end

      footer_text = {Day = clock_current.day, Cycle = clock_seasons[clock_current.Season][1], Season = clock_current.Season, DamType = clock_seasons[clock_current.Season][5]}

  end

  function OnPluginDisable()
      WindowDelete(win)
  end

  function OnPluginSaveState()
      movewindow.save_state(win)
  end

  function MoveMouseDown()
      canRedraw = false
      print("Mousedown!")
  end

  function MoveMouseUp()
      canRedraw = true
      print("Mouseup!")
  end

]]>
</script>


</muclient>