Ошибка
Привет всем.
Ребят возникает ошибка 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(28) 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(208) 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$ Написано вроде все правильно. Помогите пожалуйста разобраться с ней! |
Ответ: Ошибка
Код:
bot\name$ = Handle(bot) $ - индикатор типа переменной "строка". По идее он должен использоваться только в момент объявления переменной. Возможно, его можно юзать как у тебя в первой цитированной строке, в присвоении. Когда ты пытаешься вытащить значение из поля какого-то Type, тебе не нужно указывать тип этого поля. |
Ответ: Ошибка
ща пробну спс
ес ес ес, СПААААСИИИИИБООООООО |
Ответ: Ошибка
передалал немного код, тоже самое начало появлятся. знак я не указывал
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(28) 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(208) 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) было не правильно указано названия переменных. |
Ответ: Ошибка
На двадцать восьмой строке убери звездочки
|
Ответ: Ошибка
это на форум так вставляется. звездачки вместо пробелов
|
Ответ: Ошибка
Оформляйте код правильно, читать не возможно его.
|
Ответ: Ошибка
почему? это на половину ваш код))
|
Ответ: Ошибка
Цитата:
|
Ответ: Ошибка
так-так. я что-то не пойму. я созал тему про ошибку или про вид?
если есть что сказать, пожалуйста, говорите по существу. |
Ответ: Ошибка
Цитата:
|
Ответ: Ошибка
bot\name
Field name$ вот ошибка |
Ответ: Ошибка
Цитата:
|
Ответ: Ошибка
1. он без файлов ошибку и не выведет.
2. и где вы тут ошибку увидели? название переменных одинаковое. |
Ответ: Ошибка
ошибка в звездочках
|
Часовой пояс GMT +4, время: 17:03. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot