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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Nick Whois (https://www.ircforumlari.net/mirc-scripting-sorunlari/567580-nick-whois.html)

Kod:

menu status,menubar,channel {

  .-

  .» Nick Whois

  ..Acık:.enable #Whois | .echo -a 4 Nick  Whois Açıldı 

  ..Kapalı:.disable #Whois | .echo -a 4 Nick Whois Kapatıldı 

  .-

}

#Whois off

on *:join:#x:{ if $istok(trSohbet trmIRC mIRCPro ident3,$gettok($address,1,64),32) { return } | who +I $nick }

raw 352:*:{ 

  if $read(fullname.txt,w,$strip($9-)) { var %t = 1 | while %t <= $comchan($6,0) { if $me ishop $comchan($6,%t) || $me isop $comchan($6,%t) { mode $comchan($6,%t) +b $6 | kick $comchan($6,%t) $6 Yasak. } | inc %t } }

}

#Whois end

Elimde bu kod var bunu zline göre ayarlaya bilir miyiz snotice olarak.

Cevap: Nick Whois

Kod:

menu status,menubar,channel {

  .-

  .» Nick Whois

  ..Acık:.enable #Whois | .echo -a 4 Nick  Whois Açıldı 

  ..Kapalı:.disable #Whois | .echo -a 4 Nick Whois Kapatıldı 

  .-

}

#Whois off

on *:SNOTICE:*Client connecting on port 666*:if $read(identd.txt,w,$remove($right($gettok($10,1,64 ),-1),~)) { gzline $9 BAN SEBEBİ }

  raw 352:*:{ 

    if $read(fullname.txt,w,$strip($9-)) { var %t = 1 | while %t <= $comchan($6,0) { if $me ishop $comchan($6,%t) || $me isop $comchan($6,%t) { mode $comchan($6,%t) +b $6 | kick $comchan($6,%t) $6 Yasak. } | inc %t } }

  } 

}

menu * {

  identd Koruması

  .ekle:write identd.txt $$?="Ysak identd örnk I-DNCR:"

  .çıkart:write $+(-ds,$$?="Silinecek identd örnk I-DNCR:") $shortfn($mircdiridentd.txt)

  .listele:liste

}

alias liste {

  var %ntc 1

  while %ntc <= $lines(identd.txt) {

    echo -a $read(identd.txt,%ntc) $1-

    inc %ntc

  }

}

#Whois end

;--- txt icinde olan'lar otomatik sunucuya giriş yapmadan atılır.
;--- Ekle \ Liste \ Sil özellikli.Başarılar dilerim. . .

Cevap: Nick Whois

Alıntı:

IRC-Dancer Nickli Üyeden Alıntı (Mesaj 1041396877)

Kod:

menu status,menubar,channel {

  .-

  .» Nick Whois

  ..Acık:.enable #Whois | .echo -a 4 Nick  Whois Açıldı 

  ..Kapalı:.disable #Whois | .echo -a 4 Nick Whois Kapatıldı 

  .-

}

#Whois off

on *:SNOTICE:*Client connecting on port 666*:if $read(identd.txt,w,$remove($right($gettok($10,1,64 ),-1),~)) { gzline $9 BAN SEBEBİ }

  raw 352:*:{ 

    if $read(fullname.txt,w,$strip($9-)) { var %t = 1 | while %t <= $comchan($6,0) { if $me ishop $comchan($6,%t) || $me isop $comchan($6,%t) { mode $comchan($6,%t) +b $6 | kick $comchan($6,%t) $6 Yasak. } | inc %t } }

  } 

}

menu * {

  identd Koruması

  .ekle:write identd.txt $$?="Ysak identd örnk I-DNCR:"

  .çıkart:write $+(-ds,$$?="Silinecek identd örnk I-DNCR:") $shortfn($mircdiridentd.txt)

  .listele:liste

}

alias liste {

  var %ntc 1

  while %ntc <= $lines(identd.txt) {

    echo -a $read(identd.txt,%ntc) $1-

    inc %ntc

  }

}

#Whois end

;--- txt icinde olan'lar otomatik sunucuya giriş yapmadan atılır.
;--- Ekle \ Liste \ Sil özellikli.Başarılar dilerim. . .

muaf ident yok hocam

Cevap: Nick Whois

Alıntı:

IRC-Dancer Nickli Üyeden Alıntı (Mesaj 1041396877)

Kod:

menu status,menubar,channel {

  .-

  .» Nick Whois

  ..Acık:.enable #Whois | .echo -a 4 Nick  Whois Açıldı 

  ..Kapalı:.disable #Whois | .echo -a 4 Nick Whois Kapatıldı 

  .-

}

#Whois off

on *:SNOTICE:*Client connecting on port 666*:if $read(identd.txt,w,$remove($right($gettok($10,1,64 ),-1),~)) { gzline $9 BAN SEBEBİ }

  raw 352:*:{ 

    if $read(fullname.txt,w,$strip($9-)) { var %t = 1 | while %t <= $comchan($6,0) { if $me ishop $comchan($6,%t) || $me isop $comchan($6,%t) { mode $comchan($6,%t) +b $6 | kick $comchan($6,%t) $6 Yasak. } | inc %t } }

  } 

}

menu * {

  identd Koruması

  .ekle:write identd.txt $$?="Ysak identd örnk I-DNCR:"

  .çıkart:write $+(-ds,$$?="Silinecek identd örnk I-DNCR:") $shortfn($mircdiridentd.txt)

  .listele:liste

}

alias liste {

  var %ntc 1

  while %ntc <= $lines(identd.txt) {

    echo -a $read(identd.txt,%ntc) $1-

    inc %ntc

  }

}

#Whois end

;--- txt icinde olan'lar otomatik sunucuya giriş yapmadan atılır.
;--- Ekle \ Liste \ Sil özellikli.Başarılar dilerim. . .

on *:SNOTICE:*Client connecting on port 666*:if $read(identd.txt,w,$remove($right($gettok($10,1,64 ),-1),~)) { gzline $9 BAN SEBEBİ }
raw 352:*:{
if $read(fullname.txt,w,$strip($9-)) { var %t = 1 | while %t <= $comchan($6,0) { if $me ishop $comchan($6,%t) || $me isop $comchan($6,%t) { mode $comchan($6,%t) +b $6 | kick $comchan($6,%t) $6 Yasak. } | inc %t } }
}
}
burada hem ban hemde gzline atıyorum biraz saçma olmuş sanki .ekle .sil bunları nereye yazıcam da ekleyecek

Cevap: Nick Whois

Kod:

menu status,menubar,channel {

  .-

  .» Nick Whois

  ..Acık:.enable #Whois | .echo -a 4 Nick  Whois Açıldı 

  ..Kapalı:.disable #Whois | .echo -a 4 Nick Whois Kapatıldı 

  .-

}

#Whois on

on *:snotice:*Client connecting on port*:{ if $istok(trSohbet trmIRC mIRCPro ident3,$token($token($10,1,64),1,40),32) { return } | .who +I $9 }

raw 352:*:{ if $read(fullname.txt,w,$strip($9-)) { .gzline $+(*@,$4) - Yasak. } }

#Whois end

Cevap: Nick Whois

Alıntı:

Cpu Nickli Üyeden Alıntı (Mesaj 1041396934)

;--- Kod'u mIRC'ine ekleyip , baksaydın daha sağlıklı verim ala bilirdin.
;--- O Kodda muaf eklentisine gerek yok saten.
;--- Yasaklı Fullnamelerı : mIRC'cin Klosöründeki Fullname.TXT'de atacaksın ;
;--- İdentlerinde kanal genelinde sağ tuş yapıp orda ident koruması var.Orda ekle sil listele olcak ordanda işlevini kontrol edeceksin.
;--- *Line* '' Ban olayina gelince , bir koruma dizinde önlenme amaçlı koşul sunduk ; Aşırı girişde olurda laga girersen *line*atmakta 3-5 sn'ye gecikirsin , ama ban parametresi donmaz , kanalda en azından atasıya kadar susturursun.
;--- Bir işi denemeden yargılama (-

Cevap: Nick Whois

Alıntı:

IRC-Dancer Nickli Üyeden Alıntı (Mesaj 1041397023)

Ben seni yargılamadım hocam sadece istediğimin olması daha mantıklı değil mi ben 4 senedir satın alma işi ile uğraşıyorum, müşteri birşey istediğinde biz onu buluruz ek tercihler sunmayız. ;)