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).

Wednesday, July 09, 2008.
8:39AM EST
Script now works properly, as before it would start tracking your time BEFORE you were allowed to type!
8:47AM EST
Spelling error fixed.

Wednesday, December 10, 2008.
3:44PM EST
Long time no update. Just cut like 50 lines of code in 'alias wpmz'. I did this by eye and cannot test it right now, so please tell me if it doesn't work. 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
.timerwpm4 1 20 wpmstart2
}
alias wpmstart2 {
.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 > 6) || (%wpmcount < 0) {
goto end
}
:again
inc %wpminc
if ($gettok(%wpm [ $+ [ $calc(%wpmcount + 1) ] ],%wpminc,32) != $gettok(%wpmsay,%wpminc,32)) {
inc %wpmbad 1
set %wpmbad [ $+ [ $calc(%wpmcount + 1) ] ]- [ $+ [ %wpminc ] ] $gettok(%wpmsay,%wpminc,32)
}
if ($gettok(%wpm [ $+ [ $calc(%wpmcount + 1) ] ],$calc(%wpminc + 1),32) == $null) {
goto next
}
goto again
:next
inc %wpmcount
set %wpminc 0
halt
:end
}
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
}
alias -l wpmunsets {
; unset %wpmbad*
}