Multi Message System

By newklear on Sep 11, 2017

With Multi Message System, you can:

!tell nickname your message goes here!

What it does:
You can stack up to 10 messages per nickname. When they say something in any channel that your script is in, the bot will message the channel with your previous message or messages.

Example usage:
[16:01:27] !tell ChanServ Missed you bud, have something to tell you
[16:01:28] newklear, Message captured for ChanServ.
[16:01:44] !tell ChanServ It is really important, so get hold of me asap!
[16:01:44] newklear, Additional Message captured for ChanServ.
[16:02:01] <&ChanServ> I am here
[16:02:01] ChanServ: Sent 33secs ago: "Missed you bud, have something to tell you" while on #ghostcore
[16:02:09] <&ChanServ> what was it ?
[16:02:09] ChanServ: Sent 25secs ago: "It is really important, so get hold of me asap!" while on #ghostcore

;*MULTI MESSAGE SYSTEM
;*by newklear 2017, irc.chatx.co.za
;*Usage: !tell nickname your message goes here
;*When that nickname says something, the bot will relay the message in the channel
;*Copy and paste the entire contents into mIRC script editor and save as whatever.mrc

on *:TEXT:!tell*:#: {
  if (%lasttell. [ $+ [ $address($nick,5) ] ] == 1) { halt }
  set -u10 %lasttell. [ $+ [ $address($nick,5) ] ] 1
  if (!$2) { msg $chan Syntax: !tell nickname leave your message here! | halt }
  if ($2 == $me) { msg $chan You can't send me a message, I see everything already :p | halt }
  if ($read(Tell.txt,w,$+(*,$2,*))) { 
    write -l $+ $calc($readn + 10) Tell.txt $2 $nick $ctime $chan $3-
    msg $chan $nick $+ , Additional Message captured for $2 $+ .
  } 
  else {
    write Tell.txt $2 $nick $ctime $chan $3-
    msg $chan $nick $+ , Message captured for $2 $+ .
  } 
}

on *:TEXT:*:#: {
  if ($read(Tell.txt,s,$nick)) { 
    if (%tell. [ $+ [ $address($nick,5) ] ] != 1) { timertell 1 5 notice $nick This is the 1st time you have received a message with a 24 hour period, to leave a message, Syntax: !tell nickname your message goes here! }
    set -u86400 %tell. [ $+ [ $address($nick,5) ] ] 1
    var %who $gettok($read(Tell.txt,s,$nick),1,32)
    var %time $gettok($read(Tell.txt,s, $nick),2,32)
    var %mchan $gettok($read(Tell.txt,s, $nick),3,32)
    var %msg $gettok($read(Tell.txt,s,$nick),4-,32)
    msg $chan $nick $+ : Sent $duration($calc($ctime - %time)) ago: < $+ %who $+ > " $+ %msg $+ " while on %mchan 
    write -ds $+ $nick Tell.txt
  }
}

Comments

Sign in to comment.
fahadmehar   -  Oct 26, 2018

Can you write the same as TCL for Eggdrop?

newklear  -  Nov 06, 2018

There is already a TCL version for this, just need to find it.

fahadmehar  -  Nov 15, 2018

That won't work gives error.. When we type !msg

newklear  -  Jan 17, 2019

Yes obviously there will be different triggers.
This is an mSL script for mIRC and a complete re-write in mSL.

Sign in to comment

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.