All pastes #1244603 Raw Edit

Channel Bot ( eAgLe )

public text v1 · immutable
#1244603 ·published 2008-11-04 04:55 UTC
rendered paste body
on *:LOAD:{
  set %chan #yourchannel
}
on *:TEXT:.viewgreeting:%chan:{
  notice $nick Greeting ( $+ %chan $+ ) : %gmsg 
}
on *:TEXT:.admincommands:%chan:{
  if ($nick isop %chan) {
    timer 1 1 notice $nick Addop : .addop <nickname> - Delop : .delop <nickname>
    timer 1 2 notice $nick Addvoice : .addvoice <nickname> - Delvoice : .delvoice <nickname>
    timer 1 3 notice $nick Autovoice : .setautovoice <on/off>
    timer 1 4 notice $nick Set Greeting (1/2/3) : .setgreeting(1/2/3) <greeting>
    timer 1 5 notice $nick Set Moderated : .setmoderated <on/off>
    timer 1 6 notice $nick Set Inviteonly : .setinviteonly <on/off>
    timer 1 7 notice $nick Kick : .kick <nickname> <reason> 
    timer 1 8 notice $nick Ban : .ban <nickname> <reason> - Unban : .unban <nickname>
    timer 1 9 notice $nick Nick : .nick <newnick>
    timer 1 10 notice $nick Join : .join <#channel> - Part : .part <#channel>
    timer 1 11 notice $nick Say : .say <#channel> <message>
    timer 1 12 notice $nick To see seetings : .settings !
  }
  else {
    notice $nick Sorry, you don't have access.
  }
}
on *:TEXT:.nick*:%chan:{
  if ($nick isop %chan) {
    if ($2) {
      nick $2
    }
    if (!$2) {
      notice $nick Sorry, you need to write a nickname.
    }
  }
  else {
    notice $nick Sorry, you don't have access.
  }
}
on *:TEXT:.join*:%chan:{
  if ($nick isop %chan) {
    if ($2) {
      join $2
    }
    if (!$2) {
      notice $nick Sorry, you need to write a channel.
    }
  }
  else {
    notice $nick Sorry, you don't have access.
  }
}
on *:TEXT:.part*:%chan:{
  if ($nick isop %chan) {
    if ($2) {
      part $2
    }
    if (!$2) {
      notice $nick Sorry, you need to write a channel.
    }
  }
  else {
    notice $nick Sorry, you don't have access.
  }
}
on *:TEXT:.say*:%chan:{
  if ($nick isop %chan) {
    if ($2) && ($3) {
      msg $2 $3-
    }
    if (!$2) {
      notice $nick Sorry, you need to write a channel and a message.
    }
  }
  else {
    notice $nick Sorry, you don't have access.
  }
}
on *:TEXT:.addop*:%chan:{
  if ($nick isop %chan) {
    if ($2) {
      mode %chan +o $2
      chanserv %chan addop $2
      auser -a 200 $address($2,2)
      notice $2 You are now added successfully by $nick $+ . Your main admin command is .admincommands !
    }
    if (!$2) {
      notice $nick Sorry, you need to write a nickname.
    }
  }
  else {
    notice $nick Sorry, you don't have access.
  }
}
on *:TEXT:.delop*:%chan:{
  if ($nick isop %chan) {
    if ($2) {
      mode %chan -o $2
      chanserv %chan delop $2
      ruser $address($2,2)
    }
    if (!$2) {
      notice $nick Sorry, you need to write a nickname.
    }
  }
  else {
    notice $nick Sorry, you don't have access.
  }
}
on *:TEXT:.addvoice*:%chan:{
  if ($nick isop %chan) {
    if ($2) {
      mode %chan +v $2
      chanserv %chan addpeon $2
    }
    if (!$2) {
      notice $nick Sorry, you need to write a nickname.
    }
  }
  else {
    notice $nick Sorry, you don't have access.
  }
}
on *:TEXT:.delvoice*:%chan:{
  if ($nick isop %chan) {
    if ($2) {
      mode %chan -v $2
      chanserv %chan delpeon $2
    }
    if (!$2) {
      notice $nick Sorry, you need to write a nickname.
    }
  }
  else {
    notice $nick Sorry, you don't have access.
  }
}
on *:TEXT:.setautovoice*:%chan:{
  if ($nick isop %chan) {
    if ($2 == off) { 
      set %avoice off
      notice $nick The autovoice has been turned off.
    }
    if ($2 == on) {
      set %avoice on
      notice $nick The autovoice has been turned on.
    }
  }
}
on *:TEXT:.settings:%chan:{
  if ($nick isop %chan) {
    notice $nick Autovoice : %avoice
    notice $nick Greeting : %gmsg
  }
  else {
    notice $nick Sorry, you don't have access.
  }
}
on *:JOIN:%chan:{
  if (%avoice == on) { 
    mode $chan +v $nick
  }
  if (!%gmsg1) {
    halt
  }
  if (%gmsg1) {
    notice $nick %gmsg1
  }
  if (!%gmsg2) {
    halt
  }
  if (%gmsg2) {
    notice $nick %gmsg2
  }
  if (!%gmsg3) {
    halt
  }
  if (%gmsg3) {
    notice $nick %gmsg2
  } 
  if (%avoice == off) {
    notice $nick %gmsg
  }
  if ($ulevel >= 199) {
    mode %chan +o $nick
  }
  if ($ulevel <= 101) {
    mode %chan +v $nick
  }
}
on *:TEXT:.setgreeting1*:%chan:{
  if ($nick isop $chan) {
    if ($2 == $null) { 
      set %gmsg1 Hi $nick , welcome to $chan ! 
    }
    if ($2) {
      if ($2 != *) {
        set %gmsg1 $2-
        notice $nick The greeting 1 has been changed for %gmsg1 
      }
    }
    if ($2 == *) {
      notice $nick Greeting : None
      unset %gmsg1
    }
  }
}
on *:TEXT:.setgreeting2*:%chan:{
  if ($nick isop $chan) {
    if ($2 == $null) { 
      set %gmsg2 Hi $nick , welcome to $chan ! 
    }
    if ($2) {
      if ($2 != *) {
        set %gmsg2 $2-
        notice $nick The greeting 2 has been changed for %gmsg2 
      }
    }
    if ($2 == *) {
      notice $nick Greeting : None
      unset %gmsg2
    }
  }
}
on *:TEXT:.setgreeting3*:%chan:{
  if ($nick isop $chan) {
    if ($2 == $null) { 
      set %gmsg3 Hi $nick , welcome to $chan ! 
    }
    if ($2) {
      if ($2 != *) {
        set %gmsg3 $2-
        notice $nick The greeting 3 has been changed for %gmsg3 
      }
    }
    if ($2 == *) {
      notice $nick Greeting : None
      unset %gmsg3
    }
  }
}
on *:TEXT:.setmoderated:%chan:{
  if ($nick isop %chan) {
    if ($2 == off) {
      mode $chan -m
    }
    if ($2 == on) {
      mode $chan +m
    }
  }
}
on *:TEXT:.setinviteonly:%chan:{
  if ($nick isop $chan) { 
    if ($2 == off) { 
      mode $chan -i
    }
    if ($2 == on) { 
      mode $chan +i
    }
  }
}
on *:TEXT:.kick*:%chan:{
  if ($nick isop $chan) && ($2) && ($3) { 
    kick %chan $2 $3-
  }
  if ($nick isop $chan) && ($2) {
    kick %chan $2
  }
  if ($nick isop $chan) && (!$2) && (!$3) {
    notice $nick Sorry, you need to write a nickname and a reason.
  }
}
on *:TEXT:.ban*:%chan:{
  if ($nick isop $chan) && ($2) && ($3) {
    mode %chan +b $2
    kick %chan $2 $3-
  }
  if ($nick isop $chan) && (!$2) && (!$3) {
    notice $nick Sorry, you need to write a nickname and a reason.
  }
}
on *:TEXT:.unban*:%chan:{
  if ($nick isop $chan) && ($2) {
    mode %chan -b $chan
  }
  if ($nick isop $chan) && (!$2) {
    notice $nick Sorry, you need to write a nickname.
  }
}