Translated some Variables

Ilosc     To Number
Pet       To Count
Tekst     To Text
NrCzesciP To LineNumber
NrCzesci  To LineNumber
AktSong   To CurrentSong
AktNuta   To CurrentNote
Some Translations In ModiSDK on TSentences
Maybe Plugin Code Needs to be Updated

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@927 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 16 insertions, 16 deletions

diff --git a/Game/Code/Classes/TextGL.pas b/Game/Code/Classes/TextGL.pas
index f6c04b3a..c29648c3 100644
--- a/Game/Code/Classes/TextGL.pas
+++ b/Game/Code/Classes/TextGL.pas
@@ -109,14 +109,14 @@ procedure BuildFont;			                // Build Our Bitmap Font
       

   {$ELSE}

   var

-    Rejestr:  TResourceStream;

+    Reg:  TResourceStream;

   begin

     try

-        Rejestr := TResourceStream.Create(HInstance, aResourceName , pchar( aType ) );

+        Reg := TResourceStream.Create(HInstance, aResourceName , pchar( aType ) );

         try

-          Rejestr.Read(Fonts[ aID ].Width, 256);

+          Reg.Read(Fonts[ aID ].Width, 256);

         finally

-          Rejestr.Free;

+          Reg.Free;

         end;

   {$ENDIF}

       

@@ -126,7 +126,7 @@ procedure BuildFont;			                // Build Our Bitmap Font
   end;

 

 var

-  Pet:      integer;

+  Count:      integer;

 begin

   ActFont := 0;

 

@@ -175,21 +175,21 @@ begin
   loadfont( 2, 'FNT', 'FontO'  );

   loadfont( 3, 'FNT', 'FontO2' );

 

-{  Rejestr := TResourceStream.Create(HInstance, 'FontO', 'FNT');

-  Rejestr.Read(Fonts[4].Width, 256);

-  Rejestr.Free;}

+{  Reg := TResourceStream.Create(HInstance, 'FontO', 'FNT');

+  Reg.Read(Fonts[4].Width, 256);

+  Reg.Free;}

 

-  for Pet := 0 to 255 do

-    Fonts[1].Width[Pet] := Fonts[1].Width[Pet] div 2;

+  for Count := 0 to 255 do

+    Fonts[1].Width[Count] := Fonts[1].Width[Count] div 2;

 

-  for Pet := 0 to 255 do

-    Fonts[2].Width[Pet] := Fonts[2].Width[Pet] div 2 + 2;

+  for Count := 0 to 255 do

+    Fonts[2].Width[Count] := Fonts[2].Width[Count] div 2 + 2;

 

-  for Pet := 0 to 255 do

-    Fonts[3].Width[Pet] := Fonts[3].Width[Pet] + 1;

+  for Count := 0 to 255 do

+    Fonts[3].Width[Count] := Fonts[3].Width[Count] + 1;

 

-{  for Pet := 0 to 255 do

-    Fonts[4].Width[Pet] := Fonts[4].Width[Pet] div 2 + 2;}

+{  for Count := 0 to 255 do

+    Fonts[4].Width[Count] := Fonts[4].Width[Count] div 2 + 2;}

 

 end;