|
14.10.2010, 19:59
|
#1
|
Задрот
Регистрация: 24.07.2009
Адрес: Ивановская область, г. Кинешма
Сообщений: 1,574
Написано 407 полезных сообщений (для 863 пользователей)
|
Что то тупит совсем у мну блиц...
Type Hgt
Field Snd:TSound
Field Name:String
EndType
Type Sound
Global LIST:TList=New TList
Function Load(File:String)
While(True)
K=K+1
snd:TSound=Null
snd=LoadSound("Source/Sounds/"+File+"_"+K+".wav")
If(Snd=Null) Exit
S.Hgt=New Hgt
S.Snd=Snd
S.Name=File
ListAddLast(LIST,S)
Wend
EndFunction
Function GetRandom:TSound( file:String )
For S:Hgt=EachIn LIST
If(S.Name=File) K=K+1
Next
R=Rand(1,K)
K=0
For S:Hgt=EachIn LIST
If(S.Name=File) K=K+1
If(K=R) Return S.Snd
Next
EndFunction
EndType
Вот код. В функции GetRandom Ругается на на первую же строчку, говорит что идентификатора Hgt нет. Упорно так. Я и названия менял, и по всякому - ему похрен, юзал копипаст названий, и ему всеравно пофиг!!!
Можт в блицмаксе есть лимит на кол-во типов??????????
|
(Offline)
|
|
14.10.2010, 20:03
|
#2
|
Дэвелопер
Регистрация: 04.11.2009
Адрес: Украина, Днепропетровск
Сообщений: 1,480
Написано 662 полезных сообщений (для 1,985 пользователей)
|
Ответ: Что то тупит совсем у мну блиц...
Замени
S.Hgt=New Hgt
на
S:Hgt=New Hgt
или
S=New Hgt
Привет, Blitz3d!
Кстати, заглянул бы в справку по New - там сразу написано
Type MyType
Field a,b,c
End Type
Local t:MyType
t=New MyType
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
14.10.2010, 20:08
|
#3
|
Задрот
Регистрация: 24.07.2009
Адрес: Ивановская область, г. Кинешма
Сообщений: 1,574
Написано 407 полезных сообщений (для 863 пользователей)
|
Ответ: Что то тупит совсем у мну блиц...
Ох твою ж мать....Чувак, спасибо!!! Я прост сене сижу за БМаксом 5 часов(!) вот видать и переглючило мне моск...Надо ж было так наипацо....
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
14.10.2010, 20:20
|
#4
|
[object Object]
Регистрация: 01.08.2008
Адрес: В России
Сообщений: 4,359
Написано 2,473 полезных сообщений (для 6,856 пользователей)
|
Ответ: Что то тупит совсем у мну блиц...
Для начала.
Используй нормальный Ide.
Стандартный в топку.
Всегда указывай Local или Global при определении переменной.
Типы объявлять не умеешь.
ИмяПеременной: Тип
Тоесть:
Надо писать:
Символ точки служит для доступа к методу или свойству типа (почти аналог "\" )
В начале главного файла всегда пиши SuperStrict иначе так и останешься блицером.
А вобще бери на анализ твой код, только отформатированый нормально и рабочий:
SuperStrict Type Hgt Field Snd:TSound Field Name:String EndType Type Sound Global LIST:TList = New TList Function Load(File:String) Local k:Int, snd:TSound While(True) k = k + 1 snd = Null snd = LoadSound("Source/Sounds/" + File + "_" + k + ".wav") If(Snd = Null) Exit Local S:Hgt = New Hgt S.Snd = Snd S.Name = File ListAddLast(LIST, S) Wend EndFunction Function GetRandom:TSound(file:String) Local k:Int = 0 Local R:Int For Local S:Hgt = EachIn LIST If(S.Name = File) k = k + 1 Next R = Rand(1, k) k = 0 For Local S:Hgt = EachIn LIST If(S.Name = File) k = k + 1 If(k = R) Return S.Snd Next EndFunction EndType
И статусы в аське читай. Я в игрушку гамал какбе и альттабатся было лень.
__________________
Retry, Abort, Ignore? █
Intel Core i7-9700 4.70 Ghz; 64Gb; Nvidia RTX 3070
AMD Ryzen 7 3800X 4.3Ghz; 64Gb; Nvidia 1070Ti
AMD Ryzen 7 1700X 3.4Ghz; 8Gb; AMD RX 570
AMD Athlon II 2.6Ghz; 8Gb; Nvidia GTX 750 Ti
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
14.10.2010, 20:57
|
#5
|
Задрот
Регистрация: 24.07.2009
Адрес: Ивановская область, г. Кинешма
Сообщений: 1,574
Написано 407 полезных сообщений (для 863 пользователей)
|
Ответ: Что то тупит совсем у мну блиц...
Random, я написал уже львиную часть игры, просто жестоко ступил.
Знаю я про БМакс синтаксис
|
(Offline)
|
|
14.10.2010, 20:59
|
#6
|
Задрот
Регистрация: 24.07.2009
Адрес: Ивановская область, г. Кинешма
Сообщений: 1,574
Написано 407 полезных сообщений (для 863 пользователей)
|
Ответ: Что то тупит совсем у мну блиц...
ЗЫЖ!!!!
Как лучше реализовать более-менее реалистичный (ну чтоб не совсем уж квадратами) огонь, вид сверху? Кто то можт идейку подкинет???
|
(Offline)
|
|
14.10.2010, 21:16
|
#7
|
[object Object]
Регистрация: 01.08.2008
Адрес: В России
Сообщений: 4,359
Написано 2,473 полезных сообщений (для 6,856 пользователей)
|
Ответ: Что то тупит совсем у мну блиц...
Посмотри стандартные примеры.
Про партиклы слышал? Тоесть из одной части вылетают большим кол-вом частицы и уходят в альфу. Перед этим естессно меняя цвет.
В твоём случае жёлтый и красный. Можно ещё дымок чёрными.
Прикладываю универсальный спрайт. Из него можно сделать всё.
Это просто белая точка градирующая от центра в альфу.
__________________
Retry, Abort, Ignore? █
Intel Core i7-9700 4.70 Ghz; 64Gb; Nvidia RTX 3070
AMD Ryzen 7 3800X 4.3Ghz; 64Gb; Nvidia 1070Ti
AMD Ryzen 7 1700X 3.4Ghz; 8Gb; AMD RX 570
AMD Athlon II 2.6Ghz; 8Gb; Nvidia GTX 750 Ti
|
(Offline)
|
|
14.10.2010, 21:19
|
#8
|
Дэвелопер
Регистрация: 04.11.2009
Адрес: Украина, Днепропетровск
Сообщений: 1,480
Написано 662 полезных сообщений (для 1,985 пользователей)
|
Ответ: Что то тупит совсем у мну блиц...
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 10:06.
|