# I made this 'cause I was bored and had nothing else to do...
# I have made other scripts, and might release them to the public
# You can catch me on DALnet under the nick ^MrMike^
# BTW, I didn't test this but it should work

bind pubm - * pubm_ai

proc pubm_ai {nick uhost hand chan arg} {
global uptime
	foreach i [join $arg] {
		if {[string compare [string tolower $i] hi] == 0} {
			say $chan "Hey $nick!"
		}
		if {[string compare [string tolower $i] hello] == 0} {
			say $chan "Hiya $nick!"
		}
		if {[string compare [string tolower $i] yo] == 0} {
			say $chan "Yo $nick! What's up?"
		}
		if {[string compare [string tolower $i] hey] == 0} {
			say $chan "Hey $nick!"
		}
		if {[string compare [string tolower $i] fuck] == 0} {
			say $chan "Strong language there $nick!"
		}
		if {[string compare [string tolower $i] shit] == 0} {
			say $chan "It's ok...I'm sure we can work it out"
		}
		if {[string compare [string tolower $i] ass] == 0} {
			say $chan "Bots don't have those :-)"
		}
		if {[string compare [string tolower $i] a/s/l] == 0} {
			say $chan "$uptime seconds/bot/$chan"
		}
		if {[string compare [string tolower $i] happy] == 0} {
			say $chan "I'm glad your happy, $nick"
		}
		if {[string compare [string tolower $i] :-)] == 0} {
		set outputiz [lindex $scans [rand [llength $scans]]]
		putserv "PRIVMSG $chan :$outputiz"
		}
		if {[string compare [string tolower $i] :>] == 0} {
		set outputiz [lindex $scans [rand [llength $scans]]]
		putserv "PRIVMSG $chan :$outputiz"
		}
		if {[string compare [string tolower $i] ;-)] == 0} {
		set outputiz [lindex $scans [rand [llength $scans]]]
		putserv "PRIVMSG $chan :$outputiz"
		}
		if {[string compare [string tolower $i] :)] == 0} {
		set outputiz [lindex $scans [rand [llength $scans]]]
		putserv "PRIVMSG $chan :$outputiz"
		}
		if {[string compare [string tolower $i] ;)] == 0} {
		set outputiz [lindex $scans [rand [llength $scans]]]
		putserv "PRIVMSG $chan :$outputiz"
		}
		if {[string compare [string tolower $i] party] == 0} {	
			say $chan "Good idea $nick! We'll have a party!"
		}
		if {[string compare [string tolower $i] xmas] == 0} {
			say $chan "Merry Xmas!"
		}
		if {[string compare [string tolower $i] christmas] == 0} {
			say $chan "Merry Xmas!"
		}
		if {[string compare [string tolower $i] l33t] == 0} {
			say $chan "t|-|åt  ¦§ £éèt"
		}
		if {[string compare [string tolower $i] leet] == 0} {
			say $chan "t|-|åt  ¦§ £éèt"
		}
		if {[string compare [string tolower $i] sex] == 0} {
			say $chan "Bots can't do that :-("
		}
		if {[string compare [string tolower $i] cybersex] == 0} {
			say $chan "Bad $nick!"
		}
	}
}

proc say {who what} {
	putserv "PRIVMSG $who :$what"
}

set smiley {
":-)"
"B-)"
"((:))"
"|:-)"
"<|:-)"
"-(|:-)"
">[:]-)"
"F:-)"
"{:-)"
"8-)"
"@@@@@@:-)"
":-]"
":-))"
}

putlog "AI.tcl by ^MrMike^ loaded"