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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Çözüldü Yardımm (https://www.ircforumlari.net/mirc-scripting-sorunlari/1065655-yardimm.html)

Caitlyn 30 Temmuz 2025 23:17
Yardımm
 
on 1:connect:{ .IAL On | takip + 300 }
alias takip {
if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,]) }
else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! }
}
#Takip on
on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) + $nick,$nick)) }
on !^*:JOIN:#:{
if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kullandığı nickler:14 $hget(Takip,$address($nick,2)) }
if $gettok($hget(Takip,$address($nick,2)).data,0,43) > 3 { ban -k $chan $nick 2 Nick Change }
}



UYARI HATASI :
* /hadd: 'Takip' Tablo yok
.
.

çözüm hakkında yardımcı olurmusunuz

Coderlab 31 Temmuz 2025 00:53
Cevap: Yardımm
 
Kod:
on 1:CONNECT: {
  .IAL On
  takip + 300
}

alias takip {
  if ($1 == +) {
    if (!$hget(Takip)) { hmake Takip 1000 }
    .enable #Takip
    set %cSj $iif($2,$2,300)
    echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,])
  }
  else {
    .disable #Takip
    if ($hget(Takip)) { hfree Takip }
    unset %cSj
    echo -ta 14Takip Modu DevreDışı !
  }
}

#Takip on

on ^*:QUIT: {
  if ($hget(Takip)) {
    var %addr = $address($nick,2)
    var %onceki = $hget(Takip,%addr)
    if (!$istok(%onceki,$nick,32)) {
      hadd -u%cSj Takip %addr $iif(%onceki,%onceki $+ $chr(32) $+ $nick,$nick)
    }
  }
}

on !^*:JOIN:#: {
  if ($hget(Takip)) {
    var %addr = $address($nick,2)
    var %onceki = $hget(Takip,%addr)
    if (%onceki && %onceki != $nick) {
      echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kullandığı nickler:14 %onceki
    }
    if ($gettok(%onceki,0,32) > 3) {
      ban -k $chan $nick 2 Nick Change
    }
  }
}
#Takip end

Caitlyn 31 Temmuz 2025 07:48
Cevap: Yardımm
 
Alıntı:
Coderlab Nickli Üyeden Alıntı (Mesaj 1043050440)
Kod:
on 1:CONNECT: {
  .IAL On
  takip + 300
}

alias takip {
  if ($1 == +) {
    if (!$hget(Takip)) { hmake Takip 1000 }
    .enable #Takip
    set %cSj $iif($2,$2,300)
    echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,])
  }
  else {
    .disable #Takip
    if ($hget(Takip)) { hfree Takip }
    unset %cSj
    echo -ta 14Takip Modu DevreDışı !
  }
}

#Takip on

on ^*:QUIT: {
  if ($hget(Takip)) {
    var %addr = $address($nick,2)
    var %onceki = $hget(Takip,%addr)
    if (!$istok(%onceki,$nick,32)) {
      hadd -u%cSj Takip %addr $iif(%onceki,%onceki $+ $chr(32) $+ $nick,$nick)
    }
  }
}

on !^*:JOIN:#: {
  if ($hget(Takip)) {
    var %addr = $address($nick,2)
    var %onceki = $hget(Takip,%addr)
    if (%onceki && %onceki != $nick) {
      echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kullandığı nickler:14 %onceki
    }
    if ($gettok(%onceki,0,32) > 3) {
      ban -k $chan $nick 2 Nick Change
    }
  }
}
#Takip end
Peki bunu bir @ pencerede gösterme ve hotlink ile gzline shun kill gibi şeylerde ekleme yapabilirmiyiz ?
bu mümkünmüdür ?

Aktif ekranda değil de @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip de görüntülene bilir.

SNOOPY 31 Temmuz 2025 12:37
Cevap: Yardımm
 
Kod:
; ---------- Pencereyi aç ----------
alias TakipPencere {
  if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip)) window -ae @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip
}
 
; ---------- Takip Modu ----------
on 1:connect:{
  .IAL On
  if (!$hget(Takip)) hmake Takip 1000
  takip + 300
}
 
alias takip {
  if ($1 == +) {
    .enable #Takip
    if (!$hget(Takip)) hmake Takip 1000
    set %cSj $iif($2,$2,300)
    TakipPencere
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip 4[TAKİP MODU AÇILDI] Süre: %cSj sn.
  }
  else {
    .disable #Takip
    unset %cSj
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip 14[TAKİP MODU KAPANDI]
  }
}
 
#Takip on
on ^*:QUIT:{
  if (!$hget(Takip)) hmake Takip 1000
  hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip,$address($nick,2)),$hget(Takip,$address($nick,2)) $+ $nick,$nick))
}
 
on !^*:JOIN:#:{
  if (!$hget(Takip)) hmake Takip 1000
  if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) {
    TakipPencere
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip 4Takip Raporu:12 $nick 5(%cSj sn içinde kullandığı nickler:) 14 $hget(Takip,$address($nick,2))
  }
  if ($gettok($hget(Takip,$address($nick,2)).data,0,43) > 3) {
    ban -k $chan $nick 2 Nick Change
  }
}
 
; ---------- Hotlink Ayarları ----------
menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip {
  dclick:*:{
    if ($1 != $null) {
      echo -a 4[İŞLEM] $1 için komut seçin:
      echo -a Sağ tık → Komut Menüsü
    }
  }
}
 
menu nicklist,@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip {
  ----- Takip İşlemleri -----
  Kill: /kill $$1 Flood/Takip Koruması
  Shun: /shun $$1 30s Flood/Takip
  Gzline: /gzline $$1 1h Flood/Takip
  Ban: /ban -k # $$1 2 Takip Koruması
}
 
Sanırım bu aradıklarını karşılıyor

Coderlab 31 Temmuz 2025 13:09
Cevap: Yardımm
 
Kod:
on 1:CONNECT: {
  .IAL On
  takip + 300
}

alias TakipPanel {
  if (!$window(@Takip)) { window -e @Takip 600 300 600 300 }
}

alias takip {
  if ($1 == +) {
    if (!$hget(Takip)) { hmake Takip 1000 }
    .enable #Takip
    set %cSj $iif($2,$2,300)
    TakipPanel
    echo @Takip 4[Takip]14 Takip Modu Açıldı! ($+(%cSj,sn.))
  }
  else {
    .disable #Takip
    if ($hget(Takip)) { hfree Takip }
    unset %cSj
    if ($window(@Takip)) { echo @Takip 14[Takip] Takip Modu Kapatıldı! }
  }
}

#Takip on

on ^*:QUIT: {
  if ($hget(Takip)) {
    var %addr = $address($nick,2)
    var %onceki = $hget(Takip,%addr)
    if (!$istok(%onceki,$nick,32)) {
      hadd -u%cSj Takip %addr $iif(%onceki,%onceki $+ $chr(32) $+ $nick,$nick)
    }
  }
}

on !^*:JOIN:#: {
  if ($hget(Takip)) {
    var %addr = $address($nick,2)
    var %onceki = $hget(Takip,%addr)
    if (%onceki && %onceki != $nick) {
      TakipPanel
      echo @Takip 4[Takip]12 Nick: [ $nick ] 5IP:14 [ %addr ] 5Önceki:14 %onceki
    }
    if ($gettok(%onceki,0,32) > 3) {
      ban -k $chan $nick 2 Nick Change
    }
  }
}
#Takip end

on *:HOTLINK:*:@Takip:{
  if ($left($1,1) == "[" && $right($1,1) == "]") {
    return 1
  }
}

on *:HOTLINK:*:@Takip:{
  var %hedef = $remove($1,[,])

  ; CTRL+Tık + KILL
  if ($mouse.key & 4) {
    .kill %hedef Takip Sisteminden
    echo @Takip 4[CTRL+TIK] KILL uygulandı: %hedef
    halt
  }

  ; Çift tık + GZLINE
  if ($dblclick) {
    .gzline %hedef 1d Takip Sisteminden
    echo @Takip 4[DOUBLE-CLICK] GZLINE uygulandı: %hedef
    halt
  }

  ; Normal sağ tık menüsü
  menu %hedef {
    GZLINE %hedef: { .gzline %hedef 1d Takip! }
    GLINE %hedef:  { .gline %hedef 1d Takip! }
    SHUN %hedef:  { .shun %hedef 1h Takip! }
    KILL %hedef:  { .kill %hedef Takip! }
  }
}
ihtiyacin olan herşeyi fazlasiyla ekledim. :)

Caitlyn 31 Temmuz 2025 14:03
Cevap: Yardımm
 
Alıntı:
Coderlab Nickli Üyeden Alıntı (Mesaj 1043050679)
Kod:
on 1:CONNECT: {
  .IAL On
  takip + 300
}

alias TakipPanel {
  if (!$window(@Takip)) { window -e @Takip 600 300 600 300 }
}

alias takip {
  if ($1 == +) {
    if (!$hget(Takip)) { hmake Takip 1000 }
    .enable #Takip
    set %cSj $iif($2,$2,300)
    TakipPanel
    echo @Takip 4[Takip]14 Takip Modu Açıldı! ($+(%cSj,sn.))
  }
  else {
    .disable #Takip
    if ($hget(Takip)) { hfree Takip }
    unset %cSj
    if ($window(@Takip)) { echo @Takip 14[Takip] Takip Modu Kapatıldı! }
  }
}

#Takip on

on ^*:QUIT: {
  if ($hget(Takip)) {
    var %addr = $address($nick,2)
    var %onceki = $hget(Takip,%addr)
    if (!$istok(%onceki,$nick,32)) {
      hadd -u%cSj Takip %addr $iif(%onceki,%onceki $+ $chr(32) $+ $nick,$nick)
    }
  }
}

on !^*:JOIN:#: {
  if ($hget(Takip)) {
    var %addr = $address($nick,2)
    var %onceki = $hget(Takip,%addr)
    if (%onceki && %onceki != $nick) {
      TakipPanel
      echo @Takip 4[Takip]12 Nick: [ $nick ] 5IP:14 [ %addr ] 5Önceki:14 %onceki
    }
    if ($gettok(%onceki,0,32) > 3) {
      ban -k $chan $nick 2 Nick Change
    }
  }
}
#Takip end

on *:HOTLINK:*:@Takip:{
  if ($left($1,1) == "[" && $right($1,1) == "]") {
    return 1
  }
}

on *:HOTLINK:*:@Takip:{
  var %hedef = $remove($1,[,])

  ; CTRL+Tık + KILL
  if ($mouse.key & 4) {
    .kill %hedef Takip Sisteminden
    echo @Takip 4[CTRL+TIK] KILL uygulandı: %hedef
    halt
  }

  ; Çift tık + GZLINE
  if ($dblclick) {
    .gzline %hedef 1d Takip Sisteminden
    echo @Takip 4[DOUBLE-CLICK] GZLINE uygulandı: %hedef
    halt
  }

  ; Normal sağ tık menüsü
  menu %hedef {
    GZLINE %hedef: { .gzline %hedef 1d Takip! }
    GLINE %hedef:  { .gline %hedef 1d Takip! }
    SHUN %hedef:  { .shun %hedef 1h Takip! }
    KILL %hedef:  { .kill %hedef Takip! }
  }
}
ihtiyacin olan herşeyi fazlasiyla ekledim. :)
paylaştığınız kod kickban atıyor tespit ettiği kişileri hata var sanırım.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:03 -->-> Daha önceki mesaj 14:00 --

Alıntı:
SNOOPY Nickli Üyeden Alıntı (Mesaj 1043050661)
Kod:
; ---------- Pencereyi aç ----------
alias TakipPencere {
  if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip)) window -ae @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip
}
 
; ---------- Takip Modu ----------
on 1:connect:{
  .IAL On
  if (!$hget(Takip)) hmake Takip 1000
  takip + 300
}
 
alias takip {
  if ($1 == +) {
    .enable #Takip
    if (!$hget(Takip)) hmake Takip 1000
    set %cSj $iif($2,$2,300)
    TakipPencere
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip 4[TAKİP MODU AÇILDI] Süre: %cSj sn.
  }
  else {
    .disable #Takip
    unset %cSj
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip 14[TAKİP MODU KAPANDI]
  }
}
 
#Takip on
on ^*:QUIT:{
  if (!$hget(Takip)) hmake Takip 1000
  hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip,$address($nick,2)),$hget(Takip,$address($nick,2)) $+ $nick,$nick))
}
 
on !^*:JOIN:#:{
  if (!$hget(Takip)) hmake Takip 1000
  if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) {
    TakipPencere
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip 4Takip Raporu:12 $nick 5(%cSj sn içinde kullandığı nickler:) 14 $hget(Takip,$address($nick,2))
  }
  if ($gettok($hget(Takip,$address($nick,2)).data,0,43) > 3) {
    ban -k $chan $nick 2 Nick Change
  }
}
 
; ---------- Hotlink Ayarları ----------
menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip {
  dclick:*:{
    if ($1 != $null) {
      echo -a 4[İŞLEM] $1 için komut seçin:
      echo -a Sağ tık → Komut Menüsü
    }
  }
}
 
menu nicklist,@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip {
  ----- Takip İşlemleri -----
  Kill: /kill $$1 Flood/Takip Koruması
  Shun: /shun $$1 30s Flood/Takip
  Gzline: /gzline $$1 1h Flood/Takip
  Ban: /ban -k # $$1 2 Takip Koruması
}
 
Sanırım bu aradıklarını karşılıyor
ilginiz için teşekkür ediyorum, bu istediğim gibi oldu.

Coderlab 31 Temmuz 2025 14:21
Cevap: Yardımm
 
Alıntı:
Caitlyn Nickli Üyeden Alıntı (Mesaj 1043050691)
paylaştığınız kod kickban atıyor tespit ettiği kişileri hata var sanırım.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:03 -->-> Daha önceki mesaj 14:00 --



ilginiz için teşekkür ediyorum, bu istediğim gibi oldu.
dostum kickban derken sizin en başta verdiginiz code de

> 3 { ban -k $chan $nick 2 Nick Change }

zaten bu kısımda var kick ban yani 3 defa yakalarsa diyor burada. bu zaten sizin verdiginiz ilk code de mevcut yani sonradan eklenen bişey degil ki.

Caitlyn 31 Temmuz 2025 15:10
Cevap: Yardımm
 
Alıntı:
Coderlab Nickli Üyeden Alıntı (Mesaj 1043050695)
dostum kickban derken sizin en başta verdiginiz code de

> 3 { ban -k $chan $nick 2 Nick Change }

zaten bu kısımda var kick ban yani 3 defa yakalarsa diyor burada. bu zaten sizin verdiginiz ilk code de mevcut yani sonradan eklenen bişey degil ki.

ah.. şimdi gördüm kusura bakmayın. yine de verdiğiniz kod için teşekkür ederim emeğinize sağlık


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

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