Snippets Project Page
Author: entropy
Added: 5y
Updated: 5y
mIRC: 7.52+
Hits: 1,186
Downloads: 16
Review: entropy
Size: 2.08KB
1 0
Login to vote.
Lock Out
v1.0
This snippet locks you out of mIRC for the given duration.
Download
JSON
▲ Review
▼ Source
; Lock Out v1.0 - by entropy 2018 ; Usage: Popups or /lockout <1w3d9h2m10s> -or- /lockout to enter a value menu * { - Lock Me Out { var %a = $input(Duration? eg: 10m2s 1d2h38s etc...,5) | lockout %a } - } alias lockout { var %n if ($1 isnum) { %n = $+($1,s) } elseif (!$1) { %n = $input(Duration? eg: 10m2s 1d2h38s etc...,5) } else { %n = $1 } .timerlockout -om 0 1 checklock set $+(-u,$convertn(%n)) %lockout $ctime $remove($replace($duration($convertn(%n)),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s),$chr(32)) } alias checklock { if ($appstate != tray && %lockout) { var %t = $calc($ctime + $convertn($gettok(%lockout,2,32))) .timernoop -o 1 2 noop $tip(.,Locked Out,You are locked out untill $asctime(%t,hh:nn:sst) $asctime(%t,mm/dd/yy) ( $+ $gettok(%lockout,2,32) $+ ) ) showmirc -t } } alias convertn { var %n = $remove($1-,$chr(32)), %n = $replace(%n,wks,.w.,wk,.w.,days,.d.,day,.d.,hrs,.h.,hr,.h.,mins,.m.,min,.m.,secs,.s.,sec,.s.) if (wks !isin %n && wk !isin %n && days !isin %n && day !isin %n && hrs !isin %n && hr !isin %n && mins !isin %n && min !isin %n && secs !isin %n && sec !isin %n) { var %n = $replace(%n,w,.w.,d,.d.,h,.h.,m,.m.,s,.s.) } if ($left(%n,1) == .) { %n = $mid(%n,2,$len(%n)) } if ($right(%n,1) == .) { %n = $mid(%n,1,$calc($len(%n) -1)) } var %wks = $iif($istok(%n,w,46),$gettok(%n,$calc($findtok(%n,w,1,46) -1),46)), %days = $iif($istok(%n,d,46),$gettok(%n,$calc($findtok(%n,d,1,46) -1),46)), %hrs = $iif($istok(%n,h,46),$gettok(%n,$calc($findtok(%n,h,1,46) -1),46)), %mins = $iif($istok(%n,m,46),$gettok(%n,$calc($findtok(%n,m,1,46) -1),46)), %secs = $iif($istok(%n,s,46),$gettok(%n,$calc($findtok(%n,s,1,46) -1),46)) %wks = $calc(%wks * 60 * 60 * 60 * 60) %days = $calc(%days * 60 * 60 * 60) %hrs = $calc(%hrs * 60 * 60) %mins = $calc(%mins * 60) return $calc(%wks + %days + %hrs + %mins + %secs) } on *:unload:{ .timerlockout off }
Changelog:
0
0