Летательные ботинки

[ABTOMAT]

Найди исходники проги-болтуна средней паршивости, скомпиль dll и подключай в свой проЭкт.

[impersonalis]

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

Найди исходники проги-болтуна средней паршивости, скомпиль dll и подключай в свой проЭкт.

wildai имхо

[Colossus]

это я знаю)) но какие тут параметры?! как задавать эту базу данных фраз?!

[Colossus]

прога хорошая)

[Colossus]

Ответ: Летательные ботинки
Сообщение от Terminator
H@NON спасиб посмотрю)

а можа допустим сделать несколько файлов и в них будит содержаться по одной анимации а потом подгружать анимки персу из этих файлов?!

если да то подскажи каг)

http://www.blitz-coder.narod.ru/text/export/export.htm

Да, можно. Кстати, это мегоспособ. Т.к. в файлы анимации мы сохраняем только скелет, то и весит он совсем немного. Кроме того если у тебя есть несколько моделей челов с одинаковым скелетом то файлы с анимацией подойдут для всех - проверял, работает. Это также экономия - не надо для каждого хранить анимацию отдельно

ну сделал все как надо) все работает) тока подскажите кто нить как сделать еще одну анимку туды?!

Graphics3D 800,600,32,1
SetBuffer BackBuffer()
cam=CreateCamera()
PositionEntity cam,0,10,-10
CameraRange cam,1,1000000

sky=CreateSphere()
ScaleEntity sky,500,500,500
tex=LoadTexture("..\Pers\Level\Sky.bmp")
ScaleTexture tex,250,250
EntityTexture sky,tex
EntityFX sky,1
FlipMesh sky



Const T_PLAYER =1
Const T_WORLD=2

light=CreateLight(kash)

kash=LoadAnimMesh("..\Pers\Kesh.b3d")
PositionEntity kash,0,1,15
RotateEntity kash,0,180,0
EntityType(kash,T_PLAYER)

level=LoadMesh("..\Pers\Level\Level02.3ds")
PositionEntity level,0,0,0
EntityType(level,T_WORLD)


move=LoadAnimSeq(kash,"..\Pers\Kesh_Moving.b3d")


jump=LoadAnimSeq(kash,"..\Pers\Kesh_Jumping.b3d")


Collisions(T_PLAYER,T_WORLD, 2, 3)
Collisions(T_WORLD,T_PLAYER, 2, 3)

While Not KeyDown(1)

If KeyDown(57) And AnimSeq=1 Animate kash,1,1,jump,1

If Not KeyDown(200) Then AnimSeq=0 Animate kash,1,0.07,move,0
If KeyDown(203) TurnEntity kash,0,1,0
If KeyDown(205) TurnEntity kash,0,-1,0
If KeyDown(200) MoveEntity kash,0,0,-0.04

MoveEntity kash,0,-1,0

UpdateWorld()
PointEntity cam,kash
RenderWorld()
Flip 0
Wend
End

вот такая вот кодыга)