[MatheuS]

Ş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:   Kodu kopyalamak için üzerine çift tıklayın!

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
  }
}