away

######################################
# Away.tcl by KuNgFo0 (www.eggfaq.com)
set away_version "0.4"

#DESCRIPTION At random intervals, sets the bot away/back and sends an away message to the set channels.

#CHANGELOG
# V0.4	ToM @ irc.MindForge.org
#	Reindented code. Rewrote the onload putlog. Renamed conf vars to away_cfg(var).
#	Added a public channels configuration
#	Added a "putserv away" on init so the bot returns from away on rehash.

# Set the next line if you want to display public away/back messages [0/1]
set away_cfg(public) 2
# Set the channels where the bot tells he's away
set away_cfg(publicchans) "#max128 #Sun`Night"  

# Set the next line as the maximum minute interval between away/back
set away_cfg(awaymaxtime)  90
# Set the next list as the away messages you want
set away_cfg(awaymsgs) { 
	"Je suis away et comme toujours je fait rien"
	"Parti réinstaller windows après avoir fait Format C: oups :p"
"Je cherche mon troll fruitopia :)"
"Je cherche des pv hotttt"
  "Parti jouer au uno avec _Zup63 et Max128 :p"
    "Awayyy ses tout"
        	"Je me cherche une partenaire robot"
     	"Parti a l'eglise et puis quoi ?"
 "Parti aller rendre visite a mon troll preféré"
 "c'est l'heure de se bourrer !!!!"
 "Parti faire une grosse sieste hihihhi :p"
 "Chutttt je suis AWAYYYYYYY"
         "Je suis parti me faire masser hummm"
              "héhéhé je suis un québecois je vais aller profiter :p"
 "Parti draguer tout ce qui bouge !!!!"
    
  "Je me fait bronzer !!!"
             "Parti attaquer le frigo attention me voila !!"
         }


## end config



proc time_away {} {
	global away_cfg away_status
	if {$away_status(isaway)} {
		if {$away_cfg(public)} {
			foreach chan [channels] {

				# chan auth
    			if {$away_cfg(publicchans) != ""} {
					if {[lsearch -exact [split $away_cfg(publicchans)] [string tolower $chan]] != -1} {
			    		puthelp "PRIVMSG $chan :\001ACTION  est \002 revenue:\002 $away_status(msg) - \002 depuis:\002 [expr ([clock seconds] - $away_status(gonetime)) / 90] minutes\001"
			    	}
			    }

			}
		}
		putserv "AWAY"
		set away_status(isaway) 0
	} else {
		set away_status(msg) [lindex $away_cfg(awaymsgs) [rand [llength $away_cfg(awaymsgs)]]]
		if {$away_cfg(public)} {
			foreach chan [channels] {

				# chan auth
    			if {$away_cfg(publicchans) != ""} {
					if {[lsearch -exact [split $away_cfg(publicchans)] [string tolower $chan]] != -1} {
						puthelp "PRIVMSG $chan :\001ACTION est  \002 parti:\002 $away_status(msg)\001"
			    	}
			    }

			}
		}
		putserv "AWAY :$away_status(msg)"
		set away_status(isaway) 1
		set away_status(gonetime) [clock seconds]
	}
	if {![string match "*time_away*" [timers]]} {
		timer [expr [rand $away_cfg(awaymaxtime)] + 1] time_away
	}
}

# Init
putserv "AWAY"
set away_status(isaway) 0
set away_status(msg)  ""
set away_status(gonetime) 0
if {![string match "*time_away*" [timers]]} {
	timer [expr [rand $away_cfg(awaymaxtime)] + 1] time_away
}

putlog "Away.tcl v$away_version by KuNgFo0 mod ToM loaded"