radyo.tcl dj online yardım lazım - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

MatheuS · 20 Temmuz 2015, 16:42

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

¿ · 20 Temmuz 2015, 17:34

Satiri sildirmene gerek yok text dosyasini yenilersin.

set dosyayenile [open "scripts/nicklist.txt" w]
close $dosyayenile

MatheuS · 23 Temmuz 2015, 11:31

ben zaten djlistede değil nicklist te aratıyormuşum nicki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sonradan farkettim. şimdi sildirebiliyorum fakat şöyle bişey yapabilirmiyiz buna birisi .djon dedikten sonra .djoff demeden başka kişi .djon diyemesin.

¿ · 23 Temmuz 2015, 13:04

Yapabilirsin sana mantigini soylim mesela text dosyasinda veri yok ise .djon komutunu kullanabilirler var ise text dosyasinin icinde ki rumuz .djoff komutunu kullanana kadar kimse .djon komutunu kullanamaz seklinde bi duzenleme yapabilirsin.

MatheuS · 24 Temmuz 2015, 10:50

tcl kodlamasında çok yeniyim bi örnekle açıklayabilirsen çok makbule geçer gerisini çözebilirim diye sanıyorum. yardımın içinde çok teşekkür ederim.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Radyo Conf ve Tcl Lazım	iLLuSioNiST	Eggdrop, NeoStats, BNC	2	17 Kasım 2017 19:28
Radyo botu lazım	SpLack	Eggdrop, NeoStats, BNC	6	05 Ocak 2010 02:33
Lütfen Yardım Radyo Addonu Lazım	eXLove	mIRC Scripting Sorunları	4	25 Eylül 2008 12:39
Online radyo Yardım!!!	Alovepoem	PHP	12	06 Aralık 2007 16:34

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.