Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > Blitz3D > 3D-программирование

3D-программирование Вопросы, касающиеся программирования 3D мира

Ответ
 
Опции темы
Старый 17.06.2009, 14:11   #16
ken park
Оператор ЭВМ
 
Аватар для ken park
 
Регистрация: 17.06.2009
Сообщений: 34
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Камера...

почему?.. хм
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 14:12   #17
Sleepybear
ПроЭктировщик
 
Аватар для Sleepybear
 
Регистрация: 13.02.2009
Сообщений: 134
Написано 21 полезных сообщений
(для 22 пользователей)
Ответ: Камера...

Сообщение от NitE Посмотреть сообщение
дай полный код - помогу
Мне кажется или это действительно так сложно?
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 14:15   #18
NitE
злобный флудер
 
Регистрация: 10.07.2007
Сообщений: 2,585
Написано 789 полезных сообщений
(для 1,476 пользователей)
Ответ: Камера...

почему?.. хм
хм, интеренсый вопрос... хм.. попробуй удали модель и запусти игру... хм.. неработает.. ну вот и у меня неработает... хм

......... залей её куданить и тексутру травы тоже, мне там парится неохота - нужна помощь, так хоть это сделай...

Sleepybear, нет, совсем не сложно )
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 14:21   #19
pitonms
Знающий
 
Аватар для pitonms
 
Регистрация: 15.06.2009
Адрес: Санкт-Петербург
Сообщений: 291
Написано 36 полезных сообщений
(для 66 пользователей)
Ответ: Камера...

Сообщение от NitE Посмотреть сообщение
ну и модель тоже ё-маё, без неё не работает
Ты что бы проверить ???
user=createsphere()
и проверяй
__________________
Мой сайт : http://lavr-studio.ucoz.ru/
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 14:21   #20
ken park
Оператор ЭВМ
 
Аватар для ken park
 
Регистрация: 17.06.2009
Сообщений: 34
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Камера...

какая разница какая модель, можно же хоть куб вставить и вместо текстуры цвет положить... ХМ!
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 14:29   #21
Sleepybear
ПроЭктировщик
 
Аватар для Sleepybear
 
Регистрация: 13.02.2009
Сообщений: 134
Написано 21 полезных сообщений
(для 22 пользователей)
Ответ: Камера...

Сижу на работе не могу кидать вложения у меня прокся ругается

Graphics3D 800,600,32,0

User=LoadMesh("markio\mariorun.x")
ScaleEntity User,.1,.1,.1
Pivot=CreatePivot(User)
PositionEntity pivot,0,50,-100
Camera=CreateCamera()

ground=CreateCube()
tex=LoadTexture("markio\face.bmp")
PositionEntity ground,0,-10,0
EntityTexture ground,tex
ScaleEntity ground,50,.1,50

While Not KeyDown(1)

	curX#=EntityX(Camera, True)
	curY#=EntityY(Camera, True)
	curZ#=EntityZ(Camera, True)
	destX#=EntityX(Pivot,True)
	destY#=EntityY(Pivot,True)
	destZ#=EntityZ(Pivot,True)
	CamX#=((destX#-curX#)/10)
	CamY#=((destY#-curY#)/10)
	CamZ#=((destZ#-curZ#)/10)
	TranslateEntity Camera,CamX,CamY,CamZ
	PointEntity camera,User
	If KeyDown(17) Or KeyDown(200) MoveEntity User,0,0,.1
	If KeyDown(30) Or KeyDown(203) MoveEntity User,-.1,0,0
	If KeyDown(31) Or KeyDown(208) MoveEntity User,0,0,-.1
	If KeyDown(32) Or KeyDown(205) MoveEntity User, .1,0,0
    RenderWorld
    UpdateWorld
	
Flip False :Wend:End

если не понятно While Not KeyDown(1) Wend

то вместо While Not KeyDown(1) поставь
Repeat 
 If KeyDown(1) Exit
а вместо Wend Forever
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 14:32   #22
ken park
Оператор ЭВМ
 
Аватар для ken park
 
Регистрация: 17.06.2009
Сообщений: 34
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Камера...

во офигенно ) спасибочки ) потом сделаю скорость пониже, круто будет. спасибо!!
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 14:37   #23
Sleepybear
ПроЭктировщик
 
Аватар для Sleepybear
 
Регистрация: 13.02.2009
Сообщений: 134
Написано 21 полезных сообщений
(для 22 пользователей)
Ответ: Камера...

Сообщение от ken park Посмотреть сообщение
во офигенно ) спасибочки ) потом сделаю скорость пониже, круто будет. спасибо!!
незачто, если будеш переделывать чужое а не пискать своё то ничему не научишся. Так что читай help и пиши сам.
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 14:58   #24
NitE
злобный флудер
 
Регистрация: 10.07.2007
Сообщений: 2,585
Написано 789 полезных сообщений
(для 1,476 пользователей)
Ответ: Камера...

ахх... начал чтото писать, да надоело сразу - вот гляди исходник моей старой игры
Include "ashadow.bb"
Include "fps.bb"

aGraphics3D 1280,1024,32,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()
HidePointer()
pxCreateWorld(1,"key")

Function LoadSkyBox(file$)
	m=CreateMesh()
	;front face
	b=LoadBrush( file$+"_lf.dds",49 )
	s=CreateSurface( m,b )
	AddVertex s,-1,+1,-1,0,0:AddVertex s,+1,+1,-1,1,0
	AddVertex s,+1,-1,-1,1,1:AddVertex s,-1,-1,-1,0,1
	AddTriangle s,0,1,2:AddTriangle s,0,2,3:
	FreeBrush b
	;right face
	b=LoadBrush( file$+"_fr.dds",49 )
	s=CreateSurface( m,b )
	AddVertex s,+1,+1,-1,0,0:AddVertex s,+1,+1,+1,1,0
	AddVertex s,+1,-1,+1,1,1:AddVertex s,+1,-1,-1,0,1
	AddTriangle s,0,1,2:AddTriangle s,0,2,3
	FreeBrush b
	;back face
	b=LoadBrush( file$+"_bk.dds",49 )
	s=CreateSurface( m,b )
	AddVertex s,+1,+1,+1,0,0:AddVertex s,-1,+1,+1,1,0
	AddVertex s,-1,-1,+1,1,1:AddVertex s,+1,-1,+1,0,1
	AddTriangle s,0,1,2:AddTriangle s,0,2,3
	FreeBrush b
	;left face
	b=LoadBrush( file$+"_rt.dds",49 )
	s=CreateSurface( m,b )
	AddVertex s,-1,+1,+1,0,0:AddVertex s,-1,+1,-1,1,0
	AddVertex s,-1,-1,-1,1,1:AddVertex s,-1,-1,+1,0,1
	AddTriangle s,0,1,2:AddTriangle s,0,2,3
	FreeBrush b
	;top face
	b=LoadBrush( file$+"_UP.dds",49 )
	s=CreateSurface( m,b )
	AddVertex s,-1,+1,+1,0,1:AddVertex s,+1,+1,+1,0,0
	AddVertex s,+1,+1,-1,1,0:AddVertex s,-1,+1,-1,1,1
	AddTriangle s,0,1,2:AddTriangle s,0,2,3
	FreeBrush b
	ScaleMesh m,10000,10000,10000
	FlipMesh m
	EntityFX m,1+8
	Return m
End Function


Function FreeFlyCam(ent)
	mxspd#=MouseXSpeed()*Mousespeed 
	myspd#=MouseYSpeed()*Mousespeed 
	MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
	campitch#=EntityPitch(ent)+myspd# 
	If campitch#<-89 Then campitch#=-89
	If campitch#>89 Then campitch#=89
	RotateEntity ent,campitch#,EntityYaw(ent)-mxspd#,EntityRoll(ent)
End Function




Function PlayerCam(ent,m#,ent2)
	mxs#=MouseXSpeed()*m
	mys#=MouseYSpeed()*m/3

	mouse_shake=Abs(((mxs+mys)/2)/1000.0)

	dest_camera_yaw#=dest_camera_yaw#-mxs
	dest_camera_pitch#=dest_camera_pitch#+mys

	camera_yaw#=camera_yaw+((dest_camera_yaw-camera_yaw)/5)
	camera_pitch#=camera_pitch+((dest_camera_pitch-camera_pitch)/5)
	
	
	pxBodySetRotation ent,0,pxBodyGetRotationYaw(ent)+camera_yaw#,0
	MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
End Function

Function CreatePhysEntity(mass)
p.phys_body = New phys_body
p\entity =ACreateCube(0,2)
p\mass = mass
p\phys_entity = pxBodyCreateCube(1,1,1,p\mass)
pxBodySetPosition(p\phys_entity,0,20,0)
End Function

Type phys_body
Field entity
Field phys_entity
Field mass
End Type

Function PlayerMove(ent,speed)

If KeyDown(30) 
pxBodySetLocalLinearSpeed(ent,speed,pxBodyGetLocalLinearSpeedY(ent),0)
move_bool=0
ElseIf KeyDown(32) 
pxBodySetLocalLinearSpeed(ent,-speed,pxBodyGetLocalLinearSpeedY(ent),0)
move_bool=0
ElseIf KeyDown(31) 
pxBodySetLocalLinearSpeed(ent,0,pxBodyGetLocalLinearSpeedY(ent),speed)
move_bool=0
ElseIf KeyDown(17) 
pxBodySetLocalLinearSpeed(ent,0,pxBodyGetLocalLinearSpeedY(ent),-speed)
move_bool=0
Else
;pxBodySetLocalLinearSpeed(ent,0,-10,0)
move_bool=1
EndIf
End Function




aml=175
AmbientLight aml,aml,aml



light2=CreateSLight(2,100,155,155,155)
light=CreateSLight(1,100,155,155,155)



PositionEntity light,0,30,0

Global mousespeed#=0.5
camera=CreateCamera()
CameraRange(camera,.1,100000)

loadskybox("skybox\1")
speed#=1


player=LoadAnimMesh("actor_frank\frank.b3d")
jump=LoadAnimSeq(player,"actor_frank\jump.b3d")

player_phys=pxBodyCreateCapsule(5,5,1000)



player_speed=30



plane=ACreateCube()
ScaleEntity plane,1000,0.0001,1000

PointEntity light,plane

sand=LoadTexture("sand.jpeg")
EntityTexture plane,sand
ScaleTexture sand,.007,.007

MoveEntity camera,0,15,17
TurnEntity camera,13,180,0
EntityParent camera,player

gorka=ACreateCube()
ScaleEntity gorka,20,.1,20
MoveEntity gorka,40,5,10
TurnEntity gorka,20,0,0
phys1=pxBodyCreateCube(20,.1,20,0)
pxBodySetPosition phys1,40,5,10
pxBodySetRotation phys1,20,0,0


Global move_bool=0

max_player_speed=30

Animate player,1,1,jump,5

Repeat

If KeyHit(16) Animate player,1,1,1,5



pxBodySetLocalLinearSpeed(player_phys,0,-25,0)

pxBodySetFrozenRot(player_phys,1)



PositionEntity(player,pxBodyGetPositionX(player_phys),pxBodyGetPositionY(player_phys)-7.48,pxBodyGetPositionZ(player_phys))
RotateEntity(player,pxBodyGetRotationPitch(player_phys),pxBodyGetRotationYaw(player_phys),pxBodyGetRotationRoll(player_phys))

playermove(player_phys,player_speed)

If KeyDown(57) createphysentity(12)

For p.phys_body = Each phys_body
pxBodySetEntity(p\entity,p\phys_entity)
Next



playercam(player_phys,1.2,camera)

MoveMouse GraphicsWidth()/2,GraphicsHeight()/2



ARenderWorld(camera)
pxRenderPhysic(30,0) 

Text 10,10,pxkey
Flip
Until KeyHit(1)
End
ту конечно используется много всякой фигни, но переделать под блиц не проблема, и помне так всё намного проще чем у того-же Sleepybear
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 15:05   #25
Sleepybear
ПроЭктировщик
 
Аватар для Sleepybear
 
Регистрация: 13.02.2009
Сообщений: 134
Написано 21 полезных сообщений
(для 22 пользователей)
Ответ: Камера...

NitE

Весело сегодня тут у вас
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
NitE (17.06.2009)
Старый 17.06.2009, 15:56   #26
ken park
Оператор ЭВМ
 
Аватар для ken park
 
Регистрация: 17.06.2009
Сообщений: 34
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Камера...

NitE, не мог бы куда нибудь фаилы закачать которые нужны для запуска ? Очень интересно посмотреть...
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 16:03   #27
NitE
злобный флудер
 
Регистрация: 10.07.2007
Сообщений: 2,585
Написано 789 полезных сообщений
(для 1,476 пользователей)
Ответ: Камера...

хм..хм..хм..хм..хм.. почему ?
да там собственно ничего интересного, только передвижение, поворот и ещё какаято хрень...
http://www.filehoster.ru/files/cx9645
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 16:06   #28
Dzirt
Элита
 
Аватар для Dzirt
 
Регистрация: 16.01.2008
Сообщений: 1,800
Написано 958 полезных сообщений
(для 3,833 пользователей)
Ответ: Камера...

Ну да....парню осталось теперь достать Ashadow и PhysX
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 16:12   #29
Sleepybear
ПроЭктировщик
 
Аватар для Sleepybear
 
Регистрация: 13.02.2009
Сообщений: 134
Написано 21 полезных сообщений
(для 22 пользователей)
Ответ: Камера...

Сообщение от NitE Посмотреть сообщение
хм..хм..хм..хм..хм.. почему ?
да там собственно ничего интересного, только передвижение, поворот и ещё какаято хрень...
http://www.filehoster.ru/files/cx9645
кинь плз decls уж очень хотца глянуть на тени
(Offline)
 
Ответить с цитированием
Старый 17.06.2009, 16:14   #30
ken park
Оператор ЭВМ
 
Аватар для ken park
 
Регистрация: 17.06.2009
Сообщений: 34
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Камера...

pxcreateworld no find o_O
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Web камера Randomize Модули для BlitzMax 0 25.09.2009 13:17
Камера Fatalix3d 3D-программирование 2 28.12.2008 15:17
Камера и Mesh JeSss 3D-программирование 15 29.01.2008 21:00
камера из 3дсмакс CRACK 3D-программирование 10 31.07.2007 18:24
Камера smaller 3D-программирование 14 05.04.2007 23:58


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


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com