Word Count

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	5.5
Scores Submitted	2
Date Added	Jun 12, 2007
Last Updated	Jun 12, 2007
Tags	count counter word

Introduction

Like the title said, it count words when added to the database.

Just thought I post this as a snippet. It's a minor update to the code I posted on this thread.

Usage:

!addword <word>
!countword <word>
!delword <word>

Grab the Code

;================================================
;  Word Count
;  Version 1.1
;  Written by: xDaeMoN
;  Email: xdaemon@xdaemon.us
;  
;================================================

On *:START: {
  if ( !$hget($wc.table) ) hmake $wc.table 100
  if ( $isfile($wc.data) ) hload $wc.table $wc.data
}

On *:EXIT: if ( $hget($wc.table) ) hsave -o $wc.table $wc.data
On *:DISCONNECT:  if ( $hget($wc.table) ) hsave -o $wc.table $wc.data

alias wc.table return wordcount
alias wc.data return $qt($scriptdirwordcount.dat)
alias wc.count {
  tokenize 32 $1-
  if ( $hfind($wc.table,$1-,1,W) ) {
    var %t = $v1
    if ( $wildtok($1-,%t,0,32) ) hinc -m $wc.table %t $v1
  }
}

On *:TEXT:!*word &:#: {
  if ( $1 == !addword ) {
    if ( !$hget($wc.table,$+(*,$2,*)) ) {
      hadd -m $wc.table $+(*,$2,*)
      msg $chan Added $2 in my database.
    }
    else msg $chan $2 is already in my database.
  }
  elseif ( $1 == !countword ) {
    if ( $hget($wc.table,$+(*,$2,*)) ) msg $chan $2 has been said: $v1 times.
    else msg $chan That word is not in my database.
  }
  elseif ( $1 == !delword ) {
    if ( $hget($wc.table,$+(*,$2,*)) ) {
      hdel $wc.table $+(*,$2,*)
      msg $chan Deleted $2 from my database.
    }
    else msg $chan That word is not in my database.
  }
}

on *:TEXT:*:#: wc.count $strip($1-)
On *:ACTION:*:#: wc.count $strip($1-)

Comments

(8) RSS

Go to Bottom

Noutrious

Comments: 355

mIRC Snippet: Word Count
Posted on Jun 12, 2007 4:27 am

It's nice, but i think, that:

Quote:

msg $chan Deleted $2 in my database.

Corrected would be

Quote:

msg $chan Deleted $2 from my database.

Greets! :)

xDaeMoN

Comments: 696

mIRC Snippet: Word Count
Posted on Jun 12, 2007 11:04 am

Thanks. Got that corrected now. :)

lordmedo

Comments: 3

mIRC Snippet: Word Count
Posted on Jun 16, 2007 9:31 am

i dont know how to install this code?
i tried pasting it to remote but no effect...

xDaeMoN

Comments: 696

mIRC Snippet: Word Count
Posted on Jun 18, 2007 8:16 am

@ lordmedo, if you copy/pasted it to your remotes section, that is correct. Other people would have to type the commands. If you are typing the commands, it won't work since you have the script.

lordmedo

Comments: 3

mIRC Snippet: Word Count
Posted on Jun 20, 2007 7:41 pm

Now this happens:

[02:34:58] <lord_medo> !addword wuk
[02:34:58] <WoLf> Added wuk in my database.
[02:35:03] <lord_medo> wuk wuk
[02:35:09] <lord_medo> !countword wuk
[02:35:09] <WoLf> That word is not in my database.

also, it doesn't say anything to !delword wuk or when twice adding the same word...

xDaeMoN

Comments: 696

mIRC Snippet: Word Count
Posted on Jun 20, 2007 8:59 pm

Did you paste it on a new remote file? What version of mIRC is your bot using? I've tested it several times with the latest version & should work from 6.17 because of the $qt, but other than that, I can't think of anything that would make it not work for you.

lordmedo

Comments: 3

mIRC Snippet: Word Count
Posted on Jul 3, 2007 4:36 am

on mirc 6.21 it works fine, i had mirc 6.12 before. thanks

xDaeMoN

Comments: 696

mIRC Snippet: Word Count
Posted on Jul 3, 2007 9:09 am

That's good. =)

Word Count

Introduction

Grab the Code

Comments

xDaeMoN

My Snippet Tags

Contact

Friends (17)

Sponsors

		United States Of Calamity
Last seen: Sep 24, 2008 Profile Friends (17) Scripts (3) Snippets (18) Comments Received (398) Comments Submitted (696) Forum Posts (5954)