; HLink Application Transmission Script
; MegaLosound -  script

failat 21

if exists work:applic/MegaLoSound/MegaLoSound

else
  if exists d:MegaloSound.Lha
  else
    ;remove rest of MegaLoSound from the system
    cd work:applic
    del MegaLo#? all

    ;Send archive & send script
    com "send NScript:megaLoSound.remote d:" >> hl:execute
    wait 2
    echo "run > nil: execute D:MegaLoSound.remote" >> hl:execute

    ;Wait for receive MegaLoSound archive
    lab LOOP
    if exists d:megaLoSound.lha
    else
      skip LOOP back
    endif
    wait 1
  endif

  wait 1
  echo "Unpacking Application to Work:Applic/ ... "
  wait 1
  lha x -T d:megaLoSound.lha work:applic/
  Move Work:Applic/MegaLoConfig.Dat Work:Applic/megaLoSound/
  wait 4

endif

cd work:applic/megalosound/
run > nil: MegaLoSound