Top
Home > Code Snippets > EcKstasy's Snippets > mIRC

Bot For Channel Operators - EcKstasy


mIRC Code
+ 0 likes
Please Register to submit score.
Bookmark and Share
Average Score  1.0 (of 1 scores)
Date Added  May 05, 2008
Last Updated  May 05, 2008
Tags  bot  chan  eckstasy  op  script 

Introduction

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


Grab the Code

 
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
}
 

Comments

  (9)  RSS
criminal
Comments: 121
 
mIRC Snippet:  Bot For Channel Operators - EcKstasy
Posted on May 6, 2008 10:05 am
How can you " act " like a service bot when you don't got access to the service?
^Neptune
Comments: 599
 
mIRC Snippet:  Bot For Channel Operators - EcKstasy
Posted on May 6, 2008 10:49 am
You can reduce every single one of those lines with $iif

Code:
 $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)
Eugenio
Comments: 1,193
 
mIRC Snippet:  Bot For Channel Operators - EcKstasy
Posted on May 6, 2008 2:49 pm
lmfao for once I didnt fall asleep with EL's "lame ass" comment rofl @ "your $iif fails"
juhapuha
Comments: 73
 
mIRC Snippet:  Bot For Channel Operators - EcKstasy
Posted on May 6, 2008 5:25 pm
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!
^Neptune
Comments: 599
 
mIRC Snippet:  Bot For Channel Operators - EcKstasy
Posted on May 6, 2008 5:41 pm
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
ISM
Comments: 21
 
mIRC Snippet:  Bot For Channel Operators - EcKstasy
Posted on May 8, 2008 7:11 am
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
Eugenio
Comments: 1,193
 
mIRC Snippet:  Bot For Channel Operators - EcKstasy
Posted on May 8, 2008 8:15 am
lol @ ISM
ISM
Comments: 21
 
mIRC Snippet:  Bot For Channel Operators - EcKstasy
Posted on May 8, 2008 8:27 am
Eugenio heheheh lol why i dont know how to run thats why, i hope u can help thx
EcKstasy
Comments: 23
 
mIRC Snippet:  Bot For Channel Operators - EcKstasy
Posted on Jun 18, 2008 1:14 pm
Funny thing is,it was made for a server i have,so,its basically only for that,but added it here aswell -.-

Commenting Options

Register or Login to Hawkee.com or use your Facebook or Twitter account by clicking the corresponding button below.

  
Bottom