[Помогите!] Написание программы на Delphi 7

[aktivizion15]

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

function FoundNPC(NameNPC: string): TNPC; overload;
function FoundNPC(wid: dword): TNPC; overload;
procedure Repair;
procedure Sell(id: DWORD; inv_loot_count, i: integer);
procedure Buy(id: DWORD; Count,PosInNcp: integer);

нужно выделить нпц?
FoundNPC('Имя нпц')

и код сводится до минимума

[Skuka.95]

Цитата: Сообщение от aktivizion15 и код сводится до минимума

ну да... только я инжектом не пользуюсь) предпочитаю пакеты) а с пакетами и так мало кода)

[aktivizion15]

Цитата: Сообщение от Skuka.95 ну да... только я инжектом не пользуюсь) предпочитаю пакеты) а с пакетами и так мало кода)

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

[Skuka.95]

Цитата: Сообщение от aktivizion15 где что нужно, то и использую

ну значит буду спрашивать тя если чё)

[Ампутатор]

Цитата: Сообщение от Skuka.95 Ампутатор, да изучаю... а ты чё в этом разделе забыл чуб ?

сам ты чупХ_Хнеделю назад тоже начал делфи изучать ,по каким-то так сказать не очень хорошим урокам,но моего хотения хватило на 2-3 дня

[Skuka.95]

Цитата: Сообщение от Ампутатор ,по каким-то так сказать не очень хорошим урокам

скачай уроки от владимира любаева всего то 4гига...

[lcd1232]

Skuka.95, как раз его уроки и есть полное [Ссылки могут видеть только зарегистрированные пользователи. ]. А вот [Ссылки могут видеть только зарегистрированные пользователи. ] чела уроки в разы лучше будет.

[Moder Death]

нука секите пасаны... прально замутил?
это посмотреть на ид клана своего персонажа проверка

const
ba=$B280C4;

var
wh:THandle;
hProcess,PID,ufo,BytesCount,cid:dword;

begin
wh:=findwindow('elementclient window',nil);
GetWindowThreadProcessId(wh, @PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
try
ReadProcessMemory(hProcess,ptr(ba),@ufo,4,BytesCount);
ReadProcessMemory(hProcess,ptr(ufo+$34),@ufo,4,BytesCount);
ReadProcessMemory(hProcess,ptr(ufo+$604),@cid,4,BytesCount);
if hProcess<>0 then
Label1.Caption:='подключено'
else
Label1.Caption:='игра не найдена';
if hProcess<>0 then
Label5.Caption:=IntToStr(cid);
finally
closehandle(hProcess);
end;
end;

end.

циферки показывает разные в лэйбле в зависимости от клана

а как теперь замутить чтоб ид клана таргета показывало?

[Skuka.95]

Цитата: Сообщение от lcd1232 Skuka.95, как раз его уроки и есть полное УГ

тролишь ?) я норм по его урокам учился, всё понятно... для новичка в самый раз...

[VeTaL_UA]

Цитата: Сообщение от lcd1232 Skuka.95, как раз его уроки и есть полное [Ссылки могут видеть только зарегистрированные пользователи. ]. А вот [Ссылки могут видеть только зарегистрированные пользователи. ] чела уроки в разы лучше будет.

У роки от Владимира Любаева лучшие во всём интернете. Человек, не знающий ничего про программирование, может за две недели научится основам программирования.

[Skuka.95]

Цитата: Сообщение от VeTaL_UA У роки от Владимира Любаева лучшие во всём интернете. Человек, не знающий ничего про программирование, может за две недели научится основам программирования.

во во (хоть сам он и опечатывается кучу раз =) )

Цитата: Сообщение от lcd1232 А вот этого чела уроки

Цитата: Сообщение от lcd1232 и есть полное УГ

вот так надо было писать)