Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 20.03.2009, 07:54   #1
Новичок
 
Регистрация: 06.02.2009
Сообщений: 13
Сказал Спасибо: 3
Имеет 15 спасибок в 6 сообщенях
AD! пока неопределено
По умолчанию Скрипт авто БД, СВС

Отрывая от сердца)
Скрипт для бд и свс! для интерлюд, тестился только на шоке
Моно в тему жесткого скриптинга перенести если подходит по нормативам

Работает под хБ сервер (мод PanAm), исправлена ошибка следования за лидером.
Не выводит пассивные скилы.

delphi Код:
{ AutoBD_SVS by Ad Принимает пати танцует или поет, и следует по необходимости! Для того чтобы нормально следовал за целью, нужно основным чаром что нибудь в чат написать, чтобы запомнился айди. name- ник БД или СВСа name2- ник того перса который будет кидать пати и за кем будет следовать БД или СВС. Запускать скрипт ТОЛЬКО ПОСЛЕ того как БД или СВС уже вошел в игру. Благодарность PanAm за мод) } Const   name2='МойНик';   name='никБДилиСВС';   //ID пакетов Kamael, HB, Gracia   //От клиента   ACTION_ID = #$1F;   REQUESTITEMLIST_ID = #$14;   REQUESTANSWERJOINPARTY_ID = #$43;   REQUESTWITHDRAWALPARTY_ID = #$44;   REQUESTMAGICSKILLUSE_ID = #$39;   REQUESTSOCIALACTION_ID = #$34;   REQUESTSSKILLLIST_ID = #$50;   //от сервера   USERINFO_ID = #$32;   ASKJOINPARTY_ID = #$39;    SAY2_ID = #$4A;   SKILLLIST_ID = #$5F;   MAGICSKILLLAUNCHED_ID = #$54;   //ID пакетов Interlude   //От клиента {  ACTION_ID = #$04;   REQUESTITEMLIST_ID = #$0F;   REQUESTANSWERJOINPARTY_ID = #$2A;   REQUESTWITHDRAWALPARTY_ID = #$2B;   REQUESTMAGICSKILLUSE_ID = #$2F;   REQUESTSOCIALACTION_ID = #$1B;   REQUESTSSKILLLIST_ID = #$3F;   //от сервера   USERINFO_ID = #$04;   ASKJOINPARTY_ID = #$39;    SAY2_ID = #$4A;   SKILLLIST_ID = #$58;   MAGICSKILLLAUNCHED_ID = #$76;   }     Var   Msg : TMemo;   FormMain : TForm; //Создаваемая форма   useskill: TTimer;   skills:string;   skillid,skillidold:integer;   party_have,iswork,skillhave:boolean;   skillbase: array[1..200,0..3] of integer;   SkillsName : TStringList;   listbox1,listbox2: TListBox;   GB1: TGroupBox;   Button1,Button2,Button3,Button4: TButton;   Lb1,Lb2: Tlabel;   cb3:tcheckbox;   myOID,myX,myY,myZ: integer;          targetOID:integer; function Create_FormMain : TForm; Var   Yes : boolean; begin   Yes := FALSE;   Result := TForm.Create(nil);   Result.Caption     := 'AutoBD v.0.0.1';   Result.Left        := 397;   Result.Top         := 233;   Result.Width       := 450;   Result.Height      := 650;   Result.FormStyle   := fsNormal;   Result.Position    := poDesigned;   Result.BorderStyle := bsSizeable;   Result.BorderWidth := 0;   Result.WindowState := wsNormal;   Result.Color       := clBtnFace;   Result.Font.Name   := 'Tahoma';   Result.Font.Size   := 8;   Result.Font.Color  := clWindowText;   Result.Font.CharSet:= 1;   Result.OnClose := @FormClose;   Msg := TMemo.Create(Result);   Msg.Parent := Result;   Msg.Left    := 0;   Msg.Top     := 400;   Msg.Width   := 200;   Msg.Height  := 200;   Msg.Visible := TRUE;   Msg.Tag     := 0;   Msg.Enabled  := TRUE;   Msg.Hint     := '';   Msg.ShowHint := FALSE;   Msg.Font.Name  := 'Tahoma';   Msg.Font.Size  := 8;   Msg.Font.Color := clWindowText;   Msg.Color         := clWindow;   Msg.TabOrder      := 2;   Msg.TabStop       := TRUE;   Msg.Align         := alBottom;   Msg.WordWrap      := TRUE;   Msg.Alignment     := taLeftJustify;   Msg.WantTabs      := FALSE;   Msg.WantReturns   := TRUE;   Msg.HideSelection := TRUE;   Msg.MaxLength     := 0;   Msg.OEMConvert    := FALSE;   Msg.ReadOnly      := FALSE;   Msg.ScrollBars    := ssNone;   GB1 := TGroupBox.Create(Result);   GB1.Parent := result;   GB1.Align         := alRight;   GB1.Left    := 1;   GB1.Top     := 2;   GB1.Width   := 100;   GB1.Height  := 95;   GB1.Visible := TRUE;   GB1.Tag     := 0;   GB1.Enabled  := TRUE;   GB1.Hint     := '';   GB1.ShowHint := FALSE;   GB1.Caption    := 'НЕПРИНИМАЕТ ПАТИ';   GB1.Align      := alTOP;   GB1.Color      := clBtnFace;   GB1.Font.Name  := 'Tahoma';   GB1.Font.Size  := 8;   GB1.Font.Color := clWindowText;   GB1.Font.CharSet := 1;   GB1.TabOrder     := 3;   GB1.TabStop      := FALSE;   listbox1 := Tlistbox.Create(Result);   listbox1.Parent := Result;   listbox1.Left    := 0;   listbox1.Top     := 100;   listbox1.Width   := 180;   listbox1.Height  := 200;   listbox1.Visible := TRUE;   listbox1.Tag     := 0;   listbox1.Enabled  := TRUE;   listbox1.Hint     := '';   listbox1.ShowHint := FALSE;   listbox1.Font.Name  := 'Tahoma';   listbox1.Font.Size  := 8;   listbox1.Font.Color := clWindowText;   listbox1.Color         := clWindow;   listbox1.TabOrder      := 2;   listbox1.TabStop       := TRUE;   listbox1.Align         := alLeft;   listbox1.OnDblClick :=@button3click;   listbox2 := Tlistbox.Create(Result);   listbox2.Parent := Result;   listbox2.Left    := 0;   listbox2.Top     := 100;   listbox2.Width   := 180;   listbox2.Height  := 200;   listbox2.Visible := TRUE;   listbox2.Tag     := 0;   listbox2.Enabled  := TRUE;   listbox2.Hint     := '';   listbox2.ShowHint := FALSE;   listbox2.Font.Name  := 'Tahoma';   listbox2.Font.Size  := 8;   listbox2.Font.Color := clWindowText;   listbox2.Color         := clWindow;   listbox2.TabOrder      := 2;   listbox2.TabStop       := TRUE;   listbox2.Align         := alRight;   listbox2.OnDblClick :=@button4click;   Button1 := TButton.Create(Result);   Button1.Parent := gb1;   Button1.Left    := 10;   Button1.Top     := 30;   Button1.Width   := 75;   Button1.Height  := 25;   Button1.Visible := TRUE;   Button1.Tag     := 0;   Button1.Enabled  := true;   Button1.Hint     := '';   Button1.ShowHint := FALSE;   Button1.Caption    := 'Вкл';   Button1.Font.Name  := 'Tahoma';   Button1.Font.Size  := 8;   Button1.Font.Color := clWindowText;   Button1.Font.CharSet := 1;   Button1.TabOrder     := 1;   Button1.TabStop      := TRUE;   Button1.Cancel       := FALSE;   Button1.ModalResult  := 0;   Button1.OnClick     := @Button1click;   Button2 := TButton.Create(Result);   Button2.Parent := gb1;   Button2.Left    := 100;   Button2.Top     := 30;   Button2.Width   := 75;   Button2.Height  := 25;   Button2.Visible := TRUE;   Button2.Tag     := 0;   Button2.Enabled  := true;   Button2.Hint     := '';   Button2.ShowHint := FALSE;   Button2.Caption    := 'Выкл';   Button2.Font.Name  := 'Tahoma';   Button2.Font.Size  := 8;   Button2.Font.Color := clWindowText;   Button2.Font.CharSet := 1;   Button2.TabOrder     := 1;   Button2.TabStop      := TRUE;   Button2.Cancel       := FALSE;   Button2.ModalResult  := 0;   Button2.OnClick     := @Button2click;   Button3 := TButton.Create(Result);   Button3.Parent := result;   Button3.Left    := 200;   Button3.Top     := 140;   Button3.Width   := 40;   Button3.Height  := 25;   Button3.Visible := TRUE;   Button3.Tag     := 0;   Button3.Enabled  := True;   Button3.Hint     := '';   Button3.ShowHint := FALSE;   Button3.Caption    := '>>>>';   Button3.Font.Name  := 'Tahoma';   Button3.Font.Size  := 8;   Button3.Font.Color := clWindowText;   Button3.Font.CharSet := 1;   Button3.TabOrder     := 1;   Button3.TabStop      := TRUE;   Button3.Cancel       := FALSE;   Button3.ModalResult  := 0;   Button3.OnClick     := @button3click;   Button4 := TButton.Create(Result);   Button4.Parent := result;   Button4.Left    := 200;   Button4.Top     := 220;   Button4.Width   := 40;   Button4.Height  := 25;   Button4.Visible := TRUE;   Button4.Tag     := 0;   Button4.Enabled  := True;   Button4.Hint     := '';   Button4.ShowHint := FALSE;   Button4.Caption    := '<<<<';   Button4.Font.Name  := 'Tahoma';   Button4.Font.Size  := 8;   Button4.Font.Color := clWindowText;   Button4.Font.CharSet := 1;   Button4.TabOrder     := 1;   Button4.TabStop      := TRUE;   Button4.Cancel       := FALSE;   Button4.ModalResult  := 0;   Button4.OnClick     := @button4click;   Lb1:= Tlabel.Create(result);   Lb1.Parent := GB1;   Lb1.Left    := 140;   Lb1.Top     := 30+200;   Lb1.Align         := alLeft;   Lb1.Layout     := tlBottom;   Lb1.Visible := TRUE;   Lb1.Tag     := 0;   Lb1.Enabled  := TRUE;   Lb1.Hint     := '';   Lb1.ShowHint := FALSE;   Lb1.Caption    := 'Все Скилы';   Lb1.Font.Name  := 'Tahoma';   Lb1.Font.Size  := 10;   Lb1.Font.Color := clWindowText;   Lb1.Font.CharSet := 1;   Lb2:= Tlabel.Create(result);   Lb2.Parent := GB1;   Lb2.Left    := 140;   Lb2.Top     := 30+200;   Lb2.Align         := alRight;   Lb2.Layout     := tlBottom;   Lb2.Visible := TRUE;   Lb2.Tag     := 0;   Lb2.Enabled  := TRUE;   Lb2.Hint     := '';   Lb2.ShowHint := FALSE;   Lb2.Caption    := 'Те которые использовать';   Lb2.Font.Name  := 'Tahoma';   Lb2.Font.Size  := 10;   Lb2.Font.Color := clWindowText;   Lb2.Font.CharSet := 1;   cb3:= TCheckbox.Create(result);   cb3.Parent := GB1;   cb3.Left    := 220;   cb3.Top     := 60;   cb3.Width   := 220;   cb3.Checked := TRUE;   cb3.Visible := TRUE;   cb3.Tag     := 0;   cb3.Enabled  := TRUE;   cb3.Hint     := '';   cb3.ShowHint := FALSE;   cb3.Caption    := 'Следовать послы выхода из пати';   cb3.Font.Name  := 'Tahoma';   cb3.Font.Size  := 10;   cb3.Font.Color := clWindowText;   cb3.Font.CharSet := 1;   Yes := TRUE;   Result.Show;   msg.Lines.Add(timetostr(now)+': '+'Autodance, by Ad');   msg.Lines.Add(timetostr(now)+': '+'Работаем с чаром: '+Name); end; procedure button1click(Sender: TButton); begin   iswork:=true;   GB1.Caption    := 'ПРИНИМАЕТ ПАТИ'; end; procedure button2click(Sender: TButton); begin   iswork:=false;   GB1.Caption    := 'НЕПРИНИМАЕТ ПАТИ'; end; procedure perreshet; var i:integer; str:string; begin  str:='';  for i:=1 to ListBox2.items.Count do      begin      str:=str+Copy(ListBox2.Items.Strings[i-1],1+pos(':',ListBox2.Items.Strings[i-1]),pos(' ',ListBox2.Items.Strings[i-1])-4)+':';      end;  skills:=str; end; procedure button3click(Sender: TButton); var m:integer; begin if ListBox1.Items.Count>0 then    begin    m:=ListBox1.ItemIndex;    if (ListBox1.Items.Count=1) then m:=0    else    if m=ListBox1.Items.Count-1 then dec(m);    ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);    ListBox1.Items.Delete(ListBox1.ItemIndex);    ListBox1.ItemIndex:=m;    perreshet;    end; end; procedure Button4Click(Sender: TObject); var m:integer; begin if ListBox2.Items.Count>0 then    begin    m:=ListBox2.ItemIndex;    if (ListBox2.Items.Count=1) then m:=0    else    if m=ListBox2.Items.Count-1 then dec(m);    ListBox1.Items.Add(ListBox2.Items.Strings[ListBox2.ItemIndex]);    ListBox2.Items.Delete(ListBox2.ItemIndex);    ListBox2.ItemIndex:=m;    perreshet; end; end; procedure FormClose(Sender: TObject; var Action: TCloseAction); begin   Action:=caNone; end; procedure Free_FormMain; begin   TRY     if FormMain<>NIL then begin        FormMain.Free;        FormMain:=NIL;     end;   FINALLY   END; end; procedure SendMesg(msg:string)//отправка сообщений клиенту begin  buf:=SAY2_ID;   WriteD(0);   WriteD(2);   WriteS('->БОГ');   WriteS(msg);   SendToClientEx(Name); end; procedure Init; //Вызывается при включении скрипта begin  skillsName:=TStringList.Create; try   skillsName.LoadFromFile('.\settings\SkillsID.ini');   except     msg.Lines.Add('itemsid.ini не найден!');     exit;   end; skillid:=0; iswork:=false; useskill:=TTimer.Create(nil); useskill.OnTimer:=@timerskill; useskill.interval:=200; //время задержки useskill.enabled:=true; skillhave:=false; party_have:=false; FormMain:=Create_FormMain; buf:=REQUESTSSKILLLIST_ID; SendToServerEx(name); buf:=REQUESTITEMLIST_ID; SendToServerEx(name); end; procedure timerskill; begin if skillid<>0 then  begin    msg.lines.add('Юзаю скилл');    MagicSkillUse(skillid);    skillidold:=skillID;    skillID:=0;  end; end; procedure Free; //Вызывается при выключении скрипта begin  useskill.free;  Free_FormMain; end; procedure UserInfo; //обновление данных о себе var   i:word; begin   MyOID:=ReadD(18);   MyX:=ReadD(2);   MyY:=ReadD(6);   MyZ:=ReadD(10); end; procedure MagicSkillUse(MagicID:integer); begin   buf:=REQUESTMAGICSKILLUSE_ID;   WriteD(MagicID);   WriteD(00);   WriteC(00);   SendToServerEx(Name); end; procedure createskillbase; var  i, j,n: integer; begin   for i:=1 to 200 do begin     skillbase[i,0]:=0;     skillbase[i,1]:=0;     skillbase[i,2]:=0;   end;   n:=0;   J:=6;   I:=1;   listbox1.items.Clear;   while I<200 do   begin     skillbase[i,0]:=ReadD(j);     skillbase[i,1]:=ReadD(j);     skillbase[i,2]:=ReadD(j);   if skillbase[i,2]=0 then break;     j:=j+1;     inc(n);     if skillbase[i,0]=0 then     listbox1.items.Add('ID:'+inttostr(skillbase[i,2])+'   '+SkillsName.Values[IntToStr(skillbase[i,2])]+'  LVL:'+inttostr(skillbase[i,1]));     inc(i);   end;   if N>0 then skillhave:=true; end; procedure Target(Attacker: Integer); begin   buf:=ACTION_ID;   WriteD(Attacker);   WriteD(MyX);   WriteD(MyY);   WriteD(MyZ);   WriteC(00);   SendToServerEx(Name); end; procedure TargetAttacker(Attacker: Integer); begin   if Attacker<>0 then begin     msg.Lines.Add('Attacker='+IntToStr(Attacker)+' Player='+IntToStr(MyOID));     Target(Attacker);     delay(800);     Target(Attacker);     delay(800);     Target(Attacker);   end; end;         procedure buffok; begin   if ReadD(6)=skillIDold then begin     msg.lines.add('Прописываем следующий скилл');     if Length(skills)>0 then begin       skillID:=strtoint(Copy(Skills,1,pos(':',Skills)-1));       delete(Skills,1,pos(':',Skills));     end else       if  party_have=true then begin         if cb3.Checked=true then            begin            msg.lines.add('Cледуем за '+name2);            TargetAttacker(targetOID);            end;         msg.lines.add('Разрываем пати');         delay(200);         buf:=REQUESTWITHDRAWALPARTY_ID;         SendToServerEx(name);         party_have:=false;       end;   end; end; var   temp : String; begin   if pck='' then exit;   if (LowerCase(ConnectName)=LowerCase(Name)) and FromClient then     case pck[1] of     REQUESTSOCIALACTION_ID:         case ReadD(2) of           //социальное действие Yes для старта           6: begin              iswork:=true;              GB1.Caption:= 'ПРИНИМАЕТ ПАТИ';              end;           //социальное действие No для остановки            5: begin               iswork:=false;               GB1.Caption:= 'НЕПРИНИМАЕТ ПАТИ';               end;         end;     end; if (ConnectName=Name) and FromServer then begin          case pck[1] of          ASKJOINPARTY_ID: if iswork then               begin                 temp:=ReadS(2);                 if LowerCase(temp)=LowerCase(name2) then                   begin                   perreshet;                   Delay(100);                   buf:=REQUESTANSWERJOINPARTY_ID+HStr('01 00 00 00');                   SendToServerEx(name);                   msg.Lines.Add('Принимаю пати');                   party_have:=true;                   Delay(200);                   if Length(skills)>0 then                     begin                     msg.Lines.Add('Прописываю скилл');                     skillID:=strtoint(Copy(Skills,1,pos(':',Skills)-1));                     delete(Skills,1,pos(':',Skills));                     end;                   pck:='';                   end else msg.Lines.Add('Проигнорирован запрос пати от: '+temp);               end;          MAGICSKILLLAUNCHED_ID:  begin                                  if (MyOID=ReadD(2)) then buffok;                                  end;          USERINFO_ID:  begin //пакет с инфой о моём чаре                        UserInfo;                        end;          SAY2_ID:  begin //пакет с инфой о том за кем бежать                    if LowerCase(ReadS(10))=LowerCase(name2) then                      begin                      TargetOID:=ReadD(2);                      msg.lines.add('Нашли цель следовния: '+inttostr(TARGETOID));                      end;                   end;          SKILLLIST_ID:  begin                         if skillhave=false then createskillbase;                         end;             end; end; end.

Последний раз редактировалось AD!, 16.04.2009 в 20:06. Причина: Обновлен под ХБ
AD! вне форума   Ответить с цитированием
За это сообщение AD! нажился 10 спасибками от:
Старый 20.03.2009, 07:58   #2
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

хз свой я видимо не смогу оторвать от сердца у меня он на автопилоте бегает за любым чаром который прописан в скрипте, но принимает пати от любого другого кто прописан там. а в целом разницы думаю нет
Grinch вне форума   Ответить с цитированием
Старый 21.03.2009, 21:10   #3
Местный
 
Регистрация: 18.08.2008
Сообщений: 51
Сказал Спасибо: 4
Имеет 11 спасибок в 10 сообщенях
Thinker пока неопределено
По умолчанию

Цитата:
Сообщение от Grinch Посмотреть сообщение
хз свой я видимо не смогу оторвать от сердца
жмот
Thinker вне форума   Ответить с цитированием
Старый 11.04.2009, 07:32   #4
Пользователь
 
Регистрация: 11.04.2009
Адрес: lameriy
Сообщений: 34
Сказал Спасибо: 9
Имеет 1 спасибку в 1 сообщении
lamer пока неопределено
По умолчанию

Чтото он у меня не захотел работать, но видимо это изза ХБ. Прошу отписаться по этому поводу..
lamer вне форума   Ответить с цитированием
Старый 11.04.2009, 11:07   #5
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

lamer, те тут тех. подержка что ли? правь под ХБ и все
Grinch вне форума   Ответить с цитированием
Старый 11.04.2009, 11:54   #6
Пользователь
 
Регистрация: 11.04.2009
Адрес: lameriy
Сообщений: 34
Сказал Спасибо: 9
Имеет 1 спасибку в 1 сообщении
lamer пока неопределено
По умолчанию

Цитата:
Сообщение от Grinch Посмотреть сообщение
lamer, те тут тех. подержка что ли? правь под ХБ и все
еслиб умел, ужеб исправил...
lamer вне форума   Ответить с цитированием
Старый 14.04.2009, 18:00   #7
Пользователь
 
Регистрация: 11.04.2009
Адрес: lameriy
Сообщений: 34
Сказал Спасибо: 9
Имеет 1 спасибку в 1 сообщении
lamer пока неопределено
По умолчанию

блин народ, ну подскажите что и как изменить, если смогу поправить выложу исправленный.
lamer вне форума   Ответить с цитированием
Старый 15.04.2009, 12:40   #8
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от lamer Посмотреть сообщение
блин народ, ну подскажите что и как изменить, если смогу поправить выложу исправленный.
Берешь packetsТ0.ini от интерлюдии и packetsТ1.ini грации, ищешь соответствие между ними. Меняешь в скрипте ID пакетов интерлюдии на ID пакетов грации. Дополнительно, может быть менялся формат пакета, тоже надо будет поправить.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился спасибкой от:
Старый 15.04.2009, 15:06   #9
Пользователь
 
Регистрация: 11.04.2009
Адрес: lameriy
Сообщений: 34
Сказал Спасибо: 9
Имеет 1 спасибку в 1 сообщении
lamer пока неопределено
По умолчанию

Спасибо что не игнорируете, терь извиваем дальше мой нубо мозг.
Берешь packetsТ0.ini от интерлюдии и packetsТ1.ini грации. Сначало подумал, что речь идёт об этом
procedure Init; //Вызывается при включении скрипта
begin

skillsName:=TStringList.Create;
try
skillsName.LoadFromFile('.\SkillsID.ini');
except
msg.Lines.Add('itemsid.ini не найден!');
exit;
end;
Но потом всётаки решил, что не может 5 строчек менять работу всего скрипта (при моей проблемме), значит надо искать правильный путь. Давным давно гдето наталкивался на описание этого гемора, (вроде это при переходе шоков с С4 на ИЛ было). Ну пол дня по форуму мотаюсь не нашёл.
Итог - наставте на путь истенный, плиз.
lamer вне форума   Ответить с цитированием
Старый 15.04.2009, 15:35   #10
Местный
 
Аватар для PanAm
 
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
PanAm
По умолчанию

Для ревизии выше 100, из-за изменения структуры папок надо переписат
delphi Код:
skillsName.LoadFromFile('.\SkillsID.ini');
на
delphi Код:
skillsName.LoadFromFile('.\settings\SkillsID.ini');
PanAm вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 22:01.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!