All pastes #439272 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-04-14 03:37 UTC
rendered paste body
menu * { 
  Typing speed tester: { 
    /window -CEk0 +fsebt @Typtester 
    /aline 4 @typtester U just started the typing tester, u got 5 seconds to typ in every word:O 
    /aline 4 @typtester Make urself ready we start in 5 seconds! the words are Case-Sensitive 
    /aline 4 @typtester Good luck! 
    /typwords 
    /typtester 
  } 
} 
alias typtester { 
  .timer 30 5 /rline 7 @typtester 3 $!read(words.txt) 
  .timer 1 151 /aline 8 @typtester times up! u had $+(%,typcount) Words correct! That are $calc( $+(%,typcount) / 150) words per second. | /rline 7 @typtester \/ 3 Times up ur Score! \/ 
} 
on *:input:@typtester:{ 
  if ($1 === $line(@typtester,3)) { 
    inc %typcount 
    /rline 9 @typtester 3 Nice $nick $+ . U got it correct! 
  } 
  else { /rline 4 @typtester 3 Aw $nick $+ . U got it wrong! 
  } 
} 
alias typwords { 
  if (%typer === $null) { 
    set %typer yoo dont delete this else u up ur typ tester. 
    /write words.txt Hatetolove 
    /write words.txt Heaven 
    /write words.txt Hell 
    /write words.txt MircScripting 
    /write words.txt Dynamic 
    /write words.txt Checker 
    /write words.txt Men&Woman 
    /write words.txt Interesting 
    /write words.txt Satisfied 
    /write words.txt SwiftIrc 
    /write words.txt Kerstmade 
    /write words.txt Vision 
    /write words.txt Amplifier 
    /write words.txt Typtester 
    /write words.txt Window 
  } 
} 
on *:close:@typtester:{ /timers off 
  /unset %typcount 
}