calendarappointmentloader.luac.lua

htc manila 2 sourcecode

-- Decompiled using luadec 0.4 by sztupy (http://winmo.sztupy.hu)
-- Command line was: -l 11;0;0;0,0,8,16; 038b9370_manila.luac 

trace("CalendarAppointmentLoader scripts")
require("class")
require("appointment_svc")
local l_0_0 = class()
CalendarAppointmentLoader = l_0_0
l_0_0 = CalendarAppointmentLoader
l_0_0.__init = function(l_1_0, l_1_1, l_1_2, l_1_3, l_1_4)
   trace("CalendarAppointmentLoader:__init")
   l_1_0.Loader = l_1_1
   l_1_0.Element = l_1_2
   l_1_0.Loader.OnComplete:connect(l_1_0.HandleLoadComplete, l_1_0)
   l_1_0.Year = l_1_3
   l_1_0.Month = l_1_4
   l_1_0.Loader:BeginLoadAppointment(l_1_3, l_1_4)
end

l_0_0 = CalendarAppointmentLoader
l_0_0.Cancel = function(l_2_0)
   if l_2_0.Loader ~= nil then
      l_2_0.Loader.OnComplete:disconnect(l_2_0.HandleLoadComplete, l_2_0)
      l_2_0.Loader:Cancel()
      l_2_0.Loader = nil
   end
end

l_0_0 = CalendarAppointmentLoader
l_0_0.HandleLoadComplete = function(l_3_0, l_3_1)
   l_3_0.Loader.OnComplete:disconnect(l_3_0.HandleLoadComplete, l_3_0)
   local l_3_2 = l_3_1:GetAppointmentOnMonth()
   if l_3_2:HasValue() then
      local l_3_3 = l_3_2:GetValue():GetLastDayOfMonth()
      trace("nLastDayOnMonth=" .. l_3_3)
      -- WARNING: pending registers. Declaring locals.
      local l_3_4 = l_3_2:GetValue():GetYear()
      local l_3_5 = l_3_2:GetValue():GetMonth()
      local l_3_6 = 0
      local l_3_7 = 0
      local l_3_8 = nil
      for i = 1, l_3_3 do
         l_3_7 = calendar:GetDayOfWeek(l_3_4, l_3_5, i)
         l_3_6 = calendar:GetWeek(l_3_4, l_3_5, i) - 1
         l_3_8 = l_3_0.Element.Tag.sprite[(l_3_6) * 7 + l_3_7]
         if l_3_2:GetValue():IsAppointmentOnDay(i) then
            l_3_8:SetTextureRef("appointment")
            l_3_8._visible = true
         else
            l_3_8._visible = false
         end
      end
       -- Warning: missing end command somewhere! Added here
   end
end