|
Разработчик
Регистрация: 06.06.2011
Адрес: Ирк. обл.
Сообщений: 541
Написано 133 полезных сообщений
(для 220 пользователей)
|
Ответ: Как сделать стрельбу
Держи, уже почти готовый CoD 
Graphics3D 640,480,32,2
SetBuffer BackBuffer()
Global fntArialr
fntArialr=LoadFont("Arial",24,False,False,False)
Type Dude
Field entity,speed#
End Type
Type Dudet
Field entity2
End Type
Const TYPE_PLAYER=1,Typelevel=2,enti=3,botar=4,enti2=5
Collisions TYPE_PLAYER,TYPE_PLAYER,1,1
Healthb=100
Healthig=100
SchetB=0
SchetP=0
campiv = CreatePivot()
cam = CreateCamera(campiv)
CameraRange cam, 0.1,200000
EntityType campiv,TYPE_PLAYER
lit=CreateLight()
PositionEntity lit,0,20,0
RotateEntity lit,10,90,0
gun1=CreateCube()
ScaleEntity gun1,0.04,0.04,0.1
PointEntity gun1,campiv
EntityParent gun1,campiv
EntityParent gun1,cam
PositionEntity gun1,0,-0.15,+0.3
EntityColor gun1,99,99,103
gunmu=CreateCube(gun1)
ScaleEntity gunmu,0.1,0.7,0.7
PointEntity gunmu,campiv
EntityParent gunmu,campiv
EntityParent gunmu,cam
PositionEntity gunmu,0,-0.15,+0.40
bot=CreateCube()
ScaleEntity bot,0.5,0.8,0.5
PositionEntity bot,0,0,20
EntityColor bot,0,160,252
EntityType bot,botar
gol=CreateSphere(8,bot)
ScaleEntity gol,0.7,0.5,0.7
PositionEntity gol,0,1.5,0
EntityColor gol,231,109,0
EntityType gol,botar
pln=CreatePlane()
EntityColor pln,205,88,249
PositionEntity pln,0,-1,0
cub1=CreateCube()
EntityColor cub1,42,255,0
PositionEntity cub1,-3,0,0
ScaleEntity cub1,0.3,4,20
EntityType cub1,Typelevel
cub2=CreateCube()
EntityColor cub2,42,255,0
PositionEntity cub2,3,0,0
ScaleEntity cub2,0.3,4,20
EntityType cub2,Typelevel
cub3=CreateCube()
EntityColor cub3,255,0,0
PositionEntity cub3,8,0,20
ScaleEntity cub3,5,4,0.3
EntityType cub3,Typelevel
cub4=CreateCube()
EntityColor cub4,255,0,0
PositionEntity cub4,-8,0,20
ScaleEntity cub4,5,4,0.3
EntityType cub4,Typelevel
cub2=CreateCube()
EntityColor cub2,255,0,0
PositionEntity cub2,20,0,0
ScaleEntity cub2,0.3,4,40
EntityType cub2,Typelevel
cub2=CreateCube()
EntityColor cub2,255,0,0
PositionEntity cub2,-20,0,0
ScaleEntity cub2,1,4,40
EntityType cub2,Typelevel
pot=CreateCube()
ScaleEntity pot,100,0.01,100
EntityColor pot,255,255,255
PositionEntity pot,0,4,0
Collisions TYPE_PLAYER,typelevel,2,2
Collisions botar,typelevel,2,2
Repeat
For d.Dude=Each Dude
MoveEntity d\entity,0,0,1
If EntityDistance(gun1,d\entity)>200
FreeEntity d\entity
Delete d
EndIf
Next
If bull<MilliSecs()
bul=bul+1
If bul=25 Then bul=0
bull=MilliSecs()+1
EndIf
For f.Dudet=Each Dudet
MoveEntity f\entity2,0,0,1
If EntityDistance(bot,f\entity2)>200
FreeEntity f\entity2
Delete f
EndIf
Next
If bull2<MilliSecs()
bul2=bul2+1
If bul2=25 Then bul2=0
bull2=MilliSecs()+1
EndIf
If EntityCollided (bot,Typelevel)
AlignToVector bot,EntityX(bot)-EntityX(campiv),0,EntityZ(bot)+EntityZ(campiv),0,0.6
EndIf
TurnEntity bot,0,Sgn(DeltaYaw(bot,campiv))*2.3,0
MoveEntity bot,0,0,0.05
If KeyDown(17) Then
TFormVector 0,0,0.2,cam,campiv
MoveEntity campiv,TFormedX(),0,TFormedZ()
EndIf
If KeyDown(31) Then
TFormVector 0,0,-0.2,cam,campiv
MoveEntity campiv,TFormedX(),0,TFormedZ()
EndIf
If KeyDown(30) Then
MoveEntity campiv,-0.2,0,0
EndIf
If KeyDown(32) Then
MoveEntity campiv,0.2,0,0
EndIf
If KeyDown(57)
CameraZoom cam,2
Else
CameraZoom cam,1
EndIf
If EntityInView(bot,cam)
For g=1 To 1
sphere2=CreateSphere()
ScaleEntity sphere2,0.1,0.1,0.1
RotateEntity sphere2,10,0,20
If bul2=0
f.Dudet=New Dudet
f\entity2=CopyEntity( sphere2 )
EntityColor f\entity2,Rnd(255),Rnd(255),Rnd(255)
ResetEntity f\entity2
PositionEntity f\entity2,EntityX#(bot),EntityY#(bot)-0.3,EntityZ(bot)
RotateEntity f\entity2,EntityPitch#(bot,1),EntityYaw#(bot),0
EntityType f\entity2,enti2
Collisions enti2,Typelevel,2,3
Collisions enti2,TYPE_PLAYER,1,2
EndIf
Next
If EntityCollided (campiv,enti2)
Healthig=Healthig-1
EndIf
FreeEntity sphere2
EndIf
TurnEntity campiv,0,-MouseXSpeed(),0
If EntityCollided (campiv,tulevel)
EndIf
MoveMouse 320,240
If Healthb<1
PositionEntity campiv,0,0,0
PositionEntity bot,0,0,20
Healthb=100
Healthig=100
SchetB=SchetB+1
EndIf
If Healthig<1
PositionEntity campiv,0,0,0
PositionEntity bot,0,0,20
Healthb=100
Healthig=100
SchetP=SchetP+1
EndIf
UpdateWorld
RenderWorld
SetFont fntArialr
Text 70,27,"Health"
SetFont fntArialr
Text 70,67,"Health-Bot="+Healthb
Text 70,97,"Health-Player="+Healthig
SetFont fntArialr
Text 500,27,"Account"
SetFont fntArialr
Text 500,67,"Bot="+SchetP
SetFont fntArialr
Text 500,97,"Player="+SchetB
Flip
Until KeyHit(1)
End
Тут бот стреляет, посмотри код и сделай чтоб Player еще мог стрелять, как ты говоришь АЛГОРИТМ там присутствует... Написал бы да писать лень 
__________________
|