PwRuf3dn.ru

Меню сайта
Категории раздела
Гайды [4]
Полезное для PW [4]
Создание ботов [1]
Разное [0]
Баги/Хаки [38]
Новости игрового мира [0]
Мини-чат
Наш опрос
Вещи с какими эффектами Вы создали с помощью PwRuf - Crafter?
Результаты | Архив опросов
Всего ответов: 2974
Статистика
  • Форум
  • Новости
  • Статистика
  • Категории
  • Из них сайте
    Пользователи онлайн
  • Сегодня нас посетили
    Посетившие сегодня
    Сегодня нас посетило
  • Статистика материалов
    Статистика материалов Comments: 1407
    Forum: 10/23
    Photo: 41
    Blog: 2
    Downloads: 107
    Publisher: 47
    Directory: 34
    Games: 297
Реклама


Главная » Статьи » Полезное для PW
чытаем gshop.dat и получаем id в шопе и записываем в виде пакета
ItemGshop=record
  shop_id:integer;
  cat_index:integer;
  sub_cat_index:integer;
  surface_path:array[0..63] of wideChar;
  item_id:integer;
  item_amount:integer;
  sale_options:array [0..3] of record
  price:integer;
  expire_date:integer;
  duration:integer;
  start_date:integer;
  control_type:integer;
  day:integer;
  status:integer;
  flags:integer;
  end;
  description:array[0..63] of wideChar;
  name:array[0..63] of wideChar;
  gift_id:integer;
  gift_amount:integer;
  gift_duration:integer;
  log_price:integer;
  end;

var
MyArray:  array of ItemGshop;

/чытаем gshop.dat и получаем id в шопе и записываем в виде пакета
procedure readelements;
var
elements: File of byte;
buf:integer;
i,j,intzn:integer;
Path:String;
begin
Path:=Application.ExeName;
Path:=ExtractFileDir(Path);
if Path[Length(Path)]<>'\' then Path:=Path+'\';
AssignFile(elements,'gshop.data');
Reset(elements);

blockRead(elements,buf,sizeof(buf));
blockRead(elements,intzn,sizeof(intzn));
SetLength(MyArray,intzn);
for i:=0 to intzn-1 do
begin
  blockRead(elements,MyArray[i].shop_id,sizeof(MyArray[i].shop_id));
   blockREad(elements,MyArray[i].cat_index,sizeof(MyArray[i].cat_index));
   blockREad(elements,MyArray[i].sub_cat_index,sizeof(MyArray[i].sub_cat_index));
   blockREad(elements,MyArray[i].surface_path,128);
   blockREad(elements,MyArray[i].item_id,sizeof(MyArray[i].item_id));
   blockREad(elements,MyArray[i].item_amount,sizeof(MyArray[i].item_amount));
   for j:=0 to 3 do
   begin
   blockRead(elements,MyArray[i].sale_options[j].price,sizeof(MyArray[i].sale_options[j].price));
   blockRead(elements,MyArray[i].sale_options[j].expire_date,sizeof(MyArray[i].sale_options[j].expire_date));
   blockRead(elements,MyArray[i].sale_options[j].duration,sizeof(MyArray[i].sale_options[j].duration));
   blockRead(elements,MyArray[i].sale_options[j].start_date,sizeof(MyArray[i].sale_options[j].start_date));
   blockRead(elements,MyArray[i].sale_options[j].control_type,sizeof(MyArray[i].sale_options[j].control_type));
   blockRead(elements,MyArray[i].sale_options[j].day,sizeof(MyArray[i].sale_options[j].day));
   blockRead(elements,MyArray[i].sale_options[j].status,sizeof(MyArray[i].sale_options[j].status));
   blockRead(elements,MyArray[i].sale_options[j].flags,sizeof(MyArray[i].sale_options[j].flags));
   end;
   blockREad(elements,MyArray[i].description,1024);
   blockREad(elements,MyArray[i].name,64);
   blockREad(elements,MyArray[i].gift_id,sizeof(MyArray[i].gift_id));
   blockREad(elements,MyArray[i].gift_amount,sizeof(MyArray[i].gift_amount));
   blockREad(elements,MyArray[i].gift_duration,sizeof(MyArray[i].gift_duration));
   blockREad(elements,MyArray[i].log_price,sizeof(MyArray[i].log_price));
end;

CloseFile(elements);
end;
Категория: Полезное для PW | Добавил: Жимбо (02.02.2013)
Просмотров: 1110 | Теги: бот, Чтение, ботоводы, ботописание, gshop.data, своими, программирование, руками | Рейтинг: 0.0/0
Похожие Полезное для PW:
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Ваш профиль на сайте
Выйти из профиля