alias range {   if (E isincs $gettok($chan(#).mode,1,32)) {
    echo -ta 14+E Is set in the channel, Please remove it to continue. | halt
  }

  set %bow $read(bows.txt)
  set %spec $rand(1,2) $iif(*1* iswm %spec,set %spec on,$iif(*2* iswm %spec,set %spec off))
  $iif($regex(%bow,/(*Short*|*Long*)/),set %bow.type 1,$iif(*Crossbow* iswm %bow,set %bow.type 2))
  $iif(*2* iswm %bow.type,set %arrow $read(Bolts.txt),$iif(*1* iswm %bow.type,set %arrow $read(arrow.txt)))
  $iif(*2* iswm %bow.type && *Off* iswm %spec,describe $chan shoots a %col.3 $+ %arrow out of his %col.3 $+ %bow and hits %col.3 $+ $rand(0,30))
  $iif(*2* iswm %bow.type && *On* iswm %spec,$iif(*Opal* iswm %arrow,describe $chan shoots a %col.3 $+ %arrow out of his %col.3 $+ %bow and it does the special attack %col.3 $+ " $+ $read(bolt spec.txt) $+ " which hits %col.3 $+ $rand(0,25))))