Code:

bind pub - !adzan pub:sholatbind RAW - 391 pub:waktureplybind time - "00 * * * *" sholatset multichan "#help #indowebster"set sedangrunning "true"set kodedaerah "Jakarta Pusat"set daerah "308"proc percetakan {} { global kodedaerah daerahcetak $daerah "$kodedaerah" ""}proc otomatis {} {pub:pengecekanpercetakan}proc sholat {mins hours days months years} { pub:pengecekanpercetakan}proc pub:sholat {nick uhost hand chan text} {global daerah kodedaerahset 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" }"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 {} eif {[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 1set sedangrunning "true"set adzanrange "false"proc konekserver {} {global botnick servtimeputquick "TIME $servtime"}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 jamcleanif { $jamclean == $text } {return 1} else {return 0}}proc pub:waktureply { from keyword arguments } {global multichan parentsetwaktu "help" $argumentsif { $parent == "showadzan" } {pub:adzanstatus}}proc pub:pengecekan {} {global sedangrunning cektiap waktusubuh waktudzuhur waktuashar waktumaghrib waktuisya multichanif {[llength $waktusubuh] == 0} { percetakan }if { $sedangrunning == "true" } {konekserverif { [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 daerahif { $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:adzanrangereturn 0}}proc turnoff:adzanrange {} {global adzanrangeset adzanrange "false"}proc pub:adzan { nick uhost hand chan text } {global parent sedangrunning waktusubuh waktudzuhur waktuashar waktumaghrib waktuisyaif { [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 parentset 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 daerahputlog "Init server dan lakukan pengecekan" cetak $daerah "$kodedaerah" ""set sedangrunning "true"pub:pengecekan}