Игростроение - Создание игр

EntityType Player, TypePlayer

FreeEntity Plac

Dim Walls(29)

For i=0 To 29

Walls(i)=CreateCube()

PositionEntity Walls(i),Rnd(-40,40),0,Rnd(-40,40)

EntityType Walls(i), TypeWalls

Next

Target=CreateCylinder()

PositionEntity Target,Rnd(-40,40),0,Rnd(-40,40)

EntityType Target,TypeTarget

cam=CreateCamera()

PositionEntity cam,0,60,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

If EntityCollided (Player,TypeTarget)

PositionEntity Target,Rnd(-40,40),0,Rnd(-40,40)

Score=Score+1

Speed=Speed+.01

EndIf

If EntityCollided (Player,TypeWalls) End

UpdateWorld

RenderWorld

Text 320,10,"Score : "+Score,True,True

Flip

Until KeyHit(1)

End