westor

/bic alias for Debian v2.0

Sep 21st, 2020 (edited)
1,184
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. alias bic {
  2.   if ($active !ischan) { echo 4 -a Error: You are not on a channel! | return }
  3.  
  4.   if ($1 !== on) && ($1 !== off) { echo 4 -a Error: Use ON or OFF only! | return }
  5.  
  6.   var %countries = IT US GR AL FR GB DE DK
  7.  
  8.   var %mode = $iif($1 == on,+,-)
  9.  
  10.   var %t = $numtok(%countries,32)
  11.   var %i = 1
  12.  
  13.   while (%i <= %t) {
  14.     var %c = $gettok(%countries,%i,32)
  15.  
  16.     if (%c) { var %s = $addtok(%s,$+(~C:,%c),32) }
  17.  
  18.     if (%s) && ($numtok(%s,32) == $modespl) { mode $active %mode $+ $str(I,$numtok(%s,32)) %s | unset %s }
  19.  
  20.     inc %i
  21.   }
  22.  
  23.   if (%s) { mode $active %mode $+ $str(I,$numtok(%s,32)) %s }
  24. }
RAW Paste Data