Botmail

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	6.5
Scores Submitted	8
Date Added	Jan 06, 2007
Last Updated	Jun 11, 2007
Tags	bot mail messages

Introduction

Basic botmail uses commands like !send, !read, !del and !list
Some commands accept one or more parameters (ie: You can read multiple messages by specifying the message numbers)
Contact information is located at the beginning of the script

Slight re-write to attempt to accomodate problems and request.
Script now tracks when a message is left.

Script works, but there is an occasional timing problem when reading the messages, where the message actually gets displayed before the information regarding who it's from and when it was left, rather than the other way around.

Additionally, if messages are deleted in an order other than last to first, there will be blank messages displayed, even though the count is correct. I'm not sure how to get around this at the moment, but I will keep working on it.

As always, suggestions and comments are more than welcome.

Grab the Code

/*
Botmail script by RusselB
E-mail: r.k.bairstow@gmail.com
Include the name of the script in the subject line
*/
on *:start:{
  if !$hget(Botmail) { .hmake Botmail 100 }
  if $exists(Botmail.hsh) { .hload Botmail Botmail.hsh }
}
on *:exit:{
  .hsave -o Botmail Botmail.hsh 
}
on *:disconnect:{
  .hsave -o Botmail Botmail.hsh 
}
on *:notify:{
  if $hget(Botmail,$nick) {
    .msg $nick I have $bytes($hget(Botmail,$nick),b) messages for you
    .msg $nick All commands are to be used via pm/query.
    .msg $nick Available commands are: !list, !read <message number(s)>, !del <message number(s)>, and !delall
  }
}
on *:text:*:?:{
  if $1 == !help {
    .msg $nick All commands are to be used via pm/query.
    .msg $nick Available commands are: !list, !read <message number(s)>, !del <message number(s)>, and !delall
  }
  elseif $1 == !send {
    if !$2 || !$3 {    .notice $nick Usage: !send <nick> <message>  }
    else {
      .hinc -m Botmail $2
      .hadd -m Botmail $+($2,.,$hget(Botmail,$2)) $nick $ctime $3-
    }
    .notify $2
  }
  elseif $1 == !list {   .msg $nick You have $iif(!$hget(Botmail,$nick),no,$hget(Botmail,$nick)) messages   }
  elseif $1 == !delall {
    .hdel -w Botmail $+($nick,*)
    if $notify($nick) {      .notify -r $nick    }
    .msg $nick All of your messages have now been deleted
  }
  else {
    if !$hget(Botmail,$nick) {    .msg $nick You have no messages  }
    elseif !$2  {    .msg $nick No message number(s) specified  }
    else {
      var %msgs = $replace($2-,$chr(44),$chr(32))
      %msgs = $remove(%msgs,$chr(35))
      var %a = 1, %b = $numtok(%msgs,32)
      while %a <= %b {
        if $gettok(%msgs,%a,32) !isnum {
          .msg $nick Only message numbers are allowed    
          .msg $nick Message $v1 will be ignored
        }
        else {
          if $1 == !read {
            var %msg.num = $gettok(%msgs,%a,32), %msg = $hget(Botmail,$+($nick,.,%msg.num)), %msg.nick = $gettok(%msg,1,32), %msg.time = $gettok(%msg,2,32), %msg = $gettok(%msg,3-,32)
            .timer 1 %a .msg $nick Message $chr(35) $+ %msg.num From: %msg.nick Sent At: $asctime(%msg.time)
            .timer -m 1 $calc(%a * 1500) .msg $nick %msg
          }
          elseif $1 == !del {
            .hdel Botmail $+($nick,.,$gettok(%msgs,%a,32))
            .hdec Botmail $nick
            .msg $nick Message $gettok(%msgs,%a,32) has been deleted.
          }
        }
        inc %a
      }
    }
  }
}

Comments

(17) RSS

Go to Bottom

Noutrious

Comments: 343

mIRC Snippet: Botmail
Posted on Jan 7, 2007 4:02 am

One word - Nice!

Lindrian

Comments: 742

mIRC Snippet: Botmail
Posted on Jan 7, 2007 4:59 am

Not bad at all!

no_body21

Comments: 76

mIRC Snippet: Botmail
Posted on Jan 7, 2007 5:45 am

CooL! Nice Job RusselB

SyntaxIRC

Comments: 37

mIRC Snippet: Botmail
Posted on Jan 7, 2007 7:07 am

I\'d have to agree with Nitrous, but add a few more e\'s at the end.

SyntaxIRC

Comments: 37

mIRC Snippet: Botmail
Posted on Jan 7, 2007 7:07 am

Damnit, Noutrious, sorry. :P

RussellReal

Comments: 40

mIRC Snippet: Botmail
Posted on Jan 13, 2007 7:51 pm

\"elseif $1 == !del:{\" suspicious :o and more on that note pretty sure won\'t trigger, I know if statements trigger without () but process faster with them so there is less prediction needed for the client to process, and I would have to press the fact that, hash shouldn\'t be used really for long term storing of data, it could, butt it shouldn\'t because it uses RAM which you prolly have alot of but some people JUST BARELY have enough RAM to keep their operating system good, and Therefore I use them only for sockets and such where its opened and closed within seconds, and, as a alternative to hash tables, I really like ini, and I kinda find them to work better, and they are way more organised, I say that because hash never stays in order, the item name may stay the same but when you loop through a table it will NEVER stay the same order UNLESS its a smaller scale table, and even still you can\'t be too certain, but ini is better in that department. $ini == $readini\'s lil counterpart and together you can incorperate awesome amounts of data into scripts which might require that much. hope Any of my advice helps :s

RusselB

Comments: 98

mIRC Snippet: Botmail
Posted on Jan 20, 2007 10:50 am

RussellReal: Nice catch on the : in that elseif...I\'m not sure how that got in there, but I have removed it. Regarding RAM, if someone is running that close on the amount of RAM in their system, then they should get more. I like using hash tables for things like this, as ini files (or any type of file that requires disk access) is a lot slower than a hash table.

If you want to do a re-write of my script so that it uses ini files, please be my guest. I only request that you include a line noting that your script is based on mine.

mecatrix

Comments: 3

mIRC Snippet: Botmail
Posted on Apr 8, 2007 2:51 pm

* Invalid format: $gettok (line 47, script5.txt)
-
* Invalid format: $gettok (line 47, script5.txt)
-
* Invalid format: $gettok (line 47, script5.txt)
-
* Invalid format: $gettok (line 47, script5.txt)
-

[03:49] <PaNDa[ro]> I have messages for you
[03:49] <PaNDa[ro]> Use: /msg PaNDa[ro] !list to list them, /msg PaNDa[ro] !read <message number(s)> to read the message(s), /msg PaNDa[ro] !del <message number(s)> to delete the message(s), or /msg PaNDa[ro] !delall to delete all messages
[03:49] <PaNDa\\Tido> !list
[03:49] <PaNDa[ro]> Message #1 from PaNDa\\Tido
[03:49] <PaNDa\\Tido> !read 1
[03:50] <PaNDa\\Tido> !read #1
[03:50] <PaNDa\\Tido> !read #1 from PaNDa\\Tido
[03:50] <PaNDa\\Tido> !read 1 from PaNDa\\Tido

i got that :D any repair?

Scar-Face

Comments: 2

mIRC Snippet: Botmail
Posted on Apr 15, 2007 11:22 pm

I got the same type error as mecatrix did. :-/

RusselB

Comments: 98

mIRC Snippet: Botmail
Posted on Apr 22, 2007 10:54 pm

Mecatrix & Scar-Face: I apologize for that error. Somehow I managed to miss a closing parantheses on each of lines 47 & 48.
This has been corrected.

AHBARAR

Comments: 141

mIRC Snippet: Botmail
Posted on Jun 3, 2007 4:36 pm

i like the script but i found tht if u typed !read #1 it give u this msg Message ##1 From:
and on bot u can see
* /msg: insufficient parameters
but if u typed !read 1 or 2 it work
the problem is deleting cas it giving this bug
* /hdel: insufficient parameters (line 64, msg.txt)
and its not deleting it >:|

AHBARAR

Comments: 141

mIRC Snippet: Botmail
Posted on Jun 3, 2007 5:00 pm

if i say !del nick it says
* /hdel: insufficient parameters (line 64, msg.txt)
and if i say !delall it says
* /hdel: insufficient parameters (line 54, msg.txt)

RusselB

Comments: 98

mIRC Snippet: Botmail
Posted on Jun 8, 2007 7:16 pm

Problems noted, Ahbarar. I should be able to find the exact causes of those errors and fix them up in time for an update in 48 - 60 hours

RusselB

Comments: 98

mIRC Snippet: Botmail
Posted on Jun 9, 2007 8:49 am

I think I got all the problems, with the exceptions of those noted in the introduction, solved.

AHBARAR

Comments: 141

mIRC Snippet: Botmail
Posted on Jun 12, 2007 4:02 am

It Works So Perfect Thx So Much RusseIB For Ur Time U Deserve 10/10 without any objection >:D

RusselB

Comments: 98

mIRC Snippet: Botmail
Posted on Jun 12, 2007 6:16 pm

Glad I was able to get the problems resolved. Please keep an eye for updates, as I will be posting them as I\'m able to get the other problems resolved.

AHBARAR

Comments: 141

mIRC Snippet: Botmail
Posted on Jun 13, 2007 4:58 am

gr8 my freind im always keeping my eye on ur works hehe oh i never post my works wonder why >:s but im sure i love ur work >:D

Botmail

Introduction

Grab the Code

Comments

RusselB

My Snippet Tags

Contact

Friends (7)

Sponsors

		Sarnia, ON, Canada
Last seen: Sep 06, 2008 Profile Likes (1) Friends (7) Snippets (21) Images (2) Comments Received (203) Comments Submitted (98) Forum Posts (5326)