Skip to content

Commit 9ffea72

Browse files
bdavenportbdavenport
authored
Westminster.rsc
Script should add 7 "scripts" and one scheduled task. Combined they produce the lovely little Westminster Chime.
1 parent dd4c30d commit 9ffea72

File tree

1 file changed

+114
-0
lines changed

1 file changed

+114
-0
lines changed

‎Funny/Westminster.rsc

+114
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,114 @@
1+
/system script
2+
add name="Westminister Seq #1" owner=admin policy=ftp,reboot,read,write,policy,test,password,sniff source=\
3+
"#Westminister Sequence #1\r\
4+
\n# E-660 D-588 C-528 G-396\r\
5+
\n# EDCG\r\
6+
\n:beep length=480ms frequency=660\r\
7+
\n:delay 500ms\r\
8+
\n:beep length=480ms frequency=588\r\
9+
\n:delay 500ms\r\
10+
\n:beep length=480ms frequency=528\r\
11+
\n:delay 500ms\r\
12+
\n:beep length=480ms frequency=396"
13+
add name="Westminister Seq #2" owner=admin policy=ftp,reboot,read,write,policy,test,password,sniff source=\
14+
"#Westminister Sequence #2\r\
15+
\n# E-660 D-588 C-528 G-396\r\
16+
\n# CEDG\r\
17+
\n:beep length=480ms frequency=528\r\
18+
\n:delay 500ms\r\
19+
\n:beep length=480ms frequency=660\r\
20+
\n:delay 500ms\r\
21+
\n:beep length=480ms frequency=588\r\
22+
\n:delay 500ms\r\
23+
\n:beep length=480ms frequency=396"
24+
add name="Westminister Seq #3" owner=admin policy=ftp,reboot,read,write,policy,test,password,sniff source=\
25+
"#Westminister Sequence #3\r\
26+
\n# E-660 D-588 C-523 G-396\r\
27+
\n# CDEC\r\
28+
\n:beep length=480ms frequency=523\r\
29+
\n:delay 500ms\r\
30+
\n:beep length=480ms frequency=588\r\
31+
\n:delay 500ms\r\
32+
\n:beep length=480ms frequency=659\r\
33+
\n:delay 500ms\r\
34+
\n:beep length=480ms frequency=528"
35+
add name="Westminister Seq #4" owner=admin policy=ftp,reboot,read,write,policy,test,password,sniff source=\
36+
"#Westminister Sequence #4\r\
37+
\n# E-660 D-588 C-528 G-396\r\
38+
\n# ECDG\r\
39+
\n:beep length=480ms frequency=660\r\
40+
\n:delay 500ms\r\
41+
\n:beep length=480ms frequency=528\r\
42+
\n:delay 500ms\r\
43+
\n:beep length=480ms frequency=588\r\
44+
\n:delay 500ms\r\
45+
\n:beep length=480ms frequency=396\r\
46+
\n"
47+
add name="Westminister Seq #5" owner=admin policy=ftp,reboot,read,write,policy,test,password,sniff source=\
48+
"#Westminister Sequence #5\r\
49+
\n# E-660 D-588 C-528 G-396\r\
50+
\n# GDEC\r\
51+
\n:beep length=480ms frequency=396\r\
52+
\n:delay 500ms\r\
53+
\n:beep length=480ms frequency=588\r\
54+
\n:delay 500ms\r\
55+
\n:beep length=480ms frequency=660\r\
56+
\n:delay 500ms\r\
57+
\n:beep length=480ms frequency=528"
58+
add name="Westminister Chime" owner=admin policy=ftp,reboot,read,write,policy,test,password source="#Westminister Chime\r\
59+
\n#Chimes the number of times that the hour is.\r\
60+
\n:global h\r\
61+
\n:global ch\r\
62+
\n:if ( \$h >12 ) do= {\r\
63+
\n:set ch ( \$h - 12 )\r\
64+
\n:};\r\
65+
\n:if ( \$h < 12 ) do= {\r\
66+
\n:set ch \$h\r\
67+
\n:}\r\
68+
\n:if ( \$h=0 ) do= {\r\
69+
\n:set ch ( \$h + 12 )\r\
70+
\n:}\r\
71+
\n\r\
72+
\n:for i from=1 to=\$ch step=1 do={\r\
73+
\n:beep length=1000ms frequency=440;\r\
74+
\n:delay 2000ms\r\
75+
\n:}"
76+
add name=Westminister owner=admin policy=ftp,reboot,read,write,policy,test,password,sniff source=":global c 11:00:00\r\
77+
\n:global h 0\r\
78+
\n:global m 0\r\
79+
\n:global s 0\r\
80+
\n:set c [/system clock get time ]\r\
81+
\n:set h [ :tonum [:pick \$c 0 2 ] ]\r\
82+
\n:set m [ :tonum [:pick \$c 3 5 ] ]\r\
83+
\n:set s [ :tonum [:pick \$c 6 8 ] ]\r\
84+
\n\r\
85+
\n#Really should put a limiter in here so it does not chime all night longwhen no one is around to hear it.\r\
86+
\n\r\
87+
\n# First-quarter Sequence 1\r\
88+
\n:if ( \$m=15 ) do {/system script run \"Westminister Seq #1\"}\r\
89+
\n\r\
90+
\n# Half-hour Sequence 2,3\r\
91+
\n:if ( \$m = 30 ) do {/system script run \"Westminister Seq #2\"}\r\
92+
\n:if ( \$m = 30 ) do { :delay 2000ms }\r\
93+
\n:if ( \$m = 30 ) do {/system script run \"Westminister Seq #3\"}\r\
94+
\n\r\
95+
\n# Third-quarter Sequence 4,5,1\r\
96+
\n:if ( \$m = 45 ) do {/system script run \"Westminister Seq #4\"}\r\
97+
\n:if ( \$m = 45 ) do { :delay 2000ms }\r\
98+
\n:if ( \$m = 45 ) do {/system script run \"Westminister Seq #5\"}\r\
99+
\n:if ( \$m = 45 ) do { :delay 2000ms }\r\
100+
\n:if ( \$m = 45 ) do {/system script run \"Westminister Seq #1\"}\r\
101+
\n\r\
102+
\n# Full-hour Sequence 2,3,4,5\r\
103+
\n:if ( \$m = 0 ) do {/system script run \"Westminister Seq #2\"}\r\
104+
\n:if ( \$m = 0 ) do { :delay 2000ms }\r\
105+
\n:if ( \$m = 0 ) do {/system script run \"Westminister Seq #3\"}\r\
106+
\n:if ( \$m = 0 ) do { :delay 2000ms }\r\
107+
\n:if ( \$m = 0 ) do {/system script run \"Westminister Seq #4\"}\r\
108+
\n:if ( \$m = 0 ) do { :delay 2000ms }\r\
109+
\n:if ( \$m = 0 ) do {/system script run \"Westminister Seq #5\"}\r\
110+
\n:if ( \$m = 0 ) do { :delay 2000ms }\r\
111+
\n:if ( \$m = 0 ) do {/system script run \"Westminister Chime\"}\r\
112+
\n:if ( \$m = 0 ) do { :delay 2000ms }"
113+
/system scheduler
114+
add interval=15m name=Westminister on-event=Westminister policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive start-date=jan/01/1970 start-time=00:00:00

0 commit comments

Comments
 (0)