#!/usr/bin/osascript
-- Menampilkan jam sekarang berupa kata-kata
-- pada isi status Adium
-- Aryo Sanjaya, aryo@aryosanjaya.net

on namaJam(jam)
	if jam is greater than 12 then set jam to jam - 12
	if jam is less than 1 then set jam to 12
	set arrjam to {"satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas", "duabelas"}
	return item jam of arrjam
end namaJam

set menit to minutes of (current date)
set jam to namaJam(hours of (current date))
set nextjam to namaJam((hours of (current date)) + 1)

if menit is less than 2 then
	set sekarang to "jam " & jam & " pas"
else if menit is less than 4 then
	set sekarang to "jam " & jam & " lebih sedikit"
else if menit is less than 6 then
	set sekarang to "jam " & jam & " lebih lima"
else if menit is less than 8 then
	set sekarang to "jam " & jam & " lebih delapan"
else if menit is less than 12 then
	set sekarang to "jam " & jam & " lebih sepuluhan"
else if menit is less than 17 then
	set sekarang to "jam " & jam & " lebih seperempat"
else if menit is less than 22 then
	set sekarang to "jam " & jam & " lebih duapuluhan"
else if menit is less than 27 then
	set sekarang to "jam " & jam & " lebih dualimaan"
else if menit is less than 32 then
	set sekarang to "jam setengah " & nextjam & " pas"
else if menit is less than 37 then
	set sekarang to "jam setengah " & nextjam & " lebih limaan"
else if menit is less than 41 then
	set sekarang to "jam setengah " & nextjam & " lebih sepuluhan"
else if menit is less than 47 then
	set sekarang to "jam " & nextjam & " kurang seperempat"
else if menit is less than 52 then
	set sekarang to "jam " & nextjam & " kurang sepuluh"
else if menit is less than 58 then
	set sekarang to "hampir jam " & nextjam
else
	set sekarang to "jam " & nextjam & " pas"
end if

tell application "System Events"
	if exists process "Adium" then tell application "Adium" to set status message of every account to sekarang
end tell