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