aboutsummaryrefslogblamecommitdiffstats
path: root/Game/Code/Classes/UMusic.dcu
blob: f3116f8b0d6dcfad1451e49bd6e58ad609228034 (plain) (tree)
















































































































































                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
�K;
�u6/�6A�<pClasses\UMusic.pasR�q6dBass/�6AfHSTREAM��"�g	BASS_Init��%�gBASS_SetVolume�M�7gBASS_StreamCreateFilej���gBASS_ChannelSeconds2Bytes�Ɓ�gBASS_ChannelSetPosition��ӏgBASS_ChannelPlay��L�gBASS_ChannelPause�M�7gBASS_ChannelStop�M�7gBASS_StreamFree�M�7gBASS_StreamGetLengthʠL gBASS_ChannelBytes2Secondsŕ��gBASS_ChannelGetPositionʠL gBASS_ChannelIsActive�S�gBASS_ACTIVE_STOPPED���gBASS_RecordInit}9]�gBASS_ErrorGetCode���g
BASS_ERROR_DX���gBASS_ERROR_ALREADY���gBASS_ERROR_DEVICE����gBASS_ERROR_DRIVER���gBASS_RecordStart�rygBASS_RecordSetDevice�M�7gBASS_RecordFree8o��gBASS_ChannelGetDataR&
gBASS_DATA_FFT512`�*�cdUSongs/�6AcdULog/�6AgLog�9�gTLog.LogStatus�R�gTLog.BenchmarkStart�R�gTLog.BenchmarkEnd�R�gTLog.LogBenchmark�R�g
TLog.LogError�R�g
TLog.LogError�R�cdForms�C��fTForm�IgAllocateHWnd��h�gApplication�0ϤgTApplication.MessageBoxI���cdSysUtils�C��g
FileExists���gIntToStri5�g	UpperCasex݄cdMessages�C��cdWindows�C��fTHandle��"�gMakeLong׳_�cdMPlayer�C��fTMediaPlayer�e�-fTMPModes�� yg
.TMediaPlayer��gTMediaPlayer.CreateC)}QgTMediaPlayer.SetWait&)}QgTMediaPlayer.SetDeviceType%)}QfTMPDeviceTypes]U�EgdtAutoSelect����gTMediaPlayer.SetDisplay+)}QgTMediaPlayer.GetErrorMessage5)}QgTMediaPlayer.OpenE)}QcdClasses�C��f
TMemoryStream���g.TMemoryStream�n6�gTMemoryStream.Clear
��	cdSysInit�C��cdSystem�C��f
AnsiString���fString���fSingle��9DfTObject���_fBooleanW~8fInteger���
fRealS��<fByte7c�fCardinal��"�g.TObject�BgTObject.SafeCallException�G��gTObject.AfterConstruction�G��gTObject.BeforeDestruction�G��gTObject.Dispatch�G��gTObject.DefaultHandler�G��gTObject.NewInstance�G��gTObject.FreeInstance�G��gTObject.Destroy�G��gFalse����f	PAnsiCharruggExitg	@LStrCat3E�a�g
@LStrArrayClrzY��g@HandleFinallyE�a�g	SetLengthgHighg
@DynArrayHighE�a�gTObject.Create�G��g@DynArraySetLengthE�a�fPCharruggTrue����g@LStrAddRef��jg@LStrToPCharf���g@LStrClrѨ}�g	@LStrLAsg�4�g	@LStrCatNE�a�g@HandleAnyExceptionE�a�g@DoneExceptE�a�g@LStrAsg�4�g@LStrCmpE�a�g@FinalizeArrayBB��g@DynArrayClearxB)�g@FinalizeRecord�9�ceControls�C��gTWinControl.SetParentWindow3�.�ceUThemes/�6AceUMain/�6AgPlayersPlay��
ceUIni/�6AgIniH��ceUPliki/�6Ag	SoundPath�:�ceURecord/�6AgSound��WfTSound��g.TSound�%��f.6����f.2����g	Recording��
Bg
GetMicrophoneT��ceUGraphic/�6Ac4UMusic�iif@c4Classes~c4MPlayerfc4Windows`c4Messages^c4SysUtilsVc4FormsLc4ULog<c4USongs:c4Bassc*.1�����,*
TSoundCard��&��.*TFFTData��6�0*TCustomSoundEntry�Rҝ�2*.3�����4&.TMusic��6*TMusic�.yo�8%RecordSystem����:*TMuzyka�E�4<*.5�����>*.6�����@*.4�����B*.7�����D*TCzesci���Z�F*TCzas��RH Form�N�I� Music�<߈�8� Muzyka�Sz�4<� Czesci�zNJ�*.8�����J Czas����RH	 fHWND�F<�*.9�����L'ModeStr�ڜ��L�( � .01fN4UGraphicc4URecord�c4UPliki�c4UIni�c4UMain�c4UThemes�c(InitializeSound�E�a�aPc(TMusic.InitializePlayback�,<]��P!Self8 Pet Sc(TMusic.InitializeRecord�-<]�YP!Self8 S device descrF input input2 flags micFR SC SCIc(TMusic.SetVolume�.<]�P!Self8!Volumec(TMusic.SetLoop�/<]�P!Self8!Enabledc(TMusic.Open�0<]��!Self8!Namef� Resultc(
TMusic.Rewind�1<]�
P!Self8c(
TMusic.MoveTo�2<]�\P!Self8!Time& bytesc(TMusic.Play�3<]�$P!Self8c(TMusic.Pause�4<]� P!Self8c(TMusic.Stop�5<]�P!Self8c(TMusic.Close�6<]�P!Self8c(
TMusic.Length�8<]�X!Self8 Resultf bytesc(TMusic.Position�9<]�X!Self8 Resultf bytesc(TMusic.Finished�7<]�4!Self8 Resultc(TMusic.PlayStart�:<]�P!Self8c(TMusic.PlayBack�;<]�P!Self8c(TMusic.PlaySwoosh�<<]�P!Self8c(TMusic.PlayChange�=<]�P!Self8c(TMusic.PlayOption�><]�P!Self8c(TMusic.PlayClick�?<]�P!Self8c(TMusic.PlayDrum�@<]�P!Self8c(TMusic.PlayHihat�A<]�P!Self8c(TMusic.PlayClap�B<]�P!Self8c(TMusic.PlayShuffle�C<]�P!Self8c(TMusic.StopShuffle�D<]�P!Self8c(TMusic.CaptureStart�E<]��P!Selff8 S SC P1 P2c(TMusic.CaptureStop�F<]��P!Self8
 SC P1 P2c(TMusic.CaptureCard�G<]�a
P!Self8!RecordI!
PlayerLeftf�!PlayerRight& Error ErrorMsgf�c(TMusic.StopCard�H<]� P!Self8!Cardc(TMusic.LoadPlayerFromFile�I<]�Q!Self8"MediaPlayerf�!Namef� Resultf�c(TMusic.LoadSoundFromFile�J<]��!Self8"hStream!Namef� Resultf�c(TMusic.GetFFTData�K<]� 0!Self8#Result0 DataF0c(TMusic.LoadCustomSound�L<]�� !Self8
!Filenameb� Result  Sf� I Ff�c(TMusic.PlayCustomSound�M<]�tP!Self8!Index c(Finalization�E�a��! Pc�(UMusic�!Pc��E>1TMP5,Name,Source,cL9VMN=,Filename,HandlecE>AXG8�F>IpE�,	BassStart,BassBack,
BassSwoosh,
BassChange ,
BassOption(,	BassClick0,BassDrum8,	BassHihat@,BassClapH,BassShuffleP,CustomSounds4X,Loaded`,Loopb,Bassh-InitializePlayback�-InitializeRecord��-	SetVolume��-SetLoop��-Open�	-Rewind�-MoveTo�!-Play�1-Pause�9-Stop�A-Close�I-Finished�q-Length�Q-Position�a-	PlayStart�}-PlayBack�-
PlaySwoosh�-
PlayChange�-
PlayOption�-	PlayClick�-PlayDrum�-	PlayHihat�-PlayClap�-PlayShuffle��-StopShuffle��-CaptureStart��-CaptureStop��-CaptureCard�-StopCard�-LoadPlayerFromFile�)-LoadSoundFromFile�=-
GetFFTData�Q-LoadCustomSound�a-PlayCustomSound�}cDN��M: Q,Path,Start,IlNut,
DlugoscNutcM0@U,Color,Start,Dlugosc,Ton,TonGamy ,Tekst(,	FreeStyle0,Wartosc8cE>YZM@`],Start,	StartNote,Lyric,
LyricWidth ,Koniec0,BaseNote8,HighNut@,IlNutH,
TotalNotesP,Nuta@XcE>a\M:8e,Akt,High,Ilosc,
Resolution,NotesGAP ,Wartosc(,CzescD0cMai,OldBeat,AktBeat,MidBeat,OldBeatD ,AktBeatD(,MidBeatD0,	FracBeatD@,OldBeatCP,AktBeatCX,MidBeatC`,	FracBeatCp,OldCzesc,Teraz!,RazemAcE>}^L(8�
DN����P@L`L�bDN�L�d2L�f>L�hBL�jFDN�DN�PDN�PDN�PDN�PDN�Pl]J.1HUMusic
TSoundCardTCustomSoundEntry.3����UMusicLL^8,TMusicTMusicLUMusicTMuzyka.5 .6 ����UMusic.40,.70����UMusicTCzesci.8����UMusic
.9,<P`p����	Not ready����Stopped����Playing����	Recording����Seeking����Paused����Open���L�d������L����������InitializeSound����Initializing Playback����Initializing RecordU��3�QQQQQQSVW�؋5�=3�Uh�d�0d� ����������C0�C1jj��j�PjhD�j���uj�������������,�����D������E��\��M��S�����E��x��M��S�����E�����M�S�����E���M��S�����E����M�S�����E����M�S����������3�ZYYd�h��E������_^[��]�����Music Initialize����Initializing Playback SubsystemErrorCould not initialize BASS����
--> Bass Init����Loading Sounds����Common Start.mp3����Common Back.mp3����menu swoosh.mp3���� select music change music 50.mp3����option change col.mp3����rimshot022b.mp3����--> Loading SoundsU��SVW�53�Uh�d�0d� j�ƹ����������|~G3۲���������� �������Bj��� ������������� ����ǀ COu�3�ZYYd�h�����_^[]�R�ÈP1�U��QS�U��؋E��3�Uhfd�0d� �C0�E����tjjj�E��Pj��C4�C0�[03�ZYYd�hm�E��������[Y]Àx0�U��S���E����$��C4P��ȋ��RP�C4P�[]��x0tj�@4P�Àx0t	�@4P�Ë@4P�Ë@4P��SV����؋C4P����ƙRP�C4P��$��$YZ^[�SV����؋C4P����ƙRP�C4P��$��$YZ^[�SV��3ۋF4P���u���^[�j��@P��j��@P��j��@P��j��@P��j��@P��j��@P��j��@P��j��@ P��j��@$P��j��@(P�Ë@(P��SVQ�$����؅�|C3������� ��FKu�������؅�|\C3���ҡ�����D��
�	����T��
;~3��
;~3҅���~R�ȋ֋D$�FKu�Z^[�SVW������������|WF3ۋ�ҡ�����D��
�	����T��
;~3��
;~3҅���~	�Ӌ��CNu�_^[�U��jjjjjjjSVW�M���3�Uhsd�0d� �����W���������U������'u
�E������u
�E������u
�E������u
�E����h(�U�����u�hL�U�3��E���u�hL�U�3��E��u�hX�u��E����U�����E�M��d��U����A3��E�3ҊU���P�Pf�3��PjhD����ҋ
�	�I�D�3�ZYYd�hz�E������_^[��]�����No DX5����'The device has already been initialized����&The device number specified is invalid����#There is no available device driver����Error initializing record [����, ����]: ����1Music -> CaptureCard: Error initializing record: 3���P���U��jjjjjjjSVW�M��U��E��3�Uh�d�0d� h�u�h�E���U���(��E�����(3�Uh�d�0d� 3ɲ���U��3�ZYYd�� ����(�D��3�Uhd�0d� �E�����E�����E���U���E��3���E��3��3�ZYYd��;��U�E����M�E�l��U���(��3�Uhtd�0d� �E���3�ZYYd��P����(�����.h��u�h�E���U���(�3�ZYYd�h��E���E������E�_^[��]�����Loading Sound: "����"����LoadPlayerFromFile����Failed to create MediaPlayer����Failed setting MediaPlayer: ���� Failed to open using MediaPlayer����Sound not found: "U����SVW3ۉ]��]�M��ڋE��3�Uh
d�0d� �E������h(�u�hD�E����U����P�3�Uh�d�0d� jjj�E��Pj��3�ZYYd��P����P�l���.h��u�hD�E���U���P�3�ZYYd�h�E���E������E�_^[��]�����Loading Sound: "����"����LoadPlayerFromFile����Failed to open using BASS����Sound not found: "h�R�@4P��U����SVW3ɉM��M�U���3�Uh�d�0d� �U�E���G,�����|"F3ۍU��G,����E��U��t#CNu�U��M������t�G,����3�3�ZYYd�h��E�������_^[��]�SV��؋C,��RP��3�;T$u	;$ZXw�ZXj��C,�D�P�^[�U��3�Uh\d�0d� �u5����������3�ZYYd�hc����]Ã-�m�11��550�1==>�AA==EEE(E���������AIIE�QQ*�UU �YYUU]] �Yaa]]ee*a}}ee�� ������������>�
�
@
q
�
>�
�
@
q
���$>��$B�
�
@"P
���
�
RT"D�
F�
�
@B�
�=�
�=�
�=�
�=�
�=�
�=D�
F�������*�
�� �
�.�
�>�
��
�Z���

�	�	$X$�.	��
!* 1
9
A

I

Q  a  q }
�
�
�
�
�
�
�
�
�
�

����$���$�$�$��8���$�$�$��.:($&Z
�
�
�
�
ZZZ �>H
�>H.d0�,���2
4
)<�)))�>)
@X )l
n(�
>)
)
J
�)"�
�p$�rx�z)
�>)
J
�) |�
>)
)
J
�))�>)
J)����=4�=X==�>=
@=(�"�
>=
=
J
�==�>=
J=���YQ6
a4a"\�.\�&=�&a��}�R�����
�
y}
�
uQ
������9!
@@�T"40
:"888888~�4. "(>2�v0
@2D
*


*

*
>*�0@6*$�4
6*$"�N,$$$
$�B$�y
`\ D6 $6l2:\Z�X \N:\Z5H"
6�"LD��A�.2$80�<�F�>B�.>Ha:����15559="=$=&I.IHIJILINI
PIRITIVIXIZI`IfIhIp�xvIIv�zx1I x�|z]I"z�~|qI$|	�~�I&~���I(�!���I*�1��I,�9��1I.�A��MI0�I��qI2�q���I4�Q���I6�a���I8�}��aI:�����I<�����I>�����I@�����IB����ID����-IF����IIH����eIJ�����IL�����IN�����IP����u	IR���
IT����
IV�)���
IX�=��aIZ�Q���I\�a���I^�}��!I`�M�Q�Q�Q�Q�Q�e�e�e�e�e�e
�e�e�]�]�]�]�]
�]�]]]	]
UUUUU
!U%U)U-iQiaieiii�i
�i�i�i�i�i�i�i�i�i�m�q�u�y��	����Q�U��9�=�A�E�I�M�Q�U�Y����]q
��c%)�-�5=��Ec�MU��Y�]�ei�m�uc�y��#&�����������8���c�����������O�}	��	��	�-	



%
)
!cC%�
-co1�
5�
9�
A�EaIaMeUC�Y�]�ei�m�q�u�y���!�=��� �`0p�T����Q����@p���E��@����`��	@2
@
��@�!`%-6%R�-R�1@55"�9@==�A@EE�I@MM�Q`0U]$UN�]N�a`0em$eN�mN�q`0uyu&�y&�}@����@����@����@����@����@����@����@����@����@����@�����0�6�l������������������p�

�@�j���������������8p	N�Y�	��	]	��@%%�) 8pr=@ prEXE}�Q`UYU�Y�a� peH
u�e��e�
u��e��}`0���n��n��  a