On *:text:*:#: {
  if (!psycho iswm $1) {
    notice $nick To answer these questions, type !ans <answer>
    notice $nick Q1: What am I guessing? (A number between 1 and 100) 50 seconds to answer.
    set -u50 %physco1. $+ $nick $nick
    set -u50 %physco1ans. $+ $nick $nick
    set %rphysco $r(1,100)
  }
  elseif ($($+(%,physco1ans.,$nick),2) == $nick) {
    if $2 == %rphysco {
      Notice $nick 3Correct!
      notice $nick Q2: What am I guessing? (A number between 1 and 50) 50 seconds to answer.
      set -u500 %physco1. $+ $nick correct
      set -u50 %physco2ans. $+ $nick $nick
      set %rphysco $r(1,50)
      set -u %physco1ans. $+ $nick
    }
    else {
      Notice $nick 4Incorrect!
      notice $nick Q2: What am I guessing? (A number between 1 and 50) 50 seconds to answer.
      set -u500 %physco1. $+ $nick incorrect
      set -u50 %physco2ans. $+ $nick $nick
      set %rphysco $r(1,50)
      set -u %physco1ans. $+ $nick
    }
  }
  elseif ($($+(%,physco2ans.,$nick),2) == $nick) {
    if $2 == %rphysco {
      notice $nick Q3: What am I guessing? (A number between 1 and 500) 50 seconds to answer.
      set -u500 %physco2. $+ $nick correct
      set -u50 %physco3ans. $+ $nick $nick
      set %rphysco $r(1,500)
      set -u %physco2ans. $+ $nick
    }
    else {
      Notice $nick 4Incorrect!
      notice $nick Q3: What am I guessing? (A number between 1 and 500) 50 seconds to answer.
      set -u500 %physco2. $+ $nick incorrect
      set -u50 %physco3ans. $+ $nick $nick
      set %rphysco $r(1,500)
      set -u %physco2ans. $+ $nick
    }
  }
  elseif ($($+(%,physco3ans.,$nick),2) == $nick) {
    if $2 == %rphysco {
      notice $nick Q4: What am I guessing? (A number between 1 and 1000) 50 seconds to answer.
      set -u500 %physco3. $+ $nick correct
      set -u50 %physco4ans. $+ $nick $nick
      set %rphysco $r(1,1000)
      set -u %physco3ans. $+ $nick
    }
    else {
      Notice $nick 4Incorrect!
      notice $nick Q4: What am I guessing? (A number between 1 and 1000) 50 seconds to answer.
      set -u500 %physco3. $+ $nick incorrect
      set -u50 %physco4ans. $+ $nick $nick
      set %rphysco $r(1,1000)
      set -u %physco3ans. $+ $nick
    }
  }
  elseif ($($+(%,physco4ans.,$nick),2) == $nick) {
    if $2 == %rphysco {
      notice $nick Q5: What am I guessing? (A number between 1 and 10) 50 seconds to answer.
      set -u500 %physco4. $+ $nick correct
      set -u50 %physco5ans. $+ $nick $nick
      set %rphysco $r(1,10)
      set -u %physco4ans. $+ $nick
    }
    else {
      Notice $nick 4Incorrect!
      notice $nick Q5: What am I guessing? (A number between 1 and 10) 50 seconds to answer.
      set -u500 %physco4. $+ $nick incorrect
      set -u50 %physco5ans. $+ $nick $nick
      set %rphysco $r(1,10)
      set -u %physco4ans. $+ $nick
    }
  }
  elseif ($($+(%,physco5ans.,$nick),2) == $nick) {
    if (!ans iswm $1) {
      if ($($+(%,physco1.,$nick),2) == correct) {
        inc %result 25
      }
      if ($($+(%,physco2.,$nick),2) == correct) {
        inc %result 25
      }
      if ($($+(%,physco3.,$nick),2) == correct) {
        inc %result 25
      }
      if ($($+(%,physco4.,$nick),2) == correct) {
        inc %result 25
      }
      if %result < 50 {
        notice $nick You are %result $+ % physco! (No you are not physco.....)
      }
      if %result > 50 {
        notice $nick You are %result $+ % physco! (Yes you are not physco!!!!!)
      }
      set -u %physco5ans. $+ $nick
    }
  }
}