Залил рабочий скрипт бота. Пробуйте.
- поправил питьё Алакрити пошн
- показывает центр кача
Добавлено спустя 5 минут:
Re:
Цитата:
|
Сообщение от ASSA
НАрод а можно ли сымитировать нажатие клавиш в л2пкх?
Например каждые 30 сек F2?
%)
|
Вот посмотри, скрипт про клавиши. Сам не пробовал.
Код:
//// для активации скрипта советую создать макрос +panel
{
Заготовка Cкрипта Управления
DeVolf Вчера, 18:42
Вот давно мучался ... Собрал все что надо ... И седня сделал то что действительно хотел )
Поделюсь и с вами )
Это тот самы самый скрипт который я хотел тут viewtopic.php?f=9&t=30&st=0&sk=t&sd=a
Скрипт заготовочный тоесть не надо вырезать куски а только поставить свои условия и переименовать функции )
Коментарии и Спасибо высказаны в скрипте так что "Грайтесь малята"
Сори в скрипте могут быть грамматические ошибки , так что простите , голова уже давно болит
Для тех кто не знает как ставить условие тогда читайте внимательно
1 Запускаем скрипт
2 Используем ту клавишу к которой хотим привязать действие
3 Отлавливаем пакет от клиента он будет типа Бай Пас
4 добавляем в скрипте перед end. такие строчки
Код: Выделить всё
if fromclient and (pck=HStr('в етих скобках пишем пакет который поймали')) then begin
buf:=#$0F;
WriteD(5);
WriteS(HTML2);
SendToClient;
buf:=hstr('а тут пишем пакет действия , которое присвоим клавише');
pck:='';
sendtoserver;
end;
}
const
HTML2='<html>'+
'<body>'+
'<font color="FF9900">Изменено :</font>
'+
'1. Ничего
'+
'2. Ничего
'+
'3. Ничего
'+
'<font color="FF9900">Добавлено :</font>
'+
'1. Ничего
'+
'2. Ничего
'+
'3. Ничего
'+
'
<a action="bypass -h Beck"> Назад</a>'+
'</body>'+
'</html>';
HTML1='<html>'+
'<body> '+
'<font color="FF9900">Большое спасибо: NLObP"у , QaK"е , xkor"у , VORON"у , mks"y и всему форуму xkorem.net ;) .
'+
'Да и очень прошу не изменять ету константу, так как ето все сделать было не легко.
'+
'Пользуйтесь на здорове ;) .
'+
'
Powered by : DeVolf </font> '+
'
<a action="bypass -h Beck"> Назад</a>'+
'</body> '+
'</html>';
HTML=' <html> '+
'<body> '+
'<center> '+
'<font color="FF9900">Универсальный скрипт управления</font>
'+
'<font color="FF0000">Ну чо будем делать?</font> '+
'</center> '+
'</td> '+
'<td width=40> '+
'</tr> '+
'
'+
'<center> '+
'<table width=230> '+
'<tr><td><font color="LEVEL">Управление</font></td><td><font color="LEVEL">Другое</font></td><td><font color="LEVEL">Вапще левое:</font></td></tr> '+
'<tr><td><a action="bypass -h 1"><font color="FF9900">Функция №1</font></a></td><td><a action="bypass -h 13"><font color="FF9900">Функция №1</font></a></td><td><a action="bypass -h 25"><font color="FF9900">Функция №1</font></a></td></tr> '+
'<tr><td><a action="bypass -h 2"><font color="FF9900">Функция №2</font></a></td><td><a action="bypass -h 14"><font color="FF9900">Функция №2</font></a></td><td><a action="bypass -h 26"><font color="FF9900">Функция №2</font></a></td></tr> '+
'<tr><td><a action="bypass -h 3"><font color="FF9900">Функция №3</font></a></td><td><a action="bypass -h 15"><font color="FF9900">Функция №3</font></a></td><td><a action="bypass -h 27"><font color="FF9900">Функция №3</font></a></td></tr> '+
'<tr><td><a action="bypass -h 4"><font color="FF9900">Функция №4</font></a></td><td><a action="bypass -h 16"><font color="FF9900">Функция №4</font></a></td><td><a action="bypass -h 28"><font color="FF9900">Функция №4</font></a></td></tr> '+
'<tr><td><a action="bypass -h 5"><font color="FF9900">Функция №5</font></a></td><td><a action="bypass -h 17"><font color="FF9900">Функция №5</font></a></td><td><a action="bypass -h 29"><font color="FF9900">Функция №5</font></a></td></tr> '+
'<tr><td><a action="bypass -h 6"><font color="FF9900">Функция №6</font></a></td><td><a action="bypass -h 18"><font color="FF9900">Функция №6</font></a></td><td><a action="bypass -h 30"><font color="FF9900">Функция №6</font></a></td></tr> '+
'<tr><td><a action="bypass -h 7"><font color="FF9900">Функция №7</font></a></td><td><a action="bypass -h 19"><font color="FF9900">Функция №7</font></a></td><td><td><a action="bypass -h 31"><font color="FF9900">Функция №7</font></a></td></tr> '+
'<tr><td><a action="bypass -h 8"><font color="FF9900">Функция №8</font></a></td><td><a action="bypass -h 20"><font color="FF9900">Функция №8</font></a></td><td><a action="bypass -h 32"><font color="FF9900">Функция №8</font></a></td></tr> '+
'<tr><td><a action="bypass -h 9"><font color="FF9900">Функция №9</font></a></td><td><a action="bypass -h 21"><font color="FF9900">Функция №9</font></a></td><td><a action="bypass -h 33"><font color="FF9900">Функция №9</font></a></td></tr> '+
'<tr><td><a action="bypass -h 10"><font color="FF9900">Функция №10</font></a></td><td><a action="bypass -h 22"><font color="FF9900">Функция №10</font></a></td><td><a action="bypass -h 34"><font color="FF9900">Функция №10</font></a></td></tr> '+
'<tr><td><a action="bypass -h 11"><font color="FF9900">Функция №11</font></a></td><td><a action="bypass -h 23"><font color="FF9900">Функция №11</font></a></td><td><a action="bypass -h 35"><font color="FF9900">Функция №11</font></a></td></tr> '+
'<tr><td><a action="bypass -h 12"><font color="FF9900">Функция №12</font></a></td><td><a action="bypass -h 24"><font color="FF9900">Функция №12</font></a></td><td><a action="bypass -h 36"><font color="FF9900">Функция №12</font></a></td></tr> '+
'<tr><td></td><td></td><td></td></tr> '+
'</table> '+
'<table width=230> '+
'<tr><td></td><td><a action="bypass -h Exit"><font color="LEVEL">Выход</font></a></td></tr> '+
'</table> '+
'</center> '+
'
<a action="bypass -h Addons">Что нового?</a>
'+
'<a action="bypass -h Creators">Коментарии и Спасибки ;-)</a>
'+
'<font color="FF9900">Powered by : DeVolf Версия реализа:1.1</font> '+
'</body>'+
'</html>';
begin
if fromclient and (pck=HStr('38 70 00 61 00 6E 00 65 00 6C 00 00 00 08 00 00 00')) or (pck=HStr('21 42 00 65 00 63 00 6B 00 00 00')) then begin
buf:=#$0F;
WriteD(5);
WriteS(HTML);
SendToClient;
pck:='';
end;
if fromclient and (pck=HStr('21 43 00 72 00 65 00 61 00 74 00 6F 00 72 00 73 00 00 00')) then begin
buf:=#$0F;
WriteD(5);
WriteS(HTML1);
SendToClient;
pck:='';
end;
if fromclient and (pck=HStr('21 41 00 64 00 64 00 6F 00 6E 00 73 00 00 00')) then begin
buf:=#$0F;
WriteD(5);
WriteS(HTML2);
SendToClient;
pck:='';
end;
end.