From bcaa0acf0b23dec6f7c956b934016973f940362f Mon Sep 17 00:00:00 2001
From: LAutour <LAutour@yandex.ru>
Date: Wed, 20 Apr 2016 08:23:52 +0500
Subject: [PATCH] Update PlugYLocal.dpr

---
 PlugYLocal/PlugYLocal.dpr | 90 +++++++++++++++++++--------------------
 1 file changed, 45 insertions(+), 45 deletions(-)

diff --git a/PlugYLocal/PlugYLocal.dpr b/PlugYLocal/PlugYLocal.dpr
index 0eb94e6..792e946 100644
--- a/PlugYLocal/PlugYLocal.dpr
+++ b/PlugYLocal/PlugYLocal.dpr
@@ -12,7 +12,7 @@ library PlugYLocal;
   using PChar or ShortString parameters. }
 
 uses
-  KOL;
+  KOL; //library from http://www.kolmck.net/
   //SysUtils,
   //Classes;
 
@@ -158,8 +158,8 @@ var
     (name: 'STR_TOGGLE_TO_SHARED'; value: 'Toggle to Shared Stash'),
     (name: 'STR_STASH_PREVIOUS_INDEX'; value: 'Previous Index : by %d Pages (+Shift: %d)'),
     (name: 'STR_STASH_NEXT_INDEX'; value: 'Next Index : by %d Pages (+shift: %d)'),
-    (name: 'STR_PERSONAL_PAGE_NUMBER'; value: 'Personal Page n°%u'),
-    (name: 'STR_SHARED_PAGE_NUMBER'; value: 'Shared Page n°%u'),
+    (name: 'STR_PERSONAL_PAGE_NUMBER'; value: 'Personal Page n°%u'),
+    (name: 'STR_SHARED_PAGE_NUMBER'; value: 'Shared Page n°%u'),
     (name: 'STR_NO_SELECTED_PAGE'; value: 'No selected page'),
     (name: 'STR_PUT_GOLD'; value: 'Put Gold'),
     (name: 'STR_TAKE_GOLD'; value: 'Take Gold'),
@@ -379,26 +379,26 @@ function ColorApi2ColorCode(Src: PAnsiChar; Dst: PAnsiChar;
 asm
   //backup
   PUSHF
-  CLD //èíêðåìåíò äëÿ ñòðîêîâûõ êîìàíä
+  CLD //èíêðåìåíò äëÿ ñòðîêîâûõ êîìàíä
   PUSH ESI
   PUSH EDI
   PUSH EBX
   PUSH EBP
 
-  PUSH EDX //ñîõðàíÿåì íà÷àëüíûé àäðåñ ïðèåìíèêà
+  PUSH EDX //ñîõðàíÿåì íà÷àëüíûé àäðåñ ïðèåìíèêà
   MOV EDI, Dst
-  TEST Src, Src //ïðîâåðêà íà ïóñòóþ ñòðîêó
+  TEST Src, Src //ïðîâåðêà íà ïóñòóþ ñòðîêó
   JZ @Exit
   MOV ESI, Src
-// â ECX õðàíèòñÿ êîëè÷åñòâî îñòàâøèõñÿ ñèìâîëîâ èç Src
+// â ECX õðàíèòñÿ êîëè÷åñòâî îñòàâøèõñÿ ñèìâîëîâ èç Src
 @NextChar:
-  //çàãðóçêà î÷åðåäíîãî ñèìâîëà â EAX
+  //çàãðóçêà î÷åðåäíîãî ñèìâîëà â EAX
   XOR EAX, EAX
   LODSB //MOV AL, [ESI]+
-  //ïðîâåðêà íà íóëåâîé ñèìâîë (êîíåö ñòðîêè)
+  //ïðîâåðêà íà íóëåâîé ñèìâîë (êîíåö ñòðîêè)
   TEST AL, AL
   JZ @Exit
-  //ïðîâåðêà íà ñèìâîë '\'
+  //ïðîâåðêà íà ñèìâîë '\'
   CMP AL, '\'
   JE @Slash
 
@@ -406,13 +406,13 @@ asm
   //normal chars
   STOSB //MOV [EDI]+, AL
 
-//óìåíüøåíèå ñ÷åò÷èêà íåîáðàáîòàííûõ áàéòîâ è ïåðåä â íà÷àëî öèêëà
+//óìåíüøåíèå ñ÷åò÷èêà íåîáðàáîòàííûõ áàéòîâ è ïåðåä â íà÷àëî öèêëà
 @Loop:
   LOOP @NextChar
 
 @Exit:
-  MOV BYTE PTR [EDI], $00 //íóëåâîé ñèìâîë â êîíöå âûõîäíîé ñòðîêè
-  POP EAX //âîññòàíàâëèâàåì íà÷àëüíûé àäðåñ ïðèåìíèêà
+  MOV BYTE PTR [EDI], $00 //íóëåâîé ñèìâîë â êîíöå âûõîäíîé ñòðîêè
+  POP EAX //âîññòàíàâëèâàåì íà÷àëüíûé àäðåñ ïðèåìíèêà
   XCHG EAX, EDI
   //get length of Dst
   SUB EAX, EDI
@@ -425,15 +425,15 @@ asm
   RET
 
 @Slash:
-  //ïðîâåðêà íà íàëè÷èå ñëåäóþùåãî ñèìâîëà
+  //ïðîâåðêà íà íàëè÷èå ñëåäóþùåãî ñèìâîëà
   CMP ECX, 1
   JB @CopyChar // if ECX < 1
-  //çàãðóçêà ñëåäóþùåãî ñèìâîëà
+  //çàãðóçêà ñëåäóþùåãî ñèìâîëà
   LODSB //MOV AL, [ESI]+
-  //ïðîâåðêà ñèìâîëà íà êîä ïåðåâîäà ñòðîêè
+  //ïðîâåðêà ñèìâîëà íà êîä ïåðåâîäà ñòðîêè
   CMP AL, 'n'
   JNZ @TestColor
-  //ïîïðàâêà ECX
+  //ïîïðàâêà ECX
   DEC ECX
 
   //test Save2Tbl
@@ -450,62 +450,62 @@ asm
   MOV AL, $0A
   JMP @CopyChar
 
-//ïðîâåðêà íà ñòðîêè óñòàíîâêè öâåòà øðèôòà:
+//ïðîâåðêà íà ñòðîêè óñòàíîâêè öâåòà øðèôòà:
 @TestColor:
-  //ïðîâåðêà íà èñïîëüçîâàíèå ìàêðî îïðåäåëåíèé öâåòà øðèôòà
+  //ïðîâåðêà íà èñïîëüçîâàíèå ìàêðî îïðåäåëåíèé öâåòà øðèôòà
   //CMP MacroColorView, $00
   //JE @StoreSlash
 
   //backup
   PUSH ECX
   PUSH EDI
-  //âîññòàíîâëåíèå ESI
+  //âîññòàíîâëåíèå ESI
   DEC ESI
-  //ñîõðàíåíèå èñòî÷íêà
+  //ñîõðàíåíèå èñòî÷íêà
   MOV EBX, ESI
-  //çàãðóçêà êîëè÷åñòâà ñðàâíèâàåìûõ ñòðîê
+  //çàãðóçêà êîëè÷åñòâà ñðàâíèâàåìûõ ñòðîê
   MOV EAX, NcColor
-  //çàãðóçêà àäðåñà ïîñëåäíåé ñòðîêè èç ìàññèâà ñòðîê
-  //óñòàíîâêè öâåòà øðèôòà (áåç '')
+  //çàãðóçêà àäðåñà ïîñëåäíåé ñòðîêè èç ìàññèâà ñòðîê
+  //óñòàíîâêè öâåòà øðèôòà (áåç '')
   MOV EBP, pColor
-  //çàãðóçêà àäðåñà ìàññèâà äëèí ñòðîê áåç '\' è
-  //(-1, ò.ê. áóäåò ïðèáàâëÿòñÿ EAX)
+  //çàãðóçêà àäðåñà ìàññèâà äëèí ñòðîê áåç '\' è
+  //(-1, ò.ê. áóäåò ïðèáàâëÿòñÿ EAX)
   LEA EDX, [cColLength - 1]
 
 @CmpStr:
-  //çàãðóçêà àäðåñà ñòðîêè ïðèåìíèêà
+  //çàãðóçêà àäðåñà ñòðîêè ïðèåìíèêà
   MOV EDI, EBP
-  //çàãðóçêà ñ÷åò÷èêà ñèìâîëîâ ñòðîêè
+  //çàãðóçêà ñ÷åò÷èêà ñèìâîëîâ ñòðîêè
   MOVZX ECX, BYTE PTR [EDX + EAX]
-  //ñðàâíåíèå ñòðîê
-  //(ïðåðûâàíèå, åñëè íå ðàâíû, ò.å. äëèíó Src ìîæíî íå ïðîâåðÿòü)
+  //ñðàâíåíèå ñòðîê
+  //(ïðåðûâàíèå, åñëè íå ðàâíû, ò.å. äëèíó Src ìîæíî íå ïðîâåðÿòü)
   REPE CMPSB
-  //ïðîâåðêà ðåçóëüòàòà ñðàâíåíèÿ ñòðîê
+  //ïðîâåðêà ðåçóëüòàòà ñðàâíåíèÿ ñòðîê
   JZ @ColorCode
-  //âîññòàíîâëåíèå àäðåñà ñòðîêè èñòî÷íèêà
+  //âîññòàíîâëåíèå àäðåñà ñòðîêè èñòî÷íèêà
   MOV ESI, EBX
-  //ñäâèã àäðåñà ñòðîêè ïðèåìíèêà íà ñëåäóþùóþ ñòðîêó
+  //ñäâèã àäðåñà ñòðîêè ïðèåìíèêà íà ñëåäóþùóþ ñòðîêó
   SUB EBP, LenCode
-  //äåêðåìåíò ñ÷åò÷èêà ñòðîê
+  //äåêðåìåíò ñ÷åò÷èêà ñòðîê
   DEC EAX
-  //ïðîâåðêà íà ïîâòîð öèêëà ñðàâíåíèÿ ñòðîê
+  //ïðîâåðêà íà ïîâòîð öèêëà ñðàâíåíèÿ ñòðîê
   JA @CmpStr //if EAX > 0
-//ñèìâîë '\' áûë ïðîñòî ñèìâîëîì
+//ñèìâîë '\' áûë ïðîñòî ñèìâîëîì
   //restore
   POP EDI
   POP ECX
 @StoreSlash:
-  //çàïèñü êîäà ñèìâîëà '\'
+  //çàïèñü êîäà ñèìâîëà '\'
   MOV AL, '\'
   JMP @CopyChar
 
-//çàïèñü êîäà ñìåíû èçâåñòíîãî öâåòà øðèôòà
-//â AL íîìåð ñòðîêè èç cColor
+//çàïèñü êîäà ñìåíû èçâåñòíîãî öâåòà øðèôòà
+//â AL íîìåð ñòðîêè èç cColor
 @ColorCode:
   //restore
   POP EDI
-  //äîáàâêà êîäà öâåòà ê ColorCode
-  MOVZX EDX, BYTE PTR [EDX + EAX]//çàãðóçêà ñ÷åò÷èêà ñèìâîëîâ ñòðîêè
+  //äîáàâêà êîäà öâåòà ê ColorCode
+  MOVZX EDX, BYTE PTR [EDX + EAX]//çàãðóçêà ñ÷åò÷èêà ñèìâîëîâ ñòðîêè
   ADD AL, $2E //1..14 + $2E = $2F..$3C
   //backup EAX
   MOV ECX, EAX
@@ -523,9 +523,9 @@ asm
 @FullColorCode:
   //restore ECX
   POP ECX
-  SUB ECX, EDX //êîððåêöèÿ ECX íà äëèíó ñòðîêè
-  JZ @Exit //êîíåö ñòðîêè èñòî÷íèêà
-  //ESI ïîñëå ñðàâíåíèÿ óæå óêàçûâàåò íà ñëåäóþùèé ñèìâîë
+  SUB ECX, EDX //êîððåêöèÿ ECX íà äëèíó ñòðîêè
+  JZ @Exit //êîíåö ñòðîêè èñòî÷íèêà
+  //ESI ïîñëå ñðàâíåíèÿ óæå óêàçûâàåò íà ñëåäóþùèé ñèìâîë
   JMP @NextChar //ECX >= 1
 end;
 
@@ -743,7 +743,7 @@ asm
   CMP AL, $C0 //11000000
   JAE @Exit  //Error UTF8: 11xxxxxx ( if AL >= $C0)
 //UTF8: 1110xxxx 10xxxxxx 10xxxxxx
-  //get bytes UCS2 íà: xx00000:0000xxxx
+  //get bytes UCS2 íà: xx00000:0000xxxx
   AND BX, $003F //DX := 00000000:00xxxxxx
   ROR BX, 2 //BL := 0000xxxx; BH := xx000000
   //get low byte UTF8