Sorry your browser is not supported!

		` configuration for threads
	type TThreadData
		threadPTR as integer,
		threadState as byte,
		threadData as integer
	endtype
			` type "function link"
		type TFunctionLink ` описание типа ссылки на функцию
			functionName as string, ` имя функции
			functionPtr as integer, ` указатель на функцию
				functionThread as TThreadData ` thread data
		endtype
	
		` array links to functions
	global dim ENGINE_Function_Links(0) as TFunctionLink ` массив ссылок на функции
	global ENGINE_SingleThread_FunctionName as string
	
		` test var for timer
	global Test_Timer as integer

	
		set window on
		set display mode 480,340,32
		sync on : sync rate 0
	
	
	Engine_Function_Core_Init()
	Test_LoadLogo()

	
	global iteration as integer
	global pos as integer
	iteration=-1

	ENGINE_SingleThread_FunctionName="Test_PrintStatus" ` to construct thread for update status loading
	gosub _ENGINE_Function_RunInThread

		//====================================
		// Imagine that this is the level boot process.
		// We will to assume that it requires a fairly
		// complex calculations and a lot of time.
		//====================================
		backdrop on
		
		Test_Timer=timer()
		repeat ` processing
		inc iteration
			
				for pos=0 to 1000 ` calculate
				
								` create object map
							make object box iteration*1001+pos+1,rnd(20)+5,rnd(20)+5,rnd(20)+5
							position object iteration*1001+pos+1,rnd(1000)-500,rnd(1000)-500,rnd(1000)-500
							exclude object on iteration*1001+pos+1
							
					// sleep 100 ` - it help circumvent conflict, but, it very slow
					
				next
				
				set window title str$(timer()-Test_Timer)+" mls."
			sleep 50
		until (iteration>=100)
		//====================================

	ENGINE_SingleThread_FunctionName="Test_PrintStatus"  ` to stop and destroy thread
	gosub _ENGINE_Function_StopThread
	
	delete sprite 1
	delete image 1
		
			ink 0,0
			box 0,0,screen width (), screen height ()
			ink 0xff00ff00,0
			center text screen width()*0.5, screen height()*0.5, "Complete! - "+ str$(timer()-ENGINE_Timer)+ " mls."
			sync
			wait key

	end

	_ENGINE_Function_RunInThread:
	  
		local functionNumber as integer
		global functionPTR as integer
		
		functionNumber = Engine_Function_GetNumber(ENGINE_SingleThread_FunctionName)
		functionPTR = Make function thread(functionNumber) ` create thread
		
			ENGINE_Function_Links(functionNumber).functionThread.threadPTR=functionPTR ` save pointer and state
			ENGINE_Function_Links(functionNumber).functionThread.threadState=1

	return

	_ENGINE_Function_StopThread:
	local functionNumber as integer
	
		functionNumber=Engine_Function_GetNumber(ENGINE_SingleThread_FunctionName)
		ENGINE_Function_Links(functionNumber).functionThread.threadState=0
		sleep 10 ` to wait "exit from loop" in thread
				
		ENGINE_Function_Links(functionNumber).functionThread.threadPTR=-1 ` clear pointer
		
	return

	
		` function for "single threading"
	  function Test_PrintStatus() ` progress and animation loading
	  local this as integer
		this = Engine_Function_GetNumber("Test_PrintStatus")
		
		  repeat
			  ink 0x00000000,0x00000000
			  box 0,0,screen width (), screen height ()

					ink 0xffffffff,0x00000000
					center text screen width()*0.5, screen height()*0.5, "progress ["+str$(iteration+pos/1000.0)+"%]"+chr$(13)+chr$(10)+"Loading..."
					
						rotate sprite 1,wrapvalue(sprite angle (1)+1)
						
							cX#=screen width() - sprite width (1) - 4 - cos(sprite angle (1))*SpriteSizeW#*0.5
							cY#=screen height() - sprite height (1) - 4 - sin(sprite angle (1))*SpriteSizeH#*0.5
						
						paste sprite 1,cX#,cY#
						
			sleep 10
			sync
		  until (ENGINE_Function_Links(this).functionThread.threadState=0)
		  
		  ENGINE_Function_Links(this).functionThread.threadState=-1
		  
	  endfunction

	  
	function Test_LoadLogo()
	global SpriteSizeW# as float
	global SpriteSizeH# as float
	
		load image "media\logo.png",1
		sprite 1,0,0,1
		SpriteSizeW#=screen width()/12.5
		SpriteSizeH#=screen height()/9.3
		size sprite 1,SpriteSizeW#,SpriteSizeH#
		hide sprite 1
		
	endfunction
	  
	  
	  
	  

	
	
	
	
	
	
	
	function Engine_Function_GetNumber(functionName as string) ` get "function number" from "function name"
	local index as integer
	
		for index=1 to array count (ENGINE_Function_Links(0))
			
			if (ENGINE_Function_Links(index).functionName=functionName) then exitfunction index
			
		next
	
	endfunction 0
	  
	
	function Engine_Function_Core_Init() ` to get all function links
	local index as integer
	local functionCount as integer
	
		functionCount = get function count () ` получаем число функций в движке
		
		undim ENGINE_Function_Links() ` уничтожаем массив
		global dim ENGINE_Function_Links(functionCount) as TFunctionLink ` переопределяем массив
		
		
			for index=1 to functionCount ` проходимся по всем функциям
				
				ENGINE_Function_Links(index).functionName=GET FUNCTION NAME$ (index) ` получаем имя функции
				ENGINE_Function_Links(index).functionPtr=GET PTR TO FUNCTION (index) ` получаем указатель на функцию
				
			next
	
	endfunction

load_loading_screen()
thread = start_thread(load_game())

while thread_alive(thread)
    // control your loading screen here
endwhile

// the game starts here

function load_game()
    // load all of your main game stuff here
endfunction

	` function for "single threading"
	  function Test_PrintStatus() ` progress and animation loading
	  local this as integer
		this = Engine_Function_GetNumber("Test_PrintStatus")
		
		  repeat
			  ink 0x00000000,0x00000000
			  box 0,0,screen width (), screen height ()

					ink 0xffffffff,0x00000000
					center text screen width()*0.5, screen height()*0.5, "progress ["+str$(iteration+pos/1000.0)+"%]"+chr$(13)+chr$(10)+"Loading..."
					
						rotate sprite 1,wrapvalue(sprite angle (1)+1)
						
							cX#=screen width() - sprite width (1) - 4 - cos(sprite angle (1))*SpriteSizeW#*0.5
							cY#=screen height() - sprite height (1) - 4 - sin(sprite angle (1))*SpriteSizeH#*0.5
						
						paste sprite 1,cX#,cY#
						
			sleep 10
			sync
		  until (ENGINE_Function_Links(this).functionThread.threadState=0)
		  
		  ENGINE_Function_Links(this).functionThread.threadState=-1
		  
	  endfunction

for i=1 to 40
print i
sleep 50
next i
end

for i=1 to 40
print i
next i
end

for stuff= 1 to amount_of_stuff_to_do
    load something
    update screen with progress
    sync
next stuff

functionNumber = Engine_Function_GetNumber(ENGINE_SingleThread_FunctionName)
		functionPTR = Make function thread(functionNumber) ` create thread

 _beginthread (PTR, 0, NULL);

_endthread ();

for pos=1 to 1000 ` calculate
				sleep 10 ` wait thread
					
				
								` create objects
							for i=0 to 10000 ` overload CPU Core
								make object sphere i+pos+(iteration+1)*1000,0.000003,180,180 
								position object i+pos+(iteration+1)*1000,rnd(10000)+500,rnd(10000)+500,rnd(10000)+500
								delete object i+pos+(iteration+1)*1000 
							next
							
								make object sphere pos+(iteration+1)*1000,0.000003,4,4 ` safe RAM
								position object pos+(iteration+1)*1000,rnd(10000)+500,rnd(10000)+500,rnd(10000)+500

								
								
				next

load_loading_screen()
thread = start_thread(load_game())

while thread_alive(thread)
    // control your loading screen here
    suspend_thread(thread)
    sync
    resume_thread(thread)
endwhile

// the game starts here

function load_game()
    // load all of your main game stuff here
endfunction

while thread_alive(thread)
    // control your loading screen here
    suspend_thread(thread)
    sync
    resume_thread(thread)
endwhile

while thread_alive(thread)
    // control your loading screen here
    sleep 16  // 1/60 fps, so sync doesn't consume most of the time
    suspend_thread(thread)
    sync
    resume_thread(thread)
endwhile

DARKSDK void FastSync(void)
{
	ExternalDisplaySync(1);
	//V111 - 110608 - no need for this as FASTSYNC just used to render cameras (main SYNC handles proper update per cycle)
	//ConstantNonDisplayUpdate(); // lee - 100208 - moved from ConstantNonDisplayUpdate(), added by Mike in 2005
	g_bCanRenderNow = true;
}

DARKSDK void Sync(int iProcessMessages)
{
	ExternalDisplaySync(0);
	if ( iProcessMessages==1 ) ProcessMessagesOnly();
	ConstantNonDisplayUpdate();
	g_bCanRenderNow = true;
}

DARKSDK void ExternalDisplaySync ( int iSkipSyncRateCodeAkaFastSync )
{
	// Skip this phase if app has been shut down (always active off)
	if ( g_bAlwaysActiveOneOff ) 
		return;

	// V111 - 110608 - FASTSYNC should not use sync delay!
	if ( iSkipSyncRateCodeAkaFastSync==0 )
	{
        AccurateTimer Timer;

		// Skip refreshes causing even faster FPS rates!
		if(g_dwManualSuperStepSetting>0)
		{
			if(Timer.Get()-g_dwRecordedTimer<g_dwManualSuperStepSetting)
				return;
		}

		// Force FPS
		if(g_dwSyncRateSettingSize>0)
		{
            DWORD dwDifference = GetNextSyncDelay();
			while(Timer.Get()-g_dwRecordedTimer < dwDifference)
				if(ProcessMessagesOnly()==1) return;
		}
		else
		{
			// Need to ad least process these monitors
			ConstantNonDisplayUpdate();
		}

        // u74b7 - Only update the sync timer if not using fastsync
        // Record time of update
	    g_dwRecordedTimer = Timer.Last();
	}

	// leefix - 260604 - u54 - in case input wants single data-grab functionality
	if(g_Input_ClearData) g_Input_ClearData();

	// If using External Graphics API
	if(g_bExternalDisplayActive)
	{
		// leeadd - 160306 - u60 - camera zero off suspends normal operations
		bool bSuspendScreenOperations = false;
		if ( !(g_dwSyncMask & 1) )
		{
			// flag the suspension of regular screen zero activity
			bSuspendScreenOperations = true;
		}
		if ( bSuspendScreenOperations==false )
		{
			// If BSP used, compute responses
			if(g_World3D_End) g_World3D_End();
			if(g_Basic3D_AutomaticCollisionEnd) g_Basic3D_AutomaticCollisionEnd();

			// Draw Phase : Store backbuffer before any 3D is drawn..
			if(g_Sprites_SaveBack) g_Sprites_SaveBack();

			// Draw Phase : Draw Sprites Last
			if(g_bDrawSpritesFirst==false)
				if(g_Sprites_Update)
					g_Sprites_Update();
			
			// Ensures AutoStuff is first to be rendered
			if(g_bDrawAutoStuffFirst==true)
			{
				if(g_bSceneStarted)
				{
					// leeadd - 071108 - U71 - render quad if flagged
					if ( g_bDrawQuadInSync )
					{
						if(g_Basic3D_RenderQuad)
						{
							if(g_Basic3D_RenderQuad(0)==1)
							{
								g_Camera3D_RunCode ( 0 );
								g_Basic3D_RenderQuad(1);
							}
						}
					}
					g_GFX_End();
					if ( g_bCanRenderNow )
						g_GFX_Render();
				}
				g_bSceneStarted=true;
				g_GFX_Begin();

				// restore before-Sprites-drawn on new screen render
				if(g_Sprites_RestoreBack) g_Sprites_RestoreBack();
			}

			// Draw Phase : Draw Sprites First
			if(g_bDrawSpritesFirst==true)
				if(g_Sprites_Update)
					g_Sprites_Update();
		}

		// Draw Phase : Draw 3D Gemoetry
		if( g_Camera3D_StartSceneInt )
		{
			// Reset polycount and drawprim count
			if ( g_pGlob ) g_pGlob->dwNumberOfPolygonsDrawn=0;
			if ( g_pGlob ) g_pGlob->dwNumberOfPrimCalls=0;

			// Disable backdrop if camera zero disabled
			int iMode = 0; if ( bSuspendScreenOperations ) iMode = 1;

			// U75 - 080410 - ensure animation in scene only calculated once (on SYNC)
			if ( iSkipSyncRateCodeAkaFastSync==0 )
				if(g_Basic3D_UpdateAnimationCycle)
					g_Basic3D_UpdateAnimationCycle();

			// Draw all 3D - all cameras loop
			g_Camera3D_StartSceneInt ( iMode );
			do {
				int iThisCamera = 1 + g_Camera3D_GetRenderCamera();
				if ( iThisCamera <= 32 )
				{
					// camera 0 - 31 can be masked
					DWORD dwCamBit = 1;
					if ( iThisCamera > 1 ) dwCamBit = dwCamBit << (DWORD)(iThisCamera-1);
					dwCamBit = dwCamBit & g_dwSyncMask;
					if ( dwCamBit==0 ) iThisCamera = 0;

					// 20120313 IanM - Removed incorrect 'prediction' code for next camera rendering.
				}
				if ( iThisCamera > 0 )
				{
					// Push all polygons for 3D components
					for(g_pGlob->dwRedrawPhase=0; g_pGlob->dwRedrawPhase<g_pGlob->dwRedrawCount; g_pGlob->dwRedrawPhase++)
					{
                        // u74b8 - replace hard-coded calls with a dynamic list of function pointers
                        ExecuteRenderList();
					}
				}
				// Next camera or finish..
			} while (g_Camera3D_FinishSceneEx(false)==0);

			// leeadd - 071107 - U71 - after 3D operations, direct whether SPRITES/2D/IMAGE
			// drawing is to take place by default (bitmap or camera zero)
			if ( g_bDrawEntirelyToCamera==true ) g_Camera3D_RunCode ( 1 );
		}
		if ( bSuspendScreenOperations==false )
		{
			// Ensures AutoStuff is last to be rendered
			if(g_bDrawAutoStuffFirst==false)
			{
				if(g_bSceneStarted)
				{
					// leeadd - 071108 - U71 - render quad if flagged
					if ( g_bDrawQuadInSync )
					{
						if(g_Basic3D_RenderQuad)
						{
							if(g_Basic3D_RenderQuad(0)==1)
							{
								g_Camera3D_RunCode ( 0 );
								g_Basic3D_RenderQuad(1);
							}
						}
					}
					g_GFX_End();
					if ( g_bCanRenderNow )
						g_GFX_Render();
				}
				g_bSceneStarted=true;
				g_GFX_Begin();

				// restore before-Sprites-drawn on new screen render
				if(g_Sprites_RestoreBack) g_Sprites_RestoreBack();
			}

			// If BSP used, set response check
			if(g_World3D_Start) g_World3D_Start();
			if(g_Basic3D_AutomaticCollisionStart) g_Basic3D_AutomaticCollisionStart();
		}
	}
}

		// Force FPS
		if(g_dwSyncRateSettingSize>0)
		{
            DWORD dwDifference = GetNextSyncDelay();
			while(Timer.Get()-g_dwRecordedTimer < dwDifference)
				if(ProcessMessagesOnly()==1) return;
		}

ExecuteRenderList();

void ExecuteRenderList()
{
    // If the render list has been added to, re-sort it
    if (g_bRenderListDirty)
    {
        g_bRenderListDirty = false;
        std::sort( g_vRenderList.begin(), g_vRenderList.end() );
    }

    // Make a copy, in case someone manipulates the list from their own
    // function while it's being actioned.
    std::vector<RenderListItem> RenderList( g_vRenderList );

    // Execute each item in the list, by calling the Execute method of every item in the vector
    std::for_each(
        RenderList.begin(),
        RenderList.end(),
        std::mem_fun_ref( &RenderListItem::Execute )
    );
}

	iterator begin()
		{	// return iterator for beginning of mutable sequence
		return (iterator(this->_Myfirst, this));
		}

	const_iterator begin() const
		{	// return iterator for beginning of nonmutable sequence
		return (const_iterator(this->_Myfirst, this));
		}

	iterator end()
		{	// return iterator for end of mutable sequence
		return (iterator(this->_Mylast, this));
		}

namespace
{
    class RenderListItem;
    typedef std::vector<RenderListItem>     RenderList;
    typedef RenderList::iterator            RenderListIter;
    typedef void (*FunctionPtr)(...);

    // This used to hold a function pointer to be called during rendering of each camera
    class RenderListItem
    {
        int         m_Priority;
        FunctionPtr m_Pointer;

    public:
        explicit RenderListItem(int iPriority, FunctionPtr pPointer)
            : m_Priority(iPriority), m_Pointer(pPointer) { }

        // Less-than operator, for sorting
        bool operator<(const RenderListItem& Other) const
        {
            if (m_Priority < Other.m_Priority) return true;
            if (m_Priority > Other.m_Priority) return false;
            return m_Pointer < Other.m_Pointer;
        }

        // Equal-to operator, for identifying functions to remove
        bool operator==(const FunctionPtr pPointer) const
        {
            return pPointer == m_Pointer;
        }

        void Execute() const
        {
            m_Pointer();
        }
    };


    RenderList                          g_vRenderList;
    bool                                g_bRenderListDirty;
}

DARKSDK_DLL void Load ( SDK_LPSTR szFilename, int iID )
{
	// Uses actual or virtual file..
	char VirtualFilename[_MAX_PATH];
	strcpy(VirtualFilename, (LPSTR)szFilename);
	g_pGlob->UpdateFilenameFromVirtualTable( (DWORD)VirtualFilename);

	// Decrypt and use media, re-encrypt
	g_pGlob->Decrypt( (DWORD)VirtualFilename );
	LoadCore ( (SDK_LPSTR)VirtualFilename, iID, 0, 0 );
	g_pGlob->Encrypt( (DWORD)VirtualFilename );
}

DARKSDK_DLL void Load ( SDK_LPSTR szFilename, int iID, int iDBProMode )
{
	// Uses actual or virtual file..
	char VirtualFilename[_MAX_PATH];
	strcpy(VirtualFilename, (LPSTR)szFilename);
	g_pGlob->UpdateFilenameFromVirtualTable( (DWORD)VirtualFilename);

	// Decrypt and use media, re-encrypt
	g_pGlob->Decrypt( (DWORD)VirtualFilename );
	LoadCore ( (SDK_LPSTR)VirtualFilename, iID, iDBProMode, 0 );
	g_pGlob->Encrypt( (DWORD)VirtualFilename );
}

DARKSDK_DLL void Load ( SDK_LPSTR szFilename, int iID, int iDBProMode, int iDivideTextureSize )
{
	// Uses actual or virtual file..
	char VirtualFilename[_MAX_PATH];
	strcpy(VirtualFilename, (LPSTR)szFilename);
	g_pGlob->UpdateFilenameFromVirtualTable( (DWORD)VirtualFilename);

	// Decrypt and use media, re-encrypt
	g_pGlob->Decrypt( (DWORD)VirtualFilename );
	LoadCore ( (SDK_LPSTR)VirtualFilename, iID, iDBProMode, iDivideTextureSize );
	g_pGlob->Encrypt( (DWORD)VirtualFilename );
}

#ifdef DARKSDK_COMPILE

void dbLoadObject ( char* szFilename, int iID )
{
	Load ( ( DWORD ) szFilename, iID );
}

void dbLoadObject ( char* szFilename, int iID, int iDBProMode )
{
	Load ( ( DWORD ) szFilename, iID, iDBProMode );
}

// mike - 181206 - expose full load object function for GDK
void dbLoadObject ( char* szFilename, int iID, int iDBProMode, int iDivideTextureSize )
{
	Load ( ( DWORD ) szFilename, iID, iDBProMode, iDivideTextureSize );
}

DARKSDK_DLL void LoadCore ( SDK_LPSTR szFilename, int iID, int iDBProMode, int iDivideTextureSize )
{
	// ensure the object is okay to use
	ConfirmNewObject ( iID );

	// check memory allocation
	ID_ALLOCATION ( iID );

	// load the object
	if ( !LoadDBO ( (LPSTR)szFilename, &g_ObjectList [ iID ] ) )
		return;

	// setup new object and introduce to buffers
	if ( !SetNewObjectFinalProperties ( iID, -1.0f ) )
		return;

	if ( g_ObjectList [ iID ]->iMeshCount == 0 )
		return;

	// add object id to shortlist
	AddObjectToObjectListRef ( iID );

	// calculate path from filename
	char szPath [ MAX_PATH ];
	if ( _strnicmp ( (char*)szFilename+strlen((char*)szFilename)-4, ".mdl", 4 )==NULL )
	{
		// MDL models store their textures in the temp folder
		DBOCalculateLoaderTempFolder();
		strcpy ( szPath, g_WindowsTempDirectory );
	}
	else
	{
		// Path is current model location
		strcpy( szPath, "" );
		LPSTR pFile = (LPSTR)szFilename;
		DWORD dwLength = strlen(pFile);
		for ( int n=dwLength; n>0; n-- )
		{
			if ( pFile[n]=='\\' || pFile[n]=='/' )
			{
				strcpy ( szPath, pFile );
				szPath[n+1]=0;
				break;
			}
		}	
	}

	// prepare textures for all meshes (load them)
	sObject* pObject = g_ObjectList [ iID ];
	for ( int iMesh = 0; iMesh < pObject->iMeshCount; iMesh++ )
		LoadInternalTextures ( pObject->ppMeshList [ iMesh ], szPath, iDBProMode, iDivideTextureSize );

	// 250704 - prepare effects for all meshes (load them)
	for ( int iMesh = 0; iMesh < pObject->iMeshCount; iMesh++ )
	{
		// get mesh ptr
		sMesh* pMesh = pObject->ppMeshList [ iMesh ];
		if ( pMesh->bUseVertexShader )
		{
			// Search if effect already loaded (else create a new)
			CreateNewOrSharedEffect ( pMesh, true );
		}
	}
}