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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 27.06.2011, 20:43   #1
Новичок
 
Регистрация: 25.06.2011
Сообщений: 11
Сказал Спасибо: 1
Имеет 2 спасибок в 2 сообщенях
Shock3D пока неопределено
По умолчанию Скрипт на заточку под сервер Epoch-life(х7 000)

Ребят в скриптах не бум бум, вообще непонимаю как его настроить под сервер...

Пажалуста подскажите готовый скрипт под сервер Epoch-life(интерлюд).

Мне нужно что бы он просто точился. Без покупок и прочей фигни, просто подрят 1 и туже пушку до определенной отметки, буду очень благодарен...
Shock3D вне форума   Ответить с цитированием
Старый 27.06.2011, 21:53   #2
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Shock3D, есть темы со сриптами заточки, подбери подходящий скрипт.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
Старый 01.08.2011, 11:04   #3
Пользователь
 
Аватар для EmL
 
Регистрация: 21.07.2011
Сообщений: 48
Сказал Спасибо: 6
Имеет 20 спасибок в 12 сообщенях
EmL пока неопределено
По умолчанию

Этот скрипт для интерлюда,настраивал "wimax"
PHP код:
Const
  
NickName 'Shock3D';
  
MaxEnchantLevel Доскольки точить ЧИСЛО;

  
interval 230;   //Интервал между точкой
  
MainDebug false// ПИСАТТЬ СОБОЩЕНИЯ В ЧАТ ИЛИ НЕТ ДА-true НЕТ-false
  
var
  
CurLevelinteger;
  
tickinteger;
  
SKillIDinteger;

procedure Init//Вызывается при включении скрипта
begin
  CurLevel 
:= -1;
end;


function 
Wait(var tickintegerTimewaitInteger): Boolean// сквозная проверка без остановки скрипта
var
  
tinteger;
begin
  result
:=false;
  
t:=Round(Time*86400);
  if 
t>(tick+Timewaitthen begin
    
if tick>0 then result:=true;
    
tick:=t;
  
end;
end;

procedure SendMsg_to_Chat(ChatTypeintegermsg:string);                                 
begin
  buf
:=#$4A;
  
WriteD(0);
  
WriteD(10);
  
WriteS(NickName);
  
WriteS(msg);
  
SendToClientEx(NickName);
end;
// послать отладочное сообщение себе
procedure DebugMsg(msg:string);
begin
  
if MainDebug then
    SendMsg_to_Private
(msg);
end;
// послать сообщение себе в приват
procedure SendMsg_to_Private(msg:string);
begin
  SendMsg_to_Chat
(2,msg);
end;

begin
  
if pck '' then exit;
  
// Т.к. использоваться будет только для одного чара, остальных сразу отсеиваем
  
if ConnectName<>NickName then Exit;

  
// пакет - сообщение со статусом заточки
  
if FromServer and (pck[1]=#$62) and (pck[3]+pck[4]+pck[5] = HStr('05 00 00')) then begin
    
if (pck[2] = #$A0)or(pck[2] = #$A1)then begin
      
SKillID := ReadD(14);
      
CurLevel := ReadD(18);
      
// заточка была не удачной, обнуляем текущий уровень заточки
      
if pck[2] = #$A1 then
        
CurLevel := (CurLevel div 100)*100;  // округляем
      
DebugMsg('SKillID='+inttostr(SKillID)+'; CurLevel='+inttostr(CurLevel));
      if (
CurLevel mod 100) >= MaxEnchantLevel then
        CurLevel 
:= -1;
      
tick := 0;
      
Wait(tickinterval);
    
end;
  
end;

  
//  Можно закомментировать "and Wait(tick, interval)", точиться будет намного быстрее,
  // только ощущение такое, что шанс точки меньше, хотя может и показалось
  
if (CurLevel >= 0) and Wait(tickintervalthen begin
    DebugMsg
('точим');
    
buf := HStr('D0 0F 00');
    
WriteD(SKillID);
    
WriteD(CurLevel+1);
    
SendToServerEx(NickName);
    
CurLevel := -1;
  
end;
end
EmL вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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