All pastes #978339 Raw Edit

Demonic Bot

public text v1 · immutable
·published 2008-04-09 14:16 UTC
rendered paste body
:::::::::::::::::::::::::::::::::::::::::::::
::                                         ::
:: Credits:                                ::
::                                         ::
:: Punk0wns You, Slotter In for scripting. ::
:: Slotter In, Rockfoil for the idea.      ::
::                                         ::
:: This is Version 2.5                     ::
::                                         ::
:::::::::::::::::::::::::::::::::::::::::::::

alias set {
  if ($1 == status) && ($2 == online) {
    set %setstatus online
    echo -ta Status is now set to 03ONLINE. Your event scripts are now 03active.
  }
  if ($1 == status) && ($2 == offline) {
    set %setstatus offline
    echo -ta Status is now set to 04OFFLINE. Your event scripts are now 04inactive.
  }
  elseif ($1 == event) && ($2 == friday) {
    set %event.fri $3-
    echo -ta The event for Friday is set to: $3-
  }
  elseif ($1 == event) && ($2 == saturday) {
    set %event.sat $3-
    echo -ta The event for Saturday is set to: $3-
  }
  elseif ($1 == event) && ($2 == sunday) {
    set %event.sun $3-
    echo -ta The event for Sunday is set to: $3-
  }
  elseif ($1 == unoevent) && ($2 == monday) {
    set %event.unomon $3-
  }
  elseif ($1 == unoevent) && ($2 == tuesday) {
    set %event.unotue $3-
  }
  elseif ($1 == unoevent) && ($2 == wednesday) {
    set %event.unowed $3-
  }
  elseif ($1 == unoevent) && ($2 == thursday) {
    set %event.unothu $3-
  }
  elseif ($1 == unoevent) && ($2 == friday) {
    set %event.unofri $3-
  }
  elseif ($1 == unoevent) && ($2 == saturday) {
    set %event.unosat $3-
  }
  elseif ($1 == unoevent) && ($2 == sunday) {
    set %event.unosun $3-
  }
  elseif ($1 == host) && ($3 == on) {
    set %join.host [ $+ [ $address($2,3) ] ] on
  }
  elseif ($1 == host) && ($3 == off) {
    set %join.host [ $+ [ $address($2,3) ] ] off
  }
}

on $*:TEXT:*:#demonicempire:{
  if ($1 == .event) && ($2- == $null) && (%setstatus == online) {
    notice $nick The event for Friday is: %event.fri
    notice $nick The event for Saturday is: %event.sat
    notice $nick The event for Sunday is: %event.sun
  }
  if ($1 == *event) && ($2- == $null) {
    notice $nick The unofficial event for Monday is: %event.unomon
    notice $nick The unofficial event for Tuesday is: %event.unotue
    notice $nick The unofficial event for Wednesday is: %event.unowed
    notice $nick The unofficial event for Thursday is: %event.unothu
    notice $nick The unofficial event for Friday is: %event.unofri
    notice $nick The unofficial event for Saturday is: %event.unosat
    notice $nick The unofficial event for Sunday is: %event.unosun
  }
  if ($1 == .event) && ($2- == friday) {
    notice $nick The event for Friday is: %event.fri
  }
  if ($1 == *event) && ($2- == friday) {
    notice $nick The unofficial event for Friday is: %event.unofri
  }
  if ($1 == *event) && ($2- == monday) {
    notice $nick The unofficial event for Monday is: %event.unomon
  }
  if ($1 == *event) && ($2- == tuesday) {
    notice $nick The unofficial event for Tuesday is: %event.unoteu
  }
  if ($1 == *event) && ($2- == wednesday) {
    notice $nick The unofficial event for Wednesday is: %event.unowed
  }
  if ($1 == *event) && ($2- == thursday) {
    notice $nick The unofficial event for Thursday is: %event.unothur
  }
  if ($1 == .event) && ($2- == saturday) {
    notice $nick The event for Saturday is: %event.sat
  }
  if ($1 == *event) && ($2- == saturday) {
    notice $nick The unofficial event for Saturday is: %event.unosat
  }
  if ($1 == .event) && ($2- == sunday) {
    notice $nick The event for Sunday is: %event.sun
  }
  if ($1 == *event) && ($2- == sunday) {
    notice $nick The unofficial event for Sunday is: %event.unosun
  }
  if ($1 == *status) && ($nick !ishop $chan) || ($1 == *status) && ($nick !isop $chan) {
    if ($nick ishop $chan) && ($nick !isop $chan) { halt }
    if ($nick isop $chan) && ($nick !ishop $chan) { halt }
    notice $nick Sorry but you will need 07%halfop/04@operator status to use the message channel commands. This is to reduce any spam.
  }
  if ($1 == .event) && (%setstatus == offline) || ($1 == *event) && (%setstatus == offline) { 
    notice $nick Sorry, my EventScript status is currently 04OFFLINE. So my EventScript is inactive. To set the script 03ONLINE please type: .set online.
  }
  if ($1 == .status) && ($2- == $null) && (%setstatus == online) {
    notice $nick My EventScript status currently is 03ONLINE. To set the EventScript 04OFFLINE please type: .set offline.
  }
  if ($1 == .status) && ($2- == $null) && (%setstatus == offline) {
    notice $nick My EventScript status currently is 04OFFLINE. To set the EventScript 03ONLINE please type: .set online.
  }
  if ($1 == .status) && ($2 == greet) && (%join.host [ $+ [ $address($nick,3) ] ] == on) {
    notice $nick Your greet status is currently set to: 03ONLINE. Host saved under07 $address($nick,3) $+ . To set 04OFFLINE please type: .greet off.
  }
  if ($1 == .status) && ($2 == greet) && (%join.host [ $+ [ $address($nick,3) ] ] == off) {
    notice $nick Your greet status is currently set to: 04OFFLINE. To set the auto-notice 03ONLINE please type: .greet on.
  }
  if ($nick isop $chan) && ($1 == .set) && ($2 == event) && ($3 == friday) {
    set event friday $4-
    notice $nick The event for Friday is set to: $4-
    msg $chan The event for Friday is changed! Type .event friday to view, or .event to view all the events this week. .event cmd for my event commands.
  }
  if ($nick isop $chan) && ($1 == .set) && ($2 == event) && ($3 == saturday) {
    set event saturday $4-
    notice $nick The event for Saturday is set to: $4-
    msg $chan The event for Saturday is changed! Type .event saturday to view, or .event to view all the events this week. .event cmd for my event commands.
  }
  if ($nick isop $chan) && ($1 == *set) && ($2 == unoevent) && ($3 == saturday) {
    set unoevent saturday $4-
    notice $nick The unofficial event for Saturday is set to: $4-
    msg $chan The unofficial event for Saturday is changed! Type *event saturday to view, or *event to view all the events this week. .event cmd for my event commands.
  }
  if ($nick isop $chan) && ($1 == *set) && ($2 == unoevent) && ($3 == sunday) {
    set unoevent sunday $4-
    notice $nick The unofficial event for Sunday is set to: $4-
    msg $chan The unofficial event for Sunday is changed! Type *event sunday to view, or *event to view all the events this week. .event cmd for my event commands.
  }
  if ($nick isop $chan) && ($1 == *set) && ($2 == unoevent) && ($3 == monday) {
    set unoevent monday $4-
    notice $nick The unofficial event for Monday is set to: $4-
    msg $chan The unofficial event for Monday is changed! Type *event monday to view, or *event to view all the events this week. .event cmd for my event commands.
  }
  if ($nick isop $chan) && ($1 == *set) && ($2 == unoevent) && ($3 == tuesday) {
    set unoevent tuesday $4-
    notice $nick The unofficial event for Tuesday is set to: $4-
    msg $chan The unofficial event for Tuesday is changed! Type *event tuesday to view, or *event to view all the events this week. .event cmd for my event commands.
  }
  if ($nick isop $chan) && ($1 == *set) && ($2 == unoevent) && ($3 == wednesday) {
    set unoevent wednesday $4-
    notice $nick The unofficial event for Wednesday is set to: $4-
    msg $chan The unofficial event for Wednesday is changed! Type *event wednesday to view, or *event to view all the events this week. .event cmd for my event commands.
  }
  if ($nick isop $chan) && ($1 == *set) && ($2 == unoevent) && ($3 == thursday) {
    set unoevent thursday $4-
    notice $nick The unofficial event for Thursday is set to: $4-
    msg $chan The unofficial event for Thursday is changed! Type *event thursday to view, or *event to view all the events this week. .event cmd for my event commands.
  }
  if ($nick isop $chan) && ($1 == *set) && ($2 == unoevent) && ($3 == friday) {
    set unoevent friday $4-
    notice $nick The unofficial event for Friday is set to: $4-
    msg $chan The unofficial event for Friday is changed! Type *event friday to view, or *event to view all the events this week. .event cmd for my event commands.
  }
  if ($nick isop $chan) && ($1 == .set) && ($2 == event) && ($3 == sunday) {
    set event sunday $4-
    notice $nick The event for Sunday is set to: $4-
    msg $chan The event for Sunday is changed! Type .event sunday to view, or .event to view all the events this week.
  }
  if ($nick !isop $chan) && ($1 == .set) {
    notice $nick Sorry, you will need 04@operator status to use the .set commands.
  }
  if ($nick !isop $chan) && ($1 == *set) {
    notice $nick Sorry, you will need 04@operator status to use the *set commands.
  }
  if ($1 == .link) && ($2 == forums) {
    notice $nick The link for Demonic Empire forums is: http://z6.invisionfree.com/Demonic_Empire/index.php
    notice $nick If you cannot see the link and only *'s, please type: /mode yourname -f, and then try again.
  }
  if ($1 == .link) && ($2 == memberlist) {
    notice $nick The link for Demonic Empire's memberlist is: http://www.runehead.com/clans/ml.php?clan=rsde
    notice $nick If you cannot see the link and only *'s, please type: /mode yourname -f, and then try again.
  }
  if ($1 == .link) && ($2 == website) {
    notice $nick The link for Demonic Empire's website is: http://members.shaw.ca/demonic_empire/main.htm
    notice $nick If you cannot see the link and only *'s, please type: /mode yourname -f, and then try again.
  }
  if ($1 == .link) && ($2 == ts) || ($2 == teamspeak) {
    notice $nick The link for Demonic Empire's teamspeak is: 74.58.252.123:8767 (4Backup: 68.93.64.88:8767)
  }
  if ($1 == .link) && ($2 == chatrules) || ($2 == rules) {
    notice $nick The link for Demonic Empire's Chatrules is: http://z6.invisionfree.com/Demonic_Empire/index.php?showtopic=18025
    notice $nick If you cannot see the link and only *'s, please type: /mode yourname -f, and then try again.
  }
  if ($nick isop $chan) && ($1 == .set) && ($2 == online) {
    notice $nick EventScript: 03ONLINE. My event script is now active, for info: .event cmd.
    msg $chan My EventScript is now 03ONLINE. For info type: .event cmd.
    set status online
  }
  if ($nick isop $chan) && ($1 == .set) && ($2 == offline) {
    notice $nick EventScript: 04OFFLINE. My scripts are now inactive.
    msg $chan My EventScript is now 04OFFLINE. My scripts are now inactive.
    set status offline
  }
  if ($1 == .greet) && ($2 == off) {
    set host $nick off
    notice $nick You've just set my auto-notice 04OFFLINE, to set it 03ONLINE it type: .greet on.
  }
  if ($1 == .greet) && ($2 == on) {
    set host $nick on
    notice $nick You've just set my auto-notice 03ONLINE, to set it 04OFFLINE it type: .greet off.
  }
  if ($1 == .event) && ($2 == cmd) && (%setstatus == online) {
    msg $nick Here are the following commands for my event script;
    msg $nick ~ 10Regular/02+Voice/07%Halfop/04@Operator ~
    msg $nick .event - This shows all the events that are set for the current week.
    msg $nick .event friday/saturday/sunday - This shows the event that is set on the day you pick out of the 3.
    msg $nick *event - This shows all the unoevents that are set for the current week.
    msg $nick *event monday/tuesday/wednesday/thursday/friday/saturday/sunday - This shows the unoevent that is set on the day you pick out of the 7. 
    msg $nick .status - Notices you the status of the bot. Online or Offline. 
    msg $nick .link website/forums/memberlist/ts/chatrules - This is for Demonic Empire links, pick one as listed on the left side of this line.
    msg $nick ~ 04@Operator ~
    msg $nick .set event friday/saturday/sunday - Operators can set events by using this command, they can set an event on the day they wish.
    msg $nick .set online/offline - Sets the bot online or offline.
    msg $nick *set unoevent any day - Operators can set Unofficial events by using this commands for any day of the week.
    msg $nick ------------
    msg $nick To let the me notice you use the trigger: . for Official events, for Unofficial: *
    msg $nick Please do not spam any of my commands. Thank you.
  }
}

on *:INPUT:*:{ 
  if ($1 == .event) && ($2- == $null) {
    echo -ta The event for Friday is: %event.fri
    echo -ta The event for Saturday is: %event.sat
    echo -ta The event for Sunday is: %event.sun
  }
  if ($1 == *event) && ($me isop $chan) && ($2- == $null) {
    msg $chan The event for Friday is: %event.fri
    msg $chan The event for Saturday is: %event.sat
    msg $chan The event for Sunday is: %event.sun
  }
  if ($1 == *event) && ($2- == $null) {
    echo -ta The unofficial event for Monday is: %event.unomon
    echo -ta The unofficial event for Tuesday is: %event.unotue
    echo -ta The unofficial event for Wednesday is: %event.unowed
    echo -ta The unofficial event for Thursday is: %event.unothu
    echo -ta The unofficial event for Friday is: %event.unofri
    echo -ta The unofficial event for Saturday is: %event.unosat
    echo -ta The unofficial event for Sunday is: %event.unosun
  }
  if ($1 == .event) && ($2- == friday) {
    echo -ta The event for Friday is: %event.fri
  }
  if ($1 == *event) && ($2- == friday) {
    echo -ta The unofficial event for Friday is: %event.unofri
  }
  if ($1 == *event) && ($2- == monday) {
    echo -ta The unofficial event for Monday is: %event.unomon
  }
  if ($1 == *event) && ($2- == tuesday) {
    echo -ta The unofficial event for Monday is: %event.unoteu
  }
  if ($1 == *event) && ($2- == wednesday) {
    echo -ta The unofficial event for Monday is: %event.unowed
  }
  if ($1 == *event) && ($2- == thursday) {
    echo -ta The unofficial event for Monday is: %event.unothur
  }
  if ($1 == .event) && ($2- == saturday) {
    echo -ta The event for Saturday is: %event.sat
  }
  if ($1 == *event) && ($2- == saturday) {
    echo -ta The unofficial event for Saturday is: %event.unosat
  }
  if ($1 == .event) && ($2- == sunday) {
    echo -ta The event for Sunday is: %event.sun
  }
  if ($1 == *event) && ($2- == sunday) {
    echo -ta The unofficial event for Sunday is: %event.unosun
  }
  if ($1 == .link) && ($2 == forums) {
    echo -ta The link for Demonic Empire forums is: http://z6.invisionfree.com/Demonic_Empire/index.php
    echo -ta If you cannot see the link and only *'s, please type: /mode yourname -f, and then try again.
  }
  if ($1 == .link) && ($2 == memberlist) || ($2 == ml) {
    echo -ta The link for Demonic Empire's memberlist is: http://www.runehead.com/clans/ml.php?clan=rsde
    echo -ta If you cannot see the link and only *'s, please type: /mode yourname -f, and then try again.
  }
  if ($1 == .link) && ($2 == website) || ($2 == web) {
    echo -ta The link for Demonic Empire's website is: http://members.shaw.ca/demonic_empire/main.htm
    echo -ta If you cannot see the link and only *'s, please type: /mode yourname -f, and then try again.
  }
  if ($1 == .link) && ($2 == ts) || ($2 == teamspeak) {
    echo -ta The link for Demonic Empire's teamspeak is: 74.58.252.123:8767
  }
  if ($1 == .link) && ($2 == chatrules) || ($2 == rules) {
    echo -ta The link for Demonic Empire's Chatrules is: http://z6.invisionfree.com/Demonic_Empire/index.php?showtopic=18025
  }
}

On *:join:#demonicempire: {
  if ($nick == $me) { timerDEEventScriptJoin 1 2 msg $chan [Auto-Msg] Demonic Empire's Event script. For info type; .event cmd - If you find a glitch/abuse report it immediately to a @operator. }
  if ($nick !== $me) {
    if (%join.host [ $+ [ $address($nick,3) ] ] == off) { halt }
    echo -ta 07 $+ $nick has joined at07 $time $date $+ . Host saved under:07 $address($nick,3) $+ . Set to on, so will greet when $nick joins next time.
    set host $nick on
  }
  if (%join.host [ $+ [ $address($nick,3) ] ] == on) && ($nick !== $me) {
    notice $nick [Auto-Msg] Hello, this is an automated "greet" to remind you you can now view the Events of DE in our mIRC chat! Type: .event cmd for more info - If you find any errors/bugs/glitches/abuse, please report it too a @operator. If you do not want this to show anymore type; .greet off - Thank you.
  }
}