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/)

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - eski nicke geçme tcl (https://www.ircforumlari.net/tcl-scriptler/743362-eski-nicke-gecme-tcl.html)

unpainful

17 Mart 2016 22:06

eski nicke geçme tcl

PHP- Kodu:

   bind pub - !off off

proc off {nick uhand host chan text} {

  global botnick dj

  if {[string match -nocase "#DJ" $chan]} {

    putquick "chghost $nick $dj(host)"

    putquick "chgident $nick $dj(ident)"

    putquick "chgname $nick $dj(name)"

    putquick "operserv raw svsmode $nick +Wq :1"

    putquick "operserv raw svsnick $nick $nick :1"

  }

}

Bu tcl kodlarına göre , DJ takısı olan kişi !off yaptığında tekrar nasıl orjinal nickini alabilir?

putquick "operserv raw svsnick DJ'$nick $nick :1" denedim ama pek başarılı olamadım.

rascoLn

18 Mart 2016 00:33

Cevap: eski nicke geçme tcl

putquick "operserv raw svsnick $nick [string map -nocase {"DJ_" ""} $nick] :1"

dj öneki olarak "DJ_" yi kullandım sen sunucunda hangi öneki kullanıyorsan onu yaz oraya o sekilde dene..

unpainful

18 Mart 2016 16:58

Cevap: eski nicke geçme tcl

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041756349)

putquick "operserv raw svsnick $nick [string map -nocase {"DJ_" ""} $nick] :1"

dj öneki olarak "DJ_" yi kullandım sen sunucunda hangi öneki kullanıyorsan onu yaz oraya o sekilde dene..

Teşekkür ediyorum deneyeceğim , birde !ignore nick komutunu uyguladığımızda !istek yapan nicki engelleyebilirmiyiz radyoda @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]?

rascoLn

18 Mart 2016 22:59

Cevap: eski nicke geçme tcl

İGNORE PROSEDÜRÜ (Karalisteye ekleme)

PHP- Kodu:

   bind pub - !ignore engelle
proc engelle {nick host handle chan text} {
if {[llength $text] eq 1 & [onchan $text $chan] & [onchan $nick "#dj"]} {
set dosya [open "nickler.txt" a]
puts $dosya $text
close $dosya
putquick "privmsg #dj :\002 $text \002karalisteye eklendi.."
} 
}

DEIGNORE PROSEDÜRÜ (Karalisteden çıkarma)

PHP- Kodu:

   bind pub - !deignore engelac
proc engelac {nick host handle chan text} {
if {[llength $text] eq 1 & [onchan $nick "#dj"]} {
set nickdosyasi [open "nickler.txt" r]
set nicks [split [read -nonewline $nickdosyasi] \n]
close $nickdosyasi
set nicki [lsearch -nocase $nicks $text]
set buldegis [lreplace $nicks $nicki $nicki]
set olustur [open "nickler.txt" w]
puts $olustur [join $buldegis "\n"]
close $olustur
putquick "privmsg #dj :\002 $text \002karalisteden çıkartıldı.."
}
}

ISTEK PROSEDURUNDE ISTEK YOLLANMADAN ONCE EKLENECEK KOD :

PHP- Kodu:

   set nickdosyasi [open "nickler.txt" r]
set nicks [split [read -nonewline $nickdosyasi] \n]
close $nickdosyasi
set uyari "Nickiniz istek gönderimi için engellenmiştir.."
if {[lsearch -nocase $nicks $nick] > -1]} { putquick "notice $nick : $uyari"; return }

+ Kanal yerlerini kendi kanalınıza göre ayarlayınız..
+ lsearch -nocase komutu TCL8.5 ve üstü versionlarda çalışmaktadır bilginize...

unpainful

18 Mart 2016 23:19

Cevap: eski nicke geçme tcl

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041756805)

İGNORE PROSEDÜRÜ (Karalisteye ekleme)

PHP- Kodu:

   bind pub - !ignore engelle

proc engelle {nick host handle chan text} {

if {[llength $text] eq 1 & [onchan $text $chan] & [onchan $nick "#dj"]} {

set dosya [open "nickler.txt" a]

puts $dosya $text

close $dosya

putquick "privmsg #dj :\002 $text \002karalisteye eklendi.."

} 

}

DEIGNORE PROSEDÜRÜ (Karalisteden çıkarma)

PHP- Kodu:

   bind pub - !deignore engelac

proc engelac {nick host handle chan text} {

if {[llength $text] eq 1 & [onchan $nick "#dj"]} {

set nickdosyasi [open "nickler.txt" r]

set nicks [split [read -nonewline $nickdosyasi] \n]

close $nickdosyasi

set nicki [lsearch -nocase $nicks $text]

set buldegis [lreplace $nicks $nicki $nicki]

set olustur [open "nickler.txt" w]

puts $olustur [join $buldegis "\n"]

close $olustur

putquick "privmsg #dj :\002 $text \002karalisteden çıkartıldı.."

}

}

ISTEK PROSEDURUNDE ISTEK YOLLANMADAN ONCE EKLENECEK KOD :

PHP- Kodu:

   set nickdosyasi [open "nickler.txt" r]

set nicks [split [read -nonewline $nickdosyasi] \n]

close $nickdosyasi

set uyari "Nickiniz istek gönderimi için engellenmiştir.."

if {[lsearch -nocase $nicks $nick] > -1]} { putquick "notice $nick : $uyari"; return }

+ Kanal yerlerini kendi kanalınıza göre ayarlayınız..
+ lsearch -nocase komutu TCL8.5 ve üstü versionlarda çalışmaktadır bilginize...

Teşekkür ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] fakat ignore kaldırma çalışmıyor malesef ve en sonki kodu nereye eklememiz gerek?

rascoLn

19 Mart 2016 11:55

Cevap: eski nicke geçme tcl

deignore çalıişıyor fakat attığım postun sonundaki yazıyı okumadınız TCL8.5 ve üzeri versionlarda çalışacak komutu belirtmişim orda o yuzden ignore kaldırma çalışmamıştır sizde.

Neise o komutun amacı farzedelim nickler.txt içinde "unpainful" nicki var ben silme işlemi yaparken "uNPainFuL" yazdım büyük küçük ayrımı yapmadan o nicki yakalayıp silmesi içindi.

Şimdi vericeğim kodda çalışacaktır fakat büyük küçük uyumsuz olur buna dikkat edelim aynısını yazmak zorunda kalacaksınız..

deignore prosedüründe bu satırı :

PHP- Kodu:

   set nicki [lsearch -nocase $nicks $text]

Şu satırla değiştir:

PHP- Kodu:

   set nicki [lsearch -exact $nicks $text]

Diğer sorunuza gelirsek kullandığınız botun tcl sini bilmediğim için o şekilde yazdım
son kodları. Tcl de !istek komutunu çalıştıran prosedürün icinde kullanacaksınız o kodu.

!istek yazdığı an verdiğim sorgu devreye girecek nicki varsa listede uyarıyı gösterecek..

Yine o kodda bu satırı:
if {[lsearch -nocase $nicks $nick] > -1]} { putquick "notice $nick : $uyari"; return }
Şu satırla değiştir:
if {[lsearch -exact $nicks $nick] > -1]} { putquick "notice $nick : $uyari"; return }

unpainful

19 Mart 2016 19:38

Cevap: eski nicke geçme tcl

Alıntı:

bind pub - !istek istekoff
proc istekoff {nick uhost hand chan text} {
setudef flag radyocmd
if {[string match -nocase "#DJ" $chan]} {
set komut [lindex $text 0]
if {$komut == ""} { putquick "PRIVMSG #DJ :Kullanımı !istek aç/kapat şeklindedir."; return 0 }
if {[string match -nocase "ac" $komut]} { channel set $chan +radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Kabul Edilecek."; return 0 }
if {[string match -nocase "kapat" $komut]} { channel set $chan -radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Reddedilecek."; return 0 }
}
if {[string match -nocase "#Radyo" $chan]} {
if {[lsearch -exact [channel info #DJ] +radyocmd] != -1} {
putquick "PRIVMSG #Radyo :2İsteğiniz DJ'lerimize İletilmiştir 4$nick ,2teşekkürler."
putquick "PRIVMSG #DJ 6G E L E N İ S T E K"
putquick "PRIVMSG #DJ 4----------------------------------------------------"
putquick "PRIVMSG #DJ 2İstek:1 $text "
putquick "PRIVMSG #DJ 4----------------------------------------------------"
putquick "PRIVMSG #DJ 2İstekte Bulunan Kullanıcı: 1 $nick"
putquick "PRIVMSG #DJ 4----------------------------------------------------"
}
if {[lsearch -exact [channel info #DJ] +radyocmd] == -1} {
putquick "PRIVMSG #Radyo Üzgünüz Dj'imiz İstekleri Kabul Etmemektedir $nick."

}
}
}

Istek tcl bu şekilde fakat belirttiğiniz kodu ekleyince hiç bir şekilde istek almıyor @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

rascoLn

19 Mart 2016 23:58

Cevap: eski nicke geçme tcl

PHP- Kodu:

   bind pub - !istek istekoff
proc istekoff {nick uhost hand chan text} {
  setudef flag radyocmd
  if {[string match -nocase "#DJ" $chan]} {
    set komut [lindex $text 0]
    if {$komut == ""} { putquick "PRIVMSG #DJ :Kullanımı !istek aç/kapat şeklindedir."; return 0 }
    if {[string match -nocase "ac" $komut]} { channel set $chan  +radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Kabul Edilecek.";  return 0 }
    if {[string match -nocase "kapat" $komut]} { channel set $chan  -radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Reddedilecek."; return 0  }
    }
    if {[string match -nocase "#Radyo" $chan]} {
    if {[lsearch -exact [channel info #DJ] +radyocmd] != -1} {
        set nickdosyasi [open "nickler.txt" r] 
        set nicks [split [read -nonewline $nickdosyasi] \n] 
        close $nickdosyasi 
        set uyari "Nickiniz istek gönderimi için engellenmiştir.." 
    if {[lsearch -exact $nicks $nick] ne -1]} { putquick "notice $nick : $uyari"; return }  
      putquick "PRIVMSG #Radyo :2İsteğiniz DJ'lerimize İletilmiştir 4$nick ,2teşekkürler."
    putquick "PRIVMSG #DJ 6G E L E N  İ S T E K"
    putquick "PRIVMSG #DJ 4----------------------------------------------------"
    putquick "PRIVMSG #DJ 2İstek:1 $text "
    putquick "PRIVMSG #DJ 4----------------------------------------------------"
    putquick "PRIVMSG #DJ 2İstekte Bulunan Kullanıcı: 1 $nick"
    putquick "PRIVMSG #DJ 4----------------------------------------------------"
    }
    if {[lsearch -exact [channel info #DJ] +radyocmd] == -1} { 
    putquick "PRIVMSG #Radyo Üzgünüz Dj'imiz İstekleri Kabul Etmemektedir $nick."  
 
    }
  }
}

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