Скриптинг Форум посвещенный созданию скриптов для L2PacketHack
18.06.2009, 18:38
#561
Новичок
Регистрация: 16.06.2009
Сообщений: 12
Сказал Спасибо: 6
Имеет 0 спасибок в 0 сообщенях
я вот так сделал, но оно токо спойл кидает (очень редко), свип не делает, семку не вбивает...
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 .
18.06.2009, 22:46
#562
Пользователь
Регистрация: 22.04.2009
Сообщений: 72
Сказал Спасибо: 25
Имеет 19 спасибок в 9 сообщенях
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);
Я вроде делал на спойл? пакеты там замени
30.06.2009, 06:17
#563
Пользователь
Регистрация: 29.06.2009
Сообщений: 48
Сказал Спасибо: 10
Имеет 3 спасибок в 2 сообщенях
Люди у мну вопрос такой(заранее говорю тему всю не перечитывал мож он и ужэ звучал,тогда извиняйте) :
Где в скрипте на мулити титул изменить врямя смены?,чтоб бегущей строкой шол нормально,а то еле ползёт((
Менял тут :
//таймер
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;
но нечего неизменилось
Кто подскажет?
30.06.2009, 10:07
#564
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
Цитата:
Сообщение от
Doberman
Timer.Interval := 1050;
Да, время здесь меняется. 1 сек = 1000.
01.07.2009, 05:36
#565
Пользователь
Регистрация: 29.06.2009
Сообщений: 48
Сказал Спасибо: 10
Имеет 3 спасибок в 2 сообщенях
Цитата:
Сообщение от
NLObP
Да, время здесь меняется. 1 сек = 1000.
Хм... менял,чтот неособо разницу почуствовал,сейчас есщё попробую
Добавлено через 42 минуты
Некатит,скорость увеличиваеш он один раз прокручивается и встаёт(
Последний раз редактировалось Doberman, 01.07.2009 в 05:36 .
Причина: Добавлено сообщение
03.07.2009, 02:07
#566
Пользователь
Регистрация: 19.05.2009
Сообщений: 56
Сказал Спасибо: 4
Имеет 3 спасибок в 3 сообщенях
Небольшой вопрос:
Можно ли написать кусочек кода для поднятий Herb's на хп или ману.
Если это уже реализовано, былобы неплохо ссылку...
Если же нет, каму не сложно, плиз
26.07.2009, 00:56
#567
Местный
Регистрация: 17.01.2009
Сообщений: 282
Сказал Спасибо: 64
Имеет 81 спасибок в 63 сообщенях
Вернемся у первому посту)))) у меня не хочет моба в базу добавлять, вообще) все остальные действия работают, а добавление мобов заканчивается на фразе в чата "Доьавляем моба 1" и все)) если есть соображения то плиз, в ручную прямо в скрипт впихнуть Имена мобов так и не придумал как(
Сори но больше 3к символов незя) так что залил на
дамп
__________________
помог?
СКАЖИ СПАСИБО!)
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок, а в том, чтобы писать программы, работающие при любом количестве ошибок.
Цитата:
[10-06, 14:15] efreet Заплачу за настройку l2px
[11-06, 09:25] xkor не плач)
Цитата:
Сообщение от
Psih
Вот еще один вопрос:Вот вчера было све нормально
23.09.2009, 23:34
#568
Новичок
Регистрация: 14.09.2009
Сообщений: 28
Сказал Спасибо: 5
Имеет 5 спасибок в 3 сообщенях
Соро будет бот Спойлер Ждите)
24.09.2009, 02:48
#569
Местный
Регистрация: 06.03.2008
Сообщений: 154
Сказал Спасибо: 46
Имеет 130 спасибок в 38 сообщенях
Цитата:
Сообщение от
8tomat8
Вернемся у первому посту)))) у меня не хочет моба в базу добавлять, вообще) все остальные действия работают, а добавление мобов заканчивается на фразе в чата "Доьавляем моба 1" и все))
Блин, пишите хоть про какой скрипт спрашиваете.
Но в твоем случае, чтобы моб добавился, его надо замочить (убить, грохнуть, прикончить
24.09.2009, 18:59
#570
Новичок
Регистрация: 14.09.2009
Сообщений: 28
Сказал Спасибо: 5
Имеет 5 спасибок в 3 сообщенях
Вот вам ботик на спойл и свип делает все автоматом но у меня лагает чуть.
Качайте 2 версию ниже постом
Последний раз редактировалось ramblik, 24.09.2009 в 20:15 .
Опции темы
Опции просмотра
Линейный вид
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 08:10 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!