hallo allemaal dit chanstats script met enkele update's
de volgende commando's zijn: !chanstats !regels nick en !woordenstats
enkel de #kanaal operators en hoger kunnen dit script gebruiken
#####################################
# chatplezier Scripting #
# #
# gratis voor gebruik #
# #
# maar #
# #
# verandert mijn script niet #
# #
# #
# Contact Mij @ Netwerk #
# irc.chatplezier.com #
# of webiste #
# #
# http://www.chatplezier.com #
# #
#####################################
#############################
#chanel Statistieken Script #
# Coded by: JamesBond #
#############################
on *:TEXT:!chanstats:#: {
if ($nick !isop $chan) { msg $chan 4 $+ ERROR - u heeft geen toestemmig tot dit commando | .halt }
if (% [ $+ lines. $+ [ $chan ] $+ . $+ [ $server ] $+ . $+ [ $nick ] ] == $null) { set %lines. $+ $chan $+ . $+ $server $+ . $+ $nick 0 }
if (% [ $+ joins. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %joins. $+ $chan $+ . $+ $server 0 }
if (% [ $+ lastline. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %lastline. $+ $chan $+ . $+ $server Nobody }
if (% [ $+ statsdate. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %statsdate. $+ $chan $+ . $+ $server $date }
if (% [ $+ linestot. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %linestot. $+ $chan $+ . $+ $server 0 }
if (%waitstats == $null) {
msg $chan Statistieken voor $+(,$chan,:,) is gerstart
/timer 1 2 msg $chan Statistieken zijn bij gehouden sinds: % [ $+ statsdate. $+ [ $chan ] $+ . $+ [ $server ] ]
/timer 1 4 msg $chan wij hebben tot nu toe: % [ $+ linestot. $+ [ $chan ] $+ . $+ [ $server ] ] woorden getypt in $chan
/timer 1 6 msg $chan we zijn hier met $nick($chan,0) gebruiker(s)
/timer 1 8 msg $chan hier zijn $+(,% [ $+ joins. $+ [ $chan ] $+ . $+ [ $server ] ],) chatters binnen gekomen.
/timer 1 10 msg $chan $+(,% [ $+ lastline. $+ [ $chan ] $+ . $+ [ $server ] ],) heeft het laaste gesroken.
/timer 1 12 msg $chan $nick heeft % [ $+ lines. $+ [ $chan ] $+ . $+ [ $server ] $+ . $+ [ $nick ] ] woorden getypt.
/timer 1 14 msg $chan 7Kanaal mode:12 $chan(#).mode
/timer 1 16 msg $chan 7Topic: $chan(#).topic
set -u5 %waitstats 1
}
}
on *:TEXT:!reset chanstats:#: {
if ($nick !isop $chan) { mgsg $chan 4 $+ ERROR - u heeft geen toestemmig tot dit commando | .halt }
set %statsdate. $+ $chan $+ . $+ $server $date
set %linestot. $+ $chan $+ . $+ $server 0
set %lastline. $+ $chan $+ . $+ $server Nobody
unset %lines.*
write -c randomline. $+ $server $+ . $+ $chan $+ .txt
msg $chan Statistics for $chan has been reset.
}
on *:TEXT:!regels*:#: {
if ($nick !isop $chan) { mgsg $chan 4 $+ ERROR - u heeft geen toestemmig tot die commando | .halt }
if (% [ $+ lines. $+ [ $chan ] $+ . $+ [ $server ] $+ . $+ [ $2 ] ] == $null) { msg $chan $2 heeft nog niks gezecht in $chan . }
else { msg $chan $2 heeft tot nu toe % [ $+ lines. $+ [ $chan ] $+ . $+ [ $server ] $+ . $+ [ $2 ] ] regels getypt in $chan $network $+ . }
}
on !*:TEXT:*:#: {
if ($1- == !chanstats) ($1- == !reset chanstats) { Halt }
if (% [ $+ statsdate. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %statsdate. $+ $chan $+ . $+ $server $date }
else if ($len($1-) >= 30) { write randomline. $+ $server $+ . $+ $chan $+ .txt $$1- $+([,By: $nick,]) }
set %lastline. $+ $chan $+ . $+ $server $nick
inc %linestot. $+ $chan $+ . $+ $server 1
inc %lines. $+ $chan $+ . $+ $server $+ . $+ $nick 1
}
on *:JOIN:#: { inc %joins. $+ $chan $+ . $+ $server 1 }
on *:JOIN:#: { inc %joins. $+ $chan $+ . $+ $server 1 }
#####################################
# chatplezier Scripting #
# #
# gratis voor gebruik #
# #
# maar #
# #
# verandert mijn script niet #
# #
# #
# Contact Mij @ Netwerk #
# irc.chatplezier.com #
# of webiste #
# #
# http://www.chatplezier.com #
# #
#####################################
on !*:TEXT:!woordenstats:#: {
if ($nick !isop $chan) { msg $chan 4 $+ ERROR - u heeft geen toestemmig tot dit commando | .halt }
if (% [ $+ lines. $+ [ $chan ] $+ . $+ [ $server ] $+ . $+ [ $nick ] ] == $null) { set %lines. $+ $chan $+ . $+ $server $+ . $+ $nick 0 }
if (% [ $+ joins. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %joins. $+ $chan $+ . $+ $server 0 }
if (% [ $+ lastline. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %lastline. $+ $chan $+ . $+ $server Nobody }
if (% [ $+ statsdate. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %statsdate. $+ $chan $+ . $+ $server $date }
if (% [ $+ linestot. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %linestot. $+ $chan $+ . $+ $server 0 }
if (%waitstats == $null) {
/timer 1 2 msg $chan woorden stats is gestart
/timer 1 3 msg $chan woorden stats: $read(randomline. $+ $server $+ . $+ $chan $+ .txt)
/timer 1 4 msg $chan woorden stats: $read(randomline. $+ $server $+ . $+ $chan $+ .txt)
/timer 1 5 msg $chan woorden stats: $read(randomline. $+ $server $+ . $+ $chan $+ .txt)
/timer 1 6 msg $chan woorden stats: $read(randomline. $+ $server $+ . $+ $chan $+ .txt)