mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-27 16:59:41 +03:00
305 lines
8.0 KiB
ObjectPascal
305 lines
8.0 KiB
ObjectPascal
unit LRLEditor;
|
|
|
|
interface
|
|
|
|
uses DOSFileAccess, LRLRoutines, LRLSprites, LRLLevels;
|
|
|
|
procedure LRLEditLevels;
|
|
|
|
implementation
|
|
|
|
var
|
|
CurrentLevel: word;
|
|
CurrentTool: word;
|
|
TotalLevels: word;
|
|
MouseX, MouseY: integer;
|
|
TimeToRefresh: boolean;
|
|
RefreshDelay: word;
|
|
RefreshRemain: word;
|
|
OldTimer: POINTER;
|
|
|
|
procedure LRLRedrawLevel;
|
|
var
|
|
i, j: integer;
|
|
begin
|
|
ImageClear(LRLScreen^);
|
|
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);
|
|
for i := 1 to 10 do
|
|
with LRLLevel.Player[i] do
|
|
begin
|
|
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);
|
|
end;
|
|
ImageFill(LRLFontBuffer^, 12, 12, 252);
|
|
ImagePut(LRLScreen^, LRLFontBuffer^, 10, 184, 0, 0, 319, 199);
|
|
for i := 1 to 13 do
|
|
begin
|
|
if i > 9 then
|
|
ImagePut(LRLScreen^, LRLFigure[i - 9, 1].Image[1].Data^, i * 15 - 4, 185, 0, 0, 319, 199)
|
|
else
|
|
ImagePut(LRLScreen^, LRLEnvironment[i].Image[1].Data^, i * 15 - 4, 185, 0, 0, 319, 199);
|
|
end;
|
|
for i := 1 to 6 do
|
|
begin
|
|
if LRLEditorButton[i].Lit then
|
|
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);
|
|
end;
|
|
LRLDrawOrnamental(0, 0, 31, 17, 1);
|
|
end;
|
|
|
|
procedure RefreshRunner;
|
|
{INTERRUPT;
|
|
ASSEMBLER;}
|
|
asm
|
|
DEC RefreshRemain
|
|
JNZ @DoTimer
|
|
|
|
MOV AX,RefreshDelay
|
|
MOV RefreshRemain,AX
|
|
MOV TimeToRefresh,-1
|
|
|
|
@DoTimer:
|
|
PUSHF
|
|
CALL OldTimer
|
|
end;
|
|
|
|
procedure LRLMoveMouse;
|
|
var
|
|
s, s2: string[20];
|
|
begin
|
|
MSMouseGetXY(Mousex, Mousey);
|
|
if not MSMouseInArea(200, 180, 325, 205) then
|
|
begin
|
|
if CurrentTool < 10 then
|
|
ImagePut(LRLScreen^, LRLEnvironment[CurrentTool].Image[1].Data^,
|
|
Mousex - 5, Mousey - 5, 0, 0, 319, 199)
|
|
else
|
|
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
|
|
ImageFill(LRLFontBuffer^, 50, 15, 0);
|
|
ImagePut(LRLScreen^, LRLFontBuffer^, 0, 0, 0, 0, 319, 199);
|
|
STR(CurrentLevel, s);
|
|
STR(TotalLevels, s2);
|
|
ImageStringGet(s + '/' + s2, LRLFont^, LRLFontBuffer^, 251);
|
|
ImagePut(LRLScreen^, LRLFontBuffer^, 25 - ImageSizex(LRLFontBuffer^) div 2, 0, 0, 0, 319, 199);
|
|
end;
|
|
ImagePutTransparent(LRLScreen^, LRLMousePointer^, Mousex, Mousey, 0, 0, 319, 199);
|
|
end;
|
|
|
|
procedure RePress;
|
|
var
|
|
x, y: integer;
|
|
begin
|
|
MSMouseButtonWasPressed(1, x, y);
|
|
MSMouseButtonWasReleased(1, x, y);
|
|
MSMouseButtonWasPressed(4, x, y);
|
|
MSMouseButtonWasReleased(4, x, y);
|
|
end;
|
|
|
|
procedure LRLEditLevels;
|
|
var
|
|
Keypress: word;
|
|
NeedToFade: boolean;
|
|
DrawNow: boolean;
|
|
i, j: integer;
|
|
x, y: integer;
|
|
Cmd: word;
|
|
begin
|
|
if not MSMouseDriverExist then Exit;
|
|
Repress;
|
|
ShowLives := False;
|
|
ShowScore := False;
|
|
Palette256Set(LRLPalette^);
|
|
OldTimer := SetInterrupt($8, @RefreshRunner);
|
|
Keypress := 0;
|
|
RefreshDelay := 1;
|
|
RefreshRemain := 1;
|
|
CurrentLevel := 1;
|
|
CurrentTool := 2;
|
|
TotalLevels := LRLLevelCount;
|
|
TimeToRefresh := True;
|
|
DrawNow := False;
|
|
MSMouseSetXY(160, 100);
|
|
LRLLoadLevel(CurrentLevel);
|
|
repeat
|
|
if TimeToRefresh then
|
|
begin
|
|
LRLRedrawLevel;
|
|
LRLMoveMouse;
|
|
ScreenApply(LRLScreen^);
|
|
TimeToRefresh := False;
|
|
end;
|
|
if Keypressed then
|
|
begin
|
|
Keypress := Readkey;
|
|
end;
|
|
if MSMouseButtonWasReleased(1, x, y) then
|
|
begin
|
|
LRLScore := 0;
|
|
FadeClear;
|
|
ImageClear(LRLScreen^);
|
|
ScreenApply(LRLScreen^);
|
|
Palette256Set(LRLPalette^);
|
|
LRLPlayLevel(CurrentLevel);
|
|
FadeClear;
|
|
ImageClear(LRLScreen^);
|
|
ScreenApply(LRLScreen^);
|
|
Palette256Set(LRLPalette^);
|
|
LRLLoadLevel(CurrentLevel);
|
|
Repress;
|
|
end;
|
|
if MSMouseButtonWasPressed(0, x, y) then
|
|
begin
|
|
DrawNow := True;
|
|
end;
|
|
if MSMouseButtonWasReleased(0, x, y) then
|
|
begin
|
|
DrawNow := False;
|
|
Cmd := 0;
|
|
for i := 1 to 6 do
|
|
LRLEditorButton[i].Lit := False;
|
|
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;
|
|
BREAK;
|
|
end;
|
|
end;
|
|
if (Cmd = 1) then
|
|
LRLSaveLevel(CurrentLevel);
|
|
Repress;
|
|
if (Cmd = 2) then
|
|
begin
|
|
LRLInsertLevel(CurrentLevel);
|
|
Inc(CurrentLevel);
|
|
TotalLevels := LRLLevelCount;
|
|
LRLLoadLevel(CurrentLevel);
|
|
Repress;
|
|
end;
|
|
if (Cmd = 3) and (CurrentLevel < TotalLevels) then
|
|
begin
|
|
Inc(CurrentLevel);
|
|
LRLLoadLevel(CurrentLevel);
|
|
Repress;
|
|
end;
|
|
if (Cmd = 4) then
|
|
begin
|
|
for i := 1 to 16 do
|
|
for j := 1 to 30 do
|
|
LRLLevel.Field[j, i].Image := 1;
|
|
for i := 1 to 10 do
|
|
LRLLevel.Player[i].Controller := 0;
|
|
Repress;
|
|
end;
|
|
if (Cmd = 5) and (TotalLevels > 1) then
|
|
begin
|
|
LRLDeleteLevel(CurrentLevel);
|
|
TotalLevels := LRLLevelCount;
|
|
if CurrentLevel > TotalLevels then
|
|
CurrentLevel := TotalLevels;
|
|
LRLLoadLevel(CurrentLevel);
|
|
Repress;
|
|
end;
|
|
if (Cmd = 6) and (CurrentLevel > 1) then
|
|
begin
|
|
Dec(CurrentLevel);
|
|
LRLLoadLevel(CurrentLevel);
|
|
Repress;
|
|
end;
|
|
MSMouseGetXY(Mousex, Mousey);
|
|
if (Mousey > 180) then
|
|
begin
|
|
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;
|
|
BREAK;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
if DrawNow then
|
|
begin
|
|
for i := 1 to 6 do
|
|
LRLEditorButton[i].Lit := False;
|
|
for i := 1 to 6 do
|
|
begin
|
|
if MSMouseInArea(LRLEditorButton[i].x1, LRLEditorButton[i].y1,
|
|
LRLEditorButton[i].x2, LRLEditorButton[i].y2) then
|
|
begin
|
|
LRLEditorButton[i].Lit := True;
|
|
BREAK;
|
|
end;
|
|
end;
|
|
MSMouseGetXY(Mousex, Mousey);
|
|
x := (Mousex) div 10;
|
|
y := (Mousey) div 10;
|
|
if (x > 0) and (x < 31) and (y > 0) and (y < 17) then
|
|
begin
|
|
for i := 1 to 10 do
|
|
begin
|
|
if (LRLLevel.Player[i].Controller <> 0) and (LRLLevel.Player[i].Position.x = x) and
|
|
(LRLLevel.Player[i].Position.y = y) then
|
|
begin
|
|
if (CurrentTool <> 2) and (CurrentTool <> 3) and (CurrentTool <> 4) and
|
|
(CurrentTool <> 7) then
|
|
begin
|
|
LRLLevel.Player[i].Controller := 0;
|
|
BREAK;
|
|
end;
|
|
end;
|
|
end;
|
|
if CurrentTool < 10 then
|
|
LRLLevel.Field[x, y].Image := CurrentTool
|
|
else
|
|
begin
|
|
if (LRLLevel.Field[x, y].Image = 2) or (LRLLevel.Field[x, y].Image = 3) or
|
|
(LRLLevel.Field[x, y].Image = 4) or (LRLLevel.Field[x, y].Image = 1) then
|
|
begin
|
|
if CurrentTool = 10 then
|
|
begin
|
|
LRLLevel.Player[1].Controller := 1;
|
|
LRLLevel.Player[1].Position.x := x;
|
|
LRLLevel.Player[1].Position.y := y;
|
|
LRLLevel.Player[1].Colour := 1;
|
|
end
|
|
else
|
|
begin
|
|
j := 2;
|
|
for i := 2 to 10 do
|
|
begin
|
|
if LRLLevel.Player[i].Controller = 0 then
|
|
begin
|
|
j := i;
|
|
BREAK;
|
|
end;
|
|
end;
|
|
LRLLevel.Player[j].Controller := 2;
|
|
LRLLevel.Player[j].Position.x := x;
|
|
LRLLevel.Player[j].Position.y := y;
|
|
LRLLevel.Player[j].Colour := CurrentTool - 9;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
until (LO(Keypress) = 27);
|
|
SetInterrupt($8, OldTimer);
|
|
end;
|
|
|
|
end.
|