Bot For Channel Operators - EcKstasy

By EcKstasy on May 05, 2008

This is a bot for channel operators,it supports !topic ,!op ,!deop ,!voice ,!devoice ,!halfop ,!dehalfop ,!adminon ,!adminoff ,!kickban ,!kick ,!big (The !big command is just a fun big text script ;)

on *:TEXT:!topic *:#: { if ($nick isop $chan) { topic $chan  $2- }
  ELSE { notice $nick 12Sorry0 $nick 12You Cannot Access This Command Because You're Not An Op In 0 $chan }
}

on *:TEXT:!op *:#: { if ($nick isop $chan) { mode $chan +o $2 } 
  ELSE { notice $nick 12Sorry0 $nick 12You Cannot Access This Command Because You're Not An Op In 0 $chan
  }      
}

on *:TEXT:!deop *:#: { if ($nick isop $chan) { mode $chan -o $2 } 
  ELSE { notice $nick 12Sorry0 $nick 12You Cannot Access This Command Because You're Not An Op In 0 $chan
  }      
}
on *:TEXT:!voice *:#: { if ($nick ishop $chan || $nick isop $chan) { mode $chan +v $2 } 
  ELSE { notice $nick 12Sorry0 $nick 12You Cannot Access This Command Because You're Not An Op/Halfop In 0 $chan
  }      
}
on *:TEXT:!devoice *:#: { if ($nick ishop $chan || $nick isop $chan) { mode $chan -v $2 } 
  ELSE { notice $nick 12Sorry0 $nick 12You Cannot Access This Command Because You're Not An Op/Halfop In 0 $chan
  }
}
on *:TEXT:!halfop *:#: { if ($nick isop $chan) { mode $chan +h $2 } 
  ELSE { notice $nick 12Sorry0 $nick 12You Cannot Access This Command Because You're Not An Op In 0 $chan
  }      
}
on *:TEXT:!dehalfop *:#: { if ($nick isop $chan) { mode $chan -h $2 } 
  ELSE { notice $nick  12Sorry0 $nick 12You Cannot Access This Command Because You're Not An Op In 0 $chan
  }      
}
on *:TEXT:!adminon *:#: { if ($nick isop $chan) { mode $chan +a $2 } 
  ELSE { notice $nick  12Sorry0 $nick 12You Cannot Access This Command Because You're Not An Op In 0 $chan
  }      
}
on *:TEXT:!adminoff *:#: { if ($nick isop $chan) { mode $chan -a $2 } 
  ELSE { notice $nick  12Sorry0 $nick 12You Cannot Access This Command Because You're Not An Op In 0 $chan
  }      
}
on *:TEXT:!kickban *:#: { 
  if ($nick ishop $chan || $nick isop $chan) { mode $chan +b $address($2,2) $2 
  kick $chan $2 0,12 Requested By9 $nick 0Reason:4 $3- ) }
  elseif ($nick !isop $chan) { notice $nick  12Sorry0 $nick 12You Cannot Access This Command Because You're Not An Op In 0 $chan 
  }
}
on *:TEXT:!kick *:#: { if ($nick ishop $chan || $nick isop $chan) { kick $chan $2 0,12 Requested By9 $nick 0Reason:4 $3- }
  ELSE { notice $nick  12Sorry0 $nick 12You Cannot Access This Command Because You're Not An Op In 0 $chan }
}
on *:TEXT:!big *:#: { if ($nick ishop $chan || $nick isop $chan) { big $2- }
  else { notice $nick 12Sorry0 $nick 12You Cannot Access This Command Because You're Not An Op In 0 $chan
  }
}
alias big {
  if ($bigtext.unsupp($1-)) {
    echo -ac info * Characters not supported by Big Text present in your message: $bigtext.unsupp($1-)
    return
  }
  var %lia, %lib, %lic, %lid, %lie, %i 1, %text $strip($1-, bur), %colregex /^(\d\d?(?:,\d\d?)?)/

  var %regex = /(?<= $+ $chr(3) $+ [0-9]| $+ $chr(3) $+ [0-9][0-9]) $+ $chr(44) $+ \d\d?/g, %res, %dummy = $regsub(%text, %regex, $null, %text)

  while (%i <= $len(%text)) {
    if ($mid(%text, %i, 1) == $chr(3)) {
      var %lia $+(%lia, $chr(3)), %lib $+(%lib, $chr(3)), %lic $+(%lic, $chr(3)), %lid $+(%lid, $chr(3)), %lie $+(%lie, $chr(3))
      if ($mid(%text, $calc(%i + 1), 1) != $chr(32)) && ($regex(mtcol, $mid(%text, $calc(%i + 1), $mid(%text, $calc(%i + 1), 0)), %colregex)) {
        var %m $regml(mtcol, 1)
        var %lia %lia $+ %m, %lib %lib $+ %m, %lic %lic $+ %m, %lid %lid $+ %m, %lie %lie $+ %m
        inc %i $len(%m)
      }
    }
    else { 
      tokenize 32 $bigtext.char($mid(%text, %i, 1))
      var %lia $+(%lia, $1), %lib $+(%lib, $2), %lic $+(%lic, $3), %lid $+(%lid, $4), %lie $+(%lie, $5)
      ; if ($bigtext.kern($mid(%text, %i, 2))) {
      var %lia $+(%lia, .), %lib $+(%lib, .), %lic $+(%lic, .), %lid $+(%lid, .), %lie $+(%lie, .)
      ; }
    }
    inc %i
  }
  msg $chan $bigtext.format(%lia)
  msg $chan $bigtext.format(%lib)
  msg $chan $bigtext.format(%lic)
  msg $chan $bigtext.format(%lid)
  msg $chan $bigtext.format(%lie)
}

alias -l bigtext.char {
  if ($1 === $chr(32)) || ($1 === $null) return $&
    ... $&
    ... $&
    ... $&
    ... $&
    ...
  if ($1 === $chr(160)) return $&
    ..... $&
    ..... $&
    ..... $&
    ..... $&
    .....
  elseif ($1 == 0) return $&
    .XXXX. $&
    XX..XX $&
    XX.XXX $&
    XXX.XX $&
    .XXXX.
  elseif ($1 == 1) return $&
    .XXXX $&
    XX.XX $&
    ...XX $&
    ...XX $&
    ...XX
  elseif ($1 == 2) return $&
    XXXXX. $&
    ....XX $&
    ..XX.. $&
    XX.... $&
    XXXXXX
  elseif ($1 == 3) return $&
    XXXXX. $&
    ....XX $&
    .XXXX. $&
    ....XX $&
    XXXXX.
  elseif ($1 == 4) return $&
    .....XXX. $&
    ...XX.XX. $&
    .XX...XX. $&
    XXXXXXXXX $&
    ......XX.
  elseif ($1 == 5) return $&
    XXXXX $&
    XX... $&
    XXXX. $&
    ...XX $&
    XXXX.
  elseif ($1 == 6) return $&
    .XXXX. $&
    XX.... $&
    XXXXX. $&
    XX..XX $&
    .XXXX.
  elseif ($1 == 7) return $&
    XXXXXX $&
    ...XX. $&
    ..XX.. $&
    .XX... $&
    XX....
  elseif ($1 == 8) return $&
    .XXXX. $&
    XX..XX $&
    .XXXX. $&
    XX..XX $&
    .XXXX.
  elseif ($1 == 9) return $&
    .XXXX. $&
    XX..XX $&
    .XXXXX $&
    ....XX $&
    .XXXX.
  elseif ($1 == A) return $&
    .XXXX. $&
    XX..XX $&
    XXXXXX $&
    XX..XX $&
    XX..XX
  elseif ($1 == B) return $&
    XXXXX. $&
    XX..XX $&
    XXXXX. $&
    XX..XX $&
    XXXXX.
  elseif ($1 == C) return $&
    .XXXX. $&
    XX..XX $&
    XX.... $&
    XX..XX $&
    .XXXX.
  elseif ($1 == D) return $&
    XXXX.. $&
    XX.XX. $&
    XX..XX $&
    XX..XX $&
    XXXXX.
  elseif ($1 == E) return $&
    XXXXX $&
    XX... $&
    XXXX. $&
    XX... $&
    XXXXX
  elseif ($1 == F) return $&
    XXXXX $&
    XX... $&
    XXXX. $&
    XX... $&
    XX...
  elseif ($1 == G) return $&
    .XXXX. $&
    XX.... $&
    XX.XXX $&
    XX..XX $&
    .XXXXX
  elseif ($1 == H) return $&
    XX...XX $&
    XX...XX $&
    XXXXXXX $&
    XX...XX $&
    XX...XX
  elseif ($1 == I) return $&
    XXXX $&
    .XX. $&
    .XX. $&
    .XX. $&
    XXXX
  elseif ($1 == J) return $&
    ....XX $&
    ....XX $&
    ....XX $&
    XX..XX $&
    .XXXX.
  elseif ($1 == K) return $&
    XX..XX $&
    XX.XX. $&
    XXXX.. $&
    XX.XX. $&
    XX..XX
  elseif ($1 == L) return $&
    XX... $&
    XX... $&
    XX... $&
    XX... $&
    XXXXX
  elseif ($1 == M) return $&
    XX....XX $&
    XXX..XXX $&
    XXXXXXXX $&
    XX.XX.XX $&
    XX....XX
  elseif ($1 == N) return $&
    XX..XX $&
    XXX.XX $&
    XXXXXX $&
    XX.XXX $&
    XX..XX
  elseif ($1 == O) return $&
    .XXXX. $&
    XX..XX $&
    XX..XX $&
    XX..XX $&
    .XXXX.
  elseif ($1 == P) return $&
    XXXXX. $&
    XX..XX $&
    XXXXX. $&
    XX.... $&
    XX....
  elseif ($1 == Q) return $&
    .XXXX.. $&
    XX..XX. $&
    XX..XX. $&
    XX..XX. $&
    .XXXXXX
  elseif ($1 == R) return $&
    XXXXX. $&
    XX..XX $&
    XXXXX. $&
    XX..XX $&
    XX..XX
  elseif ($1 == S) return $&
    .XXXX. $&
    XX.... $&
    .XXXX. $&
    ....XX $&
    XXXXX.
  elseif ($1 == T) return $&
    XXXXXX $&
    ..XX.. $&
    ..XX.. $&
    ..XX.. $&
    ..XX..
  elseif ($1 == U) return $&
    XX..XX $&
    XX..XX $&
    XX..XX $&
    XX..XX $&
    .XXXX.
  elseif ($1 == V) return $&
    XX....XX $&
    XX....XX $&
    .XX..XX. $&
    ..XXXX.. $&
    ...XX...
  elseif ($1 == W) return $&
    XX...XX $&
    XX...XX $&
    XX.X.XX $&
    XXXXXXX $&
    .XX.XX.
  elseif ($1 == X) return $&
    XX...XX $&
    .XX.XX. $&
    ..XXX.. $&
    .XX.XX. $&
    XX...XX
  elseif ($1 == Y) return $&
    XX..XX $&
    XX..XX $&
    .XXXX. $&
    ..XX.. $&
    ..XX..
  elseif ($1 == Z) return $&
    XXXXXX $&
    ...XX. $&
    ..XX.. $&
    .XX... $&
    XXXXXX
  elseif ($1 == $chr(35)) return $&
    .XX..XX. $&
    XXXXXXXX $&
    .XX..XX. $&
    XXXXXXXX $&
    .XX..XX.
  elseif ($1 == ') return $&
    .XX $&
    XX. $&
    ... $&
    ... $&
    ...
  elseif ($1 == ") return $&
    XX..XX $&
    XX..XX $&
    ...... $&
    ...... $&
    ......
  elseif ($1 == +) return $&
    ...... $&
    ..XX.. $&
    XXXXXX $&
    ..XX.. $&
    ......
  elseif ($1 == =) return $&
    ...... $&
    XXXXXX $&
    ...... $&
    XXXXXX $&
    ......
  elseif ($1 == -) return $&
    ...... $&
    ...... $&
    XXXXXX $&
    ...... $&
    ......
  elseif ($1 == _) return $&
    ...... $&
    ...... $&
    ...... $&
    ...... $&
    XXXXXX
  elseif ($1 == ¯) return $&
    XXXXXX $&
    ...... $&
    ...... $&
    ...... $&
    ......
  elseif ($1 == °) return $&
    .XXX. $&
    XX.XX $&
    .XXX. $&
    ..... $&
    .....
  elseif ($1 == :) return $&
    .. $&
    XX $&
    .. $&
    XX $&
    ..
  elseif ($1 == !) return $&
    XX $&
    XX $&
    XX $&
    .. $&
    XX
  elseif ($1 == ?) return $&
    XXX. $&
    ..XX $&
    .XX. $&
    .... $&
    .XX.
  elseif ($1 == .) return $&
    .. $&
    .. $&
    .. $&
    .. $&
    XX
  elseif ($1 == /) return $&
    ....XX $&
    ...XX. $&
    ..XX.. $&
    .XX... $&
    XX....
  elseif ($1 == \) return $&
    XX.... $&
    .XX... $&
    ..XX.. $&
    ...XX. $&
    ....XX
  elseif ($1 == $chr(40)) return $&
    ...XX $&
    .XX.. $&
    XX... $&
    .XX.. $&
    ...XX
  elseif ($1 == $chr(41)) return $&
    XX... $&
    ..XX. $&
    ...XX $&
    ..XX. $&
    XX...
  elseif ($1 == $chr(37)) return $&
    XX..XX $&
    ...XX. $&
    ..XX.. $&
    .XX... $&
    XX..XX
  elseif ($1 == [) return $&
    XXXXX $&
    XX... $&
    XX... $&
    XX... $&
    XXXXX
  elseif ($1 == ]) return $&
    XXXXX $&
    ...XX $&
    ...XX $&
    ...XX $&
    XXXXX
  elseif ($1 == |) return $&
    .XX. $&
    .XX. $&
    .XX. $&
    .XX. $&
    .XX.
  elseif ($1 == <) return $&
    ....XX $&
    ..XX.. $&
    XX.... $&
    ..XX.. $&
    ....XX
  elseif ($1 == >) return $&
    XX.... $&
    ..XX.. $&
    ....XX $&
    ..XX.. $&
    XX....
  elseif ($1 == ¸) return $&
    .... $&
    .... $&
    .XX. $&
    ..XX $&
    XXX.
  elseif ($1 == ,) return $&
    ... $&
    ... $&
    XXX $&
    .XX $&
    XX. 
}

alias bigtext.unsupp {
  var %res, %dummy = $regsub($1-, /[]a-z  0-9# $+ $chr(44) $+ '+=°:!?./\\()%[|<>_¯"¸-]/igS, $null, %res)
  return %res
}

alias bigtext.kern {
  var %res $true
  if ($regex($1-, /^(.|[_GDSQL-]T|[TPFVY7/"]J|T\.|L[1Y\\"]|[LTK<[]-|-[]>%\\]|S1|T4|\?\.|\.\?|[467L\\]°|°[J/]|L'|\/\/|\\\\|¯J|[_¯]¯|[¯T_]_|>\.|\.<)$/i)) %res = $false
  return %res
}

alias bigtext.format {
  var %res, %i 1, %previous 0, %current, %curcolor, %colregex /^(\d\d?(?:,\d\d?)?)/
  while (%i <= $len($1-)) {
    if ($mid($1-, %i, 1) == $chr(3)) {
      if ($regex(mtcol, $mid($1-, $calc(%i + 1), $mid($1-, $calc(%i + 1), 0)), %colregex)) {
        if ($gettok($regml(mtcol, 1), 1, 44) != %curcolor) {
          %curcolor = $gettok($regml(mtcol, 1), 1, 44)
          if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
        }
        inc %i $len($regml(mtcol, 1))
      }
      elseif (%curcolor) {
        %curcolor =
        if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
      }
    }
    else {
      %current = $iif($mid($1-, %i, 1) == ., 0, 1)
      if (%previous != %current) {
        %previous = %current
        if (%curcolor) {
          if (%current) %res = %res $+ $chr(3) $+ %curcolor $+ , $+ %curcolor
          else %res = %res $+ $chr(3)
        }
        else %res = %res $+ $chr(22)
      }
      %res = %res $+ $chr(160)
    }
    inc %i
  }
  return %res
}

EcKstasy

Like Page Follow Author

Comments

Sign in to comment.
EcKstasy   -  Jun 18, 2008

Funny thing is,it was made for a server i have,so,its basically only for that,but added it here aswell -.-

 Respond  
ISM   -  May 08, 2008

Eugenio heheheh lol why i dont know how to run thats why, i hope u can help thx

 Respond  
Eugenio   -  May 08, 2008

lol @ ISM

 Respond  
ISM   -  May 08, 2008

how does this script work in my room i have past in to my new remot, and dont know how to use this script, if u could help me out, i need to run bot all the time in my room ????????????? thank you

 Respond  
^Neptune   -  May 06, 2008

excuse me?

this site is for gaining feedback from other users to improve a script, and what i suggested cuts down the code a little

think before you post, thanks

 Respond  
juhapuha   -  May 06, 2008

It\'s your own decision do you use $iif or not. It does not make you a better scripter if you use it. Also stop acting that way, be more constructive thank you!

 Respond  
Eugenio   -  May 06, 2008

lmfao for once I didnt fall asleep with EL\'s \"lame ass\" comment rofl @ \"your $iif fails\"

 Respond  
^Neptune   -  May 06, 2008

You can reduce every single one of those lines with $iif

 $iif($nick isop $chan, topic $chan $2-, notice $nick You cannot access this command because you are not an OP in $chan $+ .)

At least I think that\'s right.. i\'m still a bit new with $iif (but it\'s really good :D)

 Respond  
criminal   -  May 06, 2008

How can you \" act \" like a service bot when you don\'t got access to the service?

 Respond  
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.