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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 18.06.2009, 18:38   #561
Новичок
 
Регистрация: 16.06.2009
Сообщений: 12
Сказал Спасибо: 6
Имеет 0 спасибок в 0 сообщенях
gtynfujy924 пока неопределено
По умолчанию

я вот так сделал, но оно токо спойл кидает (очень редко), свип не делает, семку не вбивает...



delphi Код:
procedure PhisicalAttack;          // команда атаки var ppp1: integer; begin buf:=#$04; //action   WriteD(TargetID);   WriteD(MyX);   WriteD(MyY);   WriteD(MyZ);   WriteC(0);   SendToServerEx(NickName); if ppp1 = targetid then begin ppp1:= targetid end else begin buf:=HStr('14 6C 7A 0C 10 00 00 00 00 ');      //семка buf:=HStr('2F FE 00 00 00 00 00 00 00 00 ');      //spoil   SendToServerEx(NickName); End;      ppp1:= targetid end; procedure InitPickUpMode(mode: boolean); begin  if mode then   begin    PickUpMode:= true;    TimerCombat.enabled:= false;    TimerPickUp.enabled:= true;   end  else   begin    PickUpMode:= false;    TimerCombat.enabled:= true;    TimerPickUp.enabled:= false;   end; end; а при таком расскладе семку забивает в моба..очень редко,  но нужен и спойл..; как сделать что бы бот постоянно кидал спойл или манор? на каждого моба, а не через пару раз? (извините, мож там ниче, но я не разбираюсь ни грама в скриптах, такого уже напутал.. что...) procedure PhisicalAttack;          // команда атаки var ppp1: integer; begin buf:=#$04; //action   WriteD(TargetID);   WriteD(MyX);   WriteD(MyY);   WriteD(MyZ);   WriteC(0);   SendToServerEx(NickName); if ppp1 = targetid then begin ppp1:= targetid end else begin buf:=HStr('14 6C 7A 0C 10 00 00 00 00 ');      //семка   SendToServerEx(NickName); End;      ppp1:= targetid end; procedure InitPickUpMode(mode: boolean); begin  if mode then   begin    PickUpMode:= true;    TimerCombat.enabled:= false;    TimerPickUp.enabled:= true;   end  else   begin    PickUpMode:= false;    TimerCombat.enabled:= true;    TimerPickUp.enabled:= false;   end; end;

Последний раз редактировалось QaK, 30.06.2009 в 20:02.
gtynfujy924 вне форума   Ответить с цитированием
Старый 18.06.2009, 22:46   #562
Пользователь
 
Регистрация: 22.04.2009
Сообщений: 72
Сказал Спасибо: 25
Имеет 19 спасибок в 9 сообщенях
Lynx пока неопределено
По умолчанию

buf:=HStr('14 6C 7A 0C 10 00 00 00 00 '); //семка
buf:=HStr('2F FE 00 00 00 00 00 00 00 00 '); //spoil
SendToServerEx(NickName);
ошибка надо так

buf:=HStr('14 6C 7A 0C 10 00 00 00 00 '); //семка
SendToServerEx(NickName);//Сюда, возможно, надо задержку
buf:=HStr('2F FE 00 00 00 00 00 00 00 00 '); //spoil
SendToServerEx(NickName);
Я вроде делал на спойл? пакеты там замени
Lynx вне форума   Ответить с цитированием
Старый 30.06.2009, 06:17   #563
Пользователь
 
Аватар для Doberman
 
Регистрация: 29.06.2009
Сообщений: 48
Сказал Спасибо: 10
Имеет 3 спасибок в 2 сообщенях
Doberman пока неопределено
По умолчанию

Люди у мну вопрос такой(заранее говорю тему всю не перечитывал мож он и ужэ звучал,тогда извиняйте) :
Где в скрипте на мулити титул изменить врямя смены?,чтоб бегущей строкой шол нормально,а то еле ползёт((
Менял тут :
//таймер
Timer := TTimer.Create(Main);
Timer.Interval := 1050;
Timer.Enabled := False;
Timer.onTimer := @TimerTimer;

Button := TButton.Create(Main);
Button.Parent := Main;
Button.Caption := 'Старт';
Button.Left := 10;
Button.Top := 10;
Button.onClick := @ButtonClick;
но нечего неизменилось
Кто подскажет?
Doberman вне форума   Ответить с цитированием
Старый 30.06.2009, 10:07   #564
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от Doberman Посмотреть сообщение
Timer.Interval := 1050;
Да, время здесь меняется. 1 сек = 1000.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
Старый 01.07.2009, 05:36   #565
Пользователь
 
Аватар для Doberman
 
Регистрация: 29.06.2009
Сообщений: 48
Сказал Спасибо: 10
Имеет 3 спасибок в 2 сообщенях
Doberman пока неопределено
По умолчанию

Цитата:
Сообщение от NLObP Посмотреть сообщение
Да, время здесь меняется. 1 сек = 1000.
Хм... менял,чтот неособо разницу почуствовал,сейчас есщё попробую

Добавлено через 42 минуты
Некатит,скорость увеличиваеш он один раз прокручивается и встаёт(

Последний раз редактировалось Doberman, 01.07.2009 в 05:36. Причина: Добавлено сообщение
Doberman вне форума   Ответить с цитированием
Старый 03.07.2009, 02:07   #566
Пользователь
 
Аватар для Liiion911
 
Регистрация: 19.05.2009
Сообщений: 56
Сказал Спасибо: 4
Имеет 3 спасибок в 3 сообщенях
Liiion911 пока неопределено
По умолчанию

Небольшой вопрос:
Можно ли написать кусочек кода для поднятий Herb's на хп или ману.

Если это уже реализовано, былобы неплохо ссылку...
Если же нет, каму не сложно, плиз
Liiion911 вне форума   Ответить с цитированием
Старый 26.07.2009, 00:56   #567
Местный
 
Аватар для 8tomat8
 
Регистрация: 17.01.2009
Сообщений: 282
Сказал Спасибо: 64
Имеет 81 спасибок в 63 сообщенях
8tomat8 пока неопределено
По умолчанию

Вернемся у первому посту)))) у меня не хочет моба в базу добавлять, вообще) все остальные действия работают, а добавление мобов заканчивается на фразе в чата "Доьавляем моба 1" и все)) если есть соображения то плиз, в ручную прямо в скрипт впихнуть Имена мобов так и не придумал как(

Сори но больше 3к символов незя) так что залил на дамп
__________________
помог?СКАЖИ СПАСИБО!)

Мастерство программиста не в том, чтобы писать программы, работающие без ошибок, а в том, чтобы писать программы, работающие при любом количестве ошибок.
Цитата:
[10-06, 14:15] efreet Заплачу за настройку l2px
[11-06, 09:25] xkor не плач)
Цитата:
Сообщение от Psih Посмотреть сообщение
Вот еще один вопрос:Вот вчера было све нормально
8tomat8 вне форума   Ответить с цитированием
Старый 23.09.2009, 23:34   #568
Новичок
 
Регистрация: 14.09.2009
Сообщений: 28
Сказал Спасибо: 5
Имеет 5 спасибок в 3 сообщенях
ramblik пока неопределено
По умолчанию

Соро будет бот Спойлер Ждите)
ramblik вне форума   Ответить с цитированием
Старый 24.09.2009, 02:48   #569
Местный
 
Аватар для nezabudkin
 
Регистрация: 06.03.2008
Сообщений: 154
Сказал Спасибо: 46
Имеет 130 спасибок в 38 сообщенях
nezabudkin
По умолчанию

Цитата:
Сообщение от 8tomat8 Посмотреть сообщение
Вернемся у первому посту)))) у меня не хочет моба в базу добавлять, вообще) все остальные действия работают, а добавление мобов заканчивается на фразе в чата "Доьавляем моба 1" и все))
Блин, пишите хоть про какой скрипт спрашиваете.
Но в твоем случае, чтобы моб добавился, его надо замочить (убить, грохнуть, прикончить
nezabudkin вне форума   Ответить с цитированием
Старый 24.09.2009, 18:59   #570
Новичок
 
Регистрация: 14.09.2009
Сообщений: 28
Сказал Спасибо: 5
Имеет 5 спасибок в 3 сообщенях
ramblik пока неопределено
По умолчанию

Вот вам ботик на спойл и свип делает все автоматом но у меня лагает чуть.
Качайте 2 версию ниже постом
Вложения
Тип файла: zip Бот Locomotiv and Smuta.zip (13.3 Кб, 57 просмотров)

Последний раз редактировалось ramblik, 24.09.2009 в 20:15.
ramblik вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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