ошибка с типом
Код:
timer=timer+1
PositionEntity camera,EntityX(hero),EntityY(camera),EntityZ(hero)
PositionEntity hero,EntityX(hero),-.2,EntityZ(hero)
If Not (KeyDown(205) Or KeyDown(203))
If KeyDown(200) TranslateEntity hero,0,0,speed#:moveto=1;up
If KeyDown(208) TranslateEntity hero,0,0,-speed#:moveto=2;down
EndIf
If Not (KeyDown(208) Or KeyDown(200))
If KeyDown(205) TranslateEntity hero,speed#,0,0:moveto=3;right
If KeyDown(203) TranslateEntity hero,-speed#,0,0:moveto=4;left
EndIf
If (KeyDown(200) Or KeyDown(208) Or KeyDown(203) Or KeyDown(205))=0 moveto=0
Select moveto
Case 1
RotateEntity hero,0,0,0
piced=LinePick(EntityX(hero),0.5,EntityZ(hero),0,0,1)
Case 2
RotateEntity hero,0,180,0
piced=LinePick(EntityX(hero),0.5,EntityZ(hero),0,0,-1)
Case 3
RotateEntity hero,0,270,0
piced=LinePick(EntityX(hero),0.5,EntityZ(hero),1,0,0)
Case 4
RotateEntity hero,0,90,0
piced=LinePick(EntityX(hero),0.5,EntityZ(hero),-1,0,0)
End Select
speed=.1
If moveto=0 And AnimSeq(hero)<>nor Animate hero,1,1,nor;стоим
For a.map=Each map
If a\blok<>0;1 цикл***********************
;движения блока
If piced<>0
If piced=a\blok
If moveto<>0 And AnimSeq(hero)<>run_ Animate hero,1,1,run_
speed#=0.05
Select moveto
Case 1:TranslateEntity a\blok,0,0,speed
Case 2:TranslateEntity a\blok,0,0,-speed
Case 3:TranslateEntity a\blok,speed,0,0
Case 4:TranslateEntity a\blok,-speed,0,0
Case 4,3,2,1:
End Select
EndIf
Else
If moveto<>0 And AnimSeq(hero)<>run Animate hero,1,1,run
EndIf
If GetEntityType(a\blok)=but_t And a\stat=0
p=LinePick(EntityX(a\blok),-1,EntityZ(a\blok),0,3,0)
If p<>0
If GetEntityType(p)=blok_t
new_id%=a\chaild
a\stat=1
EndIf
EndIf
EndIf
If new_id%>0
If new_id%=a\id a\stat=1
EndIf
If a\stat=1 And GetEntityType(a\blok)=door_t And EntityY(a\blok)>-2 TranslateEntity a\blok,0,-.1,0
;EndIf
;Next
;For a.map=Each map
;If a\blok>0
If GetEntityType(a\blok)=bmb_t
TurnEntity a\blok,0,4,0
If EntityDistance(player,a\blok)<1
If bomb_c<10 FreeEntity a\blok:Delete a:bomb_c=bomb_c+5
If bomb_c>10 bomb_c=10
EndIf
EndIf
EndIf ;********************************* конец 1
Next
For b.Bomb=Each bomb
If b\stat=1
FreeEntity b\bomb_e
FreeEntity b\par:Delete b
Else
PositionEntity b\par,EntityX(b\bomb_e),EntityY(b\bomb_e)-.4,EntityZ(b\bomb_e)
If idcam=0 PointEntity b\par,cam_1
If idcam=1 PointEntity b\par,cam_2
EntityTexture b\par,part_tex,MilliSecs()/100 Mod 3
For a.map = Each map
If a\blok<>0
If GetEntityType(a\blok)=dwall_t And timer>b\timer
If EntityDistance(a\blok,b\bomb_e)<2.5 Then
FreeEntity a\blok:Delete a: b\stat=1
Else
b\stat=1
EndIf
EndIf
EndIf
Next
EndIf
Next
;ставим бомбы*********************************
If KeyHit(57) And Bomb_c>0
b.Bomb=New Bomb
b\bomb_e=CopyEntity(din_)
b\timer=timer+200
PositionEntity b\bomb_e,EntityX(hero),.7,EntityZ(hero)
ShowEntity b\bomb_e
bomb_c=bomb_c-1
b\stat=0
b\par=CopyEntity(part_sp)
EndIf;**************************************
(выделено красным)Там должн происходить плюсование количество динамита по 5,а плюсует в 2 раза больше,типо по типу в раз 2 прохода,но как??где косяк в этом коде(что весь код-Г*но сам знаю,но какой есть-такой есть) |
