kolibrios-fun/programs/fs/Eolite/trunk/include/LVabout.c--

#include "imgs\logo.txt"

void authors()
{    
	loop()
	{
		switch(WaitEvent())
		{
			CASE evButton: ExitProcess();
			CASE evKey: IF (GetKey()==27) ExitProcess(); break;
			CASE evReDraw:
				WindowRedrawStatus(1);
				DefineAndDrawWindow(500,200,181,256,0x04,0x10EFEBEF,0,0,"About Eolite");
				DrawBar(5,0,172,50,0x8494C4); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
				PutPaletteImage(#logo,85,85,48,7,#logo_pal);
				WriteText(32,100,0x80,0xBF40BF,"Eolite v0.97.2 beta7",0);
				WriteText(60,120,0x80,0,"Developers:",0); 
				WriteText(44,130,0x80,0,"Leency & Veliant",0); 
				WriteText(35,140,0x80,0,"Lrz, Diamond, Nable",0);
				WriteText(26,160,0x80,0,"Made using C-- in 2008",0);
				WriteText(23,170,0x80,0,"Visit www.kolibrios.org",0);
				DrawFlatButton(90,190,70,22,2,0xE4DFE1, "Close");
				WindowRedrawStatus(2);
		}
	}
}


dword ConvertSize(dword bytes)
{
	char size_prefix[7], temp[3];
	IF (bytes>=1073741824) copystr(" Gb",#temp);
	ELSE IF (bytes>=1048576) copystr(" Mb",#temp);
	ELSE IF (bytes>=1024) copystr(" Kb",#temp);
	ELSE copystr(" b ",#temp);
	WHILE (bytes>1023) bytes/=1024;
	copystr(IntToStr(bytes),#size_prefix);
	copystr(#temp,#size_prefix+strlen(#size_prefix));
	EAX=#size_prefix;
}


void Sort_by_Size(int a, b)   // <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: a = 0, b = <<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>> - 1
{                                        
	int i= a;
	IF (a >= b) return;
	FOR (j = a; j <= b; j++)
	{
		IF (ESDWORD[file_mas[j]*304 + buf+72-8] <= ESDWORD[file_mas[b]*304 + buf+72-8])
		{ file_mas[i] >< file_mas[j];   i++;}
	}
	Sort_by_Size (a, i-2);
	Sort_by_Size (i, b);
}


void Sort_by_Name(int a, b)   // <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: a = 0, b = <<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>> - 1
{                                        
	int i = a;
	IF (a >= b) return;
	FOR (j = a; j <= b; j++)
		IF (strcmp(file_mas[j]*304 + buf+72, file_mas[b]*304 + buf+72)<=0) { file_mas[i] >< file_mas[j];   i++;}
	Sort_by_Name(a, i-2);
	Sort_by_Name(i, b);
}


int partition1(dword a, b) 
{
	dword i = a; byte filename1[256], filename2[256]; int n;
	for (j = a; j <= b; j++)
	{
	    //
		copystr(file_mas[j]*304 + buf+72, #filename1);
		copystr(file_mas[b]*304 + buf+72, #filename2);
		n=strlen(#filename1)-1;
		WHILE (filename1[n]<>'.') && (n>0) n--;
		IF (n) copystr(#filename1+n+1, #filename1);
		n=strlen(#filename2)-1;
		WHILE (filename2[n]<>'.') && (n>0) n--;
		IF (n) copystr(#filename2+n+1, #filename2);
		//
		n=strcmp(#filename1, #filename2);
		IF (n<0) { file_mas[i] >< file_mas[j];   i++;} 
		IF (n==0) && (strcmp(file_mas[j]*304 + buf+72, file_mas[b]*304 + buf+72)<=0) { file_mas[i] >< file_mas[j];   i++;}
	}
	EAX = i-1;
}
 
void Sort_by_Type(dword a, b)   // <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: a = 0, b = <<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>> - 1
{                                        
	int c;
	IF (a >= b) RETURN;
	c = partition1(a, b);
	Sort_by_Type(a, c-1);
	Sort_by_Type(c+1, b);
}