X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Ff_mapcheck.pas;h=6a562838b73f103f5cec73010193eb4083ea225e;hp=bcb8ecf9cdfba7c230262dcdcbf7de771e6c30bc;hb=3360cb5c3e96b591451afa67a0f8a281db79e8c5;hpb=6440b720d7e55069ae59d8c4340981b594c4499b diff --git a/src/editor/f_mapcheck.pas b/src/editor/f_mapcheck.pas index bcb8ecf..6a56283 100644 --- a/src/editor/f_mapcheck.pas +++ b/src/editor/f_mapcheck.pas @@ -76,7 +76,7 @@ begin if c or ObjectCollideLevel(a, OBJECT_AREA, 0, 0) then begin - lbErrorList.Items.Add(Format(_lc[I_TEST_AREA_WALL_STR], [a, X, Y])); + lbErrorList.Items.Add(Format(MsgTestAreaWallStr, [a, X, Y])); SetLength(ErrorsNum, Length(ErrorsNum)+1); ErrorsNum[High(ErrorsNum)] := 1; end; @@ -104,7 +104,7 @@ begin if c or ObjectCollideLevel(a, OBJECT_MONSTER, 0, 0) then begin - lbErrorList.Items.Add(Format(_lc[I_TEST_MONSTER_WALL_STR], [a, X, Y])); + lbErrorList.Items.Add(Format(MsgTestMonsterWallStr, [a, X, Y])); SetLength(ErrorsNum, Length(ErrorsNum)+1); ErrorsNum[High(ErrorsNum)] := 5; end; @@ -126,21 +126,21 @@ begin if b > 1 then begin - lbErrorList.Items.Add(_lc[I_TEST_SPAWNS_1]); + lbErrorList.Items.Add(MsgTestSpawns1); SetLength(ErrorsNum, Length(ErrorsNum)+1); ErrorsNum[High(ErrorsNum)] := 2; end; if bb > 1 then begin - lbErrorList.Items.Add(_lc[I_TEST_SPAWNS_2]); + lbErrorList.Items.Add(MsgTestSpawns2); SetLength(ErrorsNum, Length(ErrorsNum)+1); ErrorsNum[High(ErrorsNum)] := 3; end; if bbb = 0 then begin - lbErrorList.Items.Add(_lc[I_TEST_NO_DM]); + lbErrorList.Items.Add(MsgTestNoDm); SetLength(ErrorsNum, Length(ErrorsNum)+1); ErrorsNum[High(ErrorsNum)] := 4; end; @@ -150,10 +150,10 @@ procedure TMapCheckForm.lbErrorListClick(Sender: TObject); begin if lbErrorList.ItemIndex <> -1 then case ErrorsNum[lbErrorList.ItemIndex] of - 1: mErrorDescription.Text := _lc[I_TEST_AREA_WALL]; - 2, 3: mErrorDescription.Text := _lc[I_TEST_SPAWNS]; - 4: mErrorDescription.Text := _lc[I_TEST_NO_DM_EX]; - 5: mErrorDescription.Text := _lc[I_TEST_MONSTER_WALL]; + 1: mErrorDescription.Text := MsgTestAreaWall; + 2, 3: mErrorDescription.Text := MsgTestSpawns; + 4: mErrorDescription.Text := MsgTestNoDmEx; + 5: mErrorDescription.Text := MsgTestMonsterWall; end; end;