forum.boolean.name - WorldEditor v.1.0

Страница 2 из 2

Показывать 64 сообщений этой темы на одной странице

forum.boolean.name (http://forum.boolean.name/index.php)

- 3D-программирование (http://forum.boolean.name/forumdisplay.php?f=12)

- - WorldEditor v.1.0 (http://forum.boolean.name/showthread.php?t=13130)

maxturbo

14.08.2010 08:55

Ответ: WorldEditor v.1.0

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

Код:

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

14.08.2010 09:17

Ответ: WorldEditor v.1.0

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

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

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

maxturbo

14.08.2010 09:20

Ответ: WorldEditor v.1.0

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

GoddoG

14.08.2010 09:20

Ответ: WorldEditor v.1.0

Цитата:

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

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

maxturbo

14.08.2010 09:23

Ответ: WorldEditor v.1.0

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

GoddoG

14.08.2010 09:32

Ответ: WorldEditor v.1.0

Цитата:

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

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

Цитата:

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

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

maxturbo

14.08.2010 09:39

Ответ: WorldEditor v.1.0

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

GoddoG

14.08.2010 09:49

Ответ: WorldEditor v.1.0

Можно так:

Код:

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

19.08.2010 09:05

MapEditor v.0.01

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

Gector

19.08.2010 14:32

Ответ: WorldEditor v.1.0

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

maxturbo

19.08.2010 18:23

Ответ: WorldEditor v.1.0

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

IgorOK

19.08.2010 20:00

Ответ: WorldEditor v.1.0

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

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

Часовой пояс GMT +4, время: 19:21.

Страница 2 из 2

Показывать 64 сообщений этой темы на одной странице