Вопрос-Ответ (для новичков)

[IGR]

ну скорей тут трабла в путях к файлам текстур для модели !!

[KingMaks]

Есть у меня тип:

Type enemys
 Field obj
 Field health
End Type

Потом создаються три врага:

For i = 1 To 3
  e.enemys = New enemys
  e\health = 100
  e\obj = CopyEntity(enemy)
  EntityType e\obj,typeenemy
If i = 1 Then PositionEntity e\obj,0,2,0
If i = 2 Then PositionEntity e\obj,0,2,-5
If i = 3 Then PositionEntity e\obj,0,2,-10
Next

Далее ети враги какбы двигаються:

For e.enemys = Each enemys
If EntityDistance(player,e\obj) > 1 And EntityDistance(player,e\obj) < 10 Then TurnEntity e\obj,0,DeltaYaw(e\obj,player)*0.03,0
If EntityDistance(player,e\obj) > 1 And EntityDistance(player,e\obj) < 10 Then MoveEntity e\obj,0,0,0.03
MoveEntity e\obj,0,-0.1,0
Next

Все работает нормально, но когда жмеш паузу возвращаешься вглавное меню и заново жмеш старт выдает ошибку в строчке:

If EntityDistance(player,e\obj) > 1 And EntityDistance(player,e\obj) < 10 Then TurnEntity e\obj,0,DeltaYaw(e\obj,player)*0.03,0

entity does not exist

почему второй раз оно необнаружает e\obj? и как исправить?

[impersonalis]

веротяно меню где-то вызвает clearworld
после чего типы отсаются с битыми дескрипторами сущностей.

[KingMaks]

Сообщение от impersonalis

веротяно меню где-то вызвает clearworld
после чего типы отсаются с битыми дескрипторами сущностей.

Да ClearWorld есть
и как исправить? чтобы клеарворлд осталось?

[Reizel]

Если так оставлять то потом придется каждый тип переписывать заного, т.е. примерно так:
Function Menu()
ClearWorld();
delete each Enemys;
delete each Obj;
end function

А после вызова этой функции создавать заного всех врагов, объекты, и т.д.
Так что выбрасывай Clear() пока не поздно и учись программировать правильно. Это не сложно

[KingMaks]

Сообщение от Павел

Если так оставлять то потом придется каждый тип переписывать заного, т.е. примерно так:
Function Menu()
ClearWorld();
delete each Enemys;
delete each Obj;
end function

А после вызова этой функции создавать заного всех врагов, объекты, и т.д.
Так что выбрасывай Clear() пока не поздно и учись программировать правильно. Это не сложно

Правильно ето FreeEntity ? или как мне тогда уровень стереть?

[KingMaks]

Ну вот функция загружает уровень:

Function level_1()
player = CreateSphere(8)
EntityType player,typeplayer
EntityRadius player,1.5
EntityAlpha player,0
PositionEntity player,0,9,20

camera = CreateCamera(player)
ScaleEntity camera,0.5,0.5,0.5
PositionEntity camera,0,2,0

player_hand = LoadAnimMesh("Data\player\player.b3d",camera)
player_atack = LoadAnimSeq(player_hand,"Data\player\player_atack.b3d")
player_atack2 = LoadAnimSeq(player_hand,"Data\player\player_atack2.b3d")
player_walk = LoadAnimSeq(player_hand,"Data\player\player_walk.b3d")
TurnEntity player_hand,0,90,0
PositionEntity player_hand,0,-1,1

enemy  = LoadAnimMesh("Data\enemy\enemy.b3d")
PositionEntity enemy,0,2,0
enemy_walk = LoadAnimSeq(enemy,"Data\enemy\enemy_walk.b3d")
enemy_atack = LoadAnimSeq(enemy,"Data\enemy\enemy_atack.b3d")
enemy_idle = LoadAnimSeq(enemy,"Data\enemy\enemy_idle.b3d")
HideEntity enemy
EntityType enemy,typeenemy

;---Create Enemys---
For i = 1 To 3
  e.enemys = New enemys
  e\health = 100
  e\obj = CopyEntity(enemy)
  EntityType e\obj,typeenemy
If i = 1 Then PositionEntity e\obj,0,2,0
If i = 2 Then PositionEntity e\obj,0,2,-5
If i = 3 Then PositionEntity e\obj,0,2,-10
Next
;-----------------------------

shword_cub = CreateSphere(8)
ScaleEntity shword_cub,0.5,0.5,0.5
HideEntity shword_cub

light = CreateLight(2)
RotateEntity light,0,0,0
PositionEntity light,0,10,0

sky = CreateSphere(64)
ScaleEntity sky,100,100,100
FlipMesh sky
texsky = LoadTexture("Data\levels\level1\texsky.jpg")
EntityTexture sky,texsky

maze_level_1 = LoadAnimMesh("Data\levels\level1\level1.b3d")
EntityType maze_level_1,typesolid
PositionEntity maze_level_1,0,-1,0
levels = "Level_Play"
TurnEntity sky,0,1,0
End Function

Вот удаляет:

Function Delete_level_1()
FreeEntity player
FreeEntity enemy
FreeEntity light
FreeEntity sky
FreeEntity maze_level_1
For e.enemys = Each enemys
Delete e
Next
End Function

Но почимуто после возврата в главное меню, и нажатие заново старт
и врагов стает уже не три а шесть потом девять и т.д.
Как удалить врагов?Или как правильнее написать?

[ABTOMAT]

For e.enemys = Each enemys
Delete e
Next

Гиде удаление модельки?

For e.enemys = Each enemys
FreeEntity e\моделька монстра
Delete e
Next

[Reizel]

King я только не понимаю, а нафига при выходе в меню удолять весь мир??? Смысл??? А потом заного грузить... Маразм... Сделай по проще, обычной паузой

[KingMaks]

Павел

пауза есть
нажимаеш паузу и там две строки вернуться вигру-игра продолжаеться
и выйти в главное меню - весь мир удаляесть и выходит в главное меню

игра работает вроде правельно
но написано как вы говорите неопрятным кодом
чем дальше тем чаще ошибки непонятные

поетому я занелся тетрисом как мне и советывали раньше
ламаю щас голову

[NitE]

тетрис это очень сложно.
попробуй лучше делать дальше то что делал (может заного но всё-же)

[is.SarCasm]

Можно ли как то узнать длину строки зная размер шрифта? Вроде не у всех букв одинаковый разме.р

[H@NON]

StringWidth

[KingMaks]

Есть ли команда :
"Если обьект в поле зрения камеры"

[IGR]

эм...

EntityInView ( entity,camera )
Параметры:
entity - указатель объекта
camera - указатель камеры

Описание:
Возвращает true, если объект находится в поле зрения данной камеры (т.е. видим).

Если объект типа mesh (сетчатая модель), то для него будет проверяться на видимость описанный вокруг объекта параллелепипед (границы объекта).

Для всех других типов объектов будет проверяться только центральная точка объекта.

PS: кто-то пользуется http://help.boolean.name/commands/index.htm ??