;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;									     ;
 ; SKRYPT ROZPAKOWYWUJÂCY ARCHIWA !!!					     ;
 ;									     ;
 ; C1996 by Heidica®							     ;
 ;									     ;
 ;									     ;
 ;									     ;
 ; Rozpoznaje:								     ;
 ;	      LHA,LZH,LZX,DMS,ZIP,ARJ					     ;
 ;	      								     ;
 ;									     ;
 ;  Sposoby uûycia:							     ;
 ;									     ;
 ; UnPack wykorzystuje sië poprzez np:wpisanie go jako funkcjë w FM !	     ;
 ;									     ;
 ;									     ;
 ;  Uwagi!:							     	     ;
 ;									     ;
 ;  Show-Play wymaga komendy "Search, która powinna znajdowaê sië w C:, oraz ;
 ; komendy TalkPL! (jeûeli jej nie masz, to moûesz jâ zgraê np: z CeDeka     :
 ; ACSCover1!)                                                               ;
 ;									     ;
 ;									     ;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


.key plik/a

Echo >RAM:Plik <plik>

   Echo >>Sys:T/Szpieg.log ""
   Date >>Sys:T/Szpieg.log
   If not exists Sys:WBStartup/KartaTurbo
     Echo >>Sys:T/Szpieg.log " Prawdopodobnie nie masz dopaîu!, wiëc data moûe sië niezgadzaê!!!"
   EndIf
   Echo >>Sys:T/Szpieg.log "Uûytkownik próbuje rozpakowaê plik - " <plik>

If exists Sys:Muzyka/Sample/Systemowe/Rozp.Archiwum.8SVX
  Run Sound Sys:Muzyka/Sample/Systemowe/Rozp.Archiwum.8SVX
 Else
  Echo ""
  Echo " Brak pliku Rozp.Archiwum.8SVX w katalogu Muzyka/Sample/Systemowe"
  Echo " na partycji DH0:! (startowej)"
  Echo ""
EndIf


 Resident >NIL: C:Search PURE


Search >NIL: RAM:Plik ".lha"

If NOT warn

Run >NIL: TalkPL TEXT="Hejdico, to jest archjiwum L.H.A!" FREQ=28000 PITCH=70
Echo ""
Echo " Heidico, to jest archiwum LHA !"
Echo " Rozpakujë je !"
Echo ""

LHA x <plik>

EndIf


Search >NIL: RAM:Plik ".lzh"

If NOT warn

Run >NIL: TalkPL TEXT="Hejdico, to jest archjiwum L.Z.H!" FREQ=28000 PITCH=70
Echo ""
Echo " Heidico, to jest archiwum LZH !"
Echo " Rozpakujë je !"
Echo ""

LHA x <plik>

EndIf
    

Search >NIL: RAM:Plik ".lzx"

If NOT warn

Run >NIL: TalkPL TEXT="Hejdico, to jest archjiwum L.Z.X!" FREQ=28000 PITCH=70
Echo ""
Echo " Heidico, to jest archiwum LZX !"
Echo " Rozpakujë je !"
Echo ""

LZX x <plik>

EndIf


Search >NIL: RAM:Plik ".dms"

If NOT warn

Run >NIL: TalkPL TEXT="Hejdico, to jest archjiwum DeeMeS!" FREQ=28000 PITCH=70
Echo ""
Echo " Heidico, to jest archiwum DMS !"
Echo " Rozpakujë je !"
Echo ""

DMS WRITE <plik> TO DF0: NOVERIFY

EndIf


Search >NIL: RAM:Plik ".ZIP"

If NOT warn

Run >NIL: TalkPL TEXT="Hejdico, to jest archjiwum ZJP!" FREQ=28000 PITCH=70
Echo ""
Echo " Heidico, to jest archiwum ZIP !"
Echo " Rozpakujë   je !"
Echo ""

unZIP <plik>

EndIf


Search >NIL:  RAM:Plik ".ARJ"

If NOT warn

Run >NIL: TalkPL TEXT="Hejdico, to jest archjiwum A.R.J!" FREQ=28000 PITCH=70
Echo ""
Echo " Heidico, to jest archiwum ARJ !"
Echo " Rozpakujë je !"
Echo ""

unARJ x -c <plik>

EndIf



 Resident Search REMOVE