MoonPhase Manila (regular and HD/Squished versions) - Page 3

ppclover2 · #21 (**permalink**) 06-27-2009, 11:02 AM

Quote:

Originally Posted by signothefish

This doesn't work for me. I did the steps exactly as described. I am using V4.3 Mortscript. Could that be the problem?

GO WOLFPACK!!!! C/O 07

dgaud007 · #22 (**permalink**) 09-18-2009, 04:55 PM

Thanks for the patch. I have it working in Mortscript 4.3b. For some reason, the new moon phase (ph) was being calculated as 2.4, instead of 24 (or > 23 = 0). I just needed to change this line:

b = Floor( jd, 1)

to

b = Floor( jd, 0 )

Is working now...

shatner · #23 (**permalink**) 12-24-2009, 05:35 PM

Hey! I used this on my TP1 for a long while and really liked it. Is there any thought on a TP2 version? i am sorry I cant offer more help in this direction other than a humble plea.

Thanks!

#24 (**permalink**) 12-27-2009, 08:14 PM

Edited for TP2 WVGA SenseUI 2.5.1921+2.5.1922

Have not fully tested but updated the script with the fix and the new manila files and cabed up to try.

assume you have mortscript already, if not install first

#25 (**permalink**) 12-28-2009, 04:30 PM

Quote:

Originally Posted by DavidMMorley

Edited for TP2 WVGA SenseUI 2.5.1921+2.5.1922

Have not fully tested but updated the script with the fix and the new manila files and cabed up to try.

assume you have mortscript already, if not install first

Well I have tested and found 3 bugs so far. Have this working now script wise but the file that has the moon in the newer versions I found was, so it must be one of the moons but not the right one. Ill figure out this last step and upload a new cab that works perfect.

#26 (**permalink**) 12-28-2009, 05:15 PM

Here is the script tested and working on Manila 2.5.1921.
Thanks to OP for the cool code, just fixed a few things and added Sense UI stop/start on run since that tends to piss off Manila.exe when you change a active file.

Code:

# moon phase TF3d image mover v1 2/6/09
# schettj/ppcgeeks edition
# you don't have to buy me a beer, it's free!
# donations via paypal? Why not: schettino@writeme.com
# current time
GetTime(hour,min,sec,day,month,year)
d=day
m=month
y=year
# current time for tomorrow's run
utime = TimeStamp() 
# expect to run from \Windows\Startup, but you never know what people do!
mort = SystemPath("ScriptExe") & "\MortScript.exe"
script = SystemPath("ScriptPath") & "\" & SystemPath("ScriptName") & SystemPath("ScriptExt")
# Set next notification runtime for myself for tomorrow, at 8 hours 0 minute
# make it tomorrow (based off utime)
utime = utime + (((8+(24-hour))*60)-min)*60
# kill any lingering notification
RemoveNotifications(mort, script)
# set notify for myself at next time
RunAt( utime, mort, script)
# standard moon phase algorithm from the web
# note should be UTC time, so phases can be off by a day or so
# we're not talking hubble telescope here, just close enough is fun!
if (m < 3) 
        y = y - 1
        m = m + 12
endif
m = m + 1
c = 365.25*y
e = 30.6*m
jd = c+e+d-694039.09
jd = jd / 29.53
b = Floor( jd, 0 )
jd = jd - b
phw = jd*24
ph = Round(phw, 0)
if (ph > 23) 
  ph = 0
endif
fname="\Windows\moon-" & ph & "_manila.x"        
RegWriteDword("HKLM","\Software\Microsoft\Today\Items\HTC Sense","Enabled","0")
RedrawToday
SetFileAttribs( "\Windows\0fed33be_manila", "readonly", FALSE)
Copy (fname, "\Windows\0fed33be_manila", 1)
RegWriteDword("HKLM","\Software\Microsoft\Today\Items\HTC Sense","Enabled","1")
RedrawToday

I will fix my .cab install file I posted yesterday later with the fix.

#27 (**permalink**) 12-28-2009, 11:34 PM

Does not look like anyone cares, but here is a install cab for working WVGA Manila 2.x.1921 - 1922 for this. Thanks again to schettj for this cool program.