1. Гость, мы просим Вас ознакомиться с Правилами Форума и Отказом от ответственности!

Последнее сообщение от roxio71

  1. roxio71
    Сообщение

    Мини база данных elements.data

    http://rghost.ru/51609015 Исправил. Если есть у кого новые значения или которых нету в программе, можете скинуть в ЛС я их добавлю.
    Сообщение от: roxio71, 13 янв 2014 в разделе: PW Разработки
  2. roxio71
    Сообщение

    Мини база данных elements.data

    Может кому еще нужно) http://rghost.ru/51550828 версия 1.5
    Сообщение от: roxio71, 10 янв 2014 в разделе: PW Разработки
  3. roxio71
    Сообщение

    Редактор стартовых персонажей

    Вот ещё так на всякий 199 - 1 чи 299 - 2 чи 399 - 3 чи
    Сообщение от: roxio71, 12 фев 2013 в разделе: PW Разработки
  4. roxio71
    Сообщение

    sNPCedit

    Ставлю на землю. Все правильно стоит. Вот я сейчас даже попробовал взял НПС`а который уже стоит в NPCgen поменял ему id на свой все закинул перезагрузил и он тупо пропал назад id вернул и старый НПС появился в elements.data проверял по id под которым я НПС создал он у меня id во всем файле. Вот думаю может elements.data сама кривая хотя не должно такого быть сервер же включается. Просто когда беру любой существующий id из elements.data и добавляю в npcgen то все нормально а как добавляю свой то все не появляется ни чего.
    Сообщение от: roxio71, 28 янв 2013 в разделе: PW Решённые вопросы
  5. roxio71
    Тема

    sNPCedit

    Всем привет у меня такая проблема открываю npcgen.data от 69 версии добавляю NPC все сохраняю добавляю на сервер запускаю а NPC не появляется в elements.data все прописано правильно. В чем может быть проблема? На RageZone взял координаты для 69 версии добавил в sNPCedit попробовал заново и все равно не получается.
    Автор темы: roxio71, 28 янв 2013, ответов - 4, в разделе: PW Решённые вопросы
  6. roxio71
    Сообщение

    Мини база данных elements.data

    Изменил размер окна и поправил открытие трактатов. Скачать
    Сообщение от: roxio71, 29 ноя 2012 в разделе: PW Разработки
  7. roxio71
    Сообщение

    Мини база данных elements.data

    UPD Добавлены статы Исправлен цвет чекбоксов и радиобатнов По просьбе viperx5 сделан разделенный выбор ID классов Скриншоты [img] [img] [img] Скачать
    Сообщение от: roxio71, 29 ноя 2012 в разделе: PW Разработки
  8. roxio71
    Сообщение

    Мини база данных elements.data

    UPD Добавлены несколько доп.бонусов Скачать
    Сообщение от: roxio71, 27 ноя 2012 в разделе: PW Разработки
  9. roxio71
    Тема

    Мини база данных elements.data

    Всем привет, программированием занимаюсь не так давно решил написать программку бонусы в них не обновлены сейчас работаю над выявлением типа каждого бонуса. Особенно понадобиться новичкам UPD 1.0 Добавлен выбор бонусов для трактатов. Исправлен вывод бонусов на вкладке "Оружие". Скриншоты [img] [img] [img] [img] [img] rghost narod
    Автор темы: roxio71, 27 ноя 2012, ответов - 9, в разделе: PW Разработки
  10. roxio71
    Сообщение

    Открытие и сохранение листа

    Ну типы я знаю их всего 8, а вот остальное я подучу получше то знаю очень плохо и тогда отпишу.
    Сообщение от: roxio71, 26 окт 2012 в разделе: Delphi
  11. roxio71
    Сообщение

    Открытие и сохранение листа

    Дельфи только начел учить недавно, пока что очень плохо знаю это так что как подучу получше тогда напишу. Я так понял без основных знаний цикл и т.д. редактор не написать так что пошел подучивать.
    Сообщение от: roxio71, 26 окт 2012 в разделе: Delphi
  12. roxio71
    Тема

    Открытие и сохранение листа

    Имеется данный код открытия первого листа elements.data написал с помощью Delphi 2010 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TList1 = record id:integer; name: array [0..63] of byte; int1:integer; int2:integer; int3:integer; int4:integer; end; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; ListBox1: TListBox; Button1: TButton; OpenDialog1: TOpenDialog; procedure ListBox1Click(Sender: TObject); procedure Button1Click(Sender: TObject); private ListPos: array [1..4] of Integer; // сюда сохраняем смещения листa ListLen: array [1..4] of Integer; // сюда сохраняем количество элементов ffile: tStream; procedure OpenList1(lb: TListBox); // это у нас собс-но открытие первого листа procedure FillListPos; // это будет заполнение листа public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} var List1: array of TList1; procedure TForm1.OpenList1(lb: TListBox); var num: integer; w: widestring; begin num := lb.ItemIndex; Edit1.Text:=IntToStr(List1[num].id); SetLength(w, 32); Move(List1[num].name[0], w[1], 64); Edit2.Text:=w; Edit3.Text:=IntToStr(List1[num].int1); Edit4.Text:=IntToStr(List1[num].int2); Edit5.Text:=IntToStr(List1[num].int3); Edit6.Text:=IntToStr(List1[num].int4); end; procedure TForm1.Button1Click(Sender: TObject); var i: Integer; ws: WideString; begin if OpenDialog1.Execute then begin if not FileExists(opendialog1.FileName) then exit; if Assigned(fFile) then begin FreeAndNil(fFile); end; // Создаем поток fFile := TFileStream.Create(OpenDialog1.FileName, (fmOpenReadWrite{or fmShareExclusive})); // Заполняем массив с позициями FillListPos; // Читаем лист 1 SetLength(ws, 32); fFile.Position := ListPos[1]+4; SetLength(List1, ListLen[1]); fFile.Read(List1[0], ListLen[1]*SizeOf(TList1)); for i := 0 to ListLen[1] - 1 do begin Move(List1[i].name, Pointer(ws)^, 64); ListBox1.Items.Add(IntToStr(List1[i].id) + ' - ' + ws); end; end; end; procedure TForm1.FillListPos; var fListLen: Integer; begin (* == подсчет смещений каждого последующего листа == 8 это смещение первого листа. 8 + 4 + размер первого листа = смещение второго листа. смещение второго листа + 4 + размер второго листа = смещение третьего, и т.д. *) ListPos[1] := 8; if Assigned(fFile) then begin fFile.Position := ListPos[1]; // устанавливавем маркер в позицию начала Листа1 fFile.Read(fListLen, SizeOf(fListLen)); // Считываем количество элементов ListLen[1] := fListLen; ListPos[2] := ListPos[1] + ListLen[1]*SizeOf(TList1) + 4; // получаем смещение второго листа end; end; // -------------------------------------------------------- // procedure TForm1.ListBox1Click(Sender: TObject); begin openlist1(listbox1); end; end. Суть вопроса хотел узнать как реализовать сохранения новых параметров и сохранения самой страницы обратно в elements.data И ещё один вопрос как можно реализовать открытия второй страницы elements.data (какие значения нужно изменить или добавить) Заранее спасибо.
    Автор темы: roxio71, 26 окт 2012, ответов - 6, в разделе: Delphi