Форум АНТИЧАТ - Что это?

В общем только что нашёл какойто исходник..подскажите что это и\или чем компилировать. :)
Код:
//............................................

//Список констант

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;
Ну и там мноого всего дальше)