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 ©
|
|
| |