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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Результаты опроса: Нужна ли такая тема форуму?
Да, мне бы была полезна. 34 66.67%
Пускай будет, но мне и так норм. 10 19.61%
Нет, не нужна. 7 13.73%
Голосовавшие: 51. Вы ещё не голосовали в этом опросе

Ответ
 
Опции темы Опции просмотра
Старый 04.03.2011, 13:06   #1
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
Вопрос Писать скрипты для phx.

Отвечаем на вопросы пользователей по скрипто-писанию.

Оффтоп
Ну начнем пожалуй... Задавайте сюда свои вопросы по скриптам.
Можно по чужим, например изменение их в каком-либо направлении...



Полезное:

Основное:
Что нужно знать. (Основы)
Полезные функции. (Сборник полезностей)
Переделать скрипт под другую версию
Плагины в phx.

База инвентаря:
Способ №1 (Простой)
Способ №2
Способ №3 (Геморой)

Работа с таймером:
1) В общем. (Не нашел на Coderx'e дай-те ссылку)
2) Из темы:
Простейший пример таймера.
Посылка пакета.

Скрипты-боты:
Сборник
Локомотив от Alexus

Автозаточка:
NLObp
mks
TAMBIK
-----------------------

Перебор MultiSell Пакетов (Теория)
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]

Последний раз редактировалось Nickers, 19.05.2011 в 11:19.
Nickers вне форума   Ответить с цитированием
За это сообщение Nickers нажился 7 спасибками от:
Старый 04.03.2011, 13:31   #2
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

серф ввв.ло2супершматка.клан.су нужен скрипт тип точиш 1 раз он точит дальше напиши плис я сам нуб

Добавлено через 30 секунд
хроники интрлуд

PS лучше пусть темки плодят, чем венегред тут устраивать
__________________
Начало.

Последний раз редактировалось supernewbie, 04.03.2011 в 13:31. Причина: Добавлено сообщение
supernewbie вне форума   Ответить с цитированием
Старый 04.03.2011, 15:17   #3
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

Имхо тема была бы полезная (как минимум мне) , но нужен человек который бы адекватно мог реагировать и отвечал на вопросы заданные пользователям, а не кричать какой он тупой и отправлять его читать книжку, найдутся ли такие люди и ты сам готов к этому ??

p.s: есстесно что пример supernewbie не исключение, и с такими тоже надо будет как то бороться, и каждый раз объеснять что coderx не чит-портал.

Лан, стартану я, у меня есть скрипт на заточку (не NLObP, а приватный так скажем), нужна помощь в реализовании заточки вещей до сейва простыми точками, в дальнейшем блесс, приду с работы, скину скрипт в лс, а вобще если бы ты мне смог объеснить прямо тут на словах, чтоб я сам смог поправить, было бы еще лучше
__________________

Последний раз редактировалось dyh9l, 04.03.2011 в 15:26.
dyh9l вне форума   Ответить с цитированием
Старый 04.03.2011, 16:08   #4
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

Цитата:
Сообщение от dyh9l Посмотреть сообщение
приду с работы
где работаешь то хоть?)
__________________
Начало.
supernewbie вне форума   Ответить с цитированием
Старый 04.03.2011, 16:18   #5
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

в компьютерной фирме)) учеба закончилась, щас полгода проработать, защитить диплом и бб гл
__________________
dyh9l вне форума   Ответить с цитированием
Старый 04.03.2011, 18:31   #6
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

Цитата:
Имхо тема была бы полезная (как минимум мне) , но нужен человек который бы адекватно мог реагировать и отвечал на вопросы заданные пользователям, а не кричать какой он тупой и отправлять его читать книжку, найдутся ли такие люди и ты сам готов к этому ??
Я сам готов но тут 2 минуса:
1й - время... из-за учебы его мало =))
2й то что я сам нуб ппц и с нуля скрипт на точку не напишу...
Я знаю как он работает и (Например) могу в готовом скрипте разобратся и поменять его например для другой цели...

Обязательно нужен человек, который буит мне помогать, если у мну моцка или сил не хватает...

Оффтоп

Добавлено через 4 минуты
Кстати вполне возможно помогать людям не знакомых с языком, но с мозгом в наличии... Для этого требуется объяснение пары функций и просто алгоритм работы скрипта, что гораздо легче чем писать Справочник по паскалю с уклоном на ПХ (Можно книгу написать <<Паскаль для ПХ как 2 пальца абассать>>)

Добавлено через 4 минуты
Цитата:
Лан, стартану я, у меня есть скрипт на заточку (не NLObP, а приватный так скажем), нужна помощь в реализовании заточки вещей до сейва простыми точками, в дальнейшем блесс, приду с работы, скину скрипт в лс, а вобще если бы ты мне смог объеснить прямо тут на словах, чтоб я сам смог поправить, было бы еще лучше
Ну это нужно на скрипт глянуть))
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]

Последний раз редактировалось Nickers, 04.03.2011 в 18:31. Причина: Добавлено сообщение
Nickers вне форума   Ответить с цитированием
Старый 05.03.2011, 03:36   #7
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

го лучше новый состряпаем) я вот тут чото начал, ну и конечно же запинки, над узнать как то ObjectID всех скролов которые в сумке и которые будут в дальнейшем покупатся)
DELPHI Код:
const     name = 'secret' ;     rbID = 858 ;     enchlvl = 7;    var     EnchantTimer:TTimer;     a,ObjectIDrb:integer;        procedure Init;     begin          a:=1;         EnchantTimer:=TTimer.Create(nil);         EnchantTimer.Ontimer:=@Enchant;         EnchantTimer.Interval:=1100;         EnchantTimer.Enabled:=false;      end; procedure Free;     begin         EnchantTimer.free;     end;      procedure Enchant;     begin         case a of             1: begin     // первые 2 действия заточка простым скролом                     buf:=#$14;                     //   WriteD(тут объект ид у скрола);                     WriteD(0);                     SendToServerEx(name);                     a:=2;                end;                             2: begin                     buf:=#$58;                     WriteD(ObjectIDrb);                     WriteD(0);                     SendToServerEx(name);                     EnchantTimer.Enabled:=false;                                 end;                             3: begin    //Заточка блесс скролом                     buf:=#$14;                     //   WriteD(тут объект ид у скрола);                     WriteD(0);                     SendToServerEx(name);                     a:=4;                end;                         4: begin                     buf:=#$58;                     WriteD(ObjectIDrb);                     WriteD(0);                     SendToServerEx(name);                     EnchantTimer.Enabled:=false;                             end;                             end;     end;          procedure InvertoryUpdate;     begin         if (ReadD(12)=rbID) then             begin                 ObjectIDrb:=ReadD(8);                 case ReadH(30) of                     0..5begin a:=1; EnchantTimer.Enabled:=true; end;                     5..enchlvl: begin a:=3; EnchantTimer.Enabled:=true; end;                 end;             end;         if (ReadD(42)=rbID) then             begin                 case ReadH(60) of                     0..5begin a:=1; EnchantTimer.Enabled:=true; end;                     5..enchlvl: begin a:=3; EnchantTimer.Enabled:=true; end;                 end;                          end;      end; begin     if (connectname=name) and (fromserver) then         case pck[1] of             #$27: InvertoryUpdate;         end; end.
__________________

Последний раз редактировалось dyh9l, 05.03.2011 в 03:42.
dyh9l вне форума   Ответить с цитированием
Старый 05.03.2011, 08:27   #8
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

Давай ка вместо 1го "Инвентари Апдейт" вставим вот это для начала))
delphi Код:
procedure CreateItemBase; var   i, j, ListCount: integer; begin   for i:=1 to max do begin     //очищаем масив     ItemBase[1,i]:=0;     //OID     ItemBase[2,i]:=0;    //ID     ItemBase[3,i]:=0;   //kol-vo     ItemBase[4,i]:=0//lvl   end;   j:=4;   ListCount:=ReadH(j);   j:=8;   for i:=1 to ListCount do begin     itemBase[1,i]:=ReadD(j);    //OID     itemBase[2,i]:=ReadD(j);   //ItemID     itemBase[3,i]:=ReadD(j)//кол-во     inc(j,10);     itemBase[4,i]:=ReadH(j);//EnchantLevel     inc(j,12);   end; end; //...................................... //****************************************************************************** procedure InventoryUpdate; //пакет 27, обновляет базу ObjectID по ItemID var   i, ii, j, OID, ID, Count, ListCount, UpdType, lvl: integer;   add : boolean; begin   add:=false;   ListCount:=ReadH(2);   j:=4;   for ii:=1 to ListCount do begin     add:=false;     UpdType:=ReadH(j);     ReadH(j);               //ItemType1     OID:=ReadD(j);     //ObjectID     ID:=ReadD(j);     //ItemID     Count:=ReadD(j); //кол-во     inc(j,10);     lvl:=ReadH(j);     case UpdType of       1: begin          for i:=1 to max do begin            if (ItemBase[1,i]=0) and (add=false) then begin              ItemBase[1,i]:=OID;              ItemBase[2,i]:=ID;              ItemBase[3,i]:=Count;              ItemBase[4,i]:=lvl;              add:=true;            end;          end;       end;       2: begin          for i:=1 to max do begin            if ItemBase[1,i]=OID then begin              ItemBase[3,i]:=Count;              ItemBase[4,i]:=lvl;            end;          end;       end;       3: begin          for i:=1 to max do begin            if ItemBase[1,i]=OID then begin              ItemBase[1,i]:=0;              ItemBase[2,i]:=0;              ItemBase[3,i]:=0;              ItemBase[4,i]:=0;            end;          end;       end;     end;     inc(j,10);   end; end; function GetItem(ID, FieldIn, FieldOut : integer) : integer; var   i : integer; begin   for i:=1 to max do     if ItemBase[FieldIn,i]=ID then begin       result:=ItemBase[FieldOut,i]; // itemOID       exit;     end;   result:=0; end;

Var:
delphi Код:
Const Name='ArchDevil'; //Афффтор Max=300; var   ItemBase : array[1..4,1..max] of integer; //ItemOID, ItemID, Kol-vo, ItemLvl   timer:TTimer;

Во 1х мне так удобней чесн слово)))
во 2х GetItem оч полезная функция...

--------------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------------

Цитата:
узнать как то ObjectID всех скролов которые в сумке
delphi Код:
GetItem(ID,2,1)//ID Вещи, тоесть скролла, не меняется.  
Функция выдает ОИД вещи с ИД "ID".

--------------------------------------------------------------------------------------------------------------------------------
Оффтоп
--------------------------------------------------------------------------------------------------------------------------------
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]

Последний раз редактировалось Nickers, 05.03.2011 в 08:39.
Nickers вне форума   Ответить с цитированием
Старый 05.03.2011, 08:41   #9
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

госпади, как же вам отстойно без классов и рекордов)
__________________
Начало.
supernewbie вне форума   Ответить с цитированием
Старый 05.03.2011, 10:55   #10
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

А нах тут рекорды? Массивов вполне достаточно...
Или дай пример через классы/рекорды я разберу... Ну пока у мну и без них не возникало пороблем...

Добавлено через 45 секунд
(Я не знаком с классами)
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]

Последний раз редактировалось Nickers, 05.03.2011 в 11:00. Причина: Добавлено сообщение
Nickers вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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