Show Posts

The fact that you're creating an object using the conobject class GuiTextListCtrl, populating it with data, calling one method and deleting it to do something as simple as sorting strings should be an immediate pointer to that you're doing something wrong. Think about it for a second.

3863

Off Topic / Re: eleven year olds: the thread!

« on: June 11, 2013, 12:32:46 PM »

Quote from: Muslim on June 11, 2013, 10:08:04 AM

I got a referral, not suspended, for calling someone a bitch because they kicked me into a tree and laughed. c:

The good part: I was forced to go to guidance counselors for forget knows why, and they said "holy stuff! your out of control!" and they gave me a notebook to draw in whenever i got stressed.

so the forgetin' teachers that are mad at me for drawing can go forget themselves

Quote from: Muslim on June 11, 2013, 09:50:36 AM

Discuss being 11 and 11-year old things! My mommie is typing this, so I can't say anything bad.

Quote from: Clone v.117 on June 11, 2013, 10:14:53 AM

I have many 11 year old things to discuss.

So do I~

3864

Off Topic / Re: Furry Megathread - Genuinely Annoying Tildes

« on: June 11, 2013, 12:31:05 PM »

Quote from: ShadowsfeaR on June 11, 2013, 11:52:00 AM

Tilde's are the best~

Yes

Quote from: VincentTheGuy on June 11, 2013, 11:56:45 AM

This is incredicute.

This isn't even the tip of the iceberg when it comes to that.

3865

Modification Help / Re: Sorting Objects From A - Z

« on: June 11, 2013, 12:29:08 PM »

Quote from: Zeblote on June 11, 2013, 12:26:56 PM

Code: [Select]

//in: %word[]
//     %count

	%sorter = new GuiTextListCtrl(){};
	for(%i = 0; %i < %count; %i++)
		%sorter.addRow(%i, %word[%i]);
	%sorter.sort(0,1);
	for(%i = 0; %i < %sorter.rowCount(); %i++)
		%sorted[%i] = %sorter.getRowText(%i);

//out: %sorted[]

Why are you guys doing it so complicated

Because this requires objects and has extremely low flexibility.

3866

Modification Help / Re: Sorting Objects From A - Z

« on: June 11, 2013, 12:10:09 PM »

sort_list(list) takes a tab-separated list of values as a string and returns it in the same format but ordered based on the return value of do_single_sort(left, right).
Uses no objects or anything like that, just simple string manipulation. This is some pretty old code so I apologize for how unreadable it is.

Code: [Select]

$alpha = "abcdefghijklmnopqrstuvwxyz_";

function sort_list( %m )
{
	%count = getFieldCount( %m );
	
	if ( !strLen( %m ) || %count <= 1 )
	{
		return %m;
	}
	
	%middle = mFloor( %count / 2 );
	
	for ( %i = 0 ; %i < %middle ; %i++ )
	{
		%left = %left @ ( strLen( %left ) ? "\t" : "" ) @ getField( %m, %i );
	}
	
	for ( %i = %middle ; %i < %count ; %i++ )
	{
		%right = %right @ ( strLen( %right ) ? "\t" : "" ) @ getField( %m, %i );
	}
	
	%left = merge_sort( %left );
	%right = merge_sort( %right );
	
	return merge( %left, %right );
}

function do_single_sort( %left, %right )
{
	// I'm pretty sure you can just use strStr instead of this mess.

	%lln = strLen( %left );
	%rln = strLen( %right );
	
	if ( %lln < %rln )
	{
		%ln = %lln;
		%rt = 1;
	}
	else
	{
		%ln = %rln;
		%rt = 0;
	}
	
	for ( %i = 0 ; %i < %ln ; %i++ )
	{
		%lfs = getSubStr( %left, %i, 1 );
		%rfs = getSubStr( %right, %i, 1 );
		
		%lps = strPos( $alpha, %lfs );
		%rps = strPos( $alpha, %rfs );
		
		if ( %lps > %rps )
		{
			return 1;
		}
		
		if ( %rps > %lps )
		{
			return 0;
		}
	}
	
	return %rt;
}

function merge( %left, %right )
{
	%left = strReplace( %left, " ", "\x01" );
	%left = strReplace( %left, "\t", " " );

	%right = strReplace( %right, " ", "\x01" );
	%right = strReplace( %right, "\t", " " );
	
	while( getWordCount( %left ) > 0 || getWordCount( %right ) > 0 )
	{
		if ( getWordCount( %left ) > 0 && getWordCount( %right ) > 0 )
		{
			if ( !do_single_sort( firstWord( %left ), firstWord( %right ) ) )
			{
				%result = %result @ ( strLen( %result ) ? "\t" : "" ) @ firstWord( %left );
				%left = restWords( %left );
			}
			else
			{
				%result = %result @ ( strLen( %result ) ? "\t" : "" ) @ firstWord( %right );
				%right = restWords( %right );
			}
		}
		else if ( getWordCount( %left ) > 0 )
		{
			%result = %result @ ( strLen( %result ) ? "\t" : "" ) @ firstWord( %left );
			%left = restWords( %left );
		}
		else if ( getWordCount( %right ) > 0 )
		{
			%result = %result @ ( strLen( %result ) ? "\t" : "" ) @ firstWord( %right );
			%right = restWords( %right );
		}
	}
	
	%left = strReplace( %left, " ", "\t" );
	%left = strReplace( %left, "\x01", " " );

	%right = strReplace( %right, " ", "\t" );
	%right = strReplace( %right, "\x01", " " );
	
	return %result;
}