WorldEditor v.1.0

[maxturbo]

Вот сделал по своему!

mesh_lib$=CurrentDir()+"MESH\"
mesh_dir$=ReadDir(mesh_lib$) 
lib_fele$=WriteFile("LIB\main.txt")
Repeat
mesh_file$=NextFile(mesh_dir$)
If mesh_file$="" Then Exit 
If FileType(mesh_lib$+""+mesh_file$) = 1 Then
meshb3d$=Right$(mesh_file$,4)
mesh3ds$=Right$(mesh_file$,4)
If meshb3d$=".b3d" Or mesh3ds$=".3ds"
Print "File:" + mesh_file$
WriteLine(lib_fele$,mesh_file$)
EndIf
EndIf 
Forever
CloseDir mesh_dir$

[GoddoG]

Не работает? это потому что ты не хочешь думать!!!

file$=наши файлы b3d & 3ds
If RSet$(file$,4)=".b3d" Or RSet$(file$,4)=".3ds"
Print "File:" + file$
EndIf

Выводим на экран только те файлы, которые имеют четыре символа в конце имени с права, и выглядят они так .b3d .3ds !!!

[maxturbo]

Не поверишь думать я еще умею но при чем тут команда RSet?

[GoddoG]

Записывает все имена считываемых файлов в один файл

Тебе это вообще зачем ?

[maxturbo]

Чтоб при запуске программы считывала все файлы из папки MESH и записывала их в отдельный файл!!!

[GoddoG]

Чтоб при запуске программы считывала все файлы из папки MESH и записывала их в отдельный файл!!!

Это не в файл, а в банк памяти надо записывать!!!

lib_fele$=WriteFile("LIB\main.txt")

На кой хрен ты стрингом lib_fele$ эту переменную обозначаешь!

[maxturbo]

А как в банк памяти надо записывать??

[GoddoG]

Можно так:

Function PokeString(bank,offset,s$)
	PokeInt bank,offset,Len(s$)
	For i = 1 To Len(s$)
		PokeByte(bank,offset+i+3, Asc(Mid$(s$,i,1)))
	Next
End Function

Function PeekString$(bank,offset)
	l = PeekInt(bank,offset)
	s$ = ""
	For i = 1 To l
		s$ = s$ + Chr$(PeekByte(bank,offset+i+3))
	Next
	Return s$
End Function

Global bankmeshFile=CreateBank(100)

PokeString(bankmeshFile,1,mesh_file$)

PeekString$(bankmeshFile,1) вместо readline()

[maxturbo]

Вот переделал меню программы и поменял название на MapEditor, пока не все реализовано но все же зацените
Да и еще при зажатой ПКМ-управление камерой
MapEditor v.0.01

[Gector]

А че такое маленькое окно?

[maxturbo]

Ну оно разворачивается!!!

[IgorOK]

А собственно программа для чего? Это планируется как 3д макс?

Просто подобных программ на блице полно и я до сих пор не понимаю для чего они нужны. Ну XWorld - понятно. Там лайтмап можно запечь, а вот создание примитивов - помоему бессмысленно. Всё то же самое есть в 3д максе.