чтобы все было, явно нету... обычный мининг точно есть, осталось добавить рекол от пка и килл элема... procedure mine_around; var dx, dy, timer : integer; memory : tdatetime; begin for dx := -2 to 2 do begin for dy := -2 to 2 do begin repeat check_connect; if targetpresent then canceltarget; usetype...

не сработало так?
врятли там числа большие, до 50 или 100 можно тупо перебором пройтись... =)

видимо вот 8 строчка, ругается что двоеточия нету..

а ты умри, сразу произойдет.. :-) While not Dead do FindDistance := 1; а вот тут у тебя зацикливание происходит, не хватает begin...end попробуй Program FishKaput; {$Include 'all.inc'} const Fish = $09CC; Steak = $097A; Dagger = $0F51; begin While not Dead do begin FindDistance := 1; FindType(Fish,b...

так его же товарищ id набросал для себя на дельфях.. надо его спросить..

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

Если не про эти скилы, то я не знаю, пусть кто-то другой скажет. не про эти... там просто путаница с ними... заходишь в игру, у тебя 15% fencing... начинаешь бить куклу, ветеринария какая нибудь становится тоже 15 и начинает расти вместо фенсинга... типа того... :-) и такая проблемы со всеми скилла...

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

Вопрос в следующем: Есть шард на сфере The Odyssey: http://ultima.gameworld.su/ . На инже играю нормально, ecnryption стоит None (Ignition), UOCH и ylaunch показывают нулевые ключи. Для стелса соответственно прописываю "6.0.3.0" 00000000 00000000 0 "6.0.3.0" Заходит нормально, вс...