[Delphi] Пишем FastZoom для CS.

[jaja123]

Создаём Fast zoom.
Клавиша фастзума будет на mouse3, для удобства.

Кидаем на форму Timer1.
Ставим:
Interval = 1
Enabled = true

В нём пишем:

procedure TForm1.Timer6Timer(Sender: TObject);var
HSD: HWND;
begin
HSD:=FindWindow(nil,'Counter-Strike'); // Ищем хандл
if GetKeyState(03) <> 0 then // когда нажимаем Mouse3 (mouse3 в коде пишется как 03), происходит:
begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,Mouse.CursorPos.X,Mouse.CursorPos.Y,0,0); //Нажимаем mouse2, тоесть целимся.
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,Mouse.CursorPos.X,Mouse.CursorPos.Y,0,0);
Sleep(30);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN,Mouse.CursorPos.X,Mouse.CursorPos.Y,0,0); //нажимаем mouse1, тоесть стреляем.
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTUP,Mouse.CursorPos.X,Mouse.CursorPos.Y,0,0);
end;

end;

[ashe]

а как же

alias at1 "+attack; wait; -attack; wait;"
alias at2 "+attack2; wait; -attack2; wait;"
alias lst "lastinv; wait; lastinv; wait;"

alias fastkill "at2; at2; at1; lst;"

bind mouse3 "fastkill"

[Tr0y]

Команда wait; по дефолту отключена на сервере, если админам "скриптописатели" неугодны, разве нет? Причем это правило распространено для steam движка любой из игр, ну точно знаю, что в том же HL2DM или tf2 эту штуку отрубают от скриптописателей, ибо "неправославно".

А для кликеров имхо лучше юзать програмируемые мыши(х7) у них и отклик лучше и скрипты на борту обойдут любую защиту.

[NUBOREZKA2012]

А для других шутеров это подойдет?

Добавлено через 6 часов 20 минут
Кстати, сделать можно это и по проще. Почитай что такое хук. Я считаю, что оптимизированнее будет использовать его.