/*
	PerfectPaint Script
	Make texture preview
*/

	options results
	parse ARG Path b

name="ram:script"
	
ADDRESS COMMAND 'List >'||name||' '||Path||' NOHEAD LFORMAT="%s"'
ADDRESS COMMAND 'Sort 'name' 'name'.s'

i=0
IF OPEN('listfile',name'.s') THEN DO
	DO FOREVER
		fline = READLN('listfile')
		IF EOF('listfile') THEN BREAK
		IF RIGHT(fline,5)~=".info" THEN DO
			i=i+1
			nom.i=fline
		END
	END
	CALL CLOSE('listfile')
END

file='T:HELP.guide'
CALL OPEN(out,file,write)

CALL WRITELN(out,"@DATABASE HELP.guide")
CALL WRITELN(out,'@NODE "Main" "Help"')
CALL WRITELN(out,' ')
CALL WRITELN(out,'   @{B}Select a Texture@{UB}')
CALL WRITELN(out,' ')
CALL WRITELN(out,"__________________________________________________________________________")
CALL WRITELN(out,"@{FG SHINE}ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ@{FG TEXT}")
do j=1 to i
	data2=Path||'/'||nom.j
	data='@{" '||nom.j||' "  link "'||data2||'/Main" 0}'
	CALL WRITELN(out,data)
end
CALL WRITELN(out,"__________________________________________________________________________")
CALL WRITELN(out,"@{FG SHINE}ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ@{FG TEXT}")

CALL WRITELN(out,"@ENDNODE")

CALL CLOSE(out)

ADDRESS COMMAND	'delete >nil: ram:script'
ADDRESS COMMAND	'delete >nil: ram:script.s'