API tools faq
paste
Advertisement
wollux

NickCaller v3.0 PUBLIC

wollux
Feb 6th, 2014
219
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 7.91 KB | None | 0 0
raw download clone embed print report
  1. ;--Teh Caller
  2. on *:TEXT:*:#: {
  3.   if ($nick isin $getexempt) { halt }
  4.   elseif ($chan == $active) { halt }
  5.   var %wrds = $gettok($strip($1-),0,32)
  6.   var %wrd = 1
  7.   while (%wrd <= %wrds) {
  8.     var %word = $gettok($strip($1-),%wrd,32)
  9.     var %cll = 1
  10.     var %clls = $gettok($ReadCalls,0,32)
  11.     while (%cll <= %clls) {
  12.       if ($gettok($ReadCalls,%cll,32) isin %word) { if ($active !== @NickCaller) { echo -agt 0:4[15N14ick15C14aller4][14 $iif($network,$v1,$server) 4]15 $+(,$nick,) used one of your defined triggers in $+(4,$chan,15:) $1- } | inc %nickcalls | rline @NickCaller 1 You have had %nickcalls Nick Calls! | echo -t @NickCaller ( $+ $iif($network,$server > $network,$server) $+ ) / $chan ( $+ $nick $+ ) > $strip($1-) | halt }
  13.       inc %cll
  14.     }
  15.     inc %wrd
  16.   }
  17.   elseif ($me isin $1-) { if ($active !== @NickCaller) { echo -agt 0:4[15N14ick15C14aller4][14 $iif($network,$v1,$server) 4]15 $+(,$nick,) used one of your defined triggers in $+(4,$chan,15:) $1- } | inc %nickcalls | rline @NickCaller 1 You have had %nickcalls Nick Calls! | echo -t @NickCaller ( $+ $iif($network,$server > $network,$server) $+ ) / $chan ( $+ $nick $+ ) > $strip($1-) | halt }
  18. }
  19. ;--Start event
  20. on *:START: { _nick::start }
  21. ;--Aliases
  22. alias -l _nick::start {
  23.   inc %NickCaller.Ran
  24.   NickEcho -s Start 4N15ick 4C15aller 9v3.0
  25.   NickEcho -s Start 9S15cripted 9B15y 14A15u0ro15r14a7//9w150r3
  26.   NickEcho -s Start 9Y15ou 9H15ave 9R15an 4N15ick 4C15aller 9F15or 9T15he0 $ord(%NickCaller.Ran) 9T15ime
  27.   var %call = 1
  28.   var %calls = $gettok($readini(NickCaller.ini,Caller,All),0,32)
  29.   if (%calls >= 1) {
  30.     while (%call <= %calls) {
  31.       NickEcho -s Calls 7(14 %call 7)14 $gettok($readini(NickCaller.ini,Caller,All),%call,32)
  32.       inc %call
  33.     }
  34.   }
  35.   if (!$window(@NickCaller)) { window -E @NickCaller | aline @NickCaller You have had 0 Nick Calls! }
  36. }
  37.  
  38. alias -l NickEcho { if ($1 == -s) { set %_echo -sg | tokenize 32 $2- } | echo $_echo 15:4[15N14ick15C14aller4][15 $1 4]14 $1- | set %_echo -ag }
  39. alias lulz { //me 15-0(9.15.0.4I 9A15m 9U15sing 4Y7o8u9r 0M15o14t2h12e4r 0)15- }
  40. alias -l ReadCalls { return $readini(NickCaller.ini,Caller,All) }
  41. alias NickCaller {
  42.   if ($1 == -d) {
  43.     if ($2 isin $readini(NickCaller.ini,Caller,All)) { writeini NickCaller.ini Caller All $remtok($ReadCalls,$2,32) | NickEcho Caller $2 Removed. }
  44.     elseif ($2 !isin $ReadCalls) { NickEcho $2 Is Not In Your Nick Caller. }
  45.     elseif (!$2) { NickEcho Please Specify A Trigger To Remove. }
  46.   }
  47.   elseif ($1 == -l) {
  48.     if ($2) { NickEcho Callers ( $+ $2 $+ ) 14:15:0:14 $+ $gettok($ReadCalls,$2,32) }
  49.     elseif (!$2) { NickEcho Callers 14:15:0:14 $+ $ReadCalls }
  50.   }
  51.   elseif ($1 == -c) { remini NickCaller.ini Caller All | NickEcho Caller List Cleared. }
  52.   elseif ($1 == -e) {
  53.     if ($2 isin $getexempt) { writeini NickCaller.ini calls exempt $remtok($getexempt,$2,32) | nickecho $2 call exempt removed. }
  54.     elseif ($2 !isin $getexempt) { writeini NickCaller.ini calls exempt $addtok($getexempt,$2,32) | nickecho $2 call exempt added. }
  55.   }
  56.   elseif ($1 == -el) { NickEcho Caller Exempts 14:15:0:14 $+ $getexempt }
  57.   elseif ($1 == -a) { writeini NickCaller.ini Caller All $addtok($ReadCalls,$2,32) | NickEcho Caller $2 Added. }
  58.   elseif ($1 == -r) { _nick::start }
  59.   elseif ($1 == -t) { ncd:open | ncd:echo Remote Opening NCD Control Pannel }
  60.   elseif ($1 == -adv) { me is using 0:4[15N14ick15C14aller4][15v3.0][10by wh0r34] }
  61.   elseif (!$1) { ncd:open }
  62. }
  63. alias -l getexempt { return $readini(NickCaller.ini,calls,exempt) }
  64. alias -l IsCaller {
  65.   if ($1 isin $readcalls) { return $true }
  66.   elseif ($1 !isin $ReadCalls) { return $false }
  67.   elseif (!$1) { return $null }
  68. }
  69. ;--Menus
  70. menu * {
  71.   [Nick Caller]
  72.   .[Dialog]:/NickCaller
  73.   .[Callers]
  74.   ..List [/NickCaller -l]:/NickCaller -l
  75.   ..Add [/NickCaller -a <trigger>]:/NickCaller -a $$?"Add What?"
  76.   ..Remove [/NickCaller -d <trigger>]:/NickCaller -d $$?"Add What?"
  77.   ..Clear [/NickCaller -c]:/NickCaller -c
  78.   .[Exempt]
  79.   ..List [/NickCaller -el]:/NickCaller -el
  80.   .. $+ $iif($iif($chan,$iif($snick($chan,1),$v1),$nick) isin $getexempt,Remove,Add) $iif($chan,$iif($snick($chan,1),$v1),$nick) [/NickCaller -e <exempt>]:/nickcaller -e $iif($chan,$iif($snick($chan,1),$v1,$$?"Add Who?"),$nick)
  81.   .[Info]
  82.   ..NickCaller v3.0 by Aurora
  83.   ..Advertise:/NickCaller -adv
  84. }
  85. ;--Dialog
  86. dialog nickcallerdt {
  87.   title "NickCaller"
  88.   size -1 -1 240 114
  89.   option dbu
  90.   tab "Control", 1, 1 1 233 89
  91.   button "Add Caller", 5, 4 20 37 10, tab 1
  92.   edit "", 6, 43 20 89 10, tab 1
  93.   edit "", 7, 43 30 89 10, tab 1
  94.   button "Add Exempt", 8, 4 31 37 9, tab 1
  95.   text "NickCaller by wh0r3", 22, 4 41 69 21, tab 1
  96.   tab "Caller List", 3
  97.   box "Callers", 9, 4 16 120 68, tab 3
  98.   list 10, 7 23 113 58, tab 3 size
  99.   box "Control", 11, 126 16 107 49, tab 3
  100.   button "Remove Selected", 12, 128 25 58 9, tab 3
  101.   button "Add Current Nick", 13, 128 34 58 8, tab 3
  102.   button "Add Caller", 14, 128 42 58 9, tab 3
  103.   edit "", 15, 128 52 102 10, tab 3
  104.   tab "Exempt List", 4
  105.   box "Exempt List", 16, 4 16 118 71, tab 4
  106.   list 17, 6 23 114 61, tab 4 size
  107.   box "Control", 18, 123 16 110 71, tab 4
  108.   button "Remove Selected", 19, 125 25 52 8, tab 4
  109.   button "Add Exempt", 20, 125 33 52 8, tab 4
  110.   edit "", 21, 125 42 106 10, tab 4
  111.   button "Done", 2, 4 97 37 12
  112. }
  113.  
  114.  
  115. alias -l  ncd:init { ncd:init.calls | ncd:init.exempt }
  116. on *:DIALOG:nickcallerdt:init:*: {
  117.   ncd:init.calls
  118.   ncd:init.exempt
  119. }
  120. on *:DIALOG:nickcallerdt:edit:*: {
  121.   if ($did == 6) { set %ncd:manualcalleradd5 $did($dname,6).text }
  122.   if ($did == 7) { set %ncd:manualexemptadd7 $did($dname,7).text }
  123.   if ($did == 15) { set %ncd:manualcalleradd15 $did($dname,15).text }
  124.   if ($did == 21) { set %ncd:manualexemptadd21 $did($dname,21).text }
  125. }
  126. on *:DIALOG:nickcallerdt:sclick:*: {
  127.   if ($did == 5) {
  128.     if (%ncd:manualcalleradd6) { nickcaller -a $v1 | ncd:echo Callers Added $v1 | ncd:init }
  129.     else { ncd:echo error invalid params }
  130.   }
  131.   if ($did == 8) {
  132.     if (%ncd:manualexemptadd7) { nickcaller -e $v1 | ncd:echo Exempt Added $v1 | ncd:init }
  133.     else { ncd:echo error invalid params }
  134.   }
  135.   if ($did == 13) {
  136.     if ($me !isin $getcalls) { nickcaller -a $me | ncd:init }
  137.     else { ncd:echo error $me is already a caller }
  138.   }
  139.   if ($did == 14) {
  140.     if (%ncd:manualcalleradd15) { nickcaller -a $v1 | ncd:init }
  141.     else { ncd:echo error invalid params }
  142.   }
  143.   if ($did == 20) {
  144.     if (%ncd:manualexemptadd21) { nickcaller -e $v1 | ncd:init }
  145.     else { ncd:echo error invalid params }
  146.   }
  147.   if ($did == 10) { set %ncd:listcall $gettok($readcalls,$did($dname,10).sel,32) }
  148.   if ($did == 17) { set %ncd:listex $gettok($getexempt,$did($dname,17).sel,32) }
  149.   if ($did == 2) { dialog -x $dname }
  150.   if ($did == 19) {
  151.     if (%ncd:listex) { nickcaller -e $v1 | ncd:echo Exempt Removed $v1 | ncd:init }
  152.     else { ncd:echo error invalid params }
  153.   }
  154.   if ($did == 12) {
  155.     if (%ncd:listcall) { nickcaller -d $v1 | ncd:echo Callers Removed $v1 | ncd:init }
  156.     else { ncd:echo error invalid params }
  157.   }
  158. }
  159. alias -l ncd:echo { echo -agt 15:4[15N14ick15C14aller4][15 Dialog 4][0 $1 4]14 $2- }
  160. alias -l ncd:init.calls {
  161.   did -r nickcallerdt 10
  162.   var %ncd:initcall 1
  163.   var %ncd:initcalls $gettok($readcalls,0,32)
  164.   if (%ncd:initcall >= 1) {
  165.     while (%ncd:initcall <= %ncd:initcalls) {
  166.       did -a nickcallerdt 10 $gettok($readcalls,%ncd:initcall,32)
  167.       inc %ncd:initcall
  168.     }
  169.   }
  170. }
  171. alias -l ncd:init.exempt {
  172.   did -r nickcallerdt 17
  173.   var %ncd:initex 1
  174.   var %ncd:initexs $gettok($getexempt,0,32)
  175.   if (%ncd:initex >= 1) {
  176.     while (%ncd:initex <= %ncd:initexs) {
  177.       did -a nickcallerdt 17 $gettok($getexempt,%ncd:initex,32)
  178.       inc %ncd:initex
  179.     }
  180.   }
  181. }
  182. alias ncd:open {
  183.   if ($dialog(nickcallerdt)) dialog -x nickcallerdt
  184.   dialog -m nickcallerdt nickcallerdt
  185. }
  186.  
  187. ;--Unload Event
  188. on *:UNLOAD: { unset %NickCaller.* }
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!