IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Büyük sunucularda genel olarak her bölümün bir sorumlusu vardır. Ve her ayın 1’inde yada sonlarında skorlar sıfırlanır. Yeri gelir telnet sorumlusu online olmadığı için sıfırlama yapılamaz. Bu vermiş olduğum tcl ile telnet sorumlusuna gerek kalmadan kanal founderiniz istediği zaman skor’u sıfırlayabilir.

Kod:

set skortemizle(pass) "sifremdensanane"

set skortemizle(kanal) "#Oyun"
 

bind msg - .skortemizle skor:temizlet

proc skor:temizlet {nick uhost hand text} {

  global botnick skortemizle

  set parola "[lindex $text 0]"

  if {[string match -nocase "" $parola]} {

    putquick "PRIVMSG $nick :Hata: Bu komutu uygulamak için parolayı girmeniz gerekmektedir."

  }

  if {![string match -nocase "" $parola] && ![string match -nocase "$skortemizle(pass)" $parola]} {

    putquick "PRIVMSG $nick :Hata: Belirtmiş olduğunuz parola doğru değildir."

  }

  if {![string match -nocase "" $parola] && [string match -nocase "$skortemizle(pass)" $parola]} {

    set file(open) [open "scripts/oyun.scores" "w"] 

    close $file(open)

    putquick "PRIVMSG $nick Tebrikler: Parolayı doğru girdiniz, SKOR tablosu tarafınızca sıfırlanmıştır."

    putquick "PRIVMSG $skortemizle(kanal) :Oyun skor tablosu sıfırlanmıştır."

  }

}
 

putlog "Oyun Eklenti TCL yüklendi."