Программа для автоматического пожирания банок

[Dinmaite]

Эти 2 офсета нужно будет менять тогда, когда на руофе введут Генезис, а до тех пор они равны указанным.

[Mardoc]

Домучал ее, заработала, подделал под себя, в общем за исходники большое спасибо

[Dima311]

как доделал? подскажи плиз

[Sirioga]

Цитата: Сообщение от Dima311 как доделал? подскажи плиз

Оперировать можно только вот этими: base_addr, unfreeze_addr, MaxHP, HP, MaxMP, MP, GamerName. Взять их можешь из этой темы. И сам доделаешь.

[Dev4enka]

У меня проблема с прогой запускаю прогу вроде норм связываюсь с сервером,связь проходит удачно.Банки кушает все норм. Но в проге непоказывает скока у мя процентов хп и мп (всегда ноль) и банки кушает неостанавливаясь через каждые 16 сек .
Подскажите что нужно сделать чтоб прога видела скока у мя процентов ХП и МП .

[semoder]

В PWA.ini
Вот это:
[Base]
base_addr=009C0E6C
game_addr_offset=0000001C
gamer_addr_offset=00000020
unfreeze_addr=009C1984
[Gamer]
HP=0000046C
MaxHP=000004A4
MP=00000470
MaxMP=000004A8
GamerName=00000608

Замени на вот это:
[Base]
base_addr=00A5B90C
game_addr_offset=0000001C
gamer_addr_offset=00000020
unfreeze_addr=00A5C43C
[Gamer]
HP=00000474
MaxHP=000004B4
MP=00000478
MaxMP=000004B8
GamerName=00000618

[Dev4enka]

вот терь видно в проге скока хп и мп,но терь неработает юзание банок

[XPlay]

автокликер

[Python]

Причем тут твой автокликер?

[jdark]

чет объем не маленький
а скрины есть? тож такой проектик веду, вот скринчик
http://i.zhyk.ru/?v=nrnnrn.png
учтены откаты сосок химии розовых синих красных банок
вот только не знаю на шару выкладывать нет, врагам ведь попадет)

[VeTaL_UA]

Цитата: Сообщение от jdark чет объем не маленький

Нормальный объем. Или тебе места на диске жалко?)

Цитата: Сообщение от jdark тож такой проектик веду

Я думаю, что все программисты, которые играют в ПВ ведут подобный проект, так как такая программа намного упрощает ПвП...
Вот скринчик моего "проекта"...

[Ссылки могут видеть только зарегистрированные пользователи. ]

Цитата: Сообщение от jdark вот только не знаю на шару выкладывать нет

Я бы не выкладывал, так как

Цитата: Сообщение от jdark врагам ведь попадет

.

[jdark]

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

[VeTaL_UA]

Цитата: Сообщение от jdark защиту от ненужного поедания химии после респа на гвг сделал?

Ну что-то в этом роде...

Цитата: Сообщение от jdark страшный то какой

Раньше был стандартный делфийский дизайн, а потом немного изменить решил) мне нравится)

Цитата: Сообщение от jdark не, мне критично не на диске место, а в памяти

а что, по твоему, если программа занимает много места на диске, то она и памяти много жрёт?)

Цитата: Сообщение от jdark кстати судя по интерфейсу инжектами пользуешься?

Наполовину... Некоторые действия инжектами, а некоторые пакетами... Я бы всё на пакетах сделал, но как-то в лом переделывать...

Цитата: Сообщение от jdark как по твоему стабильности клиента от этого страдает?

По моему, нет, хотя здесь стоит задуматься...

[jdark]

про объем как сказать не прямая зависимость, но очень близко

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

[VeTaL_UA]

Цитата: Сообщение от jdark хотя с другой стороны чтобы пакеты отправлять тут тоже ведь инжекты используются?

Ну да. Инжект пакетов:

procedure PacketCall(aPParams:PParams); stdcall;
var
  CallAddress,pPacket:pointer;
  Len:DWord;
begin
  CallAddress:=Pointer($005D7C30);
  Len:=aPParams^.Param1;
  pPacket:=@aPParams^.Packet;
  asm
    pushad
    mov ecx, dword ptr [PW_BASE_ADDRESS]
    mov ecx, dword ptr [ecx+$20]
    push Len
    push pPacket
    call CallAddress
    popad
  end;
end;

procedure StrToByte(Packet:string; var aParams:TParams);
var
  i:integer;
begin
  i:=(length(Packet) div 2)-1;
  aParams.Param1:=i+1;
  for i:=0 to i do
    aParams.Packet[i]:=strtoint('$'+Packet[i*2+1]+Packet[i*2+2]);
end;

procedure Packet(Packet: string);
var
  aParams: TParams
begin
  StrToByte(Packet,aParams);
  InjectFunc(ProcessID,@PacketCall,@aParams,sizeof(aParams));
end;