!iftar Şehir RemoteSi
Merhabalar. Malum ramazan ayı ve sokağa çıkma yasaklarının olduğu, sosyal izolasyonun yaşandığı olağanüstü bir dönemdeyiz. Bu yüzden çoğumuz vakti bilgisayar başında geçirmekte ve haliyle ilgisi olan arkadaşlar da sohbet sunucularında vakit geçirmektedir. Bu yüzden can sıkıntısından !iftar şehir kodunu yazdım..
Yazar: CesuryureK
----------------------
KULLANIM BİLGİSİ
* Kodu KENDİNİZ kullanacaksanız herhangi bir kanalda !xiftar şehir yazmanız yeterlidir.
* Kodu bir bota entegre edecekseniz bota kodu ekledikten sonra herhangi bir kanalda !iftar şehir yazmanız yeterli olacaktır.
* Eğer ki botun ilgili şehrin iftar vakti geldiğinde amsg olarak kanallara "Falanca şehrin iftar vakti geldi. Saat: falanca" yazmasını istiyorsanız kodu ekledikten sonra /iftarsaat komutunu yapmanız yeterli olacaktır. (Bot sunucudan çıkartılıp tekrar sokulursa /iftarsaat komutunu kullanması gerek veya start eventine eklenebilir.)
* Eğer ki amsg çekmesini istemiyor sadece bir kanala mesajın gitmesini istiyorsanız kodda 2 yerde geçen /amsg mesajı yerine /msg #kanalismi şeklinde değiştirmeniz gerekmektedir.
Merhabalar. Malum ramazan ayı ve sokağa çıkma yasaklarının olduğu, sosyal izolasyonun yaşandığı olağanüstü bir dönemdeyiz. Bu yüzden çoğumuz vakti bilgisayar başında geçirmekte ve haliyle ilgisi olan arkadaşlar da sohbet sunucularında vakit geçirmektedir. Bu yüzden can sıkıntısından !iftar şehir kodunu yazdım..
Yazar: CesuryureK
----------------------
KULLANIM BİLGİSİ
* Kodu KENDİNİZ kullanacaksanız herhangi bir kanalda !xiftar şehir yazmanız yeterlidir.
* Kodu bir bota entegre edecekseniz bota kodu ekledikten sonra herhangi bir kanalda !iftar şehir yazmanız yeterli olacaktır.
* Eğer ki botun ilgili şehrin iftar vakti geldiğinde amsg olarak kanallara "Falanca şehrin iftar vakti geldi. Saat: falanca" yazmasını istiyorsanız kodu ekledikten sonra /iftarsaat komutunu yapmanız yeterli olacaktır. (Bot sunucudan çıkartılıp tekrar sokulursa /iftarsaat komutunu kullanması gerek veya start eventine eklenebilir.)
* Eğer ki amsg çekmesini istemiyor sadece bir kanala mesajın gitmesini istiyorsanız kodda 2 yerde geçen /amsg mesajı yerine /msg #kanalismi şeklinde değiştirmeniz gerekmektedir.
Kod:
on *:TEXT:*:#: {
if $regex($strip($1),/(^[.!\-*][iİı]ftar)$/i) && $2 && (%iftarsehri) { msg $chan Şu an komut meşgul lütfen 5 saniye sonra deneyiniz. | halt }
if $regex($strip($1),/(^[.!\-*][iİı]ftar)$/i) && $2 && (!%iftarsehri) && (%iftarsehiruyari) { msg $chan Veri tabanı güncelleniyor. Lütfen 5 dakika sonra deneyiniz. | halt }
if $regex($strip($1),/(^[.!\-*][iİı]ftar)$/i) && $2 && (!%iftarsehri) && (!%iftarsehiruyari) { set -u6 %iftarkanal $chan | .iftarx $strip($2) }
}
alias iftarsaat { //Timerifx -o 18:00 1 1 /iftarsehiruyari }
alias iftarx {
if $regex($1,/(^[iİ]stanbul|[iİı]zm[iİı]r$)/i) {
set -u5 %iftarsehri $replace($lower($1),İ,i,ı,i,I,i)
if $sock(iftar) { sockclose iftar }
sockopen iftar www.ircforumlar.com 80
.halt
}
if $regex($1,/(^afyon|afyonkarah[iİı]sar$)/i) {
set -u5 %iftarsehri Afyonkarahisar
if $sock(iftar) { sockclose iftar }
sockopen iftar www.ircforumlar.com 80
.halt
}
if $regex($1,/(^[ıIiİ][Ğğg]d[ıIiİ]r$)/i) {
set -u5 %iftarsehri Igdir
if $sock(iftar) { sockclose iftar }
sockopen iftar www.ircforumlar.com 80
.halt
}
if $regex($1,/(^[ıIiİ]sparta$)/i) {
set -u5 %iftarsehri Isparta
if $sock(iftar) { sockclose iftar }
sockopen iftar www.ircforumlar.com 80
.halt
}
if $regex($1,/(^kocael[iİı]|[iİı]zm[iİı]t$)/i) {
set -u5 %iftarsehri Kocaeli_(izmit)
if $sock(iftar) { sockclose iftar }
sockopen iftar www.ircforumlar.com 80
.halt
}
if $regex($1,/(^sakarya|adapazar[iİı]$)/i) {
set -u5 %iftarsehri Sakarya_(Adapazari)
if $sock(iftar) { sockclose iftar }
sockopen iftar www.ircforumlar.com 80
.halt
}
set -u5 %iftarsehri $replace($+($upper($left($1,1)),$right($lower($1),-1)),ı,i,ü,u,Ş,S,ş,s,Ü,U,ğ,g,Ğ,G,Ö,O,ö,o,ç,c,Ç,C)
if $sock(iftar) { sockclose iftar }
sockopen iftar www.namazzamani.net 80
}
on *:sockopen:iftar:{
sockwrite -n $sockname GET $+(/,%iftarsehri,-namaz-vakitleri-m.tr) HTTP/1.1
sockwrite -n $sockname Host: namazzamani.net
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -n $sockname $crlf
}
on *:sockread:iftar: {
var %iftar
sockread %iftar
if ("aksam" isin %iftar) && (!%iftarsehiruyari) {
$iif($regex($replace($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58),09,9),/(^0[123456780]$)/i),msg %iftarkanal $+($+($chr(3),4,$replace(%iftarsehri,_,$chr(32)),$chr(3)) için İftar Saati:,$chr(3),4,$chr(32),$gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),1,58),:0,$calc($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58)+1),$chr(3),$chr(32),-,$chr(32),Tarih:,$chr(32),$chr(3),4,$+([,$date,]),$chr(3)),msg %iftarkanal $+($+($chr(3),4,$replace(%iftarsehri,_,$chr(32)),$chr(3)) için İftar Saati:,$chr(3),4,$chr(32),$gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),1,58),:,$calc($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58)+1),$chr(3),$chr(32),-,$chr(32),Tarih:,$chr(32),$chr(3),4,$+([,$date,]),$chr(3)))
sockclose iftar
}
if ("aksam" isin %iftar) && (%iftarsehiruyari) {
$iif($regex($replace($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58),09,9),/(0[123456780])/i),.Timer -o $+($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),1,58),$chr(58),$chr(48),$calc($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58)+1)) 1 1 /amsg $+($chr(3),4,$replace(%iftarsehri,_,$chr(32)),$chr(3)) için İftar Vakti Geldi. $+(SAAT:,$chr(3),4,$chr(32),$gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),1,58),$chr(58),$chr(48),$calc($replace($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58),09,9)+1),$chr(3)),.Timer -o $+($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),1,58),:,$calc($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58)+1)) 1 1 /amsg $+($chr(3),4,$replace(%iftarsehri,_,$chr(32)),$chr(3)) için İftar Vakti Geldi. $+(SAAT:,$chr(3),4,$chr(32),$gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),1,58),:,$calc($gettok($remove($gettok(%iftar,2-,34),</li>,aksam">),2,58)+1)))
}
}
alias iftarsehiruyari {
.set -u415 %iftarsehiruyari 1
.timeriftar5 1 5 .iftarx Adana
.timeriftar10 1 10 .iftarx Adiyaman
.timeriftar15 1 15 .iftarx Afyonkarahisar
.timeriftar20 1 20 .iftarx Agri
.timeriftar25 1 25 .iftarx Aksaray
.timeriftar30 1 30 .iftarx Amasya
.timeriftar35 1 35 .iftarx Ankara
.timeriftar40 1 40 .iftarx Antalya
.timeriftar45 1 45 .iftarx Ardahan
.timeriftar50 1 50 .iftarx Artvin
.timeriftar55 1 55 .iftarx Aydin
.timeriftar60 1 60 .iftarx Balikesir
.timeriftar65 1 65 .iftarx Bartin
.timeriftar70 1 70 .iftarx Batman
.timeriftar75 1 75 .iftarx Bayburt
.timeriftar80 1 80 .iftarx Bilecik
.timeriftar85 1 85 .iftarx Bingol
.timeriftar90 1 90 .iftarx Bitlis
.timeriftar95 1 95 .iftarx Bolu
.timeriftar100 1 100 .iftarx Burdur
.timeriftar105 1 105 .iftarx Bursa
.timeriftar110 1 110 .iftarx Canakkale
.timeriftar115 1 115 .iftarx Cankiri
.timeriftar120 1 120 .iftarx Corum
.timeriftar125 1 125 .iftarx Denizli
.timeriftar130 1 130 .iftarx Diyarbakir
.timeriftar135 1 135 .iftarx Duzce
.timeriftar140 1 140 .iftarx Edirne
.timeriftar145 1 145 .iftarx Elazig
.timeriftar150 1 150 .iftarx Erzincan
.timeriftar155 1 155 .iftarx Erzurum
.timeriftar160 1 160 .iftarx EskiSehir
.timeriftar165 1 165 .iftarx Gaziantep
.timeriftar170 1 170 .iftarx Giresun
.timeriftar175 1 175 .iftarx GumuShane
.timeriftar180 1 180 .iftarx Hakkari
.timeriftar185 1 185 .iftarx Hatay
.timeriftar190 1 190 .iftarx Igdir
.timeriftar195 1 195 .iftarx Isparta
.timeriftar200 1 200 .iftarx istanbul
.timeriftar205 1 205 .iftarx izmir
.timeriftar210 1 210 .iftarx KahramanmaraS
.timeriftar215 1 215 .iftarx Karabuk
.timeriftar220 1 220 .iftarx Karaman
.timeriftar225 1 225 .iftarx Kars
.timeriftar230 1 230 .iftarx Kastamonu
.timeriftar235 1 235 .iftarx Kayseri
.timeriftar240 1 240 .iftarx Kilis
.timeriftar245 1 245 .iftarx Kirikkale
.timeriftar250 1 250 .iftarx Kirklareli
.timeriftar255 1 255 .iftarx KirSehir
.timeriftar260 1 260 .iftarx Kocaeli
.timeriftar265 1 265 .iftarx Konya
.timeriftar270 1 270 .iftarx Kutahya
.timeriftar275 1 275 .iftarx Malatya
.timeriftar280 1 280 .iftarx Manisa
.timeriftar285 1 285 .iftarx Mardin
.timeriftar290 1 290 .iftarx Mersin
.timeriftar295 1 295 .iftarx Mugla
.timeriftar300 1 300 .iftarx MuS
.timeriftar305 1 305 .iftarx NevSehir
.timeriftar310 1 310 .iftarx Nigde
.timeriftar315 1 315 .iftarx Ordu
.timeriftar320 1 320 .iftarx Osmaniye
.timeriftar325 1 325 .iftarx Rize
.timeriftar330 1 330 .iftarx Sakarya
.timeriftar335 1 335 .iftarx Samsun
.timeriftar340 1 340 .iftarx Sanliurfa
.timeriftar345 1 345 .iftarx Siirt
.timeriftar350 1 350 .iftarx Sinop
.timeriftar355 1 355 .iftarx Sivas
.timeriftar360 1 360 .iftarx Sirnak
.timeriftar365 1 365 .iftarx Tekirdag
.timeriftar370 1 370 .iftarx Tokat
.timeriftar375 1 375 .iftarx Trabzon
.timeriftar380 1 380 .iftarx Tunceli
.timeriftar385 1 385 .iftarx USak
.timeriftar390 1 390 .iftarx Van
.timeriftar395 1 395 .iftarx Yalova
.timeriftar400 1 400 .iftarx Yozgat
.timeriftar405 1 405 .iftarx Zonguldak
timer -o 18:10 1 1 /iftarsaat
}
on *:input:#:{
if $regex($strip($1),/(^[.!\-*]x[iİı]ftar)$/i) && !$2 { msg $chan $nick Şehir ismi yazmadınız. Kullanımı: $+($chr(3),4,!iftar istanbul,$hr(3)) | halt }
if $regex($strip($1),/(^[.!\-*]x[iİı]ftar)$/i) && $2 && (%iftarsehri) { msg $chan Şu an komut meşgul lütfen 5 saniye sonra deneyiniz. | halt }
if $regex($strip($1),/(^[.!\-*]x[iİı]ftar)$/i) && $2 && (!%iftarsehri) && (%iftarsehiruyari) { msg $chan Veri tabanı güncelleniyor. Lütfen 5 dakika sonra deneyiniz. | halt }
if $regex($strip($1),/(^[.!\-*]x[iİı]ftar)$/i) && $2 && (!%iftarsehri) && (!%iftarsehiruyari) { set -u6 %iftarkanal $chan | .iftarx $strip($2) }
}
