bind pub - !kiss pub_kiss

catch {set rankiss [split [read [set f [open "/usr/home/thuggawd/eggdrop/scripts/bottalk/kiss.txt" r]]] \n ] ; close $f}

proc pub_kiss {nick uhost hand chan text} {
if {[llength [split $text ""]] == 0} {
	putquick "PRIVMSG $nick :Corrent Syntax: !kiss <nick>"
	return
}
if {![onchan $text $chan]} {
	putquick "PRIVMSG $nick :I can not find $text in $chan"
	return
} else {
	puthelp "PRIVMSG $chan :\001ACTION [string map "<nick> $nick <2nd> $£" [lindex $::rankiss [rand [llength $::rankiss]]]]\001"
	}
}