###############
# Control TCL #
###############

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

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

# Zline suresini belirtiniz.
# 1h = 1 saat.
# 30m = 30 dakika.
# 30s = 30 saniye.
set vrsy(sure) "1m"

# Zline ile uzaklastirma sebebini belirtiniz.
set vrsy(rasn) "Lutfen 1 dakika sonra 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adresinden giris yapiniz."

#################
# ELLEME CISS ! #
#################

bind raw * notice connect:user
proc connect:user {from keyword arg} { 
global botnick vrsy appver
	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]
	set appver([string tolower $nick]) 1
		if {$port == $vrsy(port)} {
			bind ctcr - VERSION applet:version
			putquick "PRIVMSG $nick :\1VERSION\1"
			#putquick "privmsg $vrsy(knal) :*** - \002Giris\002 - \002$nick ($ident@$host)\002 su anda \002WEB\002 portundan sunucuya giris yapti client program kontrolu yapiliyor."
			utimer 2[list applet:no:version $nick]
		}
	}
}

proc applet:version {nick uhost handle {dest ""} keyword arg} {
global botnick vrsy appver
	if {[info exists appver([string tolower $nick])]} {
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
	}
	if {![string match -nocase "*esChat*v3*9b*2009*" $arg]} {
		putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
		putquick "privmsg $vrsy(knal) :*** - \002Version\002 - \002$nick\002 WEB portundan mIRC ile giris yaptigi icin sunucudan uzaklastirildi."
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
	} else {
		putquick "NOTICE $nick :*** Versiyon kontrolunden basarili bir sekilde gectiniz, keyifli sohbetler dileriz."
		unset appver([string tolower $nick])
		unbind ctcr - VERSION applet:version
	}
}

proc applet:no:version {nick} {
global botnick appver
	if {[info exists appver([string tolower $nick])]} {
		putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
		putquick "privmsg $vrsy(knal) :*** - \002Version\002 - \002$nick\002 VERSION cevabi vermedigi icin sunucudan uzaklastirildi."
		unset appver([string tolower $nick])
	}
}

################################
putlog "TCL basariyla yuklendi."
putlog "control.tcl by Namesis."
################################