|
| |
Пост N: 26
Зарегистрирован: 22.02.06
|
|
Отправлено: 26.10.06 01:25. Заголовок: Re:
кароче, чел у тя там пару глюков есть.. нгапример камера едет даже если танк врезался во второй.. На пример столкновения твоих танков.. по ним думаю без проблем зделаеш и пулю.. ткоо вот коментарии сломались.. )) ;Òàíêè!!! SeedRnd MilliSecs() Graphics3D 1024,768 SetBuffer BackBuffer() Const TypeTank1=1,TypeTank2=2,TypePulja=3,TypePulja2=4 ;Ïóëè - ñîçäàíèå bullet=CreateSphere() ScaleEntity bullet,.1,.1,.1 Type bul1 Field dir,x,time,z,entity End Type Type bul2 Field dir,x,time,z,entity End Type ; Êàìåðà äëÿ èãðîêà 1 cam1=CreateCamera() PositionEntity cam1,0,1,0 CameraViewport cam1,0,0,GraphicsWidth(),GraphicsHeight()/2 ; Êàìåðà äëÿ èãðîêà 2 cam2=CreateCamera() PositionEntity cam2,30,1,0 CameraViewport cam2,0,GraphicsHeight()/2,GraphicsWidth(),GraphicsHeight()/2 ;Ñîçäà¸ì èãðîêa 1 pl1=LoadMesh ("pl1.x") ScaleEntity pl1,0.05,0.05,0.05 EntityType pl1,TypeTank1 tex1=LoadTexture("tex1.bmp") EntityTexture pl1,tex1 ;Ñîçäà¸ì èãðîêa 2 pl2=LoadMesh ("pl2.x") ScaleEntity pl2,0.05,0.05,0.05 EntityType pl2,TypeTank2 tex2=LoadTexture("tex2.bmp") EntityTexture pl2,tex2 Collisions TypeTank1,TypeTank2,1,1 ;Ñâåò... light=CreateLight() RotateEntity light,0,90,0 ;Ïîë plane=CreatePlane() grass_tex=LoadTexture( "pol.bmp" ) EntityTexture plane,grass_tex PositionEntity plane,0,-1,0 ;While-òèïà ÷òîá ïîñòîÿííî áûëî Repeat ;Óïðàâëåíèå If KeyDown( 205 )=True Then TurnEntity cam1,0,-1,0 If KeyDown( 203 )=True Then TurnEntity cam1,0,1,0 If KeyDown( 208 )=True Then MoveEntity cam1,0,0,-0.2 If KeyDown( 200 )=True Then MoveEntity cam1,0,0,0.2 PositionEntity (pl1,EntityX (cam1),-1,EntityZ (cam1)) RotateEntity (pl1,EntityPitch#(cam1),EntityYaw#(cam1),EntityRoll#(cam1)) If KeyDown( 32 )=True Then TurnEntity cam2,0,-1,0 If KeyDown( 30 )=True Then TurnEntity cam2,0,1,0 If KeyDown( 31 )=True Then MoveEntity cam2,0,0,-0.2 If KeyDown( 17 )=True Then MoveEntity cam2,0,0,0.2 PositionEntity (pl2,EntityX (cam2),-1,EntityZ (cam2)) RotateEntity (pl2,EntityPitch#(cam2),EntityYaw#(cam2),EntityRoll#(cam2)) ;Ïóëè-äâèæåíèå If KeyHit( 57)=True b.bul1=New bul1 b\x=EntityX(pl1) b\time=0 b\z=EntityZ(pl1) b\dir=EntityYaw(pl1) b\entity=CopyEntity(bullet) PositionEntity b\entity,b\x,0,b\z End If For b.bul1=Each bul1 MoveEntity b\entity,0,0,1 RotateEntity b\entity,0,b\dir,0 b\time=b\time+1 If b\time>100 FreeEntity b\entity Delete b End If Next If KeyHit(42)=True b2.bul2=New bul2 b2\x=EntityX(pl2) b2\time=0 b2\z=EntityZ(pl2) b2\dir=EntityYaw(pl2) b2\entity=CopyEntity(bullet) PositionEntity b2\entity,b2\x,0,b2\z End If For b2.bul2=Each bul2 MoveEntity b2\entity,0,0,1 RotateEntity b2\entity,0,b2\dir,0 b2\time=b2\time+1 If b2\time>100 FreeEntity b2\entity Delete b2 End If Next UpdateWorld RenderWorld Flip Until KeyHit(1) End
|