alias insult {
  if (!$exists(insultd.ini)) { echo -a Cannot find insults file (insultd.ini). Make sure its in the same dir as mirc.exe! | halt } 
  %bl4h.insadj1 = $readini(insultd.ini,adj,adj $+ $rand(1,$readini(insultd.ini,adj,total)))
  %bl4h.insadj1 = $gettok(%bl4h.insadj1,$rand(1,$gettok(%bl4h.insadj1,0,32)),32)
  %bl4h.insadj2 = $readini(insultd.ini,adj,adj $+ $rand(1,$readini(insultd.ini,adj,total)))
  %bl4h.insadj2 = $gettok(%bl4h.insadj2,$rand(1,$gettok(%bl4h.insadj2,0,32)),32)
  %bl4h.insamt = $readini(insultd.ini,amt,amt $+ $rand(1,$readini(insultd.ini,amt,total)))
  %bl4h.insamt = $gettok(%bl4h.insamt,$rand(1,$gettok(%bl4h.insamt,0,32)),32)
  %bl4h.insnoun = $readini(insultd.ini,noun,noun $+ $rand(1,$readini(insultd.ini,noun,total)))
  %bl4h.insnoun = $gettok(%bl4h.insnoun,$rand(1,$gettok(%bl4h.insnoun,0,32)),32)
  say $1, You are nothing but a $replace(%bl4h.insadj1,$chr(124),$chr(32)) $replace(%bl4h.insamt,$chr(124),$chr(32)) of $replace(%bl4h.insadj2,$chr(124),$chr(32)) $replace(%bl4h.insnoun,$chr(124),$chr(32))
}