Typing Test

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Mar 15, 2008
Last Updated	Mar 15, 2008
Tags	mirc test type typing

Introduction

Typing Test
A basic Typing Test for mIRC... let's see who's best. ;D

To install,
Press Alt+R, put the snippet in the Remotes
Then use '/type' or right click on channel and click Typing Test

Grab the Code

;Typing Test Made By BlueThen
;Copyright October 23, 2007 9:32 PM
;Last updated March 15, 2008
;Please do not distribute, copy, or publish this without my permission.
;Else I will track you down and freakin shoot you.
;If you paid for this, then you are a idiot and you were scammed.
;To install, 
;Press Alt+R, put the snippet in the Remotes
;Then use '/type' or right click on channel and click Typing Test
;bluethen.the-brotherhood.org
dialog TT {
  title "Typing Test"
  size -1 -1 196 111
  option pixels notheme
  edit "", 1, 87 56 24 20, center
  text "", 2, 111 56 100 17
  button "START!", 3, 30 83 65 25
  text "", 5, 89 32 19 17, center
  text "", 6, -14 56 100 17, right
  button "Grade", 7, 104 83 65 25, disable
  text "", 8, 108 32 19 17, center
  text "", 9, 126 32 19 17, center
  text "Made by", 10, 45 5 41 17
  button "BlueThen", 4, 87 5 65 17
}
on *:dialog:TT:sclick:4: {
  run http://bluethen.the-brotherhood.org/
}
on *:dialog:TT:sclick:7: {
  dialog -m TTS TTS
}
on *:dialog:TT:sclick:3: {
  set %first yes
  did -e TT 1
  set %time 0
  timer32 0 1 inc %time 1
  set %latet 0
  set %wrong 0
  set %right 0
  signal -n TT
}

on *:dialog:TT:edit:1: {
  set %char2 %char
  set %let $did(1)
  did -r TT 1
  if (%late == yes) {
    if (%first == yes) {
      set %first no
      goto skip
    }
    inc %latet 1
    did -a TT 6 LATE! 
  }
  if (%late != yes) {
    did -r TT 6
  }
  :skip
  if (%let != %char2) {
    inc %wrong 1
    did -a TT 2 WRONG!
  }
  if (%let == %char2) {
    inc %right 1
    did -a TT 2 CORRECT!
  } 
  signal -n TT
}
on *:SIGNAL:TT: {
  if (%time >= 30) {
    timer3? off
    did -e TT 7
    did -r TT 5
    did -r TT 8
    did -r TT 9
    did -b TT 1
    halt
  }
  set %late no
  set %char %next 
  set %next %nextn
  set %nextn $rand(a,z)
  did -r TT 5
  did -r TT 8
  did -r TT 9
  did -a TT 9 %nextn
  did -a TT 8 %next
  did -a TT 5 %char
  timer64 -h 1 500 set %late yes
}
dialog TTS {
  title "Statistics"
  size -1 -1 243 231
  option pixels notheme
  edit "Wrong", 1, 126 111 100 20, read
  text "Wrong", 2, 17 111 50 17, right
  edit "Time", 3, 126 27 100 20, read
  text "Time", 4, 17 27 50 17, right
  edit "Late", 5, 126 167 100 20, read
  text "Late", 6, 17 167 50 17, right
  edit "Right", 7, 126 83 100 20, read
  text "Right", 8, 17 83 50 17, right
  text "Grade", 9, 17 139 50 17, right
  edit "%", 10, 126 139 56 20, read autohs multi
  edit "F", 11, 199 139 27 20, read
  button "Close", 12, 89 195 65 25, cancel
  text "GRADE", 13, 71 3 100 17, center
  text "Total", 14, 17 55 50 17, right
  edit "Total", 15, 126 55 100 20, read
  text "%", 16, 182 139 12 17
}
on *:dialog:TTS:init:0: {
  did -r TTS 1
  did -a TTS 1 %wrong
  did -r TTS 3
  did -a TTS 3 %time
  did -r TTS 5
  did -a TTS 5 %latet
  did -r TTS 7
  did -a TTS 7 %right
  set %total $calc(%right + %wrong)
  did -r TTS 15
  did -a TTS 15 %total
  set %perce $calc(%right / %total * 100)
  set %perce $calc(%perce - 0. $+ %latet)
  did -r TTS 10
  did -a TTS 10 %perce
  if (%perce >= 95) {
    set %grade A
  }
  if ((%perc >= 90) && (%perce < 95)) {
    set %grade A-
  }
  if ((%perc >= 85) && (%perce < 90)) {
    set %grade B+
  }
  if ((%perc >= 80) && (%perce < 85)) {
    set %grade B
  }
  if ((%perc >= 75) && (%perce < 80)) {
    set %grade B-
  }
  if ((%perc >= 70) && (%perce < 75)) {
    set %grade C+
  }
  if ((%perc >= 65) && (%perce < 70)) {
    set %grade C
  }
  if ((%perc >= 60) && (%perce < 65)) {
    set %grade C-
  }
  if ((%perc >= 55) && (%perce < 60)) {
    set %grade D+
  }
  if ((%perc >= 50) && (%perce < 55)) {
    set %grade D
  }
  if ((%perc >= 45) && (%perce < 50)) {
    set %grade D-
  }
  if (%perce <= 45) {
    set %grade F
  }
  did -r TTS 11
  did -a TTS 11 %grade
}
alias type {
  dialog -m TT TT
}
menu Channel {
  Typing Test:/dialog -m TT TT
}

Comments

(2) RSS

Go to Bottom

mountaindew

Comments: 1,550

mIRC Snippet: Typing Test
Posted on Mar 16, 2008 3:39 pm

When does \"grade\" come up?

BlueThen

Comments: 310

mIRC Snippet: Typing Test
Posted on Mar 16, 2008 9:32 pm

The number of right characters divided by the number total times one hundred minus the late times 0.01.

Typing Test

Introduction

Grab the Code

Comments

BlueThen

My Snippet Tags

Contact

Friends (9)

Sponsors

		Everything and Anything (8th Grade)
Last seen: Sep 06, 2008 Profile \| Website Likes (5) Friends (9) Scripts (1) Snippets (38) Images (46) Comments Received (598) Comments Submitted (310) Forum Posts (109)