Спасибо огромное! Помогла процедурка описанная в другой теме: procedure PushTehButton; var AGInfo : TGumpInfo; i : Integer; begin if IsGump then GetGumpInfo(GetGumpsCount-1, AGInfo); AddToSystemJournal('Gump has ' + IntToStr(Length(AGInfo.GumpButtons)) + ' buttons'); i := 0; //индекс кнопки в массив...

http://i89.fastpic.ru/big/2017/0411/ff/2e459fa1c64a5c391586b403baf5dcff.jpg Есть вот такая менюшка. Не пойму где себе сломать голову чтобы получилось "No" Serial: B3EF7 GumpID: C76290C X: 0000 Y: 0000 Pages: 1 Gump Options: NoClose GumpPics: X Y ID Hue Page ElemNum 0: 70 50 96 0 0 4 Resiz...

drabadan wrote:...Переименуй его в NotReservedCompilerWord или AnyArrayTitle и будет работать...

Спасибо огромное! А я даже не подумал про это))) Всё заработало.

Сначала скрипт отлично работал, вкачал на нём таминг нормально. Потом обновил стелс клиент и скрипт начал выдавать такое: 08:05:42:942 [John Doe]: Compiling 08:05:42:989 [John Doe]: Compiler: [Error] (ANIMALtaming.sc at 31:13): Array type required ; Error line is: " lol:=Char[2]+': all release'...

Program Mining; type MiningR = record tile:word; px,py,pz:integer; end; Var MiningP: array [0..312] of MiningR; ItemCount,b:Integer; Const Forge = $40D38DC8; pointX = 2558; pointY = 478; eda = $097B; point1X = 2561; point1Y = 529; point2X = 2557; point2Y = 501; point3X = 2577; point3Y = 430; nearX ...

Нет сил думать как впилить эту процедуру в скрипт майнинга, который берёт тайлы из файла.

Подскажите пожалуйста как сохранить в файл тайлы, которые находит эта процедура Program GetTilesToMine; const SeekRange = 10; type MinTile = record x, y, z, Tile : Word; end; var MinTiles_Array : Array of MinTile; x, y, i : Integer; TileInfo : TStaticCell; begin SetLength(MinTiles_Array, 0); for x :...