IRCForumu.Net | Türkiye'nin IRC ve mIRC Forumu   Reklam Alanı

 

Go Back   IRCForumu.Net | Türkiye'nin IRC ve mIRC Forumu > IF - Unreal, Services ve Eggdroplar > Eggdrop ve BNC > TCL Scriptler

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 02 Temmuz 2016, 14:18   #1
Gelme, burası çok derin.
Avatar Yok
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 584
WEB Sitesi: www.Sohbetsin.Com
IRC Sunucusu: irc.FixSohbet.Net
İlgi Alanı: Domain
Kan Grubu: A RH (+)
Alınan Beğeni: 86
Post VERSION ve FINGER TCL

version-cevapli-appletler-icin


Kod:
#########################
# VERSION ve FINGER TCL #
#########################

# Log kanalini belirtiniz.
set vrsy(knal) "#Log"

# Portu belirtiniz.
set vrsy(port) "7000"

# Versiyon korumasinin durumu. Kapatmak icin: "0" yapiniz.
set vrsy(vdrm) "1"

# Applet versiyon cevabini yaziniz.
set vrsy(aplt) "*esChat v?* ? 200*"

# Finger korumasinin durumu. Kapatmak icin: "0" yapiniz.
set vrsy(fdrm) "1"

# Atilacak olan x:line islemi.
# X:line(lar): "SHUN", "KLINE", "ZLINE", "GLINE", "GZLINE"
set vrsy(xlne) "SHUN"

# X:Line suresini belirtiniz.
# "1d" = 1 gun.
# "1h" = 1 saat.
# "30m" = 30 dakika.
# "30s" = 30 saniye.
# "0" = Suresiz.
set vrsy(sure) "30s"

# X:line sebebini belirtiniz.
set vrsy(rasn) "\002VERSION\002 ve/veya \002FINGER\002 kontrolunden gecemediniz. Lutfen bir sure sonra sunucumuzun web adresinden tekrar girmeyi deneyiniz."

# Cevap vermeyen client programlarini ne kadar sure beklesin ? (Saniye cinsinden.)
set vrsy(tmrs) "7"

# Sunucuya girenler hakkinda log kanal'ina bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lcon) "1"

# Log kanalina versiyon korumasindan basariyla gecenler hakkinda bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lcok) "1"

# Log kanalina versiyon korumasindan gecemeyenler hakkinda bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lmsg) "1"

# Web portundan giriste kullaniciya versiyon ve finger kontrollerinden basarili bir sekilde gectigine dair mesaj atilmasi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(unot) "1"

# Kullaniciya mesaj ne olarak iletilsin ? Notice icin: "NOTICE" Ozele mesaj icin: "PRIVMSG" yaziniz.
set vrsy(mmtd) "NOTICE"

# Kullaniciya versiyon korumasindan gectigine dair gidecek olan mesaji belirtiniz.
set vrsy(vmsg) "\002VERSION\002 kontrolunden basarili bir sekilde gectiniz."

# Kullaniciya finger korumasindan gectigine dair gidecek olan mesaji belirtiniz.
set vrsy(fmsg) "\002FINGER\002 kontrolunden basarili bir sekilde gectiniz."

# Log kanalina cevap vermeyen client baglantilarini uzaklastirdigina dair bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lnvr) "1"

# Log kanalina versiyon korumasi sirasinda nick degisir ise bilgi vermesi icin 1 yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lndg) "1"

# Log kanalina finger korumasindan gecemeyenler hakkinda bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lfgd) "1"

# Log kanalina finger korumasindan basariyla gecenler hakkinda bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lfgt) "1"

##############################################
#        Ayarlamalar buraya kadardi.         #
#         Bundan sonrasina dokunma.          #
#          Bozulur ve calismaz. :)           #
# Biliyor olsaydin kendin yapardin zaten. :( #
##############################################

bind raw * notice connect:user
proc connect:user {from keyword arg} { 
global botnick vrsy
	if {[string match -nocase "*Client connecting*" $arg]} {
		set nick [lindex $arg 9]
		set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
		set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
		set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
		if {$port != $vrsy(port)} {
			putquick "PRIVMSG $nick :\1FINGER\1"
			putquick "PRIVMSG $nick :\1VERSION\1"
		}
		if {$port == $vrsy(port)} {
			if {$vrsy(lcon) == "1"} { putquick "PRIVMSG $vrsy(knal) :*** (\002CONNECT\002) - \002$nick ([email protected]$host)\002 su anda \002WEB\002 portundan sunucuya giris yapti, \002FINGER\002 ve \002VERSION\002 kontrolu yapiliyor." }
			if {$vrsy(vdrm) == "1"} { set ::appver($nick) $nick; bind ctcr - VERSION applet:version; putquick "PRIVMSG $nick :\1VERSION\1"; utimer $vrsy(tmrs)[list applet:no:version $nick] }
			if {$vrsy(fdrm) == "1"} { set ::appfin($nick) $nick; bind ctcr - FINGER applet:finger; putquick "PRIVMSG $nick :\1FINGER\1"; utimer $vrsy(tmrs)[list applet:no:finger $nick] }
		}
	}
	if {[string match -nocase "*changed his/her nickname*" $arg]} {
		set nick [lindex $arg 4]
		set ident [string range [lindex [split [lindex $arg 5] "@"] 0] 1 end]
		set host [string range [lindex [split [lindex $arg 5] "@"] 1] 0 end-1]
		set newnick [lindex $arg 11]
		if {$vrsy(vdrm) == "1"} {
			if {[info exists ::appver]} {
				foreach {rumuz veri} [array get ::appver] {
					if {$rumuz == $nick} {
						unset ::appver($rumuz)
						set ::appver($newnick) $newnick
						if {$vrsy(lndg) == "1"} { putquick "PRIVMSG $vrsy(knal) :*** (\002NICK\002) - \002$nick\002 \002VERSION\002 korumasi sirasinda nickini degistirerek \002$newnick\002 oldu." }
						bind ctcr - VERSION applet:version
						putquick "PRIVMSG $newnick :\1VERSION\1"
						utimer $vrsy(tmrs)[list applet:no:version $newnick]
					}
				}
			}
		}
		if {$vrsy(fdrm) == "1"} {
			if {[info exists ::appfin]} {
				foreach {rumuz veri} [array get ::appfin] {
					if {$rumuz == $nick} {
						unset ::appfin($rumuz)
						set ::appfin($newnick) $newnick
						if {$vrsy(lndg) == "1"} { putquick "PRIVMSG $vrsy(knal) :*** (\002NICK\002) - \002$nick\002 \002FINGER\002 korumasi sirasinda nickini degistirerek \002$newnick\002 oldu." }
						bind ctcr - FINGER applet:finger
						putquick "PRIVMSG $newnick :\1FINGER\1"
						utimer $vrsy(tmrs)[list applet:no:finger $newnick]
					}
				}
			}
		}
	}
}

proc applet:version {nick uhost handle {dest ""} keyword arg} {
global botnick vrsy
	if {[string match $vrsy(aplt) $arg]} {
		if {$vrsy(unot) == "1"} { putquick "$vrsy(mmtd) $nick :$vrsy(vmsg)" }
		if {$vrsy(lcok) == "1"} { putquick "PRIVMSG $vrsy(knal) :*** (\002VERSION\002) - \002$nick\002 \002VERSION\002 korumasindan basariyla gecti." }
		unset ::appver($nick)
		unbind ctcr - VERSION applet:version
	} else {
		if {$vrsy(xlne) == "SHUN"} { putquick "$vrsy(mmtd) $nick :\002VERSION\002 kontrolunden gecemediginiz icin \002SHUN\002 atildi." }
		putquick "$vrsy(xlne) $nick $vrsy(sure) $vrsy(rasn)"
		if {$vrsy(lmsg) == "1"} { putquick "PRIVMSG $vrsy(knal) :*** (\002VERSION\002) - \002$nick\002 \002WEB\002 portundan \002mIRC\002 veya benzeri bir client programi ile giris yaptigi icin \002$vrsy(xlne)\002 atildi." }
		unset ::appver($nick)
		unbind ctcr - VERSION applet:version
	}
}

proc applet:no:version {nick} {
global botnick vrsy
	if {[info exists ::appver]} {
		foreach {rumuz veri} [array get ::appver] {
			if {$rumuz == $nick} {
				if {$vrsy(lnvr) == "1"} { putquick "PRIVMSG $vrsy(knal) :*** (\002VERSION\002) - \002$nick\002 \002VERSION\002 cevabi vermedigi icin \002$vrsy(xlne)\002 atildi." }
				if {$vrsy(xlne) == "SHUN"} { putquick "$vrsy(mmtd) $nick :\002VERSION\002 kontrolunden gecemediginiz icin \002SHUN\002 atildi." }
				putquick "$vrsy(xlne) $nick $vrsy(sure) $vrsy(rasn)"
				unset ::appver($nick)
			}
		}
	}
}

proc applet:finger {nick uhost handle {dest ""} keyword arg} {
global botnick vrsy
	if {[string match "*" $arg]} {
		if {$vrsy(xlne) == "SHUN"} { putquick "$vrsy(mmtd) $nick :\002FINGER\002 kontrolunden gecemediginiz icin \002SHUN\002 atildi." }
		putquick "$vrsy(xlne) $nick $vrsy(sure) $vrsy(rasn)"
		if {$vrsy(lfgd) == "1"} { putquick "PRIVMSG $vrsy(knal) :*** (\002FINGER\002) - \002$nick\002 \002WEB\002 portundan mIRC veya benzeri bir client programi ile giris yaptigi icin \002$vrsy(xlne)\002 atildi." }
		unset ::appfin($nick)
		unbind ctcr - FINGER applet:finger
	}
}

proc applet:no:finger {nick} {
global botnick vrsy
	if {[info exists ::appfin]} {
		foreach {rumuz veri} [array get ::appfin] {
			if {$rumuz == $nick} {
				if {$vrsy(unot) == "1"} { putquick "$vrsy(mmtd) $nick :$vrsy(fmsg)" }
				if {$vrsy(lfgt) == "1"} { putquick "PRIVMSG $vrsy(knal) :*** (\002FINGER\002) - \002$nick\002 \002FINGER\002 korumasindan basariyla gecti." }
				unset ::appfin($nick)
			}
		}
	}
}

#################################
putlog "TCL basariyla yuklendi. "
putlog "version-finger.tcl by version "
#################################
__________________
immortaL isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla

Etiketler
finger, tcl, version

Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Forum Yasal Uyarı
Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Kuruluş: IRCForumu.Net © 30 Nisan 2018 Cumartesi
Kurucular: immortaL

IRCForumu.Net Her Hakkı Saklıdır.

irc forumu | ircforumları | irc forumları |
Sitemiz bir "paylaşım" sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir. Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumu.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda [email protected] adresine mail atıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.

5101 sayılı yasayla değişik 5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı T.C. Kültür ve Turizm Bakanlığı tarafından hak sahipliği verilmiş olan MÜ-YAP tarafından yasaklanmış olup, yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.