Сообщений: 543
Написано 133 полезных сообщений (для 220 пользователей)
Ответ: Как сделать стрельбу
ДА ЕБАН*** ВРОТ set = FindEntity(ent) Это обыкновенная переменная в которую передаются данные функции FindEntity(ent).... Ты реально задрал, вот перед тем как спрашивать ты вообще смотрел где это set написана и с чем...
Почитай однако еще про Return
; RETURN Пример
; Выбор результата для значения возврата функции 'testme'
res = testme(Rnd(0,10));
; Программа эффективно заканчивается здесь.
; Подлинная функция Function testme(test);
; Если случайный номер является = 0 If test=0 Then Print "Значение было 0" Return False ; Функция завершается немедленно Else Print "Значение больше, чем 0" Return True ; Функция прекращается немедленно End If Print "Эта строка никогда не будет напечатана!" End Function
В моем коде set то же самое, что в этом примере res
Сообщений: 262
Написано 6 полезных сообщений (для 7 пользователей)
Ответ: Как сделать стрельбу
кроч пойду поищу другой форум. тут походу одни нубы кроме arton сидят. нормально помочь с той задачей чтов 1 сообщении не можете. пояснить свой код тож не можете. и код не соответствующий. просил помочь как сделать стрельбу мою, игрока, так нет. они мне дают код стрельбы пративника, так плюс с созданием сфер и т.д прочей не нжной хрени. просто условие что враг по центру сказать не могут.
Сообщений: 543
Написано 133 полезных сообщений (для 220 пользователей)
Ответ: Как сделать стрельбу
На готовая игра, написал за 10 минут. Большая часть времени ушла на поиски звуков .
Type Entity Field Mesh Field Name$ Field HP End Type
Graphics3D 1024,768,32,2 camera = CreateCamera() 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(-50,50), Rnd(-50,50), 50 NameEntity Bot\Mesh,Bot\Name$+Chr(34)+"Bot"+Chr(34) EntityPickMode Bot\Mesh,3 Next
old.entity=Null Repeat RenderWorld()
ent=CameraPick(camera,MouseX(),MouseY()) If ent<>0 Then old = set.entity set = FindEntity(ent) Text 10, 10 , EntityName(ent) + " HP = " + set\HP End If
If MouseHit(1) PlaySound strelba If ent<>0 set\HP = set\HP - 10
If set\HP > 10 PlaySound ranenie EndIf
If set\HP <= 0 PlaySound ubit FreeEntity set\Mesh EndIf
кроме вс двоих, мне этого никто не говорил. так что держите свои мнения при себе.
Чувак. Перепутать переменную с командой и половину дня одулпять что она значит - это жестко даже для незрячего новичка. Ты же утверждал что ты профи во многих языках. Хотя у тебя грубейшие ошибки идут одна за другой. В принципе и так было очевидно что ты наврал про это.
Вообще твоя проблема и в зрении тоже. Ты не видишь что в IDE ключевые слова блица подсвечиваются разными цветами. Если бы ты это видел то set не спутал бы с ключевым словом. Хотя бы по этому. Но люди могут и в блокноте кодить без какой либо подсветки. Но для новичка и подсветка бы сгодилась.
Сообщений: 262
Написано 6 полезных сообщений (для 7 пользователей)
Ответ: Как сделать стрельбу
l-ee-x, не понятны две вещи:
1. ************old*=*set.entity**вот я говорил про эту функцию блица. что это?
2. зачем нужен звук hp?
gector, ************old*=*set.entity**тут не set =. правда сама переменная идёт ниже.
Сообщений: 543
Написано 133 полезных сообщений (для 220 пользователей)
Ответ: Как сделать стрельбу
Воспроизведи этот звук и поймешь для чего он, там даже по условию видно когда он воспроизводится... Чтобы понять что за set.entity вкури Type. Потом поймешь. Ты же профи в ООП.