L2-Community.com - Bce o Lineage II  
Главная Регистрация Справка Пользователи Поиск Сообщения за день Все разделы прочитаны
 
 

Вернуться   L2-Community.com - Bce o Lineage II > Форум Lineage II > Общий > Пакетный уровень

Ответ
 
Опции темы Опции просмотра
Старый 03.11.2009, 13:40   #1
HaCkBoZb
No Active
 
Регистрация: 25.10.2009
Сообщений: 9
Вы сказали Спасибо: 0
Поблагодарили: 0 раз(а) в 0 сообщениях
Восклицание Помогите со скриптом...

Код HTML:
/// Autoseller by Johnson
Var 
I,j,k,l,ItemCount,ItemType1,ItemOID,ItemID,ItCount,SelledItemID:integer; 
N_Items:Array[0..500,0..1] of Integer; 
procedure Init;
begin 
SelledItemID:= 158; // Tarbar
l:=0; 
end; 
procedure SendMsg(msg:string); 
begin 
buf:=#$4A; 
WriteD(0); 
WriteD(10); 
WriteS(''); 
WriteS(msg); 
SendToClient; 
end; 
begin 
if FromClient and (pck=#$38#$53#$00#$00#$00#$03#$00#$00#$00) then 
begin 
buf:=#$0F; 
SendToServer; 
l:=1; 
end; 
if FromServer and (pck[1]=#$1B) and (l=1) then 
begin 
j:=6; 
k:=0; 
ItemCount:=ReadH(4); 
For I:=0 to ItemCount - 1 do 
begin 
ItemType1:=ReadH(j); 
ItemOID:=ReadD(j); 
ItemID:=ReadD(j); 
ItCount:=ReadD(j); 
j:=j+22; 
if ItemID = SelledItemID then 
begin 
N_Items[k,0]:=ItemID; ///ID 
N_Items[k,1]:=ItemOID; ///OID 
k:=k+1; 
end; 
end; 
buf:=#$1E; 
WriteD(0); 
WriteD(k+1); 
For I:=0 to k do 
begin 
WriteD(N_Items[i,1]); ///OID 
WriteD(SelledItemID); ///ID 
WriteD(1); ///Count 
end; 
l:=0; 
SendToServer; 
end; 
end.

Этот скрипт продает тарбары, все что имеются в инвентаре.... И после этого останавливается... Мне нужно зациклить этот процесс... чтобы данный скрипт повторялся с определенным интервалом времени.... В идеале конечно, это чтоб скрипт следил за количеством свободных клеток в инвентаре и в момент заполнения запускался===> ждал следующего заполнения и опять запускался, и т.д.
HaCkBoZb вне форума   Ответить с цитированием
Sponsored Links
Старый 07.02.2012, 13:32   #2
kpa9pt
No Active
 
Регистрация: 08.11.2009
Сообщений: 10
Вы сказали Спасибо: 1
Поблагодарили: 0 раз(а) в 0 сообщениях
По умолчанию

просто нужно добавить условие повторного выполнение ставки на продажу после пакета updateinventory
kpa9pt вне форума   Ответить с цитированием
Старый 08.02.2012, 08:30   #3
bosssk
Участник
 
Регистрация: 26.07.2009
Сообщений: 29
Вы сказали Спасибо: 0
Поблагодарили: 4 раз(а) в 1 сообщении
По умолчанию

тебе не кажется, что это не много не вовремя ответ
bosssk вне форума   Ответить с цитированием
Ответ

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

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход




Powered by vBulletin® Version 3.7.5
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. Перевод: zCarot
Advertisement System V2.5 By   Branden
L2-Community ©2008-2015


Еще можно прочесть: