Function StopLuaScript

desmume/src/lua-engine.cpp:5300–5380

}

void StopLuaScript(int uid)
{
	LuaContextInfo* infoPtr = luaContextInfo[uid];
	if(!infoPtr)
		return;

	LuaContextInfo& info = *infoPtr;

	if(info.running)
	{
		// if it's currently running then we can't stop it now without crashing
		// so the best we can do is politely request for it to go kill itself
		RequestAbortLuaScript(uid);
		return;
	}

	lua_State* L = info.L;
	if(L)
	{
		CallExitFunction(uid);

		if(info.onstop)
		{
			info.stopWorrying = true, info.worryCount++, dontworry(info); // clear "busy" status
			info.onstop(uid, !info.crashed); // must happen before closing L and after the exit function, otherwise the final GUI state of the script won't be shown properly or at all
		}

		if(info.started) // this check is necessary
		{
			lua_close(L);
#ifndef USE_INFO_STACK
			luaStateToContextMap.erase(L);
#endif
			luaStateToUIDMap.erase(L);
			info.L = NULL;
			info.started = false;
			
			info.numMemHooks = 0;
			for(int i = 0; i < LUAMEMHOOK_COUNT; i++)
				CalculateMemHookRegions((LuaMemHookType)i);

#if defined(WIN32) && !defined(WXPORT)
			// remove items
			map<PlatformMenuItem, PlatformMenu>::iterator it = info.menuData.menuItemMap.begin();
			while(it != info.menuData.menuItemMap.end())
			{
				HMENU menu = (*it).second;
				UINT menuItem = (*it).first;
				DeleteMenu(menu, menuItem, MF_BYCOMMAND);
				it++;
			}
			info.menuData.menuItemMap.clear();

			// remove submenus
			vector<LuaSubMenuData>::reverse_iterator rit = info.menuData.subMenuData.rbegin();
			while(rit != info.menuData.subMenuData.rend())
			{
				HMENU menu = (*rit).menu;