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-
}
}
}