Показать сообщение отдельно
Старый 20.04.2009, 19:49   #10
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

аналогичный скрипт, только ид випона, лсов, гемов, кол-во гемов не надо вводить, включаем скрипт и аугментируем пуху вручную 1раз, скприпт считывает все нужные данные для аугментации и ее снятия, далее 2соц действие вытащить лс, 1е соц действие вставить, писал для грации 2, на других хорониках не проверял
delphi Код:
const    nik='ник'; var    WeaponID, LsID, GemID, GemCount: integer; procedure Init; //Вызывается при включении скрипта begin end; procedure OnTimer01(Sender: TObject); begin end; procedure Free; //Вызывается при выключении скрипта begin end; procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения begin end; procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения begin end; //основная часть скрипта //вызывается при приходе каждого пакета если скрипт включен begin     if FromClient and (pck[1]=#$D0) then         begin            WeaponID:=ReadD(4);            LsID:=ReadD(8);            GemID:=ReadD(12);            GemCount:=ReadD(16);         end; //Cancel Augment     if FromClient and (pck=#$34#$03#$00#$00#$00) then        begin           pck:='';           Buf:=#$D0#$45#$00;           WriteD(WeaponID);           SendToServerEx(nik);           Buf:=#$D0#$46#$00;           WriteD(WeaponID);           SendToServerEx(nik);        end; //Augment     if FromClient and (pck=#$34#$02#$00#$00#$00) then        begin           pck:='';           Buf:=#$D0#$44#$00;           WriteD(WeaponID);           WriteD(LsID);           WriteD(GemID);           WriteD(GemCount);           SendToServerEx(nik);        end; end.

Последний раз редактировалось mks, 20.04.2009 в 19:58.
mks вне форума   Ответить с цитированием
За это сообщение mks нажился 6 спасибками от: