Цитата:
Сообщение от Тигрь
ну да вирусы в текстовом скрипт файле ога.
все то же самое можно было сделать в WPF от саурона но не суть.
@microlaba6331 ты чож так быдлокодишь, учись нормально код писать а не все встолбик без отступов. код же нечитаем. вот как надо делать:
Код:
var
flag2, flag1: integer;
ammo: word;
procedure recording();
begin
end;
begin
if (Fromclient) and (ReadC(1) = $05) and (ReadC(2) = 01) and (flag1 = 1) then // ловим стих патроны
begin
buf := HStr('02 0a 02 E4 03 00 00 44 65 78 74 00 CC CC CC CC CC CC CC CC CC CC CC CC 02 00 07 0E E7 E0 EF E8 F1 E0 EB 00');
sendtoclient;
buf := pck;
ammo := readh(7);
flag1 := 0; // опускаем флаг и не ищем более патроны
flag2 := 1; // поднимаем флаг для подмены патронов
end;
if (Fromclient) and (ReadC(1) = $05) and (ReadC(2) = 01) and (flag2 = 1) then // ловим пакет атаки и проверяем
begin // включена ли подмена патронов
buf := pck;
writeh(ammo, 7);
pck := buf;
end;
if (Fromclient) and (ReadC(1) = $0D) and (readh(2) = 8214) and (flag2 = 0) then // включение скрипта по кнопке растягиваюсь 8214
begin
buf := HStr('02 0a 02 E4 03 00 00 44 65 78 74 00 CC CC CC CC CC CC CC CC CC CC CC CC 02 00 07 0E E2 EA EB FE F7 E0 FE 20 E7 E0 EF E8 F1 FC 00');
sendtoclient;
pck := '';
flag1 := 1;
recording();
end;
if (Fromclient) and (ReadC(1) = $0D) and (readh(2) = 8214) and (flag2 = 1) then // ловим пакет растягиваюсь 8214
begin // выключаем подмену
flag2 := 0;
buf := HStr('02 0a 02 E4 03 00 00 44 65 78 74 00 CC CC CC CC CC CC CC CC CC CC CC CC 02 00 07 0E E2 FB EA EB FE F7 E8 EB 00');
sendtoclient;
pck := '';
end;
end.
Добавлено через 1 минуту
не обращай внимания, человек просто не разбирается в читах, скриптах и прочих читерских вещах. лучше напиши на каком серве это ты снимал.
Добавлено через 8 минут
обязательно рекомендую к прочтению вот это
Добавлено через 21 минуту
тут еще немного погуглил вот есть софт для автоматического форматирования исходных текстов на паскале можешь через него все свои скрипты прогнать
|
Сервер Force далеко не на первых позиция ммотопа, как оказалось пофикшено накрутка на милишных пухах что чуть не вбило меня в отчаяние при моих потугах сделать хоть что-то рабочее, паскаль и фаст скрипт начал учить только 2 недели назад, мой код хотел бы пнуть меня сам но пока на это не способен, с впф если четсно вообще не сталкивался, 3 недели назад что такое впе про и впф вообще не знал, за совет по оформлению кода сбасибо.
P.S. л2пх скрипты работают на FS(возможно разновидность обжект паскаля(делфи) но это не точно) и можно вроде как подгружать библиотеки но для меня это пока что дикий лес со страшными зверушками