;Snippet from http://www.mirc.co.uk
;By Lpfix5 and Riamus2
on *:TEXT:*:#: {
if (! isin $1) {
%active.chan = $replace($chan,$chr(291),h) $+ cmd
%active2.chan = %active.chan $+ .hsh
}
if ($1 == !listaction) {
if ($hget(%active.chan,0).item == 0) { notice $nick Sorry $nick $+ , There aren't any actions stored. }
if ($hget(%active.chan,0).item >= 1) {
var %listcmds.inc = 1
while (%listcmds.inc <= $hget(%active.chan,0).item) {
notice $nick $hget(%active.chan,%listcmds.inc).item
inc %listcmds.inc
}
}
}
if ($1 == !addaction) && (! == $left($2,+1)) {
if ($nick isop $chan) && ($2 == $hfind(%active.chan,$2)) { notice $nick you cannot add $2 to file it's already exist. | halt }
elseif ($nick isop $chan) { hadd %active.chan $2 $3-
hsave %active.chan %active.chan $+ .hsh
notice $nick $2 has been stored in file successfully.
}
else { notice $nick Sorry $nick $+ , you don't have enough permission to add $2 into file. }
}
if ($1 == !delaction) && (! == $left($2,+1)) {
if ($nick isop $chan) {
hdel %active.chan $2
hsave %active.chan %active.chan $+ .hsh
notice $nick $2 has been removed from file successfully.
}
elseif ($2 == $hfind(%active.chan,$2)) { notice $nick Sorry $nick $+ , You don't have enough permission to del $2 from file. }
}
if ($hget(%active.chan,$1)) {
var %hreplace = $replacex($hget(%active.chan,$1),hnick,$2,hchan,$chan,hname,$nick)
msg $chan %hreplace
}
}
alias cmdlist {
var %hchan = $replace($active,$chr(291),h) $+ cmd
hmake %hchan $?="How many items? 30 is average"
hsave %hchan %hchan $+ .hsh
}
on 1:JOIN:#: {
var %join.scan = $replace($chan,$chr(35),h)
var %join.scan2 = %join.scan $+ cmd.hsh
if ($nick == $me) && ($exists(%join.scan2) == $true) {
hmake %join.scan 30
hload %join.scan %join.scan2
}
else { echo -a Did not find %join.scan2 on file }
}
