спасибо, интересный вариант решения вопроса. Заметил удивительную вещ, в верхней шахте минока скрипт напроч отказывается работать. Мой и от Санька тоже Слоев в тайлах 0 поэтому в них проблемы не должно быть, LayersCount:=GetLayerCount(Tkax,Tkay,WorldNum); Addtosystemjournal('layers ' + inttostr(Laye...

хмм нда может конечно только один и быть, смутило в скрипте просто слишком частое повторение [17:49:31] System: System Where do you wish to dig? [17:49:33] System: System Where do you wish to dig? [17:49:35] System: System Where do you wish to dig? [17:49:37] System: System Where do you wish to dig?...

вопрос, создал жалкую пародию на работающий скрипт: X0:=GetX(Self); Y0:=GetY(Self); Z0:=GetZ(Self); W0:=WorldNum; Tile0:=ReadStaticsXY(X0+x,Y0+y,W0); C:=GetLayerCount(X0,Y0,WorldNum); Addtosystemjournal( ' | Tile = ' +IntToStr(Tile0.Statics[0].Tile)+ ' | X = ' +IntToStr((Tile0.Statics[0].X)+x)+ ' | ...

собственно вопрос, пока на работе не могу проверить: под нулевым слоем имеется в виду вот это обращение? Tile0.Statics[0].Tile правильно ли я понимаю что слои это то что накладывается на одну плитку мира. Т.е. все слои деревьев, дома, итд? но так как мне нужно обращатся "всего лиш" к слою ...

хмм, только подумал что всё понял а оказывается всё намного сложнее.

в принципе размышлял что 0 обозначает все слои. и он нужный сам вычислит

завтра значит придётся дальше ковырять....

спасибо я уже имеющиеся функции освоил.

большое спасибо по моему срабатывает: Program findtiletype; const ShovelType =$0F39; var X0,Y0,Z0: Word; Tile0: TStaticCell; C,W0: Byte; begin X0:=GetX(Self); Y0:=GetY(Self); Z0:=GetZ(Self); W0:=WorldNum; Tile0:=ReadStaticsXY(X0,Y0,W0); C:=GetLayerCount(X0,Y0,WorldNum); Addtosystemjournal( ' | Tile ...

однако чтото показывает, да не то: tile:= (GetMapCell((GetX(Self)+x),(GetY(Self)+y),WorldNum).tile); UseObject(FindType(Shoveltype,backpack)); WaitForTarget(5000); WaitTargetTile(tile,(GetX(Self)+x),(GetY(Self)+y),GetZ(Self)); вот в принципе должно работать но выдаёт: Tile = 168 | Z = -5 и не может ...

к сожалению библиотеку эту невозможно скачать. Ссылка умерла

играю на рануо сервере, в пещерах бывает 4 разных вида пола от 1339 до 1343 так как все возможные скрипты на мининг усматривают только варинт а ля: TargetToTile(1342, GetX(self)+x, GetY(self)+y, GetZ(self)); то выходит что он не сможет во всех пещерах копать. Хотел сделать проверку на тайл перед тем...

хмм, у меня не работает. В вар мод переводил сразу же, чтобы чара видно было.

p.s

проверил ещё раз, людей вроде ресает $0190, ельфа не захотел реснуть $0260

сделал скрипт, обычного человека нашёл и реснул. Решил сделать массив из всех возможных Расс/Полов но тут он не может Эльфов найти. Где я ступил? Program Ress; var ic : integer; Ghost: array [0..5] of Word; Begin Ghost[0]:=$0192;// womann Ghost[1]:=$0190;// mann Ghost[2]:=$025D// elf weibchen Ghost[...