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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 09.07.2010, 22:37   #11
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

хм, с мелкими работает, но с большими нет(
supernewbie вне форума   Ответить с цитированием
Старый 09.07.2010, 23:05   #12
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

Цитата:
большими нет
разве что у тебя строка > 2гб.
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 09.07.2010, 23:12   #13
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

эм) это врятли, делаю все как и ты в своем скрипте, чуть-чуть изменив. Но когда завтсавляю его выдавать пакет с панелькой, пх читает этот пакет как Die а при наведеии на него вообще содержимое не показывает.
supernewbie вне форума   Ответить с цитированием
Старый 09.07.2010, 23:17   #14
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

код в студию. весь.
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 09.07.2010, 23:21   #15
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

delphi Код:
procedure scanpaneli; begin   for i:=1 to 20 do //после выполнения этого цикла i будет равен 20     if ConnectName=NamesArray[i] then     begin       paneli[i]:=pck;       break; //<-fix. вот этого тут явно нехватало.     end; end; begin   if FromServer and (pck[1]=#$45) then scanpaneli;   if [условие]  then   begin     buf:=paneli[i]; //ты уверен что при I = 20 ты обратишься к нужной ячейке ? не.. скорей всего ты обратишся в ячейке по которой лежит пустая строка. символом окончания строки - #0 вот откуда у тебя пакет die (id=#0) береццо     SendToClientEx(Name);   end; end.

Последний раз редактировалось alexteam, 09.07.2010 в 23:31.
supernewbie вне форума   Ответить с цитированием
Старый 09.07.2010, 23:28   #16
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

ну. если окромя секции var ты ничо не утаил - то все понятно.
подправил твой пост..
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 09.07.2010, 23:38   #17
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

break там явно бы не помог, т.к. потом снова идет перегон
PS опять все полетело

delphi Код:
for i:=1 to 20 do if IDNamesArray[i]=target then begin targetName:=NamesArray[i]; idtargetName:=IDNamesArray[i]; say2('У вас таргет на вот этом чухе > ' + targetName+ '.'); buf:=HStr('14'); SendToServerEx(targetName);  buf:=paneli[i]; SendToClientEx(Name); buf:=HStr('50'); SendToServerEx(targetName); targetNamenashel:=true;

Добавлено через 5 минут
О_о кажись заработало

Последний раз редактировалось supernewbie, 09.07.2010 в 23:38. Причина: Добавлено сообщение
supernewbie вне форума   Ответить с цитированием
Старый 09.07.2010, 23:39   #18
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

......

delphi Код:
Function GetArrayIndexByName(name:string):integer; begin   result := 1;   while (result <= 20) and (name <> NamesArray[result]) do inc(result);   if result > 20 then result := 0; end; Function GetArrayIndexByOBjId(ObjId:integer):integer; begin   result := 1;   while (result <= 20) and (ObjId <> IDNamesArray[result]) do inc(result);   if result > 20 then result := 0; end; var   Index : integer; begin   if FromServer and (pck[1]=#$45) then scanpaneli;   if [условие]  then   begin     index := GetArrayIndexByName('имя когото'); //получаем индекс элемента с указаным именем юзаем ее или  GetArrayIndexByOBjId я хз как там у тя по коду     if index > 0 then //индекс равен нулю если имя не найдено       begin         buf:=paneli[index];         SendToClientEx(Name);       end;   end; end.

Оффтоп
__________________
L2Ext - project closed.

Последний раз редактировалось alexteam, 09.07.2010 в 23:51.
alexteam вне форума   Ответить с цитированием
Старый 10.07.2010, 00:06   #19
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

черт, опять критует, но 1 раз работало!) =\

Добавлено через 18 минут
чем не нравится проверка IDNamesArray[i]=target ?

Добавлено через 7 минут
GetArrayIndexByOBjId(i);
if i > 0 then
begin
buf:=paneli[i];
SendToClientEx(Name);
end;

все равно он критует что б его...

Последний раз редактировалось supernewbie, 10.07.2010 в 00:06. Причина: Добавлено сообщение
supernewbie вне форума   Ответить с цитированием
Старый 10.07.2010, 11:08   #20
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

полный код выложи. от корки до корки, врядли там аццкая секретная разработка.
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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