Скриптинг Форум посвещенный созданию скриптов для L2PacketHack
16.07.2009, 12:14
#1
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
Уважаемые! Вам дали отправную точку. Остальные исправления для конкретного сервера делайте сами. Почему не можете понять, что у топискастера может не быть возможности, времени или желания править каждую запятую?
PS: От полученных результатов не откажемся.
За это сообщение NLObP нажился спасибкой от:
16.07.2009, 18:23
#2
Местный
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Дайте плз какие-нить советы чтоли, куда вообще копать для проверки нахождения вещи в отсеке точки..
Ну или как добавить промежуток в данном скрипте, если он уже реализован через Timer, not и case?
16.07.2009, 18:35
#3
Рыцарь
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
Ну поскольку этот промежуток я думаю не следует делать таким же большим как и в основном таймере, считаю будет лучше добавить второй таймер, ща сотрудники свалят попробуем
За это сообщение mks нажился спасибкой от:
16.07.2009, 19:01
#4
Местный
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
mks ,
Ну а проверить наличие в слоте похоже невозможно.. ничего подобного не приходит и не уходит в пакетах.
16.07.2009, 19:24
#5
Рыцарь
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
Amorality , добавил 2й таймер, в данном скрипте получается идет пакет UseItem, 500ms, SelectItem, 2500ms(этот интервал равен интервал 1го таймера минус интервал 2го), EnchantItem.
Пробуй, скрипт в блокноте писал)
delphi Код:
const
nik='xxxx' ;
Enchant=16 ;
var
UseItem, SelectItem, EnchantItem: string ;
CurrentEnch: integer ;
key: boolean ;
Timer01, Timer02: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create ( nil ) ;
Timer01.OnTimer :=@OnTimer01;
Timer01.enabled :=false ;
Timer01.interval :=3000 ;
Timer02:=TTimer.Create ( nil ) ;
Timer02.OnTimer :=@OnTimer02;
Timer02.enabled :=false ;
Timer02.interval :=500 ;
end ;
procedure OnTimer01( Sender: TObject ) ;
begin
case key of
false : begin
buf:=UseItem;
SendToServerEx( nik) ;
Timer02.enabled :=true ;
end ;
true : begin
buf:=EnchantItem;
SendToServerEx( nik) ;
end ;
end ;
key:=not ( key) ;
end ;
procedure OnTimer02( Sender: TObject ) ;
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
0 : begin
CurrentEnch:=CurrentEnch+1 ;
if CurrentEnch=Enchant then Timer01.enabled :=false ;
end ;
3 : CurrentEnch:=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 .
Последний раз редактировалось mks, 16.07.2009 в 19:35 .
За это сообщение mks нажился 5 спасибками от:
17.07.2009, 00:52
#6
Местный
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
mks ,
Все пашет, спасибо большое
18.07.2009, 13:42
#7
Новичок
Регистрация: 18.07.2009
Сообщений: 3
Сказал Спасибо: 3
Имеет 0 спасибок в 0 сообщенях
День добрый. Решил вот юзануть срипт на автозаточку с 2мя таймерами, в итоге через 5,10,15 мин кикает уведомляя что я кабы пользуюсь нелегальной программой, увеличение тамера 1 и 2 ни к чему не приводитк кроме как, еще быстрее выскакивает ошибка. в чем трабла и как решить ее?
http://tbs.org.ru/ вот серв
19.07.2009, 00:51
#8
Рыцарь
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
Цитата:
Сообщение от
DarkSnake
День добрый. Решил вот юзануть срипт на автозаточку с 2мя таймерами, в итоге через 5,10,15 мин кикает уведомляя что я кабы пользуюсь нелегальной программой, увеличение тамера 1 и 2 ни к чему не приводитк кроме как, еще быстрее выскакивает ошибка. в чем трабла и как решить ее?
http://tbs.org.ru/ вот серв
Бывает такая маза, но чет я не вкурю пока из-за чего....
За это сообщение mks нажился спасибкой от:
18.07.2009, 13:58
#9
Новичок
Регистрация: 29.01.2009
Сообщений: 15
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
такая же самая ошибка на этом сервере, сборка L2Jserver зделайте плиз скрипт для этого сервера
18.07.2009, 17:09
#10
Пользователь
Регистрация: 06.06.2009
Сообщений: 92
Сказал Спасибо: 31
Имеет 9 спасибок в 8 сообщенях
пишите скрипты сами под свой сервер....уже столько разных скриптов было выложено, что я уже не знаю как можно не додуматься склепать скрипт самому!
За это сообщение HORSE нажился спасибкой от:
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 17:42 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!