[L-ee-X]

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

если верно то, что я не перемещался блин. так понятно? я не нууууууууб. а вы просто сооброжалку включите

У меня в отличии от тебя соображалка включена
Держи, надеюсь разберешься, целый шутер от первого лица

HidePointer
Global weapon,weapon_1,xw#,yw#,zw#,rxw#,ryw#,zyw#
Global camera
Global player,mxs,mys,grav#,y_cam
Global run,runChannel ,running#
Const  playertype=1,TypePol=2,TypeStena=3,TypeTons=4,TypeBalke=5,TypeLuk=5,TypeBox=6,TypeCar=7
Global fire_01,car

Global zs#,zo#
Global x_weapon#,y_weapon#,z_weapon#,rx_weapon#,ry_weapon#,rz_weapon#
Global Not_fire

Type Obj_Data
    Field handler            
    Field Name$                
    Field key$[8]            
    Field value$[8]            
    Field rawdata$[16]        
End Type

Type OutFlare 
    Field sprite
    Field flare
    Field time_out
    Field TimeTolive
End Type


Global fl


Graphics3D 1024,768,32,2

SetBuffer BackBuffer()
Global gfxCross = LoadImage("models\gfx\cross.bmp")
CreatePlayer()
UpdateCollisions()

sky=LoadSkyBox("sky\")

level=LoadAnimMesh("models\scene.b3d")
RotateEntity level,180,0,0
ScaleEntity level,0.2,0.2,0.2
RecurseSeek(level)
Global flare_weapon=LoadSprite("shot.jpg")

bool=LoadAnimMesh("bool.b3d")
PositionEntity bool,0,0,-240
box_1=FindChild(bool,"box")
EntityType box_1,TypeBox,1
LoadWeapon_1()
InitSounds()

car=CreateCube()
PositionEntity car,0,40,-30
ScaleEntity car,18,3,7
EntityType car,TypeCar
Patron=20
CarTrue=0

Global PlayerID
PlayerID=1


Repeat


PositionEntity sky,EntityX(player),EntityY(player),EntityZ(player)

pick=CameraPick (camera,mx,my)


If Patron>0
If MouseDown(1)
If MilliSecs()> time+200
time=MilliSecs()
CreateFlareOut(weapon,flare_weapon,50)
Patron=Patron-1
PlaySound (fire_01)
   If Not lModeShoot
     Animate weapon, 1,1,2
   EndIf
   lModeShoot = True
Else
   If lModeShoot
     Animate weapon, 1,1,1
     lModeShoot = False
  EndIf    
EndIf
EndIf
EndIf
If MouseDown(1)
If MilliSecs()> time+500
time=MilliSecs()
If Patron<1
Animate weapon,3,1
PlaySound Not_fire
EndIf
EndIf
EndIf
;-----------------------------------------------------------

UpdateFlareOut()

;___________________________________

If EntityDistance(player,car)<30
If KeyDown(33)

EntityParent player,car

CarTrue=1
PlayerID=0
EndIf
EndIf

If CarTrue=1
If KeyDown(17) MoveEntity car,1,0,0
If KeyDown(31) MoveEntity car,-1,0,0

EndIf

UpdatePlayer()
FlushMouse()



UpdateWorld()
RenderWorld()
DrawImage(gfxCross, GraphicsWidth()/2-16, GraphicsHeight()/2-16 )

If EntityDistance(player,bool)<30
Text 10,10,"??????? E ???? ????? ???????!"
If KeyHit(18)
Animate bool,3,1
Patron=+40
EndIf
EndIf

Text 10,GraphicsHeight()-50,"???????::"+Patron

Flip 

Until KeyHit(1)


End



Include "loader\scm.BB"

Function CreatePlayer()
        player=CreatePivot() ;??????? ???????? ??????. ??? ????? ?????
        PositionEntity player,0,10,0 ;????????????? ???
        EntityType player,PlayerType ;??????????? ??? ??? ?????????. ??? ????? ??? ????????.
        EntityRadius player,10
        camera=CreateCamera(player)
        PositionEntity camera,0,30,0 ;??????????? ??.
        CameraRange camera,1,10000
        spac=0
End Function

Function UpdatePlayer()
running#= 0
RandCamera=0
;???????? ????
If PlayerID=1
If Abs(EntityPitch(camera)+mys)<55
TurnEntity camera, mys*.3,0,0
EndIf
TurnEntity player,0,-MouseXSpeed()*.3,0
EndIf
mxs=MouseXSpeed()
mys=MouseYSpeed()

MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
;???????????
If PlayerID=1
If KeyDown(17) Then
MoveEntity player,px+0,py+0,pz+1
MoveEntity player,-Sin(MilliSecs()/2)*.08*3,Sin(MilliSecs())*.1,0
running = Rnd (0.35, 0.75)
Else If KeyDown(31)
MoveEntity player,px+0,py+0,pz-1
running = Rnd (0.55, 0.95)
EndIf
If KeyDown(30) Then
MoveEntity player,px-1,py+0,pz+0
running = Rnd (0.35, 0.75)
Else If KeyDown(32)
MoveEntity player,px+1,py+0,pz+0
running = Rnd (0.55, 0.95)
EndIf
EndIf
TranslateEntity player,0,grav#-1,0
    TranslateEntity car,0,grav#-1,0
        If running > 0
            ChannelPitch runChannel, Rnd (80000, 14000)
        EndIf
        ChannelVolume runChannel, running

;??????
x#=EntityX(player) 
y#=EntityY(player) 
z#=EntityZ(player) 
If KeyHit(57) Then
yv#=20
PositionEntity Player,x#,y#+yv#,z# 
yv#=EntityY(player)-ey 
ey=EntityY(player) 
EndIf
;-------------------------------
        If zs#<zo Then zs#=zs#+.025
        If zs#>zo Then zs#=zs#-.025
        If zs#<=0 Then zs#=1
        If xw#<x_weapon# Then xw#=xw#+.2
        If xw#>x_weapon# Then xw#=xw#-.2
        If yw#<y_weapon# Then yw#=yw#+.2
        If yw#>y_weapon# Then yw#=yw#-.2
        If zw#<z_weapon# Then zw#=zw#+.2
        If zw#>z_weapon# Then zw#=zw#-.2
        If rxw#<rx_weapon# Then rxw#=rxw#+.2
        If rxw#>rx_weapon# Then rxw#=rxw#-.2
        If ryw#<ry_weapon# Then ryw#=ryw#+.2
        If ryw#>ry_weapon# Then ryw#=ryw#-.2
        If rzw#<rz_weapon# Then rzw#=rzw#+.2
        If rzw#>rz_weapon# Then rzw#=rzw#-.2
        If MouseDown(2) Then
        x_weapon#=-5.1
        y_weapon#=-7.25
        z_weapon#=-3
        rx_weapon#=0
        ry_weapon#=82
        rz_weapon#=0
        zo#=2.5
        Else
        zo#=1
        x_weapon#=3
        y_weapon#=-12
        z_weapon#=6
        rx_weapon#=0
        ry_weapon#=90
        rz_weapon#=0

        EndIf
        CameraZoom camera,zs#
        PositionEntity weapon,xw#,yw#,zw#
        RotateEntity weapon,rxw#,ryw#,zyw#
;??????????

;???
If KeyDown(17) And KeyDown(42)
MoveEntity player,0,0,1.5
Else If KeyDown(31) And KeyDown(42)
MoveEntity player,0,0,-1.5
EndIf

If KeyDown(30) And KeyDown(42)
MoveEntity player,-1.1,0,0
Else If KeyDown(32) And KeyDown(42)
MoveEntity player,1.1,0,0
EndIf
;????? ??????

End Function


Function UpdateCollisions()
        Collisions playertype,TypePol,2,3
        Collisions playertype,TypeStena,2,3
        Collisions playertype,TypeTons,2,3
        Collisions playertype,TypeBalke,2,3
        Collisions playertype,TypeLuk,2,3
        Collisions TypeBox,TypePol,2,3
        Collisions PlayerType,TypeBox,2,3
        Collisions PlayerType,TypeCar,2,3
        Collisions TypeCar,TypePol,2,3
End Function

Function RecurseSeek(ent)
    tab=tab+4
    For i=1 To CountChildren(ent)    
        child=GetChild(ent,i)
        name$=Lower(EntityName(child))
        If Instr(name$,"pol")
           EntityType child, TypePol
        EndIf
        If Instr(name$,"stena")
           EntityType child, TypeStena
        EndIf
        If Instr(name$,"tons")
           EntityType child, TypeTons
           EntityFX child,1
        EndIf
        If Instr(name$,"balka")
           EntityType child, TypeBalke
        EndIf
        If Instr(name$,"luk")
           EntityType child, TypeLuk
           tex_child=LoadTexture("models\TEX23.bmp",3)
           EntityTexture child,tex_child
           ScaleTexture tex_child,0.5,0.5
        EndIf
    Next
    tab=tab-4
End Function


Function LoadWeapon_1()
   weapon = LoadAnimMesh("models\gun\MP5.b3d",camera) 
   ExtractAnimSeq(weapon,1,1 ) ; 1- idle
   ExtractAnimSeq(weapon,2,8 ) ; 2- shoot 
   Animate weapon, 1,0, 1
   ;EntityPickMode weapon, 2 
  PositionEntity weapon,xw#,yw#,zw#
  RotateEntity weapon,rxw#,ryw#,rzw#
              xw#=3
            yw#=-12
            zw#=6
            rxw#=0
            ryw#=90
            rzw#=0
   EntityParent weapon, camera
   EntityRadius weapon,1
   EntityOrder weapon,-1
End Function

Function LoadWeapon_2()
    weapon_1 = LoadMesh("models\gun\gun_1.b3d",camera) 
   EntityPickMode weapon_1, 2 
   PositionEntity weapon_1,xw#+3,yw#-12,zw#+6
   RotateEntity weapon_1,rxw#+0,ryw#+90,rzw#+0
   EntityParent weapon_1, camera
   EntityRadius weapon_1,1
   EntityOrder weapon_1,-1

End Function

Function InitSounds()
fire_01=LoadSound("sound\fire_01.ogg")
run=LoadSound("sound\dirt.wav")
Not_fire=LoadSound("sound\RifleReload.wav")
SoundVolume run, 0
LoopSound run
runChannel = PlaySound (run)
End Function

Function LoadB3D(FileName$)
;load map & count children
;TextureFilter "",2
TextureFilter "MSK",4
TextureFilter "TRN",2
map=LoadAnimMesh(FileName)
cc=CountChildren(map)


For ent=1 To cc;for each entity

    
    ;get Handle & 'name' of child
    chi=GetChild (map,ent) 
    attr$=EntityName(chi)
    ;create record & store handle
    If attr<>"" 
    
        ;new record
        obj.obj_data = New obj_data
        obj\handler  = chi
        
        ;string parser to delete unwanted chars & separate lines
        attr$=Replace$(attr$,Chr(34),"")
        attr$=Replace$(attr$,Chr(10),"#")
        currentstr=1
        For b=1 To Len(attr)
            If Mid(attr,b,1)="#" Then 
                currentstr=currentstr+1
            Else
                obj\rawdata[currentstr]=obj\rawdata[currentstr]+Mid(attr,b,1)
            EndIf
        Next    

        ;string parser 2 divide into Data segs For fields
        For dat=1 To 8
            switch=0
            attr=obj\rawdata[dat]
            For b=1 To Len(attr)    
                
                If Mid(attr,b,1)="=" Then 
                    switch=1
                Else
                    If switch=0 Then obj\key[dat]   = obj\key[dat]   + Mid(attr,b,1)
                    If switch=1 Then obj\value[dat] = obj\value[dat] + Mid(attr,b,1)
                EndIf
            Next    
            ;extract real name value using the CS4 key 'NAME'
            If Upper(obj\key[dat])="NAME" 
                obj\name = Upper(obj\value[dat])
                
            EndIf    
        Next            

        ;reset raw Data
        For dat=1 To 16
            obj\rawdata[dat]=""
        Next

        ;TESTCODE - remove this ################################
        Print "-------------------------------------------------"
        Print "NAME: "+obj\name+"     Handle:"+Str(obj\handler)
        For dat=1 To 8
            Print "DATA: "+obj\key[dat]+"<=>"+obj\value[dat]
        Next    
        Delay(100)
        ;########################################################

        ;alpha
        For a=1 To 8
            If     Upper(obj\key[a])="ALPHA" Then EntityAlpha obj\handler,Float(obj\value[a])        
        Next
        ;create lights
        If Upper(obj\key[1])="CLASSNAME" And Upper(obj\Value[1])="LIGHT"
            lh=CreateLight(2)
            ;testcode - remove this ################
            lb=CreateSphere(10):EntityFX lb,1
            ;#######################################            
            For a=1 To 8
                PositionEntity lh,EntityX(obj\handler),EntityY(obj\handler),EntityZ(obj\handler)
                ;testcode - remove this ###############
                PositionEntity lb,EntityX(obj\handler),EntityY(obj\handler),EntityZ(obj\handler)
                ;#######################################            
                obj\handler=lh
                If Upper(obj\key[a])="RANGE"
                    LightRange lh, Float(obj\value[a])
                EndIf
                If Upper(obj\key[a])="COLOR"
                    ;parse colors
                    cR$="":cG$="":cB$="":switch=1
                    For ch=1 To Len(obj\value[a])
                        If Mid (obj\value[a],ch,1)=" "
                            switch=switch+1
                        Else
                            If switch=1 Then cR=cR+Mid (obj\value[a],ch,1)
                            If switch=2 Then cg=cg+Mid (obj\value[a],ch,1)
                            If switch=3 Then cb=cb+Mid (obj\value[a],ch,1)
                        EndIf
                    Next
                    
                    LightColor lh, Float(cr),Float(cg),Float(cb)
                    ;testcode - remove this ################
                    EntityColor lb, Float(cr),Float(cg),Float(cb)
                    ;#######################################            
                EndIf
        
                
            Next
        EndIf
        
    EndIf
    
    ;Set Surfaces For receiving hardware lights
    nv=CountSurfaces(chi)
    EntityFX chi,0
    Print nv:Delay(100)

    If nv>0 Then 
        surf=GetSurface (chi,1)
        brsh=GetSurfaceBrush(surf)
        BrushFX brsh,0
        tex=GetBrushTexture(brsh,1)
        TextureBlend tex,2 ;USE 0 to toggle LM on-off 2 TO ADD, USE 3 TO MULTIPLY
        BrushTexture brsh,tex,0,1
        PaintMesh chi,brsh
        FreeBrush brsh
        FreeTexture tex
        ;PaintEntity chi,brsh
        
    EndIf
    UpdateNormals chi
        
    
Next;object

Return map
End Function

Function LoadSkyBox(file$)
    m=CreateMesh()
    ;front face
    b=LoadBrush( file$+"mercury512_bk.jpg",49 )
    s=CreateSurface( m,b )
    AddVertex s,+1,+1,-1,0,0:AddVertex s,-1,+1,-1,1,0
    AddVertex s,-1,-1,-1,1,1:AddVertex s,+1,-1,-1,0,1
    AddTriangle s,0,1,2:AddTriangle s,0,2,3
    FreeBrush b
    ;right face
    b=LoadBrush( file$+"mercury512_lf.jpg",49 )
    s=CreateSurface( m,b )
    AddVertex s,+1,+1,+1,0,0:AddVertex s,+1,+1,-1,1,0
    AddVertex s,+1,-1,-1,1,1:AddVertex s,+1,-1,+1,0,1
    AddTriangle s,0,1,2:AddTriangle s,0,2,3
    FreeBrush b
    ;back face
    b=LoadBrush( file$+"mercury512_ft.jpg",49 )
    s=CreateSurface( m,b )
    AddVertex s,-1,+1,+1,0,0:AddVertex s,+1,+1,+1,1,0
    AddVertex s,+1,-1,+1,1,1:AddVertex s,-1,-1,+1,0,1
    AddTriangle s,0,1,2:AddTriangle s,0,2,3
    FreeBrush b
    ;left face
    b=LoadBrush( file$+"mercury512_rt.jpg",49 )
    s=CreateSurface( m,b )
    AddVertex s,-1,+1,-1,0,0:AddVertex s,-1,+1,+1,1,0
    AddVertex s,-1,-1,+1,1,1:AddVertex s,-1,-1,-1,0,1
    AddTriangle s,0,1,2:AddTriangle s,0,2,3
    FreeBrush b
    ;top face
    b=LoadBrush( file$+"mercury512_up.jpg",49 )
    s=CreateSurface( m,b )
    AddVertex s,-1,+1,-1,0,1:AddVertex s,+1,+1,-1,0,0
    AddVertex s,+1,+1,+1,1,0:AddVertex s,-1,+1,+1,1,1
    AddTriangle s,0,1,2:AddTriangle s,0,2,3
    FreeBrush b
    ;bottom face    
    b=LoadBrush( file$+"mercury512_dn.jpg",49 )
    s=CreateSurface( m,b )
    AddVertex s,-1,-1,+1,1,0:AddVertex s,+1,-1,+1,1,1
    AddVertex s,+1,-1,-1,0,1:AddVertex s,-1,-1,-1,0,0
    AddTriangle s,0,1,2:AddTriangle s,0,2,3
    FreeBrush b
    ScaleMesh m,5000,5000,5000
    ;FlipMesh m
    EntityFX m,1+8
    Return m
    FreeEntity m    
End Function


Function CreateFlareOut(ent,sprite,TimeTolive) 
     flare.OutFlare=New OutFlare 
        flare\time_out=TimeTolive
           flare\sprite = CopyEntity(sprite) 
    PositionEntity flare\sprite,EntityX(ent,1),EntityY(ent,1),EntityZ(ent,1)
    RotateSprite flare\sprite,Rand(-90,90) ; ???? ????? ?????? ??????? ??????? ?? ??? ???????? ??? 
End Function

Function UpdateFlareOut() 
    For flare.OutFlare= Each OutFlare 
       flare\TimeTolive = flare\TimeTolive - 1 
       If flare\time_out < 0  
           FreeEntity flare\sprite 
           Delete flare 
       EndIf 
    Next 
End Function


Function BotUpdat()

End Function