on *:text:!calc*:#: { notice $Nick $2- = $calc($2-) }
alias !nick {
if ($1 == $null) { echo -a You need to provide a nickname to change to. }
else {
set -e %totalnets $scon(0)
while (%totalnets > 0) {
scon %totalnets nick $1
dec %totalnets
}
}
}
new script:
On *:START: {
if ( !$hget($wc.table) ) hmake $wc.table 100
if ( $isfile($wc.data) ) hload $wc.table $wc.data
}
On *:EXIT: if ( $hget($wc.table) ) hsave -o $wc.table $wc.data
On *:DISCONNECT: if ( $hget($wc.table) ) hsave -o $wc.table $wc.data
alias wc.table return wordcount
alias wc.data return $qt($scriptdirwordcount.dat)
alias wc.count {
tokenize 32 $1-
if ( $hfind($wc.table,$1-,1,W) ) {
var %t = $v1
if ( $wildtok($1-,%t,0,32) ) hinc -m $wc.table %t $v1
}
}
On *:TEXT:!*word &:#: {
if ( $1 == !addword ) {
if ( !$hget($wc.table,$+(*,$2,*)) ) {
hadd -m $wc.table $+(*,$2,*)
msg $chan Added $2 in my database.
}
else msg $chan $2 is already in my database.
}
elseif ( $1 == !countword ) {
if ( $hget($wc.table,$+(*,$2,*)) ) msg $chan $2 has been said: $v1 times.
else msg $chan That word is not in my database.
}
elseif ( $1 == !delword ) {
if ( $hget($wc.table,$+(*,$2,*)) ) {
hdel $wc.table $+(*,$2,*)
msg $chan Deleted $2 from my database.
}
else msg $chan That word is not in my database.
}
}
on *:TEXT:*:#: wc.count $strip($1-)
On *:ACTION:*:#: wc.count $strip($1-)
new script:
on *:text:!time*:#: { notice $nick 3 the time is currently 4 $asctime }