Nautical bell: Difference between revisions

Content added Content deleted

Inline

@@ Line 34: / Line 34: @@
 	delay 60
 end repeat</lang>
+=={{header|AutoHotkey}}==
+<lang AutoHotkey>NauticalBell(hh, mm){
+	Hr := 0, min := 30, Bells := [], pattern := []
+	Loop 8											; genrate 8 patterns
+	{
+		num := A_Index	, code := ""
+		while (num/2 >=1)
+			code .= "**  ", num := num-2
+		code .= mod(A_Index, 2) ? "*" : ""
+		pattern[A_Index] := code
+	}
+	loop, 48										; 24 hours * 2 for every half an hour
+	{
+		numBells := !mod(A_Index, 8) ? 8 : mod(A_Index, 8)	, min := 30
+		if !Mod(A_Index, 2)
+			hr++ , min := 00
+		Bells[SubStr("0" hr, -1) ":" min] := numBells
+	}
+	Bells[00 ":" 00] := Bells[24 ":" 00]	, numBells := Bells[hh ":" mm]
+	return {"bells": numBells, "pattern": Pattern[numBells]}
+}</lang>
+Example:<lang AutoHotkey>res := ""
+loop, 24
+{
+	hr := SubStr("0" A_Index -1, -1)
+	Loop 60
+	{
+		min := SubStr("0" A_Index -1, -1)
+		if (min = 0 || min = 30)
+			res .= hr ":" min "`t" NauticalBell(hr, min).bells "`t" NauticalBell(hr, min).pattern "`n"
+	}
+}
+MsgBox, 262144, , % "Time`tBells`tPattern`n" res
+return</lang>
+Outputs:<pre>Time	Bells	Pattern
+:00	8	**  **  **  **
+:30	1	*
+:00	2	**
+:30	3	**  *
+:00	4	**  **
+:30	5	**  **  *
+:00	6	**  **  **
+:30	7	**  **  **  *
+:00	8	**  **  **  **
+:30	1	*
+:00	2	**
+:30	3	**  *
+:00	4	**  **
+:30	5	**  **  *
+:00	6	**  **  **
+:30	7	**  **  **  *
+:00	8	**  **  **  **
+:30	1	*
+:00	2	**
+:30	3	**  *
+:00	4	**  **
+:30	5	**  **  *
+:00	6	**  **  **
+:30	7	**  **  **  *
+:00	8	**  **  **  **
+:30	1	*
+:00	2	**
+:30	3	**  *
+:00	4	**  **
+:30	5	**  **  *
+:00	6	**  **  **
+:30	7	**  **  **  *
+:00	8	**  **  **  **
+:30	1	*
+:00	2	**
+:30	3	**  *
+:00	4	**  **
+:30	5	**  **  *
+:00	6	**  **  **
+:30	7	**  **  **  *
+:00	8	**  **  **  **
+:30	1	*
+:00	2	**
+:30	3	**  *
+:00	4	**  **
+:30	5	**  **  *
+:00	6	**  **  **
+:30	7	**  **  **  *</pre>
 Alternatively, you could remove the forever loop and set it up to run every half hour via launchd or cron.