Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > Blitz3D > 3D-программирование

3D-программирование Вопросы, касающиеся программирования 3D мира

Ответ
 
Опции темы
Старый 14.07.2015, 14:05   #1
softcrasoft
Знающий
 
Регистрация: 21.03.2015
Сообщений: 262
Написано 6 полезных сообщений
(для 7 пользователей)
Ошибка

Привет всем.
Ребят возникает ошибка Expecting variable assignment.
Вот код:
Type Entity
Field hp
Field mesh
Field name$
End Type
Graphics3D 1366,768,16,2
SetBuffer BackBuffer()
Const G#=1
Const typeplayer=1
Const typeterr=2
player=CreateSphere()
cam=CreateCamera(player)
EntityType player,typeplayer
terrain=CreatePlane()
EntityType terrain,typeterr
Collisions typeplayer,typeterr,2,3
CreateListener(cam)
sound=Load3DSound("1.wav")
strelba = LoadSound ("snd\m107.mp3")
hp = LoadSound("snd\16_Lastlife.wav")
ranenie = LoadSound("snd\die1.wav")
ubit = LoadSound("snd\scream_21.wav")
For i=1 To 10
bot.Entity=New Entity
bot\hp = 100
bot\name$ = Handle(bot)
bot\mesh = CreateCube()
NameEntity*bot\mesh,*bot\name$
PositionEntity bot\mesh,Rnd(0,50),0,50
EntityPickMode bot\mesh,3
Next
While Not KeyHit(1)
TurnEntity cam,MouseYSpeed(),0,0
TurnEntity player,0,-MouseXSpeed(),0
TranslateEntity player,0,-G#,0
ent=CameraPick(cam,MouseX(),MouseY())
If KeyHit(2 Then
PlaySound strelba
If ent <> 0 Then
bot.Entity=Object.Entity(EntityName(ent))
bot\hp=bot\hp-10
If bot\hp > 10 PlaySound ranenie
If bot\hp <= 0 Then
PlaySound ubit
FreeEntity bot\mesh
End If
End If
End If
If KeyHit(30) EmitSound(sound,Bot\Mesh)
If KeyHit(201) MoveEntity player,0,0,0.5
If KeyHit(20 MoveEntity player,0,0,-0.5
If KeyHit(203) TurnEntity player,0,1,0
If KeyHit(205) TurnEntity player,0,-1,0
MoveMouse GraphicsWidth()*0.5,GraphicsHeight()*0.5
If Abs(EntityPitch#(cam))>70 RotateEntity cam,70*Sgn(EntityPitch#(cam)),0,0
UpdateWorld()
RenderWorld()
Flip
Wend
End
Указывает на:
NameEntity*bot\mesh,*bot\name$
Написано вроде все правильно.
Помогите пожалуйста разобраться с ней!
(Offline)
 
Ответить с цитированием
Старый 14.07.2015, 14:12   #2
Taugeshtu
scientist.alien
 
Аватар для Taugeshtu
 
Регистрация: 12.02.2007
Сообщений: 2,098
Написано 1,030 полезных сообщений
(для 2,593 пользователей)
Ответ: Ошибка

bot\name$ = Handle(bot)

NameEntity bot\mesh, bot\name$
Блитц не трогал уже очень много лет, могу ошибаться.
$ - индикатор типа переменной "строка". По идее он должен использоваться только в момент объявления переменной. Возможно, его можно юзать как у тебя в первой цитированной строке, в присвоении.

Когда ты пытаешься вытащить значение из поля какого-то Type, тебе не нужно указывать тип этого поля.
__________________
Public service announcement: вы можете заблокировать отображение сообщений определённого пользователя, добавив его ник в список игнорируемых.
Tau lab.
We LOVE you. We MADE you.
(Offline)
 
Ответить с цитированием
Старый 14.07.2015, 14:14   #3
softcrasoft
Знающий
 
Регистрация: 21.03.2015
Сообщений: 262
Написано 6 полезных сообщений
(для 7 пользователей)
Ответ: Ошибка

ща пробну спс
ес ес ес, СПААААСИИИИИБООООООО
(Offline)
 
Ответить с цитированием
Старый 14.07.2015, 14:22   #4
softcrasoft
Знающий
 
Регистрация: 21.03.2015
Сообщений: 262
Написано 6 полезных сообщений
(для 7 пользователей)
Ответ: Ошибка

передалал немного код, тоже самое начало появлятся. знак я не указывал
Type Entity
Field hp
Field mesh
Field name$
End Type
Graphics3D 1366,768,16,2
SetBuffer BackBuffer()
Const G#=1
Const typeplayer=1
Const typeterr=2
player=CreateSphere()
cam=CreateCamera(player)
EntityType player,typeplayer
terrain=CreatePlane()
EntityType terrain,typeterr
Collisions typeplayer,typeterr,2,3
CreateListener(cam)
sound=Load3DSound("1.wav")
strelba = LoadSound ("snd\m107.mp3")
hp = LoadSound("snd\16_Lastlife.wav")
ranenie = LoadSound("snd\die1.wav")
ubit = LoadSound("snd\scream_21.wav")
For i=1 To 10
bot.Entity=New Entity
bot\hp = 100
bot\name = Handle(bot)
bot\mesh = CreateCube()
NameEntity*bot\mesh,*bot\name
PositionEntity bot\mesh,Rnd(0,50),0,50
EntityPickMode bot\mesh,3
Next
While Not KeyHit(1)
TurnEntity cam,MouseYSpeed(),0,0
TurnEntity player,0,-MouseXSpeed(),0
TranslateEntity player,0,-G#,0
ent=CameraPick(cam,MouseX(),MouseY())
If KeyHit(2 Then
PlaySound strelba
If ent <> 0 Then
bot.Entity=Object.Entity(EntityName(ent))
bot\hp=bot\hp-10
If bot\hp > 10 PlaySound ranenie
If bot\hp <= 0 Then
PlaySound ubit
FreeEntity bot\mesh
End If
End If
End If
If KeyHit(30) EmitSound(sound,bot\mesh)
If KeyHit(201) MoveEntity player,0,0,0.5
If KeyHit(20 MoveEntity player,0,0,-0.5
If KeyHit(203) TurnEntity player,0,1,0
If KeyHit(205) TurnEntity player,0,-1,0
MoveMouse GraphicsWidth()*0.5,GraphicsHeight()*0.5
If Abs(EntityPitch#(cam))>70 RotateEntity cam,70*Sgn(EntityPitch#(cam)),0,0
UpdateWorld()
RenderWorld()
Flip
Wend
End
изменил If KeyHit(30) EmitSound(sound,bot\mesh) было не правильно указано названия переменных.
(Offline)
 
Ответить с цитированием
Старый 14.07.2015, 15:43   #5
Кирпи4
Социал-сычевист
 
Аватар для Кирпи4
 
Регистрация: 24.06.2011
Сообщений: 611
Написано 342 полезных сообщений
(для 1,359 пользователей)
Ответ: Ошибка

На двадцать восьмой строке убери звездочки
__________________


(Offline)
 
Ответить с цитированием
Старый 14.07.2015, 15:48   #6
softcrasoft
Знающий
 
Регистрация: 21.03.2015
Сообщений: 262
Написано 6 полезных сообщений
(для 7 пользователей)
Ответ: Ошибка

это на форум так вставляется. звездачки вместо пробелов
(Offline)
 
Ответить с цитированием
Старый 14.07.2015, 17:40   #7
L-ee-X
Разработчик
 
Аватар для L-ee-X
 
Регистрация: 06.06.2011
Адрес: Ирк. обл.
Сообщений: 541
Написано 133 полезных сообщений
(для 220 пользователей)
Ответ: Ошибка

Оформляйте код правильно, читать не возможно его.
__________________
(Offline)
 
Ответить с цитированием
Старый 14.07.2015, 18:10   #8
softcrasoft
Знающий
 
Регистрация: 21.03.2015
Сообщений: 262
Написано 6 полезных сообщений
(для 7 пользователей)
Ответ: Ошибка

почему? это на половину ваш код))
(Offline)
 
Ответить с цитированием
Старый 14.07.2015, 18:24   #9
St_AnGer
Элита
 
Аватар для St_AnGer
 
Регистрация: 21.01.2010
Адрес: Россия, Рязанская область, г.Михайлов
Сообщений: 2,067
Написано 1,185 полезных сообщений
(для 2,828 пользователей)
Ответ: Ошибка

Сообщение от softcrasoft Посмотреть сообщение
почему? это на половину ваш код))
Подозреваю что тебе параллельно на оформление кода, а люди которые читают код глазами привыкли к отступам в коде, и вообще к человеческому оформлению. Иначе любой код резко становится не читабельным. Заключай его хотя бы в тег code, так хоть чуть чуть читабельнее будет.
__________________
Main PC:
Intel Core i5 4260U 1.44 GHz + LPDDR3 1x4096 1600 MHz + Intel HD Graphics 5000.

Asus Ёжик T101-MT:
Intel Atom N-570 1.66 Ghz + DDR2 2x1024 800 Mhz + Intel GMA 3150 128 Mb DDR2


Скачать Doom 2D: Remake v0.3.8a
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
L-ee-X (14.07.2015)
Старый 14.07.2015, 21:38   #10
softcrasoft
Знающий
 
Регистрация: 21.03.2015
Сообщений: 262
Написано 6 полезных сообщений
(для 7 пользователей)
Ответ: Ошибка

так-так. я что-то не пойму. я созал тему про ошибку или про вид?
если есть что сказать, пожалуйста, говорите по существу.
(Offline)
 
Ответить с цитированием
Старый 14.07.2015, 22:49   #11
L-ee-X
Разработчик
 
Аватар для L-ee-X
 
Регистрация: 06.06.2011
Адрес: Ирк. обл.
Сообщений: 541
Написано 133 полезных сообщений
(для 220 пользователей)
Ответ: Ошибка

Сообщение от softcrasoft Посмотреть сообщение
так-так. я что-то не пойму. я созал тему про ошибку или про вид?
если есть что сказать, пожалуйста, говорите по существу.
По существу твой код даже читать не охота в таком виде. Тебе трудно его в тег засовывать? Чтоб он хоть не много читабельным становился. Судя по тому как ты код печатаешь в Blitz'е скажу одно, ты не профессионал
__________________
(Offline)
 
Ответить с цитированием
Старый 14.07.2015, 23:20   #12
Артем Валерьевич
Бывалый
 
Аватар для Артем Валерьевич
 
Регистрация: 25.12.2007
Адрес: г. Краснодар
Сообщений: 894
Написано 421 полезных сообщений
(для 1,079 пользователей)
Ответ: Ошибка

bot\name


Field name$

вот ошибка
__________________
http://forum.boolean.name/image.php?type=sigpic&userid=2247&dateline=1418298  527
(Offline)
 
Ответить с цитированием
Старый 14.07.2015, 23:31   #13
St_AnGer
Элита
 
Аватар для St_AnGer
 
Регистрация: 21.01.2010
Адрес: Россия, Рязанская область, г.Михайлов
Сообщений: 2,067
Написано 1,185 полезных сообщений
(для 2,828 пользователей)
Ответ: Ошибка

Сообщение от softcrasoft Посмотреть сообщение
так-так. я что-то не пойму. я созал тему про ошибку или про вид?
если есть что сказать, пожалуйста, говорите по существу.
А в чём ошибка то? Запустил у себя код который в 4-м посту - никаких ошибок, только ругань про отсутствие файлов нужных. Прикладывай кстати к посту архив со всеми нужными файлами, так проще происходит будет следить что.
__________________
Main PC:
Intel Core i5 4260U 1.44 GHz + LPDDR3 1x4096 1600 MHz + Intel HD Graphics 5000.

Asus Ёжик T101-MT:
Intel Atom N-570 1.66 Ghz + DDR2 2x1024 800 Mhz + Intel GMA 3150 128 Mb DDR2


Скачать Doom 2D: Remake v0.3.8a
(Offline)
 
Ответить с цитированием
Старый 15.07.2015, 00:12   #14
softcrasoft
Знающий
 
Регистрация: 21.03.2015
Сообщений: 262
Написано 6 полезных сообщений
(для 7 пользователей)
Ответ: Ошибка

1. он без файлов ошибку и не выведет.
2. и где вы тут ошибку увидели? название переменных одинаковое.
(Offline)
 
Ответить с цитированием
Старый 15.07.2015, 00:44   #15
tormoz
Гигант индустрии
 
Аватар для tormoz
 
Регистрация: 14.12.2005
Сообщений: 2,785
Написано 1,183 полезных сообщений
(для 4,437 пользователей)
Ответ: Ошибка

ошибка в звездочках
__________________
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 02:15.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com