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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 27.01.2012, 21:58   #1
Новичок
 
Регистрация: 22.01.2012
Сообщений: 3
Сказал Спасибо: 6
Имеет 0 спасибок в 0 сообщенях
leto пока неопределено
Вопрос Помогите кто чем может !!!

Этот скрипт расчитан на блески и точит всего одну вещь кто сможет переделать чтоб точил все вещи в инвенторе ну вобщем работало примерно как у NLObP TAMBIK или mks этот скрипт работает на хрониках HighFive сервер shock-world
или от сюда что выдрать и добавить в скрипты выше упомянутых форумчян чтоб они работали ???

PHP код:
const 
  
nik='lesay';//Тут вписываем свой ник
  
Enchant=8;//это число при котором скрипт точить дальше не будит
 
var
 
UseItemSelectItemEnchantItemstring;
 
CurrentEnchinteger;
 
keyboolean;
 
Timer01Timer02TTimer;
 
procedure Init;
 
begin
 Timer01
:=TTimer.Create(nil);
 
Timer01.OnTimer:=@OnTimer01;
 
Timer01.enabled:=false;
  
Timer01.interval:=3000//тут ставим интервал 1000 = 1 сек
 
Timer02:=TTimer.Create(nil);
 
Timer02.OnTimer:=@OnTimer02;
 
Timer02.enabled:=false;
  
Timer02.interval:=3000//Тут тоже настраиваем под себя время заточки
 
end;
 
procedure OnTimer01(SenderTObject);
 
begin
 
case key of
 false
begin
 buf
:=UseItem;
 
SendToServerEx(nik);
 
Timer02.enabled:=true;
 
end;
 
truebegin
 buf
:=EnchantItem;
 
SendToServerEx(nik);
 
end;
 
end;
 
key:=not(key);
 
end;
 
procedure OnTimer02(SenderTObject);
 
begin
 buf
:=SelectItem;
 
SendToServerEx(nik);
 
Timer02.enabled:=false;
 
end;
 
procedure Free;
 
begin
 Timer01
.free;
 
Timer02.free;
 
CurrentEnch:=0;
 
key:=false;
 
end;
 
begin
 
if FromServer and (pck[1]=#$87) then case ReadD(2) of
 
0begin
 CurrentEnch
:=CurrentEnch+1;
 if 
CurrentEnch=Enchant then Timer01.enabled:=false;
 
end;
 
3CurrentEnch:=0;
 
end;
 if 
FromClient and (pck[1]=#$19) then UseItem:=pck;
 
if FromClient and (pck[1]=#$D0) then SelectItem:=pck;
 
if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
 
if FromClient and (pck[1]+pck[2]=#$56#$0C) then
 
begin
 pck
:='';
 
Timer01.enabled:=not(Timer01.enabled);
 
end;
 
end
leto вне форума   Ответить с цитированием
Ответ

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


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

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

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


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

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

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