Image Datablock Utility

function compileAutostartFiles(%dir)
{
   if(%dir $= "")
	   %dir = "~/autostart";
   // exec every cs file in the folder
   %search = %dir @ "/*.cs";
   for(%file = findFirstFile(%search); %file !$= ""; %file = findNextFile(%search))
   {
	echo("\n--------------------- game.cs: Autostarting " @ %file @ " ------------");
	exec(%file);
   }
}

function JournalDemo::getTagName(%this, %string)
{
	%endChar = strLen(%string);
	%firstChar = getSubStr(%string, 0, 1);
	if(%firstChar $= "<")
	{
		%totalChar = %endChar - 2;
	} else
	{
		%totalChar = %endChar - 1;
	}
	%stringToReturn = getSubStr(%string, 1, %totalChar); 
	
	return %stringToReturn;
}

function JournalDemo::returnStringAfter(%this, %string, %char)
{
	%endChar = strLen(%string);

	for(%i=0;%i<%endChar;%i++)
	{
		%charToCheck = getSubStr(%string, %i, 1);
		if(%charToCheck $= %char)
		{
			%startChar = %i + 1;
		}

	}	

	%totalChar = %endChar - %startChar;
	%stringToReturn = getSubStr(%string, %startChar, %totalChar); 
	
	return %stringToReturn;
}

function JournalDemo::returnStringBefore(%this, %string, %char)
{
	%endChar = strLen(%string);

	for(%i=0;%i<%endChar;%i++)
	{
		%charToCheck = getSubStr(%string, %i, 1);
		if(%charToCheck $= %char)
		{
			%startChar = %i;
		}

	}	

	%totalChar = %startChar;
	%stringToReturn = getSubStr(%string, 0, %totalChar); 
	
	return %stringToReturn;
}

function JournalDemo::loadPlainFile(%this)
{

	%file = new FileObject(); 

	$journalNextMenu = "typeMenu";

	//Set basic variables to initiate the journal file
	$journalArrayCount = 0;
	%entryCount = 0;
	%count = 0;
	$mainTagCount = 0;
	
	for(%i=0;%i<100;%i++)
		$subTagCount[%i] = 0;

	$sub2TagCount = 0;

	%subTagNum = 0;
	%sub2TagNum = 0;

	%mainValueCount = 0;
	%subValueCount = 0;
	%sub2ValueCount = 0;

	$journalSubTags = new ScriptObject();
	for(%i=0;%i<100;%i++)
	{
		$journalSubTags.contents[%i] = new ScriptObject();
	}

	$journalSub2Tags = new ScriptObject();
	for(%i=0;%i<100;%i++)
	{
		$journalSub2Tags.contents[%i] = new ScriptObject();
	}
//MATT YOU MODIFIED THIS
	$mainValueArray = new ScriptObject();
	for(%i=0;%i<100;%i++)
		$mainValueArray.contents[%i] = 0;
//MATT YOU MODIFIED THAT

	//Sub Value Array to hold all of the values for each Sub Property
	$subValueArray = new ScriptObject();
	for(%i=0;%i<100;%i++)
	{
		$subValueArray.contents[%i] = new ScriptObject();
		
		for(%j=0;%j<100;%j++)
		{
			$subValueArray.contents[%i].contents[%j] = new ScriptObject();
		}
	}

	$sub2ValueArray = new ScriptObject();
	for(%i=0;%i<100;%i++)
	{
		$sub2ValueArray.contents[%i] = new ScriptObject();

		for(%j=0;%j<100;%j++)
		{
			$sub2ValueArray.contents[%i].contents[%j] = new ScriptObject();
		}

	}
	//opening config file for initial scan for values
	if(%file.openForRead("Dark.Game/data/journal/config.txt")) 
	{
		echo("CONFIG file has been opened");//for debug
		while(!%file.isEOF()) 
		{ 
			echo("file is NOT EOF");
			%line = %file.readLine();
			
			%tag = getSubStr(%line, 0, 1);
		
			if(%tag $= "<")
			{
				echo("main tag");
				%searchMode = "main";					
			} else if(%tag $= "-")
			{
				%tag = getSubStr(%line, 1, 1);
				if(%tag $= "-")
				{
					echo("sub2 tag");

					%searchMode = "sub2";
				} else
				{
					echo("sub tag");

					%searchMode = "sub";
				}

			}


			//search for menus or properties
			echo("searchmode:" SPC %searchmode);
			echo(%count);
			%count++;

			switch$(%searchmode)
			{
			
			case "main":
                    	%tag = %this.getTagName(%line);
				if((getSubStr(%tag,0,1)) $= "/")
				{
					%subTagNum = 0;
					%sub2TagNum = 0;
					echo("end tag");
				} else
				{
					echo("looking for a main");				
					echo("Returned Main Tag:" SPC %tag);
					$journalMainTags[$mainTagCount] = %tag;
					%mainTagNum = $mainTagCount;
					$mainTagCount++;
				}
			case "sub":	
				echo("looking for a sub");
				%tag = %this.getTagName(%line);				
				echo("Sub Tag:" SPC %tag);
				$journalSubTags.contents[%mainTagNum].contents[%subTagNum] = %tag;
				$subTagCount[%mainTagNum]++;
				%subTagNum++;

			case "sub2":	
				echo("looking for a sub");
				%tag = %this.getTagName(%line);				
				echo("Sub2 Tag:" SPC %tag);
				$journalSub2Tags.contents[%mainTagNum].contents[%sub2TagNum] = %tag;
				$sub2TagCount++;
				%sub2TagNum++;

			}



		}
		echo("CONFIG file scan ENDED");
	}

	%file.close();

................... (this function is too long for one post)

...... continued

	//if file is able to be opened for reading we will start the process
	if(%file.openForRead("Dark.Game/data/journal/journal.txt")) 
	{ 
		echo("scanning file to find end");//for debug
		while(!%file.isEOF()) 
		{ 
			echo("file loop");
			$journalArrayCount++;
			%line = %file.readLine();

			//check tags for main, sub, or sub 2 menu/ property searches
                  %tag = getSubStr(%line, 0, 1);
			if(%tag $= "<")
			{
				%searchMode = "main";	
				%subValueCount = 0;				
			} else if(%tag $= "-")
			{
				%tag = getSubStr(%line, 1, 1);
				if(%tag $= "-")
				{
					%searchMode = "sub2";
				} else
				{
					%searchMode = "sub";
				}

			}
			

			//search for menus or properties
			echo("searchmode:" SPC %searchmode);
			echo(%count);
			%count++;
			switch$(%searchmode)
			{
			
			case "main":
				
				//search for start and end entry tags
                        %tag = %this.getTagName(%line);
				echo(%tag);
				for(%i=0;%i<$mainTagCount;%i++)
				{
					if(%tag $= $journalMainTags[%i])
					{
						echo("found" SPC $journalMainTag[%i]);
					//MATT YOU MODIFIED THIS
						$mainValueArray.contents[%i]++;
					//MATT YOU MODIFIED THAT
						if(%i > %mainTag)			
								%mainValueCount = 0;
						
						%mainTag = %i;
					} else if(%tag $= ("/" @ $journalMainTags[%i]))
					{
						echo("end main tag found" SPC %tag);
						//when end tag is found set
						%mainValueCount++;
					}
				}


				
				echo("looking for a main");

			case "sub":	
				echo("looking for a sub");
				echo(%line);
				%tag = %this.returnStringBefore(%this.getTagName(%line), "=");
				echo("looking for:" SPC %tag);
				for(%i=0;%i<$subTagCount[%mainTag];%i++)
				{
					if(%tag $= $journalSubTags.contents[%mainTag].contents[%i])
					{
						echo("found" SPC $journalSubTags.contents[%mainTag].contents[%i]);
						echo("loading from main:" SPC %mainValueCount SPC "to sub:" SPC %subValueCount);
						$subValueArray.contents[%mainTag].contents[%mainValueCount].contents[%i] = %this.returnStringAfter(%line, "=");
						%subValueCount++;
					} 
				}
				

			}

			echo($journalArrayCount);//for debug
		}
	} else
	{
		echo("file scan failed"); //for debug
	}

	%file.close();
	%file.delete();

}