This is my 5 script, it is flood protected.
I still use it
Usage:
/hug <-- ~mushwars huggles #chan
/hug last <-- ~mushwars huggles LastSpeaker [50 Hugs.]
/hug myLove <-- * ~mushwars huggles myLove [51 Hugs.]
on *:action:$(*huggle* $+ $me $+ *):#: {
if (%huggleflood != ON ) {
inc %huggle.recieved
echo you have been huggled %huggle.recieved times
inc %huggle
describe # huggles $nick back, and plans somthing for $date [ $+ %huggle times]
}
set -u5 %huggleflood on
}
on *:TEXT:*:# {
set %last.speaker $nick
}
alias hug {
if ( $1- == $null ) {
describe # huggles $chan
}
elseif ( $1- = me ) {
describe # huggles herself
}
elseif ( $1- = last ) {
inc %huggle | inc %hug $+ %last.speaker
describe # huggles %last.speaker $+ ! [ $+ %huggle hugs.]
}
else {
inc %huggle | inc %hug $+ $1
echo %hug $+ $1 hugs!
describe # huggles $1- $+ ! [ $+ %huggle hugs.]
}
}
off topic question.. for Jethro.
how about a way to make your now playing look like this:
/me NP: Guns 'n' Roses: Civil War [ http://youtu.be/0VyqEloRWAU ]
instead of spamming like this:
/me NP: Guns 'n' Roses - Civil War [04:28m/985kbps/44kHz]
chachin. Here is it:
on $*:action:$(/(^| )(hu(g|ggle)s?) \Q $+ $replacecs($me,\E,\E\\E\Q) $+ \E( |$)/iS):*:{
.ignore -cpu3 $nick 2 | var %2 = $regml(2)
.describe $iif(#,#,$nick) $iif(s !isin $right(%2,1),$+(%2,s),%2) $nick
}
When a person hugs you, the code will hug him or her back. This works for both PM and channel. There is a trigger protection from whomever hugs you every 3 seconds only.