Checkpointless.Script.txt

***Metadata***
***
Script.Name = "Checkpointless";
Script.AuthorLogin = "bigbang1112";
Script.Description = "{{{{CHECKPOINTLESS_DESCRIPTION}}}}";
***

SChProblem Problem_CannotRemoveCheckpoint(SChAnchor _Anchor) {
	declare SChProblem Problem;
	Problem.Name = "CannotRemoveCheckpoint";
	Problem.Anchor = _Anchor;
	return Problem;
}

***Main***
***
declare Checkpoints = GetCheckpoints();

for(i,0,Checkpoints.count-1) {
	declare Anchor = Checkpoints[i];
	if(Anchor.DefaultTag == "Checkpoint") {
		if(Anchor.IsBlock) {
			SetStatusMessage("{{{{CHECKPOINT_FOUND}}}} " ^ Anchor.Block.Name);
		}
		else if(Anchor.IsItem) {
			SetStatusMessage("{{{{CHECKPOINT_FOUND}}}} " ^ Anchor.Item.Position);
		}
		
		SetStatusProgress((i+1.0)/(Checkpoints.count));

		declare Removed = RemoveAnchor(Anchor);
		if(!Removed) Problem(Problem_CannotRemoveCheckpoint(Anchor)); // Announce the problem to the Modifier
	}
	yield;
}
***

***Main_Fast***
***
foreach(Anchor,GetCheckpoints())
	if(!RemoveAnchor(Anchor)) Problem(Problem_CannotRemoveCheckpoint(Anchor)); // Announce the problem to the Modifier
***

***Problems***
***
foreach(Problem,Problems) {

}
***