Commands:
!dislike [nick]
!like [nick]
!total [nick]
About:
basically you can like or dislike users on the channel...
i am pretty sure this was a request somewhere, that i done...
Note:
once loaded, restart mirc.
i dont code mirc no more so if there is a bug or two, my apolagies....
cue the "code must work mob"
;====================================
; ===================================
;
; dis-i-like
;
; !like (nick)
; !dislike (nick)
; !total (nick)
; Made By PuNkTuReD
;
; ===================================
;====================================
alias dis.i.like {
var %op = $iif($1 == like,like,dislike)
if ($istok($hget(dis.i.like,$+($2,.,$1)),$nick,32)) { .msg $chan You already $1 this person. }
else {
if ($istok($hget(dis.i.like,$+($2,.,%op)),$nick,32)) { hadd -m dis.i.like $+($2,.,%op) $remtok($nick,$hget(dis.i.like,$+($2,.,%op)),32) }
hadd -m dis.i.like $+($2,.,$1) $addtok($nick,$hget(dis.i.like,$+($2,.,$1)),32) | .msg $chan Your $1 for $2 has been added. }
}
on $*:text:/^!((dis)?(like)|total)\b/iS:#:{
if ($regml(1) == total) { goto total }
if (!$2) { .notice $nick USAGE: $+(!,$regml(1)) <nick> }
elseif ($2 == $nick) { .notice $nick You can not like youself on this system. }
$iif($2 ison $chan,dis.i.like $regml(1) $2,.notice $nick Please only like or dislike users who are currently on the channel.)
return
:total | msg $chan $iif($2,$2,$nick) has $numtok($hget(dis.i.like,$+($iif($2,$2,$nick),.like)),32) Like(s). $numtok($hget(dis.i.like,$+($iif($2,$2,$nick),.dislike)),32) Dislike(s).
}
on 1:start: { hmake dis.i.like 50 | hload dis.i.like dis.i.like.hsh }
on *:exit: { if ($hget(dis.i.like)) { hsave -o dis.i.like dis.i.like.hsh } }
on *:disconnect: { if ($hget(dis.i.like)) { hsave -o dis.i.like dis.i.like.hsh } }