| fragger | Дата: Среда, 28.04.2010, 16:07 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 1
Статус: Offline
| Ребята может кто нибуть написать макрос что бы чар ресал нюбиков которые к нему подбегают! Буду весьма благодарен!
|
| |
| |
| SaNeK | Дата: Четверг, 29.04.2010, 11:55 | Сообщение # 2 |
 Генералиссимус
Группа: Администраторы
Сообщений: 168
Статус: Offline
| //*************************************************************************************
// РЕСАЕМ МЕРТВОГО ПОД БАНКОМ
//*************************************************************************************
procedure findgost;
var
BandID, GhostID: Cardinal;
begin
FindDistance := 4;
if FindType($0193, ground) > 0 then
begin
AddToSystemJournal('Обнаружен гост: '+GetName(finditem));
while FindType($0193, ground) > 0 do
begin
GhostID := finditem;
BandID := FindType($0E21, backpack);
WaitTargetObject(GhostID);
Wait(100);
UseObject(BandID);
Wait(10000);
end;
end;
end;
Автор SaNeK ©
|
| |
| |
