viewlist.pas

原版翎风(LF)引擎(M2)源码(Delphi)

        exit;
      end;
    end;
    ListBoxEnableMakeList.Items.Add(ListBoxItemList.Items.Strings[ListBoxItemList.ItemIndex]);
    ModValue();
  end;
end;

procedure TfrmViewList.ButtonEnableMakeAddAllClick(Sender: TObject);
var
  I: Integer;
begin
  ListBoxEnableMakeList.Items.Clear;
  for I := 0 to ListBoxItemList.Items.Count - 1 do begin
    ListBoxEnableMakeList.Items.Add(ListBoxItemList.Items.Strings[I]);
  end;
  ModValue();
end;

procedure TfrmViewList.ButtonEnableMakeDeleteAllClick(Sender: TObject);
begin
  ListBoxEnableMakeList.Items.Clear;
  ButtonEnableMakeDelete.Enabled:=False;
  ModValue();
end;

procedure TfrmViewList.ButtonEnableMakeDeleteClick(Sender: TObject);
begin
  if ListBoxEnableMakeList.ItemIndex >=0 then begin
    ListBoxEnableMakeList.Items.Delete(ListBoxEnableMakeList.ItemIndex);
    ModValue();
  end;
  if ListBoxEnableMakeList.ItemIndex < 0 then
    ButtonEnableMakeDelete.Enabled:=False;
end;


procedure TfrmViewList.ButtonEnableMakeSaveClick(Sender: TObject);
var
  I: Integer;
begin
  g_EnableMakeItemList.Lock;
  try
    g_EnableMakeItemList.Clear;
    for I := 0 to ListBoxEnableMakeList.Items.Count - 1 do begin
      g_EnableMakeItemList.Add(ListBoxEnableMakeList.Items.Strings[I])
    end;
  finally
    g_EnableMakeItemList.UnLock;
  end;
  SaveEnableMakeItem();
  uModValue();
end;

procedure TfrmViewList.ListBoxitemList1Click(Sender: TObject);
begin
  if not boOpened then exit;
  if ListBoxItemList1.ItemIndex >=0 then
    ButtonDisableMakeAdd.Enabled:=True;
end;

procedure TfrmViewList.ListBoxDisableMakeListClick(Sender: TObject);
begin
  if not boOpened then exit;
  if ListBoxDisableMakeList.ItemIndex >=0 then
    ButtonDisableMakeDelete.Enabled:=True;
end;

procedure TfrmViewList.ButtonDisableMakeAddClick(Sender: TObject);
var
  I: Integer;
begin
  if ListBoxItemList1.ItemIndex >=0 then begin
    for I := 0 to ListBoxDisableMakeList.Items.Count - 1 do begin
      if ListBoxDisableMakeList.Items.Strings[I] = ListBoxItemList1.Items.Strings[ListBoxItemList1.ItemIndex] then begin
        Application.MessageBox('此物品已在列表中！！！','错误信息',MB_OK + MB_ICONERROR);
        exit;
      end;
    end;
    ListBoxDisableMakeList.Items.Add(ListBoxItemList1.Items.Strings[ListBoxItemList1.ItemIndex]);
    ModValue();
  end;
end;

procedure TfrmViewList.ButtonDisableMakeDeleteClick(Sender: TObject);
begin
  if ListBoxDisableMakeList.ItemIndex >=0 then begin
    ListBoxDisableMakeList.Items.Delete(ListBoxDisableMakeList.ItemIndex);
    ModValue();
  end;
  if ListBoxDisableMakeList.ItemIndex < 0 then
    ButtonDisableMakeDelete.Enabled:=False;
end;

procedure TfrmViewList.ButtonDisableMakeAddAllClick(Sender: TObject);
var
  I: Integer;
begin
  ListBoxDisableMakeList.Items.Clear;
  for I := 0 to ListBoxItemList1.Items.Count - 1 do begin
    ListBoxDisableMakeList.Items.Add(ListBoxItemList1.Items.Strings[I]);
  end;
  ModValue();
end;

procedure TfrmViewList.ButtonDisableMakeDeleteAllClick(Sender: TObject);
begin
  ListBoxDisableMakeList.Items.Clear;
  ButtonDisableMakeDelete.Enabled:=False;
  ModValue();
end;



procedure TfrmViewList.ButtonDisableMakeSaveClick(Sender: TObject);
var
  I: Integer;
begin
  g_DisableMakeItemList.Lock;
  try
    g_DisableMakeItemList.Clear;
    for I := 0 to ListBoxDisableMakeList.Items.Count - 1 do begin
      g_DisableMakeItemList.Add(ListBoxDisableMakeList.Items.Strings[I])
    end;
  finally
    g_DisableMakeItemList.UnLock;
  end;
  SaveDisableMakeItem();
  uModValue();
end;

procedure TfrmViewList.ButtonDisableMoveMapAddClick(Sender: TObject);
var
  I: Integer;
begin
  if ListBoxMapList.ItemIndex >=0 then begin
    for I := 0 to ListBoxDisableMoveMap.Items.Count - 1 do begin
      if ListBoxDisableMoveMap.Items.Strings[I] = ListBoxMapList.Items.Strings[ListBoxMapList.ItemIndex] then begin
        Application.MessageBox('此地图已在列表中！！！','错误信息',MB_OK + MB_ICONERROR);
        exit;
      end;
    end;
    ListBoxDisableMoveMap.Items.Add(ListBoxMapList.Items.Strings[ListBoxMapList.ItemIndex]);
    ModValue();
  end;
end;

procedure TfrmViewList.ButtonDisableMoveMapDeleteClick(Sender: TObject);
begin
  if ListBoxDisableMoveMap.ItemIndex >=0 then begin
    ListBoxDisableMoveMap.Items.Delete(ListBoxDisableMoveMap.ItemIndex);
    ModValue();
  end;
  if ListBoxDisableMoveMap.ItemIndex < 0 then
    ButtonDisableMoveMapDelete.Enabled:=False;
end;

procedure TfrmViewList.ButtonDisableMoveMapAddAllClick(Sender: TObject);
var
  I: Integer;
begin
  ListBoxDisableMoveMap.Items.Clear;
  for I := 0 to ListBoxMapList.Items.Count - 1 do begin
    ListBoxDisableMoveMap.Items.Add(ListBoxMapList.Items.Strings[I]);
  end;
  ModValue();
end;

procedure TfrmViewList.ButtonDisableMoveMapSaveClick(Sender: TObject);
var
  I: Integer;
begin
  g_DisableMoveMapList.Lock;
  try
    g_DisableMoveMapList.Clear;
    for I := 0 to ListBoxDisableMoveMap.Items.Count - 1 do begin
      g_DisableMoveMapList.Add(ListBoxDisableMoveMap.Items.Strings[I])
    end;
  finally
    g_DisableMoveMapList.UnLock;
  end;
  SaveDisableMoveMap();
  uModValue();
end;

procedure TfrmViewList.ButtonDisableMoveMapDeleteAllClick(Sender: TObject);
begin
  ListBoxDisableMoveMap.Items.Clear;
  ButtonDisableMoveMapDelete.Enabled:=False;
  ModValue();
end;

procedure TfrmViewList.ListBoxMapListClick(Sender: TObject);
begin
  if not boOpened then exit;
  if ListBoxMapList.ItemIndex >=0 then
    ButtonDisableMoveMapAdd.Enabled:=True;
end;

procedure TfrmViewList.ListBoxDisableMoveMapClick(Sender: TObject);
begin
  if not boOpened then exit;
  if ListBoxDisableMoveMap.ItemIndex >=0 then
    ButtonDisableMoveMapDelete.Enabled:=True;
end;

procedure TfrmViewList.RefMonDropLimit;
var
  I:Integer;
  MonDrop:pTMonDrop;
begin
  g_MonDropLimitLIst.Lock;
  try
    StringGridMonDropLimit.RowCount:=g_MonDropLimitLIst.Count + 1;
    if StringGridMonDropLimit.RowCount > 1 then StringGridMonDropLimit.FixedRows:=1;
      
    for I := 0 to g_MonDropLimitLIst.Count - 1 do begin
      MonDrop:=pTMonDrop(g_MonDropLimitLIst.Objects[I]);
      StringGridMonDropLimit.Cells[0,I+1]:=MonDrop.sItemName;
      StringGridMonDropLimit.Cells[1,I+1]:=IntToStr(MonDrop.nDropCount);
      StringGridMonDropLimit.Cells[2,I+1]:=IntToStr(MonDrop.nCountLimit);
      StringGridMonDropLimit.Cells[3,I+1]:=IntToStr(MonDrop.nNoDropCount);
    end;
  finally
    g_MonDropLimitLIst.UnLock;
  end;
end;

procedure TfrmViewList.ButtonMonDropLimitRefClick(Sender: TObject);
begin
  RefMonDropLimit();
end;

procedure TfrmViewList.StringGridMonDropLimitClick(Sender: TObject);
var
  nItemIndex:Integer;
  MonDrop:pTMonDrop;
begin
  nItemIndex:=StringGridMonDropLimit.Row - 1;
  if nItemIndex < 0 then exit;

  g_MonDropLimitList.Lock;
  try
    if nItemIndex >= g_MonDropLimitList.Count then exit;
    MonDrop:=pTMonDrop(g_MonDropLimitList.Objects[nItemIndex]);
    EditItemName.Text:=MonDrop.sItemName;
    EditDropCount.Value:=MonDrop.nDropCount;
    EditCountLimit.Value:=MonDrop.nCountLimit;
    EditNoDropCount.Value:=MonDrop.nNoDropCount;
  finally
    g_MonDropLimitList.UnLock;
  end;
end;

procedure TfrmViewList.EditDropCountChange(Sender: TObject);
begin
  if EditDropCount.Text = '' then begin
    EditDropCount.Text:='0';
    exit;
  end;
    
end;

procedure TfrmViewList.EditCountLimitChange(Sender: TObject);
begin
  if EditCountLimit.Text = '' then begin
    EditCountLimit.Text:='0';
    exit;
  end;
end;

procedure TfrmViewList.EditNoDropCountChange(Sender: TObject);
begin
  if EditNoDropCount.Text = '' then begin
    EditNoDropCount.Text:='0';
    exit;
  end;
end;

procedure TfrmViewList.ButtonMonDropLimitSaveClick(Sender: TObject);
var
  sItemName:String;
  nNoDropCount:Integer;
  nDropCount:Integer;
  nDropLimit:Integer;
  nSelIndex:Integer;
  MonDrop:pTMonDrop;
begin
  sItemName:=Trim(EditItemName.Text);
  nDropCount:=EditDropCount.Value;
  nDropLimit:=EditCountLimit.Value;
  nNoDropCount:=EditNoDropCount.Value;
  
  nSelIndex:=StringGridMonDropLimit.Row -1;
  if nSelIndex < 0 then exit;
  g_MonDropLimitList.Lock;
  try
    if nSelIndex >= g_MonDropLimitList.Count then exit;
    MonDrop:=pTMonDrop(g_MonDropLimitList.Objects[nSelIndex]);
    MonDrop.sItemName:=sItemName;
    MonDrop.nDropCount:=nDropCount;
    MonDrop.nNoDropCount:=nNoDropCount;
    MonDrop.nCountLimit:=nDropLimit;
  finally
    g_MonDropLimitList.UnLock;
  end;
  SaveMonDropLimitList();
  RefMonDropLimit();
end;

procedure TfrmViewList.ButtonMonDropLimitAddClick(Sender: TObject);
var
  I: Integer;
  sItemName:String;
  nNoDropCount:Integer;
  nDropCount:Integer;
  nDropLimit:Integer;
  MonDrop:pTMonDrop;
begin
  sItemName:=Trim(EditItemName.Text);
  nDropCount:=EditDropCount.Value;
  nDropLimit:=EditCountLimit.Value;
  nNoDropCount:=EditNoDropCount.Value;

  g_MonDropLimitList.Lock;
  try
    for I := 0 to g_MonDropLimitList.Count - 1 do begin
      MonDrop:=pTMonDrop(g_MonDropLimitList.Objects[I]);
      if CompareText(MonDrop.sItemName,sItemName) = 0 then begin
        Application.MessageBox('输入的物品名已经在列表中！！！','提示信息',MB_OK + MB_ICONERROR);
        exit;
      end;
    end;
    New(MonDrop);
    MonDrop.sItemName:=sItemName;
    MonDrop.nDropCount:=nDropCount;
    MonDrop.nNoDropCount:=nNoDropCount;
    MonDrop.nCountLimit:=nDropLimit;
    g_MonDropLimitList.AddObject(sItemName,TObject(MonDrop));
  finally
    g_MonDropLimitList.UnLock;
  end;
  SaveMonDropLimitList();
  RefMonDropLimit();
end;


procedure TfrmViewList.ButtonMonDropLimitDelClick(Sender: TObject);
var
  nSelIndex:Integer;
  MonDrop:pTMonDrop;
begin

  nSelIndex:=StringGridMonDropLimit.Row -1;
  if nSelIndex < 0 then exit;
  g_MonDropLimitList.Lock;
  try
    if nSelIndex >= g_MonDropLimitList.Count then exit;
    MonDrop:=pTMonDrop(g_MonDropLimitList.Objects[nSelIndex]);
    Dispose(MonDrop);
    g_MonDropLimitList.Delete(nSelIndex);
  finally
    g_MonDropLimitList.UnLock;
  end;
  SaveMonDropLimitList();
  RefMonDropLimit();
end;

procedure TfrmViewList.ListBoxGameLogListClick(Sender: TObject);
begin
  if not boOpened then exit;
  if ListBoxGameLogList.ItemIndex >=0 then
    ButtonGameLogDel.Enabled:=True;
end;

procedure TfrmViewList.ListBoxitemList2Click(Sender: TObject);
begin
  if not boOpened then exit;
  if ListBoxitemList2.ItemIndex >=0 then
    ButtonGameLogAdd.Enabled:=True;
end;

procedure TfrmViewList.ButtonGameLogAddClick(Sender: TObject);
var
  I: Integer;
begin
  if ListBoxItemList2.ItemIndex >=0 then begin
    for I := 0 to ListBoxGameLogList.Items.Count - 1 do begin
      if ListBoxGameLogList.Items.Strings[I] = ListBoxItemList2.Items.Strings[ListBoxItemList2.ItemIndex] then begin
        Application.MessageBox('此物品已在列表中！！！','错误信息',MB_OK + MB_ICONERROR);
        exit;
      end;
    end;
    ListBoxGameLogList.Items.Add(ListBoxItemList2.Items.Strings[ListBoxItemList2.ItemIndex]);
    ModValue();
  end;
end;

procedure TfrmViewList.ButtonGameLogDelClick(Sender: TObject);
begin
  if ListBoxGameLogList.ItemIndex >=0 then begin
    ListBoxGameLogList.Items.Delete(ListBoxGameLogList.ItemIndex);
    ModValue();
  end;
  if ListBoxGameLogList.ItemIndex < 0 then
    ButtonGameLogDel.Enabled:=False;
end;

procedure TfrmViewList.ButtonGameLogAddAllClick(Sender: TObject);
var
  I: Integer;
begin
  ListBoxGameLogList.Items.Clear;
  for I := 0 to ListBoxItemList2.Items.Count - 1 do begin
    ListBoxGameLogList.Items.Add(ListBoxItemList2.Items.Strings[I]);
  end;
  ModValue();
end;

procedure TfrmViewList.ButtonGameLogDelAllClick(Sender: TObject);
begin
  ListBoxGameLogList.Items.Clear;
  ButtonGameLogDel.Enabled:=False;
  ModValue();
end;

procedure TfrmViewList.ButtonGameLogSaveClick(Sender: TObject);
var
  I: Integer;
begin

  g_GameLogItemNameList.Lock;
  try
    g_GameLogItemNameList.Clear;
    for I := 0 to ListBoxGameLogList.Items.Count - 1 do begin
      g_GameLogItemNameList.Add(ListBoxGameLogList.Items.Strings[I])
    end;
  finally
    g_GameLogItemNameList.UnLock;
  end;
  uModValue();  
{$IF SoftVersion <> VERDEMO}
  SaveGameLogItemNameList();
{$IFEND}
  if Application.MessageBox('此设置必须重新加载物品数据库才能生效，是否重新加载？','确认信息',MB_YESNO + MB_ICONQUESTION) = mrYes then begin
    FrmDB.LoadItemsDB();
  end;
end;

procedure TfrmViewList.ButtonDisableTakeOffAddClick(Sender: TObject);
var
  I: Integer;
begin
  if ListBoxItemList3.ItemIndex >=0 then begin
    for I := 0 to ListBoxDisableTakeOffList.Items.Count - 1 do begin
      if ListBoxDisableTakeOffList.Items.Strings[I] = ListBoxItemList3.Items.Strings[ListBoxItemList3.ItemIndex] then begin
        Application.MessageBox('此物品已在列表中！！！','错误信息',MB_OK + MB_ICONERROR);
        exit;
      end;
    end;
    ListBoxDisableTakeOffList.Items.AddObject(IntToStr(ListBoxItemList3.ItemIndex) + '  ' +  ListBoxItemList3.Items.Strings[ListBoxItemList3.ItemIndex],TObject(ListBoxItemList3.ItemIndex));
    ModValue();
  end;
end;

procedure TfrmViewList.ButtonDisableTakeOffDelClick(Sender: TObject);
begin
  if ListBoxDisableTakeOffList.ItemIndex >=0 then begin
    ListBoxDisableTakeOffList.Items.Delete(ListBoxDisableTakeOffList.ItemIndex);
    ModValue();
  end;
  if ListBoxDisableTakeOffList.ItemIndex < 0 then
    ButtonDisableTakeOffDel.Enabled:=False;
end;

procedure TfrmViewList.ListBoxDisableTakeOffListClick(Sender: TObject);
begin
  if not boOpened then exit;
  if ListBoxDisableTakeOffList.ItemIndex >=0 then
    ButtonDisableTakeOffDel.Enabled:=True;
end;

procedure TfrmViewList.ListBoxitemList3Click(Sender: TObject);
begin
  if not boOpened then exit;
  if ListBoxitemList3.ItemIndex >=0 then
    ButtonDisableTakeOffAdd.Enabled:=True;
end;

procedure TfrmViewList.ButtonDisableTakeOffAddAllClick(Sender: TObject);