Ultimate !Recall Script

By Diddy on Mar 30, 2005

This script takes !recall to another level. Rather than making a copy for every channel, it autodetects a message in a channel, and sets that channel as a "slot". There are 10 available, and this can easily be expanded. After being set in a slot and at least 5 things are said, users will be able to !recall, and get the last 5 messages for that channel. Please note, this is intended to be loaded into an mIRC bot, not a user. You can run it off yourself, but you can't use it then. If you have any problems with this script, comment below, or email me at DiddyPZC@gmail.com.

on *:TEXT:!recall:#: {
  if ($chan == %cr01) {
    notice $nick These are the last five recorded messages:
    notice $nick %cr01a
    notice $nick %cr01b
    notice $nick %cr01c
    notice $nick %cr01d
    notice $nick %cr01e
  }
  elseif ($chan == %cr02) {
    notice $nick These are the last five recorded messages:
    notice $nick %cr02a
    notice $nick %cr02b
    notice $nick %cr02c
    notice $nick %cr02d
    notice $nick %cr02e
  }
  elseif ($chan == %cr03) {
    notice $nick These are the last five recorded messages:
    notice $nick %cr03a
    notice $nick %cr03b
    notice $nick %cr03c
    notice $nick %cr03d
    notice $nick %cr03e
  }
  elseif ($chan == %cr04) {
    notice $nick These are the last five recorded messages:
    notice $nick %cr04a
    notice $nick %cr04b
    notice $nick %cr04c
    notice $nick %cr04d
    notice $nick %cr04e
  }
  elseif ($chan == %cr05) {
    notice $nick These are the last five recorded messages:
    notice $nick %cr05a
    notice $nick %cr05b
    notice $nick %cr05c
    notice $nick %cr05d
    notice $nick %cr05e
  }
  elseif ($chan == %cr06) {
    notice $nick These are the last five recorded messages:
    notice $nick %cr06a
    notice $nick %cr06b
    notice $nick %cr06c
    notice $nick %cr06d
    notice $nick %cr06e
  }
  elseif ($chan == %cr07) {
    notice $nick These are the last five recorded messages:
    notice $nick %cr07a
    notice $nick %cr07b
    notice $nick %cr07c
    notice $nick %cr07d
    notice $nick %cr07e
  }
  elseif ($chan == %cr07) {
    notice $nick These are the last five recorded messages:
    notice $nick %cr07a
    notice $nick %cr07b
    notice $nick %cr07c
    notice $nick %cr07d
    notice $nick %cr07e
  }
  elseif ($chan == %cr08) {
    notice $nick These are the last five recorded messages:
    notice $nick %cr08a
    notice $nick %cr08b
    notice $nick %cr08c
    notice $nick %cr08d
    notice $nick %cr08e
  }
  elseif ($chan == %cr09) {
    notice $nick These are the last five recorded messages:
    notice $nick %cr09a
    notice $nick %cr09b
    notice $nick %cr09c
    notice $nick %cr09d
    notice $nick %cr09e
  }
  elseif ($chan == %cr10) {
    notice $nick These are the last five recorded messages:
    notice $nick %cr10a
    notice $nick %cr10b
    notice $nick %cr10c
    notice $nick %cr10d
    notice $nick %cr10e
  }
  else {
    notice $nick No messages have been recorded in this channel.
  }
}

on *:TEXT:*:#: {
  if ($chan == %cr01) {
    set %cr01a %cr01b
    set %cr01b %cr01c
    set %cr01c %cr01d
    set %cr01d %cr01e
    set %cr01e < $+ $nick $+ > $1-
  }
  elseif ($chan == %cr02) {
    set %cr02a %cr02b
    set %cr02b %cr02c
    set %cr02c %cr02d
    set %cr02d %cr02e
    set %cr02e < $+ $nick $+ > $1-
  }
  elseif ($chan == %cr03) {
    set %cr03a %cr03b
    set %cr03b %cr03c
    set %cr03c %cr03d
    set %cr03d %cr03e
    set %cr03e < $+ $nick $+ > $1-
  }
  elseif ($chan == %cr04) {
    set %cr04a %cr04b
    set %cr04b %cr04c
    set %cr04c %cr04d
    set %cr04d %cr04e
    set %cr04e < $+ $nick $+ > $1-
  }
  elseif ($chan == %cr05) {
    set %cr05a %cr05b
    set %cr05b %cr05c
    set %cr05c %cr05d
    set %cr05d %cr05e
    set %cr05e < $+ $nick $+ > $1-
  }
  elseif ($chan == %cr06) {
    set %cr06a %cr06b
    set %cr06b %cr06c
    set %cr06c %cr06d
    set %cr06d %cr06e
    set %cr06e < $+ $nick $+ > $1-
  }
  elseif ($chan == %cr06) {
    set %cr06a %cr06b
    set %cr06b %cr06c
    set %cr06c %cr06d
    set %cr06d %cr06e
    set %cr06e < $+ $nick $+ > $1-
  }
  elseif ($chan == %cr07) {
    set %cr07a %cr07b
    set %cr07b %cr07c
    set %cr07c %cr07d
    set %cr07d %cr07e
    set %cr07e < $+ $nick $+ > $1-
  }
  elseif ($chan == %cr08) {
    set %cr08a %cr08b
    set %cr08b %cr08c
    set %cr08c %cr08d
    set %cr08d %cr08e
    set %cr08e < $+ $nick $+ > $1-
  }
  elseif ($chan == %cr09) {
    set %cr09a %cr09b
    set %cr09b %cr09c
    set %cr09c %cr09d
    set %cr09d %cr09e
    set %cr09e < $+ $nick $+ > $1-
  }
  elseif ($chan == %cr10) {
    set %cr10a %cr10b
    set %cr10b %cr10c
    set %cr10c %cr10d
    set %cr10d %cr10e
    set %cr10e < $+ $nick $+ > $1-
  }
  else {
    if (%cr01 == $null) {
      set %cr01 $chan
      msg %cr01 Recall slot 1 is now set to %cr01 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr02 == $null) {
      set %cr02 $chan
      msg %cr02 Recall slot 2 is now set to %cr02 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr03 == $null) {
      set %cr03 $chan
      msg %cr03 Recall slot 3 is now set to %cr03 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr04 == $null) {
      set %cr04 $chan
      msg %cr04 Recall slot 4 is now set to %cr04 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr05 == $null) {
      set %cr05 $chan
      msg %cr05 Recall slot 5 is now set to %cr05 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr06 == $null) {
      set %cr06 $chan
      msg %cr06 Recall slot 6 is now set to %cr06 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr07 == $null) {
      set %cr07 $chan
      msg %cr07 Recall slot 7 is now set to %cr07 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr08 == $null) {
      set %cr08 $chan
      msg %cr08 Recall slot 8 is now set to %cr08 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr09 == $null) {
      set %cr09 $chan
      msg %cr09 Recall slot 9 is now set to %cr09 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr10 == $null) {
      set %cr10 $chan
      msg %cr10 Recall slot 10 is now set to %cr10 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
  }
}
on *:ACTION:*:#: {
  if ($chan == %cr01) {
    set %cr01a %cr01b
    set %cr01b %cr01c
    set %cr01c %cr01d
    set %cr01d %cr01e
    set %cr01e * $nick $1-
  }
  elseif ($chan == %cr02) {
    set %cr02a %cr02b
    set %cr02b %cr02c
    set %cr02c %cr02d
    set %cr02d %cr02e
    set %cr02e * $nick $1-
  }
  elseif ($chan == %cr03) {
    set %cr03a %cr03b
    set %cr03b %cr03c
    set %cr03c %cr03d
    set %cr03d %cr03e
    set %cr03e * $nick $1-
  }
  elseif ($chan == %cr04) {
    set %cr04a %cr04b
    set %cr04b %cr04c
    set %cr04c %cr04d
    set %cr04d %cr04e
    set %cr04e * $nick $1-
  }
  elseif ($chan == %cr05) {
    set %cr05a %cr05b
    set %cr05b %cr05c
    set %cr05c %cr05d
    set %cr05d %cr05e
    set %cr05e * $nick $1-
  }
  elseif ($chan == %cr06) {
    set %cr06a %cr06b
    set %cr06b %cr06c
    set %cr06c %cr06d
    set %cr06d %cr06e
    set %cr06e * $nick $1-
  }
  elseif ($chan == %cr06) {
    set %cr06a %cr06b
    set %cr06b %cr06c
    set %cr06c %cr06d
    set %cr06d %cr06e
    set %cr06e * $nick $1-
  }
  elseif ($chan == %cr07) {
    set %cr07a %cr07b
    set %cr07b %cr07c
    set %cr07c %cr07d
    set %cr07d %cr07e
    set %cr07e * $nick $1-
  }
  elseif ($chan == %cr08) {
    set %cr08a %cr08b
    set %cr08b %cr08c
    set %cr08c %cr08d
    set %cr08d %cr08e
    set %cr08e * $nick $1-
  }
  elseif ($chan == %cr09) {
    set %cr09a %cr09b
    set %cr09b %cr09c
    set %cr09c %cr09d
    set %cr09d %cr09e
    set %cr09e * $nick $1-
  }
  elseif ($chan == %cr10) {
    set %cr10a %cr10b
    set %cr10b %cr10c
    set %cr10c %cr10d
    set %cr10d %cr10e
    set %cr10e * $nick $1-
  }
  else {
    if (%cr01 == $null) {
      set %cr01 $chan
      msg %cr01 Recall slot 1 is now set to %cr01 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr02 == $null) {
      set %cr02 $chan
      msg %cr02 Recall slot 2 is now set to %cr02 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr03 == $null) {
      set %cr03 $chan
      msg %cr03 Recall slot 3 is now set to %cr03 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr04 == $null) {
      set %cr04 $chan
      msg %cr04 Recall slot 4 is now set to %cr04 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr05 == $null) {
      set %cr05 $chan
      msg %cr05 Recall slot 5 is now set to %cr05 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr06 == $null) {
      set %cr06 $chan
      msg %cr06 Recall slot 6 is now set to %cr06 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr07 == $null) {
      set %cr07 $chan
      msg %cr07 Recall slot 7 is now set to %cr07 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr08 == $null) {
      set %cr08 $chan
      msg %cr08 Recall slot 8 is now set to %cr08 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr09 == $null) {
      set %cr09 $chan
      msg %cr09 Recall slot 9 is now set to %cr09 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
    elseif (%cr10 == $null) {
      set %cr10 $chan
      msg %cr10 Recall slot 10 is now set to %cr10 $+ . Please note that 5 or more messages must be said from this point before !recall will work.
    }
  }
}

Comments

Sign in to comment.
CowBoy   -  Apr 05, 2005

To Many Varialbes, Use Like Some /Write or /Writeini .. It Will Clean Your Script Up Some, Then Use /Remini And /Write -dl#line To Delete them, Or Something Like That, Just Theres To Many Vars.

 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.