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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   [!.]iftar ŞEHİR (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1006459-iftar-sehir.html)

Toprak 23 Mart 2023 15:34
[!.]iftar ŞEHİR
 
Merhaba,
Kendi botuma ekledim belki işine yarayan olur;


Kod:
on *:text:*:#:{
  if $regex($1,/^[!.][ıiİ]ftar$/Si) {
    if !$2 { msg # Lütfen !iftar ŞEHİR olarak belirtin. }
    else {
      var %:il = $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) $+(%:il,¬,#)
    }
  }
}
on *:sockopen:iftar*:{
  if ($sockerr) { msg $token($sock($sockname).mark,2,172) 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———————
    sockclose $sockname
  }
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

noexity 23 Mart 2023 15:40
Cevap: [!.]iftar ŞEHİR
 
Emeğine sağlık, gayet güzel çalışıyor.

Sukunet 23 Mart 2023 15:43
Cevap: [!.]iftar ŞEHİR
 
Konu ibo ise artık şaşırmıyoruz. Eline sağlık dostum.

Forbidden 23 Mart 2023 15:52
Cevap: [!.]iftar ŞEHİR
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emegine saglik hayırlı ramazanlar dilerim

xlxlxl 23 Mart 2023 16:09
Cevap: [!.]iftar ŞEHİR
 
eline sağlık :) test edildi onaylandı

helloweenfs 23 Mart 2023 17:44
Cevap: [!.]iftar ŞEHİR
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] eline emeğine yüreğine sağlık gayet güzel ve sorunsuz çalışıyor hayırlı ramazanlar paylaşım için çok teşekkürler

NucLeaR 23 Mart 2023 19:22
Cevap: [!.]iftar ŞEHİR
 
Eline sağlık kardeşim

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

Sarya 23 Mart 2023 19:27
Cevap: [!.]iftar ŞEHİR
 
Emeğine sağlık

Enes 23 Mart 2023 23:05
Cevap: [!.]iftar ŞEHİR
 
Eline emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

SNOOPY 24 Mart 2023 01:01
Cevap: [!.]iftar ŞEHİR
 
Eline sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Korkut 27 Mart 2023 10:27
Cevap: [!.]iftar ŞEHİR
 
(ImsakBot) İftar Vakti : (İftar vakti geçti)
Bu şwkilde hata veriyor

Toprak 27 Mart 2023 16:03
Cevap: [!.]iftar ŞEHİR
 
Alıntı:
Korkut Nickli Üyeden Alıntı (Mesaj 1042786002)
(ImsakBot) İftar Vakti : (İftar vakti geçti)
Bu şwkilde hata veriyor

Bir sorun yok kodda kaç gündür kullanıyoruz :)
Mirc versionu kaç ?

Korkut 27 Mart 2023 18:22
Cevap: [!.]iftar ŞEHİR
 
surum 6.35 usta

GeneraL 29 Mart 2023 01:06
Cevap: [!.]iftar ŞEHİR
 
Emeğine sağlık bunun SOCKET olarak düzenleyebilirmisin acaba
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1042785169)
Merhaba,
Kendi botuma ekledim belki işine yarayan olur;


Kod:
on *:text:*:#:{
  if $regex($1,/^[!.][ıiİ]ftar$/Si) {
    if !$2 { msg # Lütfen !iftar ŞEHİR olarak belirtin. }
    else {
      var %:il = $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) $+(%:il,¬,#)
    }
  }
}
on *:sockopen:iftar*:{
  if ($sockerr) { msg $token($sock($sockname).mark,2,172) 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———————
    sockclose $sockname
  }
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Toprak 29 Mart 2023 16:15
Cevap: [!.]iftar ŞEHİR
 
Alıntı:
Korkut Nickli Üyeden Alıntı (Mesaj 1042786112)
surum 6.35 usta
Bu sorunu yaşadım bende, gözden kaçan bir detay düzelttim.

Alıntı:
GeneraL Nickli Üyeden Alıntı (Mesaj 1042786431)
Emeğine sağlık bunun SOCKET olarak düzenleyebilirmisin acaba
Tabi:

Kod:
on *:sockread:SOCKISMI:{
alt kısmına uygun şekilde ekleyin;

Kod:
if $regex($2,/^PRIVMSG$/Si) && $regex($3,/^#/) {
  if $regex($remove($4,:),/^[!.-][ıiİ]ftar$/Si) {
    if !$5 { sockwrite -nt $sockname privmsg $3 :2Lütfen 4!iftar 2<4IL2> olarak belirtiniz. }
    else { var %:i = $replace($lower($strip($5)),ç,c,ğ,g,ş,s,ı,i,ö,o,ü,u,Ç,c,Ğ,g,Ş,s,İ,i,I,i,Ö,o,Ü,u) | sockopen $+(iftar,$3,%:i) igs.mirc.net.tr 80 | sockmark $+(iftar,$3,%:i) $+(%:i,¬,$3) }
  }
}
Bunu da boş bir yere ekle karıştırma =)

Kod:
on *:sockopen:iftar*:{
  if ($sockerr) { sockwrite -nt $sockname 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) { sockwrite -nt $sockname privmsg $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) {
    sockwrite -nt $sockname privmsg $token($sock($sockname).mark,2,172) :4———————–1<12 $upper($token($sock($sockname).mark,1,172)) 1>4———————
    sockwrite -nt $sockname privmsg $token($sock($sockname).mark,2,172) :
  }
  elseif $regex(i,$1-,/<durum>(.+)\= (.+)<\/durum>/Si) { swibot privmsg $token($sock($sockname).mark,2,172) $+(:,$regml(i,1)) : $regml(i,2) }
  elseif $regex($1-,/<durum>Bitti!<\/durum>/Si) {
    sockwrite -nt $sockname privmsg $token($sock($sockname).mark,2,172) :
    sockwrite -nt $sockname privmsg $token($sock($sockname).mark,2,172) :4———————–1<12 $upper($token($sock($sockname).mark,1,172)) 1>4———————
    sockclose $sockname
  }
}

GeneraL 30 Mart 2023 02:46
Cevap: [!.]iftar ŞEHİR
 
teşekkür edelim eline sağlık birde iftar vakti olayını iletiyormu oda çıkıyor ise tamamdır bu iş

Toprak 30 Mart 2023 02:53
Cevap: [!.]iftar ŞEHİR
 
Alıntı:
GeneraL Nickli Üyeden Alıntı (Mesaj 1042786619)
teşekkür edelim eline sağlık birde iftar vakti olayını iletiyormu oda çıkıyor ise tamamdır bu iş

Hangi iftar vakti, kodda sorun yok denedin mi

GeneraL 30 Mart 2023 19:34
Cevap: [!.]iftar ŞEHİR
 
iftar olunca istanbul için iftar vakti olayı demek istemiştim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:34 -->-> Daha önceki mesaj 19:28 --

Alıntı:
NucLeaR Nickli Üyeden Alıntı (Mesaj 1042785187)
Eline sağlık kardeşim

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
şu resimde görüldüğü gibi iftar vakti olunca uyarısını vermiyor demek istediğim olay o

Toprak 30 Mart 2023 19:35
Cevap: [!.]iftar ŞEHİR
 
Alıntı:
GeneraL Nickli Üyeden Alıntı (Mesaj 1042786812)
iftar olunca istanbul için iftar vakti olayı demek istemiştim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:34 -->-> Daha önceki mesaj 19:28 --



şu resimde görüldüğü gibi iftar vakti olunca uyarısını vermiyor demek istediğim olay o
O TRSohbet'e yaptığım iftar botu farklı bir şey o :)

GeneraL 31 Mart 2023 20:40
Cevap: [!.]iftar ŞEHİR
 
tamam bende ondan bahsediyorum işte :) o olayıda paylaşamazmısın daha güzel mübarek olmazmı tam lazım olacak ayında

POSOFxPOWER 01 Nisan 2023 20:15
Cevap: [!.]iftar ŞEHİR
 
Hayirli ramazanlar
yurtdisi icin nasil kullanilabilir

Toprak 01 Nisan 2023 20:29
Cevap: [!.]iftar ŞEHİR
 
Alıntı:
POSOFxPOWER Nickli Üyeden Alıntı (Mesaj 1042787260)
Hayirli ramazanlar
yurtdisi icin nasil kullanilabilir

Yurt dışını sorgulamıyor sadece Türkiye =)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:22.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk