ANTICHAT — форум по информационной безопасности, OSINT и технологиям

//............................................
//Список констант
const
  Name='Male'; //Вписать сюда имя чара
  //установить константу в зависимости от типа игры (** или ********)
  interlude=true; //Interlude - true, C4 - false
  //-------------------------
  max=200;     //количество слотов в инвентаре чара

//............................................
//Список переменных
var
  Item, scrl:integer;
  ScrollID, ScrollOID:integer;  //ScrollID скролла заточки
  ItemID,ItemOID:integer;      //ItemID затачиваемого предмета
  MaxEnchLvl:integer;         //уровень заточки который требуется достичь
  ItemBase:  array[1..4,1..max] of integer; //ItemOID, ItemID, Kol-vo, ItemLvl
  ready, add : boolean;
  timer : TTimer;
  ItemCount, CurEnchLvl: integer;
  SocialID : integer; // вспомогательная
  ItemsName, StringList : TStringList;  //названия предметов, имена продавцов
  FormMain : TForm; //Создаваемая форма
  Splitter1 : TSplitter;
  Splitter2 : TSplitter;
  Stats : TMemo;
  Msg : TMemo;
  Panel1 : TPanel;
  GroupBox2 : TGroupBox;
  Label2 : TLabel;
  Label4 : TLabel;
  Label12 : TLabel;
  Label13 : TLabel;
  CheckBoxItem : TCheckBox;
  ComboBoxItem : TComboBox;
  ButtonStartEnchant : TButton;
  ButtonStopEnchant : TButton;
  CheckBoxScroll : TCheckBox;
  ComboBoxScroll : TComboBox;
  EditItemVal : TEdit;
  EditScrollVal : TEdit;
  EditScrollOID : TEdit;
  EditItemOID : TEdit;
  Label1 : TLabel;
  Label3 : TLabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
//............................................
//*************************************
//Обработчики событий для элементов управления на форме
//......................................
//CheckBoxItem
procedure CheckBoxItem_Click(Sender: TCheckBox);
//Event : OnClick
begin
  if CheckBoxItem.Checked
  then begin
    ItemOID:=ItemBase[1,ComboBoxItem.ItemIndex+1];
    ItemID:=ItemBase[2,ComboBoxItem.ItemIndex+1];
    //проверка
//    EditItemOID.Text:=Inttostr(ItemID);
//    EditItemVal.text:=inttostr(ItemOID);

    ComboBoxItem.Enabled:=false; //выключаем
  end else begin
    ItemID:=0;               //отмена
    ItemOID:=0;
    ComboBoxItem.Enabled:=true;  //включаем
    //Пакет RequestItemList
    buf:=hstr('0F');
    SendToServerEx(Name);
  end;
end;