From 0b10a2ccb1260495b2b128ecdb8f14a40ad01a73 Mon Sep 17 00:00:00 2001
From: AardCrowley <12467582+AardCrowley@users.noreply.github.com>
Date: Sun, 17 Feb 2019 15:20:32 -0500
Subject: [PATCH] Create AardClock2.0_Beta

Strictly beta at this moment - a number of bugs to be fixed.
---
 AardClock2.0_Beta | 419 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 419 insertions(+)
 create mode 100644 AardClock2.0_Beta

diff --git a/AardClock2.0_Beta b/AardClock2.0_Beta
new file mode 100644
index 0000000..ff38097
--- /dev/null
+++ b/AardClock2.0_Beta
@@ -0,0 +1,419 @@
+<?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>