Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Что это? (https://forum.antichat.xyz/showthread.php?t=125821)

Not Found... 18.06.2009 04:37

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

//............................................
//Список констант
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;

Ну и там мноого всего дальше)

Ctacok 18.06.2009 04:38

Delphi 7

DVD_RW 18.06.2009 04:40

ла2 на пхп :D

Not Found... 18.06.2009 04:40

Цитата:

Сообщение от Ctacok
Delphi 7

Спс..:)

Ctacok 18.06.2009 04:41

Цитата:

Сообщение от DVD_RW
ла2 на пхп :D

Здесь далеко да пхп)

DVD_RW 18.06.2009 05:22

Цитата:

Сообщение от Ctacok
Здесь далеко да пхп)

а ну ещё + перл :cool: :D :D

DVD_RW 18.06.2009 05:22

сорри забыл добавить! - тут хтмл с ксс новый :)

Ctacok 18.06.2009 05:49

ПИтон :))

m0Hze 18.06.2009 05:52

кусок бота на дельфях.
пистец,второй час валяюсь,немогу уснусть :( окуеть

Ctacok 18.06.2009 05:55

Цитата:

Сообщение от m0Hze
кусок бота на дельфях.
пистец,второй час валяюсь,немогу уснусть :( окуеть

У меня время без пяти 10 утра, я ваще не лажился спать.


Время: 03:53