Timed Message System

Please Register to submit score.

Average Score	9.0
Scores Submitted	7
Date Added	Feb 27, 2008
Last Updated	Feb 27, 2008
Tags	auto dialog message system time timed

Introduction

Ok here's my take on a Timed Message System, Or an Timed Auto Message Dialog. Copy And Paste into a new remote. To open either click on ur menubar or a channel. Add the channels you want to have the message go to or turn on all channels and it will message every channel you are in. Set the number of minutes you would like between each message. you can add as many messages you want but you have to highlite the one you want in the message list box to send. Then just click start to start the auto message and stop to stop it. if you set it up wrong the error pop ups will let you know.lol...enjoy

Grab the Code

dialog tms {
  title "Timed Message System"
  size -1 -1 229 137
  option dbu
  box "Add/Del Channels", 1, 2 1 92 24
  button "add", 2, 5 11 15 9, flat
  button "del", 3, 22 11 15 9, flat
  edit "", 4, 41 11 50 9, autohs
  box "Start Stop Messages", 5, 95 1 69 24
  button "start", 6, 97 11 30 9, flat
  button "stop", 7, 131 11 30 9, flat
  box "Add/Del Auto Message", 8, 2 26 162 23
  button "add", 9, 5 35 15 9, flat
  button "del", 10, 22 35 15 9, flat
  edit "", 11, 39 35 122 9, autohs
  box "Auto Message List", 12, 2 73 162 62
  list 13, 5 81 156 50, size vsbar
  box "Message All Channels", 14, 165 1 62 24
  radio "On", 15, 173 11 18 10
  radio "Off", 16, 203 11 19 10
  box "Channel List", 17, 165 50 62 85
  list 18, 167 59 57 72, size vsbar
  box "Set Time", 19, 165 26 62 23
  button "set", 20, 168 35 17 9, flat
  edit "", 21, 187 35 21 9, autohs
  text "Min's", 22, 211 35 13 8
  box "Selected Message To Say", 23, 2 50 162 21
  edit "", 24, 5 58 156 9, read autohs
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Timed Message System 
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1�15,1�0,1�0,1� ��X�Ǯ��t0��X׻ �0,1�15,1�14,1�)�
}
menu menubar,channel {
  .Timed Message System:{ tms }
}
alias tms { dialog $iif($dialog(tms),-v,-md) tms tms }
alias mallchan { amsg 14,1[12,1�0,1::Automated Message0,1::12,1�14,1]14,1[12,1�0,1:: %tmsselectxt 0,1::12,1�14,1] }
alias mchantxt { 
  var %x = 1
  while ( %x <= $lines(tmschan.txt)) {
    msg $read(tmschan.txt,%x) 14,1[12,1�0,1::Automated Message0,1::12,1�14,1]14,1[12,1�0,1:: %tmsselectxt 0,1::12,1�14,1]
    inc %x
  }
}
on *:dialog:tms:init:0:{ 
  if (%tmsallchan) { did -c tms 15 | did -b tms 18,2-4 }
  if (!%tmsallchan) { did -c tms 16 | did -e tms 18,2-4 }
  if (%tmsstart) { did -b tms 2-4,6,9-11,13,15,16,18,20,21 | did -e tms 7 }
  if (!%tmsstart) { did -e tms 2-4,6,9-11,13,15,16,18,20,21 | did -b tms 7 }
  if (%tmstime) { did -a tms 21 %tmstime }
  if (%tmsselectxt) { did -a tms 24 %tmsselectxt }
  var %x = 1
  while ( %x <= $lines(tmsmessage.txt)) {
    did -a tms 13 $read(tmsmessage.txt,%x)
    inc %x
  }
  var %x = 1
  while ( %x <= $lines(tmschan.txt)) {
    did -a tms 18 $read(tmschan.txt,%x)
    inc %x
  }
}
on *:dialog:tms:sclick:*:{
  if ($did == 15) { set %tmsallchan on | did -b tms 18,2-4 }
  if ($did == 16) { unset %tmsallchan | did -e tms 18,2-4 }
  if ($did == 20) {
    if ($did(21).text !isnum) {
      noop $input(Please Enter Numbers Only!,uwo,Error) 
      did -r tms 21
    }
    else {
      set %tmstime $did(21).text
      set %tmsruntime $calc($did(21).text * 60)
    }
  }
  if ($did == 2) {
    if (!$did(4).text) {
      noop $input(No Channel Was Entered,uwo,ERROR!) 
    }
    elseif ($left($did(4).text,1) != $chr(35)) { 
      noop $input(Please Enter Channel As Syntax: #channel,uwo,Syntax Error!)
      did -r tms 4
    }
    elseif ($did(4).text) {
      var %tmscchan $read(tmschan.txt,w,$did(4).text)
      if (%tmscchan == $did(4).text) { 
        noop $input(Channel Already Exists,uwo,ERROR!) 
        did -r tms 4 
      }
      else {
        .write tmschan.txt $did(4).text 
        did -r tms 4,18
        var %x = 1
        while ( %x <= $lines(tmschan.txt)) {
          did -a tms 18 $read(tmschan.txt,%x)
          inc %x
        }
      }
    }
  }
  if ($did == 3) { 
    if (!$did(4).text) && (!$did(18).seltext) {
      noop $input(No Channel Was Entered Or Selected,uwo,ERROR!)  
    }
    elseif ($left($did(4).text,1) != $chr(35)) && (!$did(18).seltext) { 
      noop $input(Please Enter Channel As Syntax: #channel,uwo,Syntax Error!) 
      did -r tms 4
    }
    elseif ($did(4).text) && (!$did(18).seltext) {
      var %dtmschan $read(tmschan.txt,w,$did(4).text) 
      if (%dtmschan != $did(4).text) {
        noop $input(Channel Does Not Exists,uwo,Error!)
        did -r tms 4
      }
      elseif ($did(4).text) && (!$did(18).seltext) {
        var %dtmschan $read(tmschan.txt,w,$did(4).text) 
        if (%dtmschan == $did(4).text) {
          write -dl [ $+ [ $readn ] ] tmschan.txt  
          did -r tms 4,18 
          var %x = 1
          while ( %x <= $lines(tmschan.txt)) {
            did -a tms 18 $read(tmschan.txt,%x)
            inc %x
          }
        }
      }
    }
    elseif ($did(18).seltext) && (!$did(4).text) {
      var %dtmschan $read(tmschan.txt,w,$did(18).seltext) 
      if (%dtmschan == $did(18).seltext) {
        write -dl [ $+ [ $readn ] ] tmschan.txt  
        did -r tms 4,18 
        var %x = 1
        while ( %x <= $lines(tmschan.txt)) {
          did -a tms 18 $read(tmschan.txt,%x)
          inc %x
        }
      }
    }
  }
  if ($did == 9) {
    if (!$did(11).text) {
      noop $input(Error Please Enter A Message,uwo,Error!) 
    }
    elseif ($did(11).text) {
      var %tmsmmessage $read(tmsmessage.txt,w,$did(11).text)
      if (%tmsmmessage == $did(11).text) { 
        noop $input(Message Already Exists,uwo,Error!) 
        did -r tms 11 
      }
      else {
        .write tmsmessage.txt $did(11).text 
        did -r tms 11,13
        var %x = 1
        while ( %x <= $lines(tmsmessage.txt)) {
          did -a tms 13 $read(tmsmessage.txt,%x)
          inc %x
        }
      }
    }
  }
  if ($did == 13) { did -ra tms 24 $did(13).seltext | set %tmsselectxt $did(13).seltext }
  if ($did == 10) { 
    if (!$did(11).text) && (!$did(13).seltext) {
      noop $input(No Message Was Entered Or Selected,uwo,Error!)  
    }
    elseif ($did(11).text) && (!$did(13).seltext) {
      var %dtmsmmessage $read(tmsmessage.txt,w,$did(11).text) 
      if (%dtmsmmessage != $did(11).text) {
        noop $input(Message Does Not Exists,uwo,Error!) 
        did -r tms 11
      }
      elseif ($did(11).text) && (!$did(13).seltext) {
        var %dtmsmmessage $read(tmsmessage.txt,w,$did(4).text) 
        if (%dtmsmmessage == $did(4).text) {
          write -dl [ $+ [ $readn ] ] tmsmessage.txt  
          did -r tms 11,13 
          var %x = 1
          while ( %x <= $lines(tmsmessage.txt)) {
            did -a tms 13 $read(tmsmessage.txt,%x)
            inc %x
          }
        }
      }
    }
    elseif ($did(13).seltext) && (!$did(11).text) {
      var %dtmsmmessage $read(tmsmessage.txt,w,$did(13).seltext) 
      if (%dtmsmmessage == $did(13).seltext) {
        write -dl [ $+ [ $readn ] ] tmsmessage.txt
        unset %tmsselectxt  
        did -r tms 11,13,24 
        var %x = 1
        while ( %x <= $lines(tmsmessage.txt)) {
          did -a tms 13 $read(tmsmessage.txt,%x)
          inc %x
        }
      }
    }
  }
  if ($did == 6) {
    if (!%tmstime) {
      noop $input(Please Enter Delay Time,uo,Error!) 
    }
    elseif (!%tmsselectxt) {
      noop $input(Error Please Enter A Message,uwo,Error!)
    }
    elseif (!$read(tmschan.txt)) && (!%tmsallchan) {
      noop $input(No Channel Was Entered,uwo,ERROR!) 
    }
    elseif (%tmsallchan) {
      set %tmsstart on
      did -b tms 2-4,6,9-11,13,15,16,18,20,21
      did -e tms 7
      .timerallchan 0 %tmsruntime mallchan
    }
    else {
      set %tmsstart on
      did -b tms 2-4,6,9-11,13,15,16,18,20,21
      did -e tms 7
      .timerselchan 0 %tmsruntime mchantxt
    }
  }
  if ($did == 7) {
    unset %tmsstart
    .timerallchan off
    .timerselchan off
    did -e tms 2-4,6,9-11,13,15,16,18,20,21
    did -b tms 7
  }
}

Comments

(10) RSS

Go to Bottom

mountaindew

Comments: 1,423

mIRC Snippet: Timed Message System
Posted on Feb 27, 2008 2:32 pm

why don't you just make a bunch of $input()'s instead of all those dialogs?

goku50

Comments: 17

mIRC Snippet: Timed Message System
Posted on Feb 27, 2008 2:36 pm

confusing i never under stud dilog and all that so i would help but nope cant.ask EL he might know some help if this is wrong like moutiandew says is little weired.

napa182

Comments: 775

mIRC Snippet: Timed Message System
Posted on Feb 27, 2008 2:42 pm

cuz i like the error dialog look

goku50

Comments: 17

mIRC Snippet: Timed Message System
Posted on Feb 27, 2008 2:42 pm

yhea i do too XD

napa182

Comments: 775

mIRC Snippet: Timed Message System
Posted on Feb 27, 2008 2:44 pm

goku50 i have no clue what you just said. Um whats weired about it?

goku50

Comments: 17

mIRC Snippet: Timed Message System
Posted on Feb 27, 2008 2:45 pm

i just said i like that diloge thing too.

napa182

Comments: 775

mIRC Snippet: Timed Message System
Posted on Feb 27, 2008 2:46 pm

i was talking about ur first comment lol

napa182

Comments: 775

mIRC Snippet: Timed Message System
Posted on Feb 27, 2008 4:22 pm

there i redid it with $inputs instead of dialogs but i still like the dialog look better =P

undertaker28

Comments: 9

mIRC Snippet: Timed Message System
Posted on Mar 7, 2008 8:27 am

i like this
1 question, can it be edited some how so it can auto choose any of the messages for example pick any 1 out of say 5

tnx

manslaughter

Comments: 1

mIRC Snippet: Timed Message System
Posted on Jul 4, 2008 11:32 pm

This is my first time ever using any mirc script and I got one question about this script is there a way to remove the automated message part of the text that the script types?

Timed Message System

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (30)

Sponsors

		Head Admin For irc.EzzyChat.com California ÎÇ ×Ç ÑÎ KÅ
Last seen: Jul 19, 2008 Profile \| Website Friends (30) Snippets (40) Images (1) Comments Received (349) Comments Submitted (775) Forum Posts (135)