Хочу собрать Стрелялку свою и по сети поиграть.
помогите разобратся с солизией как в обычном режиме( не используя не какие физики)
как правельно раставить.
Const gravity#=-0.004
Const Typeplayer=1,Typebot=2,Typelevel=3
У меня есть Бот, плауер мой игрок, и Левел. Бот и плауер анимированый.
Collisions Typeplayer,Typelevel,2,3
Collisions Typeplayer,Typeplayer,2,3
Collisions Typebot1,Typeplayer,2,3
Collisions Typebot1,Typelevel,2,3
как и где правельно, и как можно будет дабовлять ети функции.
Graphics3D 800,600, 16, 2
SetBuffer BackBuffer()
;----Что это такое----------
HidePointer
Global fntArialr
fntArialr=LoadFont("Arial",35,False,False,False)
;--------в index у меня Боты---------------
Include "data\index.bb"
Const gravity#=-0.004
Const Typeplayer=1,Typebot=2,Typebot1=4
zdorov=100
;----------------------------
lit=CreateLight()
;--level-----Он у меня один там просто двери и мелкие обьекты, хочю зделать чтоб открывались---
level = LoadanimMesh("map\level1\level1.3ds")
;----------Camera С туманом---------------
campiv = CreatePivot(player)
cam=CreateCamera(campiv )
PositionEntity cam,0,1.7,0
CameraRange Cam,0.2,9000
CameraFogRange Cam,-20,90
CameraFogMode Cam,1
CameraFogColor Cam,150,200,250
CameraClsColor Cam,150,200,250
;----------------------------
player= LoadAnimMesh("player\player1\player.3ds")
Animate player,1
;-------шарик я подогнал под автомат на дуло, чтобы пули вылитали точно с него-------
gol5=CreateSphere(8,player)
ScaleEntity gol5,0.01,0.01,0.01
PositionEntity gol5,0.046 ,1.54 ,1.087
EntityColor gol5,231,109,0
EntityAlpha gol5,0
EntityType player,Typeplayer
;-----вот и сами пули
Global bullet =CreateSphere(8,gol5)
ScaleEntity bullet ,0.01,0.01,0.01
PositionEntity bullet ,0.046 ,1.54 ,1.087
EntityColor bullet ,231,109,0
HideEntity bullet
EntityRadius bullet,1
;----------Патроны-------------------
Ocher=100
;-------------это типа цель, но я незнаю как зделать--------------------------
Global cursor = LoadSprite("text\cross.JPG")
SpriteViewMode cursor,4
;------------------- Вот Кализия----------------------
Collisions Typeplayer,Typelevel,2,3
Collisions Typeplayer,Typeplayer,2,3
Collisions Typebot1,Typeplayer,2,3
Collisions Typebot1,Typelevel,2,3
Repeat
;----------------------------
EntityParent cam,player
;-----------Боты ходят за мной-----------
dist# = EntityDistance ( bot, player)
If dist > 5
TurnEntity bot,0,Sgn(DeltaYaw(bot,player))*0.9,0
MoveEntity bot,0,0,0.03
EndIf
dist# = EntityDistance ( bot1, player)
If dist > 5
TurnEntity bot1,0,Sgn(DeltaYaw(bot1,player))*0.9,0
MoveEntity bot1,0,0,0.03
EndIf
;--------------------------------------------------------------
If KeyDown(200) MoveEntity player,0,0,.1
If KeyDown(20
MoveEntity player,0,0,-.1
If KeyDown(203) TurnEntity player,0,1,0
If KeyDown(205) TurnEntity player,0,-1,0
If KeyDown(17) MoveEntity player,0,0,.1
If KeyDown(31) MoveEntity player,0,0,-.1
If KeyDown(30) MoveEntity player,-0.1,0,0
If KeyDown(32) MoveEntity player,0.1,0,0
;-------------------Вот функция для вастрела пуль------------- --------------
If Ocher >0 If MouseDown(1) CreateBullet (gol5,.5,120+Rnd(50))
If MouseDown(3) TurnEntity gol5,0,2,0
If MouseDown(1) Ocher=Ocher -1
If Ocher<0 Ocher=Ocher * 0
;----------------Правай кнопкай прицел---------------------
If MouseDown(2)
CameraZoom cam,4
Else
CameraZoom cam,1
EndIf
;--Хотел мышку привезать к камере и анимации Плауера,заанимировал руки с пушкой( верх,вниз,влево и в право)-
;--Но не чего не получилось, у меня плауер целиком с руками ногами--------
MoveMouse 320,300
If EntityCollided (gol5,Typelox) Ocher=Ocher-1
;-------------------------------
UpdateBullet
UpdateWorld
RenderWorld(cam)
If EntityCollided (player,typebot) zdorov=zdorov-1
SetFont fntArialr
Text 70,27,"Health"+zdorov
SetFont fntArialr
Text 70,67,"Health-Bot="+zdorov
Text 70,97,"Health-Player="+zdorov
Text 280,47,"Patron="+Ocher
SetFont fntArialr
Text 500,27,"Account"
SetFont fntArialr
Text 500,67,"Bot="+SchetP
SetFont fntArialr
Text 500,97,"Player="+SchetB
If zorov=zdorov<1
Else
End
EndIf
;-----------------------------------
Flip
Until KeyHit(1)
End
В архиве модель не анимированого Плауера текстура, и цель.
Помогите пожалуста, Разобратся можт код исправите я 3 день мучаюсь. С посибо за ранее, если поможете скинте по почте---
[email protected]