on *:text:.warn*:%ch: {
  if (%ulvl > 100) {
    if ($3 isnum 1-3) {
      var %abs = 20
      if ($1 == 1) { var %abs 10 }
      if ($1 == 2) { var %abs 15 }
      var %ru = $getid($2)
      var %exp = $round($calc(-1* $abs(%abs)),0)
      var %oldxp $user(%ru).exp
      noop $xsetuser(%ru,%exp).exp
      describe $chan user $2 just got warned by $nick with $3 Reason: $4 ,Experience points changed from %oldxp to $calc(%oldxp + %exp) and Reputation changed $calc(-1* (%abs -5))
    }
  }
}