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

Fant · 07.03.2007, 18:30

Вообщем хочу посоветоавться как лучше всего перемещать игрока.

Вот такое игровое поле будет:

 
Type Camera
Field Obj
End Type 
Type Land
Field Obj
End Type

Const UPS=30
Graphics3D 640,480,16,2
SetBuffer BackBuffer()
SeedRnd MilliSecs() 
HidePointer ()
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2

font_Main=LoadFont("arial",16)
SetFont font_Main 

fnCreateTerrain()
fncreateCam1.camera()
l=CreateLight()
RotateEntity l,90,0,0
period=1000/UPS
time=MilliSecs()-period
Repeat
 Repeat
  elapsed=MilliSecs()-time
 Until elapsed
 ticks=elapsed/period
 tween#=Float(elapsed Mod period)/Float(period)
 
 For k=1 To ticks
  time=time+period 
 Cls
 Delay 5
 
fnCamera_Look(camera)
fnCamera_Free_Fly(camera)
 
If KeyHit(1)
 FreeFont font_main

 ClearWorld()
 Delay 300
 End 
End If
  UpdateWorld 
 Next
 RenderWorld tween

 Flip
Forever
Function fnCreateCam1.camera()
Local cam1.camera
cam1 = New Camera
cam1\obj=CreateCamera()
PositionEntity cam1\obj,0,2,0
RotateEntity cam1\obj,20,-45,0
CameraRange cam1\obj,.1,35
CameraClsColor cam1\obj ,255,255,255
CameraFogMode cam1\obj,1
CameraFogRange cam1\obj,1,100
CameraFogColor cam1\obj,255,255,255
Return cam1
End Function
Function fnCamera_Look(cam,speedx#=2,speedy#=2,dang=-89,upang=89)
For cam1.camera=Each camera
 mxs=MouseXSpeed()
 mys=MouseYSpeed()
 xrot#=EntityPitch(cam1\obj)
 yrot#=EntityYaw(cam1\obj)
 If(xrot#<upang)And(mys>0)Then xrot#=xrot#+speedx#*mys/10  
 If(xrot#>upang)And(mys>0)Then xrot#=upang 
 If(xrot#>dang)And(mys<0)Then xrot#=xrot#+speedx#*mys/10 
 If(xrot#<dang)And(mys<0)Then xrot#=dang  
 yrot=yrot-speedy#*mxs/10 
 MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
 RotateEntity cam1\obj,xrot,yrot,0
Next
End Function
Function fnCamera_Free_Fly(Obj,mf#=.5,mb#=.5,ml#=.5,mr#=.5)
For cam1.camera=Each camera
 If MouseDown(1) Then MoveEntity cam1\obj,  0 ,0, mf#;W
 If MouseDown(2) Then MoveEntity cam1\obj,  0 ,0,-mb#;S 
 If KeyDown(30) Then MoveEntity Obj,-ml#,0,  0 ;A
 If KeyDown(32) Then MoveEntity Obj, mr#,0,  0 ;D

 Next
End Function
Function fnDeleteCam()
For cam1.camera = Each camera
 FreeEntity cam1\obj
Delete cam1
  Next
End Function 
Function fnCreateTerrain(size=32,zoom#=.35,minVal#=0,maxVal#=1)
grass_tex=CreateTexture( 128,128 )
 SetBuffer TextureBuffer(grass_tex) 
  ClsColor 255,255,255 
   Cls 
For a=0 To 128
For b=0 To 128
     Color Rand(0,16),Rand(64,128),Rand(0,4)
    Plot a,b
Next
Next
SetBuffer BackBuffer()
Local ter.land
ter=New land
ter\obj=CreateTerrain (size)
SeedRnd 100
For x=0 To size
     For z=0 To size
          height#=Rnd (minVal,maxVal)
          ModifyTerrain ter\obj,x,z,height    
     Next   
Next
EntityTexture ter\obj,grass_tex
ScaleEntity ter\obj,1,zoom,1
FreeTexture grass_tex
Return ter\obj
End Function

как видно из семпла, то нетрудно догадаться, что ландшаф не прямой. У меня есть хороший пример как перемещать игрока и не один, но у меня тут возникли вопросы

1. Так как ландшафт не прямой, хотелось бы что бы объект, который пеемещается по тему, "точно как в жизни", пападал в ямки и выходил из нее. Ест ьу меня пример. называется driver. - Но как лучше (проще) всего сделать такое перемещение? Ведь у еня не будет ни заносов...ни чего бы то не было более сложного.

2. Наверное придется в игре ИИ писать. Я бы хотел заранее, что бы игрок после перемещения. (например от переместился в точку с координатой по X=134.4) ставал в точку x=134.(то есть округлять координаты). Мне такой пример писали. ам все сделанно по массивам. А есть еще варианты?

3. Может что бы не заморачиваться сделать передвжение только вперед, назад, влево, вправо (без возможности крутиться на все 360 градусов)

Вообщем так или иначе я не знаю как лучше всего всеэто сделать и поэтому...
Поэтому спрашиваю!

ЛысыЙ_Чук-Иванчук · 07.03.2007, 21:14

Из примера непонятно какого имено характера тебе нужен игрок(обычный чел, ну там машина(стиральная

)
If обычный игрок(ну как в контре) то зачем тебе его ровнять по ладшафту

ElseIf Если какойнибуть робот, мне кажется лутше физику использовать

Else Если как в примере самолетики, ну тут я помочь ничем немогу

=)
endIF

Fant · 07.03.2007, 21:17

Сообщение от vlad

Из примера непонятно какого имено характера тебе нужен игрок(обычный чел, ну там машина(стиральная

)
If обычный игрок(ну как в контре) то зачем тебе его ровнять по ладшафту

ElseIf Если какойнибуть робот, мне кажется лутше физику использовать

Else Если как в примере самолетики, ну тут я помочь ничем немогу

=)
endIF

у меня игрок - квадратик

Его нужно равнять по ландшафту)

axel186 · 07.03.2007, 22:04

PhysX РУЛИТ! Ну или что-то другое попробуй, сам замучаешся да ещё и не точно будет выходить... а тут, физический движок и всё =)

ЛысыЙ_Чук-Иванчук · 07.03.2007, 22:39

Можно просто ровнять по вектору, но я бы использовал физ двиг...

Fant · 08.03.2007, 01:10

Нет, нет! Ребята! Зачем мне физ. двиг что бы "приклеить" квадратик к ладншафту? Мне же ненужна суперфизика

Nahim · 08.03.2007, 09:07

Fant, а чем тебя не устраивает AlignToVector?
С помощью CollisionNX, CollisionNY, CollisionNZ находишь координаты нормали коллизии и выравниваешь объект:

For k=1 To CountCollisions(obj)
AlignToVector obj,CollisionNX(obj,k),CollisionNY(obj,k),CollisionNZ(obj,k),2,0.1
Next

ЛысыЙ_Чук-Иванчук · 08.03.2007, 09:27

AlignToVector-Поможет тебе выровнять его, но если ты хочеш чтобы в ямочки проваливался- то только физДвиг
ЗЫ\ А почему ты его нехочеш использовать, веть там нет ничего сложного

Fant · 08.03.2007, 10:31

Сообщение от Nahim

Fant, а чем тебя не устраивает AlignToVector?
С помощью CollisionNX, CollisionNY, CollisionNZ находишь координаты нормали коллизии и выравниваешь объект:

For k=1 To CountCollisions(obj)
AlignToVector obj,CollisionNX(obj,k),CollisionNY(obj,k),CollisionNZ(obj,k),2,0.1
Next

Спасибо! Я попробую с помощью этой команды!

Сообщение от vlad

AlignToVector-Поможет тебе выровнять его, но если ты хочеш чтобы в ямочки проваливался- то только физДвиг
ЗЫ\ А почему ты его нехочеш использовать, веть там нет ничего сложного

Потому, что физический движек несколько сложен, а для простого "прилипания" объекта к ландшафту - это слишком!

AlingTovector попробую поюзать!

Fant · 08.03.2007, 18:25

Всем спасибо за обсуждения и поддержку! Я разобрался!

tormoz · 08.03.2007, 18:33

Получай высоту террайна в точке нахождения игрока и ставь его туда.

Fant · 08.03.2007, 19:33

Я сделал по примеру driver, но у меня почему-то эти "колесики" держат объект над землей...я не опнимаю, в чем дело? Есть предложения?

Nahim · 08.03.2007, 20:00

А какой у тебя объект? Может не стоит использовать "колёсики", если они тебе не нужны... Выравнивай непосредственно свой объект.

Fant · 08.03.2007, 20:03

Сообщение от Nahim

А какой у тебя объект? Может не стоит использовать "колёсики", если они тебе не нужны... Выравнивай непосредственно свой объект.

Квадратик у меня. Он должен "прилипать к ландшафту"

Но как его выравнивать-то?

moka · 08.03.2007, 20:17

Немного над ландшафтом? Там коллизии? Может не точно указан Радиус элипсоида? Попробуй EntityRadius на колёсики.