WebSVN – Kolibri OS – Diff – /programs/games/lrl/src/LRLEditor.pp

 unit LRLEditor;
+{$mode objfpc}
+{$asmmode intel}
+interface
-interface
+uses
   LRLRoutines, LRLSprites, LRLLevels;
 uses DOSFileAccess, LRLRoutines, LRLSprites, LRLLevels;
+procedure LRLEditLevels;
+implementation
-procedure LRLEditLevels;
+const
-implementation
+  RefreshDelay = 5;  { 1 = 1/100 sec }
+var
-var
+  CurrentLevel: Word;
-  CurrentLevel: word;
-  CurrentTool: word;
+  CurrentTool: Word;
-  TotalLevels: word;
+  TotalLevels: Word;
-  MouseX, MouseY: integer;
+  MouseX, MouseY: Integer;
   TimeToRefresh: boolean;
-  RefreshDelay: word;
+  TimeToRefresh  : Boolean;
-  RefreshRemain: word;
+  LastRefreshTime: DWord;
   OldTimer: POINTER;
 procedure LRLRedrawLevel;
 var
-  i, j: integer;
+  i, j: Integer;
+begin
-begin
+  ImageClear(LRLScreen^);
   ImageClear(LRLScreen^);
-  for i := 1 to 16 do
-    for j := 1 to 30 do
+  for i := 1 to 16 do for j := 1 to 30 do
-      with LRLLevel.Field[j, i] do
-        ImagePut(LRLScreen^, LRLEnvironment[Image].Image[Count].Data^, j * 10, i * 10, 0, 0, 319, 199);
+  with LRLLevel.Field[j, i] do
-  for i := 1 to 10 do
+    ImagePut(LRLScreen^, LRLEnvironment[Image].Image[Count].Data^, j * 10, i * 10, 0, 0, 319, 199);
     with LRLLevel.Player[i] do
-    begin
+  for i := 1 to 10 do
+  with LRLLevel.Player[i] do
-      if Controller <> 0 then
+  if Controller <> 0 then
-        ImagePutTransparent(LRLScreen^, LRLFigure[Colour, SpriteData].Image[Sprite].Data^,
-          Position.x * 10 + Position.xoffs, Position.y * 10 + Position.yoffs, 0, 0, 319, 199);
+    ImagePutTransparent(LRLScreen^, LRLFigure[Colour, SpriteData].Image[Sprite].Data^, Position.x * 10 + Position.xoffs, Position.y * 10 + Position.yoffs, 0, 0, 319, 199);
-    end;
-  ImageFill(LRLFontBuffer^, 12, 12, 252);
-  ImagePut(LRLScreen^, LRLFontBuffer^, 10, 184, 0, 0, 319, 199);
+  ImageFill(LRLFontBuffer^, 12, 12, 252);
-  for i := 1 to 13 do
+  ImagePut(LRLScreen^, LRLFontBuffer^, 10, 184, 0, 0, 319, 199);
   begin
-    if i > 9 then
-      ImagePut(LRLScreen^, LRLFigure[i - 9, 1].Image[1].Data^, i * 15 - 4, 185, 0, 0, 319, 199)
+  for i := 1 to 13 do
-    else
+  if i > 9 then
-      ImagePut(LRLScreen^, LRLEnvironment[i].Image[1].Data^, i * 15 - 4, 185, 0, 0, 319, 199);
-  end;
-  for i := 1 to 6 do
+    ImagePut(LRLScreen^, LRLFigure[i - 9, 1].Image[1].Data^, i * 15 - 4, 185, 0, 0, 319, 199) else
-  begin
-    if LRLEditorButton[i].Lit then
+    ImagePut(LRLScreen^, LRLEnvironment[i].Image[1].Data^, i * 15 - 4, 185, 0, 0, 319, 199);
       ImagePut(LRLScreen^, LRLEditorButton[i].LightIcon^, LRLEditorButton[i].x1,
-        LRLEditorButton[i].y1, 0, 0, 319, 199)
+  for i := 1 to 6 do
-    else
-      ImagePut(LRLScreen^, LRLEditorButton[i].DarkIcon^, LRLEditorButton[i].x1,
-        LRLEditorButton[i].y1, 0, 0, 319, 199);
-  end;
-  LRLDrawOrnamental(0, 0, 31, 17, 1);
-end;
-procedure RefreshRunner;
-{INTERRUPT;
-ASSEMBLER;}
-asm
-  DEC RefreshRemain
-  JNZ @DoTimer
-  MOV AX,RefreshDelay
-  MOV RefreshRemain,AX
+  if LRLEditorButton[i].Lit then
-  MOV TimeToRefresh,-1
+    ImagePut(LRLScreen^, LRLEditorButton[i].LightIcon^, LRLEditorButton[i].x1, LRLEditorButton[i].y1, 0, 0, 319, 199) else
+    ImagePut(LRLScreen^, LRLEditorButton[i].DarkIcon^, LRLEditorButton[i].x1, LRLEditorButton[i].y1, 0, 0, 319, 199);
   @DoTimer:
-  PUSHF
+  LRLDrawOrnamental(0, 0, 31, 17, 1);
+end;
   CALL OldTimer
-end;
 procedure LRLMoveMouse;
-var
-  s, s2: string[20];
-begin
+var
-  MSMouseGetXY(Mousex, Mousey);
-  if not MSMouseInArea(200, 180, 325, 205) then
+  s, s2: String[20];
-  begin
+begin
-    if CurrentTool < 10 then
+  MSMouseGetXY(MouseX, MouseY);
       ImagePut(LRLScreen^, LRLEnvironment[CurrentTool].Image[1].Data^,
-        Mousex - 5, Mousey - 5, 0, 0, 319, 199)
+  if not MSMouseInArea(200, 180, 325, 205) then
-    else
+    if CurrentTool < 10 then
-      ImagePut(LRLScreen^, LRLFigure[CurrentTool - 9, 1].Image[1].Data^,
+      ImagePut(LRLScreen^, LRLEnvironment[CurrentTool].Image[1].Data^, MouseX - 5, MouseY - 5, 0, 0, 319, 199) else
-        Mousex - 5, Mousey - 5, 0, 0, 319, 199);
+      ImagePut(LRLScreen^, LRLFigure[CurrentTool - 9, 1].Image[1].Data^, MouseX - 5, MouseY - 5, 0, 0, 319, 199);
   end;
   if not MSMouseInArea(-2, -2, 55, 20) then
+  begin
-  begin
+    ImageFill(LRLFontBuffer^, 50, 15, 0);
-    ImageFill(LRLFontBuffer^, 50, 15, 0);
+    ImagePut(LRLScreen^, LRLFontBuffer^, 0, 0, 0, 0, 319, 199);
+    Str(CurrentLevel, s);
-    ImagePut(LRLScreen^, LRLFontBuffer^, 0, 0, 0, 0, 319, 199);
+    Str(TotalLevels, s2);
-    STR(CurrentLevel, s);
+    ImageStringGet(s + '/' + s2, LRLFont^, LRLFontBuffer^, 251);
-    STR(TotalLevels, s2);
+    ImagePut(LRLScreen^, LRLFontBuffer^, 25 - ImageSizex(LRLFontBuffer^) div 2, 0, 0, 0, 319, 199);
-    ImageStringGet(s + '/' + s2, LRLFont^, LRLFontBuffer^, 251);
+  end;
+  ImagePutTransparent(LRLScreen^, LRLMousePointer^, MouseX, MouseY, 0, 0, 319, 199);
-    ImagePut(LRLScreen^, LRLFontBuffer^, 25 - ImageSizex(LRLFontBuffer^) div 2, 0, 0, 0, 319, 199);
+end;
   end;
-  ImagePutTransparent(LRLScreen^, LRLMousePointer^, Mousex, Mousey, 0, 0, 319, 199);
-end;
+procedure Repress;
-procedure RePress;
+var
-var
+  x, y: Integer;
-  x, y: integer;
+begin
-begin
-  MSMouseButtonWasPressed(1, x, y);
+  MSMouseButtonWasPressed(0, x, y);
-  MSMouseButtonWasReleased(1, x, y);
+  MSMouseButtonWasReleased(0, x, y);
-  MSMouseButtonWasPressed(4, x, y);
+  MSMouseButtonWasPressed(1, x, y);
-  MSMouseButtonWasReleased(4, x, y);
+  MSMouseButtonWasReleased(1, x, y);
 end;
 procedure LRLEditLevels;
+procedure LRLEditLevels;
+var
-var
+  Keypress: Word;
-  Keypress: word;
+  DrawNow: Boolean;
-  NeedToFade: boolean;
-  DrawNow: boolean;
-  i, j: integer;
+  i, j: Integer;
-  x, y: integer;
-  Cmd:  word;
-begin
+  x, y: Integer;
-  if not MSMouseDriverExist then Exit;
+  Cmd:  Word;
-  Repress;
+begin
-  ShowLives := False;
+  if not MSMouseDriverExist then Exit;
-  ShowScore := False;
+  Repress;
+  Palette256Set(LRLPalette^);
+  ShowLives := False;
-  Palette256Set(LRLPalette^);
+  ShowScore := False;
-  OldTimer := SetInterrupt($8, @RefreshRunner);
+  Keypress  := 0;
+  CurrentLevel := 1;
+  CurrentTool  := 2;
+  TotalLevels  := LRLLevelCount;
   Keypress := 0;
+  DrawNow := False;
+  TimeToRefresh   := True;
+  LastRefreshTime := 0;
   RefreshDelay := 1;
-  RefreshRemain := 1;
+  MSMouseSetXY(160, 100);
-  CurrentLevel := 1;
+  LRLLoadLevel(CurrentLevel);
   CurrentTool := 2;
-  TotalLevels := LRLLevelCount;
+  WaitForEvent(1);
   TimeToRefresh := True;
+  repeat
-  DrawNow  := False;
+    if not TimeToRefresh then
+      TimeToRefresh := kos_timecounter() - LastRefreshTime >= RefreshDelay;
   MSMouseSetXY(160, 100);
-  LRLLoadLevel(CurrentLevel);
-  repeat
+    if TimeToRefresh then
-    if TimeToRefresh then
+    begin
-    begin
+      LRLRedrawLevel;
-      LRLRedrawLevel;
+      LRLMoveMouse;
-      LRLMoveMouse;
+      ScreenApply(LRLScreen^);
+      TimeToRefresh   := False;
-      ScreenApply(LRLScreen^);
+      LastRefreshTime := kos_timecounter();
-      TimeToRefresh := False;
+    end;
     end;
     if Keypressed then
-    begin
+      Keypress := Readkey;
-      Keypress := Readkey;
+    if MSMouseButtonWasReleased(1, x, y) then
-    end;
+    begin
-    if MSMouseButtonWasReleased(1, x, y) then
+      LRLScore := 0;
     begin
-      LRLScore := 0;
+      FadeClear;
+      ImageClear(LRLScreen^);
-      FadeClear;
+      ScreenApply(LRLScreen^);
-      ImageClear(LRLScreen^);
+      Palette256Set(LRLPalette^);
+      LRLPlayLevel(CurrentLevel);
       ScreenApply(LRLScreen^);
-      Palette256Set(LRLPalette^);
-      LRLPlayLevel(CurrentLevel);
+      FadeClear;
-      FadeClear;
+      ImageClear(LRLScreen^);
-      ImageClear(LRLScreen^);
+      ScreenApply(LRLScreen^);
-      ScreenApply(LRLScreen^);
+      Palette256Set(LRLPalette^);
-      Palette256Set(LRLPalette^);
+      LRLLoadLevel(CurrentLevel);
-      LRLLoadLevel(CurrentLevel);
+      Repress;
+    end;
       Repress;
-    end;
+    if MSMouseButtonWasPressed(0, x, y) then
+      DrawNow := True;
     if MSMouseButtonWasPressed(0, x, y) then
-    begin
-      DrawNow := True;
+    if MSMouseButtonWasReleased(0, x, y) then
-    end;
-    if MSMouseButtonWasReleased(0, x, y) then
+    begin
-    begin
+      DrawNow := False;
-      DrawNow := False;
-      Cmd := 0;
-      for i := 1 to 6 do
+      Cmd := 0;
-        LRLEditorButton[i].Lit := False;
+      for i := 1 to 6 do
+        LRLEditorButton[i].Lit := False;
       for i := 1 to 6 do
+      for i := 1 to 6 do
-      begin
+      if MSMouseInArea(LRLEditorButton[i].x1, LRLEditorButton[i].y1, LRLEditorButton[i].x2, LRLEditorButton[i].y2) then
+      begin
+        Cmd := LRLEditorButton[i].Command;
-        if MSMouseInArea(LRLEditorButton[i].x1, LRLEditorButton[i].y1,
+        Break;
-          LRLEditorButton[i].x2, LRLEditorButton[i].y2) then
+      end;
         begin
-          Cmd := LRLEditorButton[i].Command;
+      if Cmd = 1 then
-          BREAK;
+      begin
-        end;
+        LRLSaveLevel(CurrentLevel);
-      end;
+        Repress;
-      if (Cmd = 1) then
+      end;
-        LRLSaveLevel(CurrentLevel);
+      if Cmd = 2 then
-      Repress;
+      begin
-      if (Cmd = 2) then
+        LRLInsertLevel(CurrentLevel);
-      begin
+        Inc(CurrentLevel);
+        TotalLevels := LRLLevelCount;
-        LRLInsertLevel(CurrentLevel);
+        LRLLoadLevel(CurrentLevel);
         Inc(CurrentLevel);
+        Repress;
-        TotalLevels := LRLLevelCount;
+      end;
         LRLLoadLevel(CurrentLevel);
-        Repress;
-      end;
+      if (Cmd = 3) and (CurrentLevel < TotalLevels) then
-      if (Cmd = 3) and (CurrentLevel < TotalLevels) then
+      begin
-      begin
+        Inc(CurrentLevel);
-        Inc(CurrentLevel);
+        LRLLoadLevel(CurrentLevel);
-        LRLLoadLevel(CurrentLevel);
+        Repress;
-        Repress;
+      end;
-      end;
+      if Cmd = 4 then
-      if (Cmd = 4) then
+      begin
-      begin
+        for i := 1 to 16 do for j := 1 to 30 do
-        for i := 1 to 16 do
+          LRLLevel.Field[j, i].Image := 1;
-          for j := 1 to 30 do
+        for i := 1 to 10 do
-            LRLLevel.Field[j, i].Image := 1;
+          LRLLevel.Player[i].Controller := 0;
         for i := 1 to 10 do
+        Repress;
-          LRLLevel.Player[i].Controller := 0;
+      end;
         Repress;
+      if (Cmd = 5) and (TotalLevels > 1) then
-      end;
+      begin
-      if (Cmd = 5) and (TotalLevels > 1) then
+        LRLDeleteLevel(CurrentLevel);
-      begin
+        TotalLevels := LRLLevelCount;
-        LRLDeleteLevel(CurrentLevel);
+        if CurrentLevel > TotalLevels then
+          CurrentLevel := TotalLevels;
-        TotalLevels := LRLLevelCount;
+        LRLLoadLevel(CurrentLevel);
         if CurrentLevel > TotalLevels then
+        Repress;
-          CurrentLevel := TotalLevels;
+      end;
-        LRLLoadLevel(CurrentLevel);
+      if (Cmd = 6) and (CurrentLevel > 1) then
-        Repress;
-      end;
+      begin
-      if (Cmd = 6) and (CurrentLevel > 1) then
-      begin
+        Dec(CurrentLevel);
-        Dec(CurrentLevel);
+        LRLLoadLevel(CurrentLevel);
         LRLLoadLevel(CurrentLevel);
-        Repress;
-      end;
+        Repress;
-      MSMouseGetXY(Mousex, Mousey);
-      if (Mousey > 180) then
+      end;
       begin
+      MSMouseGetXY(MouseX, MouseY);
         for i := 1 to 13 do
-        begin
+      if MouseY > 180 then
-          if (Mousey > 184) and (Mousey < 195) and (Mousex > i * 15 - 5) and (Mousex < i * 15 + 6) then
+        for i := 1 to 13 do
-          begin
+        if (MouseY > 184) and (MouseY < 195) and (MouseX > i * 15 - 5) and (MouseX < i * 15 + 6) then
+        begin
-            CurrentTool := i;
+          CurrentTool := i;
-            BREAK;
-          end;
+          Break;
-        end;
-      end;
+        end;
     end;
-    if DrawNow then
-    begin
-      for i := 1 to 6 do
+    if DrawNow then
+    begin
-        LRLEditorButton[i].Lit := False;
+      for i := 1 to 6 do
+        LRLEditorButton[i].Lit := False;
-      for i := 1 to 6 do
-      begin
+      for i := 1 to 6 do
+      if MSMouseInArea(LRLEditorButton[i].x1, LRLEditorButton[i].y1, LRLEditorButton[i].x2, LRLEditorButton[i].y2) then
-        if MSMouseInArea(LRLEditorButton[i].x1, LRLEditorButton[i].y1,
+      begin
-          LRLEditorButton[i].x2, LRLEditorButton[i].y2) then
+        LRLEditorButton[i].Lit := True;
-        begin
+        Break;
-          LRLEditorButton[i].Lit := True;
-          BREAK;
+      end;
-        end;
-      end;
-      MSMouseGetXY(Mousex, Mousey);
-      x := (Mousex) div 10;
-      y := (Mousey) div 10;
+      MSMouseGetXY(MouseX, MouseY);
       if (x > 0) and (x < 31) and (y > 0) and (y < 17) then
-      begin
-        for i := 1 to 10 do
+      x := MouseX div 10;
-        begin
-          if (LRLLevel.Player[i].Controller <> 0) and (LRLLevel.Player[i].Position.x = x) and
+      y := MouseY div 10;
-            (LRLLevel.Player[i].Position.y = y) then
+      if (x > 0) and (x < 31) and (y > 0) and (y < 17) then
-          begin
+      begin
-            if (CurrentTool <> 2) and (CurrentTool <> 3) and (CurrentTool <> 4) and
-              (CurrentTool <> 7) then
-            begin
+        for i := 1 to 10 do
-              LRLLevel.Player[i].Controller := 0;
+        if (LRLLevel.Player[i].Controller <> 0) and (LRLLevel.Player[i].Position.x = x) and (LRLLevel.Player[i].Position.y = y) and
-              BREAK;
+           (CurrentTool <> 2) and (CurrentTool <> 3) and (CurrentTool <> 4) and (CurrentTool <> 7) then
-            end;
+          begin
-          end;
+            LRLLevel.Player[i].Controller := 0;
-        end;
+            Break;
-        if CurrentTool < 10 then
+          end;
           LRLLevel.Field[x, y].Image := CurrentTool
-        else
+        if CurrentTool < 10 then
-        begin
-          if (LRLLevel.Field[x, y].Image = 2) or (LRLLevel.Field[x, y].Image = 3) or
+          LRLLevel.Field[x, y].Image := CurrentTool else
-            (LRLLevel.Field[x, y].Image = 4) or (LRLLevel.Field[x, y].Image = 1) then
+        if (LRLLevel.Field[x, y].Image = 2) or (LRLLevel.Field[x, y].Image = 3) or
-          begin
+           (LRLLevel.Field[x, y].Image = 4) or (LRLLevel.Field[x, y].Image = 1) then
-            if CurrentTool = 10 then
+        begin
-            begin
-              LRLLevel.Player[1].Controller := 1;
+          if CurrentTool = 10 then
-              LRLLevel.Player[1].Position.x := x;
+          begin
-              LRLLevel.Player[1].Position.y := y;
+            LRLLevel.Player[1].Controller := 1;
-              LRLLevel.Player[1].Colour := 1;
-            end
+            LRLLevel.Player[1].Position.x := x;
-            else
+            LRLLevel.Player[1].Position.y := y;
-            begin
+            LRLLevel.Player[1].Colour := 1;
-              j := 2;
+          end else
-              for i := 2 to 10 do
+          begin
-              begin
+            j := 2;
-                if LRLLevel.Player[i].Controller = 0 then
+            for i := 2 to 10 do
-                begin
+            if LRLLevel.Player[i].Controller = 0 then
-                  j := i;
+            begin
-                  BREAK;
+              j := i;
+              Break;
+            end;
+            LRLLevel.Player[j].Controller := 2;
+            LRLLevel.Player[j].Position.x := x;
-                end;
+            LRLLevel.Player[j].Position.y := y;
-              end;
-              LRLLevel.Player[j].Controller := 2;
-              LRLLevel.Player[j].Position.x := x;
+            LRLLevel.Player[j].Colour := CurrentTool - 9;
-              LRLLevel.Player[j].Position.y := y;
+          end;

Subversion Repositories Kolibri OS

(root)/programs/games/lrl/src/LRLEditor.pp – Rev 762 → 775