34 lines
938 B
QBasic
34 lines
938 B
QBasic
cls
|
||
print"ð Terra Nova Sound Extractor"
|
||
print" written by RoboCop INDUSTRIES"
|
||
print
|
||
print"Extracts VOC-Files from the RESBRKxx-Files but works with all others, too."
|
||
print"Syntax: TNSE RESBRKxx.RES where xx is the number of the resource"
|
||
print
|
||
print"Opening ";command$;" ... ";
|
||
open "B",#1,command$
|
||
print"OK"
|
||
CurFil=0
|
||
open "O",#2,"Dummy.FCB"
|
||
1 get$ #1,6,Look$
|
||
seek #1,seek(1)-4
|
||
locate 8,1:print using"Byte ##########, \ \ ... ";seek(1);NextFile$;
|
||
' if LoLo=0 then LoLo=1 else LoLo=LoLo+2
|
||
' if LoLo>=79 then LoLo=1
|
||
' locate 9,LoLo:print Look$;" ";
|
||
if Look$="Creati" then
|
||
close #2
|
||
CurFil=CurFil+1
|
||
if CurFil=1 then kill "DUMMY.FCB"
|
||
NextFile$="VOC"+mid$(str$(CurFil),2,7)+".VOC"
|
||
open "O",#2,NextFile$
|
||
print#2,"Cr";
|
||
Crea=1
|
||
end if
|
||
if Crea=1 then Crea=0:goto 1
|
||
print#2,left$(Look$,2);
|
||
if eof(1) then goto 2
|
||
goto 1
|
||
2 close #1:close #2
|
||
print"Fertig!"
|
||
|