From a03f69b310e67ce71f5b7f939d06539b373bd7c5 Mon Sep 17 00:00:00 2001
From: bw <bw@kolibrios.org>
Date: Thu, 29 Jan 2009 04:32:44 +0000
Subject: [PATCH] removed game cursor & alt+1/2/3/9 -> ctrl+1/2/3/9

git-svn-id: svn://kolibrios.org@1007 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 programs/games/lrl/src/LRLEditor.pp   |  2 +-
 programs/games/lrl/src/LRLRoutines.pp | 28 ++++++++++++++-------------
 2 files changed, 16 insertions(+), 14 deletions(-)

diff --git a/programs/games/lrl/src/LRLEditor.pp b/programs/games/lrl/src/LRLEditor.pp
index e218066c1a..62b8f6ad0f 100644
--- a/programs/games/lrl/src/LRLEditor.pp
+++ b/programs/games/lrl/src/LRLEditor.pp
@@ -83,7 +83,7 @@ begin
     ImagePut(LRLScreen^, LRLFontBuffer^, 25 - ImageSizex(LRLFontBuffer^) div 2, 0, 0, 0, 319, 199);
   end;
 
-  ImagePutTransparent(LRLScreen^, LRLMousePointer^, MouseX, MouseY, 0, 0, 319, 199);
+  {ImagePutTransparent(LRLScreen^, LRLMousePointer^, MouseX, MouseY, 0, 0, 319, 199);}
 end;
 
 
diff --git a/programs/games/lrl/src/LRLRoutines.pp b/programs/games/lrl/src/LRLRoutines.pp
index a02e9f17c5..5b6104174f 100644
--- a/programs/games/lrl/src/LRLRoutines.pp
+++ b/programs/games/lrl/src/LRLRoutines.pp
@@ -1,8 +1,9 @@
-unit LRLRoutines;
-
+{$codepage utf8}
 {$mode objfpc}
 {$asmmode intel}
 
+unit LRLRoutines;
+
 
 interface
 
@@ -86,6 +87,7 @@ const
   KEY_LBRACKET = $1A00;
   KEY_RBRACKET = $1B00;
   KEY_ENTER = $1C00;
+  KEY_CTRL  = $1D00;
 
   KEY_A     = $1E00;
   KEY_S     = $1F00;
@@ -200,7 +202,7 @@ var
   LastKeyEvent: Word = $FFFF;
   LastKeyUp  : Boolean = True;
   LastKeyDown: Boolean = False;
-  AltDown    : Boolean = False;
+  CtrlDown   : Boolean = False;
   ShiftDown  : Boolean = False;
   LShiftDown : Boolean = False;
   RShiftDown : Boolean = False;
@@ -272,7 +274,7 @@ var
 begin
   if (ScreenWidth = BUFFER_WIDTH) and (ScreenHeight = BUFFER_HEIGHT) then
   begin
-    {��७�� ���� � ����}
+    {перенос один в один}
     B := @ScreenPalBuffer;
     C := ScreenRGBBuffer;
     for I := 0 to BUFFER_HEIGHT - 1 do
@@ -284,7 +286,7 @@ begin
     end;
   end else
   begin
-    {����⠡�஢����}
+    {масштабирование}
     XStep := (BUFFER_WIDTH shl 16) div ScreenWidth;
     YStep := (BUFFER_HEIGHT shl 16) div ScreenHeight;
     Horizontal;
@@ -330,7 +332,7 @@ var
 begin
   Width  := PWord(@ImageBuffer)[0];
   Height := PWord(@ImageBuffer)[1];
-  
+
   PI := @ImageBuffer + 4;
 
   for I := Y to Y + Height - 1 do
@@ -390,7 +392,7 @@ begin
   Height := PWord(@FontData + 2)^;
   Table  := PWord(@FontData + 4);
 
-  { ���� ����� ��ப� }
+  { расчет длины строки }
   Width := 0;
   for I := 1 to Length(Source) do
   begin
@@ -401,7 +403,7 @@ begin
   PWord(@Buffer)^     := Width;
   PWord(@Buffer + 2)^ := Height;
 
-  { �뢮� ��ப� }
+  { вывод строки }
   X := 0;
   for I := 1 to Length(Source) do
   begin
@@ -534,10 +536,10 @@ begin
   LastKeyUp   := not LastKeyDown;
   if LastKeyUp then Dec(Result, KEY_UP_BASE);
 
-  if Result = KEY_ALT then
+  if Result = KEY_CTRL then
   begin
-    AltDown := LastKeyDown;
-    Result  := $FFFF;
+    CtrlDown := LastKeyDown;
+    Result   := $FFFF;
   end else
 
   if Result = KEY_LSHIFT then
@@ -554,7 +556,7 @@ begin
     Result     := $FFFF;
   end else
 
-  if AltDown then
+  if CtrlDown then
   case Result of
     KEY_1: begin Result := $FFFF; if LastKeyDown then ScreenMode(1); end;
     KEY_2: begin Result := $FFFF; if LastKeyDown then ScreenMode(2); end;
@@ -634,7 +636,7 @@ begin
     if NowPressed and not WasPressed then Inc(MouseButtonsPressed[I]) else
     if not NowPressed and WasPressed then Inc(MouseButtonsReleased[I]);
   end;
-  
+
   MouseButtonsState := Buttons;
 end;