//Account System


//commandtoserver('newaccount',"Elexys","snu222",2,"Commoner",);



$base = "Account_" @ %username;

function serverCmdnewAcc(%client,%username,%password,%gender,%class,%name,%skin,%headCode,%visorCode,%backCode,%headCodeColor,%visorCodeColor,%backCodeColor,%leftHandCodeColor,%chestdecalcode,%facedecalcode,%bodytype)
{
 if($clientLoggedIn[%client] == 1)
 {
  commandToClient(%client,'AccError',"You are logged in, please log out before making a new account.");
  return;
 }
 else
 {
 //echo(%username @ " is username");
 //echo(%password @ " is password");
 }
 newaccount(%client,%username,%password,%gender,%class,%name,%skin,%headCode,%visorCode,%backCode,%headCodeColor,%visorCodeColor,%backCodeColor,%leftHandCodeColor,%chestdecalcode,%facedecalcode,%bodytype);
}


function newaccount(%client,%username,%password,%gender,%class)
{
 if(strlen(%username) < 5 || strlen(%password) < 6)
 {
  commandToClient(%client,'AccError',"Sorry, but Usernames are supposed to have at least 5 characters, and Passwords are supposed to have at least 6. Please check your fields.");
  echo("Lol, Nope");
 }
 else
 {
  %ip = getRawIP(%client);
  %fileloc = "ennrp/server/scripts/MEMORY/accounts/" @ %username @ ".cs";
  if(isFile(%fileloc) && %username $= "" || %username $= " " || %password $= "")
  {
   error("There already is a specified profile! Please try again.");
   commandToClient(%client,'AccError',"There is already a profile with that name.");
   //accounterror(%this,%client,%username,1);
  }
  else if(!isFile(%fileloc))
  {
   //New playeraccount.cs
   $Account::Username[%username] = %username;   //
   $Account::Password[%username] = %password;   //Client info
   $Account::IP[%username] = getRawIP(%client); //
   $Account::BaseName[%username] = %client.nameBase; //
   $Account::Gender[%username] = %gender;            //Acc info
   $Account::Class[%username] = %class;              //
   $Account::Level[%username] = 1;       //
   $Account::Disname[%username] = %name;
   $Account = new SimGroup("Account_" @ %username);
   DispNameAdd(%dispname);
   %base = "Account_" @ %username;
   %base = new ScriptObject("AccountObj_" @ %username);
   $clientNewApp[%client] = 1;
   {
    //%headCode,%visorCode,%backCode,%headCodeColor,%visorCodeColor,%backCodeColor,%leftHandCodeColor,%chestdecalcode,%facedecalcode,%bodytype
    Score = 0;
    Studs = 100;
    Gender = $Account::Gender[%username];
    Class = Commoner;
    Level = 1;
    Mana = 100;
    RecoveryAnswer = $Account::Recovery[%username];
    RecoveryQuestion = $Account::Recovquestion[%username];
    eMail = $Account::Email[%username];
    ClientName = %client.namebase;
    IP = $Account::IP[%username];
    Password = $Account::Password[%username];
    Username = $Account::Username[%username];
    HeadCode = "None";
    VisorCode = "None";
    BackCode = "None";
    HeadCodeColor = "None";
    VisorCodeColor = "None";
    BackCodeColor = "None";
    LeftHandCodeColor = "None";
    ChestDecalCode = "None";
    FaceDecalCode = "None";
    BodyType = "None";
    Armor = "None";
   };
   $Account.add("AccountObj_" @ %username);
   $Account.save("ennrp/server/scripts/Memory/accounts/" @ %username @ ".cs",False);
   giveAcc(%client,%username);
   }
 }
}





function servercmdaccountsave(%client)
{
 %clientname = %client.namebase;
 %ip = getRawIP(%client);
 %username = $clientUsername[%client];
 %studs = %client.studmoney;
 %score = %client.incscore;
 %level = $clientLevel[%client];
 %class = $clientClass[%client];
 %gender = $clientGender[%client];
}





//---------- Set variables ----------\\

function setUsername(%client,%username)
{
 $clientUsername[%client] = %username;
}

function setGender(%client,%gender)
{
 $clientGender[%client] = %gender;
}

function setLevel(%client,%level)
{
 $clientLevel[%client] = %level;
}

function setClass(%client,%class)
{
 $clientClass[%client] = %class;
}

function setStuds(%client,%studs)
{
 %client.studmoney = %studs;
 commandtoclient(%client,'setstudcounter',%client.studmoney);
}

function setScore(%client,%score)
{
 %client.incScore(%score);
 commandtoclient(%client,'setstudcounter',%client.studmoney);
}



//---------- Update variables ----------\\
 //Mana
 //Level
 //Class
 //Gender
 //Studs
 //Score

function getUsername(%client)
{
 %username = $clientUsername[%client];
 return %username;
}

package updateAccount
{

 function updateLevel(%client,%username,%level,%type,%save)
 {
  %base = "Account_" @ %username;
  switch(%type)
  {
   case 1:
    $clientLevel[%client] = %level;
   case 2:
    $clientLevel[%client] = %level + 1;
  }
  if(%save != 1)
  {
   %base.Level = $clientLevel[%client];
  }
  else
  {
   return;
  }
 }

 function updateAccount(%client,%username,%ip,%level,%class,%gender,%studs,%score)
 {

   %sim = "Account_" @ %username;
   %base = "AccountObj_" @ %username;
  //Score, Studs, Gender, Class, Level, Mana, ClientName, IP,
   %base.Score = %client.incScore;
   %base.Studs = %client.studmoney;
   %base.Gender = $clientGender[%client];
   %base.Class = $clientClass[%client];
   %base.Level = $clientLevel[%client];
   %base.Mana = $clientMana[%client];
   %base.ClientName = %client.namebase;
   %base.IP = getRawIP(%client);
   %sim.save("ennrp/server/scripts/Memory/accounts/" @ %username @ ".cs",False);
   echo("Updated " @ %client.namebase @ "(" @ %username @ ")'s profile with: " NL %base.Score NL %base.Studs NL %base.Gender NL %base.Class NL %base.Level NL %base.Mana NL %client.namebase NL getRawIP(%client));

  // exec("ennrp/server/scripts/Memory/accounts/" @ %username @ ".cs");
 }

};
activatePackage(updateAccount);




package NotNeededATM
{

function accexec()
{
 exec("ennrp/server/scripts/AccountSystem.cs");
}


function serverCmdSetLa(%client,%username)
{
 setUsername(%client,"Testeraa");
 setGender(%client,1);
 setLevel(%client,1);
}
//CommandtoServer('acclogin',"Elexys","snu222");
//Login CommandtoServer('accountlogin',"Username","Password");


function serverCmdUpdateAccount(%client,%this)
{
 //Local
 %ip = getRawIP(%client);
 %username = $clientUsername[%client];
 %studs = %client.studmoney;
 %score = %client.getScore(%this);
 %gender =  $clientGender[%client];
 %name = %client.nameBase;
 %level = $clientLevel[%client];
 %class = $clientClass[%client];
 %password = $clientPassword[%client];
 %email = $clientEmail[%client];
 //%lastlogin = %client.LastLogin(%this,%client);


 echo("");
 echo("--- Client info for " @ %username SPC %client);
 echo("Client ID: " @ %client);
 echo("Username: " @ %username);
 echo("Password: " @ %password);
 echo("Name: " @ %name);
 echo("IP: " @ %ip);
 echo("--- Account info for " @ %username SPC %client);
 echo("Level: " @ %level);
 echo("Class: " @ %class);
 echo("Score: " @ %score);
 echo("Studs: " @ %studs);
 echo("Gender: " @ %gender);
 echo("");
}

};

activatePackage(NotNeededATM);



function serverCmdEnnSuicide(%client)
{
 EnnSuicide(%client);
}

function EnnSuicide(%client)
{
 %gender = $clientGender[%client];
 switch(%gender)
 {
 case 1:
 messageAll('MsgClientKilled','\c8%1 \c0killed himself',%client.namebase);
 case 2:
 messageAll('MsgClientKilled','\c8%1 \c0killed herself',%client.namebase);
 }
}


//---------- Login Methods ----------\\

function serverCmdAccountLogin(%client,%username,%password)
{
 %base = "AccountObj_" @ %username;
 if(checkuser(%username) == 1)
 {
  if(checkpass(%password) == 1)
  {
   giveAcc(%client,%username);
  }
  else
  {
   CommandtoClient(%client,'AccError',"The Password is wrong.");
   return;
  }
 }
 else
 {
  CommandtoClient(%client,'AccError',"The Username is wrong.");
  return;
 }
}


function checkUser(%username)
{
 if(!isFile("ennrp/server/scripts/Memory/accounts/" @ %username @ ".cs"))
 {
  echo("This is not a file!");
  return 0;
 }
 else if(isFile("ennrp/server/scripts/Memory/accounts/" @ %username @ ".cs"))
 {
  echo("This is a file!");
  return 1;
 }
}

function checkPass(%pass)
{
 %base = "AccountObj_" @ %username;
 if(%password !$= %base.Password)
 {
  echo("This is NOT the correct password!");
  return 0;
 }
 else if(%password $= %base.Password)
 {
  echo("This is the correct password!");
  return 1;
 }

}

function giveAcc(%client,%username)
{
 exec("ennrp/server/scripts/Memory/accounts/" @ %username @ ".cs");
 %base = "AccountObj_" @ %username;

 %username = %base.Username;
 %level = %base.Level;
 %class = %base.Class;
 %score = %base.Score;
 %gender = %base.Gender;
 %studs = %base.Studs;
 %mana = %base.Mana;


 echo(%username NL %level NL %class NL %score NL %gender NL %studs);


 $clientUsername[%client] = %username;
 $clientGender[%client] = %gender;
 $clientLevel[%client] = %level;
 %client.incScore(%score);
 %client.studmoney = %studs;
 commandtoclient(%client,'setstudcounter',%client.studmoney);
 $clientLevel[%client] = %class;
 $clientLoggedIn[%client] = 1;
 $clientNewApp[%client] = 0;

 setUsername(%client,%username);
 setLevel(%client,%level);
 setClass(%client,%class);
 setScore(%client,%score);
 setStuds(%client,%studs);
 setGender(%client,%gender);
 //setMana(%mana,%client);
}

function EnnAccountUpdate()
{
 //messageAll('',"\c0Accounts are being updated, there may be some lag. \c9 NOTICE: \c0Accounts update every 5 minutes (300k miliseconds).");
 schedule(1000,0,"saveAccounts");
}

function saveAccounts()
{

 //messageAll('','\c0Accounts have been saved.');
 return;
}

// function GameConnection::onClientLeaveGame(%this,%client)
// {

 // Parent::onClientLeaveGame(%this);
// }


function giveClothes(%client,%username,1,%armor,%name,%color,%headCode,%visorCode,%headCodeColor,%visorCodeColor,%backCodeColor,%leftHandCodeColor,%chestdecalcode,%facedecalcode,%bodytype)
{
 %player = %client.player;
 //Unmount
 %player.unMountImage($righthandslot);
 %player.unMountImage($lefthandslot);
 %player.unMountImage($backslot);
 %player.unMountImage($headslot);
 %player.unMountImage($visorslot);
 %player.unMountImage($chestslot);
 %player.unMountImage($faceslot);

 //Set
 //%player.MountImage($faceSlot,
 %player.setShapeName(%name);
 %player.setSkinName(%color);
 // $RightHandSlot	= 0;
 // $LeftHandSlot	= 1;
 // $BackSlot	= 2;
 // $RightFootSlot	= 3;
 // $LeftFootSlot	= 4;
 // $HeadSlot	= 5;
 // $VisorSlot	= 6;
 // $chestSlot	= 3;
 // $faceSlot	= 4;

 //0 = Right | 1 is left | 2 is head | 3 is right foot | 4 is left foot | 5 is head | 6 is head
 //Images = 2 BackPack | 3 ChestDecal | 4 FaceDecal | 5 HelmetDecal | 6 VisorDecal
}




function DispNameAdd(%dispname)
{
 %file = new FileObject();
 %file.OpenForAppend("ennrp/server/scripts/Memory/DispNames.txt");
 %file.WriteLine(%dispname);
 %file.close();
 %file.delete();
}

function DispNameCheck(%dispname)
{
 %file = new FileObject();
 %file.OpenForRead("ennrp/server/scripts/Memory/DispNames");
 while(!%file.isEOF)
 {
  if(%file.ReadLine $= %dispname)
  {
   return 0;
   break;
  }
  else
  {
   return 1;
  }
 }
 %file.close();
 %file.delete();
}
//function GameConnection::onClientEnter()


function serverCmdLogout(%client)
{
 %clientname = %client.namebase;
 %ip = getRawIP(%client);
 %username = $clientUsername[%client];
 %studs = %client.studmoney;
 %score = %client.incscore;
 %level = $clientLevel[%client];
 %class = $clientClass[%client];
 %gender = $clientGender[%client];

 updateAccount(%client,%username,%ip,%level,%class,%gender,%studs,%score);
 Logout(%dispname);
}

function Logout(%username,%dispname)
{
 DeleteTempInfo(%client,%username);
 messageAll('','\4%1\c0 has logged out.',%dispname);
}

function DeleteTempInfo(%client,%username)
{
 //$clientUsername[%client], $clientGender[%client], $clientLevel[%client], $clientClass[%client]
 DeleteVariables($clientUsername[%client]);
 DeleteVariables($clientGender[%client]);
 DeleteVariables($clientLevel[%client]);
 DeleteVariables($clientClass[%client]);
 DeleteVariables($clientLoggedIn[%client]);
 DeleteVariables($clientNewApp[%client]);
}

function serverCmdAppSet(%client)
{
 if($clientNewApp[%client] != 0)
 {
  return;
 }
 else
 {
  CommandtoClient('OpenGui',"NewApp");
 }
}

function serverCmdNewApp(%client,%name,%skin,%headCode,%visorCode,%backCode,%headCodeColor,%visorCodeColor,%backCodeColor,%leftHandCodeColor,%chestdecalcode,%facedecalcode,%bodytype)
{
 if($clientNewApp[%client] == 1)
 {
  commandToClient(%client,'AccError',"You are logged in, please log out before making a new account. Also, no cheating please.");
 }
 else
 {
  if(getstrlen(trim(%name)) < 5)
  {
   commandToClient(%client,'AccError',"The Display name is under 5 characters!");
  }
  else
  {
   NewApp(%client,%name,%skin,%headCode,%visorCode,%backCode,%headCodeColor,%visorCodeColor,%backCodeColor,%leftHandCodeColor,%chestdecalcode,%facedecalcode,%bodytype);
   giveClothes(%client,%username,0,%armor,%name,%color,%headCode,%visorCode,%headCodeColor,%visorCodeColor,%backCodeColor,%leftHandCodeColor,%chestdecalcode,%facedecalcode,%bodytype);
   $clientNewApp[%client] = 0;
  }
 }
}


//function ServerCmdUpdatePrefs(%client, %name, %skin, %headCode, %visorCode, %backCode, %leftHandCode, %headCodeColor, %visorCodeColor, %backCodeColor, %leftHandCodeColor, %chestdecalcode, %facedecalcode, %bodytype)
//{
// return;
//}

function giveClothes(%client,%username,%type,%armor,%name,%color,%headCode,%visorCode,%headCodeColor,%visorCodeColor,%backCodeColor,%leftHandCodeColor,%chestdecalcode,%facedecalcode,%bodytype)
{
 %player = %client.player;
 switch(%type)
 {
  case 0:
   %player.unMountImage($righthandslot);
   %player.unMountImage($lefthandslot);
   %player.unMountImage($backslot);
   %player.unMountImage($headslot);
   %player.unMountImage($visorslot);
   %player.unMountImage($chestslot);
   %player.unMountImage($faceslot);

   %player.setShapeName(%name);
   %player.setSkinName(%color);

   // %player.MountImage($backslot);
   // %player.MountImage($chestslot);
   // %player.MountImage($headslot);
   // %player.MountImage($visorslot);
   // %player.MountImage($faceslot);


  case 1:
   %player.unMountImage($righthandslot);
   %player.unMountImage($lefthandslot);
   %player.unMountImage($backslot);
   %player.unMountImage($headslot);
   %player.unMountImage($visorslot);
   %player.unMountImage($chestslot);
   %player.unMountImage($faceslot);

   if(%armor !$= "None")
   {
    %player.MountImage($chestslot);
   }
   else
   {
    %player.MountImage($chestslot);
   }

 }
 //%player = %client.player;
 //Unmount
 //%player.unMountImage($righthandslot);
 //%player.unMountImage($lefthandslot);
 //%player.unMountImage($backslot);
 //%player.unMountImage($headslot);
 //%player.unMountImage($visorslot);
 //%player.unMountImage($chestslot);
 //%player.unMountImage($faceslot);

 //Set
 //%player.MountImage($faceSlot,
 //%player.setShapeName(%name);
 //%player.setSkinName(%color);
 // $RightHandSlot	= 0;
 // $LeftHandSlot	= 1;
 // $BackSlot	= 2;
 // $RightFootSlot	= 3;
 // $LeftFootSlot	= 4;
 // $HeadSlot	= 5;
 // $VisorSlot	= 6;
 // $chestSlot	= 3;
 // $faceSlot	= 4;

 //0 = Right | 1 is left | 2 is head | 3 is right foot | 4 is left foot | 5 is head | 6 is head
 //Images = 2 BackPack | 3 ChestDecal | 4 FaceDecal | 5 HelmetDecal | 6 VisorDecal
}