# o trasnaie de enervat poporul pe canal cand aude bot-ul de beutura :)
# AltBlue 2002
#
# version stuff..
set betiv_version v1.0


#####
## BINDINGS
bind pubm - "*" betiv_lame
bind ctcp - ACTION betiv_ctcp

set betiv_lame {
  {Betzivule!}
  {Bei fara mine ?}
  {Can I join you for a drink ?}
  {Am auzit io bine, da careva de băut ?!}
}


proc betiv_lame {nick uhost hand chan arg} {
	global botnick
	if {[string tolower $nick] == [string tolower $botnick]} {return 0}
	if [regexp -nocase {(^|[^a-zA-Z])(b[e|a]utura|te(qui|k|qi)ll?a|me[s|z]cal|ra(ch|k)iu|tz?ui(ca|k)|vermut|wh?iske?y|vo(d|t)(ca|k)|vin|li(k|ch)ior|co(gn|ni)ac|martini|campari|zaibar)([^a-zA-Z]|$)} $arg match] {
		global betiv_lame
		putlog "BETIV nausea from $nick"
		putserv "PRIVMSG $chan :\001ACTION says to $nick: [lindex $betiv_lame [rand [llength $betiv_lame]]] \001"
	}
	return 0
}

proc betiv_ctcp {nick uhost hand chan key arg} {
	betiv_lame $nick $uhost $hand $chan $arg
	return 0
}


putlog "Drinkers nausea $betiv_version loaded."