#define DEBUG
world {
	fps = 11;
	icon_size = 32;
	view = 6;
}
var/inforloop = 0;
var/stopbruteforce = 0;
var/list/obj/testingobj/objects = list();
var/runcount = 0;
var/mob/M;
mob {
	verb/startforloopbruteforce() {
		set name="Start For Loop Brute force.";
		set category="ForLoop";
		world << "starting brute force";
		M = usr;
		new /obj/testingobj;
		stopbruteforce = 1;
		spawn(5)
			forlooptest1();
	}

	verb/stoploopbruteforce() {
		set name="Stop For Loop Brute force.";
		set category="ForLoop";
		world << "stopping brute force";
		stopbruteforce = 1;
	}

	proc/forlooptest1()	{
		set background=1;
		stopbruteforce = 0;
		inforloop = 0;
		runcount = 0;
		world << "brute force started";
		while (1) {
			forlooptest2();
			if (inforloop) {
				world << "runtime detected. restarting. Ran [runcount] times.";
				spawn(10)
					if (!stopbruteforce)
						forlooptest1();
				return;
			}

			if (stopbruteforce) {
				inforloop = 0;
				world << "brute force stopped. Ran [runcount] times";
				return;
			}
			runcount++;
			if ((runcount % 10000) == 0) {
				world << "at runcount number [runcount]";
				sleep(0); //sleep every 10000 runs so the stop runcount verb actually works.
			}

		}
	}

	proc/forlooptest2() {
		set background=1;
		inforloop = 1;
		for (var/i=0;i<100;i++) {
			locate(/turf) in M.locs; //this kills the ram.
			//locate(/turf) in M.loc; //this does not.
			for (var/thing in objects)
				continue;
		}

		inforloop = 0;
	}

}

obj/testingobj {
	New() {
		objects += src;
	}

	Del() {
		objects -= src;
	}


}