loadscene(scene1, null, MERGE);
if(%1 != findnext, sub(i,scene.count,1));
txtadd(scenexml,'',get(scene[get(i)].content),'');
if(scenexml == xml.content,
dec(i);
if(i LT 0, sub(i,scene.count,1));
loadscene(get(scene[get(i)].name), null, MERGE, BLEND(1));
,
dec(i);
if(i GE 0, prevscene(findnext));
);
if(%1 != findnext, set(i,0));
txtadd(scenexml,'',get(scene[get(i)].content),'');
if(scenexml == xml.content,
inc(i);
if(i == scene.count, set(i,0));
loadscene(get(scene[get(i)].name), null, MERGE, BLEND(1));
,
inc(i);
if(i LT scene.count, nextscene(findnext));
);