[Putin]

"Бой" в космосе:

УПРАВЛЕНИЕ: стрелки; смена вида-на доп клаве 4,5,6,8; стреляем A(engl); выход SPACE
Код:

Graphics3D 640,480,16,1 
SetBuffer BackBuffer() 
 
SeedRnd MilliSecs() 
;================================== 
Global pp.player 
Global f1=LoadFont("Courier New",14) 
Global dot1, bullet1, spark 
Global sk#=0, enemy_num 
 
;================================== 
Const ships=1, bullets=2, p_ships=3 
 
;================================== 
Type player; player 
Field corp, ent,life, speed#, fuel#, weapon, lW, rW, bW, look 
End Type 
 
Type bullet1 
Field ent, timer, state 
End Type 
 
Type spark 
Field ent, time 
End Type 
 
Type enemy1; first enemy 
Field ent, life, period 
End Type 
 
;================================== 
create_level() 
 
 
;==================MAIN LOOP 
Repeat 
 
controls () 
player_phisic () 
update_bullet1 () 
update_sparks() 
enemy_update() 
 
RenderWorld 
UpdateWorld 
draw_cabine() 
Flip 
 
Until KeyHit(57) 
End 
;================================= 
Function draw_cabine() 
Select pp\look 
Case 1 
Color 80,180,180 
Rect 0,301,640,480 
Rect 0,0,640,39 
Rect 0,0,39,301 
Rect 601,39,640,301 
Color 0,0,0 
Line 0,0,40,40 
Line 640,0,600,40 
Line 0,341,40,301 
Line 640,341,600,301 
Line 0,341,640,341 
Color 160,50,200 
Line 40,40,200,100 
Line 600,40,440,100 
Rect 200,100,440-200,300-100+1,0 
;parametrs 
Color 50,50,250 
Rect 400,400,pp\speed#,10 
Rect 398,398,164,14,0 
; weapon target 
Select pp\weapon 
Case 1 
Color 10,87,124 
Line 320,200,300,220 
Line 320,200,340,220 
End Select 
Case 2 
Color 80,180,180 
Rect 0,301,640,480 
Rect 0,0,640,39 
Rect 0,0,39,301 
Rect 601,39,640,301 
Color 0,0,0 
Line 0,0,40,40 
Line 640,0,600,40 
Line 0,341,40,301 
Line 640,341,600,301 
Line 0,341,640,341 
Color 160,50,200 
Line 40,40,200,100 
Line 600,40,440,100 
Line 440,100,200,300 
Rect 200,100,440-200,300-100+1,0 
Case 3 
Color 80,180,180 
Rect 0,301,640,480 
Rect 0,0,640,39 
Rect 0,0,39,301 
Rect 601,39,640,301 
Color 0,0,0 
Line 0,0,40,40 
Line 640,0,600,40 
Line 0,341,40,301 
Line 640,341,600,301 
Line 0,341,640,341 
Color 160,50,200 
Line 40,40,200,100 
Line 600,40,440,100 
Line 200,100,440,300 
Rect 200,100,440-200,300-100+1,0 
Case 4; back vision 
Color 80,180,180 
Rect 0,301,640,480 
Rect 0,0,640,39 
Rect 0,0,39,301 
Rect 601,39,640,301 
Color 0,0,0 
Line 0,0,40,40 
Line 640,0,600,40 
Line 0,341,40,301 
Line 640,341,600,301 
Line 0,341,640,341 
Color 160,50,200 
Line 40,40,200,100 
Line 600,40,440,100 
Line 200,100,440,300 
Line 440,100,200,300 
Rect 200,100,440-200,300-100+1,0 
End Select 
 
Text 100,100, "ENEMYS "+enemy_num 
 
 
End Function 
Function create_level() 
 
create_enemy() 
 
pp.player=New player 
pp\ent=CreateCamera(); main camera 
PositionEntity pp\ent,0,0,-5 
RotateEntity pp\ent,0,0,0 
pp\corp=CreateCube(pp\ent); ships corpus 
ScaleEntity pp\corp,2,2,2 
EntityRadius pp\corp,2 
EntityType pp\corp,p_ships 
pp\speed=0 
pp\lW=CreateCamera(pp\ent); left camera 
RotateEntity pp\lW,0,90,0 
pp\rW=CreateCamera(pp\ent); right camera 
RotateEntity pp\rW,0,-90,0 
pp\bW=CreateCamera(pp\ent); right camera 
RotateEntity pp\bW,0,-180,0 
pp\fuel#=100 
CameraProjMode pp\rW,0; turn of camera 
CameraProjMode pp\lW,0; turn of camera 
CameraProjMode pp\bW,0; turn of camera 
CameraProjMode pp\ent,1 
EntityRadius pp\lW,2 
EntityType pp\lW,p_ships 
EntityRadius pp\rW,2 
EntityType pp\rW,p_ships 
pp\look=1 
 
 
pp\weapon=1 
 
 
 
dot1=CreateSprite() 
ScaleSprite dot1,.2,.2 
EntityColor dot1,234,100,100 
EntityType dot1,bullets 
EntityRadius dot1,1 
HideEntity dot1 
 
Collisions bullets,ships,2,2 
Collisions bullets,p_ships,2,2 
Collisions ships, ships, 2,2 
 
End Function 
Function controls() 
 
If KeyDown (203) TurnEntity pp\ent,0, 0, 1 
If KeyDown (205) TurnEntity pp\ent,0, 0,-1 
 
If KeyDown (200) TurnEntity pp\ent, 1,0,0 
If KeyDown (208) TurnEntity pp\ent,-1,0,0 
 
If KeyDown (78) Then pp\speed#=pp\speed#+0.25 
If KeyDown (74) Then pp\speed#=pp\speed#-0.25 
 
If pp\speed#>4 pp\speed#=4 
If pp\speed#<0 pp\speed#=0 
 
If KeyHit(30) Then 
bp.bullet1=New bullet1 
bp\state=1 
bp\ent=CopyEntity (dot1,pp\ent) 
PositionEntity bp\ent,Rnd(-1,1),Rnd(-1,1),3 
RotateSprite bp\ent,Rnd(-300,300) 
EntityParent bp\ent,0 
EntityType bp\ent, bullets 
EntityRadius bp\ent,1 
EndIf 
 
; look control 
If KeyHit(77) Then 
pp\look=2 
CameraProjMode pp\ent,0; turn of camera 
CameraProjMode pp\lW,0; turn of camera 
CameraProjMode pp\bW,0; turn of camera 
CameraProjMode pp\rW,1 
EndIf 
 
If KeyHit(75) Then 
pp\look=3 
CameraProjMode pp\bW,0; turn of camera 
CameraProjMode pp\ent,0; turn of camera 
CameraProjMode pp\rW,0; turn of camera 
CameraProjMode pp\lW,1 
EndIf 
 
If KeyHit(76) Then 
pp\look=1 
CameraProjMode pp\bW,0; turn of camera 
CameraProjMode pp\rW,0; turn of camera 
CameraProjMode pp\lW,0; turn of camera 
CameraProjMode pp\ent,1 
EndIf 
 
If KeyHit(80) Then 
pp\look=4 
CameraProjMode pp\ent,0; turn of camera 
CameraProjMode pp\rW,0; turn of camera 
CameraProjMode pp\lW,0; turn of camera 
CameraProjMode pp\bW,1 
 
EndIf 
End Function 
Function player_phisic() 
MoveEntity pp\ent,0,0,pp\speed# 
 
 
 
For bb.bullet1 =Each bullet1 
If CountCollisions (pp\corp)>0 Then 
CameraClsColor pp\ent,250,10,10 
CameraClsColor pp\lW,250,10,10 
CameraClsColor pp\rW,250,10,10 
CameraClsColor pp\bW,250,10,10 
Else 
CameraClsColor pp\ent,0,0,0 
CameraClsColor pp\lW,0,0,0 
CameraClsColor pp\bW,0,0,0 
CameraClsColor pp\rW,0,0,0 
EndIf 
 
Next 
 
End Function 
Function update_bullet1() 
For bb.bullet1=Each bullet1 
 
Select bb\state; whos bullet 
Case 1 
MoveEntity bb\ent,0,.5,6 
Default 
MoveEntity bb\ent,0,0,6 
End Select 
 
ang=ang+1 
RotateSprite bb\ent,ang 
bb\timer = bb\timer+1 
If bb\timer>160 Or EntityCollided(bb\ent,p_ships) Then 
sp.spark=New spark 
sp\ent=CreateSphere(6,bb\ent) 
EntityParent sp\ent,0 
EntityColor sp\ent,Rnd(200,250),34,26 
FreeEntity bb\ent 
Delete bb 
EndIf 
Next 
 
 
End Function 
Function update_sparks() 
For ss.spark=Each spark 
sk#=sk#+0.5 
If sk#>1 sk#=0 
ss\time=ss\time+1 
ScaleEntity ss\ent,sk#,sk#,sk# 
If ss\time>40 Then 
FreeEntity ss\ent 
Delete ss 
EndIf 
Next 
End Function 
Function create_enemy() 
 
For n=0 To 105 
e1.enemy1=New enemy1 
e1\ent=CreateCube() 
ScaleEntity e1\ent,2,2,2 
EntityColor e1\ent,10,135,32 
PositionEntity e1\ent,Rnd(3000,-3000),Rnd(-200,200),1000 
EntityType e1\ent,ships 
EntityRadius e1\ent,1 
enemy_num=enemy_num+1 
Next 
 
End Function 
Function enemy_update() 
For e1.enemy1=Each enemy1 
If EntityDistance(e1\ent,pp\ent)>100 MoveEntity e1\ent,0,0,1.5 
If EntityDistance(e1\ent,pp\ent)<100 MoveEntity e1\ent,0,0,1 
 
TurnEntity e1\ent,DeltaPitch(e1\ent,pp\ent)/5, DeltaYaw(e1\ent,pp\ent)/5,0 
 
If EntityDistance(e1\ent,pp\ent)<300 Then; shoting script 
e1\period=e1\period+1 
If e1\period>10 e1\period=0 
If e1\period=0 Then 
bp.bullet1=New bullet1 
bp\ent=CopyEntity (dot1,e1\ent) 
PositionEntity bp\ent,Rnd(-1,1),Rnd(-1,1),3 
RotateSprite bp\ent,Rnd(-300,300) 
EntityParent bp\ent,0 
EntityType bp\ent, bullets 
EntityRadius bp\ent,1 
EndIf 
EndIf 
 
If EntityCollided(e1\ent,bullets) e1\life=e1\life-1 
 
If e1\life<0 Then;enemy deth 
For z=0 To 7 
sp.spark=New spark 
sp\ent=CreateCube(e1\ent) 
PositionEntity sp\ent,Rnd(-10,10),Rnd(-10,10),Rnd(-10,10) 
EntityColor sp\ent,Rnd(20,256),Rnd(200,250),Rnd(10,100) 
EntityParent sp\ent,0 
Next 
FreeEntity e1\ent 
Delete e1 
enemy_num=enemy_num-1 
EndIf 
Next 
 
End Function

Хотелось бы услышать рекомендации и предложения ).
Смайлы при копирование декодируются в цифры?