alright this is the far im gonna get, can someone else help us with the dcc chat and also check over myscript as well
Code:
 
#ServerChecker off 
on *:text:!collect:#:{ 
  var %a = $nick($chan,v,0) 
  while %a { 
    .write -s $+ $nick($chan,v,%a) ToCheck.txt $nick($chan,v,%a) 
    inc %a 
  } 
} 
on *:text:!begin &:*:{ 
  if $2 !isnum { .msg $nick Format: !begin <number> } 
  else { 
    set %a $2 
    while %a { 
      set %b $lines(ToCheck.txt) 
      while %b { 
        check.voice %a %b 
        inc %b 
      } 
      inc %a 
    } 
  } 
} 
alias check.voice { 
  .enable #ServerChecker.1 
  ctcp $read(ToCheck.txt,%b) !list 
} 
#ServerChecker end 
#ServerChecker.1 off 
on *:text:*:?:{ 
  var %text = $pos($1-,/,1) 
  while %text <= $len($1-) && %text isnum { 
    if $mid($1-,%text,1) !isalnum { 
      set %text $mid($1-,$pos($1-,/,1),%text) 
    } 
    if %text isnum { 
      inc %text 
    } 
  } 
  /ctcp $(%text,2) 
} 
on *:notice:*:?:{ 
  var %text = 1 
  while %text <= $len($1-) && %text isnum { 
    if $mid($1-,%text,1) !isalnum { 
      set %text $mid($1-,1,%text) 
    } 
    if %text isnum { 
      inc %text 
    } 
  } 
} 
#ServerChecker.1 end