IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet odaları

Duyuru:Yeni forumumuza geçiş süreci başlamıştır. Bu süreçte yaşanabilecek erişim sorunları veya diğer teknik aksaklıklar için anlayışınızı rica ederiz. Sabır ve desteğiniz için teşekkür ederiz.
Etiketlenen Kullanıcılar

14Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 10 Mart 2024, 22:15   #11
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: IFTAR Bot




Buyur @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] . Hatalı şehirden sonra zaman verme sorunun giderildi. Kırmızılı yerleri ayarlayıp Mircinde kullanabilirsin böyle ;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias _if-kanallar return #kanal1 #kanal2 #kanal3 on *:sockopen:iftar*:{ if ($sockerr) { swibot privmsg $token($sock($sockname).mark,2,172) $+(:,$_qt3(HATA),:) Sorgu yapılan siteye şu an bağlanamıyor. | sockclose $sockname } else { sockwrite -nt $sockname GET $+(/iftar.php?il=,$token($sock($sockname).mark,1,172)) HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 sockwrite -nt $sockname Upgrade-Insecure-Requests: 1 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.155 Safari/537.36 sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4 sockwrite -nt $sockname $crlf } } on *:sockread:iftar*:{ var %:iftar | sockread %:iftar | tokenize 32 %:iftar if $regex($1-,/<durum>Hata<\/durum>/Si) { msg $token($sock($sockname).mark,2,172) $+(:4,$token($sock($sockname).mark,1,172),) IL ismi hatalı! | sockclose $sockname } elseif $regex(i,$1-,/ili için bilgiler/Si) { msg $token($sock($sockname).mark,2,172) :4———————–1<12 $upper($token($sock($sockname).mark,1,172)) 1>4——————— msg $token($sock($sockname).mark,2,172) : } elseif $regex(i,$1-,/<durum>(.+)\= (.+)<\/durum>/Si) { msg $token($sock($sockname).mark,2,172) $+(:,$regml(i,1)) : $regml(i,2) } elseif $regex($1-,/<durum>Bitti!<\/durum>/Si) { msg $token($sock($sockname).mark,2,172) : msg $token($sock($sockname).mark,2,172) :4———————–1<12 $upper($token($sock($sockname).mark,1,172)) 1>4——————— .hinc -msu60 CHNiftar $token($sock($sockname).mark,3,172) sockclose $sockname } } alias _saat return $regsubex($replace($duration($1-),wks,hafta,days,gün,hrs,saat,mins,dakika,secs,saniye,wk,hafta,day,gün,hr,saat,min,dakika,sec,saniye),/(\d+)/gSi,\1 $chr(32)) ;========================================================== on *:text:*:#: { if # == $_if-kanallar { if $regex($remove($1,:),/^[!.-][ıiİ]ftar$/Si) { if !$2 { msg # :2Lütfen 4!iftar 2<4IL2> olarak belirtiniz. | halt } if $hget(CHNiftar,$nick) { msg # $nick , $+(4,$remove($1,:),) komutunu kullanmanız için $_saat($hget(CHNiftar,$nick).unset) beklemeniz gerek. | halt } var %:i = $replace($lower($strip($2)),ç,c,ğ,g,ş,s,ı,i,ö,o,ü,u,Ç,c,Ğ,g,Ş,s,İ,i,I,i,Ö,o,Ü,u) | sockopen $+(iftar,$nick) igs.mirc.net.tr 80 | sockmark $+(iftar,$nick) $+(%:i,¬,$chan,¬,$nick) } } }

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
Uyuyan hücreler elbet uyanacak
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet bizimmekan
Alt 11 Mart 2024, 01:10   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: IFTAR Bot




Enes Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Buyur @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] . Hatalı şehirden sonra zaman verme sorunun giderildi. Kırmızılı yerleri ayarlayıp Mircinde kullanabilirsin böyle ;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias _if-kanallar return #kanal1 #kanal2 #kanal3 on *:sockopen:iftar*:{ if ($sockerr) { swibot privmsg $token($sock($sockname).mark,2,172) $+(:,$_qt3(HATA),:) Sorgu yapılan siteye şu an bağlanamıyor. | sockclose $sockname } else { sockwrite -nt $sockname GET $+(/iftar.php?il=,$token($sock($sockname).mark,1,172)) HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 sockwrite -nt $sockname Upgrade-Insecure-Requests: 1 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.155 Safari/537.36 sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4 sockwrite -nt $sockname $crlf } } on *:sockread:iftar*:{ var %:iftar | sockread %:iftar | tokenize 32 %:iftar if $regex($1-,/<durum>Hata<\/durum>/Si) { msg $token($sock($sockname).mark,2,172) $+(:4,$token($sock($sockname).mark,1,172),) IL ismi hatalı! | sockclose $sockname } elseif $regex(i,$1-,/ili için bilgiler/Si) { msg $token($sock($sockname).mark,2,172) :4———————–1<12 $upper($token($sock($sockname).mark,1,172)) 1>4——————— msg $token($sock($sockname).mark,2,172) : } elseif $regex(i,$1-,/<durum>(.+)\= (.+)<\/durum>/Si) { msg $token($sock($sockname).mark,2,172) $+(:,$regml(i,1)) : $regml(i,2) } elseif $regex($1-,/<durum>Bitti!<\/durum>/Si) { msg $token($sock($sockname).mark,2,172) : msg $token($sock($sockname).mark,2,172) :4———————–1<12 $upper($token($sock($sockname).mark,1,172)) 1>4——————— .hinc -msu60 CHNiftar $token($sock($sockname).mark,3,172) sockclose $sockname } } alias _saat return $regsubex($replace($duration($1-),wks,hafta,days,gün,hrs,saat,mins,dakika,secs,saniye,wk,hafta,day,gün,hr,saat,min,dakika,sec,saniye),/(\d+)/gSi,\1 $chr(32)) ;========================================================== on *:text:*:#: { if # == $_if-kanallar { if $regex($remove($1,:),/^[!.-][ıiİ]ftar$/Si) { if !$2 { msg # :2Lütfen 4!iftar 2<4IL2> olarak belirtiniz. | halt } if $hget(CHNiftar,$nick) { msg # $nick , $+(4,$remove($1,:),) komutunu kullanmanız için $_saat($hget(CHNiftar,$nick).unset) beklemeniz gerek. | halt } var %:i = $replace($lower($strip($2)),ç,c,ğ,g,ş,s,ı,i,ö,o,ü,u,Ç,c,Ğ,g,Ş,s,İ,i,I,i,Ö,o,Ü,u) | sockopen $+(iftar,$nick) igs.mirc.net.tr 80 | sockmark $+(iftar,$nick) $+(%:i,¬,$chan,¬,$nick) } } }

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

cok teşekkürler kardeşim eline emegine saglık

 
Alıntı ile Cevapla

Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
iftar.tcl rascoLn TCL Scriptler 3 30 Haziran 2014 18:26
Iftar yemegi - 3 :d Stella Yalan Haber 14 16 Ağustos 2012 18:20
Guinness'lik iftar Caddeci Haber Arşivi 0 22 Ağustos 2010 10:51