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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
 
 
Опции темы Опции просмотра
Старый 06.04.2011, 04:53   #1
Местный
 
Регистрация: 04.11.2009
Адрес: Где-то в жопе европы
Сообщений: 316
Сказал Спасибо: 32
Имеет 42 спасибок в 39 сообщенях
wimax пока неопределено
По умолчанию таймер с скозным проходом

Вопрос почему таймер с сквозным проходом не роботает мб я не так понел его функцию хотелосьбы узать по подробней
delphi Код:
//Почта под freya Const rich=''; //кому шлем itemid = 6392; // ид чего шлем Name='';   //от кого interval = 10; //интервал перед послыкой var Invertory:array[0..100,1..3] of integer; i:word; ObjId:integer; countId:integer; tick: Integer; procedure Init; begin buf:=#$14; SendToServerEx(Name); end; procedure ItemList; begin     for i:=0 to 100 do         begin                Invertory[i,1]:=0;             Invertory[i,2]:=0;             Invertory[i,3]:=0;         end;     for i:=0 to 100 do         begin             Invertory[i,1]:=ReadD(i*68+6);             Invertory[i,2]:=ReadD(i*68+10);             if Invertory[i,2]=itemid then ObjId:=Invertory[i,1];         end;     for i:=0 to 100 do         begin             Invertory[i,3]:=ReadQ(i*68+18);             Invertory[i,2]:=ReadD(i*68+10);             if Invertory[i,2]=itemid then countId:=Invertory[i,3];         end;         end; procedure sendmoney; begin buf := HStr('D0 66 00'); WriteS(rich); WriteD(0); WriteS(rich); WriteS(rich); WriteD(1); WriteD(ObjId); WriteQ(countId); WriteQ(0); SendToServerEx(Name); end; function Wait(var tick: integer; Timewait: Integer): Boolean; // сквозная проверка без остановки скрипта var   t: integer; begin   result:=false;   t:=Round(Time*86400);   if t>(tick+Timewait) then begin     if tick>0 then result:=true;     tick:=t;   end; end; begin if FromServer and (ConnectName=Name) then case pck[1] of #$11: ItemList; #$62: begin if (readd(2)=924) and (ConnectName=Name) and Wait(tick, interval) then    begin sendmoney; end; end; end; end.

Последний раз редактировалось wimax, 06.04.2011 в 13:26.
wimax вне форума   Ответить с цитированием
 

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


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

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

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


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

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

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