on *:text:.warn*:%ch: {
 if ( %ulvl > 100 ) {
  if ( $3 == 1){
 var %ru = $getid($2)
var %exp = $round($calc( -1 * $abs(10)),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 -5
}
if ( $3 == 2) { var %ru = $getid($2)
 var %exp = $round($calc( -1 * $abs(15)),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 -10
}
if ( $3 == 3) { var %ru = $getid($2)
 var %exp = $round($calc( -1 * $abs(20)),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 -15
}
}


alias get.cfrank {
  if ( $1 >= 100 ) { var %r = 100 }
  if ( $1 == 0 ) { var %r = Unvouched }
      return %r
}