on *:TEXT:!sniper*:#: {
  set %fate ass hand head foot chest leg knee
  describe $chan loads the Barrett M107 .50 Caliber sniper rifle.
  .timer 1 1 describe $chan gets in sniper postition.
  .timer 1 3 describe $chan is exactly $r(1,4) $+ . $+ $r(1234,5678)) miles away
  if ($2 ison $chan) {
    .timer 1 5 describe $chan finds his target, $2 
    .timer 1 7 describe $chan pulls the trigger.
    .timer 1 8 describe $chan hits $2 in the $gettok(%fate,$r(1,7),32)
    .timer 1 10 describe $chan owns $2 $+ .  Too bad nobody liked $2 $+ .
  }
  elseif ($2 !ison $chan) {
    set %target $nick($chan,$r(1,$nick($chan,0)))
    .timer 1 5 describe $chan finds his target, %target
    .timer 1 7 describe $chan pulls the trigger.
    .timer 1 8 describe $chan hits %target in the $gettok(%fate,$r(1,7),32)
    .timer 1 10 describe $chan owns %target $+ .  Too bad nobody liked %target $+ .
  }
}

if you dont supply $2, it picks a random nick from the channenl to set as the target :P

also instead of all those if fate ==... it put all the body parts in a variable and picks a random token from that variable