Регистрация | Вход
; program AIInclude "fps.bb"Graphics3D 800, 600,32,2SetBuffer BackBuffer()camera=CreateCamera()PositionEntity(camera,0,25,-25)RotateEntity(camera,45,0,0)player = CreateCube()npc = CreateSphere()button = CreateCube()PositionEntity(button, 5, 0, 5)ScaleEntity(button,0.5,0.5,0.5)PositionEntity(player, 0, 0, 0)PositionEntity(npc, 10, 0, 10)npc_speed#=0.05npc_vec_x#=Rnd(-npc_speed,npc_speed)npc_vec_z#=Rnd(-npc_speed,npc_speed)While Not KeyHit(1) SeedRnd(MilliSecs()) Cls() If KeyDown(208) Then MoveEntity(player, 0, 0, -0.1) If KeyDown(200) Then MoveEntity(player, 0, 0, 0.1) If KeyDown(203) Then MoveEntity(player, -0.1, 0, 0) If KeyDown(205) Then MoveEntity(player, 0.1, 0, 0) npcDistance = EntityDistance(npc,player) If npcDistance < 10 Then PointEntity(npc, player) MoveEntity(npc, 0,0,0.05) Else TranslateEntity(npc, npc_vec_x, 0,npc_vec_z)EndIf If Rand(1,100)=100 Then npc_vec_x=Rnd(-npc_speed,npc_speed) npc_vec_z=Rnd(-npc_speed,npc_speed) EndIf RenderWorld() If EntityDistance(player, button) < 2 Then Locate 0,0 Print("you press key !") EndIf FpsSet(25) ShowFps() Flip()WendEndFunction Normalize_Vec#(v#)If(v<0)Return -1;If(v>0)Return 1;End Function