[Reizel]

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 нет. Упорно так. Я и названия менял, и по всякому - ему похрен, юзал копипаст названий, и ему всеравно пофиг!!!
Можт в блицмаксе есть лимит на кол-во типов??????????