My aliases

By chadbdurham on Jan 21, 2009

These are the aliases I just felt that were useful over time.

These go inside your aliases, not remotes.
Some of the text didn't fit correct :/

;Start
sm { samode $chan $eval($1-,2) }
sj { sajoin $1 $chan }
deoper { mode $me -o }
ff { return Set Modes: +CETntfj [7j#R5,20m#M5,8t#b,5k#k5,5n#N5]:15 3:10 }
f { mode $chan +CETntfj [7j#R5,20m#M5,8t#b,5k#k5,5n#N5]:15 3:10 }
topic { 
  if (!$1) { echo -t $chan The topic is: $chan($chan).topic }
  else { topic $eval($1-,2) }
}
akick {
  if ($1 == add) { cs akick $chan add $2- $3- }
  if ($1 == del) { cs akick $chan del $2 }
  if ($1 == list) { cs akick $chan list }
  if ($1 == view) { cs akick $chan view }
  if ($1 == clear) { cs akick $chan clear }
}
reban { 
  if ($1 == last) { mode $chan -b+b $ibl(#,1) $ibl(#,1) } 
  else { mode $chan -b+b $ibl($chan,$1) $ibl($chan,$1) } 
}
unbanme { cs unban $chan }
promote { $iif($1 ison $chan,   mode $chan $iif($1 isreg $chan,+v) $iif($1 isvoice $chan,+h-v) $iif($1 ishop $chan,+o-hv) $str($1 $+ $chr(32),3)) }
demote { $iif($1 ison $chan,   mode $chan $iif($1 isop $chan,-ov+h) $iif($1 ishop $chan,-h+v) $iif($1 isvoice $chan,-v) $str($1 $+ $chr(32),3)) }
ekb {
  if (*Q* iswmcs $chan($chan(#)).mode) {
    mode $chan -eIeIeI $address($1,2) $address($1,2) $1 $1 $address($1,3) $address($1,3)
    cs ban # $1 Exception Ban, Reason: $2-
  }
  else {
    mode $chan -eIeIeI $address($1,2) $address($1,2) $1 $1 $address($1,3) $address($1,3)
    mode $chan +b $address($1,2)
    kick # $1 Exception Ban, Reason: $2-
  }
}
cekb {
  mode $chan -eIeIeI $address($1,2) $address($1,2) $1 $1 $address($1,3) $address($1,3)
  cs ban # $1 Exception Ban, Reason: $2-
}
rev {
  if ($1) {
    var %c $strip($1-),%a $len(%c)
    while %a >= 1 {
      var %b %b $+ $replace($mid(%c,%a,1),$chr(32),$str($chr(32),2))
      dec %a
    }
  }
  msg $active %b
}
clr { $iif($isid,return,Say) $regsubex($$1-,//g,$+($chr(2),$chr(3),$gettok(02 03 04 07 09 11 12 13,$rand(1,8),32),$chr(2))) }
AllBan { mode $active +bbb $address($1,2) ~q: $+ $address($1,2) ~n: $+ $address($1,2) }
ei { mode $chan +eI $iif($1,$address($1,3),$address($me,3)) $iif($1,$address($1,3),$address($me,3)) }
-ei { mode $chan -eI $iif($1,$address($1,3),$address($me,3)) $iif($1,$address($1,3),$address($me,3)) }
highlight { //var %u 1 | while ($nick(#,%u)) { var %users %users $v1 | inc %u } | msg # Well Hello, %users }
aban { ban $eval($1-,2) 3 }
gban {
  var %a = 1
  while ($chan(%a)) {
    if ($nick($v1,$me,ho)) mode $chan(%a) +b $$1
    inc %a
  }
}
gei {
  var %a = 1
  while ($chan(%a)) {
    if ($nick($v1,$me,ho)) mode $chan(%a) +eI $address($me,3) $address($me,3)
    inc %a
  }
}
degei {
  var %a = 1
  while ($chan(%a)) {
    if ($nick($v1,$me,ho)) mode $chan(%a) -eeeIII $me $address($me,2) $address($me,3) $me $address($me,2) $address($me,3)
    inc %a
  }
}
gunban {
  var %a = 1
  while ($chan(%a)) {
    if ($nick($v1,$me,ho)) mode $chan(%a) -b $$1
    inc %a
  }
}
fillb {
  var %x = 1
  while (%x <= 100) {
    mode $chan +b %x
    inc %x 1
  }
}
fille {
  var %x = 1
  while (%x <= 100) {
    mode $chan +e %x
    inc %x 1
  }
}
filli {
  var %x = 1
  while (%x <= 100) {
    mode $chan +I %x
    inc %x 1
  }
}
levelsl { cs levels $active list }
me { 
  if (*E* iswmcs $chan($chan(#)).mode) && ($me !isop $chan) {
    haltdef
    msg $active * $me * $+ $eval($1-,2) $+ *
  }
  else {
    describe $active $eval($1-,2)
  }
}
inviteme { cs invite $1 $me }
unbanme { cs unban $1 $me }
assign { bs assign $active $1 }
unassign { bs unassign $active }
ibl { mode $active -bbbbbb $ibl(#,$1) $ibl(#,$2) $ibl(#,$3) $ibl(#,$4) $ibl(#,$5) $ibl(#,$6) }
iel { mode $active -eeeeee $iel(#,$1) $ibl(#,$2) $ibl(#,$3) $iel(#,$4) $iel(#,$5) $iel(#,$6) }
iil { mode $active -IIIIII $iil(#,$1) $iil(#,$2) $iil(#,$3) $iil(#,$4) $iil(#,$5) $iil(#,$6) }
qkb { mode $chan -Q+b $address($1,3) | kick $chan $1 $2- :: Q-KickBan }
voice { mode $chan +vvvvvvv $iif($1,$1-,$me) }
devoice { mode $chan -vvvvvv $iif($1,$1-,$me) }
halfop { mode $chan +hhhhhhh $iif($1,$1-,$me) }
dehalfop { mode $chan -hhhhhhh $iif($1,$1-,$me) }
op { mode $chan +oooooo $iif($1,$1-,$me) }
deop { mode $chan -ooooooo $iif($1,$1-,$me) }
ucount { echo The user count for $iif($2,$2,#) is $nick($iif($2,$2,#),0) }
nban { mode $chan +b ~n: $+ $address($1,2) }
denban { mode $chan -b ~n: $+ $address($1,2) }
tb { /ban $+(-ku,$calc($$2 *60)) $chan $$1 2 14(7[14 $+ $2 min ban7 ]14)(7[14Reason7:14 $iif($3,$3-,Unspecified) $+ 7]14)(7[14 $+ $kick.msg $+ 7]14) }
mute { mode $active +b ~q: $+ $address($1,2) }
unmute { mode $active -b ~q: $+ $address($1,2) }
qk { mode $active -Q | kick $active $1 $iif($2,$2-,Unspecified) (Q-Kick) }
inv { invite $$1 $active }
advk { mode $active +b ~c: $+ $2 | ban -ku1200 $active $1 2 10Advertising here is not allowed. (20 Min Ban) }
cban { mode $active +b ~c: $+ $1 }
decban { mode $active -b ~c: $+ $1 }
k { kick $chan $$1 14(7[14Reason7:14 $iif($2,$2-,Unspecified) $+ 7]14)(7[14 $+ $kick.msg $+ 7]14) } 
kb { ban -k $chan $$1 2 14(7[14Reason7:14 $iif($2,$2-,Unspecified) $+ 7]14)(7[14 $+ $kick.msg $+ 7]14) } 
cb { cs ban # $$1 $iif($2,$2-,Unspecified) } 
ck { cs kick $chan $$1 $iif($2,$2-,Unspecified) }
ckick { cs kick # $$1 $iif($2,$2-,Unspecified) }
add { cs access $chan add $1 $2- }
del { cs access $active del $1- }
alist { cs access $active list $1- }
m { mode $active $eval($1-,2) }
cset { cs set $active $1- }
llevels { cs levels $active list }
levels { cs levels $active set $1- }
dis { cs levels $active dis $1- }
dkb {
  if ($3) || ($3-) {
    mode $chan +bb $address($1,3) $address($2,3)
    kick $chan $1 $3-
    kick $chan $2 $3-
  }
}
sahop {
  if ( !$1 ) {
    echo -a * /sahop: insufficient parameters
    halt
    if ( !$2 ) {
      echo -a * /sahop: insufficient parameters
      halt
    }
  }
  sapart $1 $active
  .timer 1 1 sajoin $1 $active
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.