I repost the roman number trigger:
<Effect name="Quest String Roman Number get from QV">
<Param name="Note" dispName="Note" VarType="string">Max 1000. Decimals are not allowed. Remember that "0" didn't exist</Param>
<Param name="QV" dispName="$$23952$$Var Name" VarType="string">QV1</Param>
<Param name="QS" dispName="QV String" VarType="string">S1</Param>
<Command>trStringQuestVarSet("%QV%-%QS%"+1, "I");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+2, "II");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+3, "III");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+4, "IV");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+5, "V");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+6, "VI");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+7, "VII");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+8, "VIII");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+9, "IX");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+10, "X");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+20, "XX");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+30, "XXX");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+40, "XL");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+50, "L");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+60, "LX");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+70, "LXX");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+80, "LXXX");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+90, "XC");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+100, "C");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+200, "CC");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+300, "CCC");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+400, "CD");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+500, "D");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+600, "DC");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+700, "DCC");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+800, "DCCC");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+900, "CM");</Command>
<Command>trStringQuestVarSet("%QV%-%QS%"+1000, "M");</Command>
<Command>trQuestVarSet("lostrohundredsroman", 100); trQuestVarSet("lostroinutile", 10); trQuestVarSet("lostrolalahundredsroman", 0); trQuestVarSet("lostrolalaroman", 0);</Command>
<Command><![CDATA[for(h=0;<=9){if(((trQuestVarGet("%QV%")-trQuestVarGet("lostrohundredsroman"))>=0)&&((trQuestVarGet("%QV%")-trQuestVarGet("lostrohundredsroman"))<=100))trQuestVarSet("lostrolalahundredsroman", trQuestVarGet("lostrohundredsroman"));]]></Command>
<Command>trQuestVarSet("lostrohundredsroman", trQuestVarGet("lostrohundredsroman")+100);}</Command>
<Command>trQuestVarSet("lostroinutile2", (trQuestVarGet("%QV%")-trQuestVarGet("lostrolalahundredsroman")));</Command>
<Command><![CDATA[for(l=0;<=9){if(((trQuestVarGet("lostroinutile2")-trQuestVarGet("lostroinutile"))>=0)&&((trQuestVarGet("lostroinutile2")-trQuestVarGet("lostroinutile"))<=10))trQuestVarSet("lostrolalaroman", trQuestVarGet("lostroinutile"));]]></Command>
<Command>trQuestVarSet("lostroinutile", trQuestVarGet("lostroinutile")+10);}</Command>
<Command>trQuestVarSet("lostroinutile2", (trQuestVarGet("lostroinutile2")-trQuestVarGet("lostrolalaroman")));</Command>
<Command>for(units=0;>1){}units=trQuestVarGet("lostroinutile2"); for(decins=0;>1){}decins=trQuestVarGet("lostrolalaroman"); for(hundreds=0;>1){}hundreds=trQuestVarGet("lostrolalahundredsroman");</Command>
<Command>trStringQuestVarSet("%QS%", trStringQuestVarGet("%QV%-%QS%"+hundreds)+trStringQuestVarGet("%QV%-%QS%"+decins)+trStringQuestVarGet("%QV%-%QS%"+units));</Command>
</Effect>
<Effect name="Quest String Change Name">
<Param name="SrcObject" dispName="$$22424$$Units" varType="unit">default</Param>
<Param name="Name1" dispName="Name before" varType="stringid">Name</Param>
<Param name="QS" dispName="QV String" varType="stringid">S1</Param>
<Param name="Name2" dispName="Name after" varType="stringid">Name</Param>
<Command>trUnitSelectClear();</Command>
<Command loop="" loopParm="SrcObject">trUnitSelect("%SrcObject%");</Command>
<Command>trUnitChangeName("%Name1%"+trStringQuestVarGet("%QS%")+"%Name2%");</Command>
</Effect>