WPM Finder

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Mar 29, 2008
Last Updated	Apr 11, 2008
Tags	find finder game minute peach peachbot per runescape test vegeto vegeto079 word words wpm

Introduction

Simple WPM script. Type /wpm in #mywpm to start. I may let you change the channel later on, since multiple people might be in one channel and it could get irritating!
NOTE: You MUST load the script !OR! type /loadwpm before you start!

For somebody to see what your highest/current WPM scores are, they must type !wpm

For you to show a channel what your highest/current WPM scores are, type /wpmcheck in a channel

Updates:

Saturday, March 29, 2008
3:25AM EST
You can now type /wpmcheck [channel] to display to a different channel than your active one.

3:33AM EST
You now must goto #[your nick]wpm to see your WPM instead of #mywpm.
Though you can also type /mywpm to switch this between the two.

You also can now type /loadwpm instead of having to actually load the script
Script also slighly shortened

4:53AM EST
The #[your nick]wpm feature now works correctly.

5:02AM EST
Fixed problem where it tends to erase your incorrect words and will not display how many you got incorrect, or which ones.

Monday, March 31, 2008
3:19PM EST
Timers now silenced (thanks to comments)

Monday, April 07, 2008
6:49AM EST
Fixed a few spelling errors
Deleted some unneeded parts of the script
Made /wpmcheck work, instead of you having to type /wpmshow. You now can type either.

Friday, April 11, 2008.
3:44AM EST
Timers actually silenced now..shouldve been earlier, not sure why they werent. Thanks to comments (again).

Grab the Code

on *:load:{
  wpmload
  echo -a WPM Script loaded! Type "wpm" in any channel to start!
  halt
}
alias loadwpm {
  wpmload
  echo -a WPM Script loaded! Type "wpm" in any channel to start!
  halt
}
alias -l wpmload {
  unset %wpm*
  set %wpm1 You are about to embark on a new career that is both challenging and rewarding.
  set %wpm2 Your ability to type as fast as possible will be an important aspect of your success.
  set %wpm3 A good way to help ensure this success is to make the keyboard your friend.
  set %wpm4 You will spend many long hours in the future, just you and your keyboard, and for these hours to be tolerable they have to be enjoyable.
  set %wpm5 Consider your keyboard an invaluable tool that requires persistence and patience to master.
  set %wpm6 As a vitally important tool of your trade it needs to be treated with respect; don't make it the recipient of your frustrations. 
  set %wpm7 The more at ease you are with your keyboard, the more successful you will be.
  set %wpm0 %wpm1 %wpm2 %wpm3 %wpm4 %wpm5 %wpm6 %wpm7
  set %mywpm #mywpm
}
alias wpma {
  set %wpm ( $+ $time $+ ) < $+ 10WPM Bot>
  echo -a %wpm This script will test you on your WPM based on an average of 5 letters per word.
  echo -a %wpm To begin, simply type "Begin" in this channel and follow further directions.
  halt
}
on *:input:#:{
  set %wpmsay $1-
  if ($active == %mywpm) { wpmb %wpmsay }
  set %wpm ( $+ $time $+ ) < $+ 10WPM Bot>
  if ($1- == wpm) && ($active != %mywpm) {
    if ($active != %mywpm) {
      echo -a %wpm You must be in %mywpm to use this script. Type /mywpm to switch this.
    }
  }
}
alias wpmb {
  set %wpm ( $+ $time $+ ) < $+ 10WPM Bot>
  if ($1- == wpm) {
    echo -a %wpm Starting script...
    wpmunsets
    .timer 01 01 wpma
    halt
  }
  if ($1- == Begin) {
    echo -a %wpm To see instructions, type Instruct. To begin the test, type Go.
    halt
  }
  if ($1- == Instruct) {
    echo -a %wpm This will show a series of words to say in @wpm. You must make the channels smaller so you can see what you need to type.
    echo -a %wpm To type what is shown, you must hit enter after every sentence to confirm how long it has taken you.
    echo -a %wpm To begin the test, type Go.
    halt
  }
  if ($1- == Go) {
    echo -a %wpm Starting test...
    echo -a %wpm I will give you 20 seconds to rearrange your windows after @wpm pops up.
    wpmstart
    halt
  }
  wpmz %wpmsay
}
alias wpmstart {
  window @wpm
  echo @wpm %wpm %wpm0
  set %wpmtotal 0
  set %wpminc 0
  set %wpminc2 0
  unset %wpmbad*
  set %wpmbad 0
  .timerwpm3 1 15 echo -a %wpm 5 Seconds left.
  .timerwpm2 1 20 echo -a %wpm Timer is now starting. Start typing now. Feel free to press enter after every sentence or only at the end.
  .timerwpm1 1 20 set %wpmcount 0
  .timerwpm 0 0.01 inc %wpmtotal 0.01
}
alias wpmz {
  if (%wpmcount == $null) {
    echo -a %wpm Please wait until I say the test starts before you start typing!
    halt
  }
  if (pie == bad) {
    :again1
    inc %wpminc
    if ($gettok(%wpm [ $+ [ %wpminc2 ] $+ ] ,%wpminc,32) != $gettok(%wpmsay,%wpminc,32)) {
      inc %wpmbad 1
      set %wpmbad [ $+ [ %wpminc2 ] $+ ] - [ $+ [ %wpminc ] ] $gettok(%wpmsay,%wpminc,32)
    }
    if ($gettok(%wpm [ $+ [ %wpminc2 ] $+ ] ,$calc(%wpminc + 1),32) == $null) {
      goto next1
    }
    goto again1
    :next1
    inc %wpmcount
    set %wpminc 0
    inc %wpminc2
    halt
  }
  if (%wpmcount == 0) {
    :again1
    inc %wpminc
    if ($gettok(%wpm1,%wpminc,32) != $gettok(%wpmsay,%wpminc,32)) {
      inc %wpmbad 1
      set %wpmbad1- [ $+ [ %wpminc ] ] $gettok(%wpmsay,%wpminc,32)
    }
    if ($gettok(%wpm1,$calc(%wpminc + 1),32) == $null) {
      goto next1
    }
    goto again1
    :next1
    inc %wpmcount
    set %wpminc 0
    halt
  }
  if (%wpmcount == 1) {
    :again2
    inc %wpminc
    if ($gettok(%wpm2,%wpminc,32) != $gettok(%wpmsay,%wpminc,32)) {
      inc %wpmbad 1
      set %wpmbad2- [ $+ [ %wpminc ] ] $gettok(%wpmsay,%wpminc,32)
    }
    if ($gettok(%wpm2,$calc(%wpminc + 1),32) == $null) {
      goto next2
    }
    goto again2
    :next2
    inc %wpmcount
    set %wpminc 0
    halt
  }
  if (%wpmcount == 2) {
    :again3
    inc %wpminc
    if ($gettok(%wpm3,%wpminc,32) != $gettok(%wpmsay,%wpminc,32)) {
      inc %wpmbad 1
      set %wpmbad3- [ $+ [ %wpminc ] ] $gettok(%wpmsay,%wpminc,32)
    }
    if ($gettok(%wpm3,$calc(%wpminc + 1),32) == $null) {
      goto next3
    }
    goto again3
    :next3
    inc %wpmcount
    set %wpminc 0
    halt
  }
  if (%wpmcount == 3) {
    :again4
    inc %wpminc
    if ($gettok(%wpm4,%wpminc,32) != $gettok(%wpmsay,%wpminc,32)) {
      inc %wpmbad 1
      set %wpmbad4- [ $+ [ %wpminc ] ] $gettok(%wpmsay,%wpminc,32)
    }
    if ($gettok(%wpm4,$calc(%wpminc + 1),32) == $null) {
      goto next4
    }
    goto again4
    :next4
    inc %wpmcount
    set %wpminc 0
    halt
  }
  if (%wpmcount == 4) {
    :again5
    inc %wpminc
    if ($gettok(%wpm5,%wpminc,32) != $gettok(%wpmsay,%wpminc,32)) {
      inc %wpmbad 1
      set %wpmbad5- [ $+ [ %wpminc ] ] $gettok(%wpmsay,%wpminc,32)
    }
    if ($gettok(%wpm5,$calc(%wpminc + 1),32) == $null) {
      goto next5
    }
    goto again5
    :next5
    inc %wpmcount
    set %wpminc 0
    halt
  }
  if (%wpmcount == 5) {
    :again6
    inc %wpminc
    if ($gettok(%wpm6,%wpminc,32) != $gettok(%wpmsay,%wpminc,32)) {
      inc %wpmbad 1
      set %wpmbad6- [ $+ [ %wpminc ] ] $gettok(%wpmsay,%wpminc,32)
    }
    if ($gettok(%wpm6,$calc(%wpminc + 1),32) == $null) {
      goto next6
    }
    goto again6
    :next6
    inc %wpmcount
    set %wpminc 0
    halt
  }
  if (%wpmcount == 6) {
    :again7
    inc %wpminc
    if ($gettok(%wpm7,%wpminc,32) != $gettok(%wpmsay,%wpminc,32)) {
      inc %wpmbad 1
      set %wpmbad7- [ $+ [ %wpminc ] ] $gettok(%wpmsay,%wpminc,32)
    }
    if ($gettok(%wpm7,$calc(%wpminc + 1),32) == $null) {
      goto next7
    }
    goto again7
    :next7
    inc %wpmcount
    set %wpminc 0
    wpmend
    halt
  }
}
alias -l wpmend {
  echo -a %wpm Test finished.
  echo -a %wpm Please wait while I find your WPM...
  .timer 01 03 wpmend2
}
alias -l wpmend2 {
  .timerwpm off
  window @wpm
  set %wpmminute $calc((%wpmtotal + %wpmbad) / 60)
  set %wpmz $calc($len(%wpm0) / %wpmminute /5)
  set %wpmminute2 $calc(%wpmtotal / 60)
  set %wpmz2 $calc($len(%wpm0) / %wpmminute2 /5)
  wpmstatus
}
alias -l wpmstatus {
  wpmunsets
  window @wpmstatus
  echo @wpmstatus %wpm Here you will see your WPM results.
  echo @wpmstatus %wpm Time taken: %wpmtotal $+ secs
  if (%wpmbad < %wpmbadb) || (%wpmbadb == $null) {
    echo @wpmstatus %wpm New Record! Incorrect words: %wpmbad
    set %wpmbadb %wpmbad
  }
  if (%wpmbad > %wpmbadb) {
    echo @wpmstatus %wpm Incorrect words: %wpmbad
  }
  if (%wpmz2 > %wpmz2b) || (%wpmz2b == $null) {
    echo @wpmstatus %wpm New Record! WPM (no deduction): %wpmz2
    set %wpmz2b %wpmz2
    goto next
  }
  if (%wpmz2 <= %wpmz2b) {
    echo @wpmstatus %wpm WPM (no deduction): %wpmz2
  }
  :next
  if (%wpmz > %wpmzb) || (%wpmzb == $null) {
    echo @wpmstatus %wpm New Record! WPM (deduction): %wpmz
    set %wpmzb %wpmz
    goto next2
  }
  if (%wpmz <= %wpmzb) {
    echo @wpmstatus %wpm WPM (deduction): %wpmz
  }
  :next2
  wpmcheck
  echo @wpmstatus %wpm Words wrong in sections:
  echo @wpmstatus %wpm Section: Amount : Words wrong
  if (%wpmbad1) /echo @wpmstatus %wpm One: %wpmbad1 : %wpmbada1
  if (%wpmbad2) /echo @wpmstatus %wpm Two: %wpmbad2 : %wpmbada2
  if (%wpmbad3) /echo @wpmstatus %wpm Three: %wpmbad3 : %wpmbada3
  if (%wpmbad4) /echo @wpmstatus %wpm Four: %wpmbad4 : %wpmbada4
  if (%wpmbad5) /echo @wpmstatus %wpm Five: %wpmbad5 : %wpmbada5
  if (%wpmbad6) /echo @wpmstatus %wpm Six: %wpmbad6 : %wpmbada6
  if (%wpmbad7) /echo @wpmstatus %wpm Seven: %wpmbad7 : %wpmbada7
  echo @wpmstatus %wpm To show these results to somebody, simply type:
  echo @wpmstatus %wpm /wpmshow
}
alias wpmcheck {
  wpmshow $1-
}
alias wpmshow {
  if ($1 == $null) {
    msg $active 11My WPM Scores:12 WPM (no deduction): %wpmz2 11|12 WPM (deduction): %wpmz 11|12 Words wrong: %wpmbad
    msg $active 11Best Scores:12 WPM (no deduction): %wpmz2b 11|12 WPM (deduction): %wpmzb 11|12 Words wrong: %wpmbadb
    halt
  }
  msg $1 11My WPM Scores:12 WPM (no deduction): %wpmz2 11|12 WPM (deduction): %wpmz 11|12 Words wrong: %wpmbad
  msg $1 11Best Scores:12 WPM (no deduction): %wpmz2b 11|12 WPM (deduction): %wpmzb 11|12 Words wrong: %wpmbadb
  halt
}
on *:text:!wpm*:#:{
  notice $nick 11My WPM Scores:12 WPM (no deduction): %wpmz2 11|12 WPM (deduction): %wpmz 11|12 Words wrong: %wpmbad
  notice $nick 11Best Scores:12 WPM (no deduction): %wpmz2b 11|12 WPM (deduction): %wpmzb 11|12 Words wrong: %wpmbadb
}
alias mywpm {
  set %blah $chr(35) $+ $me $+ wpm
  if (%mywpm != #mywpm) { set %mywpm #mywpm | goto mywpm }
  if (%mywpm == #mywpm) { set %mywpm %blah | goto mywpm }
  :mywpm
  echo -a %wpm You now must join %mywpm to use Peach's WPM script.
  halt
}
alias -l wpmcheck {
  set %wpminc -1
  :next
  inc %wpminc
  set %wpminc2 -1
  if (%wpminc > 7) { goto end }
  :next2
  inc %wpminc2
  if (%wpmbad [ $+ [ %wpminc ] $+ ] - [ $+ [ %wpminc2 ]  ] != $null) {
    inc %wpmbad [ $+ [ %wpminc ] ]
    if (%wpmbada [ $+ [ %wpminc ] ]) /set %wpmbada [ $+ [ %wpminc ] ] %wpmbad [ $+ [ %wpminc ] $+ ] - [ $+ [ %wpminc2 ]  ] $+ , %wpmbada [ $+ [ %wpminc ] ]
    if (!%wpmbada [ $+ [ %wpminc ] ]) /set %wpmbada [ $+ [ %wpminc ] ] %wpmbad [ $+ [ %wpminc ] $+ ] - [ $+ [ %wpminc2 ]  ]
  }
  if (%wpminc2 > $gettok(%wpm [ $+ [ %wpminc ] ],0,32)) { goto next }
  goto next2
  :end
}

Comments

(6) RSS

Go to Bottom

napa182

Comments: 733

mIRC Snippet: WPM Finder
Posted on Mar 29, 2008 3:54 am

you should really silence ur timers.

vegeto079

Comments: 28

mIRC Snippet: WPM Finder
Posted on Mar 29, 2008 2:05 pm

how do i do that >.<?

jonesy44

Comments: 614

mIRC Snippet: WPM Finder
Posted on Mar 30, 2008 7:04 am

add a "." to the start: .timer x y /bla

vegeto079

Comments: 28

mIRC Snippet: WPM Finder
Posted on Mar 31, 2008 10:06 pm

Fixed, thanks.

HoNdAx707

Comments: 59

mIRC Snippet: WPM Finder
Posted on Apr 7, 2008 5:53 pm

you didnt silence the timers...

Code:

.timer 01 01 wmpa

thats how you would do it

vegeto079

Comments: 28

mIRC Snippet: WPM Finder
Posted on Apr 11, 2008 2:45 pm

Fixed...again. Not sure why they weren't silenced when I had done it before (possibly it didnt save?), but they are now.

WPM Finder

Introduction

Grab the Code

Comments

vegeto079

My Snippet Tags

Contact

Sponsors


Last seen: Jun 09, 2008 Profile Snippets (7) Comments Received (46) Comments Submitted (28) Forum Posts (1)