Скриптинг Форум посвещенный созданию скриптов для L2PacketHack
23.08.2010, 13:15
#1
Новичок
Регистрация: 22.08.2010
Сообщений: 18
Сказал Спасибо: 8
Имеет 0 спасибок в 0 сообщенях
щас:Р пспспсп)
Добавлено через 18 минут
вот чето нарисовала
если не так плис поправьте если несложно:Р
delphi Код:
const
nik='Astery' ;
Enchant=9 ;
var
UseItem, SelectItem, EnchantItem: string ;
CurrentEnch: integer ;
key: byte ;
Timer01: TTimer;
procedure OnTimer01( Sender: TObject ) ;
begin
inc ( key) ;
case key of
1 :begin
buf:=UseItem;
SendToServerEx( nik) ;
end ;
2 :begin
buf:=EnchantItem;
SendToServerEx( nik) ;
end ;
3 :begin
buf:=SelectItem;
SendToServerEx( nik) ;
Timer01.enabled :=false ;
key := 0 ;
end ;
end ;
end ;
procedure Init;
begin
Timer01:=TTimer.Create ( nil ) ;
Timer01.OnTimer :=@OnTimer01;
Timer01.enabled :=false ;
Timer01.interval :=5640 ;
key := 0 ;
end ;
procedure Free;
begin
Timer01.free ;
CurrentEnch:=0 ;
end ;
begin
if FromServer then //от сервера.
case pck[1 ] of
#$87 :
case ReadD( 2 ) of
0 :begin
inc ( CurrentEnch) ;
Timer01.enabled := ( CurrentEnch = Enchant) ; //держим таймер включеным пока не достигнут нужный енчант.
end ;
3 : CurrentEnch := 0 ;
end ;
end
else //от клиента.
case pck[1 ] of
#$19 : UseItem:=pck;
#$D0: SelectItem:=pck;
#$5F: EnchantItem:=pck;
#$49 : //say
case reads( 2 ) of
'2' :begin //say '2'
pck := '' ;
Timer01.enabled :=not Timer01.enabled ;
end ;
end ;
end ;
end .
Последний раз редактировалось alexteam, 23.08.2010 в 13:50 .
Причина: Добавлено сообщение
23.08.2010, 13:38
#2
Местный
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
Почти правильно.
Только вместо key: boolean используйте key: integer , ну и соответственно уже управляйте значением key. Не забудьте задать начальное значнеие этой переменной.
А еще для более оптимальной работы внутри таймера изменяйте интервал Timer01.interval:=1000; на нужный вам.
__________________
В любом из нас спит гений. И с каждым днем все крепче.
Переходим на протокол нового поколения jabber
23.08.2010, 13:51
#3
Новичок
Регистрация: 22.08.2010
Сообщений: 18
Сказал Спасибо: 8
Имеет 0 спасибок в 0 сообщенях
вообще не поняла)))
просто заменить в начале это key: boolean на это key: integer ?
я чет не понимать терь ничо хД
23.08.2010, 14:05
#4
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
Astery , сорри, я стормозил. Она изменяет свое значение в кейсе.
За это сообщение NLObP нажился спасибкой от:
23.08.2010, 13:57
#5
Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
__________________
L2Ext - project closed.
23.08.2010, 14:01
#6
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
Переменная key нигде не изменяет своего значения, кроме как сброс её в ноль.
23.08.2010, 14:05
#7
Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
NLObP , ниправда. самая первая инструкция в обработчике таймера.
Astery , счетчик.
__________________
L2Ext - project closed.
За это сообщение alexteam нажился спасибкой от:
23.08.2010, 14:01
#8
Новичок
Регистрация: 22.08.2010
Сообщений: 18
Сказал Спасибо: 8
Имеет 0 спасибок в 0 сообщенях
вообще что такое переменная key? я чет не совсем поняла)
23.08.2010, 14:18
#9
Местный
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
Минут 5 втыкал на последний скрипт, думал крыша едет - час назад вроде как другой был, потом удосужился чуть страничку промотать вниз и увидел "Последний раз редактировалось alexteam"
Там еще в таймере добавить Timer01.interval:=****; - чтобы задержки были разными для разных действий.
__________________
В любом из нас спит гений. И с каждым днем все крепче.
Переходим на протокол нового поколения jabber
За это сообщение J-Fobos нажился спасибкой от:
23.08.2010, 14:21
#10
Новичок
Регистрация: 23.08.2010
Сообщений: 1
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
суть в том что кикает, как при клике 2й раз на скрол, когда 1й еще не доточил...
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 17:53 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!