###################################################################### # Adzan By JoJo # Modifikasi otomatis oleh dono - irc.ayochat.or.id # Version 1.0.2 # Initial release: 20 November 2009 # Modifikasi oleh dono: 20 April 2014 # last update 08 May 2016 ###################################################################### # Q: Bagaimana ganti daerah default ? # A: Cari cetak 308 "Jakarta Pusat" "" gantilah sesuai daerah yang diinginkan # Q: Trus apalagi yang harus di update dan supaya tcl ini jalan ? # A: Sebut nama dono 2x lalu wajib memakai http.tcl dan set lah `multichan-nya' ###################################################################### # Update 1.0.2 # Tidak berpatokan pada server tertentu, tapi pada jam pada mesin server menjalankan eggdrop ###################################################################### ###################################################################### package require http #timer 5 runningoi proc runningoi {} { set shelltime_setting(format) "%A %B %d %Y -- %H:%M:%S" set multichan "#jakarta #indonesia #bawel #gembels" set sedangrunning "true" set bedawaktuserver "5" set sedangrunning "true" set kodedaerah "Jakarta Pusat" set namadaerah "Jakarta Pusat" set daerah "308" cetak $daerah "$kodedaerah" "" pub:pengecekan percetakan } set kodedaerah "Jakarta Pusat" set namadaerah "Jakarta Pusat" set daerah "308" #bind pub o|m !adzanstart pub:adzan #enable jika diperlukan, tapi gak ah, kamu ndak perlu ini, serba otomatis bind pub - !adzan pub:sholat #bind pub - !adzanstatus pub:adzanstatus bind time - "* * * * *" sholat set shelltime_setting(format) "%A %B %d %Y -- %H:%M:%S" set multichan "#jakarta #indonesia #bawel #gembels" set sedangrunning "true" set bedawaktuserver "5" #artinya +5, saat ini masih tidak bisa -1 atau - lainnya set sedangrunning "true" # ganti daerah yang diinginkan proc percetakan {} { global kodedaerah daerah cetak $daerah "$kodedaerah" "" } proc sholat {mins hours days months years} { pub:pengecekan percetakan } proc otomatis {} { pub:pengecekan percetakan } proc pub:jam {nick uhost hand chan text} { setwaktu } proc pub:sholat {nick uhost hand chan text} { global daerah kodedaerah set daerah "" if {$text == ""} { puthelp "NOTICE $nick :Gunakan: !adzan batam" return 0 } set namanih [string tolower $text] switch -- $namanih { "ambarawa" { set daerah "1" set namadaerah "Ambarawa" } "ambon" { set daerah "2" set namadaerah "Ambon" } "amlapura" { set daerah "3" set namadaerah "Amlapura" } "amuntai" { set daerah "4" set namadaerah "Amuntai" } "argamakmur" { set daerah "5" set namadaerah "Argamakmur" } "atambua" { set daerah "6" set namadaerah "Atambua" } "babo" { set daerah "7" set namadaerah "Babo" } "bagan siapiapi" { set daerah "8" set namadaerah "Bagan Siapiapi" } "bajawa" { set daerah "9" set namadaerah "Bajawa" } "balige" { set daerah "10" set namadaerah "Balige" } "balikpapan" { set daerah "11" set namadaerah "Balikpapan" } "banda aceh" { set daerah "12" set namadaerah "Banda Aceh" } "bandarlampung" { set daerah "13" set namadaerah "Bandarlampung" } "bandung" { set daerah "14" set namadaerah "Bandung" } "bangkalan" { set daerah "15" set namadaerah "Bangkalan" } "bangkinang" { set daerah "16" set namadaerah "Bangkinang" } "bangko" { set daerah "17" set namadaerah "Bangko" } "bangli" { set daerah "18" set namadaerah "Bangli" } "banjar" { set daerah "19" set namadaerah "Banjar" } "banjar baru" { set daerah "20" set namadaerah "Banjar Baru" } "banjarmasin" { set daerah "21" set namadaerah "Banjarmasin" } "banjarnegara" { set daerah "22" set namadaerah "Banjarnegara" } "bantaeng" { set daerah "23" set namadaerah "Bantaeng" } "banten" { set daerah "24" set namadaerah "Banten" } "bantul" { set daerah "25" set namadaerah "Bantul" } "banyuwangi" { set daerah "26" set namadaerah "Banyuwangi" } "barabai" { set daerah "27" set namadaerah "Barabai" } "barito" { set daerah "28" set namadaerah "Barito" } "barru" { set daerah "29" set namadaerah "Barru" } "batam" { set daerah "30" set namadaerah "Batam" } "batang" { set daerah "31" set namadaerah "Batang" } "baturaja" { set daerah "33" set namadaerah "Baturaja" } "batusangkar" { set daerah "34" set namadaerah "Batusangkar" } "baubau" { set daerah "35" set namadaerah "Baubau" } "bekasi" { set daerah "36" set namadaerah "Bekasi" } "bengkalis" { set daerah "37" set namadaerah "Bengkalis" } "bengkulu" { set daerah "38" set namadaerah "Bengkulu" } "benteng" { set daerah "39" set namadaerah "Benteng" } "biak" { set daerah "40" set namadaerah "Biak" } "bima" { set daerah "41" set namadaerah "Bima" } "binjai" { set daerah "42" set namadaerah "Binjai" } "bireuen" { set daerah "43" set namadaerah "Bireuen" } "bitung" { set daerah "44" set namadaerah "Bitung" } "blitar" { set daerah "45" set namadaerah "Blitar" } "blora" { set daerah "46" set namadaerah "Blora" } "bogor" { set daerah "47" set namadaerah "Bogor" } "bojonegoro" { set daerah "48" set namadaerah "Bojonegoro" } "bondowoso" { set daerah "49" set namadaerah "Bondowoso" } "bontang" { set daerah "50" set namadaerah "Bontang" } "boyolali" { set daerah "51" set namadaerah "Boyolali" } "brebes" { set daerah "52" set namadaerah "Brebes" } "bukit tinggi" { set daerah "53" set namadaerah "Bukit Tinggi" } "bulukumba" { set daerah "54" set namadaerah "Bulukumba" } "buntok" { set daerah "55" set namadaerah "Buntok" } "cepu" { set daerah "56" set namadaerah "Cepu" } "ciamis" { set daerah "57" set namadaerah "Ciamis" } "cianjur" { set daerah "58" set namadaerah "Cianjur" } "cibinong" { set daerah "59" set namadaerah "Cibinong" } "cilacap" { set daerah "60" set namadaerah "Cilacap" } "cilegon" { set daerah "61" set namadaerah "Cilegon" } "cimahi" { set daerah "62" set namadaerah "Cimahi" } "cirebon" { set daerah "63" set namadaerah "Cirebon" } "curup" { set daerah "64" set namadaerah "Curup" } "demak" { set daerah "65" set namadaerah "Demak" } "denpasar" { set daerah "66" set namadaerah "Denpasar" } "depok" { set daerah "67" set namadaerah "Depok" } "dili" { set daerah "68" set namadaerah "Dili" } "dompu" { set daerah "69" set namadaerah "Dompu" } "donggala" { set daerah "70" set namadaerah "Donggala" } "dumai" { set daerah "71" set namadaerah "Dumai" } "ende" { set daerah "72" set namadaerah "Ende" } "enggano" { set daerah "73" set namadaerah "Enggano" } "enrekang" { set daerah "74" set namadaerah "Enrekang" } "fakfak" { set daerah "75" set namadaerah "Fakfak" } "garut" { set daerah "76" set namadaerah "Garut" } "gianyar" { set daerah "77" set namadaerah "Gianyar" } "gombong" { set daerah "78" set namadaerah "Gombong" } "gorontalo" { set daerah "79" set namadaerah "Gorontalo" } "gresik" { set daerah "80" set namadaerah "Gresik" } "gunung sitoli" { set daerah "81" set namadaerah "Gunung Sitoli" } "indramayu" { set daerah "82" set namadaerah "Indramayu" } "jakarta barat" { set daerah "309" set namadaerah "Jakarta Barat" } "jakarta selatan" { set daerah "310" set namadaerah "Jakarta Selatan" } "jakarta timur" { set daerah "311" set namadaerah "Jakarta Timur" } "jakarta utara" { set daerah "312" set namadaerah "Jakarta Utara" } "jambi" { set daerah "83" set namadaerah "Jambi" } "jayapura" { set daerah "84" set namadaerah "Jayapura" } "jember" { set daerah "85" set namadaerah "Jember" } "jeneponto" { set daerah "86" set namadaerah "Jeneponto" } "jepara" { set daerah "87" set namadaerah "Jepara" } "jombang" { set daerah "88" set namadaerah "Jombang" } "kabanjahe" { set daerah "89" set namadaerah "Kabanjahe" } "kalabahi" { set daerah "90" set namadaerah "Kalabahi" } "kalianda" { set daerah "91" set namadaerah "Kalianda" } "kandangan" { set daerah "92" set namadaerah "Kandangan" } "karanganyar" { set daerah "93" set namadaerah "Karanganyar" } "karawang" { set daerah "94" set namadaerah "Karawang" } "kasungan" { set daerah "95" set namadaerah "Kasungan" } "kayuagung" { set daerah "96" set namadaerah "Kayuagung" } "kebumen" { set daerah "97" set namadaerah "Kebumen" } "kediri" { set daerah "98" set namadaerah "Kediri" } "kefamenanu" { set daerah "99" set namadaerah "Kefamenanu" } "kendal" { set daerah "100" set namadaerah "Kendal" } "kendari" { set daerah "101" set namadaerah "Kendari" } "kertosono" { set daerah "102" set namadaerah "Kertosono" } "ketapang" { set daerah "103" set namadaerah "Ketapang" } "kisaran" { set daerah "104" set namadaerah "Kisaran" } "klaten" { set daerah "105" set namadaerah "Klaten" } "kolaka" { set daerah "1" set namadaerah "Kolaka" } "kota baru pulau laut" { set daerah "107" set namadaerah "Kota Baru Pulau Laut" } "kota bumi" { set daerah "108" set namadaerah "Kota Bumi" } "kota jantho" { set daerah "109" set namadaerah "Kota Jantho" } "kotamobagu" { set daerah "110" set namadaerah "Kotamobagu" } "kuala kapuas" { set daerah "111" set namadaerah "Kuala Kapuas" } "kuala kurun" { set daerah "112" set namadaerah "Kuala Kurun" } "kuala pembuang" { set daerah "113" set namadaerah "Kuala Pembuang" } "kuala tungkal" { set daerah "114" set namadaerah "Kuala Tungkal" } "kudus" { set daerah "115" set namadaerah "Kudus" } "kuningan" { set daerah "116" set namadaerah "Kuningan" } "kupang" { set daerah "117" set namadaerah "Kupang" } "kutacane" { set daerah "118" set namadaerah "Kutacane" } "kutoarjo" { set daerah "119" set namadaerah "Kutoarjo" } "labuhan" { set daerah "120" set namadaerah "Labuhan" } "lahat" { set daerah "121" set namadaerah "Lahat" } "lamongan" { set daerah "122" set namadaerah "Lamongan" } "langsa" { set daerah "123" set namadaerah "Langsa" } "larantuka" { set daerah "124" set namadaerah "Larantuka" } "lawang" { set daerah "125" set namadaerah "Lawang" } "lhoseumawe" { set daerah "126" set namadaerah "Lhoseumawe" } "limboto" { set daerah "127" set namadaerah "Limboto" } "lubuk basung" { set daerah "128" set namadaerah "Lubuk Basung" } "lubuk linggau" { set daerah "129" set namadaerah "Lubuk Linggau" } "lubuk pakam" { set daerah "130" set namadaerah "Lubuk Pakam" } "lubuk sikaping" { set daerah "131" set namadaerah "Lubuk Sikaping" } "lumajang" { set daerah "132" set namadaerah "Lumajang" } "luwuk" { set daerah "133" set namadaerah "Luwuk" } "madiun" { set daerah "134" set namadaerah "Madiun" } "magelang" { set daerah "135" set namadaerah "Magelang" } "magetan" { set daerah "136" set namadaerah "Magetan" } "majalengka" { set daerah "137" set namadaerah "Majalengka" } "majene" { set daerah "138" set namadaerah "Majene" } "makale" { set daerah "139" set namadaerah "Makale" } "makassar" { set daerah "140" set namadaerah "Makassar" } "malang" { set daerah "141" set namadaerah "Malang" } "mamuju" { set daerah "142" set namadaerah "Mamuju" } "manna" { set daerah "143" set namadaerah "Manna" } "manokwari" { set daerah "144" set namadaerah "Manokwari" } "marabahan" { set daerah "145" set namadaerah "Marabahan" } "maros" { set daerah "146" set namadaerah "Maros" } "martapura kalsel" { set daerah "147" set namadaerah "Martapura Kalsel" } "masohi" { set daerah "148" set namadaerah "Masohi" } "mataram" { set daerah "149" set namadaerah "Mataram" } "maumere" { set daerah "150" set namadaerah "Maumere" } "medan" { set daerah "151" set namadaerah "Medan" } "mempawah" { set daerah "152" set namadaerah "Mempawah" } "menado" { set daerah "153" set namadaerah "Menado" } "manado" { set daerah "153" set namadaerah "Manado" } "mentok" { set daerah "154" set namadaerah "Mentok" } "merauke" { set daerah "155" set namadaerah "Merauke" } "metro" { set daerah "156" set namadaerah "Metro" } "meulaboh" { set daerah "157" set namadaerah "Meulaboh" } "mojokerto" { set daerah "158" set namadaerah "Mojokerto" } "muara bulian" { set daerah "159" set namadaerah "Muara Bulian" } "muara bungo" { set daerah "160" set namadaerah "Muara Bungo" } "muara enim" { set daerah "161" set namadaerah "Muara Enim" } "muara teweh" { set daerah "162" set namadaerah "Muara Teweh" } "muaro sijunjung" { set daerah "163" set namadaerah "Muaro Sijunjung" } "muntilan" { set daerah "164" set namadaerah "Muntilan" } "nabire" { set daerah "165" set namadaerah "Nabire" } "negara" { set daerah "166" set namadaerah "Negara" } "nganjuk" { set daerah "167" set namadaerah "Nganjuk" } "ngawi" { set daerah "168" set namadaerah "Ngawi" } "nunukan" { set daerah "169" set namadaerah "Nunukan" } "pacitan" { set daerah "170" set namadaerah "Pacitan" } "padang" { set daerah "171" set namadaerah "Padang" } "padang panjang" { set daerah "172" set namadaerah "Padang Panjang" } "padang sidempuan" { set daerah "173" set namadaerah "Padang Sidempuan" } "pagaralam" { set daerah "174" set namadaerah "Pagaralam" } "painan" { set daerah "175" set namadaerah "Painan" } "palangkaraya" { set daerah "176" set namadaerah "Palangkaraya" } "palembang" { set daerah "177" set namadaerah "Palembang" } "palopo" { set daerah "178" set namadaerah "Palopo" } "palu" { set daerah "179" set namadaerah "Palu" } "pamekasan" { set daerah "180" set namadaerah "Pamekasan" } "pandeglang" { set daerah "181" set namadaerah "Pandeglang" } "pangka_" { set daerah "182" set namadaerah "Pangka_" } "pangkajene sidenreng" { set daerah "183" set namadaerah "Pangkajene Sidenreng" } "pangkalan bun" { set daerah "184" set namadaerah "Pangkalan Bun" } "pangkalpinang" { set daerah "185" set namadaerah "Pangkalpinang" } "panyabungan" { set daerah "186" set namadaerah "Panyabungan" } "par_" { set daerah "187" set namadaerah "Par_" } "parepare" { set daerah "188" set namadaerah "Parepare" } "pariaman" { set daerah "189" set namadaerah "Pariaman" } "pasuruan" { set daerah "190" set namadaerah "Pasuruan" } "pati" { set daerah "191" set namadaerah "Pati" } "payakumbuh" { set daerah "192" set namadaerah "Payakumbuh" } "pekalongan" { set daerah "193" set namadaerah "Pekalongan" } "pekan baru" { set daerah "194" set namadaerah "Pekan Baru" } "pemalang" { set daerah "195" set namadaerah "Pemalang" } "pematangsiantar" { set daerah "196" set namadaerah "Pematangsiantar" } "pendopo" { set daerah "197" set namadaerah "Pendopo" } "pinrang" { set daerah "198" set namadaerah "Pinrang" } "pleihari" { set daerah "199" set namadaerah "Pleihari" } "polewali" { set daerah "200" set namadaerah "Polewali" } "pondok gede" { set daerah "201" set namadaerah "Pondok Gede" } "ponorogo" { set daerah "202" set namadaerah "Ponorogo" } "pontianak" { set daerah "203" set namadaerah "Pontianak" } "poso" { set daerah "204" set namadaerah "Poso" } "prabumulih" { set daerah "205" set namadaerah "Prabumulih" } "praya" { set daerah "2" set namadaerah "Praya" } "probolinggo" { set daerah "207" set namadaerah "Probolinggo" } "purbalingga" { set daerah "208" set namadaerah "Purbalingga" } "purukcahu" { set daerah "209" set namadaerah "Purukcahu" } "purwakarta" { set daerah "210" set namadaerah "Purwakarta" } "purwodadigrobogan" { set daerah "211" set namadaerah "Purwodadigrobogan" } "purwokerto" { set daerah "212" set namadaerah "Purwokerto" } "purworejo" { set daerah "213" set namadaerah "Purworejo" } "putussibau" { set daerah "214" set namadaerah "Putussibau" } "raha" { set daerah "215" set namadaerah "Raha" } "rangkasbitung" { set daerah "216" set namadaerah "Rangkasbitung" } "rantau" { set daerah "217" set namadaerah "Rantau" } "rantauprapat" { set daerah "218" set namadaerah "Rantauprapat" } "rantepao" { set daerah "219" set namadaerah "Rantepao" } "rembang" { set daerah "220" set namadaerah "Rembang" } "rengat" { set daerah "221" set namadaerah "Rengat" } "ruteng" { set daerah "222" set namadaerah "Ruteng" } "sabang" { set daerah "223" set namadaerah "Sabang" } "salatiga" { set daerah "224" set namadaerah "Salatiga" } "samarinda" { set daerah "225" set namadaerah "Samarinda" } "sambas, kalbar" { set daerah "313" set namadaerah "Sambas, Kalbar" } "sampang" { set daerah "226" set namadaerah "Sampang" } "sampit" { set daerah "227" set namadaerah "Sampit" } "sanggau" { set daerah "228" set namadaerah "Sanggau" } "sawahlunto" { set daerah "229" set namadaerah "Sawahlunto" } "sekayu" { set daerah "230" set namadaerah "Sekayu" } "selong" { set daerah "231" set namadaerah "Selong" } "semarang" { set daerah "232" set namadaerah "Semarang" } "sengkang" { set daerah "233" set namadaerah "Sengkang" } "serang" { set daerah "234" set namadaerah "Serang" } "serui" { set daerah "235" set namadaerah "Serui" } "sibolga" { set daerah "236" set namadaerah "Sibolga" } "sidikalang" { set daerah "237" set namadaerah "Sidikalang" } "sidoarjo" { set daerah "238" set namadaerah "Sidoarjo" } "sigli" { set daerah "239" set namadaerah "Sigli" } "singaparna" { set daerah "240" set namadaerah "Singaparna" } "singaraja" { set daerah "241" set namadaerah "Singaraja" } "singkawang" { set daerah "242" set namadaerah "Singkawang" } "sinjai" { set daerah "243" set namadaerah "Sinjai" } "sintang" { set daerah "244" set namadaerah "Sintang" } "situbondo" { set daerah "245" set namadaerah "Situbondo" } "slawi" { set daerah "246" set namadaerah "Slawi" } "sleman" { set daerah "247" set namadaerah "Sleman" } "soasiu" { set daerah "248" set namadaerah "Soasiu" } "soe" { set daerah "249" set namadaerah "Soe" } "solo" { set daerah "250" set namadaerah "Solo" } "solok" { set daerah "251" set namadaerah "Solok" } "soreang" { set daerah "252" set namadaerah "Soreang" } "sorong" { set daerah "253" set namadaerah "Sorong" } "sragen" { set daerah "254" set namadaerah "Sragen" } "stabat" { set daerah "255" set namadaerah "Stabat" } "subang" { set daerah "256" set namadaerah "Subang" } "sukabumi" { set daerah "257" set namadaerah "Sukabumi" } "sukoharjo" { set daerah "258" set namadaerah "Sukoharjo" } "sumbawa besar" { set daerah "259" set namadaerah "Sumbawa Besar" } "sumedang" { set daerah "260" set namadaerah "Sumedang" } "sumenep" { set daerah "261" set namadaerah "Sumenep" } "sungai liat" { set daerah "262" set namadaerah "Sungai Liat" } "sungai penuh" { set daerah "263" set namadaerah "Sungai Penuh" } "sungguminasa" { set daerah "264" set namadaerah "Sungguminasa" } "surabaya" { set daerah "265" set namadaerah "Surabaya" } "surakarta" { set daerah "266" set namadaerah "Surakarta" } "tabanan" { set daerah "267" set namadaerah "Tabanan" } "tahuna" { set daerah "268" set namadaerah "Tahuna" } "takalar" { set daerah "269" set namadaerah "Takalar" } "takengon" { set daerah "270" set namadaerah "Takengon" } "tamiang layang" { set daerah "271" set namadaerah "Tamiang Layang" } "tanah grogot" { set daerah "272" set namadaerah "Tanah Grogot" } "tangerang" { set daerah "273" set namadaerah "Tangerang" } "tanjung balai" { set daerah "274" set namadaerah "Tanjung Balai" } "tanjung enim" { set daerah "275" set namadaerah "Tanjung Enim" } "tanjung pandan" { set daerah "276" set namadaerah "Tanjung Pandan" } "tanjung pinang" { set daerah "277" set namadaerah "Tanjung Pinang" } "tanjung redep" { set daerah "278" set namadaerah "Tanjung Redep" } "tanjung selor" { set daerah "279" set namadaerah "Tanjung Selor" } "tapak tuan" { set daerah "280" set namadaerah "Tapak Tuan" } "tarakan" { set daerah "281" set namadaerah "Tarakan" } "tarutung" { set daerah "282" set namadaerah "Tarutung" } "tasikmalaya" { set daerah "283" set namadaerah "Tasikmalaya" } "tebing tinggi" { set daerah "284" set namadaerah "Tebing Tinggi" } "tegal" { set daerah "285" set namadaerah "Tegal" } "temanggung" { set daerah "286" set namadaerah "Temanggung" } "tembilahan" { set daerah "287" set namadaerah "Tembilahan" } "tenggarong" { set daerah "288" set namadaerah "Tenggarong" } "ternate" { set daerah "289" set namadaerah "Ternate" } "tolitoli" { set daerah "290" set namadaerah "Tolitoli" } "tondano" { set daerah "291" set namadaerah "Tondano" } "trenggalek" { set daerah "292" set namadaerah "Trenggalek" } "tual" { set daerah "293" set namadaerah "Tual" } "tuban" { set daerah "294" set namadaerah "Tuban" } "tulung agung" { set daerah "295" set namadaerah "Tulung Agung" } "ujung berung" { set daerah "296" set namadaerah "Ujung Berung" } "ungaran" { set daerah "297" set namadaerah "Ungaran" } "waikabubak" { set daerah "298" set namadaerah "Waikabubak" } "waingapu" { set daerah "299" set namadaerah "Waingapu" } "wamena" { set daerah "300" set namadaerah "Wamena" } "watampone" { set daerah "301" set namadaerah "Watampone" } "watansoppeng" { set daerah "302" set namadaerah "Watansoppeng" } "wates" { set daerah "303" set namadaerah "Wates" } "wonogiri" { set daerah "304" set namadaerah "Wonogiri" } "wonosari" { set daerah "305" set namadaerah "Wonosari" } "wonosobo" { set daerah "3" set namadaerah "Wonosobo" } "yogyakarta" { set daerah "307" set namadaerah "Yogyakarta" } "jakarta pusat" { set daerah "308" set namadaerah "Jakarta Pusat" } "batu" { set daerah "32" set namadaerah "Batu" } default { set daerah "308" set namadaerah "$kodedaerah" } } cetak $daerah $namadaerah $chan } proc cetak {daerah namadaerah chan} { global multichan waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya waktutweet set connect [::http::geturl http://jadwal-sholat.info/daily.php?id=$daerah] set files [::http::data $connect] #### set l [regexp -all -inline -- {.*?