Куплю фильтр для рпе

Заказы сложных макросов, модификаций и прочих программых разработок. Однако торговля игровыми ценностями, а также вещами, не имещими отношения к РО здесь не разрешена.

Модератор: 4epT

Ответить
crystalius
Новичок
Сообщения: 10
Зарегистрирован: Вт сен 07, 2010 6:04 pm

Куплю фильтр для рпе

Сообщение crystalius »

Значит облегчу задачу тому кто сделает за денежку, весь вечер курю разобраться уже западло.

сервер trendro.com
имею впе и рпе.

значит вот код фильтра мой:

Код: Выделить всё

library rPE_ex;

uses
  windows,
  Winsock2,
  winsock,
  rpefuncs;

function Send_WS1(s: TSocket; var Buf : PChar; len, flags: Integer; pSendWs1, pRecvWs1, pSendWs2, pRecvWs2: Pointer; var IsWorking : Boolean):Integer; stdcall;
var
  CurHex: string;
  i : integer;
begin
  CurHex := GetBufferAsHex(buf, len);
  if (pos('7200',CurHex) <> 0) and (pos('002E00',CurHex) <> 0) then
  begin
     @Send_Callback := pSendWs1;
     for i := 0 to 100 do // How often this packet will be sent. Change to suit your server.
     begin
       sleep(10);    // The delay (Time in ms). You can change this value to best align with your server.
       SendPacket(s,CurHex);
     end;
  end;
  result := 0;
end;

procedure DLL_Load;
begin
 IntLog('C:\rpe_log.log');
end;

procedure DLL_UnLoad;
begin
 Running := false;
 EndLog;
end;

procedure DLLMain(dwR: integer);
begin
  case dwR of
    DLL_PROCESS_ATTACH:
      DLL_Load;
    DLL_PROCESS_DETACH:
      DLL_UnLoad;
  end;
end;

exports
 Send_WS1;
begin
  Running := true;
  DLLProc := @DLLMain;
  DLLMain(DLL_PROCESS_ATTACH);
end.
это иди скилла в хексе, на деле имеем вот что.

Варпаюсь в геф_филд05, включаю сниффер, делаю дабл по кошке, не знаю что за обозначения у рпе, но:
send: 38040A002E00461BB106 hex это и есть дабл по кошке.

002Е00 это вроде как айди скила в хексе, и то что в цикле написал тоже самое, но не робит.

проблема заключается в следующем.

фильтр для спама не робит, но если же добавить в сенд лист дабл по кошке а потом его покрутить, он эту кошку добьёт причем за раз вылетит ровно столько даблов сколько я в делее нарисую.

если я бегу бить валю, я также снифлю один дабл по ней, вингуюсь затрапливаю дорожку и включаю адд лист, опять же убивается в щи.

А мне нужно чтобы я нажатием кнопки мышки и активацией кнопки дабла выпускал столько же даблов как и при сенд листе, причем этот фильтр как раз для этого и сделан.

пишите сюда или пм, я готов все тесты провести, какието сорцы вынести тому кто поможет разобраться с этой проблемой, и заплачу соответственно, на этом ресурсе я давно, только после проблем с форумом под старым логином зайти не могу (onсамый). Я тут регился когда мы как бешенные ботали на раггейме и с каждым патчем флудили на форуме и искали способы запустить кору )))

В целом жду сообщений, а для новичков могу подробный гайд написать, что получается сейчас на многих серверах с впе рпе, и что я научился делать. А что уже не получается и о чем думать не стоит)

зы:
привет с долгопы !
asdert
Начинающий
Сообщения: 31
Зарегистрирован: Ср фев 06, 2008 1:15 am

Re: Куплю фильтр для рпе

Сообщение asdert »

Вот для рпе спам,правда не знаю кто щас рпе пользуется,давно ужэе появились вещи получше:
library rPE_ex;

uses
windows,
Winsock2,
winsock,
rpefuncs;
var
sock: TSocket;
skill:string;
cnt:integer;

procedure spam;
var o:integer;
begin
for o:=1 to cnt do begin
SendPacket(sock,skill);
sleep(100);
end;
end;

//Send_Callback: procedure(s: TSocket; Buf: Pchar; len, flags: Integer); stdcall;
function Send_WS1(s: TSocket; var Buf : PChar; len, flags: Integer; pSendWs1, pRecvWs1, pSendWs2, pRecvWs2: Pointer; var IsWorking : Boolean):Integer; stdcall;
var sk:string;
i:integer;
begin
sk:=GetBufferAsHex(buf,len);
if ((pos('7200',sk)=1) and ((pos('3800ID скила',sk)=21) or (pos('3E00ID скилаID скила',sk)=21))) then begin
Send_Callback:=pSendWs1;
sock:=s;
skill:=sk;
cnt:=10;кол-во ударов за 1 нажатие
StartASThread(@spam);
end;
end;

procedure DLL_Load;
begin
IntLog('rpe_log.log');
end;

procedure DLL_UnLoad;
begin
Running := false;
EndLog;
end;

procedure DLLMain(dwR: integer);
begin
case dwR of
DLL_PROCESS_ATTACH:
DLL_Load;
DLL_PROCESS_DETACH:
DLL_UnLoad;
end;
end;

exports
Send_WS1;
begin
Running := true;
DLLProc := @DLLMain;
DLLMain(DLL_PROCESS_ATTACH);
end.
SuckOrDie
Новичок
Сообщения: 12
Зарегистрирован: Ср окт 06, 2010 2:41 pm
Сервер RO:: runero

Re: Куплю фильтр для рпе

Сообщение SuckOrDie »

давно ужэе появились вещи получше:
например?
crystalius
Новичок
Сообщения: 10
Зарегистрирован: Вт сен 07, 2010 6:04 pm

Re: Куплю фильтр для рпе

Сообщение crystalius »

опробую твой спам через часок, ели заработает кину денежку)
Аватара пользователя
Kissa2k
Профессионал
Сообщения: 1304
Зарегистрирован: Пн дек 04, 2006 8:33 pm

Re: Куплю фильтр для рпе

Сообщение Kissa2k »

SuckOrDie писал(а):
давно ужэе появились вещи получше:
например?
например http://rops.ragial.com/
crystalius
Новичок
Сообщения: 10
Зарегистрирован: Вт сен 07, 2010 6:04 pm

Re: Куплю фильтр для рпе

Сообщение crystalius »

не компилится эта шняга,

TemprPErPE_ex.dpr(35) Warning: Return value of function 'Send_WS1' might be undefined
TemprPErPE_ex.dpr(25) Hint: Variable 'i' is declared but never used in 'Send_WS1'
TemprPErPE_ex.dpr(66) Warning: Text after final 'END.' - ignored by compiler

Добавлено спустя 7 минут 26 секунд:
if ((pos('7200',sk)=1) and ((pos('3800ID скила',sk)=21) or (pos('3E00ID скилаID скила',sk)=21))) then begin

эта строчка у меня выглядет теперь так:

if ((pos('7200',sk)=1) and ((pos('38002E',sk)=21) or (pos('3E002E',sk)=21))) then begin

верно?

а значение коунт cnt которое обязательно 10?

Добавлено спустя 18 минут 51 секунду:
воот черт) нашел сообение Кииса2к на другом форуме, сабж про то что в основе ропс лежат хаки отсыл и вход пакетов, и можно посмотреть на примере основных модулей как это делается с помощью джамп перемычек.

На самом деле это клёво, когда люди разбираются в какой-либо области ) а что делать таким как я?
...
...
...
правильно!) платить за труд людей из первой категории. откликнитесь ау!)
asdert
Начинающий
Сообщения: 31
Зарегистрирован: Ср фев 06, 2008 1:15 am

Re: Куплю фильтр для рпе

Сообщение asdert »

crystalius писал(а): ((pos('38002E',sk)=21

а значение коунт cnt которое обязательно 10?

38002E не правильно переведён,т.е. не правильно вписан(например скил 46 //AC_DOUBLE#Double Strafe# переводим получается 2Е00 выглядеть будет так ('2E00',sk)
cnt какое хочешь такое и ставишь.3-при 1 нажатие спам 3 раза и т.д.Ну рпе уже мало где пашет,лучше используй чё нибудь поновей,хотя бы тот же nodelay+кликер результат тоже не плох.
crystalius
Новичок
Сообщения: 10
Зарегистрирован: Вт сен 07, 2010 6:04 pm

Re: Куплю фильтр для рпе

Сообщение crystalius »

что значит 38002Е не правильно переверден? у меня был изначальный вариант, потом ты мне дал дс спам дял рпе, где было написано так

Код: Выделить всё

if ((pos('7200',sk)=1) and ((pos('3800ID скила',sk)=21) or (pos('3E00ID скилаID скила',sk)=21))) then begin
т.е. я пишу 38002Е?(нет не так верно?) я судя по твоему ответу должен написать 38002E00 ибо так гласит твой код, написать так то я написал, только вот не компилится всё(

зы у тебя же ася есть, в ней тишина
asdert
Начинающий
Сообщения: 31
Зарегистрирован: Ср фев 06, 2008 1:15 am

Re: Куплю фильтр для рпе

Сообщение asdert »

http://webfile.ru/4824473 Конвертер
http://webfile.ru/4824475 ID скилов

Например: скил 42,-1,6,1,-1,0,0,10,1,no,0,0,0,weapon,0 //MC_MAMMONITE#Mammonite#---Выделено в конвертор
На выходе получаем 2A00

Вставляем if ((pos('7200',sk)=1) and ((pos('2A00',sk)=21) or (pos('3E00',sk)=21))) then begin
EternalHarvest
Разработчик
Сообщения: 819
Зарегистрирован: Пн окт 27, 2008 9:49 pm

Re: Куплю фильтр для рпе

Сообщение EternalHarvest »

А зачем под Windows какая-то отдельная программа для перевода чисел в шестнадцатеричную систему счисления?
asdert
Начинающий
Сообщения: 31
Зарегистрирован: Ср фев 06, 2008 1:15 am

Re: Куплю фильтр для рпе

Сообщение asdert »

Ну можно через кальк,ну там удобнее)
crystalius
Новичок
Сообщения: 10
Зарегистрирован: Вт сен 07, 2010 6:04 pm

Re: Куплю фильтр для рпе

Сообщение crystalius »

Вставляем if ((pos('7200',sk)=1) and ((pos('2E00',sk)=21) or (pos('2E00',sk)=21))) then begin

вот так дабл ре наботает, вообщем свяжись со мной по аське или в лс, напишешь с меня колым)

а то что ты кусками пытаешся мне разжевывать, без пояснений это напрасно. Во вторых оно не компилится.
Ответить