blob: 16454265439a33f6650fb0df151b0c79f14607a0 (
plain) (
tree)
|
|
� �
�u6/�6A � <pClasses\UScores.pasc�06 d SQLiteTable3/�6A fTSQLiteDatabase�Jg.TSQLiteDatabasej�x�gTSQLiteDatabase.Createv
�5gTSQLiteDatabase.TableExists�
�5gTSQLiteDatabase.ExecSQLy
�5f TSQLiteTable��gTSQLiteDatabase.GetTablex
�5gTSQLiteTable.GetEOF
s��gTSQLiteTable.GetFieldIndexs��gTSQLiteTable.FieldAsStrings��gTSQLiteTable.Next s��g TSQLiteDatabase.GetTableValuez
�5cdUSongs/�6A fTSongH�G�f.3����cdSysInit�C�� cdSystem�C�� fString���f
AnsiString���fInteger���
g@LStrAsg�4�g@HandleFinallyE�a�fByte7c�g SetLength gLength g@DynArrayLengthE�a�gHigh g
@DynArrayHighE�a�g @LStrCatNE�a�g@DynArraySetLengthE�a�g@HandleAnyExceptionE�a�g @DoneExceptE�a�g
@LStrArrayClrzY��gExit g @LStrAddRef��j g@TryFinallyExitE�a�g@LStrClrѨ}�ceSysUtils�C�� gStrToInt��gIntToStri5�ceIniFiles�C�� c4UScores�iif@c4USongs c4 SQLiteTable3 c ScoreDB摰 sFilename�:� .1f 4IniFiles Vc4SysUtils Pc( InitScore���ʨ � !Filename c( ReadScore��|�� 1 "Songf� TableData Difc(AddScore����g � "Song!Level
!Namef �!Score& ID TableDatac(
WriteScore��|�� "Song c( Finalization�E�a� t! c�(UScores� !c��D ����P@ l]+U��S�؋˲� � � � ��� 3�Uh� d�0d� �� � � ��u�� � � �P � � ��u�d � � 3�ZYYd�h� �� ��[]� ���� US_Scores ����� CREATE TABLE `US_Scores` (`SongID` INT( 11 ) NOT NULL , `Difficulty` INT( 1 ) NOT NULL , `Player` VARCHAR( 150 ) NOT NULL , `Score` INT( 5 ) NOT NULL ); ���� US_Songs ����x CREATE TABLE `US_Songs` (`ID` INTEGER PRIMARY KEY, `Artist` VARCHAR( 255 ) NOT NULL , `Title` VARCHAR( 255 ) NOT NULL ); U��3�QQQQQSVW�E�3�UhS d�0d� 3�Uh1 d�0d� 3�Uh� d�0d� hl �E��p h� �E��p h �E�� � �U�� � ��j �E� � � � ��j �E� � � � ��j �E� � � � ���� �@ ��� �ЍM��� �E�� ���� ���� ����� �E���� � @P�E���� � � � ��3��ËU���� � �@�U���� ��P�T ��� �ЍM���� �U�X� �d ��� �ЍM��� �E�� P3��ËU���� � �@�U���� Y�L���� ��� �������3�ZYYd��B� ��u��� j�ƹ � � ����� �t � ����u�� 3�ZYYd�h8 �� ��3�ZYYd�hZ �E� � �� ��_^[��]� ����x SELECT `Difficulty`, `Player`, `Score` FROM `us_scores` WHERE `SongID` = (SELECT `ID` FROM `us_songs` WHERE `Artist` = " ���� " AND `Title` = " ����* " LIMIT 1) ORDER BY `Score` DESC LIMIT 15 ����
Difficulty ���� Player ���� Score ���� Error Reading ScoreDB U��Q� j j Iu��M�SVW�M������E�� 3�Uh� d�0d� 3�Uhq d�0d� h� �v h� �v h �E�� � �U�� � ��unh �v h\ �v hl �E�� � �U�� � h� �v h� �v h �E� � �U� � ��u
� � hx �U��� �u�h\ �U��� �u�h\ �u�h\ �U��E� �u�hl �E� � �U� � h� �U؋�� �u�h �Uԋ�� �u�h �Eܺ � �Uܡ � �� u ���� ��� h8 �Ű�� �u�h �Uȋ�� �u�h| �Eк � �UС � ��h� �U���� �u�h �U���� �u�h� �� ��� �ЍM���� �u�h � ��� �ЍM���� �u�h �Eĺ � �Uġ � 3�ZYYd�hx �� ��3�ZYYd�h� �E�� � �� ��_^[��]� ����. SELECT `ID` FROM `US_Songs` WHERE `Artist` = " ���� " AND `Title` = " ���� " ����E INSERT INTO `US_Songs` ( `ID` , `Artist` , `Title` ) VALUES (NULL , " ���� ", " ���� "); ����R INSERT INTO `US_Scores` ( `SongID` , `Difficulty` , `Player` , `Score` ) VALUES (" ����: SELECT COUNT(`SongID`) FROM `US_Scores` WHERE `SongID` = " ���� " AND `Difficulty` = " ����: SELECT `Player`, `Score` FROM `US_Scores` WHERE SongID = " ���� " ORDER BY `Score` ASC LIMIT 1 ����( DELETE FROM `US_Scores` WHERE SongID = " ���� " AND `Player` = " ���� Player ���� " AND `Score` = " ���� Score �U��3�Uh1 d�0d� � u
� � 3�ZYYd�h8 �� ��]Ã- �mU h
^
`.hh
^
h
^
h
^
h
^
h 0il(l l llll>^
."
@0"
@0"
@lRT8."
@,<,l.
lR(<2.B4"
@l
.Dl 0 lF 0�tBJt tttt>^
ttt>^
ttt>^
LtTtTttTt>^
tTtTt>^
6tTtTt>^
tTtTt
tt
tt>^
t 0 tF 0Q
���b`
N� 0b �`. & & &8 Q< n::DD"l��� <. �,T �f b^b���
AT>9
v �E � �&. h (l T� �t �^ ` j (n Tp Xr Zv �x �z �| �~ �� �� � A�Hh@ @j jJ�l�( pRp�r�r�p��r�r]�rir��t�prvfxf
~�~��~YvY�~i�xi�~�x�
��~� �x� ��� �� � a
|
