Показать сообщение отдельно
Старый 18.01.2014, 11:34   #5
executer
Нуждающийся
 
Регистрация: 19.11.2009
Сообщений: 64
Написано 4 полезных сообщений
(для 6 пользователей)
Ответ: Вопросы по blitzbullet

Вот мой исходник
2 картинки использую
http://rghost.ru/51737949


Include "include\BlitzBullet.bb"
Include "include\FastImage.bb" ; <<<< Include FastImage.bb file
Graphics3D 800, 600, 0, 2

camera=CreateCamera()

light=CreateLight()
cone=CreateCone()
PositionEntity cone,0,0,5
cube=CreateCube()
PositionEntity cube,120,200,5


btCreateWorld(2)

btWorldSetGravity (0,10,0,1)
btCollisionGroupSetFlag ( 1,1,1)


btWorldSetFixedTimeStep(1.0/60)
btContactSetSolverMode(SOLVER_USE_3_FRICTION_DIREC TIONS+SOLVER_SIMD+SOLVER_RANDMIZE_ORDER)

body1=btBodyCreateSphere (110,5)
btBodySetPosition (BODY1,0,0,0)

body2=btBodyCreateSphere (90,50)
btBodySetPosition (BODY2,0,200,0)


;btBodyCreatePlane(0,400,0)

InitDraw

imgFast1 = LoadImageEx ( "..\media\1.png", 0,FI_FILTERED)
imgFast2 = LoadImageEx ( "..\media\tounge.png", 1+2, FI_FILTERED)

btCreateDebugDraw ()
btDebugDrawSetMode 1

While Not KeyHit (1)
X1=btBodyGetX (BODY1)
Y1=btBodyGetY (BODY1)

X2=btBodyGetX (BODY2)
Y2=btBodyGetY (BODY2)

;btBodySetPosition ( body2,MouseX(),MouseY(),0)

mx = MouseX() ; save mouse coords in variables
my = MouseY()
Cls

;start drawing
StartDraw

;SetRotation 10
SetScale 1, 1

DrawImageEx imgFast1, X1,Y1
DrawImageEx imgFast2, X2,Y2

;
EndDraw


Text 10, 10,X1
Text 10, 20,Y1

If KeyDown(205) Then btBodyApplyImpulse (Body1, 50,0,0)
If KeyDown(203) Then btBodyApplyImpulse (Body1, -50,0,0)
If KeyDown(200) Then btBodyApplyImpulse (Body1, 0,-50,0)
If KeyDown(20 Then btBodyApplyImpulse (Body1, 0,50,0)
If KeyDown(57) Then x1=0:y1=0:btBodySetPosition ( body1,0,0,0)

zz=y1;((x1*1024 )-1)+

If y1>400 Then btBodyApplyImpulse (Body1, 0,-50,0)
If y2>200 Then btBodyApplyImpulse (Body2, 0,-50,0)



;btDebugDrawWorld(camera,0,0)
btContactTest(body1,0)
btContactTest(body2,0)
;If btContactGetBody (body1,1) Then End


btSimulation(.1,6)

btDebugDrawWorld ( camera, 0,0)

;RenderWorld

Flip
Wend


DeinitDraw
(Offline)
 
Ответить с цитированием