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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 13.06.2008, 14:46   #431
Новичок
 
Аватар для Denis63RUS
 
Регистрация: 16.04.2008
Адрес: Самара
Сообщений: 24
Сказал Спасибо: 7
Имеет 6 спасибок в 3 сообщенях
Denis63RUS пока неопределено
По умолчанию

Цитата:
Сообщение от Silmaril Посмотреть сообщение
Denis63RUS, посмотри SiedgeFlag в пакете 03, вроде оно
Странно, но у меня такого нет в описании пакета Вылажи плиз своё описание пакета 03
__________________
Всё можно починить, если вертеть в руках достаточно долго!
Denis63RUS вне форума   Ответить с цитированием
Старый 13.06.2008, 15:39   #432
Пользователь
 
Регистрация: 13.10.2007
Сообщений: 40
Сказал Спасибо: 14
Имеет 6 спасибок в 5 сообщенях
Silmaril
По умолчанию

из пакетс.ини
03=CharInfo:d(X)d(Y)d(Z)-(4)h(ObjectID)s(Name)d(Race)d(Sex)d(ClassID)-(4)i(Head)i(RHand)i(LHand)i(Gloves)i(Chest)i(Legs) i(Feet)i(Back)i(LRHand)i(Hair)d(PvPFlag)d(Carma)d( MSpeed)d(PSpeed)d(PvpFlag)d(Karma)d(RunSpeed)d(Wal kSpeed)d(SwimRunSpeed)d(SwimWalkSpeed)d(FlRunSpeed )d(FlWalkSpeed)d(FlyRunSpeed)d(FlyWalkSpeed)f(Move mentSpeedMultiplier)f(AttackSpeedMultiplier)f(Coll isionRadius)f(CollisionHeight)d(HairStyle)d(HairCo lor)d(Face)d(AccessLevel)s(Title)d(ClanId)d(ClanCr estId)d(AllyId)d(AllyCrestId)d(SiegeFlags)b(Sittin g)b(Running)b(InCombat)b(AlikeDead)b(Invisible)b(M ountType)b(PrivateStoreType)

на шоках работает
256-односторонний вар, 257-двусторонний
на ближайших осадах остальные значения выясню

Последний раз редактировалось Silmaril, 13.06.2008 в 15:42.
Silmaril вне форума   Ответить с цитированием
За это сообщение Silmaril нажился спасибкой от:
Старый 28.06.2008, 15:26   #433
Рыцарь
 
Аватар для VORON
 
Регистрация: 06.08.2007
Сообщений: 209
Сказал Спасибо: 6
Имеет 67 спасибок в 34 сообщенях
VORON пока неопределено
По умолчанию

Цитата:
Сообщение от Rackot Посмотреть сообщение
Вопрос, а каким образом лучше реализовать автодетект наличия на себе селф бафов(ака Батл Роар, Рэйдж у дестроера) и соответсвенно при обнаружении отсутсвия таковых и при условии что бафы откатились,юзать их снова?
//мб вопрос ламерский и не в то теме Оо
если я не ошибаюсь.. то... клиент от сервера получает инфу об наличии бафов тока в момент их наложения.. в пакете ЭБНОРМАЛ СТАТУС АПДЕЙТ.. возможно етот пакет приходит еще когдато.. тока хз когда.. в нем циклом перечисляются наложенные бафы и время до их окончания.. и еще чета.. стартонув скрипт в момент когда уже бафы- лежат- неимеет смысла так как ты неполучиш пакет ЭБНОРМАЛ СТАТУС АПДЕЙТ.. имеет смысл скрипт запускать заранее.. перед бафом.. тогда возможно отслеживать все наложенные бафы..
__________________
Цитата:
Сообщение от pybukon
прежде чета попросить я немнога раскажу чтоб вы понили как мне плоха
Цитата:
Сообщение от Byrger
А как сделать мой скрипт бесконечным?
Цитата:
Сообщение от XKOR
.. каждый день ионизированной ногой протирает больную)
Цитата:
Сообщение от PsyR
Вылоджите пожалуйста скрипт на рыбалку желательно что бы сам в ВХ клал адаптированый под шоки и так же скрипт на ТТ рец, тоже с диалогами
VORON вне форума   Ответить с цитированием
Старый 01.07.2008, 17:52   #434
Новичок
 
Аватар для raid
 
Регистрация: 01.07.2008
Адрес: Пермь
Сообщений: 21
Сказал Спасибо: 0
Имеет 37 спасибок в 10 сообщенях
raid пока неопределено
По умолчанию

ПВП помошник, 4 в одном: таргет(при ударе), цп, контрл, радар
Цитата:
автоцп- пьет банки если цп на Delta меньше макс.
автоконтрл - контрол постоянно зажат
автотаргет - берет на таргет того кто тя стукнул (выключаеться когда ты сам у себя на таргете)
авторадар - синяя стрлочка над головой показывающая на цель.
Включение/выключение функций в клиенте ("Соц. Да").
delphi Код:
const    Name='Mamy'; var    CurHP,CurCP,MaxCP,MyID,TargetID,o,x,y,z,Delta: integer;    CPuse,action,Msg: string;    TimerCP,TimerHP: TTimer;    AutoCtrl,AutoCP,AutoTarget,AutoRadar: boolean; procedure Init; begin   TimerCP:=TTimer.Create(nil);   TimerCP.OnTimer:=@OnTimerCP;   TimerCP.enabled:=false; //configs   TimerCP.interval:=1000; //cpuse delay   AutoCtrl:=true;         //autoctrl default   AutoCP:=true;           //autocp default   AutoTarget:=false;      //autotarget default   AutoRadar:=true;        //autoradar default   Delta:=200;             //if (currentCP)<(maxCP-delta) then cpuse   Say; end; procedure OnTimerCP(Sender: TObject); begin   buf:=CPuse;   SendToServerEx(Name); end; procedure Free; begin   TimerCP.free;   CPuse:=''; end; function booleantostr(b:boolean):string; begin  if b then   result:='True'  else   result:='False'; end; procedure Say; var s:string; begin  if autoctrl then   s:='<tr><td>AutoCtrl=<a action="bypass autoctrl_off">'+booleantostr(autoctrl)+'</a></td></tr>'  else   s:='<tr><td>AutoCtrl=<a action="bypass autoctrl_on">'+booleantostr(autoctrl)+'</a></td></tr>';  if autocp then   s:=s+'<tr><td>AutoCP=<a action="bypass autocp_off">'+booleantostr(autocp)+'</a></td></tr>'  else   s:=s+'<tr><td>AutoCP=<a action="bypass autocp_on">'+booleantostr(autocp)+'</a></td></tr>';  if autotarget then   s:=s+'<tr><td>AutoTarget=<a action="bypass autotarget_off">'+booleantostr(autotarget)+'</a></td></tr>'  else   s:=s+'<tr><td>AutoTarget=<a action="bypass autotarget_on">'+booleantostr(autotarget)+'</a></td></tr>';  if autoradar then   s:=s+'<tr><td>AutoRadar=<a action="bypass autoradar_off">'+booleantostr(autoradar)+'</a></td></tr>'  else   s:=s+'<tr><td>AutoRadar=<a action="bypass autoradar_on">'+booleantostr(autoradar)+'</a></td></tr>';  s:=s+'<tr><td><br><center><img src="L2UI_CH3.herotower_deco" width=256 height=32></center><br><br></td></tr>';  if cpuse='' then   s:=s+'<tr><td>CPuse=<font color="LEVEL">[!] Выпей бутыль ЦП [!]</font></td></tr>'  else   s:=s+'<tr><td>CPuse=<a action="bypass autouse">'+strtohex(cpuse)+'</a></td></tr>';   buf:=hstr('0F 01 00 00 00');   WriteS('<html><title>PVP помошнегг (с) raid</title><body><center><img src="L2UI_CH3.herotower_deco" width=256 height=32></center><br><table width=100%>'+s+'</table><br><br><br><br><br><br>'+    '<br><center><img src="L2UI_CH3.herotower_deco" width=256 height=32><br><br><br><br><br><br>(c) raid aka Mamy</center></body></html>');   WriteD(0);   SendToClientEx(Name); end; function StrToHex(packet: string):string; var   i:integer;   tmp:byte;   function ByteToHex(b: byte): Char;   begin     if b<10 then result:=chr(b+$30)       else result:=chr(b+$37);   end; begin   result:='';   for i:=1 to length(packet) do begin     tmp:=ord(packet[i]) div 16;     result:=result+ByteToHex(tmp);     tmp:=ord(packet[i]) - tmp*16;     result:=result+ByteToHex(tmp)+' ';   end; end; begin if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse='') then begin  CPuse:=pck;  Say;  pck:='';  exit; end; if FromServer and (pck[1]+pck[6]=#$0E#$04) then   begin     MyID:=ReadD(2);     CurHP:=ReadD(14);     CurCP:=ReadD(30);     MaxCP:=ReadD(38); end; if FromServer and (pck[1]=#$A6) then begin   TargetID:=ReadD(2); end; { взятие на таргет, когда берут на таргет вас (заменитьна то что ниже) if FromServer and (pck[1]=#$29) and autotarget then begin   o:=ReadD(2);   if (ReadD(6)=MyID)and(o<>MyID)and(o<>TargetID) then begin   x:=ReadD(10);   y:=ReadD(14);   z:=ReadD(18);   delay(100);   buf:=hstr('04');   WriteD(o);   WriteD(x);   WriteD(y);   WriteD(z);   WriteC(0);   SendToServerEx(Name);   end; end; } if FromServer and (pck[1]=#$05) and autotarget then begin   o:=ReadD(2);   if (ReadD(6)=MyID)and(o<>MyID)and(o<>TargetID) then begin   x:=ReadD(15);   y:=ReadD(19);   z:=ReadD(23);   delay(100);   buf:=hstr('04');   WriteD(o);   WriteD(x);   WriteD(y);   WriteD(z);   WriteC(0);   SendToServerEx(Name);   end; end;  if (CurCP<MaxCP-Delta)and(CPuse<>'')and(CurHP>0)and AutoCP then   TimerCP.enabled:=true  else   TimerCP.enabled:=false; if FromClient and (ConnectName=Name) and (pck=HStr('1B 06 00 00 00')) then begin  Say;  pck:='';  exit; end;  if FromServer and(pck[1]=#$61)and AutoRadar then begin   x:=ReadD(6);   y:=ReadD(10);   z:=ReadD(14);   buf:=#$EB;   WriteD(0);   WriteD(1);   WriteD(x);   WriteD(y);   WriteD(z);   SendToClientEx(Name);  end; if FromClient and (ConnectName=Name) and (pck[1]=#$2F) and AutoCtrl then  pck[6]:=#$01; if FromClient and (ConnectName=Name) and (pck[1]=#$21) then begin  action:=ReadS(2); if pos('auto',action)>0 then begin  if action='autocp_on' then autocp:=true;  if action='autocp_off' then autocp:=false;  if action='autoctrl_on' then autoctrl:=true;  if action='autoctrl_off' then autoctrl:=false;  if action='autotarget_on' then autotarget:=true;  if action='autotarget_off' then autotarget:=false;  if action='autoradar_on' then autoradar:=true;  if action='autoradar_off' then begin   autoradar:=false;   buf:=#$EB;   WriteD(0);   WriteD(1);   WriteD(0);   WriteD(0);   WriteD(0);   SendToClientEx(Name);  end;  if action='autouse' then CPuse:='';  Say;  pck:=''; end; end; end.
__________________
Emo-chan style.
raid вне форума   Ответить с цитированием
За это сообщение raid нажился 5 спасибками от:
Старый 01.07.2008, 18:29   #435
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

интересно а когда тя несколько бьют то таргет с одного на другого всёвремя прыгает?
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
Старый 01.07.2008, 21:50   #436
Новичок
 
Аватар для raid
 
Регистрация: 01.07.2008
Адрес: Пермь
Сообщений: 21
Сказал Спасибо: 0
Имеет 37 спасибок в 10 сообщенях
raid пока неопределено
По умолчанию

Цитата:
Сообщение от xkor Посмотреть сообщение
интересно а когда тя несколько бьют то таргет с одного на другого всёвремя прыгает?
Транс самое то кидать...
__________________
Emo-chan style.
raid вне форума   Ответить с цитированием
Старый 02.07.2008, 02:31   #437
Новичок
 
Регистрация: 24.06.2008
Сообщений: 3
Сказал Спасибо: 3
Имеет 0 спасибок в 0 сообщенях
nikolas666 пока неопределено
По умолчанию

Как узнать ID предмета с данного сервера

Последний раз редактировалось nikolas666, 02.07.2008 в 05:02.
nikolas666 вне форума   Ответить с цитированием
Старый 02.07.2008, 10:02   #438
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от nikolas666 Посмотреть сообщение
Как узнать ID предмета с данного сервера
Бросить его на землю, придет пакет от сервера
27=InventoryUpdate:w(count)w(1add2mod3remove)w(ite mType1)d(ObjectID)i(ItemId)d(Count)...
NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился 2 спасибками от:
Старый 02.07.2008, 15:33   #439
Новичок
 
Регистрация: 24.06.2008
Сообщений: 3
Сказал Спасибо: 3
Имеет 0 спасибок в 0 сообщенях
nikolas666 пока неопределено
По умолчанию

Еще один маленький вопросик))Запускаю точку все работает точит а когда все предметы ломаются и становятся на +0 все виснет и прога не отвечает(((Что надо изменить в скрипте /Автоматизация заточки предметов до необходимого уровня by NLObP
//version 0.4 от 27.06.2008г.
и еще разок напишите плз как скорость менять и куда енто вписывать,?
nikolas666 вне форума   Ответить с цитированием
Старый 02.07.2008, 17:32   #440
Заблокирован
 
Регистрация: 10.03.2008
Адрес: Тула
Сообщений: 1,098
Сказал Спасибо: 188
Имеет 108 спасибок в 60 сообщенях
DashKAaa
По умолчанию

Цитата:
Сообщение от Rodzilla Посмотреть сообщение
А зачем нужна ета прога на точку? Только для тех кому лень точить вручную или даёт какиета преимущества?
для пвп сервера.. где точек как говна
DashKAaa вне форума   Ответить с цитированием
Ответ

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


Опции темы
Опции просмотра

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

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


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

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

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