Loading

Oper script

Wrap Raw Revise
  1. ; Spamfilter example: ; (|http:\/\/)(|www\.)bigassmessage\.com\/8596f
  2.  
  3. on $^*:Snotice:/(\S+)\s\((\S+)\)\sdid\sa\s.whois\son\syou/Si:{
  4.   if (!$window($($+(@whois.,$network),2))) { window -ne $($+(@whois.,$network),2) }
  5.   ; echo -sgt 4Whois -> 12[11 $+ $network $+ 12:11 $+ $+($regml(1),!,$regml(2)) $+ 12]
  6.   aline -pa $($+(@whois.,$network),2) 12( $+ $snoticets $+ 12) $1-
  7.   haltdef
  8. }
  9. on $^*:Snotice:/HelpOp\s--\sfrom\s(\S+)\s(\(HelpOp\):\s)?(?:\(Local\):\s)?(.+)/Si:{
  10.   if (!$regml(3)) {
  11.     ;echo 4*** 12HelpOP: 11(4 $+ $network $+ 11:4 $+ $regml(1) $+ 11:4 $+ $regml(2) $+ 11)
  12.     ; query -n $regml(1)
  13.     ;echo $regml(1) 4*** Needed HelpOp for -> $regml(2)
  14.   }
  15.   if (!$window($($+(@HelpOp.,$network),2))) { window -ne $($+(@HelpOp.,$network),2) }
  16.   aline -pa $($+(@HelpOp.,$network),2) 12( $+ $snoticets $+ 12) 04HelpOp: $regml(1) 12-> $iif($regml(3),$regml(3),$regml(2))
  17.   haltdef
  18. }
  19. on $^*:Snotice:/NetAdmin.Chat\s--\sfrom\s(\S+):\s(.+)/Si:{
  20.   if (!$window($($+(@NaChat.,$network),2))) { window -ne $($+(@NaChat.,$network),2) }
  21.   aline -pa $($+(@NaChat.,$network),2) 12( $+ $snoticets $+ 12) 4NaChat: $regml(1) 12-> $regml(2)
  22.   haltdef
  23. }
  24. on $^*:Snotice:/AdminChat\s--\sfrom\s(\S+):\s(.+)/Si:{
  25.   if (!$window($($+(@Adminchat.,$network),2))) { window -ne $($+(@AdminChat.,$network),2) }
  26.   aline -pa $($+(@AdminChat.,$network),2) 12( $+ $snoticets $+ 12) 4AdminChat: $regml(1) 12-> $regml(2)
  27.   haltdef
  28. }
  29. on $^*:Snotice:/Global\s--\sfrom\s(\S+):\s(.+)/Si:{
  30.   if (!$window($($+(@GlobOPS.,$network),2))) { window -ne $($+(@GlobOPS.,$network),2) }
  31.   aline $iif($regml(1) == OperServ,-pa,-pa) $($+(@GlobOPS.,$network),2) 12( $+ $snoticets $+ 12) 4Global: $regml(1) 12-> $regml(2)
  32.   haltdef
  33. }
  34. on $^*:Snotice:/LocOps\s--\sfrom\s(\S+):\s(.+)/Si: {
  35.   if (!$window($($+(@LocOPS.,$network),2))) { window -ne $($+(@LocOPS.,$network),2) }
  36.   aline -pa $($+(@LocOPS.,$network),2) 12( $+ $snoticets $+ 12) 4LocOps: $regml(1) 12-> $regml(2)
  37.   haltdef
  38.  
  39. }
  40. on $^*:Snotice:/ChatOps\s--\sfrom\s(\S+):\s(.+)/Si:{
  41.   if (!$window($($+(@ChatOPS.,$network),2))) { window -ne $($+(@ChatOPS.,$network),2) }
  42.   aline -pa $($+(@ChatOPS.,$network),2) 12( $+ $snoticets $+ 12) 4ChatOps: $regml(1) 12-> $regml(2)
  43.   haltdef
  44. }
  45. on $^*:WALLOPS:*:{
  46.   if (!$window($($+(@WallOPS.,$network),2))) { window -ne $($+(@WallOPS.,$network),2) }
  47.   aline -pa $($+(@WallOPS.,$network),2) 12( $+ $snoticets $+ 12) 4WallOps: $nick 12-> $1-
  48.   haltdef
  49. }
  50. ;on *:INPUT:@ChatOPS.*:{ ChatOps $1- | haltdef }
  51. ;on *:INPUT:@HelpOp.*:{ helpop $1- | haltdef }
  52. ;on *:INPUT:@NaChat.*:{ nachat $1- | haltdef }
  53. ;on *:INPUT:@AdminChat.*:{ AdChat $1- | haltdef }
  54. ;on *:INPUT:@GlobOPS.*:{ GlobOPS $1- | haltdef }
  55. ;on *:INPUT:@WallOPS.*:{ WallOPS $1- | haltdef }
  56.  
  57. ;
  58. ; Some #Services stuff (Written for Anope)
  59. ;
  60. on $*:TEXT:/New\svHost\sRequested\sby\s(\S+)/Si:#Services:{
  61.   if ($nick == Global) {
  62.     if (!$window($($+(@Services.,$network),2))) { window -ne $($+(@Services.,$network),2) }
  63.     aline -pa $($+(@Services.,$network),2) 12( $+ $snoticets $+ 12) 4vHost Request: $regml(1)
  64.   }
  65. }
  66. on $*:TEXT:/NickServ.\s(\S+)\s(automatically\s)?identified\sfor\snick\s(\S+)/Si:#Services:{
  67.   if ($nick == Global) {
  68.     if (!$window($($+(@Services.,$network),2))) { window -ne $($+(@Services.,$network),2) }
  69.     aline -pa $($+(@Services.,$network),2) 12( $+ $snoticets $+ 12) 4Nick Identification: $regml(1) 12-> $iif($regml(3),$regml(3),$regml(2))
  70.   }
  71. }
  72. on $*:TEXT:/NickServ.\s(\S+)\slogged\sout\snickname\s(\S+):#Services:{
  73.   if ($nick == Global) {
  74.     if (!$window($($+(@Services.,$network),2))) { window -ne $($+(@Services.,$network),2) }
  75.     aline -pa $($+(@Services.,$network),2) 12( $+ $snoticets $+ 12) 4Nick Logout: $regml(1) 12-> $regml(2)
  76.   }
  77. }
  78. on $*:TEXT:/NickServ.\sFailed\sIDENTIFY\sfor\s(\S+)/Si:Services:{
  79.   if ($nick == Global) {
  80.     if (!$window($($+(@Services.,$network),2))) { window -ne $($+(@Services.,$network),2) }
  81.     aline -pa $($+(@Services.,$network),2) 12( $+ $snoticets $+ 12) 4Identification Failure: $regml(1)
  82.   }
  83. }
  84. on $*:TEXT:/ChanServ.\s(\S+)\sidentified\sfor\(\S+):#Services:{
  85.   if ($nick == Global) {
  86.     if (!$window($($+(@Services.,$network),2))) { window -ne $($+(@Services.,$network),2) }
  87.     aline -pa $($+(@Services.,$network),2) 12( $+ $snoticets $+ 12) 4Channel Identification: $regml(1) 12-> $regml(2)
  88.   }
  89. }
  90. on $*:TEXT:/NickServ.\sNick\s(\S+)\shas\sbeen\srequested/Si:#Services:{
  91.   if ($nick == Global) {
  92.     if (!$window($($+(@Services.,$network),2))) { window -ne $($+(@Services.,$network),2) }
  93.     aline -pa $($+(@Services.,$network),2) 12( $+ $snoticets $+ 12) 4Nick Request: $regml(1) 12was requested.
  94.   }
  95. }
  96. on $*:TEXT:/NickServ.\ssent\sregistration\sverification\scode\sto\s(\S+)/Si:#Services:{
  97.   if ($nick == Global) {
  98.     if (!$window($($+(@Services.,$network),2))) { window -ne $($+(@Services.,$network),2) }
  99.     aline -pa $($+(@Services.,$network),2) 12( $+ $snoticets $+ 12) 4Registration sent: $regml(1)
  100.   }
  101. }
  102. on $*:TEXT:/NickServ.\s'(\S+)'\sregistered\sby\s(\S+)\s\(e-mail.\s(\S+)\)/Si:#Services:{
  103.   if ($nick == Global) {
  104.     if (!$window($($+(@Services.,$network),2))) { window -ne $($+(@Services.,$network),2) }
  105.     aline -pa $($+(@Services.,$network),2) 12( $+ $snoticets $+ 12) 4Nick Registration: $($+($regml(1),!,$regml(2)),2) 12email: $regml(3)
  106.   }
  107. }
  108. on $*:TEXT:/ChanServ.\sChannel\s'(\S+)'\sregistered\sby\s(\S+)/Si:#Services:{
  109.   if ($nick == Global) {
  110.     if (!$window($($+(@Services.,$network),2))) { window -ne $($+(@Services.,$network),2) }
  111.     aline -pa $($+(@Services.,$network),2) 12( $+ $snoticets $+ 12) 4Channel Registration: $regml(2) 12-> $regml(1)
  112.   }
  113. }
  114. on $*:TEXT:/ChanServ.\sChannel\s(\S+)\sdropped\sby\s(\S+)\s\(founder.\s(\S+)\)/Si:#Services:{
  115.   if ($nick == Global) {
  116.     if (!$window($($+(@Services.,$network),2))) { window -ne $($+(@Services.,$network),2) }
  117.     aline -pa $($+(@Services.,$network),2) 12( $+ $snoticets $+ 12) 4Channel Drop: $regml(2) 12-> $regml(1) 12Founder: $regml(3)
  118.   }
  119. }
  120. on $*:TEXT:/Expiring\snickname\s(\S+)\s\(group.\s(\S+)\)\s\(e-mail.\s(\S+)\)/Si:#Services:{
  121.   if ($nick == Global) {
  122.     if (!$window($($+(@Services.,$network),2))) { window -ne $($+(@Services.,$network),2) }
  123.     aline -pa $($+(@Services.,$network),2) 12( $+ $snoticets $+ 12) 4Nick Expire:12 Nick: $regml(1) 12Group: $regml(2) 12Email: $regml(3)
  124.   }
  125. }
  126. on $*:TEXT:/NickServ.\sdeleting\snickname\sgroup\s(\S+)/Si:#Services:{
  127.   if ($nick == Global) {
  128.     if (!$window($($+(@Services.,$network),2))) { window -ne $($+(@Services.,$network),2) }
  129.     aline -pa $($+(@Services.,$network),2) 12( $+ $snoticets $+ 12) 4Deleting NickGroup: $regml(1)
  130.   }
  131. }
  132.  
  133. ;
  134. ; This part makes Connects & Disconnects go to @Clients
  135. ;
  136. on $^*:Snotice:/Notice\s--\sClient\sconnecting\s(?:on|at).+:\s(\S+)\s\((\S+)\)/Si:{
  137.   if (!$window($($+(@Connects.,$network),2))) { window -ne $($+(@Connects.,$network),2) }
  138.   ;  aline -pa $($+(@Connects.,$network),2) 12( $+ $snoticets $+ 12) 4Connect: $+($regml(1),!,$regml(2))
  139.   aline -pa $($+(@Connects.,$network),2) 12( $+ $snoticets $+ 12) $1-
  140.   haltdef
  141. }
  142. on $^*:Snotice:/Notice\s--\sClient\sexitin(?:g\sat.+:\s(\S+)\s\(.+\)|g:\s(\S+)\s\((\S+)\)\s\[(.+)\])/Si:{
  143.   if (!$window($($+(@Exits.,$network),2))) { window -ne $($+(@Exits.,$network),2) }
  144.   ;  aline -pa $($+(@Exits.,$network),2) 12( $+ $snoticets $+ 12) 4Disconnect: $+($regml(1),!,$regml(2)) 12-> $regml(3)
  145.   aline -pa $($+(@Exits.,$network),2) 12( $+ $snoticets $+ 12) $1-
  146.   ;echo -gs exit-debug: $regml(1)
  147.   ;echo -gs exit-debug: $regml(2)
  148.   ;echo -gs exit-debug: $regml(3)
  149.   ;echo -gs exit-debug: $1-
  150.   haltdef
  151. }
  152. alias snoticets { return $asctime(mmmm dd yyyy HH:nn:ss) }
  153. ; This takes ALL of the ban messages and slides them into @Network-Kills/Bans
  154. ;
  155. on $^*:Snotice:/Notice\s--\sReceived\sKILL\smessage\sfor\s(\S+)\sfrom\s(\S+)\sPath:\s(\S+)!(\S+)\s\((.+)\)/Si:{
  156.   if (!$window($($+(@Kills.,$network),2))) { window -ne $($+(@Kills.,$network),2) }
  157.   aline -pa $($+(@Kills.,$network),2) 12( $+ $snoticets $+ 12) 4KILL: $regml(1) 12was killed by $+($regml(2),!,$regml(4),@,$regml(3)) 12for $regml(5)
  158.   haltdef
  159. }
  160. ;@Network-Kills/Bans.
  161. on $^*:Snotice:/(.:Line)\sadded\sfor\s(\S+)\son.+\(from\s(\S+)(?:\sto\sexpire\sat\s(.+))?:\s(.+)\)/Si:{
  162.   if (!$window($($+(@Bans.,$network),2))) { window -ne $($+(@Bans.,$network),2) }
  163.   aline -pa $($+(@Bans.,$network),2) 12( $+ $snoticets $+ 12) $+(4,$regml(1),:) $regml(3) 12set $regml(2) 12set to expire on: $iif($regml(5),$regml(4),Permanent) 12reason: $iif($regml(5),$regml(5),$regml(4))
  164.   haltdef
  165. }
  166. on $^*:Snotice:/Expiring\s(?:Global\s)?(.):Line\s\((\S+)\)\smade\sby\s(\S+)\s\(Reason:\s(.+)\)/Si:{
  167.   if (!$window($($+(@Bans.,$network),2))) { window -ne $($+(@Bans.,$network),2) }
  168.   aline -pa $($+(@Bans.,$network),2) 12( $+ $snoticets $+ 12) 4Expiring $+($regml(1),:Line:) $regml(2) 12set by $regml(3) 12reason $regml(4)
  169.   haltdef
  170. }
  171. on $^*:Snotice:/(\S+)\sremoved\s(?:Global\s)?(\S+)\s(\S+).+\sreason:\s(.+)\)/Si:{
  172.   if (!$window($($+(@Bans.,$network),2))) { window -ne $($+(@Bans.,$network),2) }
  173.   aline -pa $($+(@Bans.,$network),2) 12( $+ $snoticets $+ 12) $+(4Removed,$chr(32),$regml(2),:) $regml(1) 12removed $regml(3)
  174.   haltdef
  175. }
  176. ;
  177. ; This part handles the nick changes & puts them in @NickChanges
  178. ;
  179. on $^*:Snotice:/Notice\s--\s(\S+)\s\((\S+)\)\shas\s(?:been\sforced\sto\s)?change(?:d)?\shis.her\snickname\sto\s(\S+)/Si:{
  180.   if (!$window($($+(@NickChanges.,$network),2))) { window -ne $($+(@NickChanges.,$network),2) }
  181.   aline -pa $($+(@NickChanges.,$network),2) 12( $+ $snoticets $+ 12) 4NickChange: $+($regml(1),!,$regml(2)) 12-> $regml(3)
  182.   haltdef
  183. }
  184. ;
  185. ; This does most oper shit & keeps it in @Oper
  186. ;
  187. on $^*:Snotice:/OperOverride\s--\s(\S+)\s\((\S+)\)\s(.+)/Si:{
  188.   if (!$window($($+(@Oper.,$network),2))) { window -ne $($+(@Oper.,$network),2) }
  189.   aline -pa $($+(@Oper.,$network),2) 12( $+ $snoticets $+ 12) 4OverRide: $+($regml(1),!,$regml(2)) 12used Oper-Override for: $regml(3)
  190.   haltdef
  191. }
  192. on $^*:Snotice:/(\S+)\s\((\S+)\)\s\[(\S+)\]\sis\snow\s(.+)/Si:{
  193.   if (!$window($($+(@Oper.,$network),2))) { window -ne $($+(@Oper.,$network),2) }
  194.   aline -pa $($+(@Oper.,$network),2) 12( $+ $snoticets $+ 12) 4Oper: $+($regml(1),!,$regml(2)) 12using OperID $regml(3) 12is now $regml(4)
  195.   haltdef
  196. }
  197. on $^*:Snotice:/Failed\sOPER\sattempt\sby\s(\S+)\s\((\S+)\)\s(?:using\sUID\s(\S+)\s)?\[(.+)\]/Si:{
  198.   if (!$window($($+(@Oper.,$network),2))) { window -ne $($+(@Oper.,$network),2) }
  199.   aline -pa $($+(@Oper.,$network),2) 12( $+ $snoticets $+ 12) 4Failed Oper Attempt: $+($regml(1),!,$regml(2)) 12OperID $iif($regml(4),$regml(3),Not Valid) 12reason: $iif($regml(4),$regml(4),$regml(3))
  200.   haltdef
  201. }
  202. on $^*:Snotice:/Notice\s--\s(\S+)\sused\s(\S+)\sto\smake\s(\S+)\s(\S+)\s(\S+)/Si:{
  203.   if (!$window($($+(@Oper.,$network),2))) { window -ne $($+(@Oper.,$network),2) }
  204.   aline -pa $($+(@Oper.,$network),2) 12( $+ $snoticets $+ 12) $+(4,$regml(2),:) $regml(1) 12used $regml(2) to make $regml(3) $+(12,$regml(4),) $regml(5)
  205.   haltdef
  206. }
  207. on $^*:Snotice:/(\S+)\sused\sSAMODE\s(\S+)\s\((.+)\)/Si:{
  208.   if (!$window($($+(@Oper.,$network),2))) { window -ne $($+(@Oper.,$network),2) }
  209.   aline -pa $($+(@Oper.,$network),2) 12( $+ $snoticets $+ 12) 4SAMODE: $regml(1) 12used SAMODE on $regml(2) 12to set modes $regml(3)
  210. }
  211. on $^*:Snotice:/(\S+)\schanged\sthe\svirtual\s(\S+)\sof\s(\S+)\s\((\S+)\)\sto\sbe\s(\S+)/Si:{
  212.   if (!$window($($+(@Oper.,$network),2))) { window -ne $($+(@Oper.,$network),2) }
  213.   aline -pa $($+(@Oper.,$network),2) 12( $+ $snoticets $+ 12) $+(4CHG,$iif($regml(2) == ident,IDENT,HOST),:) $regml(1) 12changed the virtual $regml(2) of $+($regml(3),!,$regml(4)) 12to $regml(5)
  214.   haltdef
  215. }
  216. on $^*:Snotice:/(\S+)\schanged\sthe\sGECOS\sof\s(\S+)\s\((\S+)\)\sto\sbe\s(.+)/Si:{
  217.   if (!$window($($+(@Oper.,$network),2))) { window -ne $($+(@Oper.,$network),2) }
  218.   aline -pa $($+(@Oper.,$network),2) 12( $+ $snoticets $+ 12) 4CHGNAME: $regml(1) 12changed the real name of $+($regml(2),!,$regml(3)) 12to $regml(4)
  219.   haltdef
  220. }
  221. ;
  222. ; Used with the CLOSE command, closes unknown connections (Not exactly sure what the
  223. ; purpose of this is though)
  224. ;
  225. on $^*:Snotice:/Notice\s--\s(\S+)\sclosed\s(\S+)\sunknown\sconnections/Si:{
  226.   if (!$window($($+(@Oper.,$network),2))) { window -ne $($+(@Oper.,$network),2) }
  227.   aline -pa $($+(@Oper.,$network),2) 12( $+ $snoticets $+ 12) 4CLOSE: $regml(1) 12used CLOSE to close $regml(2) 12unknown connections.
  228.   haltdef
  229. }
  230. ;
  231. ; Grabs the /STATS requests.
  232. ;
  233. on $^*:Snotice:/Stats\s'(\S+)'\srequested\sby\s(\S+)\s\((\S+)\)/Si:{
  234.   if (!$window($($+(@Oper.,$network),2))) { window -ne $($+(@Oper.,$network),2) }
  235.   aline -pa $($+(@Oper.,$network),2) 12( $+ $snoticets $+ 12) 4STATS: $+($regml(2),!,$regml(3)) 12requested stats: $regml(1)
  236.   haltdef
  237. }
  238. ;
  239. ; TS Control stuff
  240. ;
  241. on $^*:Snotice:/Notice\s--\sTS\sControl\s-\s(\S+)\sset\stime\sto\sbe\s(\S+)\s\(timediff:\s(\S+)\)/Si:{
  242.   if (!$window($($+(@Oper.,$network),2))) { window -ne $($+(@Oper.,$network),2) }
  243.   aline -pa $($+(@Oper.,$network),2) 12( $+ $snoticets $+ 12) 4TS Control: $regml(1) 12set the IRC time to be $regml(2) 12TimeDifference is now $regml(3)
  244.   haltdef
  245. }
  246. ;
  247. ; The RecvQ flood limits
  248. ;
  249. on $^*:Snotice:/Flood\s--\s(\S+)\s\((\S+)\)\sexceeds\s(\S+)\srecvQ/Si:{
  250.   if (!$window($($+(@Oper.,$network),2))) { window -ne $($+(@Oper.,$network),2) }
  251.   aline -pa $($+(@Oper.,$network),2) 12( $+ $snoticets $+ 12) 4Flood: $regml(1) 12exceeded the recvQ limit $regml(2) > $regml(3)
  252.   haltdef
  253. }
  254. ;
  255. ; Spamfilters
  256. ;
  257. on $^*:Snotice:/\[Spamfilter\]\s(\S+)\smatches\sfilter\s'(\S+)':\s\[([^\]]+)\]\s\[([^\]]+)\]/Si:{
  258.   if (!$window($($+(@Spamfilter.,$network),2))) { window -ne $($+(@Spamfilter.,$network),2) }
  259.   aline -pa $($+(@Spamfilter.,$network),2) 12( $+ $snoticets $+ 12) 4SpamFilter: $regml(1) 12Matched $regml(2) 12using $regml(3) 12reason for filter: $regml(4)
  260.   haltdef
  261. }
  262. on $^*:Snotice:/(\S+)\sremoved\sspamfilter\s'(\S+)'/Si:{
  263.   if (!$window($($+(@Spamfilter.,$network),2))) { window -ne $($+(@Spamfilter.,$network),2) }
  264.   aline -pa $($+(@Spamfilter.,$network),2) 12( $+ $snoticets $+ 12) 4SpamFilter: $regml(1) 12removed spamfilter $regml(2)
  265.   haltdef
  266. }
  267. on $^*:Snotice:/Spamfilter\sAdded:\s\S+\s\[target:\s(\S+)\]\s\[action:\s([^\]]+)\]\s\[reason:\s([^\]]+)\]\son\s.*\(from\s(\S+)\)/Si:{
  268.   if (!$window($($+(@Spamfilter.,$network),2))) { window -ne $($+(@Spamfilter.,$network),2) }
  269.   aline -pa $($+(@Spamfilter.,$network),2) 12( $+ $snoticets $+ 12) 4SpamFilter: $regml(4) 12added $4 12targeting: $regml(1) 12action: $regml(2) 12reason: $regml(3)
  270.   haltdef
  271. }
  272. ;
  273. ; Linking/Delinking
  274. ; Currently untested. It's on my list of shit to do.
  275. *
  276. on $*^:Snotice:/Received\sSQUIT\s(\S+)\sfrom\s(\S+)\[(\S+)\]\s\((.+)\)/Si:{
  277.   if (!$window($($+(@Link.,$network),2))) { window -ne $($+(@Link.,$network),2) }
  278.   aline -pa $($+(@Link.,$network),2) 12( $+ $snoticets $+ 12) 4SQUIT: $regml(1) 12from $regml(2) ( $+ $regml(3) $+ ) 12reason: $regml(4)
  279.   haltdef
  280. }
  281. on $^*:Snotice:/Notice\s--\s\(link\)\sLink\s(\S+)\s->\s(\S+)\[@(\S+)\]\sestablished/Si:{
  282.   if (!$window($($+(@Link.,$network),2))) { window -ne $($+(@Link.,$network),2) }
  283.   aline -pa $($+(@Link.,$network),2) 12( $+ $snoticets $+ 12) 4LINK: $regml(1) 12linked $regml(2) ( $+ $regml(3) $+ )
  284.   haltdef
  285. }
  286. on $^*:Snotice:/Notice\s--\sLink\s(\S+)\s->\s(\S+)\sis\snow\ssynced\s\[secs:\s(\S+)\srecv:\s(\S+)\ssent:\s(\S+)\]/Si:{
  287.   if (!$window($($+(@Link.,$network),2))) { window -ne $($+(@Link.,$network),2) }
  288.   aline -pa $($+(@Link.,$network),2) 12( $+ $snoticets $+ 12) 4SYNC: $regml(1) 12-> $regml(2)
  289.   haltdef
  290. }
  291.  
  292. on $^*:Snotice:/Lag\sreply\s--\s(\S+)\s(\S+)\s(\d+)/Si:{
  293.   if (!$window($($+(@Link.,$network),2))) { window -ne $($+(@Link.,$network),2) }
  294.   aline -pa $($+(@Link.,$network),2) 12( $+ $snoticets $+ 12) 4LAG: $regml(1) 12<--> $regml(2) 12-> $regml(3) 12( $+ $duration($calc($ctime - $regml(3))) $+ 12)
  295.   haltdef
  296. }
  297.  
  298. on ^*:snotice:*** Notice --*: {
  299.   if (!$window($($+(@misc.,$network),2))) { window -ne $($+(@misc.,$network),2) }
  300.   aline -pa $($+(@misc.,$network),2) 12( $+ $snoticets $+ 12) $1-
  301.   haltdef
  302. }
  303. on ^*:snotice:*[vhost]*: {
  304.   if (!$window($($+(@misc.,$network),2))) { window -ne $($+(@misc.,$network),2) }
  305.   aline -pa $($+(@misc.,$network),2) 12( $+ $snoticets $+ 12) $1-
  306.   haltdef
  307. }
  308.  
  309. on ^*:snotice:*** Notice -- Please be sure your clock is always synchronized*: {
  310.   if (!$window($($+(@Link.,$network),2))) { window -ne $($+(@Link.,$network),2) }
  311.   aline -pa $($+(@Link.,$network),2) 12( $+ $snoticets $+ 12) $1-
  312.   haltdef
  313. }
  314. on ^*:snotice:*** Notice -- Incorrect time for IRC servers is a serious problem*: {
  315.   if (!$window($($+(@Link.,$network),2))) { window -ne $($+(@Link.,$network),2) }
  316.   aline -pa $($+(@Link.,$network),2) 12( $+ $snoticets $+ 12) $1-
  317.   haltdef
  318. }
  319. on ^*:snotice:*** Notice -- [TimeShift] Resetting some timers!: {
  320.   if (!$window($($+(@Link.,$network),2))) { window -ne $($+(@Link.,$network),2) }
  321.   aline -pa $($+(@Link.,$network),2) 12( $+ $snoticets $+ 12) $1-
  322.   haltdef
  323. }
  324.  
  325. on ^*:snotice:*** Notice -- No response from*: {
  326.   if (!$window($($+(@Link.,$network),2))) { window -ne $($+(@Link.,$network),2) }
  327.   aline -pa $($+(@Link.,$network),2) 12( $+ $snoticets $+ 12) $1-
  328.   haltdef
  329. }
  330.  
  331. on ^*:snotice:*** Notice -- (link) Secure ZIPlink *: {
  332.   if (!$window($($+(@Link.,$network),2))) { window -ne $($+(@Link.,$network),2) }
  333.   aline -pa $($+(@Link.,$network),2) 12( $+ $snoticets $+ 12) $1-
  334.   haltdef
  335. }
  336. on ^*:snotice:*** Notice -- Zipstats for link to*: {
  337.   if (!$window($($+(@Link.,$network),2))) { window -ne $($+(@Link.,$network),2) }
  338.   aline -pa $($+(@Link.,$network),2) 12( $+ $snoticets $+ 12) $1-
  339.   haltdef
  340. }
  341.  
  342. ;on ^*:snotice:(Lost connection)[A-z0-9.,:() ]*: {
  343. ;  if (!$window($($+(@Link.,$network),2))) { window -ne $($+(@Link.,$network),2) }
  344. ;  aline -pa $($+(@Link.,$network),2) 12 $+ $snoticets $+ 12) $1-
  345. ;  haltdef
  346. ;}
  347. on ^*:snotice:Lost connection*: {
  348.   if (!$window($($+(@Link.,$network),2))) { window -ne $($+(@Link.,$network),2) }
  349.   aline -pa $($+(@Link.,$network),2) 12( $+ $snoticets $+ 12) $1-
  350.   haltdef
  351. }
  352.  
  353. ; -----------------
  354.  
  355. on ^*:NOTICE:*:?: {
  356.   ; Requires IRCop (probably services access - services root admin. Unsure about services operator and services admin. Too lazy to test)
  357.   ; Takes the date of a user's nickname expiration and uses mIRC's $duration to see how long until the drop date.
  358.   ; Disclaimer: I cannot be held responsible for an Operator that uses this in an abusive manner (such as modifying the script to publicly announce how long until a nickname expires)
  359.  
  360.   if ($nick == NickServ) && ($1 == Expires) {
  361.     var %expiredate $3-6
  362.     echo $color(NOTICE) -ga $timestamp $+(-,$nick,-) $str($chr(32),4) Expires in (approx.): $duration($calc($ctime(%expiredate) - $ctime))
  363.   }
  364.   ;  elseif ($nick == ChanServ) && ($1 == Expires) {
  365.   ;    var %expiredate $3-6
  366.   ;    echo $color(NOTICE) -ga $timestamp $+(-,$nick,-) $str($chr(32),4) Expires in (approx.): $duration($calc($ctime(%expiredate) - $ctime))
  367.   ;  }
  368. }
Posted by Joshua at 29 Jan 2015, 18:09:50 UTC
Language: mirc • Views: 1058

Comments

Holy Todole, so glad I clicked on this site first!

Anonymous • 05 Sep 2015, 14:54:38 UTC