Switch to edit mode.
Name(s): suspend_restart1: "Copied from Player Database (#41):suspend_restart by Hacker (#38) Sun Oct 2 12:01:53 1994 EDT"
2: "used during :load to do the usual out-of-time check."
3: "if someone makes a modification during the suspension (indicated by this.frozen being set to 2), we have to restart the entire load."
4: if (caller != this)
5: return E_PERM
6: elseif ($command_utils:running_out_of_time())
7: player:tell("...", args[1])
8: suspend(0)
9: if (this.frozen != 1)
10: player:tell("...argh... restarting $room_db:load...")
11: fork (0)
12: this:load()
13: endfork
14: kill_task(task_id())
15: endif
16: endif