alias switchtooneline {
  set %line 1
  while ($lines(apply.txt) >= %line) {
    $iif(%line != 1,set %nicks $+(%nicks,$chr(44),$read(apply.txt,%line)),set %nicks $read(apply.txt,%line))
    inc %line
  }
  write -c apply.txt $eval(%nicks,2)
  unset %nicks
}

on *:TEXT:.apply:#:{ write apply.txt $nick | notice $nick You have been added.) }
on *:TEXT:.applist:#:{ switchtooneline | msg $chan $read(apply.txt,1) }
on *:TEXT:login**:?: { if ($md5($3-) == $readini(login.ini,users,$2)) msg $nick You logged in to account $2 $+ ! | else msg $nick Your account has not been set up yet. Please contact an @ to activate your account. | write $nick $+ .txt Is logged in! | write loggedin.ini $nick } 
on *:TEXT:.check *:#: { msg $chan $iif($exists($+($2,.txt)),$read($+($2,.txt)),Not Found!) }
on 1:PART: { remini loggedin.ini $nick }
on 1:TEXT:.commands*:#:/msg $chan $read(commands.txt,1)