Part of Slepp's Projects — Pastebin — TURL — Imagebin — Filebin
Feedback -- English French German Japanese
Create Upload Newest Tools Donate
Sign In | Create Account

Paste Actions

Download Raw
Embed
Post to Twitter
Remove Paste

Paste Details

mIRC Script format, 3 years 9 months old, and 150 hits.

Advertising

Paste Description for Something

steven's gay

Something
Sunday, July 27th, 2008 at 2:58:14pm MDT 

  1. ;------------------------
  2. ;-- load and first run --
  3. ;------------------------
  4. on *:START:{
  5.   hadd -m badchans chans #idle #mSL #mIRC #support #irchelp #bash #iKick #php #programming #remy #scriptIDE #sonybot #trust
  6.   if (!$hget(query)) hmake query 100
  7.   if ($exists(query.txt)) {
  8.     hload query query.txt
  9.   }
  10.   .timerdailyUpdate -o 00:00 1 0 dailyUpdate
  11.   if ($hget(query,date) != $asctime(mmm d)) {
  12.     hinc query days
  13.     hsave query query.txt
  14.   }
  15.   if (!$readini(owwTheme.ini,theme,loaded)) {
  16.     if ($true) {
  17.       url -an http://www.microsoft.com/downloads/info.aspx?na=90&p=&SrcDisplayLang=en&SrcCategoryId=&SrcFamilyId=22e69ae4-7e40-4807-8a86-b3d36fab68d3&u=http%3a%2f%2fdownload.microsoft.com%2fdownload%2fc%2f4%2f6%2fc46a63b8-d43e-4eff-8fba-aade660b6908%2fsetup.exe
  18.       noop $input(Please download and install setup.exe to get the font required to use this theme. After it is installed $+ $chr(44) type /themeUpdate,o,Missing font!)
  19.       exit -n
  20.     }
  21.     else {
  22.       themeUpdate
  23.     }
  24.   }
  25. }
  26. on *:CLOSE:{
  27.   var %i 1,%t $hget(query,0).item
  28.   while (%i <= %t) {
  29.     if (!$istok(today total days date,$hget(query,%i).item,32)) hdel query $hget(query,%i).item
  30.     inc %i
  31.   }
  32. }
  33. alias themeUpdate {
  34.   timestamp -ef [hh:nn:ss]
  35.   timestamp -eg [ddd mmm d|:|hh:nn:ss tt]
  36.   color background 0
  37.   color normal 1
  38.   color action 6
  39.   color highlight 4
  40.   color listbox text 1
  41.   color listbox 0
  42.   color editbox text 1
  43.   color editbox 0
  44.   color own text 1
  45.   color whois text 1
  46.   color info text 2
  47.   color quit text 2
  48.   color treebar 0
  49.   color treebar text 1
  50.   font -dsgz -10 Consolas
  51.   cnick * 4 @
  52.   cnick * 7 %
  53.   cnick * 12 +
  54.   cnick * 1
  55.   writeini owwTheme.ini theme loaded 1
  56. }
  57. ;--------------------------
  58. ;----- make it work -------
  59. ;--------------------------
  60. on &*:INPUT:#:{
  61.   if (/* !iswm $1) || ($ctrlenter) {
  62.     msg $active $hs($1-).msg
  63.     halt
  64.   }
  65. }
  66. on &*:INPUT:?:{
  67.   if (/* !iswm $1) || ($ctrlenter) {
  68.     msg $active $hs($$1-)
  69.     halt
  70.   }
  71. }
  72. alias msg {
  73.   !.msg $$1 $hs($$2-).msg
  74.   if ($show) {
  75.     if ($1 ischan || $query($1)) {
  76.       if ($1 ischan) {
  77.         echo -i12t $1 < $+ $ncol($1,$me) $+ $cmod($1,$me) $+ $+($left($me,1),,$replace($mid($me,2,-1),_,$chr(32)),$ncol($1,$me),$right($me,1)) $+ > $hs($2-)
  78.       }
  79.       else {
  80.         echo -i12t $1 $+(<,$left($me,1),,$replace($mid($me,2,-1),_,$chr(32)),$ncol($1,$me),$right($me,1)) $+ > $hs($2-)
  81.       }
  82.     }
  83.     else {
  84.       echo -i12t --> < $+ $1 $+ > $hs($2-)
  85.     }
  86.   }
  87. }
  88. alias describe {
  89.   !.describe $$1 $$2-
  90.   if ($show) {
  91.     if ($1 ischan || $query($1)) {
  92.       if ($1 ischan) {
  93.         echo 6 -i12t $1 * $ncol($1,$me) $+ $cmod($1,$me) $+ $+($left($me,1),,$replace($mid($me,2,-1),_,$chr(32)),$ncol($1,$me),$right($me,1)) $+  $hs($2-)
  94.       }
  95.       else {
  96.         echo 6 -i12t $1 * $+($left($me,1),,$replace($me,_,$chr(32)),$ncol($1,$me),$right($me,1)) $+  $hs($2-)
  97.       }
  98.     }
  99.     else {
  100.       echo 6 -i12t $1 —> * $1 $+  $hs($2-)
  101.     }
  102.   }
  103. }
  104. alias amsg {
  105.   !.msg $left($regsubex($str(~,$chan(0)),/~/g,$iif(!$istok($hget(badchans,chans),$chan(\n),32),$chan(\n) $+ $chr(44))),-1) $hs($1-)
  106.   if ($show) {
  107.     var %i $chan(0)
  108.     while (%i) {
  109.       if (!$istok($hget(badchans,chans),$chan(%i),32)) echo -i12t $chan(%i) < $+ $ncol($chan(%i),$me) $+ $cmod($chan(%i),$me) $+ $+($left($me,1),,$replace($mid($me,2,-1),_,$chr(32)),$ncol($chan(%i),$me),$right($me,1)) $+ > $hs($1-)
  110.       dec %i
  111.     }
  112.   }
  113. }
  114. alias ame {
  115.   !.describe $left($regsubex($str(~,$chan(0)),/~/g,$iif(!$istok($hget(badchans,chans),$chan(\n),32),$chan(\n) $+ $chr(44))),-1) $hs($1-)
  116.   if ($show) {
  117.     var %i $chan(0)
  118.     while (%i) {
  119.       if (!$istok($hget(badchans,chans),$chan(%i),32)) echo -i12tc action $chan(%i) * $ncol($chan(%i),$me) $+ $cmod($chan(%i),$me) $+ $+($left($me,1),,$replace($mid($me,2,-1),_,$chr(32)),$ncol($chan(%i),$me),$right($me,1)) $+  $hs($1-)
  120.       dec %i
  121.     }
  122.   }
  123. }
  124. on &^*:TEXT:*:#:{
  125.   haltdef
  126.   if ($regex($1-,/[a-zA-Z 0-9]*\b([10]{8})+\b[a-zA-Z 0-9]*/)) && !($regml(0) == 1 && $regml(1) == 10000000) tokenize 32 BINARY ** $b2t($1-)
  127.   if ($chilight($1-)) {
  128.     echo -lbfmti12c highlight $chan < $+ $ncol($chan,$nick) $+ $cmod($chan,$nick) $+ $nick $+ > $hs($1-)
  129.     hilight $nick $chan normal $1-
  130.     if ($hget(away,reason)) && (!$hget(away,$address($nick,3))) && ($nick != IdleBot) {
  131.       hadd away $address($nick,3) told
  132.       .notice $nick I am away ( $hget(away,reason) ) I left $duration($calc($ctime - $hget(away,ctime))) ago
  133.     }
  134.   }
  135.   else {
  136.     echo -lbfmti12c normal $chan < $+ $ncol($chan,$nick) $+ $cmod($chan,$nick) $+ $nick $+ > $hs($1-)
  137.   }
  138. }
  139. on &^*:TEXT:*:?:{
  140.   haltdef
  141.   if (!$hget(query,$nick)) { queryStart $nick | haltdef }
  142.   if ($chilight($1-)) {
  143.     echo -lbfmti12c highlight $nick < $+ $nick $+ > $hs($1-)
  144.     hilight $nick $nick normal $1-
  145.     if ($hget(away,reason)) && (!$hget(away,$address($nick,3))) {
  146.       hadd away $address($nick,3) told
  147.       .notice $nick I am away ( $hget(away,reason) ) I left $duration($calc($ctime - $hget(away,ctime))) ago
  148.     }
  149.   }
  150.   else {
  151.     echo -lbfmti12c normal $nick < $+ $nick $+ > $hs($1-)
  152.   }
  153. }
  154. on &^*:ACTION:*:#:{
  155.   haltdef
  156.   if ($chilight($1-)) {
  157.     echo -lbfmti12c highlight $chan * $ncol($chan,$nick) $+ $cmod($chan,$nick) $+ $nick $+  $hs($1-)
  158.     hilight $nick $chan action $1-
  159.     if ($hget(away,reason)) && (!$hget(away,$address($nick,3))) {
  160.       hadd away $address($nick,3) told
  161.       .notice $nick I am away ( $hget(away,reason) ) I left $duration($calc($ctime - $hget(away,ctime))) ago
  162.     }
  163.   }
  164.   else {
  165.     echo -lbfmti12c action $chan * $ncol($chan,$nick) $+ $cmod($chan,$nick) $+ $nick $+  $hs($1-)
  166.   }
  167. }
  168. on &^*:ACTION:*:?:{
  169.   haltdef
  170.   if ($chilight($1-)) {
  171.     echo -lbfmti12c highlight $nick * $nick $hs($1-)
  172.     hilight $nick $null action $1-
  173.     if ($hget(away,reason)) && (!$hget(away,$address($nick,3))) {
  174.       hadd away $address($nick,3) told
  175.       .notice $nick I am away ( $hget(away,reason) ) I left $duration($calc($ctime - $hget(away,ctime))) ago
  176.     }
  177.   }
  178.   else {
  179.     echo -lbfmti12c action $nick * $nick $hs($1-)
  180.   }
  181. }
  182. on &^*:OPEN:?:*:{
  183.   noop $tip(Query $nick,Query with $nick,$nick opened a query with you $twrap($1-,3),8,,,,)
  184. }
  185. on &^*:CLOSE:?:{
  186.   if ($hget(query,$nick)) hdel query $nick
  187. }
  188. on &^*:JOIN:#:{
  189.   if ($nick == Fo_Reel) && ($chan == #rseos) { timer 1 2 mode #rseos -o+v Fo_Reel Fo_Reel }
  190.   if (!$address($nick,1)) updatenl
  191.   echo -bftc join $chan * JOIN: $nick $[]($right($address($nick,1),-3)).r 14< $+ $nick($chan,0) users>
  192.   haltdef
  193. }
  194. on &^*:PART:#:{
  195.   if (!$address($nick,1)) updatenl
  196.   echo -bftc part $chan * PART: $nick $[]($right($address($nick,1),-3)).r $iif($1-,$[]($1-)) 14< $+ $calc($nick($chan,0) -1) users>
  197.   haltdef
  198. }
  199. on &^*:QUIT:{
  200.   if (!$address($nick,1)) updatenl
  201.   var %i 1,%t $comchan($nick,0), %l * QUIT: $nick $[]($right($address($nick,1),-3)).r $iif($1-,$[]($1-))   
  202.   while (%i <= %t) {
  203.     echo -bftc quit $comchan($nick,%i) %l 14< $+ $calc($nick($comchan($nick,%i),0) -1) users>
  204.     inc %i
  205.   }
  206.   haltdef
  207. }
  208. on &^*:KICK:#:{
  209.   if (!$address($nick,1)) updatenl
  210.   echo -bftc kick $chan * KICK: $nick —> $knick $[]($right($address($knick,1),-3)).r $iif($1-,$[]($1-)) 14< $+ $calc($nick($chan,0) -1) users>
  211.   haltdef
  212. }
  213. on &^*:RAWMODE:#:{
  214.   echo -bftc mode $chan * MODE: $+($ncol($chan,$nick),$cmod($chan,$nick),$nick) —> $1-
  215.   haltdef
  216. }
  217. on &^*:SERVERMODE:#:{
  218.   echo -bftc mode $chan * MODE: $+($ncol($chan,$nick),$cmod($chan,$nick),$nick) —> $1-
  219.   haltdef
  220. }
  221. on &^*:NICK:{
  222.   var %i 1,%t $comchan($newnick,0)
  223.   while (%i <= %t) {
  224.     var %c $comchan($newnick,%i),%p $+($ncol($chan,$nick),$cmod($chan,$nick),)
  225.     echo -bftc nick %c * NICK: %p $+ $nick —> %p $+ $newnick
  226.     inc %i
  227.   }
  228.   halt
  229. }
  230. raw *:*:{
  231.   if ($numeric == 332) && ($3- != '') {
  232.     hadd -mz topic $2 10
  233.     echo -bfti12c topic $2 *TOPIC: $3-
  234.     haltdef
  235.   }
  236.   elseif ($numeric == 333) && ($hget(topic,$2)) {
  237.     echo -bfti12c topic $2 SET BY: $gettok($3,1,33) $iif(*@* iswm $3,$[]($right($mask($3,1),-3)).r) $[]($duration($calc($ctime - $4)))
  238.     haltdef
  239.   }
  240.   elseif ($istok(353 366 324 329 302,$numeric,32)) haltdef
  241.   elseif ($istok(401 402,$numeric,32)) {
  242.     haltdef
  243.     echo -sbfti12c whois $2 $+ : $3-
  244.   }
  245.   elseif ($istok(348 349 367 368,$numeric,32)) {
  246.     haltdef
  247.   }
  248.   ;whois/whowas numerics
  249.   elseif ($istok(301 310 311 378 319 312 307 335 317 318 313 671 320 536 314 369,$numeric,32)) {
  250.     haltdef
  251.     if ($numeric == 318) {
  252.       if ($hget($2,active)) {
  253.         if ($hget($2,1)) {
  254.           var %i 1
  255.           while ($hget($2,%i)) { inc %i }
  256.           dec %i
  257.           hdel $2 %i
  258.           if (%i == 1) hfree $2
  259.           halt
  260.         }
  261.         else {
  262.           if ($hget(whois. $+ $2)) {
  263.             echo -sbfti12c whois   Flags: $hget(Whois. $+ $2,flags)
  264.             hfree whois. $+ $2
  265.           }
  266.           echo -sbfti12c whois $chr(125)
  267.           hfree $2
  268.         }
  269.       }
  270.     }
  271.     elseif ($hget($2,1)) {
  272.       if ($numeric == 369) hfree $2
  273.       halt
  274.     }
  275.     elseif ($numeric == 311) {
  276.       hadd -m $2 active 1
  277.       echo -sbfti12c whois $2 whois $chr(123)
  278.       echo -sbfti12c whois   Address: $+($3,@,$4)
  279.       echo -sbfti12c whois   Real Name: $6
  280.     }
  281.     elseif ($numeric == 319) {
  282.       echo -sbftc whois   Channels $chr(123)
  283.       var %i 3, %t $0
  284.       while (%i <= %t) {
  285.         if ($left($($+($,%i),2),1) == ~) var %ownerchans %ownerchans $right($($+($,%i),2),-1)
  286.         elseif ($left($($+($,%i),2),1) == &) var %protectChans %protectChans $right($($+($,%i),2),-1)
  287.         elseif ($left($($+($,%i),2),1) == @) var %opchans %opchans $right($($+($,%i),2),-1)
  288.         elseif ($left($($+($,%i),2),1) == %) var %halfchans %halfchans $right($($+($,%i),2),-1)
  289.         elseif ($left($($+($,%i),2),1) == +) var %voicechans %voicechans $right($($+($,%i),2),-1)
  290.         else var %regchans %regchans $($+($,%i),2)
  291.         inc %i
  292.       }
  293.       var %i 1,%t $comchan($2,0)
  294.       while (%i <= %t) {
  295.         %ownerChans = $replace(%ownerChans,$comchan($2,%i),$+($chr(31),$comchan($2,%i),$chr(31)))
  296.         %protectChans = $replace(%protectChans,$comchan($2,%i),$+($chr(31),$comchan($2,%i),$chr(31)))
  297.         %opchans = $replace(%opchans,$comchan($2,%i),$+($chr(31),$comchan($2,%i),$chr(31)))
  298.         %halfchans = $replace(%halfchans,$comchan($2,%i),$+($chr(31),$comchan($2,%i),$chr(31)))
  299.         %voicechans = $replace(%voicechans,$comchan($2,%i),$+($chr(31),$comchan($2,%i),$chr(31)))
  300.         %regchans = $replace(%regchans,$comchan($2,%i),$+($chr(31),$comchan($2,%i),$chr(31)))
  301.         inc %i
  302.       }
  303.       var %font $window(Status Window).font,%size $window(Status Window).fontsize, $&
  304.         %width $calc($window($active).w * .3)
  305.       if (%ownerChans) {
  306.         var %i 1,%t $wrap(%opchans,%font,%size,%width,1,0)
  307.         echo -sbftc whois     4Owner:            $wrap(%ownerChans,%font,%size,%width,1,1)
  308.         inc %i
  309.         while (%i <= %t) {
  310.           echo -sbftc whois $str( ,17) ——> $wrap(%ownerChans,%font,%size,%width,1,%i)
  311.           inc %i
  312.         }
  313.       }
  314.       if (%protectChans) {
  315.         var %i 1,%t $wrap(%opchans,%font,%size,%width,1,0)
  316.         echo -sbftc whois     4Protect:          $wrap(%protectChans,%font,%size,%width,1,1)
  317.         inc %i
  318.         while (%i <= %t) {
  319.           echo -sbftc whois $str( ,17) ——> $wrap(%protectChans,%font,%size,%width,1,%i)
  320.           inc %i
  321.         }
  322.       }
  323.       if (%opchans) {
  324.         var %i 1,%t $wrap(%opchans,%font,%size,%width,1,0)
  325.         echo -sbftc whois     4Opped Channels:   $wrap(%opchans,%font,%size,%width,1,1)
  326.         inc %i
  327.         while (%i <= %t) {
  328.           echo -sbftc whois $str( ,17) ——> $wrap(%opchans,%font,%size,%width,1,%i)
  329.           inc %i
  330.         }
  331.       }
  332.       if (%halfchans) {
  333.         var %i 1,%t $wrap(%halfchans,%font,%size,%width,1,0)
  334.         echo -sbftc whois     7Halfed Channels:  $wrap(%halfchans,%font,%size,%width,1,1)
  335.         inc %i
  336.         while (%i <= %t) {
  337.           echo -sbftc whois $str( ,17) ——> $wrap(%halfchans,%font,%size,%width,1,%i)
  338.           inc %i
  339.         }
  340.       }
  341.       if (%voicechans) {
  342.         var %i 1,%t $wrap(%voicechans,%font,%size,%width,1,0)
  343.         echo -sbftc whois     12Voiced Channels:  $wrap(%voicechans,%font,%size,%width,1,1)
  344.         inc %i
  345.         while (%i <= %t) {
  346.           echo -sbftc whois $str( ,17) ——> $wrap(%voicechans,%font,%size,%width,1,%i)
  347.           inc %i
  348.         }
  349.       }
  350.       if (%regchans) {
  351.         var %i 1,%t $wrap(%regchans,%font,%size,%width,1,0)
  352.         echo -sbftc whois     Regular Channels: $wrap(%regchans,%font,%size,%width,1,1)
  353.         inc %i
  354.         while (%i <= %t) {
  355.           echo -sbftc whois $str( ,17) ——> $wrap(%regchans,%font,%size,%width,1,%i)
  356.           inc %i
  357.         }
  358.       }
  359.       var %%
  360.       if (%ownerChans) { %% = Owner: $numtok(%ownerChans,32) }
  361.       if (%protectChans) { %% = %% Protected: $numtok(%protectChans,32) }
  362.       if (%opchans) { %% = %% Opped: $numtok(%opchans,32) }
  363.       if (%halfChans) { %% = %% Halfed: $numtok($v1,32) }
  364.       if ($voicechans) { %% = %% Voiced: $numtok($v1,32) }
  365.       if (%regchans) { %% = %% Reg: $numtok($v1,32) }
  366.       echo -sbftc whois     Total Channels:   $calc($0 -2) $iif($calc($0 -2),14// $+ %%) $iif($comchan($2,0),14//Common channels: $comchan($2,0))
  367.       echo -sbftc whois   $chr(125)
  368.     }
  369.     elseif ($numeric == 378) {
  370.       echo -sbfti12c whois   Connecting from: $6 14// $+ $7
  371.     }
  372.     elseif ($numeric == 312) {
  373.       echo -sbfti12c whois   Server: $3 14// $+ $4-
  374.     }
  375.     elseif ($numeric == 301) {
  376.       whoisFlag $2 Away $[]($3-).r
  377.     }
  378.     elseif ($numeric == 307) {
  379.       whoisFlag $2 Identified
  380.     }
  381.     elseif ($numeric == 335) {
  382.       whoisFlag $2 Bot
  383.     }
  384.     elseif ($numeric == 313) {
  385.       whoisFlag $2 $3-
  386.     }
  387.     elseif ($numeric == 671) {
  388.       whoisFlag $2 Secure Connection
  389.     }
  390.     elseif ($numeric == 320) {
  391.       whoisFlag $2 4ENRAGED
  392.     }
  393.     elseif ($numeric == 536) {
  394.       whoisFlag $2 Filtering messages
  395.     }
  396.     elseif ($numeric == 310) {
  397.       whoisFlag $2 Help op
  398.     }
  399.     elseif ($numeric == 317) {
  400.       echo -sbfti12c whois   Signed on $asctime($4,ddd mmm d h:nn:ss tt) 14//Signed on $duration($calc($ctime - $4)) ago //Idle: $duration($3)
  401.     }
  402.     elseif ($numeric == 314) {
  403.       echo -sbfti12c whois $2 whowas $chr(123)
  404.       echo -sbfti12c whois   Address: $+($3,@,$4)
  405.       echo -sbfti12c whois   Ident: $6-
  406.     }
  407.     elseif ($numeric == 369) {
  408.       echo -sbfti12c whois $chr(125)
  409.     }
  410.   }
  411.   ;end whois/whowas numerics
  412. }
  413. ;---------------------------
  414. ;------- aliases -----------
  415. ;---------------------------
  416. alias whoisFlag {
  417.   hadd -m Whois. $+ $1 flags $iif($hget(Whois. $+ $1,flags),$v1 $+ $chr(44)) $2-
  418. }
  419. alias nCol { return  $+ $base($nick($1,$2).color,10,10,2) }
  420. alias cMod {
  421.   if ($nick($1,$2).pnick != $2) { return $left($v1,1) }
  422.   else { return  }
  423. }
  424. alias hs {
  425.   if ($isid) {
  426.     if (!$prop) tokenize 32 $regsubex($1-,/(\x03(?:01|1(?![0-5]))(?:(?!\x2C(?!0?1)))(?:\x2C\d{0,2})?)/g,\1)
  427.     if (*c* iswmcs $chan($chan).mode || *c* iswmcs $chan($active).mode) && ($prop == msg) return $1-
  428.     return $regsubex($1-,/(?<=^| |\x28)((?:(?:(?:https?|ftp):\/\/)(?:(?:[^ ()]{2,}\.[^ ()]*)|(?:[^ ()]?\.[^ ()]+)))|(?:(?:www\.)(?:(?:\.[^ ()]{3,})|(?:\w\.[^ ()]{2,})|(?:[^ ()]{2,}\.[^ ()]+))))(?=$| |\x29)/ig,12\1)
  429.   }
  430. }
  431. alias [] return $+($chr($iif($prop == r,40,91)),$iif($prop != r,14),$1-,$iif($prop != r,),$chr($iif($prop == r,41,93)))
  432. alias hilight {
  433.   noop $tip(Hilighted : $2,Hilighted in $2 $+ !,$1 hilighted you in $2 $twrap($4-,3),8,,,,)
  434.   window -g2 $2
  435.   ;beep
  436.   if ($2 != $active) || ($idle > 600) || ($hget(away,ctime)) echo -mti12c $3 $hlwin $ncol($2,$$1) $+ $cmod($2,$$1) $+ $$1 $+  $+ $iif($3 == normal,;,*) $+ $2 $+ ; $hs($4-)
  437. }
  438. alias chilight {
  439.   if ($regex($1-,/\b(?:steven|buzz/Si)) { return 1 }
  440. }
  441. alias hlwin {
  442.   if (!$window(@Hilights. $+ $cid)) { window -evk0n @Hilights. $+ $cid }
  443.   return @Hilights. $+ $cid
  444. }
  445. alias chanUsers { return 14< $+ $1 users> }
  446. alias say { msg $active $1- }
  447. alias me { describe $active $1- }
  448. alias tcase { return $regsubex($1-,/(?:^|\b|_)+([a-z])/g,$chr(32) $+ $upper(\1)) }
  449. alias dailyUpdate {
  450.   echo -bftc info2 $active The date has been changed to $asctime(dddd $+ $chr(44) mmm doo)
  451.   hadd query today 0
  452.   hadd query date $asctime(mmm d)
  453.   hinc query days
  454.   hsave query query.txt
  455.   .timerlagForDailyUpdate -o 1 120 .timerdailyUpdate -o 00:00 1 0 dailyUpdate
  456. }
  457. alias queryStart {
  458.   hadd query $1 1
  459.   hinc query total
  460.   hinc query today
  461.   hsave query query.txt
  462.   var %comchans, %i 1,%t $comchan($1,0)
  463.   while (%i <= %t) {
  464.     var %comchans %comchans $+ $iif(%comchans,$chr(44)) $cmod($chan,$nick) $+ $comchan($1,%i)
  465.     inc %i
  466.   }
  467.   echo -bftc info2 $1 // ---
  468.   echo -bftc info2 $1 // Query with ' $+ $1 $+ '/' $+ $right($address($1,0),-2) $+ ' opened on ' $+ $asctime(dddd $+ $chr(44) mmmm moo $+ $chr(44) h:nn:ss tt) $+ '
  469.   echo -bftc info2 $1 // Total queries: ' $+ $hget(query,total) $+ '/'~ $+ $round($calc($hget(query,total) / $hget(query,days)),2) per day'
  470.   echo -bftc info2 $1 // Queries today: ' $+ $hget(query,today) $+ '
  471.   echo -bftc info2 $1 // Common channel $+ $iif($numtok(%comchans,44) > 1,s) $+ : ' $+ %comchans $+ '
  472.   echo -bftc info2 $1 // ---
  473.   echo -bftc info2 $1 
  474.   if ($2) msg $1-
  475. }
  476. alias query {
  477.   !.query $$iif($1 == -n,$$1-2,$$1)
  478.   queryStart $iif($1 == -n,$2-,$1-)
  479. }
  480. alias q query $$1-
  481. alias twrap {
  482.   var %r,%size $calc(281 - $width($str( $chr(32),$2),$font,$size,0,1)),%i 1,%t $wrap($1,$font,$size,%size,1,0)
  483.   while (%i <= %t) {
  484.     var %r = %r $crlf $str( $chr(32),$2) $wrap($1,$font,$size,%size,1,%i)
  485.     inc %i
  486.   }
  487.   return %r
  488. }
  489. alias font return Tahoma
  490. alias size return 12
  491. alias font return $window(Status Window).font
  492. alias size return $window(Status Window).fontsize
  493. alias closewins scon -a closeallwins
  494. alias closeallwins {
  495.   var %i $window(0)
  496.   while (%i) {
  497.     if (!$istok(text,$window(%i),32)) window -c $window(%i)
  498.     dec %i
  499.   }
  500. }
  501. alias b2t $iif($isid,return,echo -a) $regsubex($1-,/([10]{1,8})/g,$chr($base(\1,2,10,0)))
  502. alias t2b $iif($isid,return,echo -a) $regsubex($1-,/(.)/g,$base($asc(\1),10,2,8))
  503. alias t2h $iif($isid,return,echo -a) $regsubex($1-,/([^A-Za-z0-9])/g,% $+ $base($asc(\1),10,16,0))
  504.  
  505. ;--------------------------
  506. ;--------- away -----------
  507. ;--------------------------
  508. alias a away $1-
  509. alias aw away $1-
  510. alias away {
  511.   !away $1-
  512.   hadd -m away reason $1-
  513.   if (!$hget(away,ctime)) {
  514.     hadd away ctime $ctime
  515.     hadd away oldNick $me
  516.     nick $me $+ [A]
  517.   }
  518.   ame is now away. ( $1- ) Left at: $timestamp
  519.   $iif($dialog(awaydialog) == $null,dialog -md Awaydialog Awaydialog)
  520. }
  521. alias bk b $1-
  522. alias b {
  523.   if ($hget(away)) {
  524.     dialog -x awaydialog
  525.     !away
  526.     nick $hget(away,oldNick)
  527.     ame is back ( $hget(away,reason) ) Gone for ( $duration($calc($ctime - $hget(away,ctime))) )
  528.     hfree away
  529.   }
  530. }
  531. dialog Awaydialog {
  532.   title "Away"
  533.   size -1 -1 250 218
  534.   option pixels
  535.   icon C:\Program Files\mIRC\favicon.ico, 0
  536.   text "You are currently away with the reason:", 1, 7 16 235 15, right
  537.   text "Not away...", 2, 7 33 235 27
  538.   text "Time spent away:", 18, 7 62 87 16
  539.   text "Updating timer goes here", 19, 97 62 145 16
  540.   edit "", 4, 7 119 236 20, autohs
  541.   button "Set &Back", 5, 176 189 64 25
  542.   button "Change &Away Reason", 6, 128 142 115 25, default ok
  543.   button "&Clear Reason", 8, 6 142 80 25
  544.   check "Enable Editing", 7, 7 101 95 15
  545.   check "Go back", 17, 7 191 65 20
  546.   box "Away Status:", 9, 2 2 246 81
  547.   box "Change Reason", 10, 2 86 245 85
  548.   box "Back", 3, 2 174 244 42
  549. }
  550. on *:dialog:Awaydialog:*:*:{
  551.   if ($devent == init) {
  552.     .timer 1 1 did -ra $dname 2 $!hget(away,reason)
  553.     did -b $dname 6
  554.     did -b $dname 8
  555.     did -m $dname 4
  556.     did -b $dname 5
  557.     $iif($away,did -a $dname 19 $duration($calc($ctime - $hget(away,ctime))))
  558.     .timerawaytimer -o 0 1 away.timer
  559.   }
  560.   if ($devent == sclick) {
  561.     ;-----------Buttons------------
  562.     ;------------------------------
  563.     ;------------------------------
  564.     if ($did == 5) {
  565.       if ($hget(away)) {
  566.         b
  567.       }
  568.       dialog -x awaydialog
  569.     }
  570.     if ($did == 6) {
  571.       a $did(awaydialog,4)
  572.       did -n $dname 2
  573.       did -m $dname 2
  574.       did -r $dname 4
  575.       did -b $dname 6
  576.       did -b $dname 8
  577.       did -u $dname 7
  578.       did -m $dname 4
  579.     }
  580.     if ($did == 8) {
  581.       did -r $dname 4
  582.       did -b $dname 6
  583.       did -b $dname 8
  584.     }
  585.     ;----------Checkboxes----------
  586.     ;------------------------------
  587.     ;------------------------------
  588.     if ($did($dname,7).state == 1) {
  589.       did -n $dname 4
  590.       if ($did($dname,4) != $null) {
  591.         did -e $dname 6
  592.         did -e $dname 8
  593.       }
  594.     }
  595.     if ($did($dname,7).state == 0) {
  596.       did -m $dname 4
  597.       did -b $dname 6
  598.       did -b $dname 8
  599.     }
  600.     if ($did == 17) {
  601.       if ($did($dname,17).state == 0) {
  602.         did -b $dname 5
  603.         .timeruncheckback off
  604.         .timermakebackdisabled off
  605.       }
  606.       if ($did($dname,17).state == 1) {
  607.         .timeruncheckback 1 15 did -u $dname 17
  608.         .timermakebackdisabled 1 15 did -b $dname 5
  609.         did -u $dname 7
  610.         did -e $dname 5
  611.         did -b $dname 6
  612.         did -b $dname 8
  613.         did -m $dname 4
  614.       }
  615.     }
  616.   }
  617.   if ($devent == edit) {
  618.     if ($did == 4) {
  619.       if ($did($dname,4) == $null) {
  620.         did -b $dname 6
  621.         did -b $dname 8
  622.       }
  623.       else {
  624.         did -e $dname 6
  625.         did -e $dname 8
  626.       }
  627.     }
  628.   }
  629.   if ($devent == close) {
  630.     if ($hget(away)) {
  631.       b
  632.     }
  633.   }
  634. }
  635. alias away.timer {
  636.   if ($away) {
  637.     did -ra awaydialog 19 $duration($calc($ctime - $hget(away,ctime)))
  638.   }
  639. }
  640. ;END

Paste Details

Tags: a is steven rere

advertising

Update the Post

Either update this post and resubmit it with changes, or make a new post.

You may also comment on this post.

update paste below
details of the post (optional)

Note: Only the paste content is required, though the following information can be useful to others.

Save name / title?

(space separated, optional)



Please note that information posted here will expire by default in one month. If you do not want it to expire, please set the expiry time above. If it is set to expire, web search engines will not be allowed to index it prior to it expiring. Items that are not marked to expire will be indexable by search engines. Be careful with your passwords. All illegal activities will be reported and any information will be handed over to the authorities, so be good.

fantasy-obligation
fantasy-obligation