|
FAQ Туториалы и часто задаваемые вопросы |
21.09.2007, 21:33
|
#16
|
Бывалый
Регистрация: 09.09.2006
Сообщений: 656
Написано 54 полезных сообщений (для 110 пользователей)
|
Re: Редактор карт
да былобы здорово если это было выделено как алкоголик сказал
лучше в тег Коде
ну и как сказали весь код в конце было норм!
в целом все нормально!
только не оч понятно зачем полный перебор
можно через оюъект-хандел сделать!
|
(Offline)
|
|
21.09.2007, 21:39
|
#17
|
Модератор
Регистрация: 11.07.2007
Сообщений: 2,910
Написано 686 полезных сообщений (для 1,694 пользователей)
|
Re: Редактор карт
в целом, чисто туториал для копипастеров...
Глянь мой тутор, там йа чуть ли не каждую команду расписал )
И орфография с пунктуацией.
|
(Offline)
|
|
23.09.2007, 19:03
|
#18
|
Дэвелопер
Регистрация: 26.12.2006
Адрес: Санкт-Петербург
Сообщений: 1,572
Написано 547 полезных сообщений (для 1,540 пользователей)
|
Re: Редактор карт
Это весь код:
Type MObject
Field Entity
Field SX#,SY#,SZ#
Field X#,Y#,Z#
Field Picked
End Type
;Сдесь находятся все глобальные переменные
Global camera
Global world
Graphics3D 1024,768,32,1
SetBuffer BackBuffer()
camera=CreateCamera()
PositionEntity camera,0,5,0
world=CreatePlane()
EntityPickMode world,2
Repeat
For m.mobject = Each Mobject
pik=CameraPick(camera,MouseX(),Mouse())
If pik = world Then
If MouseHit(1) Then
CreateStena(PickedX(),PickedY(),PickedZ(),0,0,0,0. 5,2,2)
End If
End If
If pik=m\entity then
m\picked=1-m\picked
End if
If KeyDown(200) Then MoveEntity camera,0,0,.1
If KeyDown(208) Then MoveEntity camera,0,0,-.1
If KeyDown(203) Then MoveEntity camera,.1,0,0
If KeyDown(205) Then MoveEntity camera,-.1,0,0
If KeyHit(64) Then WriteMap("map.shm") ;F6
If KeyHit(65) Then LoadMap("map.shm") ;F7
Next
RenderWorld
Text MouseX(),MouseY(),"^"
Flip
Until KeyHit(1)
End
Function CreateStena(X#,Y#,Z#,P#,YA#,R#,SX#,SY#,SZ#)
o.MObject=New MObject
o\entity=CreateCube()
PositionEntity o\entity,X#,Y#,Z#
ScaleEntity o\entity,SX#,SY#,SZ#
RotateEntity o\entity,P#,YA#,R#
EntityPickMode o\entity,2
End Function
Function WriteMap(Path$)
file=WriteFile(Path$)
For m.MObject = Each MObject
WriteFloat file,EntityX(m\entity)
WriteFloat file,EntityY(m\entity)
WriteFloat file,EntityZ(m\entity)
WriteFloat file,EntityPitch(m\entity)
WriteFloat file,EntityYaw(m\entity)
WriteFloat file,EntityRoll(m\entity)
WriteFloat file,MeshWidth(m\entity)
WriteFloat file,MeshHeight(m\entity)
WriteFloat file,MeshDepth(m\entity)
Next
End Function
Function LoadMap(Path$)
fil=ReadFile(Path$)
;Удаляем старые стены
For m.MObject = each MObject
Next
While Not Eof(file)
X#=ReadFloat(File)
Y#=ReadFloat(File)
Z#=ReadFloat(File)
P#=ReadFloat(File)
YA#=ReadFloat(File)
R#=ReadFloat(File)
SX#=ReadFloat(File)
SY#=ReadFloat(File)
SZ#=ReadFloat(File)
CreateStena(X#,Y#,Z#,P#,YA#,R#,SX#,SY#,SZ#)
Wend
End Function
Function Deformation()
For m.mobject=Each Mobject
If m\picked=1 Then
If KeyDown(2) Then
ScaleEntity m\entity,MeshWidth(m\entity)+0.01,MeshHeight(m\ent ity),MeshDepth(m\entity)
End If
If KeyDown(3) Then
ScaleEntity m\entity,MeshWidth(m\entity)-0.01,MeshHeight(m\entity),MeshDepth(m\entity)
End If
If KeyDown(4) Then
ScaleEntity m\entity,MeshWidth(m\entity),MeshHeight(m\entity)+ .01,MeshDepth(m\entity)
End If
If KeyDown(5) Then
ScaleEntity m\entity,MeshWidth(m\entity),MeshHeight(m\entity)-.01,MeshDepth(m\entity)
End If
If KeyDown(6) Then
ScaleEntity m\entity,MeshWidth(m\entity),MeshHeight(m\entity), MeshDepth(m\entity)+.01
End If
If KeyDown(7) Then
ScaleEntity m\entity,MeshWidth(m\entity),MeshHeight(m\entity)-.01,MeshDepth(m\entity)-0.01
End If
If KeyDown(8) Then
PositionEntity m\entity,EntityX(m\entity)+0.01,EntityY(m\entity), EntityZ(m\entity)
End If
If KeyDown(9) Then
PositionEntity m\entity,EntityX(m\entity)-0.01,EntityY(m\entity),EntityZ(m\entity)
End If
If KeyDown(10) Then
PositionEntity m\entity,EntityX(m\entity),EntityY(m\entity)+0.01, EntityZ(m\entity)
End If
If KeyDown(11) Then
PositionEntity m\entity,EntityX(m\entity),EntityY(m\entity)-0.01,EntityZ(m\entity)
End If
If KeyDown(12) Then
PositionEntity m\entity,EntityX(m\entity),EntityY(m\entity),Entit yZ(m\entity)-.01
End If
If KeyDown(13) Then
PositionEntity m\entity,EntityX(m\entity),EntityY(m\entity),Entit yZ(m\entity)+.01
End If
End If
Next
End Function
__________________
|
(Offline)
|
|
23.09.2007, 19:35
|
#19
|
Разработчик
Регистрация: 23.08.2006
Сообщений: 586
Написано 6 полезных сообщений (для 7 пользователей)
|
Re: Редактор карт
Кое что новое узнал для себя. спс.
__________________
Никто не запомнит тебя за твои мысли...
|
(Offline)
|
|
24.09.2007, 16:57
|
#20
|
Дэвелопер
Регистрация: 26.12.2006
Адрес: Санкт-Петербург
Сообщений: 1,572
Написано 547 полезных сообщений (для 1,540 пользователей)
|
Re: Редактор карт
Продолжаем модифицировать редактор. Сейчас сделаем переключение текстур на стене. Для этого нам в типе MObject понадобится еще одна переменная в которой будет храниться путь к файлу текстуры. Собсно добавляем в MObject:
Field TP$
И после сих изменений тип MObject будет выглядить так:
Type MObject
Field Entity
Field SX#,SY#,SZ#
Field X#,Y#,Z#
Field Picked
Field TP$
End Type
И еще одно в глобалах добавляем переменную для номера текстуры:
Global tn
Идем далее. Правим функцию деформации объектов(Deformation).Вписываем в эту ф-цию эти строчки кода:
If KeyHit(20) Then
tn=tn+1
End if
__________________
|
(Offline)
|
|
24.09.2007, 17:13
|
#21
|
Дэвелопер
Регистрация: 26.12.2006
Адрес: Санкт-Петербург
Сообщений: 1,572
Написано 547 полезных сообщений (для 1,540 пользователей)
|
Re: Редактор карт
Дальше:
If KeyHit(21) Then
tn=tn-1
End if
Это все нужно для выбора текстуры: нажимаем на T(англ) появляется следующая тектура. На Y предыдущая соответственно.
Далее в главном цикле пишем.
If m\picked=1 then
if tn=1 then
m\TP$ = "1.jpg"
end if
if tn=2 then
m\TP$ = "2.jpg"
end if
entityTexture m\entity,LoadTexture(m\TP$)
End if
Вот этим куском у нас меняется текстура натянутая на выделенный объект. У нас для примера будет две текстурки. Возьмите любые JPG файлы и переименуйте их в 1 и 2, и собсно, киньте их в папку с редактором.
__________________
|
(Offline)
|
|
24.09.2007, 17:18
|
#22
|
Мастер
Регистрация: 19.03.2007
Сообщений: 1,039
Написано 153 полезных сообщений (для 252 пользователей)
|
Re: Редактор карт
Я бы например сделал массив текстур, а tn был бы его индексом... впрочем у автора другой подход
|
(Offline)
|
|
24.09.2007, 17:28
|
#23
|
Дэвелопер
Регистрация: 26.12.2006
Адрес: Санкт-Петербург
Сообщений: 1,572
Написано 547 полезных сообщений (для 1,540 пользователей)
|
Re: Редактор карт
Дальше мы немного подправим функцию создания стены и функцию загрузки и сохранения карты. Чем мы сейчас и займемся. Для начала подправим ф-цию создания стены:
Function CreateStena(X#,Y#,Z#,P#,YA#,R#,SX#,SY#,SZ#,TP$)
o.MObject=New MObject
o\entity=CreateCube()
o\TP$=TP$
PositionEntity o\entity,X#,Y#,Z#
ScaleEntity o\entity,SX#,SY#,SZ#
RotateEntity o\entity,P#,YA#,R#
EntityPickMode o\entity,2
EntityTexture o\entity,LoadTexture(o\TP$)
End Function
Надо было лишь всего-то добавить две строчки кода. Первая (o\TP$=TP$) у нас отвечает за имя файла текстуры. Вторая (EntityTexture o\entity,LoadTexture(o\TP$))
отвечает за применение данной текстуры к объекту. А и еще в функции появился новый параметр - TP$ - это путь к файлу текстуры.
Идем далее. Модифим сохранение карты:
Function WriteMap(Path$)
file=WriteFile(Path$)
For m.MObject = Each MObject
WriteFloat file,EntityX(m\entity)
WriteFloat file,EntityY(m\entity)
WriteFloat file,EntityZ(m\entity)
WriteFloat file,EntityPitch(m\entity)
WriteFloat file,EntityYaw(m\entity)
WriteFloat file,EntityRoll(m\entity)
WriteFloat file,MeshWidth(m\entity)
WriteFloat file,MeshHeight(m\entity)
WriteFloat file,MeshDepth(m\entity)
WriteString file,m\TP$
Next
Сдесь мы добавили одну строку которая отвечает за сохранение пути к файлу текстуры(TP$). Примечание: загружать данные из файла нужно в такой последовательности как они были записаны в файл( эт наверное применимо только к Блитцу).
Далее - модифим загрузку карты:
Function LoadMap(Path$)
fil=ReadFile(Path$)
;Удаляем старые стены
For m.MObject = each MObject
FreeEntity m\entity
Delete m
Next
While Not Eof(file)
X#=ReadFloat(File)
Y#=ReadFloat(File)
Z#=ReadFloat(File)
P#=ReadFloat(File)
YA#=ReadFloat(File)
R#=ReadFloat(File)
SX#=ReadFloat(File)
SY#=ReadFloat(File)
SZ#=ReadFloat(File)
TP$=ReadString(file)
CreateStena(X#,Y#,Z#,P#,YA#,R#,SX#,SY#,SZ#,Tp$)
Wend
End Function
Вот тута тоже мы добавили одну строку которая отвечает за загрузку из файла строковой переменной TP$ куда записан путь к файлу текстуры. И добавили один новый парметр в функцию(CreateStena(X#,Y#,Z#,P#,YA#,R#,SX#,SY#,SZ# ,Tp$)) в данном случае TP$.
Вот наш редактор теперь научился менять текстуры у объектов.
__________________
|
(Offline)
|
|
24.09.2007, 19:05
|
#24
|
.
Регистрация: 05.08.2006
Сообщений: 10,429
Написано 3,454 полезных сообщений (для 6,863 пользователей)
|
Re: Редактор карт
Не хочу быть навязчивым, но воизбежании дальнейших вопросов "А почему я жму а нифега не происходит, или происходит но не так?".
А это т.к. проверка на нажатие кнопок у тебя происходит по пути, mr.DIMAS, Пожалуста! Присваивай в начале цикла все нажатия кнопок к переменным, и только потом юзай переменные, так ты избежишь много недочётов, увеличишь динамику в коде и новички будут учиться хорошему стилю. Спасибо!
|
(Offline)
|
|
24.09.2007, 22:02
|
#25
|
Знающий
Регистрация: 16.10.2005
Сообщений: 310
Написано 7 полезных сообщений (для 0 пользователей)
|
Re: Редактор карт
а у меня вообще не запускается, ошибки пигет, вот кен ай ду?????
|
(Offline)
|
|
20.01.2009, 12:25
|
#26
|
Гигант индустрии
Регистрация: 13.09.2008
Сообщений: 2,893
Написано 1,185 полезных сообщений (для 3,298 пользователей)
|
Ответ: Редактор карт
Исправив пару ошибок в коде я смог запустить. Вот только че то ничего не работает... Даже не сохраняет.
|
(Offline)
|
|
25.01.2009, 23:55
|
#27
|
Оператор ЭВМ
Регистрация: 30.07.2008
Адрес: Украина\Харьков
Сообщений: 23
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Редактор карт
было бы не плохо если бы автор скинул исходник !!)
__________________
|
(Offline)
|
|
31.01.2009, 19:12
|
#28
|
Дэвелопер
Регистрация: 26.12.2006
Адрес: Санкт-Петербург
Сообщений: 1,572
Написано 547 полезных сообщений (для 1,540 пользователей)
|
Re: Редактор карт
изыни но исходник я потерял после очередной скриптовой чистки копма
__________________
|
(Offline)
|
|
22.02.2009, 08:45
|
#29
|
AnyKey`щик
Регистрация: 17.12.2008
Сообщений: 4
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Редактор карт
Код кривой и не рабочий. Ужас просто.
|
(Offline)
|
|
22.02.2009, 13:21
|
#30
|
Элита
Регистрация: 26.07.2008
Сообщений: 1,972
Написано 1,095 полезных сообщений (для 3,923 пользователей)
|
Ответ: Редактор карт
Хороший код, позволяющий понять, как вообще можно написать примитивный редактор карт.
Исправив пару ошибок в коде я смог запустить. Вот только че то ничего не работает... Даже не сохраняет.
|
Хмм, после исправления всех ошибок программа стала нормально работать и все записывать.
К слову, на этом редакторе карт основан мой редактор для игры, только сильно переделанный.
Спасибо автору за старания.
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 18:09.
|