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 $r(1,2) 
  $iif(*1* iswm %spec,set %spec on,set %spec off)
  if (*Short* iswm %bow) || (*Long* iswm %bow) { set %Bow.type 1 }
  elseif (*Crossbow* iswm %bow) { set %bow.type 2 } 
  elseif (*Crystal* iswm %bow) { set %bow.type 3 }
  elseif (*Dark* iswm %bow) { set %bow.type 4 }
  elseif (*Javelin* iswm %bow) { set %bow.type 5 }
  elseif (*Dart* iswm %bow) { set %bow.type 6 }
  elseif (*Knife* iswm %bow) { set %bow.type 7 }
  elseif (*Chin* iswm %bow) { set %bow.type 8 }
  elseif (*Toktz* iswm %bow) { set %bow.type 9 }
  if (1 iswm %bow.type) { set %arrow $read(arrow.txt) }
  elseif (2 iswm %bow.type) { set %arrow $read(bolts.txt) }
  elseif (4 iswm %bow.type) { set %arrow $read(arrow.txt) }

  if (1 iswm %bow.type) && (*Off* iswm %spec) || (*On* iswm %spec) { describe $chan fires at %col.3 $+ $1 with his %col.3 $+ %bow and %col.3 $+ %arrow which hits %col.3 $+ $r(0,25) }
  if (1 iswm %bow.type) && (*On* iswm %spec) && (*Magic* iswm %bow) && (*Short* iswm %bow) { describe $chan fires at %col.3 $+ $1 with his %col.3 $+ %bow and %col.3 $+ %arrow and does the special which hits %col.3 $+ $r(0,25) - %col.3 $+ $r(0,25) | halt } 
  if (1* iswm %bow.type) && (*On* iswm %spec) && (*Magic* iswm %bow) && (*Long* iswm %bow) { describe $chan fires at %col.3 $+ $1 with his %col.3 $+ %bow and %col.3 $+ %arrow and does the special which hits %col.3 $+ $r(0,30) | halt }
  if (3 iswm %bow.type) { describe $chan fires at %col.3 $+ $1 with his %col.3 $+ %bow which hits %col.3 $+ $r(0,30)  | halt }

  if (4 iswm %bow.type) && (*On* iswm %spec) { describe $chan fires at %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow and does the special which hits %col.3 $+ $r(0,50) - %col.3 $+ $r(0,50) | halt }
  elseif (4 iswm %bow.type) && (*Off* iswm %spec) { describe $chan fires at %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow which hits %col.3 $+ $r(0,30) - %col.3 $+ $r(0,30) | halt }

  if (2 iswm %bow.type) && (*Off* iswm %spec) { describe $chan fires at  %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow which hits %col.3 $+ $r(0,40) | halt } 
  elseif (2 iswm %bow.type) && (*On* iswm %spec) && (*Opal* iswm %arrow) { describe $chan fires at  %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow which does the special %col.3 $+ $read(bolt specs.txt, 1) which hits %col.3 $+ $r(0,40) | halt }
  elseif (2 iswm %bow.type) && (*On* iswm %spec) && (*Jade* iswm %arrow) { describe $chan fires at  %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow which does the special %col.3 $+ $read(bolt specs.txt, 2) which hits %col.3 $+ $r(0,45) | halt }
  elseif (2 iswm %bow.type) && (*On* iswm %spec) && (*Pearl* iswm %arrow) { describe $chan fires at  %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow which does the special %col.3 $+ $read(bolt specs.txt, 3) which hits %col.3 $+ $r(0,45) | halt }
  elseif (2 iswm %bow.type) && (*On* iswm %spec) && (*Topaz* iswm %arrow) { describe $chan fires at  %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow which does the special %col.3 $+ $read(bolt specs.txt, 4) which hits %col.3 $+ $r(0,50) | halt }
  elseif (2 iswm %bow.type) && (*On* iswm %spec) && (*Sap* iswm %arrow) { describe $chan fires at  %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow which does the special %col.3 $+ $read(bolt specs.txt, 5) which hits %col.3 $+ $r(0,55) | halt }
  elseif (2 iswm %bow.type) && (*On* iswm %spec) && (*Emerald* iswm %arrow) { describe $chan fires at  %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow which does the special %col.3 $+ $read(bolt specs.txt, 6) which hits %col.3 $+ $r(0,55) | halt }
  elseif (2 iswm %bow.type) && (*On* iswm %spec) && (*Ruby* iswm %arrow) { describe $chan fires at  %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow which does the special %col.3 $+ $read(bolt specs.txt, 7) which hits %col.3 $+ $r(0,60) | halt }
  elseif (2 iswm %bow.type) && (*On* iswm %spec) && (*Diamond* iswm %arrow) { describe $chan fires at  %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow which does the special %col.3 $+ $read(bolt specs.txt, 8) which hits %col.3 $+ $r(0,65) | halt }
  elseif (2 iswm %bow.type) && (*On* iswm %spec) && (*Dragon* iswm %arrow) { describe $chan fires at  %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow which does the special %col.3 $+ $read(bolt specs.txt, 9) which hits %col.3 $+ $r(0,70) | halt }
  elseif (2 iswm %bow.type) && (*On* iswm %spec) && (*Onyx* iswm %arrow) { describe $chan fires at  %col.3 $+ $1 with his %col.3 $+ %bow with %col.3 $+ %arrow which does the special %col.3 $+ $read(bolt specs.txt, 10) which hits %col.3 $+ $r(0,75) | halt }

  if (5 iswm %bow.type) && (*On* iswm %spec) { describe $chan throws his %col.3 $+ %bow at %col.3 $+ $1 which hits %col.3 $+ $r(0,15) | halt }
  elseif (5 iswm %bow.type) && (*Off* iswm %spec) { describe $chan throws his %col.3 $+ %bow at %col.3 $+ $1 which hits %col.3 $+ $r(0,15) | halt }

  if (6 iswm %bow.type) && (*On* iswm %spec) { describe $chan throws his %col.3 $+ %bow at %col.3 $+ $1 which hits %col.3 $+ $r(0,20) | halt }
  elseif (6 iswm %bow.type) && (*Off* iswm %spec) { describe $chan throws his %col.3 $+ %bow at %col.3 $+ $1 which hits %col.3 $+ $r(0,20) | halt }

  if (7 iswm %bow.type) && (*On* iswm %spec) { describe $chan throws his %col.3 $+ %bow at %col.3 $+ $1 which hits %col.3 $+ $r(0,30) | halt }
  elseif (7 iswm %bow.type) && (*Off* iswm %spec) { describe $chan throws his %col.3 $+ %bow at %col.3 $+ $1 which hits %col.3 $+ $r(0,30) | halt }

  if (8 iswm %bow.type) && (*On* iswm %spec) { describe $chan throws his %col.3 $+ %bow at %col.3 $+ $1 which hits %col.3 $+ $r(0,15) | halt }
  elseif (8 iswm %bow.type) && (*Off* iswm %spec) { describe $chan throws his %col.3 $+ %bow at %col.3 $+ $1 which hits %col.3 $+ $r(0,15) | halt }

  if (9 iswm %bow.type) && (*On* iswm %spec) || { describe $chan throws his %col.3 $+ %bow at %col.3 $+ $1 which hits %col.3 $+ $r(0,25) | halt }
  elseif (9 iswm %bow.type) && (*Off* iswm %spec) { describe $chan throws his %col.3 $+ %bow at %col.3 $+ $1 which hits %col.3 $+ $r(0,25) | halt }

}