on *:text:*:#: {
  var %m msg $chan
  if ($me == Gervasio) {
    if ($1 == .start) {
      set %q $rand(1,3)
      if (%q == 1) %m Qual a dorga mais forte?
      if (%q == 2) %m Qual a dorga mais bonita
      if (%q == 3) %m Qual a dorga mais coisita
    }
    if (($1 == heroína) && (%q == 1)) {
      set $+(%,$nick,.score) $calc($($+(%,$nick,.score),2) + 1)
      set $+(%,$nick,.all) $+($nick,-,$($+(%,$nick,.score),2))
      set $+(%,$nick,.prev) $reptok($($+(%,$nick,.all),2),$($+(%,$nick,.score),2),$calc($($+(%,$nick,.score),2) - 1),1,45)
      if ($istok(%score,$($+(%,$nick,.prev),2),32) == $false) set %score %score $($+(%,$nick,.all),2) /
      else set %score $reptok(%score,$($+(%,$nick,.all),2),$($+(%,$nick,.all),3),1,32)
      %m Parabéns $nick $+ ! Está correcto! %score
    }
    if (($1 == marijuana) && (%q == 2)) {
      set $+(%,$nick,.score) $calc($($+(%,$nick,.score),2) + 1)
      set $+(%,$nick,.all) $+($nick,-,$($+(%,$nick,.score),2))
      set $+(%,$nick,.prev) $reptok($($+(%,$nick,.all),2),$($+(%,$nick,.score),2),$calc($($+(%,$nick,.score),2) - 1),1,45)
      if ($istok(%score,$($+(%,$nick,.prev),2),32) == $false) set %score %score $($+(%,$nick,.all),2) /
      else set %score $reptok(%score,$($+(%,$nick,.all),2),$($+(%,$nick,.all),3),1,32)
      %m Parabéns $nick $+ ! Está correcto! %score
    }
    if (($1 == cocaína) && (%q == 3)) {
      set $+(%,$nick,.score) $calc($($+(%,$nick,.score),2) + 1)
      set $+(%,$nick,.all) $+($nick,-,$($+(%,$nick,.score),2))
      set $+(%,$nick,.prev) $reptok($($+(%,$nick,.all),2),$($+(%,$nick,.score),2),$calc($($+(%,$nick,.score),2) - 1),1,45)
      if ($istok(%score,$($+(%,$nick,.prev),2),32) == $false) set %score %score $($+(%,$nick,.all),2) /
      else set %score $reptok(%score,$($+(%,$nick,.all),2),$($+(%,$nick,.all),3),1,32)
      %m Parabéns $nick $+ ! Está correcto! %score
    }
  }
}