Anonymous

alias F5 {
  reaction go 
}
on *:keydown:@Reaction:*:{ 
  if ($asc($keychar) == %keyloc) || ($keyval == %keyloc) {
    inc %keyscore
    inc %totalscore
    /aline 9 @reaction Correct
    /character
  }
  else { /aline 4 @reaction Wrong
  }
}
menu * {
  .Reaction tester
  ..Start: { /window -k0 +fxntb @reaction 
    /reaction 
  }
  ..Highscores: { /window -k0 +fxntb @Highscores 
    /showhighscore
  }
}
on *:close:@darting:{
  unset %y 
  unset %d
  unset %mouse.x
  unset %mouse.y
  unset %f
  unset %gameplayed
  unset %x
}