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

Şimdi ben şöyle birşey yapmayı denedim ve başarılıda oldum diyebilirim. DJ kanalında .djon yazıldığında dj yayına geçiş yapıyor radyo kanalına bilgi gönderiliyor host ident değişiyor + nicke Dj| eki verdiriyorum bi txt ye esas nicki alarak fakat .djoff yazdıgında istiyorumki bu nick tekrar geri verilsin bunuda başardım fakat ikinci kişi .djon .djoff yaptıgında ilk yapanın nickini geri alıyor. txt den o nicki çıkış yapınca sildirmek istiyorum ama başaramadım. Yardım edebilecek olan varsa teşekkür ederim.

Kod:

bind pub - .djon djonline
 

proc djonline { nick uhost hand chan arg } {

global radyoname radyohost radyolink adminchans

set djnick $nick 

set djlist [open "scripts/djliste.txt" r]

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

close $djlist

  if {[string match -nocase $adminchans $chan]} {

    if {![llength $nicks]} { 

      set djlist [open "scripts/djliste.txt" w] 

    } else { 

      set djlist [open "scripts/djliste.txt" a] 

    }

    foreach line $nicks { 

      if {[string match -nocase $djnick $line]} { 

        putquick "privmsg $chan :$djnick Yayın Girişiniz Gerçekleştiriliyor..." 

      } 

    }

puts $djlist "$djnick" 

close $djlist

  putserv "CHGHOST $nick Dj.$radyohost"

  putserv "CHGIDENT $nick $radyoname"

  putserv "CHGNAME $nick $radyoname \00303OnLine Dj'i\003"

  putserv "Operserv raw svsnick $nick Dj|$nick 1:0"

  putserv "Operserv raw svsmode +Wq"

  putserv "privmsg $adminchans $radyoname 'e Dj Olarak Giriş Yaptınız."

  poststuff privmsg "$radyoname 'de Dj'lerimizden $nick Şu Anda OnLine Konuma Geçmiştir."

  poststuff privmsg "$radyoname 'i Winamp'tan Dinlemek Icin $radyolink"

  }

}
 
 

bind pub - .djoff djoffline
 

proc djoffline { nick uhost hand chan arg } {

global radyoname radyohost radyolink adminchans

set djlist [open "scripts/djliste.txt" r]

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

  if {[string match -nocase $adminchans $chan]} {

    putserv "CHGHOST $nick $nicks.$radyohost"

    putserv "CHGIDENT $nick Sohbet"

    putserv "CHGNAME $nick 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putserv "Operserv raw svsnick $nick $nicks 1:0"

    putserv "privmsg $adminchans $radyoname 'den Dj Olarak Çıkış Yaptınız."

    poststuff privmsg "$radyoname 'de Dj'lerimizden $nick Şu Anda OffLine Konuma Geçmiştir."

    poststuff privmsg "$radyoname 'i Winamp'tan Dinlemek Icin $radyolink"

close $djlist

set sil $nicks

set line [lsearch -exact $nicks "$sil" ] 

set djnick [lreplace $nicks $line $line] 

set djlist [open "scripts/nicklist.txt" w] 

puts $djlist [join $djnick "\n"] 

close $djlist

  }

}