StringSub函数执行次数限制问题

枪兵打巨像

最近我在做 Bad Apple!! 高清版地图，想把分辨率从之前的 24×18 提高到 48×36。

• 原帖链接：https://bbs.islga.org/read-htm-tid-5486762-page-1-fpage-1.html
  

• 24×18分辨率视频效果：https://www.bilibili.com/video/BV1y54y1U7A8/
  

为了实现这个目标，我将编码表导入算法从 数组赋值算法 改为了 字符串导入算法，用一个字符串存储每一帧中所有像素点的编码信息。
字符串导入算法 需要用到 StringSub函数 处理字符串，遍历字符串中的每一个字符，读取"0"或"1"的编码（对应 Bad Apple!!中 "白色" 或 "黑色" 像素点）。
在使用 StringSub函数 的过程中，我发现 StringSub函数 存在执行次数的限制，每场游戏不能超过 59546 次。
如果 StringSub函数 的执行次数超过了 59546 次，就会出现溢出。报错如下图所示：



因为这个限制，我只能导入 5% 的编码表。Bad Apple!! 视频全长220秒，我只能播放前10秒。
如果要完成这个作品，我必须突破 StringSub函数 执行次数的限制。我已经为此DeBug了两天了，可还是一筹莫展。
我尝试了N种方法想绕过这个限制，可是 59546 次的限制就像冷酷无情的真空光速一样，绝对不可撼动，超过1次都不行。

所以，求教论坛的大神们，如何突破 StringSub函数 执行次数 59546 次的限制 ？


Bad Apple!! 实现过程：
(1) 导入编码表字符串。
(2) 使用 StringSub函数 遍历字符串，读取编码。
(3) 将"0"或"1"编码转化为布尔值，并将布尔值存入二维数组。
(4) 以单位作为像素点，以第 (3) 步中的布尔值作为逻辑判定依据，使用 "替换单位"函数 播放 Bad Apple!!

Galaxy代码：
(1) 导入编码表字符串：

1. p[1]="111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111";
   
2. // 第1帧
   
3. 
   
4. // ......
   
5. // 第2帧到第2796帧省略
   
6. 
   
7. p[2797]="111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111";
   
8. // 第2797帧

复制代码

(2) 使用 StringSub函数 遍历字符串，读取编码：

1. for(i=1;i<2798;i+=1){
   
2.     for(j=1;j<433;j+=1){
   
3.         px[i][j]=StringSub(p[i],j,j);
   
4.     }
   
5. }

复制代码

(3) 将"0"或"1"编码转化为布尔值，并将布尔值存入二维数组：

1. for(i=1;i<2798;i+=1){
   
2.     for(j=1;j<433;j+=1){
   
3.         if(px[i][j]=="1"){
   
4.             judge[i][j]=false;
   
5.         }
   
6.         else{
   
7.             judge[i][j]=true;
   
8.         }
   
9.     }
   
10. }

复制代码

(4) 以单位作为像素点，以第 (3) 步中的布尔值作为逻辑判定依据，使用 "替换单位"函数 播放 Bad Apple!!

1. t1=0.08;
   
2. // 每一帧停留时间
   
3. for(i=1;i<2798;i+=1){
   
4.     for(j=1;j<433;j+=1){
   
5.         if(judge[i][j]==true){
   
6.             libNtve_gf_ReplaceUnit(RegionGetAttachUnit(RegionFromId(j)), "ZakoomCrystalFragment", libNtve_ge_ReplaceUnitOptions_NewUnitsDefault);
   
7.             RegionAttachToUnit(RegionFromId(j), libNtve_gf_LastReplacedUnit(), Point(0.0, 0.0));
   
8.         }
   
9.         else{
   
10.             libNtve_gf_ReplaceUnit(RegionGetAttachUnit(RegionFromId(j)), "KorhalKeystone", libNtve_ge_ReplaceUnitOptions_NewUnitsDefault);
    
11.             RegionAttachToUnit(RegionFromId(j), libNtve_gf_LastReplacedUnit(), Point(0.0, 0.0));
    
12.         }
    
13.     }
    
14.     Wait(t1, c_timeReal);
    
15. }

复制代码

枪兵打巨像

经过3天艰苦deBug，问题已解决！

StringSub函数 不存在 执行次数 的限制，
但是存在 赋值次数 的限制，具体数值是 59546 次！超过这个限制就会溢出。

以下举例说明：
(1) 会出现溢出的代码，说明 StringSub函数 存在 赋值次数 的限制：

1. for(i=1;i<2798;i+=1){
   
2.     for(j=1;j<433;j+=1){
   
3.         px[i][j]=StringSub(p[i],j,j);
   
4.     }
   
5. }

复制代码

(2) 不会出现溢出的代码1，说明 StringSub函数 不存在 执行次数 的限制：

1. for(i=1;i<2798;i+=1){
   
2.     for(j=1;j<433;j+=1){
   
3.         StringSub(p[i],j,j);
   
4.     }
   
5. }

复制代码

(3) 不会出现溢出的代码2，说明 StringSub函数 不存在 返回值逻辑判断次数 的限制：

1. //--------------------------------------------------------------------------------
   
2. // 以单位作为像素点，使用 "替换单位"函数 播放 Bad Apple!!
   
3. //--------------------------------------------------------------------------------
   
4. t1=0.0625;
   
5. // 每一帧停留时间
   
6. for(i=1;i<2798;i+=1){
   
7.     for(j=1;j<433;j+=1){
   
8.         if(StringSub(p[i],j,j)=="0"){
   
9. // 直接使用 StringSub函数 的返回值进行逻辑判断，不再使用一个二维数组作为媒介，避免在赋值给二维数组时溢出
   
10.             libNtve_gf_ReplaceUnit(RegionGetAttachUnit(RegionFromId(j)), "ZakoomCrystalFragment", libNtve_ge_ReplaceUnitOptions_NewUnitsDefault);
    
11.             RegionAttachToUnit(RegionFromId(j), libNtve_gf_LastReplacedUnit(), Point(0.0, 0.0));
    
12.         }
    
13.         else{
    
14.             libNtve_gf_ReplaceUnit(RegionGetAttachUnit(RegionFromId(j)), "KorhalKeystone", libNtve_ge_ReplaceUnitOptions_NewUnitsDefault);
    
15.             RegionAttachToUnit(RegionFromId(j), libNtve_gf_LastReplacedUnit(), Point(0.0, 0.0));
    
16.         }
    
17.     }
    
18.     Wait(t1, c_timeReal);
    
19. }

复制代码

Nostalie

应该是超时了。（超步数）随便啥动作都有执行次数限制。不是stringsub的问题。
分割一下。
用多个触发器执行或者用同个触发器执行多次。（i的起始值和结束值用全局变量替代。每次加就行了）（不要调用函数写。因为调用函数的时间会算在主触发器里。）

Nostalie

其实我很好奇。你编码表咋搞的。
用啥工具怎么搞的
可以教我嘛，，，

yxxiaobin

显然并不是全局有执行次数限制，应该是其他地方出了问题，比如超时之类的。

yxxiaobin

另，建议每两帧时间间隔是0.0625游戏时间秒，也就是说每秒16帧，否则会和游戏运算周期不吻合。间隔0.125游戏时间秒也行，但是帧率太低，画面看起来会跳。

麦德三世

顺便一提的是，使用等待真实时间并无法让你跳过游戏周期的限制。在触发器里无论你怎么等待，最少也得等待半个周期也就是0.03125秒

枪兵打巨像

Nostalie 发表于 2020-8-26 13:23
其实我很好奇。你编码表咋搞的。
用啥工具怎么搞的
可以教我嘛，，，

编码表获取方法：

1、用PR或者AE把《Bad Apple!!》原版视频输出为图片序列。由于PR只支持常规帧率输出，不支持16帧的特殊帧率输出，所以以下以AE举例说明：

(1) 将视频拖入AE渲染轨道内，点击输出模式，输出格式选择"JPEG Sequence"，分辨率设定为80*60（根据实际需要设定）↓↓↓




(2) 点击渲染设置，将帧率设定为16（根据实际需要设定）↓↓↓




(3) 设定图片序列命名规则，选择图片输出路径，最后点击"Render"输出图片序列 ↓↓↓




(4) 输出的图片序列如下所示，按16帧的帧率，最终输出了3504张帧画面 ↓↓↓




2、使用Matlab的 rgb2gray函数 处理图片序列，遍历每一张帧画面的所有像素点，获取像素点的灰度值，输出编码表。
     如果灰度值大于200，则输出"0"，否则输出"1"。Matlab代码如下 ↓↓↓

1. str='C:\\Picture queue\picture queue 4\BA';
   
2. FID=fopen('C:\\Pixel\BA4.txt','a+');
   
3. 
   
4. for i=1:10
   
5.     I=imread([str,'000',num2str(i-1),'.jpg']);
   
6.     I1=rgb2gray(I);
   
7.     for i1=1:60
   
8.        for i2=1:80
   
9.            if(I1(i1,i2)>200)
   
10.                fprintf(FID,'0 ');
    
11.            else
    
12.                fprintf(FID,'1 ');
    
13.            end
    
14.        end
    
15.        fprintf(FID,'\r\n');
    
16.    end
    
17. end
    
18. 
    
19. for i=11:100
    
20.     I=imread([str,'00',num2str(i-1),'.jpg']);
    
21.     I1=rgb2gray(I);
    
22.     for i1=1:60
    
23.        for i2=1:80
    
24.            if(I1(i1,i2)>200)
    
25.                fprintf(FID,'0 ');
    
26.            else
    
27.                fprintf(FID,'1 ');
    
28.            end
    
29.        end
    
30.        fprintf(FID,'\r\n');
    
31.    end
    
32. end
    
33. 
    
34. for i=101:1000
    
35.     I=imread([str,'0',num2str(i-1),'.jpg']);
    
36.     I1=rgb2gray(I);
    
37.     for i1=1:60
    
38.        for i2=1:80
    
39.            if(I1(i1,i2)>200)
    
40.                fprintf(FID,'0 ');
    
41.            else
    
42.                fprintf(FID,'1 ');
    
43.            end
    
44.        end
    
45.        fprintf(FID,'\r\n');
    
46.    end
    
47. end
    
48. 
    
49. for i=1001:3504
    
50.     I=imread([str,num2str(i-1),'.jpg']);
    
51.     I1=rgb2gray(I);
    
52.     for i1=1:60
    
53.        for i2=1:80
    
54.            if(I1(i1,i2)>200)
    
55.                fprintf(FID,'0 ');
    
56.            else
    
57.                fprintf(FID,'1 ');
    
58.            end
    
59.        end
    
60.        fprintf(FID,'\r\n');
    
61.    end
    
62. end
    
63. 
    
64. sta=fclose(FID);

复制代码

3、Matlab输出的文本格式编码表 ↓↓↓




4、将文本格式的编码表导入Excel，进行后续处理 ↓↓↓




5、使用Excel VBA将编码表转化为Galaxy字符串。
     由于Galaxy字符串的长度限制为2045个字符，而每一帧有80*60=4800个"0/1"字符编码，所以设定每一个字符串存储每一帧1/3的字符编码，即1600个字符编码。
     Excel VBA代码如下 ↓↓↓

1. Sub GalaxyPixel()
   
2. 
   
3. Dim i As Long
   
4. Dim j As Long
   
5. Dim k As Long
   
6. Dim n1 As Long
   
7. Dim n2 As Long
   
8. Dim n3 As Long
   
9. Dim Pixel As Long
   
10. Dim PixelArray As String
    
11. 
    
12. For k = 1 To 3504
    
13.     PixelArray = ""
    
14.     For i = 1 To 20
    
15.         For j = 1 To 80
    
16.                 n1 = 3 * k - 2
    
17.                 Pixel = Sheet1.Cells((k - 1) * 60 + i, j)
    
18.                 PixelArray = PixelArray & Pixel
    
19.         Next j
    
20.     Next i
    
21.     Sheet3.Cells(n1, 1) = "p1[" & k & "]=""" & PixelArray & """;"
    
22. Next k
    
23. 
    
24. For k = 1 To 3504
    
25.     PixelArray = ""
    
26.     For i = 21 To 40
    
27.         For j = 1 To 80
    
28.                 n2 = 3 * k - 1
    
29.                 Pixel = Sheet1.Cells((k - 1) * 60 + i, j)
    
30.                 PixelArray = PixelArray & Pixel  
    
31.         Next j
    
32.     Next i
    
33.     Sheet3.Cells(n2, 1) = "p2[" & k & "]=""" & PixelArray & """;"
    
34. Next k
    
35. 
    
36. For k = 1 To 3504
    
37.     PixelArray = ""
    
38.     For i = 41 To 60
    
39.         For j = 1 To 80
    
40.                 n3 = 3 * k
    
41.                 Pixel = Sheet1.Cells((k - 1) * 60 + i, j)
    
42.                 PixelArray = PixelArray & Pixel
    
43.         Next j
    
44.     Next i
    
45.     Sheet3.Cells(n3, 1) = "p3[" & k & "]=""" & PixelArray & """;"
    
46. Next k
    
47. 
    
48. End Sub

复制代码

6、Excel VBA输出的Galaxy字符串，可以直接复制到Galaxy编辑器中使用 ↓↓↓




7、最后放一下在星际争霸2上的成品效果吧 ↓↓↓
     萨尔那加神器版：https://www.bilibili.com/video/BV1EA411n7dB/
     高能瓦斯版：https://www.bilibili.com/video/BV1mT4y1L7ZD/

mic

点赞!点赞!点赞!