Log in or Sign up
Search titles only
Posted by Member:
Separate names with a comma.
Newer Than:
Search this thread only
Search this forum only
Display results as threads
Useful Searches
Recent Posts
More...
Home
Forums
Search Forums
Recent Posts
Members
Members
Quick Links
Notable Members
Current Visitors
Recent Activity
Gallery
Radio
FAQ
FAQ
Quick Links
IRC Untuk Pemula
Apa itu IRC
Lebih terinci
Berbicara dan memasukkan perintah
Harus ke mana?
Smileys dan singkatan
Anjuran dalam ber-IRC
Masalah-masalah server
Peringatan
Kebijakan, Tata Cara, Aturan Penggunaan
Tentang Channels
Tentang Nick
Tentang Vhost/Spoof
Privacy Policy
Terms and Rules
IRC Chat
IRC Chat
Quick Links
Teams
Servers
Non-Flash Chat
Flash Chat
Free ZNC
More
More
Quick Links
QR-Code Generator
Menu
Search
Ayochat - Indonesian Chat Network
Home
Forums
>
Ayochat General
>
IRC Bot, Scripting dan Clients
>
TCL
Adzan Otomatis
>
Reply to Thread
Name:
Verification:
Siapakah nama presiden kedua Indonesia
Message:
<p>[QUOTE="dono, post: 1426, member: 1"]TCL untuk eggdrop ini direlease oleh JoJo pada tahun 2009, namun set nya manual. Kali ini saya memodifikasi atas request @[USER=5]genin[/USER] dan rekan-rekan lainnya untuk auto update dan bisa melihat berbagai daerah di Indonesia.. bisa multi channel namun hanya 1 daerah yang otomatis.. semoga berguna.. license nya free to use dan modifikasi asal credits tidak dihapus.. respect!</p><p><br /></p><p>Akurasi dari hasil waktu adzan-nya berdasarkan website jadwalsholat.org</p><p><br /></p><p>bisa di download langsung ke <a href="https://raw.githubusercontent.com/valendono/TCL-Eggdrop/master/adzan.tcl" target="_blank" class="externalLink ProxyLink" data-proxy-href="https://raw.githubusercontent.com/valendono/TCL-Eggdrop/master/adzan.tcl" rel="nofollow">https://raw.githubusercontent.com/valendono/TCL-Eggdrop/master/adzan.tcl</a></p><p><br /></p><p>[CODE]</p><p>######################################################################</p><p># Adzan By JoJo</p><p># Modifikasi otomatis oleh dono - irc.ayochat.or.id</p><p># Version 1.0.1</p><p># Initial release: 20 November 2009</p><p># Modifikasi oleh dono: 20 April 2014</p><p># last update 23 April 2014</p><p>######################################################################</p><p># Q: Bagaimana ganti daerah default ?</p><p># A: Cari cetak 308 "Jakarta Pusat" "" gantilah sesuai daerah yang diinginkan</p><p># Q: Trus apalagi yang harus di update dan supaya tcl ini jalan ?</p><p># A: Sebut nama dono 2x lalu wajib memakai http.tcl dan set lah `multichan-nya'</p><p>######################################################################</p><p>######################################################################</p><p><br /></p><p>bind pub - !adzan pub:sholat</p><p>bind RAW - 391 pub:waktureply</p><p>bind time - "00 * * * *" sholat</p><p>set multichan "#help #indowebster"</p><p>set sedangrunning "true"</p><p>set kodedaerah "Jakarta Pusat"</p><p>set daerah "308"</p><p><br /></p><p># ganti daerah yang diinginkan</p><p>proc percetakan {} {</p><p>global kodedaerah daerah</p><p>cetak $daerah "$kodedaerah" ""</p><p>}</p><p><br /></p><p>proc otomatis {} {</p><p>pub:pengecekan</p><p>percetakan</p><p>}</p><p><br /></p><p>proc sholat {mins hours days months years} {</p><p>pub:pengecekan</p><p>percetakan</p><p>}</p><p><br /></p><p><br /></p><p>proc pub:sholat {nick uhost hand chan text} {</p><p>global daerah kodedaerah</p><p>set daerah ""</p><p>if {$text == ""} {</p><p>puthelp "NOTICE $nick :Gunakan: !adzan batam"</p><p>return 0</p><p>}</p><p>set namanih [string tolower $text]</p><p>switch -- $namanih {</p><p>"ambarawa" { set daerah "1"</p><p>set namadaerah "Ambarawa" }</p><p>"ambon" { set daerah "2"</p><p>set namadaerah "Ambon" }</p><p>"amlapura" { set daerah "3"</p><p>set namadaerah "Amlapura" }</p><p>"amuntai" { set daerah "4"</p><p>set namadaerah "Amuntai" }</p><p>"argamakmur" { set daerah "5"</p><p>set namadaerah "Argamakmur" }</p><p>"atambua" { set daerah "6"</p><p>set namadaerah "Atambua" }</p><p>"babo" { set daerah "7"</p><p>set namadaerah "Babo" }</p><p>"bagan siapiapi" { set daerah "8"</p><p>set namadaerah "Bagan Siapiapi" }</p><p>"bajawa" { set daerah "9"</p><p>set namadaerah "Bajawa" }</p><p>"balige" { set daerah "10"</p><p>set namadaerah "Balige" }</p><p>"balikpapan" { set daerah "11"</p><p>set namadaerah "Balikpapan" }</p><p>"banda aceh" { set daerah "12"</p><p>set namadaerah "Banda Aceh" }</p><p>"bandarlampung" { set daerah "13"</p><p>set namadaerah "Bandarlampung" }</p><p>"bandung" { set daerah "14"</p><p>set namadaerah "Bandung" }</p><p>"bangkalan" { set daerah "15"</p><p>set namadaerah "Bangkalan" }</p><p>"bangkinang" { set daerah "16"</p><p>set namadaerah "Bangkinang" }</p><p>"bangko" { set daerah "17"</p><p>set namadaerah "Bangko" }</p><p>"bangli" { set daerah "18"</p><p>set namadaerah "Bangli" }</p><p>"banjar" { set daerah "19"</p><p>set namadaerah "Banjar" }</p><p>"banjar baru" { set daerah "20"</p><p>set namadaerah "Banjar Baru" }</p><p>"banjarmasin" { set daerah "21"</p><p>set namadaerah "Banjarmasin" }</p><p>"banjarnegara" { set daerah "22"</p><p>set namadaerah "Banjarnegara" }</p><p>"bantaeng" { set daerah "23"</p><p>set namadaerah "Bantaeng" }</p><p>"banten" { set daerah "24"</p><p>set namadaerah "Banten" }</p><p>"bantul" { set daerah "25"</p><p>set namadaerah "Bantul" }</p><p>"banyuwangi" { set daerah "26"</p><p>set namadaerah "Banyuwangi" }</p><p>"barabai" { set daerah "27"</p><p>set namadaerah "Barabai" }</p><p>"barito" { set daerah "28"</p><p>set namadaerah "Barito" }</p><p>"barru" { set daerah "29"</p><p>set namadaerah "Barru" }</p><p>"batam" { set daerah "30"</p><p>set namadaerah "Batam" }</p><p>"batang" { set daerah "31"</p><p>set namadaerah "Batang" }</p><p>"batu" { set daerah "32"</p><p>set namadaerah "Batu" }</p><p>"baturaja" { set daerah "33"</p><p>set namadaerah "Baturaja" }</p><p>"batusangkar" { set daerah "34"</p><p>set namadaerah "Batusangkar" }</p><p>"baubau" { set daerah "35"</p><p>set namadaerah "Baubau" }</p><p>"bekasi" { set daerah "36"</p><p>set namadaerah "Bekasi" }</p><p>"bengkalis" { set daerah "37"</p><p>set namadaerah "Bengkalis" }</p><p>"bengkulu" { set daerah "38"</p><p>set namadaerah "Bengkulu" }</p><p>"benteng" { set daerah "39"</p><p>set namadaerah "Benteng" }</p><p>"biak" { set daerah "40"</p><p>set namadaerah "Biak" }</p><p>"bima" { set daerah "41"</p><p>set namadaerah "Bima" }</p><p>"binjai" { set daerah "42"</p><p>set namadaerah "Binjai" }</p><p>"bireuen" { set daerah "43"</p><p>set namadaerah "Bireuen" }</p><p>"bitung" { set daerah "44"</p><p>set namadaerah "Bitung" }</p><p>"blitar" { set daerah "45"</p><p>set namadaerah "Blitar" }</p><p>"blora" { set daerah "46"</p><p>set namadaerah "Blora" }</p><p>"bogor" { set daerah "47"</p><p>set namadaerah "Bogor" }</p><p>"bojonegoro" { set daerah "48"</p><p>set namadaerah "Bojonegoro" }</p><p>"bondowoso" { set daerah "49"</p><p>set namadaerah "Bondowoso" }</p><p>"bontang" { set daerah "50"</p><p>set namadaerah "Bontang" }</p><p>"boyolali" { set daerah "51"</p><p>set namadaerah "Boyolali" }</p><p>"brebes" { set daerah "52"</p><p>set namadaerah "Brebes" }</p><p>"bukit tinggi" { set daerah "53"</p><p>set namadaerah "Bukit Tinggi" }</p><p>"bulukumba" { set daerah "54"</p><p>set namadaerah "Bulukumba" }</p><p>"buntok" { set daerah "55"</p><p>set namadaerah "Buntok" }</p><p>"cepu" { set daerah "56"</p><p>set namadaerah "Cepu" }</p><p>"ciamis" { set daerah "57"</p><p>set namadaerah "Ciamis" }</p><p>"cianjur" { set daerah "58"</p><p>set namadaerah "Cianjur" }</p><p>"cibinong" { set daerah "59"</p><p>set namadaerah "Cibinong" }</p><p>"cilacap" { set daerah "60"</p><p>set namadaerah "Cilacap" }</p><p>"cilegon" { set daerah "61"</p><p>set namadaerah "Cilegon" }</p><p>"cimahi" { set daerah "62"</p><p>set namadaerah "Cimahi" }</p><p>"cirebon" { set daerah "63"</p><p>set namadaerah "Cirebon" }</p><p>"curup" { set daerah "64"</p><p>set namadaerah "Curup" }</p><p>"demak" { set daerah "65"</p><p>set namadaerah "Demak" }</p><p>"denpasar" { set daerah "66"</p><p>set namadaerah "Denpasar" }</p><p>"depok" { set daerah "67"</p><p>set namadaerah "Depok" }</p><p>"dili" { set daerah "68"</p><p>set namadaerah "Dili" }</p><p>"dompu" { set daerah "69"</p><p>set namadaerah "Dompu" }</p><p>"donggala" { set daerah "70"</p><p>set namadaerah "Donggala" }</p><p>"dumai" { set daerah "71"</p><p>set namadaerah "Dumai" }</p><p>"ende" { set daerah "72"</p><p>set namadaerah "Ende" }</p><p>"enggano" { set daerah "73"</p><p>set namadaerah "Enggano" }</p><p>"enrekang" { set daerah "74"</p><p>set namadaerah "Enrekang" }</p><p>"fakfak" { set daerah "75"</p><p>set namadaerah "Fakfak" }</p><p>"garut" { set daerah "76"</p><p>set namadaerah "Garut" }</p><p>"gianyar" { set daerah "77"</p><p>set namadaerah "Gianyar" }</p><p>"gombong" { set daerah "78"</p><p>set namadaerah "Gombong" }</p><p>"gorontalo" { set daerah "79"</p><p>set namadaerah "Gorontalo" }</p><p>"gresik" { set daerah "80"</p><p>set namadaerah "Gresik" }</p><p>"gunung sitoli" { set daerah "81"</p><p>set namadaerah "Gunung Sitoli" }</p><p>"indramayu" { set daerah "82"</p><p>set namadaerah "Indramayu" }</p><p>"jakarta barat" { set daerah "309"</p><p>set namadaerah "Jakarta Barat" }</p><p>"jakarta selatan" { set daerah "310"</p><p>set namadaerah "Jakarta Selatan" }</p><p>"jakarta timur" { set daerah "311"</p><p>set namadaerah "Jakarta Timur" }</p><p>"jakarta utara" { set daerah "312"</p><p>set namadaerah "Jakarta Utara" }</p><p>"jambi" { set daerah "83"</p><p>set namadaerah "Jambi" }</p><p>"jayapura" { set daerah "84"</p><p>set namadaerah "Jayapura" }</p><p>"jember" { set daerah "85"</p><p>set namadaerah "Jember" }</p><p>"jeneponto" { set daerah "86"</p><p>set namadaerah "Jeneponto" }</p><p>"jepara" { set daerah "87"</p><p>set namadaerah "Jepara" }</p><p>"jombang" { set daerah "88"</p><p>set namadaerah "Jombang" }</p><p>"kabanjahe" { set daerah "89"</p><p>set namadaerah "Kabanjahe" }</p><p>"kalabahi" { set daerah "90"</p><p>set namadaerah "Kalabahi" }</p><p>"kalianda" { set daerah "91"</p><p>set namadaerah "Kalianda" }</p><p>"kandangan" { set daerah "92"</p><p>set namadaerah "Kandangan" }</p><p>"karanganyar" { set daerah "93"</p><p>set namadaerah "Karanganyar" }</p><p>"karawang" { set daerah "94"</p><p>set namadaerah "Karawang" }</p><p>"kasungan" { set daerah "95"</p><p>set namadaerah "Kasungan" }</p><p>"kayuagung" { set daerah "96"</p><p>set namadaerah "Kayuagung" }</p><p>"kebumen" { set daerah "97"</p><p>set namadaerah "Kebumen" }</p><p>"kediri" { set daerah "98"</p><p>set namadaerah "Kediri" }</p><p>"kefamenanu" { set daerah "99"</p><p>set namadaerah "Kefamenanu" }</p><p>"kendal" { set daerah "100"</p><p>set namadaerah "Kendal" }</p><p>"kendari" { set daerah "101"</p><p>set namadaerah "Kendari" }</p><p>"kertosono" { set daerah "102"</p><p>set namadaerah "Kertosono" }</p><p>"ketapang" { set daerah "103"</p><p>set namadaerah "Ketapang" }</p><p>"kisaran" { set daerah "104"</p><p>set namadaerah "Kisaran" }</p><p>"klaten" { set daerah "105"</p><p>set namadaerah "Klaten" }</p><p>"kolaka" { set daerah "1"</p><p>set namadaerah "Kolaka" }</p><p>"kota baru pulau laut" { set daerah "107"</p><p>set namadaerah "Kota Baru Pulau Laut" }</p><p>"kota bumi" { set daerah "108"</p><p>set namadaerah "Kota Bumi" }</p><p>"kota jantho" { set daerah "109"</p><p>set namadaerah "Kota Jantho" }</p><p>"kotamobagu" { set daerah "110"</p><p>set namadaerah "Kotamobagu" }</p><p>"kuala kapuas" { set daerah "111"</p><p>set namadaerah "Kuala Kapuas" }</p><p>"kuala kurun" { set daerah "112"</p><p>set namadaerah "Kuala Kurun" }</p><p>"kuala pembuang" { set daerah "113"</p><p>set namadaerah "Kuala Pembuang" }</p><p>"kuala tungkal" { set daerah "114"</p><p>set namadaerah "Kuala Tungkal" }</p><p>"kudus" { set daerah "115"</p><p>set namadaerah "Kudus" }</p><p>"kuningan" { set daerah "116"</p><p>set namadaerah "Kuningan" }</p><p>"kupang" { set daerah "117"</p><p>set namadaerah "Kupang" }</p><p>"kutacane" { set daerah "118"</p><p>set namadaerah "Kutacane" }</p><p>"kutoarjo" { set daerah "119"</p><p>set namadaerah "Kutoarjo" }</p><p>"labuhan" { set daerah "120"</p><p>set namadaerah "Labuhan" }</p><p>"lahat" { set daerah "121"</p><p>set namadaerah "Lahat" }</p><p>"lamongan" { set daerah "122"</p><p>set namadaerah "Lamongan" }</p><p>"langsa" { set daerah "123"</p><p>set namadaerah "Langsa" }</p><p>"larantuka" { set daerah "124"</p><p>set namadaerah "Larantuka" }</p><p>"lawang" { set daerah "125"</p><p>set namadaerah "Lawang" }</p><p>"lhoseumawe" { set daerah "126"</p><p>set namadaerah "Lhoseumawe" }</p><p>"limboto" { set daerah "127"</p><p>set namadaerah "Limboto" }</p><p>"lubuk basung" { set daerah "128"</p><p>set namadaerah "Lubuk Basung" }</p><p>"lubuk linggau" { set daerah "129"</p><p>set namadaerah "Lubuk Linggau" }</p><p>"lubuk pakam" { set daerah "130"</p><p>set namadaerah "Lubuk Pakam" }</p><p>"lubuk sikaping" { set daerah "131"</p><p>set namadaerah "Lubuk Sikaping" }</p><p>"lumajang" { set daerah "132"</p><p>set namadaerah "Lumajang" }</p><p>"luwuk" { set daerah "133"</p><p>set namadaerah "Luwuk" }</p><p>"madiun" { set daerah "134"</p><p>set namadaerah "Madiun" }</p><p>"magelang" { set daerah "135"</p><p>set namadaerah "Magelang" }</p><p>"magetan" { set daerah "136"</p><p>set namadaerah "Magetan" }</p><p>"majalengka" { set daerah "137"</p><p>set namadaerah "Majalengka" }</p><p>"majene" { set daerah "138"</p><p>set namadaerah "Majene" }</p><p>"makale" { set daerah "139"</p><p>set namadaerah "Makale" }</p><p>"makassar" { set daerah "140"</p><p>set namadaerah "Makassar" }</p><p>"malang" { set daerah "141"</p><p>set namadaerah "Malang" }</p><p>"mamuju" { set daerah "142"</p><p>set namadaerah "Mamuju" }</p><p>"manna" { set daerah "143"</p><p>set namadaerah "Manna" }</p><p>"manokwari" { set daerah "144"</p><p>set namadaerah "Manokwari" }</p><p>"marabahan" { set daerah "145"</p><p>set namadaerah "Marabahan" }</p><p>"maros" { set daerah "146"</p><p>set namadaerah "Maros" }</p><p>"martapura kalsel" { set daerah "147"</p><p>set namadaerah "Martapura Kalsel" }</p><p>"masohi" { set daerah "148"</p><p>set namadaerah "Masohi" }</p><p>"mataram" { set daerah "149"</p><p>set namadaerah "Mataram" }</p><p>"maumere" { set daerah "150"</p><p>set namadaerah "Maumere" }</p><p>"medan" { set daerah "151"</p><p>set namadaerah "Medan" }</p><p>"mempawah" { set daerah "152"</p><p>set namadaerah "Mempawah" }</p><p>"menado" { set daerah "153"</p><p>set namadaerah "Menado" }</p><p>"manado" { set daerah "153"</p><p>set namadaerah "Manado" }</p><p>"mentok" { set daerah "154"</p><p>set namadaerah "Mentok" }</p><p>"merauke" { set daerah "155"</p><p>set namadaerah "Merauke" }</p><p>"metro" { set daerah "156"</p><p>set namadaerah "Metro" }</p><p>"meulaboh" { set daerah "157"</p><p>set namadaerah "Meulaboh" }</p><p>"mojokerto" { set daerah "158"</p><p>set namadaerah "Mojokerto" }</p><p>"muara bulian" { set daerah "159"</p><p>set namadaerah "Muara Bulian" }</p><p>"muara bungo" { set daerah "160"</p><p>set namadaerah "Muara Bungo" }</p><p>"muara enim" { set daerah "161"</p><p>set namadaerah "Muara Enim" }</p><p>"muara teweh" { set daerah "162"</p><p>set namadaerah "Muara Teweh" }</p><p>"muaro sijunjung" { set daerah "163"</p><p>set namadaerah "Muaro Sijunjung" }</p><p>"muntilan" { set daerah "164"</p><p>set namadaerah "Muntilan" }</p><p>"nabire" { set daerah "165"</p><p>set namadaerah "Nabire" }</p><p>"negara" { set daerah "166"</p><p>set namadaerah "Negara" }</p><p>"nganjuk" { set daerah "167"</p><p>set namadaerah "Nganjuk" }</p><p>"ngawi" { set daerah "168"</p><p>set namadaerah "Ngawi" }</p><p>"nunukan" { set daerah "169"</p><p>set namadaerah "Nunukan" }</p><p>"pacitan" { set daerah "170"</p><p>set namadaerah "Pacitan" }</p><p>"padang" { set daerah "171"</p><p>set namadaerah "Padang" }</p><p>"padang panjang" { set daerah "172"</p><p>set namadaerah "Padang Panjang" }</p><p>"padang sidempuan" { set daerah "173"</p><p>set namadaerah "Padang Sidempuan" }</p><p>"pagaralam" { set daerah "174"</p><p>set namadaerah "Pagaralam" }</p><p>"painan" { set daerah "175"</p><p>set namadaerah "Painan" }</p><p>"palangkaraya" { set daerah "176"</p><p>set namadaerah "Palangkaraya" }</p><p>"palembang" { set daerah "177"</p><p>set namadaerah "Palembang" }</p><p>"palopo" { set daerah "178"</p><p>set namadaerah "Palopo" }</p><p>"palu" { set daerah "179"</p><p>set namadaerah "Palu" }</p><p>"pamekasan" { set daerah "180"</p><p>set namadaerah "Pamekasan" }</p><p>"pandeglang" { set daerah "181"</p><p>set namadaerah "Pandeglang" }</p><p>"pangka_" { set daerah "182"</p><p>set namadaerah "Pangka_" }</p><p>"pangkajene sidenreng" { set daerah "183"</p><p>set namadaerah "Pangkajene Sidenreng" }</p><p>"pangkalan bun" { set daerah "184"</p><p>set namadaerah "Pangkalan Bun" }</p><p>"pangkalpinang" { set daerah "185"</p><p>set namadaerah "Pangkalpinang" }</p><p>"panyabungan" { set daerah "186"</p><p>set namadaerah "Panyabungan" }</p><p>"par_" { set daerah "187"</p><p>set namadaerah "Par_" }</p><p>"parepare" { set daerah "188"</p><p>set namadaerah "Parepare" }</p><p>"pariaman" { set daerah "189"</p><p>set namadaerah "Pariaman" }</p><p>"pasuruan" { set daerah "190"</p><p>set namadaerah "Pasuruan" }</p><p>"pati" { set daerah "191"</p><p>set namadaerah "Pati" }</p><p>"payakumbuh" { set daerah "192"</p><p>set namadaerah "Payakumbuh" }</p><p>"pekalongan" { set daerah "193"</p><p>set namadaerah "Pekalongan" }</p><p>"pekan baru" { set daerah "194"</p><p>set namadaerah "Pekan Baru" }</p><p>"pemalang" { set daerah "195"</p><p>set namadaerah "Pemalang" }</p><p>"pematangsiantar" { set daerah "196"</p><p>set namadaerah "Pematangsiantar" }</p><p>"pendopo" { set daerah "197"</p><p>set namadaerah "Pendopo" }</p><p>"pinrang" { set daerah "198"</p><p>set namadaerah "Pinrang" }</p><p>"pleihari" { set daerah "199"</p><p>set namadaerah "Pleihari" }</p><p>"polewali" { set daerah "200"</p><p>set namadaerah "Polewali" }</p><p>"pondok gede" { set daerah "201"</p><p>set namadaerah "Pondok Gede" }</p><p>"ponorogo" { set daerah "202"</p><p>set namadaerah "Ponorogo" }</p><p>"pontianak" { set daerah "203"</p><p>set namadaerah "Pontianak" }</p><p>"poso" { set daerah "204"</p><p>set namadaerah "Poso" }</p><p>"prabumulih" { set daerah "205"</p><p>set namadaerah "Prabumulih" }</p><p>"praya" { set daerah "2"</p><p>set namadaerah "Praya" }</p><p>"probolinggo" { set daerah "207"</p><p>set namadaerah "Probolinggo" }</p><p>"purbalingga" { set daerah "208"</p><p>set namadaerah "Purbalingga" }</p><p>"purukcahu" { set daerah "209"</p><p>set namadaerah "Purukcahu" }</p><p>"purwakarta" { set daerah "210"</p><p>set namadaerah "Purwakarta" }</p><p>"purwodadigrobogan" { set daerah "211"</p><p>set namadaerah "Purwodadigrobogan" }</p><p>"purwokerto" { set daerah "212"</p><p>set namadaerah "Purwokerto" }</p><p>"purworejo" { set daerah "213"</p><p>set namadaerah "Purworejo" }</p><p>"putussibau" { set daerah "214"</p><p>set namadaerah "Putussibau" }</p><p>"raha" { set daerah "215"</p><p>set namadaerah "Raha" }</p><p>"rangkasbitung" { set daerah "216"</p><p>set namadaerah "Rangkasbitung" }</p><p>"rantau" { set daerah "217"</p><p>set namadaerah "Rantau" }</p><p>"rantauprapat" { set daerah "218"</p><p>set namadaerah "Rantauprapat" }</p><p>"rantepao" { set daerah "219"</p><p>set namadaerah "Rantepao" }</p><p>"rembang" { set daerah "220"</p><p>set namadaerah "Rembang" }</p><p>"rengat" { set daerah "221"</p><p>set namadaerah "Rengat" }</p><p>"ruteng" { set daerah "222"</p><p>set namadaerah "Ruteng" }</p><p>"sabang" { set daerah "223"</p><p>set namadaerah "Sabang" }</p><p>"salatiga" { set daerah "224"</p><p>set namadaerah "Salatiga" }</p><p>"samarinda" { set daerah "225"</p><p>set namadaerah "Samarinda" }</p><p>"sambas, kalbar" { set daerah "313"</p><p>set namadaerah "Sambas, Kalbar" }</p><p>"sampang" { set daerah "226"</p><p>set namadaerah "Sampang" }</p><p>"sampit" { set daerah "227"</p><p>set namadaerah "Sampit" }</p><p>"sanggau" { set daerah "228"</p><p>set namadaerah "Sanggau" }</p><p>"sawahlunto" { set daerah "229"</p><p>set namadaerah "Sawahlunto" }</p><p>"sekayu" { set daerah "230"</p><p>set namadaerah "Sekayu" }</p><p>"selong" { set daerah "231"</p><p>set namadaerah "Selong" }</p><p>"semarang" { set daerah "232"</p><p>set namadaerah "Semarang" }</p><p>"sengkang" { set daerah "233"</p><p>set namadaerah "Sengkang" }</p><p>"serang" { set daerah "234"</p><p>set namadaerah "Serang" }</p><p>"serui" { set daerah "235"</p><p>set namadaerah "Serui" }</p><p>"sibolga" { set daerah "236"</p><p>set namadaerah "Sibolga" }</p><p>"sidikalang" { set daerah "237"</p><p>set namadaerah "Sidikalang" }</p><p>"sidoarjo" { set daerah "238"</p><p>set namadaerah "Sidoarjo" }</p><p>"sigli" { set daerah "239"</p><p>set namadaerah "Sigli" }</p><p>"singaparna" { set daerah "240"</p><p>set namadaerah "Singaparna" }</p><p>"singaraja" { set daerah "241"</p><p>set namadaerah "Singaraja" }</p><p>"singkawang" { set daerah "242"</p><p>set namadaerah "Singkawang" }</p><p>"sinjai" { set daerah "243"</p><p>set namadaerah "Sinjai" }</p><p>"sintang" { set daerah "244"</p><p>set namadaerah "Sintang" }</p><p>"situbondo" { set daerah "245"</p><p>set namadaerah "Situbondo" }</p><p>"slawi" { set daerah "246"</p><p>set namadaerah "Slawi" }</p><p>"sleman" { set daerah "247"</p><p>set namadaerah "Sleman" }</p><p>"soasiu" { set daerah "248"</p><p>set namadaerah "Soasiu" }</p><p>"soe" { set daerah "249"</p><p>set namadaerah "Soe" }</p><p>"solo" { set daerah "250"</p><p>set namadaerah "Solo" }</p><p>"solok" { set daerah "251"</p><p>set namadaerah "Solok" }</p><p>"soreang" { set daerah "252"</p><p>set namadaerah "Soreang" }</p><p>"sorong" { set daerah "253"</p><p>set namadaerah "Sorong" }</p><p>"sragen" { set daerah "254"</p><p>set namadaerah "Sragen" }</p><p>"stabat" { set daerah "255"</p><p>set namadaerah "Stabat" }</p><p>"subang" { set daerah "256"</p><p>set namadaerah "Subang" }</p><p>"sukabumi" { set daerah "257"</p><p>set namadaerah "Sukabumi" }</p><p>"sukoharjo" { set daerah "258"</p><p>set namadaerah "Sukoharjo" }</p><p>"sumbawa besar" { set daerah "259"</p><p>set namadaerah "Sumbawa Besar" }</p><p>"sumedang" { set daerah "260"</p><p>set namadaerah "Sumedang" }</p><p>"sumenep" { set daerah "261"</p><p>set namadaerah "Sumenep" }</p><p>"sungai liat" { set daerah "262"</p><p>set namadaerah "Sungai Liat" }</p><p>"sungai penuh" { set daerah "263"</p><p>set namadaerah "Sungai Penuh" }</p><p>"sungguminasa" { set daerah "264"</p><p>set namadaerah "Sungguminasa" }</p><p>"surabaya" { set daerah "265"</p><p>set namadaerah "Surabaya" }</p><p>"surakarta" { set daerah "266"</p><p>set namadaerah "Surakarta" }</p><p>"tabanan" { set daerah "267"</p><p>set namadaerah "Tabanan" }</p><p>"tahuna" { set daerah "268"</p><p>set namadaerah "Tahuna" }</p><p>"takalar" { set daerah "269"</p><p>set namadaerah "Takalar" }</p><p>"takengon" { set daerah "270"</p><p>set namadaerah "Takengon" }</p><p>"tamiang layang" { set daerah "271"</p><p>set namadaerah "Tamiang Layang" }</p><p>"tanah grogot" { set daerah "272"</p><p>set namadaerah "Tanah Grogot" }</p><p>"tangerang" { set daerah "273"</p><p>set namadaerah "Tangerang" }</p><p>"tanjung balai" { set daerah "274"</p><p>set namadaerah "Tanjung Balai" }</p><p>"tanjung enim" { set daerah "275"</p><p>set namadaerah "Tanjung Enim" }</p><p>"tanjung pandan" { set daerah "276"</p><p>set namadaerah "Tanjung Pandan" }</p><p>"tanjung pinang" { set daerah "277"</p><p>set namadaerah "Tanjung Pinang" }</p><p>"tanjung redep" { set daerah "278"</p><p>set namadaerah "Tanjung Redep" }</p><p>"tanjung selor" { set daerah "279"</p><p>set namadaerah "Tanjung Selor" }</p><p>"tapak tuan" { set daerah "280"</p><p>set namadaerah "Tapak Tuan" }</p><p>"tarakan" { set daerah "281"</p><p>set namadaerah "Tarakan" }</p><p>"tarutung" { set daerah "282"</p><p>set namadaerah "Tarutung" }</p><p>"tasikmalaya" { set daerah "283"</p><p>set namadaerah "Tasikmalaya" }</p><p>"tebing tinggi" { set daerah "284"</p><p>set namadaerah "Tebing Tinggi" }</p><p>"tegal" { set daerah "285"</p><p>set namadaerah "Tegal" }</p><p>"temanggung" { set daerah "286"</p><p>set namadaerah "Temanggung" }</p><p>"tembilahan" { set daerah "287"</p><p>set namadaerah "Tembilahan" }</p><p>"tenggarong" { set daerah "288"</p><p>set namadaerah "Tenggarong" }</p><p>"ternate" { set daerah "289"</p><p>set namadaerah "Ternate" }</p><p>"tolitoli" { set daerah "290"</p><p>set namadaerah "Tolitoli" }</p><p>"tondano" { set daerah "291"</p><p>set namadaerah "Tondano" }</p><p>"trenggalek" { set daerah "292"</p><p>set namadaerah "Trenggalek" }</p><p>"tual" { set daerah "293"</p><p>set namadaerah "Tual" }</p><p>"tuban" { set daerah "294"</p><p>set namadaerah "Tuban" }</p><p>"tulung agung" { set daerah "295"</p><p>set namadaerah "Tulung Agung" }</p><p>"ujung berung" { set daerah "296"</p><p>set namadaerah "Ujung Berung" }</p><p>"ungaran" { set daerah "297"</p><p>set namadaerah "Ungaran" }</p><p>"waikabubak" { set daerah "298"</p><p>set namadaerah "Waikabubak" }</p><p>"waingapu" { set daerah "299"</p><p>set namadaerah "Waingapu" }</p><p>"wamena" { set daerah "300"</p><p>set namadaerah "Wamena" }</p><p>"watampone" { set daerah "301"</p><p>set namadaerah "Watampone" }</p><p>"watansoppeng" { set daerah "302"</p><p>set namadaerah "Watansoppeng" }</p><p>"wates" { set daerah "303"</p><p>set namadaerah "Wates" }</p><p>"wonogiri" { set daerah "304"</p><p>set namadaerah "Wonogiri" }</p><p>"wonosari" { set daerah "305"</p><p>set namadaerah "Wonosari" }</p><p>"wonosobo" { set daerah "3"</p><p>set namadaerah "Wonosobo" }</p><p>"yogyakarta" { set daerah "307"</p><p>set namadaerah "Yogyakarta" }</p><p>default { set daerah "$daerah"</p><p>set namadaerah "$kodedaerah" }</p><p>}</p><p><br /></p><p>cetak $daerah $namadaerah $chan</p><p><br /></p><p>}</p><p><br /></p><p>proc cetak {daerah namadaerah chan} {</p><p>global multichan waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya</p><p>set connect [::http::geturl http://www.jadwalsholat.org/adzan/daily.php?id=$daerah]</p><p>set files [::http::data $connect]</p><p><br /></p><p>set l [regexp -all -inline -- {.*?<tr class="table_light" align="center"><td><b>.*?</b></td><td>.*?</td><td>(.*?)</td><td>.*?</td><td>.*?</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td></tr>.*?<tr class="table_block_title"><td colspan="9"><b>&nbsp;:: Parameter</b></td></tr>} $files]</p><p><br /></p><p>if {[llength $l] != 0} {</p><p><br /></p><p>foreach {black a b c d e} $l {</p><p><br /></p><p>set a [string trim $a " \n"]</p><p>set b [string trim $b " \n"]</p><p>set c [string trim $c " \n"]</p><p>set d [string trim $d " \n"]</p><p>set e [string trim $e " \n"]</p><p><br /></p><p>regsub -all {<.+?>} $a {} a</p><p>regsub -all {<.+?>} $b {} b</p><p>regsub -all {<.+?>} $c {} c</p><p>regsub -all {<.+?>} $d {} d</p><p>regsub -all {<.+?>} $e {} e</p><p><br /></p><p>if {[llength $chan] != 0} {</p><p>puthelp "PRIVMSG $chan :\[\002Adzan $namadaerah\002\] Subuh: $a - Dzuhur: $b - Ashar: $c - Maghrib: $d - Isya: $e"</p><p>} else { putlog "loading dan copy dari web ..." }</p><p><br /></p><p>set waktusubuh "$a:00"</p><p>set waktudzuhur "$b:00"</p><p>set waktuashar "$c:00"</p><p>set waktumaghrib "$d:00"</p><p>set waktuisya "$e:00"</p><p><br /></p><p>}</p><p>}</p><p><br /></p><p>}</p><p><br /></p><p><br /></p><p>set jam "00:00:xx"</p><p>set jamclean "00:00:00"</p><p>set waktu "xx xx xx"</p><p>set servtime "delta.ca.us.ayochat.or.id"</p><p>set parent ""</p><p>set jamcocok "00:00:00"</p><p>set cektiap 1</p><p>set sedangrunning "true"</p><p>set adzanrange "false"</p><p><br /></p><p>proc konekserver {} {</p><p>global botnick servtime</p><p>putquick "TIME $servtime"</p><p>}</p><p><br /></p><p>#set jam, jamclean, waktu</p><p>proc setwaktu { channel arguments } {</p><p>global botnick servtime waktu jam jamclean</p><p><br /></p><p>set day [lindex [split $arguments] 2]</p><p>if {$day == ":Monday"} { set hari "Senin" }</p><p>if {$day == ":Tuesday"} { set hari "Selasa" }</p><p>if {$day == ":Wednesday"} { set hari "Rabu" }</p><p>if {$day == ":Thursday"} { set hari "Kamis" }</p><p>if {$day == ":Friday"} { set hari "Jum'at" }</p><p>if {$day == ":Saturday"} { set hari "Sabtu" }</p><p>if {$day == ":Sunday"} { set hari "Minggu" }</p><p>set tanggal [lindex [split $arguments] 4]</p><p>set month [lindex [split $arguments] 3]</p><p>if {$month == "January"} { set bulan "Januari" }</p><p>if {$month == "February"} { set bulan "Februari" }</p><p>if {$month == "March"} { set bulan "Maret" }</p><p>if {$month == "April"} { set bulan "April" }</p><p>if {$month == "May"} { set bulan "Mei" }</p><p>if {$month == "June"} { set bulan "Juni" }</p><p>if {$month == "July"} { set bulan "Juli" }</p><p>if {$month == "August"} { set bulan "Agustus" }</p><p>if {$month == "September"} { set bulan "September" }</p><p>if {$month == "October"} { set bulan "Oktober" }</p><p>if {$month == "November"} { set bulan "November" }</p><p>if {$month == "December"} { set bulan "Desember" }</p><p>set tahun [lindex [split $arguments] 5]</p><p>set jam [lindex [split $arguments] 7]</p><p>set temp1 [lindex [split $jam :] 0]</p><p>set temp2 [lindex [split $jam :] 1]</p><p>set jamclean "$temp1:$temp2:00"</p><p><br /></p><p>set waktu "$hari - $tanggal $bulan $tahun - $jam WIB"</p><p><br /></p><p>}</p><p><br /></p><p>proc iscocok { text } {</p><p>global jamclean</p><p><br /></p><p>if { $jamclean == $text } {</p><p>return 1</p><p>} else {</p><p>return 0</p><p>}</p><p><br /></p><p>}</p><p><br /></p><p>proc pub:waktureply { from keyword arguments } {</p><p>global multichan parent</p><p>setwaktu "help" $arguments</p><p><br /></p><p>if { $parent == "showadzan" } {</p><p>pub:adzanstatus</p><p>}</p><p><br /></p><p>}</p><p><br /></p><p>proc pub:pengecekan {} {</p><p>global sedangrunning cektiap waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya multichan</p><p>if {[llength $waktusubuh] == 0} { percetakan }</p><p><br /></p><p>if { $sedangrunning == "true" } {</p><p>konekserver</p><p><br /></p><p>if { [iscocok $waktusubuh] } {</p><p>pub:showadzan "Subuh" $waktusubuh</p><p>}</p><p><br /></p><p>if { [iscocok $waktudzuhur] } {</p><p>pub:showadzan "Dzuhur" $waktudzuhur</p><p>}</p><p><br /></p><p>if { [iscocok $waktuashar] } {</p><p>pub:showadzan "Ashar" $waktuashar</p><p>}</p><p><br /></p><p>if { [iscocok $waktumaghrib] } {</p><p>pub:showadzan "Maghrib" $waktumaghrib</p><p>}</p><p><br /></p><p>if { [iscocok $waktuisya] } {</p><p>pub:showadzan "Isya" $waktuisya</p><p>}</p><p><br /></p><p>timer [expr $cektiap] pub:pengecekan</p><p><br /></p><p>}</p><p>}</p><p><br /></p><p>proc pub:setkonekserver {} {</p><p>konekserver</p><p>}</p><p><br /></p><p>proc pub:showadzan { text jamnya } {</p><p>global multichan adzanrange kodedaerah daerah</p><p><br /></p><p>if { $adzanrange == "false" } {</p><p>foreach channel $multichan {</p><p>puthelp "PRIVMSG $channel : Allahu akbar.. Allahu akbar.."</p><p>puthelp "PRIVMSG $channel :Waktu tepat menunjukan pukul $jamnya WIB, waktunya utk melaksanakan ibadah solat $text untuk daerah $kodedaerah dan sekitar nya"</p><p>putquick "NOTICE $channel :$jamnya WIB - Sholat $text untuk $kodedaerah dan sekitarnya"</p><p>}</p><p><br /></p><p><br /></p><p>set adzanrange "true"</p><p>timer 2 turnoff:adzanrange</p><p>return 0</p><p>}</p><p><br /></p><p>}</p><p><br /></p><p>proc turnoff:adzanrange {} {</p><p>global adzanrange</p><p>set adzanrange "false"</p><p>}</p><p><br /></p><p><br /></p><p>proc pub:adzan { nick uhost hand chan text } {</p><p>global parent sedangrunning waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya</p><p>if { [llength $waktusubuh] != 0} {</p><p><br /></p><p>set parent "adzan"</p><p>set text [string tolower $text]</p><p><br /></p><p>if {[string match "#*" $text]} {</p><p>puthelp "NOTICE $nick :Gunakan: !adzan start , atau !adzan stop"</p><p>return 0</p><p>} elseif {$text == "start" && [isop $nick $chan] } {</p><p>set sedangrunning "true"</p><p>pub:pengecekan</p><p>puthelp "NOTICE $nick :Adzan diaktifkan"</p><p>} elseif {$text == "stop" && [isop $nick $chan] } {</p><p>set sedangrunning "false"</p><p>puthelp "NOTICE $nick :Adzan berhenti"</p><p>} elseif {$text == ""} {</p><p>konekserver</p><p>set parent "showadzan"</p><p>}</p><p>} else { percetakan }</p><p><br /></p><p>}</p><p><br /></p><p><br /></p><p>proc pub:adzanstatus {} {</p><p>global multichan waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya waktu parent</p><p>set parent "adzanstatus"</p><p>foreach channel $multichan {</p><p>puthelp "PRIVMSG $channel :Jakarta Pusat: $waktu - Subuh: $waktusubuh - Dzuhur : $waktudzuhur - Ashar: $waktuashar - Maghrib : $waktumaghrib - Isya: $waktuisya"</p><p>}</p><p><br /></p><p>}</p><p><br /></p><p>set init-server {</p><p>global kodedaerah daerah</p><p>putlog "Init server dan lakukan pengecekan"</p><p>cetak $daerah "$kodedaerah" ""</p><p>set sedangrunning "true"</p><p>pub:pengecekan</p><p>}</p><p><br /></p><p><br /></p><p>putlog "Adzan Time By JoJo - Modifikasi otomatis oleh dono - irc.ayochat.or.id"</p><p><br /></p><p>[/CODE]</p><p><br /></p><p>Enjoy![/QUOTE]</p><p><br /></p>
[QUOTE="dono, post: 1426, member: 1"]TCL untuk eggdrop ini direlease oleh JoJo pada tahun 2009, namun set nya manual. Kali ini saya memodifikasi atas request @[USER=5]genin[/USER] dan rekan-rekan lainnya untuk auto update dan bisa melihat berbagai daerah di Indonesia.. bisa multi channel namun hanya 1 daerah yang otomatis.. semoga berguna.. license nya free to use dan modifikasi asal credits tidak dihapus.. respect! Akurasi dari hasil waktu adzan-nya berdasarkan website jadwalsholat.org bisa di download langsung ke [url]https://raw.githubusercontent.com/valendono/TCL-Eggdrop/master/adzan.tcl[/url] [CODE] ###################################################################### # Adzan By JoJo # Modifikasi otomatis oleh dono - irc.ayochat.or.id # Version 1.0.1 # Initial release: 20 November 2009 # Modifikasi oleh dono: 20 April 2014 # last update 23 April 2014 ###################################################################### # 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' ###################################################################### ###################################################################### bind pub - !adzan pub:sholat bind RAW - 391 pub:waktureply bind time - "00 * * * *" sholat set multichan "#help #indowebster" set sedangrunning "true" set kodedaerah "Jakarta Pusat" set daerah "308" # ganti daerah yang diinginkan proc percetakan {} { global kodedaerah daerah cetak $daerah "$kodedaerah" "" } proc otomatis {} { pub:pengecekan percetakan } proc sholat {mins hours days months years} { pub:pengecekan percetakan } 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" } "batu" { set daerah "32" set namadaerah "Batu" } "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" } default { set daerah "$daerah" set namadaerah "$kodedaerah" } } cetak $daerah $namadaerah $chan } proc cetak {daerah namadaerah chan} { global multichan waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya set connect [::http::geturl http://www.jadwalsholat.org/adzan/daily.php?id=$daerah] set files [::http::data $connect] set l [regexp -all -inline -- {.*?<tr class="table_light" align="center"><td><b>.*?</b></td><td>.*?</td><td>(.*?)</td><td>.*?</td><td>.*?</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td></tr>.*?<tr class="table_block_title"><td colspan="9"><b> :: Parameter</b></td></tr>} $files] if {[llength $l] != 0} { foreach {black a b c d e} $l { set a [string trim $a " \n"] set b [string trim $b " \n"] set c [string trim $c " \n"] set d [string trim $d " \n"] set e [string trim $e " \n"] regsub -all {<.+?>} $a {} a regsub -all {<.+?>} $b {} b regsub -all {<.+?>} $c {} c regsub -all {<.+?>} $d {} d regsub -all {<.+?>} $e {} e if {[llength $chan] != 0} { puthelp "PRIVMSG $chan :\[\002Adzan $namadaerah\002\] Subuh: $a - Dzuhur: $b - Ashar: $c - Maghrib: $d - Isya: $e" } else { putlog "loading dan copy dari web ..." } set waktusubuh "$a:00" set waktudzuhur "$b:00" set waktuashar "$c:00" set waktumaghrib "$d:00" set waktuisya "$e:00" } } } set jam "00:00:xx" set jamclean "00:00:00" set waktu "xx xx xx" set servtime "delta.ca.us.ayochat.or.id" set parent "" set jamcocok "00:00:00" set cektiap 1 set sedangrunning "true" set adzanrange "false" proc konekserver {} { global botnick servtime putquick "TIME $servtime" } #set jam, jamclean, waktu proc setwaktu { channel arguments } { global botnick servtime waktu jam jamclean set day [lindex [split $arguments] 2] if {$day == ":Monday"} { set hari "Senin" } if {$day == ":Tuesday"} { set hari "Selasa" } if {$day == ":Wednesday"} { set hari "Rabu" } if {$day == ":Thursday"} { set hari "Kamis" } if {$day == ":Friday"} { set hari "Jum'at" } if {$day == ":Saturday"} { set hari "Sabtu" } if {$day == ":Sunday"} { set hari "Minggu" } set tanggal [lindex [split $arguments] 4] set month [lindex [split $arguments] 3] if {$month == "January"} { set bulan "Januari" } if {$month == "February"} { set bulan "Februari" } if {$month == "March"} { set bulan "Maret" } if {$month == "April"} { set bulan "April" } if {$month == "May"} { set bulan "Mei" } if {$month == "June"} { set bulan "Juni" } if {$month == "July"} { set bulan "Juli" } if {$month == "August"} { set bulan "Agustus" } if {$month == "September"} { set bulan "September" } if {$month == "October"} { set bulan "Oktober" } if {$month == "November"} { set bulan "November" } if {$month == "December"} { set bulan "Desember" } set tahun [lindex [split $arguments] 5] set jam [lindex [split $arguments] 7] set temp1 [lindex [split $jam :] 0] set temp2 [lindex [split $jam :] 1] set jamclean "$temp1:$temp2:00" set waktu "$hari - $tanggal $bulan $tahun - $jam WIB" } proc iscocok { text } { global jamclean if { $jamclean == $text } { return 1 } else { return 0 } } proc pub:waktureply { from keyword arguments } { global multichan parent setwaktu "help" $arguments if { $parent == "showadzan" } { pub:adzanstatus } } proc pub:pengecekan {} { global sedangrunning cektiap waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya multichan if {[llength $waktusubuh] == 0} { percetakan } if { $sedangrunning == "true" } { konekserver if { [iscocok $waktusubuh] } { pub:showadzan "Subuh" $waktusubuh } if { [iscocok $waktudzuhur] } { pub:showadzan "Dzuhur" $waktudzuhur } if { [iscocok $waktuashar] } { pub:showadzan "Ashar" $waktuashar } if { [iscocok $waktumaghrib] } { pub:showadzan "Maghrib" $waktumaghrib } if { [iscocok $waktuisya] } { pub:showadzan "Isya" $waktuisya } timer [expr $cektiap] pub:pengecekan } } proc pub:setkonekserver {} { konekserver } proc pub:showadzan { text jamnya } { global multichan adzanrange kodedaerah daerah if { $adzanrange == "false" } { foreach channel $multichan { puthelp "PRIVMSG $channel : Allahu akbar.. Allahu akbar.." puthelp "PRIVMSG $channel :Waktu tepat menunjukan pukul $jamnya WIB, waktunya utk melaksanakan ibadah solat $text untuk daerah $kodedaerah dan sekitar nya" putquick "NOTICE $channel :$jamnya WIB - Sholat $text untuk $kodedaerah dan sekitarnya" } set adzanrange "true" timer 2 turnoff:adzanrange return 0 } } proc turnoff:adzanrange {} { global adzanrange set adzanrange "false" } proc pub:adzan { nick uhost hand chan text } { global parent sedangrunning waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya if { [llength $waktusubuh] != 0} { set parent "adzan" set text [string tolower $text] if {[string match "#*" $text]} { puthelp "NOTICE $nick :Gunakan: !adzan start , atau !adzan stop" return 0 } elseif {$text == "start" && [isop $nick $chan] } { set sedangrunning "true" pub:pengecekan puthelp "NOTICE $nick :Adzan diaktifkan" } elseif {$text == "stop" && [isop $nick $chan] } { set sedangrunning "false" puthelp "NOTICE $nick :Adzan berhenti" } elseif {$text == ""} { konekserver set parent "showadzan" } } else { percetakan } } proc pub:adzanstatus {} { global multichan waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya waktu parent set parent "adzanstatus" foreach channel $multichan { puthelp "PRIVMSG $channel :Jakarta Pusat: $waktu - Subuh: $waktusubuh - Dzuhur : $waktudzuhur - Ashar: $waktuashar - Maghrib : $waktumaghrib - Isya: $waktuisya" } } set init-server { global kodedaerah daerah putlog "Init server dan lakukan pengecekan" cetak $daerah "$kodedaerah" "" set sedangrunning "true" pub:pengecekan } putlog "Adzan Time By JoJo - Modifikasi otomatis oleh dono - irc.ayochat.or.id" [/CODE] Enjoy![/QUOTE]
Log in with Facebook
Your name or email address:
Do you already have an account?
No, create an account now.
Yes, my password is:
Forgot your password?
Stay logged in
Ayochat - Indonesian Chat Network
Home
Forums
>
Ayochat General
>
IRC Bot, Scripting dan Clients
>
TCL
Adzan Otomatis
>
