bind ctcp - ACTION DiebCheckCTCP;
bind pubm - * DiebCheckPUBM;
bind msgm - * DiebCheckMSGM;
bind notc - * DiebCheckNOTC;
bind msg - "diebliste" DiebListMSG;

namespace eval ::OnlineDieb:: {

### vars

set develop 0
if {$::botnick=="MegaHAL" || $::botnick=="NewS-FlasH"} { set develop 1 }

set major 0
set minor 3
if {![info exist build] || !$develop} { set build 87 } { incr build }
set ::lateststable 0.3.87

### helper

if {$::lateststable!="$major.$minor.$build"} { if $develop { putcmdlog "Warning! Developer Mode \002ON\002" } { putcmdlog "Warning! Unstable Version!" } }
}

proc DiebListMSG {nick host hand text} {
	foreach Dieb [lsort -dictionary $::DiebList] { putmsg $nick $Dieb }
	putmsg $nick "Done"
	return 1
}

# funnystuff.fu.funpic.de
set ::TrojanList [list {*.1gb.in*} {*.de.ms*} {*.net.ms*} {*.com.ms*} {*.org.ms*} {*.funpics.jp.pn*} {*www.sarah16.de.tc*} {*funnystuff.*.funpic.de*} {*pics.p0rnking.info*} {*clanfxs.*.funpic.de*} {*www.irc-fun.tk/stuff/schnappi_death.jpg*} {http://people.freenet.de/radio-funpic/*} {http://*freenet.de/*/me.jpg} {*billard-cafe-friedberg.de/*.jpg*} {*mitglied.lycos.de/sibbyone*} {*mitglied.lycos.de/juliemausie*} ];
set ::DiebList [list {*drogendealer.de*dd*cgi*} {*sei-mein-freund.de*} {*tanjaswelt.funpic.de*} {*game.fun-place.info*} {*game.funcrew.info*} {*staemmespiel.*.funpic.de*} {*#Quiz-Welt*} {*nase.black-entity.de*} {*cgi-ebay.tk*} {*cyberthug.de*id=*} {*steinzeitspiel.de*} {*kroeger-consulting.info*} {*weltenkrieg.de*} {*billard-cafe-friedberg.de/*.jpg*} {*mitglied.lycos.de/sibbyone*} {*mitglied.lycos.de/juliemausie*} {*chatandwin.at*} {*kromberg.at*} {*12earn.de/?refid*} {*meisterdieb.b3cks.com/?*} {*samuraiwar.com/page.php?x*} {*lmsonline.de/Dieb/dieb.php?id=*} {*onlineklau.de*} {*mikseri.net/artistit/?id=*} {*klamm.de/index.php?refid=*} {*klamm.de/?refid=*} {*klamm.de?refid=*} {*gelitten.com/game*} {*outwar.com/page.php*} {*kingsofchaos.com/page*} {*wurzelpilz.de/pilzspor*} {*ravenblack.net/blood*} {*onlinedieb.hasso.net/index.php*} {*cheats4us.org/pimptest*} {*pornstarguru.com/page.php*} {*sharemania.net*} {*projectx-thegame.de*} {*inselspiel.de/?ref=*} {*inselspiel.de?ref=*} {*inselspiel.de/index.php?ref*} {*free-root.com/x.php?id=*}];

proc DiebCheckCTCP {nick host hand dest key text} 	{if [DiebCheck $nick $host $hand $text $dest] {return 1} {return 0}}
proc DiebCheckPUBM {nick host hand chan text} 		{if [DiebCheck $nick $host $hand $text $chan] {return 1} {return 0}}
proc DiebCheckMSGM {nick host hand text} 		{if [DiebCheck $nick $host $hand $text] {return 1} {return 0}}
proc DiebCheckNOTC {nick host hand text dest} 		{if [DiebCheck $nick $host $hand $text $dest] {return 1} {return 0}}

proc DiebCheckFriend {nick host hand text {chan ""} {msg 0}} {
	if {[string index $chan 0]!="#"} {set chan ""} 
	if {$chan==""} {
		#putmsg #cybex.test "kein channel"
		foreach Dieb $::TrojanList { if [string match -nocase *$Dieb* $text] {
			foreach ch [channels] { if [onchan $nick $ch] {
				DiebCheck $nick $host $hand $text $ch 1
			} }
			return 1
		} }
		foreach Dieb $::DiebList { if [string match -nocase *$Dieb* $text] {
			foreach ch [channels] { if [onchan $nick $ch] {
				DiebCheck $nick $host $hand $text $ch 1
			} }
			return 1
		} }
	} {
		foreach Dieb $::TrojanList { if [string match -nocase *$Dieb* $text] {
				if $msg {
					puthelp "PRIVMSG $chan :$nick, you have a trojan/backdoor/virus/crappy stuff.. remove it and come back in 6 hours.." -next
				} {
					puthelp "PRIVMSG $chan :$nick, you have a trojan/backdoor/virus/crappy stuff.. remove it and come back in 6 hours.." -next
				}
				return 1
		} }
		foreach Dieb $::DiebList { if [string match -nocase *$Dieb* $text] {
				if $msg {
					puthelp "PRIVMSG $chan :$nick, go away - fucking links in query" -next
					#putmsg #cybex.test "query spam kick in $chan"
				} {
					puthelp "PRIVMSG $chan :$nick, go away - your link suxx" -next
				}
				return 1
		} }
	}
	return 0
}

proc DiebCheck {nick host hand text {chan ""} {msg 0}} {
	if {[matchattr $hand b]} {return 0}
	if {[string index $chan 0]!="#"} {set chan ""} {
	  if {[matchattr $hand |mnofv $chan]} {
	    DiebCheckFriend $nick $host $hand $text $chan $msg
	    return 1
	  }
	}
	if {[matchattr $hand bmnofv]} {
	    DiebCheckFriend $nick $host $hand $text $chan $msg
	  return 1
	}
	#if {$chan=="#cybex.test"} { putmsg #cybex.test "test $nick!$host ($hand) in $chan - $text" }
	if {$chan==""} {
		#putmsg #cybex.test "kein channel"
		foreach Dieb $::TrojanList { if [string match -nocase *$Dieb* $text] {
			foreach ch [channels] { if [onchan $nick $ch] {
				DiebCheck $nick $host $hand $text $ch 1
			} }
			return 1
		} }
		foreach Dieb $::DiebList { if [string match -nocase *$Dieb* $text] {
			foreach ch [channels] { if [onchan $nick $ch] {
				DiebCheck $nick $host $hand $text $ch 1
			} }
			return 1
		} }
	} {
		foreach Dieb $::TrojanList { if [string match -nocase *$Dieb* $text] {
				if $msg {
					putquick "KICK $chan $nick :you have a trojan/backdoor/virus/crappy stuff.. remove it and come back in 6 hours.." -next
					putkick $chan $nick "you have a trojan/backdoor/virus/crappy stuff.. remove it and come back in 6 hours..";
					newchanban $chan $nick!*@* $::botnick "you have a trojan/backdoor/virus/crappy stuff.. remove it and come back in 1 hour.." 60
					newchanban $chan *!$host $::botnick "you have a trojan/backdoor/virus/crappy stuff.. remove it and come back in 1 hour.." 60
					#putmsg #cybex.test "query spam kick in $chan"
				} {
					putquick "KICK $chan $nick :you have a trojan/backdoor/virus/crappy stuff.. remove it and come back in 6 hours.." -next
					putkick $chan $nick "you have a trojan/backdoor/virus/crappy stuff.. remove it and come back in 6 hours..";
					newchanban $chan $nick!*@* $::botnick "you have a trojan/backdoor/virus/crappy stuff.. remove it and come back in 1 hour.." 60
					newchanban $chan *!$host $::botnick "you have a trojan/backdoor/virus/crappy stuff.. remove it and come back in 1 hour.." 60
					#putmsg #cybex.test "nu kick ich aber $nick!$host ($hand) $chan"
				}
				return 1
		} }
		foreach Dieb $::DiebList { if [string match -nocase *$Dieb* $text] {
				if $msg {
					putquick "KICK $chan $nick :go away - fucking links in query" -next
					putkick $chan $nick "go away - fucking links in query";
					newchanban $chan $nick!*@* $::botnick "your link suxx - dont give me urls in query" 60
					newchanban $chan *!$host $::botnick "your link suxx - dont give me urls in query" 60
					#putmsg #cybex.test "query spam kick in $chan"
				} {
					putquick "KICK $chan $nick :go away - your link suxx" -next
					putkick $chan $nick "go away - your link suxx";
					newchanban $chan $nick!*@* $::botnick "your link suxx" 60
					newchanban $chan *!$host $::botnick "your link suxx" 60
					#putmsg #cybex.test "nu kick ich aber $nick!$host ($hand) $chan"
				}
				return 1
		} }
	}
	return 0
}


namespace eval ::OnlineDieb:: {

set text "Loaded ${major}.${minor}.${build}"
if $develop { append text " - Lateststable $lateststable" }
return $text
unset text

}