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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 23.02.2011, 00:34   #1
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
goodvin1709 пока неопределено
Восклицание Масивы помогите плиз очень нада

Так Люди очень прошу кто знает помогите
нашел какойто масив но я непонимаю вобще что ето и как з ним работать((
Procedure GetItemBase ;
Var
i : integer ;
ReadIndex : integer ;
Begin
Timer.Enabled := False ;
For i := 1 to 8 do
Begin
ItemBase[i,1] := 0 ;
ItemBase[i,2] := 0 ;
ItemBase[i,3] := 0 ;
ItemBase[i,4] := 0 ;
End ;

ReadIndex := 4 ;
ItemCount := ReadH(ReadIndex) ;
For i := 1 to ItemCount do
Begin
ReadH(ReadIndex) ;
ItemBase[i,2] := ReadD(ReadIndex) ; //objID
ItemBase[i,1] := ReadD(ReadIndex) ; //ItemID
ReadD(ReadIndex) ;
ReadH(ReadIndex) ;
ReadH(ReadIndex) ;
ReadH(ReadIndex) ;
ReadD(ReadIndex) ;
ItemBase[i,3] := ReadH(ReadIndex) ; //EnchLvl
ReadH(ReadIndex) ;
End ;
Timer.Enabled := true ;
End ;
Вот з етим

помогите розобратся з масивом дайте какойто пример з масивом и нафиг он вобще нада
Пример киньте какойто Плиз очень нада
goodvin1709 вне форума   Ответить с цитированием
Старый 23.02.2011, 12:50   #2
Новичок
 
Регистрация: 17.01.2011
Сообщений: 18
Сказал Спасибо: 1
Имеет 2 спасибок в 2 сообщенях
червь пока неопределено
По умолчанию

тебе для каких целей массив то? просишь пример, хотя не знаешь что такое массив вообще?
червь вне форума   Ответить с цитированием
За это сообщение червь нажился спасибкой от:
Старый 23.02.2011, 14:02   #3
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

"Скрипт: Создание базы интвентаря":
Оффтоп
Тут гдет выкладывался... Вроде под Интерлюд...

Создает базу инвентаря (Массив с записями всех вещей из кармана) по таким Хар-кам:
1. OID - Обжект ИД Уникальный номер у каждого предмета свой, если вещи в пачке их кол-во не влияет на изменение ОИДа
2. ID ИД определяющий тип предмета (Гугл поможет в определении нужного ИД для выбранного предмета)
3. kКол-во предметов (Стопковые когда)
4. Энчант лвл (Если Шмот или Пухи)

Создает Базу CreateItemBase; процедура берет все нужные параметры и значения из пакета 1B, который и запускает данную функцию...

Процедура InventoryUpdate; Обновляет (Добовляет удоляет определенные разделы существующей базы) работает через пакет 27...

GetItem; Функция позволяет легко и удобно пользоваться созданной базой вводятся ИД 2х параметров, по которым буим искать (Любые из 4х представленных, но 2 разных) и 3й параметр - Число относящееся к Типу указанному 1м параметром и своеобразный поиск по базе осуществляется на основе сочетания этих 2х параметров...
Например вводим 1(Оид) и 2(ИД) и (Обжект ИД итема, который ищем например это адена у вас в кармане) функция выдает вам ИД этого итема (57) и так в любых комбинациях...

Так же есть встроенный таймер и для примера в нем находится проверка адены если ее на кол-во, если ее больше 2ккк, то скрипт юзает скилл обращающий 2ккк в 1гб (Пвп серваки)... Использует при этом проверка Функцию GetItem;
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]
Nickers вне форума   Ответить с цитированием
За это сообщение Nickers нажился спасибкой от:
Старый 23.02.2011, 16:17   #4
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
goodvin1709 пока неопределено
По умолчанию

if GetItem(57,2,3)>2000000000 then begin
Вот я понел getitem и 57 ето ид
2
3 что ето?

j:=4; ну у нас есть что j =4
ListCount:=ReadH(j); а лист коунт ето 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); а нафига его увеличивать на 10
itemBase[4,i]:=ReadH(j);//EnchantLevel и что за [4,i] где мы взяли 4
inc(j,12); и нафиг его увеличивать на 12
end;
end;

ну я понел что I ето инвентарь вроде

и обесните
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;
что такое FieldIn FieldOut
goodvin1709 вне форума   Ответить с цитированием
За это сообщение goodvin1709 нажился спасибкой от:
Старый 23.02.2011, 19:39   #5
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

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

Последний раз редактировалось Nickers, 23.02.2011 в 21:14.
Nickers вне форума   Ответить с цитированием
За это сообщение Nickers нажился спасибкой от:
Старый 23.02.2011, 21:10   #6
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

на самом деле в этой ситуации больше интересно как сделали что работает и ReadD(j) и ReadD(2) (вар и не вар параметр) ведь оверлоад в делфи распознает только функции разным типов параметров а var const и тп не учитывает
__________________
Начало.
supernewbie вне форума   Ответить с цитированием
За это сообщение supernewbie нажился спасибкой от:
Старый 23.02.2011, 21:15   #7
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

А я хз чесн слово... Я ток поверхностно в нем разобрался (Изменение переменных не проверял) посмотрел алгоритм и начал использовать в своих скриптах))

Добавлено через 2 минуты
Цитата:
Пакет двумерный
*facepalm*

Вот это оговорка ппц(
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]

Последний раз редактировалось Nickers, 23.02.2011 в 21:15. Причина: Добавлено сообщение
Nickers вне форума   Ответить с цитированием
За это сообщение Nickers нажился спасибкой от:
Старый 23.02.2011, 21:27   #8
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
goodvin1709 пока неопределено
По умолчанию

Спасибо тебе огромное ) теперь хоть поверхносно узнать что ето)
goodvin1709 вне форума   Ответить с цитированием
За это сообщение goodvin1709 нажился спасибкой от:
Ответ

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



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

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


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

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

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