Handle events in text interpolation; capture text events in choice lines; improve test script

test/tests/checkpoint change.lua

@@ -0,0 +1,193 @@
+local _={}
+_[91]={}
+_[90]={}
+_[89]={}
+_[88]={}
+_[87]={}
+_[86]={}
+_[85]={}
+_[84]={}
+_[83]={}
+_[82]={}
+_[81]={}
+_[80]={}
+_[79]={}
+_[78]={}
+_[77]={}
+_[76]={}
+_[75]={}
+_[74]={}
+_[73]={}
+_[72]={}
+_[71]={}
+_[70]={}
+_[69]={}
+_[68]={}
+_[67]={}
+_[66]={}
+_[65]={tags=_[91],text="d"}
+_[64]={tags=_[90],text="c"}
+_[63]={tags=_[89],text="a"}
+_[62]={tags=_[88],text="Go to p again by setting checkpoint manually:"}
+_[61]={tags=_[87],text="d"}
+_[60]={tags=_[86],text="c"}
+_[59]={tags=_[85],text="b"}
+_[58]={tags=_[84],text="From q again:"}
+_[57]={tags=_[83],text="c"}
+_[56]={tags=_[82],text="a"}
+_[55]={tags=_[81],text="Force p checkpoint:"}
+_[54]={tags=_[80],text="d"}
+_[53]={tags=_[79],text="c"}
+_[52]={tags=_[78],text="b"}
+_[51]={tags=_[77],text="From q checkpoint again:"}
+_[50]={tags=_[76],text="d"}
+_[49]={tags=_[75],text="c"}
+_[48]={tags=_[74],text="b"}
+_[47]={tags=_[73],text="From q checkpoint:"}
+_[46]={tags=_[72],text="d"}
+_[45]={tags=_[71],text="c"}
+_[44]={tags=_[70],text="a"}
+_[43]={tags=_[69],text="From p checkpoint:"}
+_[42]={tags=_[68],text="d"}
+_[41]={tags=_[67],text="x"}
+_[40]={tags=_[66],text="From start:"}
+_[39]={_[65]}
+_[38]={_[64]}
+_[37]={_[62],_[63]}
+_[36]={_[61]}
+_[35]={_[60]}
+_[34]={_[58],_[59]}
+_[33]={_[57]}
+_[32]={_[55],_[56]}
+_[31]={_[54]}
+_[30]={_[53]}
+_[29]={_[51],_[52]}
+_[28]={_[50]}
+_[27]={_[49]}
+_[26]={_[47],_[48]}
+_[25]={_[46]}
+_[24]={_[45]}
+_[23]={_[43],_[44]}
+_[22]={_[42]}
+_[21]={_[40],_[41]}
+_[20]={"return"}
+_[19]={"text",_[39]}
+_[18]={"text",_[38]}
+_[17]={"text",_[37]}
+_[16]={"text",_[36]}
+_[15]={"text",_[35]}
+_[14]={"text",_[34]}
+_[13]={"text",_[33]}
+_[12]={"text",_[32]}
+_[11]={"text",_[31]}
+_[10]={"text",_[30]}
+_[9]={"text",_[29]}
+_[8]={"text",_[28]}
+_[7]={"text",_[27]}
+_[6]={"text",_[26]}
+_[5]={"text",_[25]}
+_[4]={"text",_[24]}
+_[3]={"text",_[23]}
+_[2]={"text",_[22]}
+_[1]={"text",_[21]}
+return {_[1],_[2],_[3],_[4],_[5],_[6],_[7],_[8],_[9],_[10],_[11],_[12],_[13],_[14],_[15],_[16],_[17],_[18],_[19],_[20]}
+--[[
+{ "text", { {
+      tags = {},
+      text = "From start:"
+    }, {
+      tags = {},
+      text = "x"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "d"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "From p checkpoint:"
+    }, {
+      tags = {},
+      text = "a"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "c"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "d"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "From q checkpoint:"
+    }, {
+      tags = {},
+      text = "b"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "c"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "d"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "From q checkpoint again:"
+    }, {
+      tags = {},
+      text = "b"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "c"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "d"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "Force p checkpoint:"
+    }, {
+      tags = {},
+      text = "a"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "c"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "From q again:"
+    }, {
+      tags = {},
+      text = "b"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "c"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "d"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "Go to p again by setting checkpoint manually:"
+    }, {
+      tags = {},
+      text = "a"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "c"
+    } } }
+{ "text", { {
+      tags = {},
+      text = "d"
+    } } }
+{ "return" }
+]]--