я пытался и инклудом и подпрограмой - результат один и тот же - глюк
часть основного сценария (выше в сценарии есть похожие места с похожими внешними файлами и одинаковыми названиями GOTO)
t6-8:
#include "\bl\t+2Kpdrdpr.cms"
#include "bl\sld48.cms"
GETSCREEN(624, 288, 851, 616)
IF_PICTURE_IN(624, 288, 851, 616, "\pict\001.bmp", -1, 60)
MOVE($_return1, $_return2)
WAIT(1)
ELSE
#include "bl\plznv.cms"
GOTO(bgn1)
END_IF
GETSCREEN(624, 288, 851, 616)
COLORMODE(8, 624, 288, 851, 616)
IF_PICTURE_IN(624, 288, 851, 616, "\pict\06.bmp", -1, 98)
#include "\bl\t+2Kpdrdpr.cms"
#include "bl\plznv.cms"
ELSE
#include "bl\plznv.cms"
END_IF
GOTO(bgn1)
часть файла t+2Kpdrdpr.cms
//1-1
GETSCREEN
IF_PICTURE_IN(624, 317, 680, 367, "\pict\001.bmp", -1, 60)
GOTO(1h1)
ELSE
GOTO(1h-2)
END_IF
1h1:
FOR($a=0, $a < 2)
MOVE(1013,831)
WAITMS(201)
LDOWN(1013,831)
WAITMS(99)
LUP(1013,831)
WAITMS(1501)
MOVE(652,343)
WAITMS(201)
LDOWN(652,343)
WAITMS(500)
MOVER(10,10)
WAITMS(201)
MOVE(1059,467)
WAITMS(201)
LUP(1059,467)
WAITMS(101)
MOVE(1014,740)
WAITMS(101)
LDOWN(1014,740)
MOVER(10,10)
WAITMS(102)
MOVE(1016,477)
WAITMS(103)
LUP(1016,477)
WAITMS(104)
MOVE(974,577)
WAITMS(902)
LDOWN(974,577)
WAITMS(99)
LUP(974,577)
WAITMS(4701)
GETSCREEN
IF_PICTURE_IN(988, 431, 1043, 491, "\pict\cri.bmp", -1, 60)
GOTO(1h-2)
END_IF
END_CYC
//1-2
1h-2:
GETSCREEN
IF_PICTURE_IN(664, 317, 716, 367, "\pict\001.bmp", -1, 60)
GOTO(1h2)
ELSE
GOTO(1h-3)
END_IF
1h2:
FOR($a=0, $a < 2)
MOVE(1013,831)
WAITMS(201)
LDOWN(1013,831)
WAITMS(99)
LUP(1013,831)
WAITMS(1501)
MOVE(691,343)
WAITMS(201)
LDOWN(691,343)
WAITMS(500)
MOVER(10,10)
WAITMS(201)
MOVE(1059,467)
WAITMS(201)
LUP(1059,467)
WAITMS(101)
MOVE(1014,740)
WAITMS(101)
LDOWN(1014,740)
MOVER(10,10)
WAITMS(102)
MOVE(1016,477)
WAITMS(103)
LUP(1016,477)
WAITMS(104)
MOVE(974,577)
WAITMS(902)
LDOWN(974,577)
WAITMS(99)
LUP(974,577)
WAITMS(4701)
GETSCREEN
IF_PICTURE_IN(988, 431, 1043, 491, "\pict\cri.bmp", -1, 60)
GOTO(1h-3)
END_IF
END_CYC
//1-3
1h-3:
GETSCREEN
IF_PICTURE_IN(704, 317, 752, 367, "\pict\001.bmp", -1, 60)
GOTO(1h3)
ELSE
GOTO(1h-4)
END_IF
1h3:
FOR($a=0, $a < 2)
MOVE(1013,831)
WAITMS(201)
LDOWN(1013,831)
WAITMS(99)
LUP(1013,831)
WAITMS(1501)
MOVE(727,343)
WAITMS(201)
LDOWN(727,343)
WAITMS(500)
MOVER(10,10)
WAITMS(201)
MOVE(1059,467)
WAITMS(201)
LUP(1059,467)
WAITMS(101)
MOVE(1014,740)
WAITMS(101)
LDOWN(1014,740)
MOVER(10,10)
WAITMS(102)
MOVE(1016,477)
WAITMS(103)
LUP(1016,477)
WAITMS(104)
MOVE(974,577)
WAITMS(902)
LDOWN(974,577)
WAITMS(99)
LUP(974,577)
WAITMS(4701)
GETSCREEN
IF_PICTURE_IN(988, 431, 1043, 491, "\pict\cri.bmp", -1, 60)
GOTO(1h-4)
END_IF
END_CYC
и дальше ещё 2000+ строк кода но они похожи
глюк при таком раскладе начинался уже на первом проходе
IF_PICTURE_IN(624, 288, 851, 616, "\pict\06.bmp", -1, 98)
#include "\bl\t+2Kpdrdpr.cms"
до конца не проигрывается, иногда на середине начинается сбой, когда в конце, и таких включений с GOTO еще около дестяка м везде пришлось на сейчас присваивать уникальные таргеты на GOTO и тогда всё работает.
пробовал через подпрограмму
описание в самом начале сценария штук 5 как ниже
sub(2Kpdrdpr)
#include "\bl\t+2Kpdrdpr.cms"
end_sub
и потом вызов
2Kpdrdpr()
но также сбоит и с такими же симптомами как и по инклуду