Forum Gündemi:

  Covid19 TCL
Gönderen: Aytac - 27.07.2020, 21:51 - Forum: TCL Scriptler - Cevap Yok

set covidKnl "#Kanal"

bind pub mn|oa .cov korona

proc korona {nick uhost hand chan arg} {
if {$chan ne $::covidKnl} { return 0 }
catch { eval exec curl -sS https://covid19.saglik.gov.tr/ } virus
set gunluk {}; set genel {}; set geniki {}; set gunliki {}
if {[regexp -- {<div class="takvim text-center">(.+?)</div>} $virus -> trh]} {
regsub -all -- {&#x130;} $trh \u0130 trh
lappend gunluk \00312$trh\003
}
if {[regexp -- {<h3 class="my-3 ilk-baslik">(.+?)</h3>.+?<p>(.+?)</p>} $virus -> guncel drm]} {
lappend gunluk \00314$guncel\003

}
if {[regexp -- {<div class="baslik-tablo">(.+?)</div>.+?<span class="buyuk-bilgi-l-yazi">(.+?)</ul>} $virus -> baslik tablo]} {
regsub -all -- {(</span>)} $tablo "|" tablo
set tbl [split $tablo |]
set tsay [lindex $tbl 0]; set tscr [lindex $tbl 1]; set vks [lindex $tbl 2]
set vkscr [lindex $tbl 3]; set vft [lindex $tbl 4]; set vtscr [lindex $tbl 5]
set bihsc [lindex $tbl 6]   ; set bihsscr [lindex $tbl 7]
lappend gunluk \00303$baslik\003 :
lappend gunliki  \002$tsay\002: \00304$tscr\003 \002$vks\002: \00304$vkscr\003
lappend gunliki \002$vft\002: \00304$vtscr\003 \002$bihsc\002: \00304$bihsscr\003
putserv "privmsg $chan :[join [stripin $gunluk]]"
putserv "privmsg $chan :[join [stripin $gunliki]]"
}
if {[regexp -- {<ul class=.+?>(.+?)</ul>} $virus -> gnl]} {
regsub -all -- {(</span>)} $gnl "|" gnl
regsub -all -- {(-->)} $gnl {} gnl
set spl [split $gnl |]
set ttsa [lindex $spl 0]; set tesscr [lindex $spl 2]; set tplvh [lindex $spl 3]
set tplsk [lindex $spl 4]; set tmvs [lindex $spl 5]; set tvsay [lindex $spl 6]
set tyobak [lindex $spl 7]; set tybsc [lindex $spl 8]; set enths [lindex $spl 9]
set tehsy [lindex $spl 10]; set iyihs [lindex $spl 11]; set tihsy [lindex $spl 12]
lappend genel \002$ttsa\002: \00304$tesscr\003 \002$tplvh\002: \00304$tplsk\003 \002$tmvs\002: \00304$tvsay\003
lappend geniki \002$tyobak\002: \00304$tybsc\003 \002$enths\002: \00304$tehsy\003 \002$iyihs\002: \00304$tihsy\003
putserv "privmsg $chan :[join [stripin $genel]]"
putserv "privmsg $chan :[join [stripin $geniki]]"
}
return 0
}

proc stripin str {
regsub -all -- "<.+?>" $str {} str
regsub -all -- {\s+} $str " " str
return [string trim $str]
}

Kod sahibi: Heartbroken

Kullanımı;

set covidKnl "#Kanal" bilgileri verecek kanal adını yazın.
.cov komutuyla botu kullanabilirsiniz.

[Resim: cov.png]


  mIRC Küfür Koruması (Hotlink)
Gönderen: Aytac - 07.07.2020, 22:38 - Forum: mIRC Scripting Hazır Kodlar - Cevap Yok

alias kfrlr return (s[iİı]kt[iİı]r|p[iİı]ç(s[iİı]n)*|g[öÖo]t|amc[iİı]k)
on *:text:*:#: {
  if $regex(x,$remove($1-,$chr(44),.,!,?,:,$chr(41),;),/(^|\s) $+ $kfrlr $+ (\s|$)/Si) {
    $iif(!$window(@Koruma),window -ne @Koruma)
    echo -a $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01])
    echo @Koruma $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01])
  }
}

on ^$*:hotlink:*:*:{
  if $regex($1,/\x28(Ban)\x29/Si) { return }
  elseif $regex($1,/\x28(Ban\+Kick)\x29/Si) { return }
  elseif $regex($1,/\x28(Shun)\x29/Si) { return }
  elseif $regex($1,/\x28(Zline)\x29/Si) { return }
  else { halt }
}
on *:hotlink:*:*:{
  var %nck = $token($strip($hotline),3,32), %knl = $token($strip($hotline),1,32)
  if $regex($1,/\x28(Ban)\x29/Si) {
    if $regex(ops,$nick($chan,$me).pnick,[.~%&@]) || $regex(admns,$usermode,o) {
      mode %knl +b %nck
    }
    else { echo -a Yetkiniz Yok }
  }
  elseif $regex($1,/\x28(Ban\+Kick)\x29/Si) {
    if $regex(ops,$nick($chan,$me).pnick,[.~%&@]) || $regex(admns,$usermode,o) {
      mode %knl +b %nck
      $iif(%nck ison %knl,kick %knl %nck Küfür Yasak!)
    }
    else { echo -a Yetkiniz Yok }
  }
  elseif $regex($1,/\x28(Shun)\x29/Si) {
    if $regex(admns,$usermode,o) {
      shun %nck +0 Küfür Yasak!
    }
    else { echo -a Yetkiniz Yok }
  }
  elseif $regex($1,/\x28(Zline)\x29/Si) {
    if $regex(admns,$usermode,o) {
      zline %nck +0 Küfür Yasak!
    }
    else { echo -a Yetkiniz Yok }
  }
}

alias kfrlr return yazan yere küfürleri aralarında | işaretini kullanarak eklemeniz gerekmekte.
Aktif pencere ve @koruma penceresinde bildirim ve yapabileceğiniz ceza seçenekleri gözükür


  mIRC Not kayıt etme remotesi
Gönderen: Aytac - 07.07.2020, 22:35 - Forum: mIRC Scripting Hazır Kodlar - Cevap Yok

Kod, muhabbet arasında kendisinden bilgiler(şehir, yaş, hobi, meslek vs.) aldığınız her hangi bir kişinin not kaydını oluşturmanıza olanak sağlar.

on *:open:?: {
  if $ini(hafiza.ini,$nick,0) {
    echo $nick 14>>>4 $nick 14nicki için alınan notlar gösteriliyor.
    .play -at $+ $nick for $nick hafiza.ini 
  }
}
alias not {
  if $1 = bak {
    if $regex($active,/Status\sWindow|#/) {
      echo -a 14>>>4 /not bak14 komutunu notlarına bakmak istediğin nickin özelindeyken kullanabilirsin.
      return
    }
    if !$ini(hafiza.ini,$active,0) {
      echo -a 14>>>4 $active 14nickine ait not bulunamadı.
      return
    }
    echo $active 14>>>4 $active 14nicki için alınan notlar gösteriliyor.
    .play -at $+ $active for $active hafiza.ini
  }
  if $1 = ekle {
    if $regex($active,/Status\sWindow|#/) {
      echo -a 14>>>4 /not ekle14 komutunu not eklemek istediğin nickin özelindeyken kullanabilirsin.
    return }
    if !$3 {
      echo -a 14>>>5ÖRNEK: 4 /not ekle şehir istanbul
      echo -a 14>>>12 Lütfen örnekteki gibi ekleme yapınız.
      return
    }
    writeini hafiza.ini $active $2-
    echo -a 14>>>4 $active 14nicki için12 $2- 14notu eklendi.
  } 
  if $1 = sil { 
    if !$ini(hafiza.ini,$active,0) {
      echo -a 14>>>4 $active 14nickine ait not bulunamadı.
      return
    }
    remini hafiza.ini $active
    echo -a 14>>>4 $active 14nickine ait notlar silindi.
} }
alias q {
  !query $1
  if $ini(hafiza.ini,$1,0) {
    echo $1 14>>>4 $1 14nicki için alınan notlar gösteriliyor.
    .play -at $+ $1 for $1 hafiza.ini
  }
}
alias query  {
  !query $1
  if $ini(hafiza.ini,$1,0) {
    echo $1 14>>>4 $1 14nicki için alınan notlar gösteriliyor.
    .play -at $+ $1 for $1 hafiza.ini
  }
}
alias -l for {
  echo $1 14>>>12 $replace($2-,=,: 4        )
}

Yukarıdaki kodu remote(ALT+R) kısmına ekledikten sonra aşağıdaki komutlar aktif olacaktır.

Not eklemek istediğiniz kişinin penceresi açıkken
/not ekle not-adı not
ÖRNEK: /not ekle isim Murat

Notlarını silmek istediğiniz kişinin penceresi açıkken
/not sil

Notlarına bakmak istediğiniz kişinin penceresi açıkken
/not bak

Yukarıdaki komutları uyguladıktan sonra, not eklediğiniz nick özelinize geldiğinizde ya da siz o nickin
özeline gittiğinizde alınan notlar otomatik olarak o nickin özeline sadece sizin görebileceğiniz şekilde yansıyacaktır.


  ZSohbet.Net
Gönderen: Kenan06 - 23.06.2020, 17:32 - Forum: Yeni Sunucular - Cevaplar (1)

IRCd Sunucu Adı: ZSohbet.Net

Sunucu Sahibi: ZeuS

Sunucu Bağlantı Portları: 6666

Toplam Link Sayısı: 10

Root Administrator: ZeuS

Network Administrator: RedLine

Teknik Administrator: Teqnic

Services Administrator: Papatya

Server Administrator: EneS

Co Administrator: VisnE & Kuzey

IRC Operatör:

HelpFounder:

Kullanıcı Sayısı: 80

Kanal Sayısı: 6

Sunucu Hakkında Belirtmek İstedikleriniz: Merhaba değerli ve çok kıymetli arkadaşlarım dostlarım, kendi halimizde ücretsiz bir sohbet sitesi açmış bulunuyoruz.
Tüm sohbet chat hizmetlerimiz ücretsiz olarak sunulmaktadır.ZSohbet.Net sohbet sitemizin kapıları hepinize açıktır.İster akıllı cep telefonlarınız üzerinden mobil sohbet edebilir, isterseniz bilgisayarınız üzerinden sohbet chtat yapabilirsiniz.
Sitemizde sohbet etmek için üye olmanız gerekmemektedir.Direk takma bir isim ile sohbet etmeye hemen başlayabiliriniz.
Hepinize saygı ve sevgiliermi sunar, keyifli sohbetler dilerim...

Sohbet Adresimiz: Https://www.ZSohbet.Net

Sunucu Diğer İletişim Yolları:


  IGS v1.0 [Web AUTH] Koruma Botu
Gönderen: Aytac - 13.05.2020, 15:04 - Forum: mIRC ve Socket Botlar - Cevap Yok

IRC Sunucusuna girişte proxy olarak tespit edilen kişilere doğrulama sağlaması için kullanıcının özeline web auth linki gönderilir ve 1 dakika içerisinde doğrulama yapması istenilir, doğrulama yapan kullanıcıları üzerindeki engelleme kaldırılır ve kanallara aktarır, doğrulama yapmayan kullanıcıları ise sunucudan uzaklaştırılır.

IGS Socket;

alias _pbot return IGS
alias _pass return 123321
alias _ident return Paradox
alias _username return 4Coder By Toprak
alias _oper return IGS 123321
alias _supass return 123321
alias _sunucu return irc.Toprak.NET
alias _sunucuip return 185.50.68.120
alias _port return 6667
alias _opers return #Opers

;- Ayarlar.php'de "$port" ile aynı olsun
alias _igsport return 1990

;- Ayarlar.php'de "$esifre" ile aynı olsun
alias _igsifre return eklesifresibelirtiniz

alias bagla sockopen pbot $_sunucuip $_port
alias swpbot $iif($sock(pbot).status == active,sockwrite -nt pbot $1-)
on *:sockclose:pbot:$+(.timer,_saatkontrol) 1 2 bagla
on *:sockopen:pbot:{
  if ($sockerr) { sockclose pbot | $+(.timer,_saatkontrol) 1 2 bagla | returnex }
  swpbot NICK $+($_pbot,$r(10,9999))
  swpbot USER $_ident "" " $+ $iif($host,$host,$ip) $_username
  sockmark $sockname $_pbot
}
on *:sockread:pbot:{
  if ($sockerr) { sockclose pbot | $+(.timer,_saatkontrol) 1 2 bagla | returnex }
  var %;pbot | sockread %;pbot | tokenize 32 %;pbot
  if ($1 = ping) swpbot pong $remove($2,:)
  elseif $regex($2,/(001|433)/) { swpbot oper $_oper | swpbot ns ghost $_pbot $_pass | swpbot ns release $_pbot $_pass | swpbot join #0,0 | $+(.timer,$rand(100,999)) 1 3 swpbot nick $_pbot }
  elseif $1 == error && $2 == :closing { sockclose pbot | $+(.timer,_saatkontrol) 1 2 bagla } 
  elseif $regex($2,/(473|475|471|474)/) { swpbot sajoin $_pbot $4 }
  elseif $regex($2,/(481|411)/) { swpbot oper $_oper | swpbot nick $_pbot | swpbot nickserv identify $_pass }
  elseif ($2 == NICK) {
    if $_nick($1) == $_pbot { swpbot ns ghost $_pbot $_pass | swpbot ns release $_pbot $_pass | $+(.timer,$rand(100,999)) 1 3 swpbot nick $_pbot }
    elseif $right($3,-1) == $_pbot {
      swpbot nickserv identify $_pass     
      swpbot oper $_oper
      $iif($_supass,swpbot os su $_supass)
      swpbot join #0,0
      swpbot mode $right($3,-1) +qHp-h
      $+(.timer,_pbgir) 1 5 swpbot sajoin $right($3,-1) $_opers
      $iif(!$sock(igs),socklisten igs $_igsport)
    }
  }
  elseif $regex($2,/366/) && !$istok($_opers,$4,32) { swpbot part $4 } 
  elseif $regex($2,/^PART$/i) {
    if $regex($_nick($1),/ $+ $+(^,$_pbot,$) $+ /Si) && $istok($_opers,$3,32) { swpbot sajoin $_nick($1) $3 }
  }
  elseif $regex($2,/^KICK$/i) {
    if $regex($4,/ $+ $+(^,$_pbot,$) $+ /Si) && $istok($_opers,$3,32) { swpbot sajoin $4 $3 }
  }
  elseif $regex($2,/^JOIN$/i) {
    if $regex($_nick($1),/ $+ $+(^,$_pbot,$) $+ /Si) && $istok($_opers,$right($3,-1),32) {
      swpbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5)
      swpbot mode $_nick($1) +qHp-h
      $iif(!$sock(igs),socklisten igs $_igsport)
    }
  }
  elseif $regex($2,/^MODE$/Si) && $regex($3,/^#/) {
    if $regex($4,^\+(\S+)?(b)(\S+)?) && $regex($5,/^ $+ $_pbot $+ /i) { swpbot mode $3 -b $_pbot }
    elseif $regex($4,^\-(\S+)?(h)(\S+)?) || $regex($4,^\+(\S+)?(a|q|o)(\S+)?) && $regex($5-,/ $+ $_pbot $+ /i) { swpbot mode $3 -qao+h $str($+($_pbot,$chr(32)),5) }
  }
  elseif $regex($2,/^NOTICE$/Si) && !$regex($1,/(\@)/i) {
    if $regex($4-,/(Kullanıcı ba[gqğĞ]landı|Client connecting on)/Si) {
      var %:_n $token($token($4-,1,40),-1,32), %:_ip $token($token($4-,2,64),1,41), %:_port $token($token($4-,1,58),-1,32)
      if $istok($_sunucuip %:myip,%:_ip,32) { return }
      else {
        swpbot notice %:_n 5***
        swpbot notice %:_n 5*** 2Guvenlik taramalarindan geciriliyorsunuz. Lutfen bekleyiniz.
        swpbot notice %:_n 5***
        swpbot who +I %:_n
      }
    }
  }
  elseif $regex($2,/352/) {
    var %:wnick $8, %:wip $6, %_p $+(%:wnick,$r(100,9999999))
    if !$hget(IGS-Muaf,$6) {
      sockopen $+(proxy-kontrol,%_p) e-sisnet.com 80
      sockmark $+(proxy-kontrol,%_p) $+(%:wip,¿,%:wnick)
    }
    else {
      _dagit %:wnick
      swpbot privmsg $_opers $+(:4,%:wnick,) nick'i güvenlik doğrulamasını geçti ve global kanallara alındı.
    }
  }
}
on *:sockopen:proxy-kontrol*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/?ip=,$token($sock($sockname).mark,1,191))  HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:proxy-kontrol*:{
  if ($sockerr) { .sockclose $sockname | return }
  var %:pkr | sockread -f %:pkr | tokenize 32 %:pkr
  if $regex($1-,/numaral[ıiİ] [Iİi]P proxy\'d[ıiİ]r/i) {
    _proxy-ok $token($sock($sockname).mark,2,191) $token($sock($sockname).mark,1,191)
    sockclose $sockname
  }
  elseif $regex($1-,/numaral[ıiİ] [Iİi]P proxy de[qgğĞ][ıiİ]ld[ıiİ]r/i) {
    if !$regex($1-,/T[uüÜ]rkey/Si) { _proxy-ok $token($sock($sockname).mark,2,191) $token($sock($sockname).mark,1,191) | sockclose $sockname }
    else { _dagit $token($sock($sockname).mark,2,191) | sockclose $sockname }
  }
}
alias _proxy-ok {
  var %:_r $+($1,$r(100,9999999)), %_l $+(http://igs.,$lower($gettok($_sunucu,2-,46)),/index.php?auth=,$left($md5($1),5))
  swpbot notice $1 :2Lütfen girişinizi onaylamak için5 1 dakika 2içinde aşağıdaki linke tıklayınız.
  swpbot notice $1 :2Girişinizi onaylamazsanız sunucuya girişiniz engellenecektir.
  swpbot notice $1 :2Giriş için tıklayınız:3 %_l
  sockopen $+(syekle,%:_r) $+(igs.,$gettok($_sunucu,2-,46)) 80 | sockmark $+(syekle,%:_r) $+($2,¿,ekle)
  $+(.timer,$2,xline) 1 65 _ban-at $2
}
alias _ban-at {
  swpbot gline $+(*@,$1) +1h 4WEB AUTH kodunu girmediniz..
  var %:_r $+($1,$r(100,9999999))
  sockopen $+(syekle,%:_r) $+(igs.,$gettok($_sunucu,2-,46)) 80 | sockmark $+(syekle,%:_r) $+($1,¿,sil)
}
alias _dagit {
  swpbot notice $1 5*** 3Taramalardan basariyla gectiniz. Kanallara aktariliyorsunuz.
  $+(.timer,gec,$1) 1 2 swpbot gec $1
}

on *:sockopen:syekle*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ekles.php?durum=,$token($sock($sockname).mark,2,191),&ip=,$token($sock($sockname).mark,1,191),&sifre=,$_igsifre)  HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
alias sw $iif($sock($1),sockwrite -nt $1-)
on *:socklisten:igs:{ var %:sockname $+(igs-,$md5($ticks,$rand(a,Z))) | if !$sock(%:sockname) { .sockaccept %:sockname } }
on *:sockread:igs-*:{
  var %:igs | sockread -f %:igs | tokenize 32 %:igs
  if $regex($1,/^\[IGS\]/Si) {
    $+(.timer,$token($1,2,62),xline) off
    .hadd -msu10000 IGS-Muaf $token($1,2,62) oke.
    swpbot who +h $token($1,2,62)
    sockclose $sockname
  }
}

IGS v1.0 [Web AUTH] koruma botunun php dosyalarını alttaki linkten indiriniz.

IGS v1.0 php dosya

Not: BURADAKI modul'e göre ayarlıdır.

Görüntüler;

[Resim: OvX0M3.png]

[Resim: k9Pbvv.png]

[Resim: mM93L2.png]


  İlk harfleri büyük şekilli harfler ince yazı stili
Gönderen: Aytac - 10.05.2020, 16:05 - Forum: mIRC Scripting Hazır Kodlar - Cevap Yok

Mirc ince yazı sitili, kelimelerin ilk harfleri büyükle başlar.

#yazıstil on
on *:input:*:{
  if ($left($1,1) != /) {
    var %Jnk
    var %e = 0
    while %e != $numtok($1-,32) {
      inc %e 1
      var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1))
    }
    msg $active $+($chr(2),$replace(%Jnk,s,S,l,L,b,ß,B,ß,g,q,?,¿,g,q,ş,$,Ş,$))
    halt
  }
}
#yazıstil end
menu query,channel {
  .Yazı Stil
  ..Aç:.enable #yazıstil
  ..Kapa:.disable #yazıstil
}


  İlk harfleri büyük şekilli harfler kalın yazı stili
Gönderen: Aytac - 10.05.2020, 16:03 - Forum: mIRC Scripting Hazır Kodlar - Cevap Yok

Mirc kelimelerin başları büyük harfle başlar.Bazı harfler şekillidir.

#yazıstil on
on *:input:*:{
  if ($left($1,1) != /) {
    var %Jnk
    var %e = 0
    while %e != $numtok($1-,32) {
      inc %e 1
      var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1))
    }
    msg $active $replace(%Jnk,s,S,l,L,b,ß,B,ß,g,q,?,¿,g,q,ş,$,Ş,$)
    halt
  }
}
#yazıstil end
menu query,channel {
  .Yazı Stil
  ..Aç:.enable #yazıstil
  ..Kapa:.disable #yazıstil
}

Örnek: ßir Sen qöremedin ßu Dunyayı ¿


  mIRC Bütün kelimelerin ilk harfi büyük harfle başlama yazı stili
Gönderen: Aytac - 10.05.2020, 15:53 - Forum: mIRC Scripting Hazır Kodlar - Cevap Yok

#yazıstil on
on *:input:*:{
  if ($left($1,1) != /) {
    var %Jnk
    var %e = 0
    while %e != $numtok($1-,32) {
      inc %e 1
      var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1))
    }
    msg $active %Jnk
    halt
  }
}
#yazıstil end
menu  query,channel {
  .Yazı Stil
  ..Aç:.enable #yazıstil
  ..Kapa:.disable #yazıstil
}

Bütün kelimelerin ilk harfleri büyük harfle başlar.

Ör: Deneme Bir Tatlibela Test


  mIRC !iftar Şehir kodu
Gönderen: Aytac - 10.05.2020, 01:14 - Forum: mIRC Scripting Hazır Kodlar - Cevap Yok

Yazar: Cesuryurek

Kullanımı;

  • mIRC`te kendiniz kullanmak için; !xiftar şehir komutu uygulayın.
  • Kodu bota eklediginizde kullanılacak komut;  !iftar şehir komutu uygulayın.
  • İftar vakti geldiginde  kanallara haber bilgisini sunmasını istiyorsanız  /iftarsaat komutunu uygulayarak timeri başlatabilirsiniz.İftar saati geldiginde kanallalrda o ilin iftar vaktini haber vericektir.Eger bot kanaldan cıkarılırsa tekrar bu komutu uygulamanız lazım.
  • İftar saatini sadece bir kanalda göstermek istiyorsanız /amsg olan yerleri /msg #kanalismi oalrak degiştirmeniz gerekir.


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.namazzamani.net 80
    .halt
  }
  if $regex($1,/(^afyon|afyonkarah[iİı]sar$)/i) {
    set -u5 %iftarsehri Afyonkarahisar
    if $sock(iftar) { sockclose iftar }
    sockopen iftar www.namazzamani.net 80
    .halt
  }
  if $regex($1,/(^[ıIiİ][Ğğg]d[ıIiİ]r$)/i) {
    set -u5 %iftarsehri Igdir
    if $sock(iftar) { sockclose iftar }
    sockopen iftar www.namazzamani.net 80
    .halt
  }
  if $regex($1,/(^[ıIiİ]sparta$)/i) {
    set -u5 %iftarsehri Isparta
    if $sock(iftar) { sockclose iftar }
    sockopen iftar www.namazzamani.net 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.namazzamani.net 80
    .halt
  }
  if $regex($1,/(^sakarya|adapazar[iİı]$)/i) {
   set -u5 %iftarsehri Sakarya_(Adapazari)
    if $sock(iftar) { sockclose iftar }
    sockopen iftar www.namazzamani.net 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) }
}


  mIRC Kanallara oto söz yollama kodu
Gönderen: Aytac - 06.05.2020, 00:04 - Forum: mIRC Scripting Hazır Kodlar - Cevap Yok

On 1:input:*:{
  if ($1- == !ac) { .set %otosoz 1 | .timerotosoz 0 370 ams | halt }
  if ($1- == !kapat) { .timerotosoz off | .unset %otosoz | halt }
}


alias ams {
  if (%otosoz <= $lines(sozler.txt)) { amsg $read(sozler.txt,%otosoz) | inc %otosoz
  } 
  else .set %otosoz 1
}

mirc.exe olduğu dizine sozler.txt adında dosya atın.İçine alt alt isteğiniz sözleri yazın. 

!ac komutuyla başlar. 370 saniye aralıklarla atar.Siz orayı kaç saniye yapacaksaniz degiştirin.
!kapat komutuyla durur.


 
Hoşgeldin Ziyaretçi
Mesaj atabilmek için forumumuza kayıt olmalısınız.

Kullanıcı Adı
  

Şifre
  





Forumlarda Ara

(Gelişmiş Arama)

Forum İstatistikleri
» Üye Sayısı: 71
» En Son Üyemiz: didi
» Konu Sayısı: 326
» Mesaj Sayısı: 335

Tam İstatistik