API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2017
67
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 23.39 KB | None | 0 0
raw download clone embed print report
  1. on !*:RAWMODE:#:{
  2.   If ($nick == $me || Y_ isop $chan || Y_ ishop $chan) { HALT }
  3.   If ($chan == #bliss) { HALT }
  4.   if (- isin $1 && e isincs $1) { mode $chan +eeeeIIII $me $address($me,2) $address($me,3) $address($me,4) $me $address($me,2) $address($me,3) }
  5. }
  6.  
  7. alias -l c1 { return $+($chr(3),$iif($readini(away.ini,colors,1),$v1,14),$1-) }
  8. alias -l c2 { return $+($chr(3),$iif($readini(away.ini,colors,2),$v1,13),$1-) }
  9. alias -l c3 { return $+($chr(3),01,$1-) }
  10. alias gone {
  11.   .tokenize 32 $iif($1,$1-,No reason)
  12.   if ($readini(away.ini,SetAway,reason)) { .echo -a $c2(>>>) $c3([ Error ]: You are already set as away.) }
  13.   else {
  14.     .away $c1(I am away) $+($chr(2),::,$chr(2)) $c1(Reason:) $c2($1-) $+($chr(2),::,$chr(2)) $c1(Left at:) $c2($time)
  15.     .writeini -n away.ini SetAway time $ctime
  16.     .writeini -n away.ini SetAway reason $1-
  17.     .writeini -n away.ini SetAway me $me
  18.     .writeini -a away.ini SetAway left $time
  19.     scon -a amsg $c1(~>) $+($c1,$chr(91),$c2,$chr(32),AWAY,$chr(32),$c1,$chr(93)) $+($chr(31),I,$chr(31)) $c1(am now away.) $+($chr(2),$c2,::,$chr(2)) $+($c1,$chr(31),R,$chr(31),eason:) $c2($1-) $+($chr(2),$c2,::,$chr(2)) $+($c1,$chr(31),L,$chr(31),eft at:) $c2($time)
  20.     if ($istok(ON,$readini(away.ini,nick,ccnick),32)) { scon -a nick $iif($readini(away.ini,nick,cnick),$v1,$+($mnick,$chr(124),AWAY)) }
  21.   }
  22. }
  23. alias back {
  24.   if (!$readini(away.ini,SetAway,reason)) { .echo -a $c2(>>>) $c3([ Error ]: You are already set as back.) }
  25.   else {
  26.     .away
  27.     scon -a amsg $c1(~>) $+($c1,$chr(91),$c2,$chr(32),BACK,$chr(32),$c1,$chr(93)) $+($chr(31),I,$chr(31)) $c1(am now back.) $+($chr(2),$c2,::,$chr(2)) $+($c1,$chr(31),B,$chr(31),ack from:) $c2($readini(away.ini,SetAway,reason)) $+($chr(2),$c2,::,$chr(2)) $+($c1,$chr(31),I,$chr(31)) $c1(was gone for:) $c2($duration($calc($ctime - $readini(away.ini,SetAway,time)),2))
  28.     if ($istok(ON,$readini(away.ini,nick,ccnick),32)) { scon -a nick $iif($readini(away.ini,SetAway,me),$v1,$mnick) }
  29.     .remini Away.ini SetAway | .remini away.ini DonePublic | .remini away.ini DonePM | .remini away.ini DoneME
  30.   }
  31. }
  32. on *:LOAD: { echo -a $c2(>>>) $c3([ Load ]: You just loaded $remove($script,$scriptdir) - Away script v1.0 by Terror_nisse.) }
  33. on *:UNLOAD: { echo -a $c2(>>>) $c3([ Unload ]: You just unloaded $remove($script,$scriptdir) - Away script v1.0 by Terror_nisse.) }
  34. menu * {
  35.   .-
  36.   Away by Terror_nisse
  37.   .Main dialog:/dialog -dm away away
  38.   .-
  39.   .$iif($away,$style(2)) Set Away:/dialog -dm Awayd Awayd
  40.   .$iif(!$away,$style(2)) Set Back:/back
  41. }
  42. dialog away {
  43.   title "Away Script"
  44.   size -1 -1 135 165
  45.   option dbu
  46.   box "Away/Back", 1, 3 3 128 37
  47.   button "Set Away", 2, 6 11 60 25, ok
  48.   button "Set Back", 3, 68 11 60 25, ok
  49.   box "When away...", 4, 3 40 128 105
  50.   check "Use highlights", 5, 10 51 44 7
  51.   box "Highlight on:", 6, 6 60 122 28
  52.   check "Public highlight", 7, 10 70 46 7
  53.   check "Private message", 8, 10 78 48 7
  54.   check "/me highlight", 9, 65 70 40 7
  55.   box "Nick to:", 10, 6 88 122 24
  56.   check "Change nick", 11, 65 51 44 7
  57.   edit "", 12, 10 97 114 11, autohs
  58.   box "Highlight nicks:", 13, 6 112 122 30
  59.   edit "", 14, 10 121 114 11, autohs
  60.   text "NOTE: Seperate nicks by comma: nick,nick,nick", 15, 10 133 150 8
  61.   button "OK", 16, 11 149 37 12, default ok
  62.   button "Cancel", 17, 49 149 37 12, cancel
  63.   button "Save", 18, 87 149 37 12
  64. }
  65. dialog AwayD {
  66.   title "Enter a away message"
  67.   size -1 -1 180 45
  68.   option dbu
  69.   box "Away message", 1, 3 3 174 23
  70.   edit "", 2, 6 12 168 11, autohs
  71.   button "OK", 3, 43 28 37 12, default ok
  72.   button "Cancel", 4, 83 28 37 12, cancel
  73. }
  74. on *:dialog:away:sclick:2:{ .dialog -dm AwayD AwayD }
  75. on *:dialog:away:sclick:3:{ .back }
  76. on *:dialog:AwayD:sclick:3:{ .gone $iif($did(2),$v1,No reason) }
  77. on *:dialog:away:init:*: {
  78.   if ($istok($false,$exists(away.ini),32)) {
  79.     .writeini -n away.ini highlight highlight on
  80.     .writeini -n away.ini highlight pm on
  81.     .writeini -n away.ini highlight public on
  82.     .writeini -n away.ini highlight me on
  83.     .writeini -n away.ini nick ccnick on
  84.     .writeini -n away.ini nick cnick $+($mnick,$chr(124),Away)
  85.     .writeini -n away.ini highlight nicks $+($mnick,$chr(44),$anick)
  86.   }
  87.   if (!$readini(away.ini,nick,ccnick)) { .did -b away 12 }
  88.   if ($away) { .did -b away 2 }
  89.   else { .did -b away 3 }
  90.   .did -a away 12 $readini(away.ini,nick,cnick)
  91.   .did -a away 14 $readini(away.ini,highlight,nicks)
  92.   if ($istok(ON,$readini(away.ini,highlight,highlight),32)) { .did -c away 5 }
  93.   else { .did -b away 7-9 | .did -b away 14 }
  94.   if ($istok(ON,$readini(away.ini,nick,ccnick),32)) { .did -c away 11 }
  95.   if ($istok(ON,$readini(away.ini,highlight,public),32)) { .did -c away 7 }
  96.   if ($istok(ON,$readini(away.ini,highlight,pm),32)) { .did -c away 8 }
  97.   if ($istok(ON,$readini(away.ini,highlight,me),32)) { .did -c away 9 }
  98. }
  99. on *:dialog:away:sclick:5:{
  100.   if ($did(5).state) {
  101.     .did -e away 7-9
  102.     .did -e away 14
  103.     .writeini away.ini highlight highlight on
  104.   }
  105.   elseif (!$did(5).state) {
  106.     .did -b away 7-9
  107.     .did -b away 14
  108.     .remini away.ini highlight highlight
  109.   }
  110. }
  111. on *:dialog:away:sclick:11:{
  112.   if ($did(11).state) {
  113.     .did -e away 12
  114.     .writeini away.ini nick ccnick on
  115.   }
  116.   elseif (!$did(11).state) {
  117.     .did -b away 12
  118.     .remini away.ini nick ccnick
  119.   }
  120. }
  121. on *:dialog:away:sclick:7:{
  122.   if ($did(7).state) { .writeini away.ini highlight public on }
  123.   elseif (!$did(7).state) { .remini away.ini highlight public }
  124. }
  125. on *:dialog:away:sclick:8:{
  126.   if ($did(8).state) { .writeini away.ini highlight pm on }
  127.   elseif (!$did(8).state) { .remini away.ini highlight pm }
  128. }
  129. on *:dialog:away:sclick:9:{
  130.   if ($did(9).state) { .writeini away.ini highlight me on }
  131.   elseif (!$did(9).state) { .remini away.ini highlight me }
  132. }
  133. on *:dialog:away:sclick:16-18:{
  134.   .remove highlight.txt
  135.   .writeini -n away.ini nick cnick $did(12)
  136.   .writeini -n away.ini highlight nicks $did(14)
  137.   .var %x = 1
  138.   while (%x <= $numtok($did(14),44)) {
  139.     .write highlight.txt $gettok($did(14),%x,44)
  140.     .inc %x
  141.   }
  142. }
  143. on *:TEXT:*:#:{
  144.   if ($istok(ON,$readini(away.ini,highlight,public),32) && $away) {
  145.     if ($readini(away.ini,DonePublic,$address($nick,3))) {
  146.       if (!$window(away)) {
  147.         .window @away
  148.       }
  149.       .aline -a @away $+($chr(91),$asctime(hh:nn),$chr(93)) $+($chr(60),$nick,$chr(62)) $1-
  150.     }
  151.     else {
  152.       .fopen temphl highlight.txt | if (!$ferr) { while (!$feof) { if ($fread(temphl) isin $1-) {
  153.             .notice $nick I am currently away $+($chr(2),::,$chr(2)) Reason: $+($chr(2),$readini(away.ini,SetAway,reason),$chr(2)) $+($chr(2),::,$chr(2)) Left at: $+($chr(2),$readini(away.ini,SetAway,left),$chr(2)) $+($chr(2),::,$chr(2)) Time gone: $+($chr(2),$duration($calc($ctime - $readini(away.ini,SetAway,time)),2),$chr(2)) $+($chr(2),::,$chr(2)) One time respond to highlight.
  154.             .writeini -n away.ini DonePublic $address($nick,3) done
  155.             if (!$window(away)) {
  156.               .window @away
  157.             }
  158.             .aline -a @away $+($chr(91),$asctime(hh:nn),$chr(93)) $+($chr(60),$nick,$chr(62)) $1-
  159.             break
  160.           }
  161.         }
  162.       }
  163.       .fclose temphl
  164.     }
  165.   }
  166. }
  167.  
  168. on *:TEXT:*:?:{
  169.   if ($istok(ON,$readini(away.ini,highlight,pm),32) && $away) {
  170.     if ($readini(away.ini,DonePm,$address($nick,3))) {
  171.       if (!$window(away)) {
  172.         .window @away
  173.       }
  174.       .aline -a @away $+($chr(91),$asctime(hh:nn),$chr(32),PM,$chr(93)) $+($chr(60),$nick,$chr(62)) $1-
  175.     }
  176.     else {
  177.       .msg $nick I am currently away $+($chr(2),::,$chr(2)) Reason: $+($chr(2),$readini(away.ini,SetAway,reason),$chr(2)) $+($chr(2),::,$chr(2)) Left at: $+($chr(2),$readini(away.ini,SetAway,left),$chr(2)) $+($chr(2),::,$chr(2)) Time gone: $+($chr(2),$duration($calc($ctime - $readini(away.ini,SetAway,time)),2),$chr(2)) $+($chr(2),::,$chr(2)) One time respond to private message.
  178.       .writeini -n away.ini DonePm $address($nick,3) done
  179.       if (!$window(away)) {
  180.         .window @away
  181.       }
  182.       .aline -a @away $+($chr(91),$asctime(hh:nn),$chr(32),PM,$chr(93)) $+($chr(60),$nick,$chr(62)) $1-
  183.     }
  184.   }
  185. }
  186.  
  187. on *:ACTION:*:?:{
  188.   if ($istok(ON,$readini(away.ini,highlight,pm),32) && $away) {
  189.     if ($readini(away.ini,DonePm,$address($nick,3))) {
  190.       if (!$window(away)) {
  191.         .window @away
  192.       }
  193.       .aline -a @away $+($chr(91),$asctime(hh:nn),$chr(32),PM,$chr(93)) $+($chr(3),06,$chr(42),$chr(32),$nick) $1-
  194.     }
  195.     else {
  196.       .msg $nick I am currently away $+($chr(2),::,$chr(2)) Reason: $+($chr(2),$readini(away.ini,SetAway,reason),$chr(2)) $+($chr(2),::,$chr(2)) Left at: $+($chr(2),$readini(away.ini,SetAway,left),$chr(2)) $+($chr(2),::,$chr(2)) Time gone: $+($chr(2),$duration($calc($ctime - $readini(away.ini,SetAway,time)),2),$chr(2)) $+($chr(2),::,$chr(2)) One time respond to private message.
  197.       .writeini -n away.ini DonePm $address($nick,3) done
  198.       if (!$window(away)) {
  199.         .window @away
  200.       }
  201.       .aline -a @away $+($chr(91),$asctime(hh:nn),$chr(32),PM,$chr(93)) $+($chr(3),06,$chr(42),$chr(32),$nick) $1-
  202.     }
  203.   }
  204. }
  205. on *:ACTION:*:#:{
  206.   if ($istok(ON,$readini(away.ini,highlight,me),32) && $away) {
  207.     if ($readini(away.ini,DoneMe,$address($nick,3))) {
  208.       if (!$window(away)) {
  209.         .window @away
  210.       }
  211.       .aline -a @away $+($chr(91),$asctime(hh:nn),$chr(93)) $+($chr(3),06,$chr(42),$chr(32),$nick) $1-
  212.     }
  213.     else {
  214.       .fopen temphl highlight.txt | if (!$ferr) { while (!$feof) { if ($fread(temphl) isin $1-) {
  215.             .notice $nick I am currently away $+($chr(2),::,$chr(2)) Reason: $+($chr(2),$readini(away.ini,SetAway,reason),$chr(2)) $+($chr(2),::,$chr(2)) Left at: $+($chr(2),$readini(away.ini,SetAway,left),$chr(2)) $+($chr(2),::,$chr(2)) Time gone: $+($chr(2),$duration($calc($ctime - $readini(away.ini,SetAway,time)),2),$chr(2)) $+($chr(2),::,$chr(2)) One time respond to description highlight.
  216.             .writeini -n away.ini DoneMe $address($nick,3) done
  217.             if (!$window(away)) {
  218.               .window @away
  219.             }
  220.             .aline -a @away $+($chr(91),$asctime(hh:nn),$chr(93)) $+($chr(3),06,$chr(42),$chr(32),$nick) $1-
  221.             break
  222.           }
  223.         }
  224.       }
  225.       .fclose temphl
  226.     }
  227.   }
  228. }
  229.  
  230. alias omgbig {
  231.   if ($bigtext.unsupp($1-)) {
  232.     echo -ac info * Characters not supported by Big Text present in your message: $bigtext.unsupp($1-)
  233.     return
  234.   }
  235.   var %lia, %lib, %lic, %lid, %lie, %i 1, %text $strip($1-, bur), %colregex /^(\d\d?(?:,\d\d?)?)/
  236.  
  237.   var %regex = /(?<= $+ $chr(3) $+ [0-9]| $+ $chr(3) $+ [0-9][0-9]) $+ $chr(44) $+ \d\d?/g, %res, %dummy = $regsub(%text, %regex, $null, %text)
  238.  
  239.   while (%i <= $len(%text)) {
  240.     if ($mid(%text, %i, 1) == $chr(3)) {
  241.       var %lia $+(%lia, $chr(3)), %lib $+(%lib, $chr(3)), %lic $+(%lic, $chr(3)), %lid $+(%lid, $chr(3)), %lie $+(%lie, $chr(3))
  242.       if ($mid(%text, $calc(%i + 1), 1) != $chr(32)) && ($regex(mtcol, $mid(%text, $calc(%i + 1), $mid(%text, $calc(%i + 1), 0)), %colregex)) {
  243.         var %m $regml(mtcol, 1)
  244.         var %lia %lia $+ %m, %lib %lib $+ %m, %lic %lic $+ %m, %lid %lid $+ %m, %lie %lie $+ %m
  245.         inc %i $len(%m)
  246.       }
  247.     }
  248.     else {
  249.       tokenize 32 $bigtext.char($mid(%text, %i, 1))
  250.       var %lia $+(%lia, $1), %lib $+(%lib, $2), %lic $+(%lic, $3), %lid $+(%lid, $4), %lie $+(%lie, $5)
  251.       ; if ($bigtext.kern($mid(%text, %i, 2))) {
  252.       var %lia $+(%lia, .), %lib $+(%lib, .), %lic $+(%lic, .), %lid $+(%lid, .), %lie $+(%lie, .)
  253.       ; }
  254.     }
  255.     inc %i
  256.   }
  257.   say $bigtext.format(%lia)
  258.   say $bigtext.format(%lib)
  259.   say $bigtext.format(%lic)
  260.   say $bigtext.format(%lid)
  261.   say $bigtext.format(%lie)
  262. }
  263.  
  264. ; You may customize this alias however you want to.
  265. ; It is Big Text's font, used above.
  266. ; The return value consists of dots and X's, to denote
  267. ;   unlit and lit points in the font, respectively;
  268. ;   there are 5 tokens of the same length, each
  269. ;   corresponding to a line in the 5-line output.
  270. ; Note how the . and X's look like the characters;
  271. ;   you can use this to your advantage!
  272. alias -l bigtext.char {
  273.   if ($1 === $chr(32)) || ($1 === $null) return $&
  274.     ... $&
  275.     ... $&
  276.     ... $&
  277.     ... $&
  278.     ...
  279.   if ($1 === $chr(160)) return $&
  280.     ..... $&
  281.     ..... $&
  282.     ..... $&
  283.     ..... $&
  284.     .....
  285.   elseif ($1 == 0) return $&
  286.     .XXXX. $&
  287.     XX..XX $&
  288.     XX.XXX $&
  289.     XXX.XX $&
  290.     .XXXX.
  291.   elseif ($1 == 1) return $&
  292.     .XXXX $&
  293.     XX.XX $&
  294.     ...XX $&
  295.     ...XX $&
  296.     ...XX
  297.   elseif ($1 == 2) return $&
  298.     XXXXX. $&
  299.     ....XX $&
  300.     ..XX.. $&
  301.     XX.... $&
  302.     XXXXXX
  303.   elseif ($1 == 3) return $&
  304.     XXXXX. $&
  305.     ....XX $&
  306.     .XXXX. $&
  307.     ....XX $&
  308.     XXXXX.
  309.   elseif ($1 == 4) return $&
  310.     .....XXX. $&
  311.     ...XX.XX. $&
  312.     .XX...XX. $&
  313.     XXXXXXXXX $&
  314.     ......XX.
  315.   elseif ($1 == 5) return $&
  316.     XXXXX $&
  317.     XX... $&
  318.     XXXX. $&
  319.     ...XX $&
  320.     XXXX.
  321.   elseif ($1 == 6) return $&
  322.     .XXXX. $&
  323.     XX.... $&
  324.     XXXXX. $&
  325.     XX..XX $&
  326.     .XXXX.
  327.   elseif ($1 == 7) return $&
  328.     XXXXXX $&
  329.     ...XX. $&
  330.     ..XX.. $&
  331.     .XX... $&
  332.     XX....
  333.   elseif ($1 == 8) return $&
  334.     .XXXX. $&
  335.     XX..XX $&
  336.     .XXXX. $&
  337.     XX..XX $&
  338.     .XXXX.
  339.   elseif ($1 == 9) return $&
  340.     .XXXX. $&
  341.     XX..XX $&
  342.     .XXXXX $&
  343.     ....XX $&
  344.     .XXXX.
  345.   elseif ($1 == A) return $&
  346.     .XXXX. $&
  347.     XX..XX $&
  348.     XXXXXX $&
  349.     XX..XX $&
  350.     XX..XX
  351.   elseif ($1 == B) return $&
  352.     XXXXX. $&
  353.     XX..XX $&
  354.     XXXXX. $&
  355.     XX..XX $&
  356.     XXXXX.
  357.   elseif ($1 == C) return $&
  358.     .XXXX. $&
  359.     XX..XX $&
  360.     XX.... $&
  361.     XX..XX $&
  362.     .XXXX.
  363.   elseif ($1 == D) return $&
  364.     XXXX.. $&
  365.     XX.XX. $&
  366.     XX..XX $&
  367.     XX..XX $&
  368.     XXXXX.
  369.   elseif ($1 == E) return $&
  370.     XXXXX $&
  371.     XX... $&
  372.     XXXX. $&
  373.     XX... $&
  374.     XXXXX
  375.   elseif ($1 == F) return $&
  376.     XXXXX $&
  377.     XX... $&
  378.     XXXX. $&
  379.     XX... $&
  380.     XX...
  381.   elseif ($1 == G) return $&
  382.     .XXXX. $&
  383.     XX.... $&
  384.     XX.XXX $&
  385.     XX..XX $&
  386.     .XXXXX
  387.   elseif ($1 == H) return $&
  388.     XX...XX $&
  389.     XX...XX $&
  390.     XXXXXXX $&
  391.     XX...XX $&
  392.     XX...XX
  393.   elseif ($1 == I) return $&
  394.     XXXX $&
  395.     .XX. $&
  396.     .XX. $&
  397.     .XX. $&
  398.     XXXX
  399.   elseif ($1 == J) return $&
  400.     ....XX $&
  401.     ....XX $&
  402.     ....XX $&
  403.     XX..XX $&
  404.     .XXXX.
  405.   elseif ($1 == K) return $&
  406.     XX..XX $&
  407.     XX.XX. $&
  408.     XXXX.. $&
  409.     XX.XX. $&
  410.     XX..XX
  411.   elseif ($1 == L) return $&
  412.     XX... $&
  413.     XX... $&
  414.     XX... $&
  415.     XX... $&
  416.     XXXXX
  417.   elseif ($1 == M) return $&
  418.     XX....XX $&
  419.     XXX..XXX $&
  420.     XXXXXXXX $&
  421.     XX.XX.XX $&
  422.     XX....XX
  423.   elseif ($1 == N) return $&
  424.     XX..XX $&
  425.     XXX.XX $&
  426.     XXXXXX $&
  427.     XX.XXX $&
  428.     XX..XX
  429.   elseif ($1 == O) return $&
  430.     .XXXX. $&
  431.     XX..XX $&
  432.     XX..XX $&
  433.     XX..XX $&
  434.     .XXXX.
  435.   elseif ($1 == P) return $&
  436.     XXXXX. $&
  437.     XX..XX $&
  438.     XXXXX. $&
  439.     XX.... $&
  440.     XX....
  441.   elseif ($1 == Q) return $&
  442.     .XXXX.. $&
  443.     XX..XX. $&
  444.     XX..XX. $&
  445.     XX..XX. $&
  446.     .XXXXXX
  447.   elseif ($1 == R) return $&
  448.     XXXXX. $&
  449.     XX..XX $&
  450.     XXXXX. $&
  451.     XX..XX $&
  452.     XX..XX
  453.   elseif ($1 == S) return $&
  454.     .XXXX. $&
  455.     XX.... $&
  456.     .XXXX. $&
  457.     ....XX $&
  458.     XXXXX.
  459.   elseif ($1 == T) return $&
  460.     XXXXXX $&
  461.     ..XX.. $&
  462.     ..XX.. $&
  463.     ..XX.. $&
  464.     ..XX..
  465.   elseif ($1 == U) return $&
  466.     XX..XX $&
  467.     XX..XX $&
  468.     XX..XX $&
  469.     XX..XX $&
  470.     .XXXX.
  471.   elseif ($1 == V) return $&
  472.     XX....XX $&
  473.     XX....XX $&
  474.     .XX..XX. $&
  475.     ..XXXX.. $&
  476.     ...XX...
  477.   elseif ($1 == W) return $&
  478.     XX...XX $&
  479.     XX...XX $&
  480.     XX.X.XX $&
  481.     XXXXXXX $&
  482.     .XX.XX.
  483.   elseif ($1 == X) return $&
  484.     XX...XX $&
  485.     .XX.XX. $&
  486.     ..XXX.. $&
  487.     .XX.XX. $&
  488.     XX...XX
  489.   elseif ($1 == Y) return $&
  490.     XX..XX $&
  491.     XX..XX $&
  492.     .XXXX. $&
  493.     ..XX.. $&
  494.     ..XX..
  495.   elseif ($1 == Z) return $&
  496.     XXXXXX $&
  497.     ...XX. $&
  498.     ..XX.. $&
  499.     .XX... $&
  500.     XXXXXX
  501.   elseif ($1 == $chr(35)) return $&
  502.     .XX..XX. $&
  503.     XXXXXXXX $&
  504.     .XX..XX. $&
  505.     XXXXXXXX $&
  506.     .XX..XX.
  507.   elseif ($1 == ') return $&
  508.     .XX $&
  509.     XX. $&
  510.     ... $&
  511.     ... $&
  512.     ...
  513.   elseif ($1 == ") return $&
  514.     XX..XX $&
  515.     XX..XX $&
  516.     ...... $&
  517.     ...... $&
  518.     ......
  519.   elseif ($1 == +) return $&
  520.     ...... $&
  521.     ..XX.. $&
  522.     XXXXXX $&
  523.     ..XX.. $&
  524.     ......
  525.   elseif ($1 == =) return $&
  526.     ...... $&
  527.     XXXXXX $&
  528.     ...... $&
  529.     XXXXXX $&
  530.     ......
  531.   elseif ($1 == -) return $&
  532.     ...... $&
  533.     ...... $&
  534.     XXXXXX $&
  535.     ...... $&
  536.     ......
  537.   elseif ($1 == _) return $&
  538.     ...... $&
  539.     ...... $&
  540.     ...... $&
  541.     ...... $&
  542.     XXXXXX
  543.   elseif ($1 == ¯) return $&
  544.     XXXXXX $&
  545.     ...... $&
  546.     ...... $&
  547.     ...... $&
  548.     ......
  549.   elseif ($1 == °) return $&
  550.     .XXX. $&
  551.     XX.XX $&
  552.     .XXX. $&
  553.     ..... $&
  554.     .....
  555.   elseif ($1 == :) return $&
  556.     .. $&
  557.     XX $&
  558.     .. $&
  559.     XX $&
  560.     ..
  561.   elseif ($1 == !) return $&
  562.     XX $&
  563.     XX $&
  564.     XX $&
  565.     .. $&
  566.     XX
  567.   elseif ($1 == ?) return $&
  568.     XXX. $&
  569.     ..XX $&
  570.     .XX. $&
  571.     .... $&
  572.     .XX.
  573.   elseif ($1 == .) return $&
  574.     .. $&
  575.     .. $&
  576.     .. $&
  577.     .. $&
  578.     XX
  579.   elseif ($1 == /) return $&
  580.     ....XX $&
  581.     ...XX. $&
  582.     ..XX.. $&
  583.     .XX... $&
  584.     XX....
  585.   elseif ($1 == \) return $&
  586.     XX.... $&
  587.     .XX... $&
  588.     ..XX.. $&
  589.     ...XX. $&
  590.     ....XX
  591.   elseif ($1 == $chr(40)) return $&
  592.     ...XX $&
  593.     .XX.. $&
  594.     XX... $&
  595.     .XX.. $&
  596.     ...XX
  597.   elseif ($1 == $chr(41)) return $&
  598.     XX... $&
  599.     ..XX. $&
  600.     ...XX $&
  601.     ..XX. $&
  602.     XX...
  603.   elseif ($1 == $chr(37)) return $&
  604.     XX..XX $&
  605.     ...XX. $&
  606.     ..XX.. $&
  607.     .XX... $&
  608.     XX..XX
  609.   elseif ($1 == [) return $&
  610.     XXXXX $&
  611.     XX... $&
  612.     XX... $&
  613.     XX... $&
  614.     XXXXX
  615.   elseif ($1 == ]) return $&
  616.     XXXXX $&
  617.     ...XX $&
  618.     ...XX $&
  619.     ...XX $&
  620.     XXXXX
  621.   elseif ($1 == |) return $&
  622.     .XX. $&
  623.     .XX. $&
  624.     .XX. $&
  625.     .XX. $&
  626.     .XX.
  627.   elseif ($1 == <) return $&
  628.     ....XX $&
  629.     ..XX.. $&
  630.     XX.... $&
  631.     ..XX.. $&
  632.     ....XX
  633.   elseif ($1 == >) return $&
  634.     XX.... $&
  635.     ..XX.. $&
  636.     ....XX $&
  637.     ..XX.. $&
  638.     XX....
  639.   elseif ($1 == ¸) return $&
  640.     .... $&
  641.     .... $&
  642.     .XX. $&
  643.     ..XX $&
  644.     XXX.
  645.   elseif ($1 == ,) return $&
  646.     ... $&
  647.     ... $&
  648.     XXX $&
  649.     .XX $&
  650.     XX.
  651. }
  652. alias bigtext.unsupp {
  653.   var %res, %dummy = $regsub($1-, /[]a-z  0-9# $+ $chr(44) $+ '+=°:!?./\\()%[|<>_¯"¸-]/igS, $null, %res)
  654.   return %res
  655. }
  656. alias bigtext.kern {
  657.   var %res $true
  658.   if ($regex($1-, /^(.|[_GDSQL-]T|[TPFVY7/"]J|T\.|L[1Y\\"]|[LTK<[]-|-[]>%\\]|S1|T4|\?\.|\.\?|[467L\\]°|°[J/]|L'|\/\/|\\\\|¯J|[_¯]¯|[¯T_]_|>\.|\.<)$/i)) %res = $false
  659.   return %res
  660. }
  661. alias bigtext.format {
  662.   var %res, %i 1, %previous 0, %current, %curcolor, %colregex /^(\d\d?(?:,\d\d?)?)/
  663.   while (%i <= $len($1-)) {
  664.     if ($mid($1-, %i, 1) == $chr(3)) {
  665.       if ($regex(mtcol, $mid($1-, $calc(%i + 1), $mid($1-, $calc(%i + 1), 0)), %colregex)) {
  666.         if ($gettok($regml(mtcol, 1), 1, 44) != %curcolor) {
  667.           %curcolor = $gettok($regml(mtcol, 1), 1, 44)
  668.           if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
  669.         }
  670.         inc %i $len($regml(mtcol, 1))
  671.       }
  672.       elseif (%curcolor) {
  673.         %curcolor =
  674.         if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
  675.       }
  676.     }
  677.     else {
  678.       %current = $iif($mid($1-, %i, 1) == ., 0, 1)
  679.       if (%previous != %current) {
  680.         %previous = %current
  681.         if (%curcolor) {
  682.           if (%current) %res = %res $+ $chr(3) $+ %curcolor $+ , $+ %curcolor
  683.           else %res = %res $+ $chr(3)
  684.         }
  685.         else %res = %res $+ $chr(22)
  686.       }
  687.       %res = %res $+ $chr(160)
  688.     }
  689.     inc %i
  690.   }
  691.   return %res
  692. }
  693.  
  694. menu nicklist {
  695.   .akick
  696.   ..addakick: cs akick $chan add $$1 | notice $$1 You got pwned! | msg $chan now that the n00b is gone we can resume the fun
  697. }
  698. if { $me == isop {
  699.     cs unban #chan $me
  700.     cs akick $chan del $me $+!*@*
  701.     cs akick $chan del $address ($me,2)
  702.     cs invite $chan $me
  703.     cs ban $chan $nick $address
  704.     cs akick $chan add $nick
  705.     msg $chan haha that was fun wasn't it
  706.   }
  707. }
  708.  
  709. on *:input:*: {
  710.   if ($$1 === +I) { /mode # +I $me  }
  711.   if ($$1 === +e) { /mode # +e $me  }
  712.   if ($$1 === +v) { cs voice # $nick }
  713.   if ($$1 === +h) { cs halfop # $nick }
  714.   if ($$1 === +o) { cs op # $nick }
  715.   if ($$1 === +a) { cs protect # $nick }
  716.   if ($$1 === +q) { cs owner # $nick }
  717.   if ($$1 === +b) { mode # +b $$2!*@* | inc %bans 1 }
  718.   if ($$1 === +c) { mode # +c }
  719.   if ($$1 === +e) { mode # +e $$2!*@* }
  720.   if ($$1 === +I) { mode # +I $$2!*@* }
  721.   if ($$1 === +i) { mode # +i }
  722.   if ($$1 === +k) { mode # +k $$2 }
  723.   if ($$1 === +l) { mode # +l $$2 }
  724.   if ($$1 === +m) { mode # +m }
  725.   if ($$1 === +n) { mode # +n }
  726.   if ($$1 === +p) { mode # +p }
  727.   if ($$1 === +s) { mode # +s }
  728.   if ($$1 === +t) { mode # +t }
  729.   if ($$1 === +z) { mode # +z }
  730.   if ($$1 === +C) { mode # +C }
  731.   if ($$1 === +G) { mode # +G }
  732.   if ($$1 === +M) { mode # +M }
  733.   if ($$1 === +K) { mode # +K }
  734.   if ($$1 === +L) { mode # +L $$2 }
  735.   if ($$1 === +N) { mode # +N }
  736.   if ($$1 === +Q) { mode # +Q }
  737.   if ($$1 === +R) { mode # +R }
  738.   if ($$1 === +S) { mode # +S }
  739.   if ($$1 === +T) { mode # +T }
  740.   if ($$1 === +V) { mode # +V }
  741.   if ($$1 === +u) { mode # +u }
  742.   if ($$1 === -v) { cs devoice # $nick }
  743.   if ($$1 === -h) { cs dehalfop # $nick }
  744.   if ($$1 === -o) { cs deop # $nick }
  745.   if ($$1 === -a) { cs deprotect # $nick }
  746.   if ($$1 === -q) { cs deowner # $nick }
  747.   if ($$1 === -b) { mode # -b $$2!*@* }
  748.   if ($$1 === -c) { mode # -c }
  749.   if ($$1 === -e) { mode # -e $$2!*@* }
  750.   if ($$1 === -I) { mode # -I $$2!*@* }
  751.   if ($$1 === -i) { mode # -i }
  752.   if ($$1 === -k) { mode # -k }
  753.   if ($$1 === -l) { mode # -l }
  754.   if ($$1 === -m) { mode # -m }
  755.   if ($$1 === -n) { mode # -n }
  756.   if ($$1 === -p) { mode # -p }
  757.   if ($$1 === -s) { mode # -s }
  758.   if ($$1 === -t) { mode # -t }
  759.   if ($$1 === -z) { mode # -z }
  760.   if ($$1 === -C) { mode # -C }
  761.   if ($$1 === -G) { mode # -G }
  762.   if ($$1 === -M) { mode # -M }
  763.   if ($$1 === -K) { mode # -K }
  764.   if ($$1 === -L) { mode # -L }
  765.   if ($$1 === -N) { mode # -N }
  766.   if ($$1 === -Q) { mode # -Q }
  767.   if ($$1 === -R) { mode # -R }
  768.   if ($$1 === -S) { mode # -S }
  769.   if ($$1 === -T) { mode # -T }
  770.   if ($$1 === -V) { mode # -V }
  771.   if ($$1 === -u) { mode # -u }
  772.   if ($$1 === o+) { cs op # $$2 }
  773.   if ($$1 === o-) { cs deop # $$2 }
  774.   if ($$1 === h+) { cs halfop # $$2 }
  775.   if ($$1 === h-) { cs dehalfop # $$2 }
  776.   if ($$1 === v+) { cs voice # $$2 }
  777.   if ($$1 === v-) { cs devoice # $$2 }
  778.   if ($$1 === .inv*) ( cs invite # $$2 )
  779.   if ($$1 === Die,) { cs akick # add $$2 [ %akicks ] | inc %akicks 1 }
  780.   if ($$1 === Remove,) { cs akick # del $$2 [ %akicks ] | inc %akicks 1 }
  781.   if ($$1 === Nick) { nick YourNickHere }
  782.   if ($$1 === -) { kick # $$2 [ %kicks ] | inc %kicks 1 }
  783.   if ($$1 === +vhoaq) { mode # +vhoaq $me $me $me $me $me }
  784.   if ($$1 === +vhoa) { mode # +vhoa $me $me $me $me }
  785.   if ($$1 === +vho) { mode # +vho $me $me $me }
  786.   if ($$1 === +vh) { mode # +vh $me $me }
  787.   if ($$1 === -vhoaq) { mode # -vhoaq $me $me $me $me $me }
  788.   if ($$1 === -vhoa) { mode # -vhoa $me $me $me $me }
  789.   if ($$1 === -vho) { mode # -vho $me $me $me }
  790.   if ($$1 === -vh) { mode # -vh $me $me }
  791.   if ($$1 === qop) {
  792.     cs voice # $me
  793.     cs halfop # $me
  794.     cs op # $me
  795.     cs protect # $me
  796.     cs owner # $me
  797.   }
  798.   if ($$1 === sop) {
  799.     cs voice # $me
  800.     cs halfop # $me
  801.     cs op # $me
  802.     cs protect # $me
  803.   }
  804.   if ($$1 === aop) {
  805.     cs voice # $me
  806.     cs halfop # $me
  807.     cs op # $me
  808.   }
  809. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!