mIRC Relay Bot v.1

By TMFKSOFT on Nov 26, 2011

This is the Ilkotech Relay Bot

To setup place in the remotes tab!
Add yourself to the users tab as

10:Your Name: Bot Owner

I intend to add antispam features and more.

Leave comments below!

; Ilkotech Relay Bot By Thomas Edwards (TMFKSOFT)
on 1:TEXT:!csync:#:{
  if ($ulevel >= 5) {
    scon -a msg $chan 7[INFO] Syncronized channels.
    scon -a join $chan
  }
  else {
    msg # 5[ERROR] Access Denied you are not bot operator.
  }
}

on *:TEXT:!auser *:#:{
  if ($ulevel >= 10) {
    if ($3 == 5) {
      var %level Operator
    }
    else if ($3 == 10) {
      var %level Admin
    }
    else {
      msg # [ERROR] Level must be 5 or 10
      HALT
    }
    auser $3 $2 %level
    scon -a msg # [INFO] Added user $2
  }
  else {
    msg # [ERROR] Access Denied you are not bot operator.
  }
}
on *:TEXT:!ruser *:#:{
  if ($ulevel >= 10) {
    if ($ulist($2) == $null) {
      msg # [INFO] No such user in the list.
    }
    else {
      ruser $2
      scon -a msg # [INFO] Removed user $2
    }
  }
  else {
    msg # [ERROR] Access Denied you are not bot operator.
  }
}
on 1:TEXT:!cmds:#:{
  msg # Commands:
  msg # !csync, !auser, !ruser, !luser
}
on *:TEXT:*:#:{
  noop $regex($nick(#,$nick).pnick,/(^[+%@&~!])?/g)
  scon -a global $network msg $chan $+(4[,$network,]) $+(<,$regml(1),$nick,>) $1-
}
on *:ACTION:*:#:{
  noop $regex($nick(#,$nick).pnick,/(^[+%@&~!])?/g)
  scon -a global $network describe $chan $+(4[,$network,]) * $regml(1) $+ $nick $1-
}

on *:JOIN:#:{
  scon -a global $network msg $chan $+(4[,$network,]) $nick ( $+ $right($address($nick,5),$calc(0-$pos($address($nick,5),!))) $+ ) has joined $chan
}
on *:PART:#:{
  scon -a global $network msg $chan $+(4[,$network,]) $nick ( $+ $right($address($nick,5),$calc(0-$pos($address($nick,5),!))) $+ ) has left $chan $iif($1,( $+ $1- $+ ),)
}
on *:KICK:#:{
  scon -a global $network msg $chan $+(4[,$network,]) $nick was kicked by $knick  $iif($1,( $+ $1- $+ ),)
}

on *:DISCONNECT:{
  scon -a global $network /amsg 2Disconnected from $server
}
on *:CONNECT:{
  scon -a global $network /amsg 3Connected to $server
}
on *:QUIT:{
  if ($nick == $me) {  
    scon -a global $network /amsg 3Disconnected from $server
  }
  else {
    noop $regex($nick(#,$nick).pnick,/(^[+%@&~!])?/g)

    scon -a global $network msg $chan $+(4[,$network,]) 2* $regml(1) $+ $nick ( $+ $right($address($nick,5),$calc(0-$pos($address($nick,5),!))) $+ ) Quit $iif($1,( $+ $1- $+ ),)
  }
}
alias global {
  if ($1 != $network) {
    if ($me ison $chan) {
      $2-
    }
  }
}

Comments

Sign in to comment.
[nas]peter   -  Nov 28, 2011

Seems pretty decent. Althought I haven't tried it yet.

 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.