Warn - Need help

[Guest]

I need Warn script for MTA:VC

plz help me

[lil Toady]

alias mta.warns !return $readini($scriptdir $+ mta.warns.ini,WARNINGS,$mta.name($1,$2))
on *:SIGNAL:mta.command:{
 var %a = $iif($4,$iif($mta.name($1,$4) != Unknown,$4,$mta.getid($1,$4)),$2)
 if ($3 == !warn) {
   if (%a == -1) mta.msg $1 $2 Error - Absent ID.
   elseif (%a == $2) mta.msg $1 $2 Error - Can't warn yourself.
   else {
     !writeini " $+ $scriptdir $+ mta.warns.ini" WARNINGS $mta.name($1,%a) $calc($mta.warns($1,%a) + 1)
     if ($mta.warns($1,%a) >= 3) {
       mta.say $1 Kicking $mta.name($1,%a) for reaching the warnings limit. $iif($5,Reason: $5-)
       mta.kick $1 %a
     }
     else mta.say $1 $mta.name($1,%a) $+ , $replace($mta.warns($1,%a),1,first,2,second,3,third) warning. $calc(3 - $mta.warns($1,%a)) more warnings and you will be kicked.
   }
 }
}