Скрипт работает на stealth_v1.0_release_1 и выше, написан для сервера Forest Wars (http://www.uoa.pp.ua/). настройка скрипта: взять в руку кирку, указать ID сундука и указать X минимальную и максимальную точку и Y минимальную и максимальную точку. http://uoa.pp.ua/forum/index.php?action=dlattach;top...

Скрипт работает на stealth_v1.0_release_1 и выше, написан для сервера Forest Wars (http://www.uoa.pp.ua/) Пока так, позже переделаю через журнал. program stiling; Const Enemy = $000084E2; // айди у кого пытаешься украсть ItemType = $0EED; // тайп что пытаешься украсть {$Include 'all.inc'} Begin Chec...

Скрипт работает на stealth_v1.0_release_1 и выше, написан для сервера Forest Wars (http://www.uoa.pp.ua/) program FWShafts; Const Trash = $40045196; LogType = $1BDD; LogColor = $037F; Shafts = $1BD4; {$Include 'all.inc'} procedure CheckLog; begin if (Count(LogType) < 2) then begin repeat FindTypeEx(...

Скрипт работает на stealth_v1.0_release_1 и выше, написан для сервера Forest Wars (http://www.uoa.pp.ua/) Program Armslore; var ctime : TDateTime; enemy : Cardinal; {$Include 'all.inc'} Begin Enemy := $4004B670;//Указать предмет SetARStatus(true); clearjournal; CheckSave; while not Dead do begin If ...

Скрипт работает на stealth_v1.0_release_1 и выше, написан для сервера Forest Wars (http://www.uoa.pp.ua/) Program Blacksmith; var ctime : TDateTime; {$Include 'all.inc'} Const Trash = $40006433; BsitemType = $1413; IngotType = $1BEF; IngotColor = $0000; HummerType = $13E4; procedure CheckIngot; begi...

Скрипт работает на stealth_v1.0_release_1 и выше, написан для сервера Forest Wars (http://www.uoa.pp.ua/) program carpentry; const Trash = $4003FFB7; ItemType = $0A2A; RubanokType = $1030; LogType = $1BDD; LogColor =$0000; {$Include 'all.inc'} procedure checklogs; begin if (Count(LogType) < 50) then...