имеем список с красивыми функциями/процедурами: {Layer dress/undress} function WearItem(Layer: Byte; Obj: Cardinal): Boolean; // Проверка на каком слое находится обьект function disarm: Boolean; // Разооружиться function equip(Layer: Byte; Obj: Cardinal): Boolean; // Одеть вещь на казанный слой func...

Логичнее было бы отображение глобальной переменной.

Как вариант можно было бы попеременно отображать разными цветами значение переменной, или изначально сделать проверку на использование данной переменной и выдать ошибку

правильно ли я понимаю что в данной процедуре Область переменной ('stealth' - глобалка видна любому скрипту любого чара, 'char' - глобалка видна только для скриптов этого чара); но обе переменные должны отображатся на главной закладке под соответствующими переменными: TestVar1,2 итд? так как на данн...

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

начну по порядку: 1. StrToFloat в природе существует, поэтому методом дедукции решил его в стелсе и применить. 2. значение bb равняется 13:50:35:514 [EVILORD]: bb: 21,77 поэтому более чем уверен что он вылетает в присвоении значения float вот тут a:=StrToFloat(bb); так как весь текст в сообщении я в...

пытаюсь преобразовать числа которые выдираю из стринга в численное значение. Имеем скрипт: var b : TStringList; bb, s: String; a: Extended; Begin b := TStringList.Create; setsilentmode(false); GetGumpTextLines(GetGumpsCount-1,b); SetGlobal('stealth','TestVar1',b.Strings[309]); s:=GetGlobal('stealth'...

Да, Визитер прав. Говорил, что подобная ошибка изза отсутствие тайла. Хочу добавить кое что вообще по макросу. Ты все правильно сделал, выставил все проверки через AddToSystemJournal. Только еще желательно в сообщение выводить значение параметра Твое: AddToSystemJournal('установил значение переменн...

ээх, походу разобрался. Его выкидывало при обращении к статике, если количество статики равнялось нулю. Если же всюду перед обращением добавлять проверку а ля:

if (Tile0.StaticCount > 0) then

то всё наконец то начинало работать (надеюсь)

приветствую, извиняюсь за долгое отсуствие, работа... Ходилка как таковая в скрипте не используется. Вылетает в определённых пещерах/местах. вот почищенный код с проверками: Program Mining; //{$Include 'all.inc'} var X0,Y0,Z0,Tnum: Word; Tile0: TStaticCell; W0: Byte; x,y, i,k : integer; xf,yf, Layer...

всё намного веселее чем я думал. скрипт работает, НО если он только у одного чара одновременно запущенн. При чём не имеет значения в другом стелсе или в томже самом стелсе он работает. Вылетает всёравно с оут оф ранге. Теперь гипотетический вопрос: возможен ли такой вариант развития событий, что сте...

чем дальше в лес тем больше дров: 18:25:45 : прыгаем на рунку с номером: 60 18:25:48 : Exception: List index out of bounds (-1) at 55.1102 18:25:48 : Script Mining4.sc stopped successfuly сейчас работает по крайней мере больше 10 минут стабильно (возможно потому что вырубил другой стелс) Если к вече...

Vizit0r wrote:Continue;

спасибо,

возможно чтолибо изменить в Tile0:=ReadStaticsXY(X0+(x),Y0+(y),W0); и соответственно "Tile0.Statics[0].Tile" всётаки на нём вырубает скрипт с Out Of Range, хотя все возможные проверки уже учтенны.

спасибо, частично помогло. Но пришлось ещё и жёстко привязывать копание к диапазону тайлов. так как выяснил что он иногда и другие пытается копать, некоторые правда даже както обкапывает другие же приводят к вылетанию ошибки. 10:00:17:845 [krafter1]: | Tile = 1351 | X = 4544 | Y = 3175 | Z = 0 10:00...

да в журмал выводил всё возможное. Вот например после использования "только" на тайлы у которых больше чем 0 слоёв: 21:21:21:493 [krafter1]: layers 1 21:21:22:312 [krafter1]: | Tile = 1343 | X = 4551 | Y = 3174 | Z = 0 21:21:22:608 [krafter1]: layers 1 21:21:23:436 [krafter1]: | Tile = 134...

хм, но в клиенте он же както копает в этой пещере