User Account System

function UACOnline::onLine(%this, %line)
{
	echo(%line); // spam, use for debugging

	if(%line $= "<!--end-->")
	{
		$uac::result = $web::HTTPTextLines;
		$web::HTTPTextLines = "";
		
		if($uac::curfunction $= "register")
		{
			switch$($uac::lastmessage) // Error handling
			{
				case "MYSQLError":
					MessageBoxOK("Error", "The web server did not send a valid response, please try again later. " @ %result);
								
				case "UserTaken":
					MessageBoxOK("Error", "That username is already taken");
					
            case "SUCCESS":
					//MessageBoxOK("Sucess!", "Thankyou for registering.");
					canvas.popdialog(registerdlg);
					canvas.pushdialog(registeravatardlg);
					
								
				default:
					MessageBoxOK("Error", "An unknown error has occured, please be scared and hide under your desk.");
				
			}
		}
		if($uac::curfunction $= "registeravatar")
		{
			switch$($uac::lastmessage) // Error handling
			{
				case "MYSQLError":
					MessageBoxOK("Error", "The web server did not send a valid response, please try again later. " @ %result);
								
				case "AvatarTaken":
					MessageBoxOK("Error", "That username is already taken");
					
            case "SUCCESS":
					//MessageBoxOK("Sucess!", "Thankyou for registering.");
					//canvas.popdialog(registerdlg);
					canvas.pushdialog(registeravatardlg);
					//canvas.pushdialog(registeravatardlg);
					
								
				default:
					MessageBoxOK("Error", "An unknown error has occured, please be scared and hide under your desk.");
				
			}
		}

#  case "SUCCESS":  
#                     //MessageBoxOK("Sucess!", "Thankyou for registering.");  
#                     //canvas.popdialog(registerdlg);  
#                     canvas.pushdialog(registeravatardlg);  
#                     //canvas.pushdialog(registeravatardlg);

case "AVATARSUCCESS":
//MessageBoxOK("Sucess!", "Thankyou for registering.");
//canvas.popdialog(registerdlg);
canvas.popdialog(registeravatardlg);
//canvas.pushdialog(registeravatardlg);

// vote: is dso good enough security for you?

%uac = new GameBaseData(UAC);

$uac::HTTPHost = "localhost:80";
$uac::Location = "/torque/";
$uac::registerPage = "register.php";
$uac::registeravatarPage = "registeravatar.php";
$uac::loginPage = "login.php";
$uac::scorePage = "stats.php";
$uac::awardsPage = "awards.php";
$uac::avatarinfoPage = "avatarinfo.php";
$uac::result = "";
$uac::curfunction = "";
$uac::lastmessage = "";

function UACOnline::onLine(%this, %line)
{
	echo(%line); // spam, use for debugging

	if(%line $= "<!--end-->")
	{
		$uac::result = $web::HTTPTextLines;
		$web::HTTPTextLines = "";
		
		if($uac::curfunction $= "register")
		{
			switch$($uac::lastmessage) // Error handling
			{
				case "MYSQLError":
					MessageBoxOK("Error", "The web server did not send a valid response, please try again later. " @ %result);
								
				case "UserTaken":
					MessageBoxOK("Error", "That username is already taken");
					
            case "SUCCESS":
					//MessageBoxOK("Sucess!", "Thankyou for registering.");
					canvas.popdialog(registerdlg);
					canvas.pushdialog(registeravatardlg);
					
								
				default:
					MessageBoxOK("Error", "An unknown error has occured, please be scared and hide under your desk.");
				
			}
		}
		if($uac::curfunction $= "registeravatar")
		{
			switch$($uac::lastmessage) // Error handling
			{
				case "MYSQLError":
					MessageBoxOK("Error", "The web server did not send a valid response, please try again later. " @ %result);
								
				case "AvatarTaken":
					MessageBoxOK("Error", "That username is already taken");
					
            case "AVATARSUCCESS":
					MessageBoxOK("Sucess!", "Your Avatar is created.");
					canvas.popdialog(registeravatardlg);
										
								
				default:
					MessageBoxOK("Error", "An unknown error has occured, please be scared and hide under your desk.");
				
			}
		}
		
		if($uac::curfunction $= "login")
		{
			switch$($uac::lastmessage) // Error handling
			{
				case "MYSQLError":
					MessageBoxOK("Error", "The web server did not send a valid response, please try again later. " @ %result);
					%this.logout();
				
				
				case "BADUSER":
					MessageBoxOK("Error", "Incorrect username/password");
					%this.logout();
				
				
				default:
					if(strpos($uac::lastmessage, "~") > 0)
					{
						echo($uac::lastmessage);
						%array = strSplit($uac::lastmessage, "~");
						UAC.Loggedin 	= 	true;
						UAC.ID 			= 	%array.getValue(0);
						//UAC.email       =   %array.getValue(5);
						canvas.popdialog(logindlg);
						Canvas.setContent(MainLobbyGui);
						
					}
					else
					{
						MessageBoxOK("Error", "An unknown error has occured, please be scared and hide under your desk.");
						logout();
					}
				
			}
		}
		
		$uac::curfunction = "";
	}
	else
	{
		$web::HTTPTextLines = $web::HTTPTextLines @ "\n" @ %line;
	}
	
	$uac::lastmessage = %line;
}

function UACOnline::onConnectFailed()
{
	MessageBoxOK("Error", "Couldnt Connect to web server!");
}

function UACOnline::onConnected()
{
	//echo("Connected to page");
}

function UACOnline::onDisconnect()
{
	// could put the stuff here instead of using <!--end-->
	//echo("Disconnected from page");
}

/*
 * You could use a serial number like thing, where users have to register using their serial number
 */
function UAC::register(%this, %username, %password, %first_name, %last_name, %email)
{
	if(strlen($uac::curfunction) > 0)
	{
		MessageBoxOK("Error", "Please wait for another function to complete");
		return;
	}
	
	$uac::curfunction = "register";
	%querystring = "username="		@%username 
				@"tpassword="		@%password  
				@"tfirst_name="	@%First_name 
				@"tlast_name="		@%Last_name 
				@"temail="			@%Email;
			echo(%querystring);
			
	new HTTPObject(UACOnline);
		UACOnline.get($uac::HTTPHost, $uac::Location @ $uac::registerPage, %querystring);
}

function UAC::registeravatar(%this, %avatarname)
{
	if(strlen($uac::curfunction) > 0)
	{
		MessageBoxOK("Error", "Please wait for another function to complete");
		return;
	}
	
	$uac::curfunction = "registeravatar";
	%querystring = "avatarname="		@%avatarname;
				//@"tpassword="		@%password  
				//@"tfirst_name="	@%First_name 
				//@"tlast_name="		@%Last_name 
				//@"temail="			@%Email;
			echo(%querystring);
			
	new HTTPObject(UACOnline);
		UACOnline.get($uac::HTTPHost, $uac::Location @ $uac::registeravatarPage, %querystring);
}
/*
 * Something to think about: someone with very little knowledge of TS could easily adapt this
 * and produce a bruteforce login system, scary eh?
 * It would be wise to port this over to protected c++
 */
function UAC::login(%this, %username, %password)
{
	if(strlen($uac::curfunction) > 0)
	{
		MessageBoxOK("Error", "Please wait for another function to complete");
		return;
	}
	
	UAC.Username = %username;
	//UAC.Password = %password; // Do we really want to store this?
	$lpassword = "Password"; // Reset, for security
		
	$uac::curfunction = "login";
	
	%querystring = "username="@%username
				@"tpassword="@%password;
	
	new HTTPObject(UACOnline);
    UACOnline.get($uac::HTTPHost, $uac::Location @ $uac::loginPage, %querystring);
    
}

function logout(%this)
{
	if(UAC.Loggedin == true)
	{
		UAC.ID = 0;
		UAC.Loggedin 		= false;
      UAC.Username 		= "";
	   UAC.Password 		= "";
	   UAC.First_Name    = "";
		UAC.Last_Name    	= "";
		UAC.Email     		= "";
	} else {
		//MessageBoxOk("Error!", "Your not logged in!"); // Then it doesnt matter, no need to spam end-users
	}
}

function UAC::isloggedin(%this)
{
	if(UAC.Loggedin == true)
		return true;
	else
		return false;
}

function UAC::getcurrentuserdata(%this, %info)
{
	switch$(%info){
		case "ID":
			return UAC.ID;
		case "username":
			return UAC.Username;
		case "password":
			return "yehornot";//UAC.Password;
		case "first_name":
			return UAC.First_Name;
		case "last_name":
			return UAC.Last_Name;
		case "email":
			return UAC.Email;
      default:
			return UAC.Loggedin;
	}
}
function UAC::getavatardata(%this, %avatarinfo)
{
	switch$(%avatarinfo){
		case "ID":
			return UAC.ID;
		case "avatarname":
			return UAC.avatarname;
		case "title":
			return UAC.title;
		case "rank":
			return UAC.rank;
		case "kills":
			return UAC.kills;
      case "deaths":
			return UAC.deaths;
      case "exp":
			return UAC.exp;
      case "gold":
			return UAC.gold;
      case "rm":
			return UAC.rm;
      default:
			return UAC.Loggedin;
	}
}

function UAC::checkloggedin()
{
   if(!UAC.isloggedin()){
      //MessageBoxOK("Warning", "You are not logged in!"); // Then it doesnt matter, no need to spam end-users
      return false;
	} 
	  else 
	{ 
      return true; 
   }
}

function UAC::registeravatar(%this, %avatarname)
{
    %userID = UAC.getcurrentuserdata("ID");
	if(strlen($uac::curfunction) > 0)
	{
		MessageBoxOK("Error", "Please wait for another function to complete");
		return;
	}
	
	$uac::curfunction = "registeravatar";
	%querystring = "ID="@%userID
	@"tAvatarName="@%avatarname;
	//@"tname="@%name;
		
	new HTTPObject(UACOnline);
    UACOnline.get($uac::HTTPHost, $uac::Location @ $uac::registeravatarPage, %querystring);
}

$uac::curfunction = "registeravatar";  
%querystring = "ID="@%userID  
@"&AvatarName="@%avatarname
@"&name="@%name;