| Слейпнир |
09.11.2010 23:10 |
Полноценное вращение камеры вокруг объекта(персонажа), курсор мыши
Всех приветствую! Я новичек... жуть как хочется освоить этот язык...
Что имеется: *земля и небо(в виде куба-вид изнутри)
*персонаж - простая сфера(пока не разобрался с пачем на 3дмакс 2009)
*сферой можно упрвлять "WSAD"
*Камера на небольшом расстянии смотрит на сферу, при этом можно передвигая мышь крутится вокруг неё, но тут возникла проблема...передвинув мышь сферу начинает мотать из стороны в сторону, можно с земли на небо улететь ), ограничения на вращение нет(просто не знаю как поставить)
Вопросы:
1) Как организовать вращение камеры вокруг объекта(сферы) по осям (X,Y, "Z"-не уверен что нужна) при зажатой правой кнопки мыши, без мотания её из стороны в сторону, с ограничениями верх-низ и последующим плавным возвращением за спину сферы?
2) Как сделать чтобы курсор мыши был всегда видимым в процессе игры...(покачто условно "игры":rolleyes: ), и при нажатии правой кнопки мыши исчезал нормально, при отпускании появляся (showpointer и hidepointer будет так работать ?) ? Сам курсор мыши пока вообще не удалось вывести на экран...
Вобщим был на многих ресурсах, много кусков кода насобирал, сам половину не понимаю... возможно проблема решится простым удалением частей кода ?
Очень прошу, помогите оптимизировать код...
полный код:
Код:
Graphics3D 800,600,32,1;
SetBuffer BackBuffer()
lit=CreateLight(2);
RotateEntity lit,90,0,0
AmbientLight 200,200,200
Include "CONST.bb";
Include "COLLISIONS.bb"
Include "GLOBAL.bb"
Text 320,0,"Click to reset mouse",True
Text 0,0,"Mouse X:"+MouseX()
Text 0,10,"Mouse Y:"+MouseY()
If MouseDown(1) Or MouseDown(2) Then MoveMouse 320,240
Text MouseX(),MouseY(),"X",True,True
Flip
;mouse.bb
;ShowPointer()
;Global mouse_pic=LoadImage( "Picture.bmp" )
;While Not KeyHit(1)=1
;UpdateWorld()
;RenderWorld()
;Cls
;DrawImage mouse_pic, MouseX(),MouseY()
;Flip
;Wend
;-------------------------------------------------------------
Setup();
period=1000/FPS;
time=MilliSecs()-period;
;MAIN LOOP ; -----------------------------------------
While Not KeyHit(1)=1;
Include "FPS.bb";
Repeat
elapsed=MilliSecs()-time
Until elapsed
ticks=elapsed/period
;tween#=Float(elapsed Mod period)/Float(period)
For k=1 To ticks
time=time+period
If k=ticks Then CaptureWorld
Update_Game()
UpdateWorld()
Next
RenderWorld ; tween
Text 0,0,"user x="+EntityX(user,1);
Text 0,15,"user y="+EntityY(user,1)
Text 0,30,"user z="+EntityZ(user,1)
Text 0,45,"centr y="+EntityY(centr,1)
Text 0,90,"Треугольников рендерится: "+TrisRendered()
Text 0,105,"fps: "+Framecounter_framerate
Flip
Wend
;--------------------------------------------------------------
;ClearWorld();
Function Setup()
font=LoadFont("Arial Cyr",16,True,False,True)
SetFont font
Color 255,0,0
create_ground()
sky=MakeSkyBox("textures\nebo\")
ScaleEntity sky,20,20,20
create_user()
End Function
Function create_ground()
terrain=CreatePlane()
tertex=LoadTexture("textures\zemlya\grass.jpg")
ScaleTexture tertex,10,10
EntityTexture terrain,tertex
; FreeTexture tertex
EntityType terrain,TERRT
EntityPickMode terrain,2
End Function
Function MakeSkyBox( file$ )
m=CreateMesh()
b=LoadBrush( file$+"front.jpg",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
b=LoadBrush( file$+"right.jpg",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
b=LoadBrush( file$+"back.jpg",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
b=LoadBrush( file$+"left.jpg",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
b=LoadBrush( file$+"up.jpg",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,100,100,100
FlipMesh m
EntityFX m,9
EntityOrder m,10
Return m
End Function
Function create_user(x#=-0,y#=4,z#=0)
user=CreateSphere()
EntityRadius user,3,3
EntityType user,USERT
centr=CreatePivot (user)
MoveEntity centr,0,4,-10
camera=CreateCamera(centr)
CameraRange camera,0.10,10000
;CameraRange camera,0.01,10000;
microphone=CreateListener(camera,.2,1,.2); звуки
PositionEntity user,x#,y#,z#
End Function
Function update_user()
If KeyHit(46) us=us+1
If us=2 us=0
If us=1 And kcam=0
MoveEntity centr,0,-0.15,0
If EntityY (centr,1)=<EntityY(user,1) Then kcam=1:ncam=1:V1#=0.05:EntityRadius user,2,3
EndIf
If us=0 And kcam=1
PositionEntity user,EntityX(user),EntityY(user)+1.8,EntityZ(user),1
EntityRadius user,3,3
PositionEntity centr,EntityX(user),EntityY(user)-1.8,EntityZ(user),1
kcam=0
EndIf
If kcam=0 And ncam=1
MoveEntity centr,0,0.15,0
If EntityY (centr,1)=>EntityY(user,1)+2.5 Then ncam=0:V1#=0.2
EndIf
pick_ent=LinePick(EntityX(user),EntityY(user),EntityZ(user),0,-3.6,0)
If pick_ent
jump_bool=False
Else
jump_bool=True
EndIf
If KeyHit(57) And jump_bool=False And ncam=0 Then jmp#=0.7:j#=EntityY(user,1)
If EntityY (user,1)=>j#+8 Then jmp#=0
MoveEntity user,0,jmp#-G#,0
If KeyDown(42)=1
V2#=V1#+V1#*0.5
Else
V2#=V1#
EndIf
If KeyDown(30)=1 MoveEntity user,-V2#,0,0
If KeyDown(32)=1 MoveEntity user,V2#,0,0
If KeyDown(17)=1 MoveEntity user,0,0,+V2#
If KeyDown(31)=1 MoveEntity user,0,0,-V2#
;-----------------------------
TurnEntity user,MouseYSpeed()*0.3,0,0
TurnEntity user,0,-MouseXSpeed()*0.5,0
;-----===================-----
If KeyDown(30)=1 Then MoveEntity user,-V#,0,0
If KeyDown(32)=1 Then MoveEntity user,V#,0,0
If KeyDown(17)=1 Then MoveEntity user,0,0,+V#
If KeyDown(31)=1 Then MoveEntity user,0,0,-V#
MoveMouse GraphicsWidth()*0.5,GraphicsHeight()*0.5
If Abs(EntityPitch#(camera))>u# RotateEntity camera,u#*Sgn(EntityPitch#(camera)),0,0 ;
Return
End Function
Function Update_Game()
update_user;
End Function
Код:
;CONST.bb
Const G#=0.4;
Const u#=70;п
Const USERT=1;
Const TERRT=2;
Const FPS=50
Код:
;GLOBAL.bb
Global centr;
Global camera
Global user;
Global V1#=0.2;
Global j#;
Global jmp#;
Global kcam;
Global ncam;
Global us;
Код:
;COLLISIONS.bb
Collisions USERT,TERRT,2,3
|
