кто поможет перевести этот код в php
вот я кое что хотел сделать но не получилось
плиз помогите
Код:
SeedRnd MilliSecs()
Graphics3D 640,480,16,1
SetBuffer BackBuffer()
Const TypePlayer=1,TypeWalls=2,TypeTarget=3
Global Speed#=.1,Score=0
Global Player=CreateSphere()
Plac=CreateCone(8)
RotateMesh Plac,-90,0,0
ScaleMesh Plac,1,1,1.2
PositionMesh Plac,0,0,-1.5
AddMesh Plac,Player
EntityType Player, TypePlayer
EntityColor Player,0,255,0
FreeEntity Plac
Dim Walls(33)
For i=0 To 29
Walls(i)=CreateCube()
Repeat
PositionEntity Walls(i),Rnd(-40,40),0,Rnd(-40,40)
Until Abs(EntityX(Walls(i)))>10 Or Abs(EntityZ(Walls(i)))>10
EntityType Walls(i), TypeWalls
EntityColor Walls(i),255,0,0
Next
For i=30 To 33
Walls(i)=CreateCube()
EntityColor Walls(i),100,20,0
EntityType Walls(i),TypeWalls
Next
PositionEntity Walls(30),-50,0,0
FitMesh Walls(30),-1,-1,-50,2,3,100
PositionEntity Walls(31),50,0,0
FitMesh Walls(31),-1,-1,-50,2,3,100
PositionEntity Walls(32),0,0,-50
FitMesh Walls(32),-50,-1,-1,100,3,2
PositionEntity Walls(33),0,0,50
FitMesh Walls(33),-50,-1,-1,100,3,2
Target=CreateCylinder()
PositionEntity Target,Rnd(-40,40),0,Rnd(-40,40)
EntityColor Target,255,215,0
EntityType Target,TypeTarget
cam=CreateCamera()
PositionEntity cam,0,40,0
TurnEntity cam,90,0,0
lit=CreateLight()
TurnEntity lit,70,70,0
Collisions TypePlayer,TypeWalls,2,2
Collisions TypePlayer,TypeTarget,2,2
Repeat
MoveEntity Player,0,0,Speed#
If KeyDown(203) TurnEntity Player,0,3,0
If KeyDown(205) TurnEntity Player,0,-3,0
PointEntity cam,Player
If EntityCollided (Player,TypeTarget)
Repeat
inter=False
PositionEntity Target,Rnd(-40,40),0,Rnd(-40,40)
For i=0 To 29
If MeshesIntersect(Target, Walls(i)) inter=True
Next
Until inter=False
UpdateWorld
Score=Score+1
Speed=Speed+.01
EndIf
If EntityCollided (Player,TypeWalls) End
UpdateWorld
RenderWorld
Color 255,215,0
Text 320,10,"Score : "+Score,True,True
Flip
Until KeyHit(1)
Endвот я кое что хотел сделать но не получилось
PHP код:
bbBeginBlitz3D();
bbGraphics3D(640,480,16,2);
bbAntiAlias( true );
define("TypePlayer", 1);
define("TypeWalls", 2);
define("TypeTarget", 3);
global $Speed,$Score,$Player;
$Player=bbCreateSphere();
$Speed=0.1;
$Score=0;
$Plac=bbCreateCone(8);
bbRotateMesh($Plac,-90,0,0);
bbScaleMesh($Plac,1,1,1.2);
bbPositionMesh($Plac,0,0,-1.5);
bbAddMesh($Plac,$Player);
$Walls[] = 33;
for($i = 0; $i <= 20; $i++){
$Walls[$i]=bbCreateCube();
}
for($i = 30; $i <= 33; $i++){
$Walls[$i]=bbCreateCube();
bbEntityColor($Walls[$i],100,20,0);
bbEntityType($Walls[$i],TypeWalls);
}
bbPositionEntity($Walls[30],-50,0,0);
bbFitMesh($Walls[30],-1,-1,-50,2,3,100);
bbPositionEntity($Walls[31],50,0,0);
bbFitMesh($Walls[31],-1,-1,-50,2,3,100);
bbPositionEntity($Walls[32],0,0,-50);
bbFitMesh($Walls[32],-50,-1,-1,100,3,2);
bbPositionEntity($Walls[33],0,0,50);
bbFitMesh($Walls[33],-50,-1,-1,100,3,2);
$Target=bbCreateCylinder();
bbPositionEntity($Target,rand(-40,40),0,rand(-40,40));
bbEntityColor($Target,255,215,0);
bbEntityType($Target,TypeTarget);
$cam=bbCreateCamera();
bbPositionEntity($cam,0,40,0);
bbTurnEntity($cam,90,0,0);
$lit=bbCreateLight();
bbTurnEntity($lit,70,70,0);
bbCollisions(TypePlayer,TypeWalls,2,2);
bbCollisions(TypePlayer,TypeTarget,2,2);
Timer::setInterval(function($timer) use ($cam,$lit,$Player,$Score,$Speed,$Target,$Rnd){
bbMoveEntity($Player,0,0,$Speed);
if (bbKeyDown(203))
bbTurnEntity($Player,0,3,0);
if (bbKeyDown(205))
bbTurnEntity($Player,0,-3,0);
bbPointEntity($cam,$Player);
if(bbEntityCollided($Player,TypeTarget)){
Timer::setInterval(function($timer2) use ($cam,$lit,$Target,$Walls){
$inter=false;
bbPositionEntity($Target,rand(-40,40),0,rand(-40,40));
for($i = 0; $i <= 29; $i++){
if(bbMeshesIntersect($Target, $Walls[$i]))
$inter=true;
}
},1);
$inter=false;
bbUpdateWorld();
$Score=$Score+1;
$Speed=$Speed+.01;
}
if(bbEntityCollided($Player,TypeWalls))
bbUpdateWorld();
bbRenderWorld();
bbColor(255,215,0);
bbText(320,10,"Score : "+Score,True,True);
bbFlip();
},1);