on *:text:!iq:#: {
  if (!%testing) {
    msg $nick Type !age your age
    set %testing $nick
    auser age %testing
  }
}
on age:text:!age*:?: {
  set %chronoage $2
  msg $nick In this IQ test you will be answering 10 questions, to proceed type 4Yes or 4No.
  auser yes %testing
}
on age:text:no:?: {
  .timer 1 1 unset %chronoage %testing
  ruser %testing
}
on yes:text:yes:?: {
  auser q1 %testing
  msg $nick Question one..
  .timer 1 2 msg $nick Which one of the five is least like the other four?
  .timer 1 3 msg $nick Dog, Mouse, Lion, Snake, Elephant.
}
on q1:text:*:?: {
  $iif($1 == snake, set %q1 3, set q1 0)
  msg $nick Question two..
  .timer 1 2 msg $nick What is the product of 4 and 3?
  .timer 1 2 msg $nick Input any answer.
  auser q1.5 %testing
}
on q1.5:text:*:?: {
  $iif($1 == 12, set %q2 3, set q2 0)
  auser q2 %testing
  msg $nick Question three..
  .timer 1 2 msg $nick If I have 3 apples and 12 mangoes, how many fruits do I have?
  .timer 1 2 msg $nick Input any answer.
}
on q2:text:*:?: {
  $iif($1 == 15, set %q3 3, %set q3 0)
  auser q2.5 %testing
  msg $nick Question four..
  .timer 1 2 msg $nick -5 + (+9)-(-8) is how much?
  .timer 1 2 msg $nick Input any answer.
}
on q2.5:text:*:?: {
  $iif($1 == -4, set %q4 3, %set q4 0)
  auser q3 %testing
  msg $nick Question five..
  .timer 1 2 msg $nick Which one of the five choices makes the best comparison?
  .timer 1 2 msg $nick Finger is to Hand as Leaf is to:
  .timer 1 3 msg $nick Twig, Tree, Branch, Blossom, Bark
}
on q3:text:*:?: {
  $iif($1 == branch, set %q5 3, %set q5 0)
  auser q4 %testing
  msg $nick Question six..
  .timer 1 2 msg $nick John needs 13 bottles of water from the store. John can only carry 3 at a time.
  .timer 1 2 msg $nick What's the minimum number of trips John needs to make to the store?
  .timer 1 3 msg $nick 3, 4, 4.5, 5, 6
}
on q4:text:*:?: {
  $iif($1 == 5, set %q6 3, set %q6 0)
  auser q4.5 %testing
  msg $nick Question seven..
  .timer 1 2 msg $nick If you rearrange the letters "LNGEDNA" you have the name of a(n):
  .timer 1 3 msg $nick Animal, Country, State, City, Ocean.
}
on q4.5:text:*:?: {
  $iif($1 == country, set %q7 4, %set %q7 0)
  auser q5 %testing
  msg $nick Question eight..
  .timer 1 2 msg $nick Choose the word most similar to "Trustworthy":
  .timer 1 3 msg $nick Resolute, Tenacity, Relevant, Insolent, Reliable.
}
on q5:text:*:?: {
  $iif($1 == reliable, set %q8 4, %set q8 0)
  auser q5.5 %testing
  msg $nick Question nine..
  .timer 1 2 msg $nick If you are using Excel, which function offers the most convenient and most popular approach for extracting data from other spreadsheets or workbooks without using the manual copy and paste method? This is a one word answer.
}
on q5.5:text:*:?: {
  $iif($1 == vlookup, set %q9 4, %set q9 0)
  auser q6 %testing
  msg $nick Question ten..
  .timer 1 2 msg $nick If a 65-year-old couple retires today, how much may they need today to cover their future health care cost?
  .timer 1 2 msg $nick This answer is only a figure and does not include a dollar sign.
}
on q6:text:*:?: {
  $iif($1 == 350000, set %q10 30, %set q10 0)
  set %mentalage $calc(%q1 + %q2 + %q3 + %q4 + %q5 + %q6 + %q7 + %q8 + %q9 + %q10)
  .timer 1 1 msg $nick Your IQ is: $calc((%mentalage / %chronoage)*100)
  ruser %testing
  .timer 1 1 unset %testing %q1 %q2 %q3 %q4 %q5 %q6 %q7 %q8 %q9 %q10 %mentalage %chronoage
}
 
 

Commenting Options