Snippets Project Page
Author: entropy
Added: 5y
Updated: 1y
mIRC: v6.35+
Hits: 1,431
Downloads: 23
Review: entropy
Size: 2.03KB
3 0
Login to vote.
!tell
v2.6
This sweet snippet is like memoserv for networks without services.
Download
JSON
▲ Review
▲ Log
▼ Source
; !tell v2.6 - by entropy 2023 on *:start:{ hmake tells 100 | if ($exists($qt($scriptdirtells.dat))) { hload tells $qt($scriptdirtells.dat) } | .timersaveall -o 0 300 saveallx } on *:exit:{ saveallx } on *:unload:{ .timersaveall off | if ($hget(tells)) { hfree tells } } alias -l saveallx { if ($hget(tells)) { hsave -o tells $qt($scriptdirtells.dat) } } alias -l unsafe return $!decode( $encode($1-,m) ,m) menu menubar,status,channel,query { - Tell v2.6 $chr(9) $+([,$replace($group(#tell).status,on,On,off,Off),]) { var %a = $group(#tell).status $iif(%a == off,.enable,.disable) #tell var %a = $group(#tell).status echo -tag $chr(9679) Tell v2.5 is now: $+($chr(2),$replace(%a,off,Off,on,On),$chr(2)) } - } #tell on on *:text:*:#:{ tellem $1- } on *:input:#:{ tellem $1- } alias -l tellem { if (?tell iswm $1 && $left($1,1) isin @!.) { if ($iif($event == text,$nick,$me) == $2) { .timertell -o 1 1 msg $unsafe( # ) You can't tell yourself! } elseif ($2) { if (!$3) { msg # No text specified to send! | return } var %2 = $remove($2,$chr(44),$chr(46),:) hadd -m tells $+($iif($event == text,$nick,$me),.,%2,.,$ctime,.,$network) $strip($3-) .timertell -o 1 1 msg $unsafe( # ) $iif($event == text,$nick,$me) $+ $chr(44) I will pass it along next time %2 is around. } else { msg # No such user specified! } } else { $+(.timerjoin,#,$network) -o 1 2 dojoin $iif($event == text,$nick,$me) $network $unsafe( # ) } } on *:action:*:#:{ $+(.timerjoin,#,$network) -o 1 2 dojoin $nick $network $unsafe( # ) } alias -l dojoin { var %a = 1, %b, %t = 0 while ($hfind(tells,$+(*.,$1,.*.,$2),1,w).item) { %b = $v1 inc %t 2 var -n %g = $hget(tells,%b) .timer -o 1 %t .notice $1 $gettok(%b,1,46) said: " $+ %g $+ " $asctime($gettok(%b,3,46)) $+($chr(40),$remove($replace($duration($calc($ctime - $gettok(%b,3,46))),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s),$chr(32)) ago,$chr(41)) hdel tells %b } } #tell end
Changelog:
v2.6 (4/18/23)
- Fixed some miscellaneous errors
v2.5 (1-18-19)
- Fixed some stuff and fixed the possible exploit.
v2.6 (4/18/23)
- Fixed some miscellaneous errors
v2.5 (1-18-19)
- Fixed some stuff and fixed the possible exploit.
Comments (2)