View source for Nickname Registration

===Script by Spkka uses Keydon's xSplit===
<source lang="pascal">
const
//TEAMS
  ALPHA = 1;
  BRAVO = 2;
  CHARLIE = 3;
  DELTA = 4;
  SPECTATOR = 5;
//GAME MODES
  DEATHMATCH = 0;
  POINTMATCH = 1;
  TEAMMATCH = 2;
  CTF = 3;
  RAMBO = 4;
  INF = 5;
  HTF = 6;
//WEAPONS
  DEAGLES = 1;
  HKMP5 = 2;
  AK74 = 3;
  STEYR = 4;
  SPAS = 5;
  RUGER = 6;
  M79 = 7;
  BARRET = 8;
  MINIMI = 9;
  MINIGUN = 10;
  FLAMER = 11;
  BOW = 12;
  FLAMEBOW = 13;
  SOCOM = 0;
  KNIFE = 14;
  CHAINSAW = 15;
  LAW = 16;
  MAXTEAMS = 5;
  MAXPLAYER = 16;

var
ingameKills, ingameDeaths, ingameSelfkills: array [1..MAXPLAYER] of integer;
nickname_Password, nickname_IP: array [1..MAXPLAYER] of string;
nickname_Name, nickname_Kills, nickname_Deaths, nickname_Selfkills: array [1..MAXPLAYER] of string;
oldPassword, newPassword: array [1..MAXPLAYER] of string;
nickStatus: array [1..MAXPLAYER] of integer;
GOOD: longint;
BAD: longint;
kdKills, kdDeaths: array [1..MAXPLAYER] of integer;
kdRatio: array [1..MAXPLAYER] of single;

//ARRAYHIGH
function arrayHi( tester: TStringArray ): integer;
begin
	result := GetArrayLength( tester ) - 1;
end;

//XSPLIT
function xsplit(const source: string; const delimiter: string):TStringArray;
var
	i,x,d:integer;
	s:string;
begin
	d:=length(delimiter);
	x:=0;
	i:=1;
	SetArrayLength(Result,1);
	while(i<=length(source)) do begin
		s:=Copy(source,i,d);   	
	    	if(s=delimiter) then begin
	    		i:=i+d;		
	    		inc(x,1);
	    		SetArrayLength(result,x+1);
	    	end else begin  	     
	    		result[x]:= result[x]+copy(s,1,1);
	    		inc(i,1);
	  	end;
	end;
	if Result[ArrayHi(Result)]='' then SetArrayLength(result,x);
end;

//ACTIVATESERVER
procedure ActivateServer();
var
	b: byte;
begin
	//change these if you want a other colours for GOOD/BAD writeconsole messages
	GOOD := $EE00FF00;
	BAD:= $FFFF4444;

	//set all ID's logged out
	for b := 1 to MAXPLAYER do
	begin
		nickStatus[b] := 0;
	end
end;

//APPONIDLE
procedure AppOnIdle(Ticks: integer);
begin
end;

//FILTERFILENAME
function filterFilename(filename: string):string;
var
	i,len: byte;
	c: string;
begin
	len := length(filename);
	result := '';

	for i := 1 to len do
       	begin
		c := copy(filename,i,1);
		if (c=chr(92)) or (c='/') or (c='\') or (c=':') or (c='*') or (c='?') or (c='"') or (c='<') or (c='>') or (c='|') or (c='.') then
		result := result + '_'
		else
		result := result + c;
	end
end;

//LOADNICKNAME
function loadNickname(nick: string; ID: byte): string;
var
	temparray: TStringArray;
	fileData,fileName: string;
begin
	//filter player name
	fileName := filterFileName( nick );

	//check if player profile exists and load profile in string
	if FileExists('stats/nickreg/'+filename+'.txt') = true then
	begin
		filedata := ReadFile('stats/nickreg/'+filename+'.txt')
	
		//split all profile into a array
		temparray := xsplit(filedata,chr(13)+chr(10));
		nickname_Name[ID] := temparray[0];
		nickname_Password[ID] := temparray[1];
		nickname_IP[ID] := temparray[2];
		nickname_Kills[ID] := temparray[3];
		nickname_Deaths[ID] := temparray[4];
		nickname_Selfkills[ID] := temparray[5];
		result := nickname_Password[ID];
	end else
	begin
		//if file does't exist then ask player to create profile and set all his ID info empty
		WriteConsole(ID,'Type /create ''Your Password'' to create a profile!',GOOD);
		WriteConsole(ID,'Stats are not stored without a profile!',GOOD);
		WriteConsole(ID,'Do not use passwords you use elsewhere.', BAD);
		nickStatus[ID] := 0;
		nickname_Name[ID] := '';
		nickname_Password[ID] := '';
		nickname_Ip[ID] := '';
		result := '';
	end
end;		
	
//SAVE NICKNAME
procedure SaveNickname(name,password,ip: string; NewKills,NewDeaths,NewSelfkills: integer; currentDate:string; ID: byte);
var
	filename,outdata: string;
begin
	//filter player name
	filename := FilterFilename(name);
	
	//check is nickname doens't already exist
	if FileExists('stats/nickreg/'+filename+'.txt') = true then
	begin
		WriteConsole( ID, 'Nickname already exists!', BAD );
	end else 
	begin
		currentDate := FormatDate('dd:mm:yy');

		//set data to write
		outdata := name+chr(13)+chr(10)+
			   password+chr(13)+chr(10)+
	          	   ip+chr(13)+chr(10)+
		           inttostr(NewKills)+chr(13)+chr(10)+
               		   inttostr(NewDeaths)+chr(13)+chr(10)+
			   inttostr(NewSelfkills)+chr(13)+chr(10)+
		 	   currentDate+chr(13)+chr(10);
		
		//write new profile
		WriteFile('stats/nickreg/'+filename+'.txt',outdata);
	end
end;

//UPDATE NICKNAME
procedure UpdateNickname(nick: string; ID: byte);
var
	temparray: TStringArray;
	OldKills,OldDeaths,OldSelfkills: integer;
	NewKills,NewDeaths,NewSelfkills: integer;
	outdata: string;
	fileName, fileData: string;
	ip, currentDate: string;
begin
	filename := FilterFilename(nick);
	if getPlayerStat( ID, 'Active' ) then
	begin
		//if nickname exists
		filedata := ReadFile('stats/nickreg/'+filename+'.txt');	

		//check if player is logged in to update new stats
		if nickStatus[ID] = 1 then
		begin
			//check if file wasn't empty
			if filedata <> '' then
			begin
				//split data
				temparray := xsplit(filedata,chr(13)+chr(10));
				Nickname_IP[ID] := temparray[2];
				Nickname_Kills[ID] := temparray[3];
				Nickname_Deaths[ID] := temparray[4];
				Nickname_Selfkills[ID] := temparray[5];
		
				//get old kills/deaths/selfkills from data
				OldKills := strtoint(Nickname_Kills[ID]);
				OldDeaths := strtoint(Nickname_Deaths[ID]);
				OldSelfkills := strtoint(Nickname_Selfkills[ID]);
	
				//count new kills/deats/selfkills 
				NewKills := OldKills + IngameKills[ID];
				NewDeaths := OldDeaths + IngameDeaths[ID];
				NewSelfkills := OldSelfkills + IngameSelfkills[ID];
					
				//get player ip and currentdate
				ip := getPlayerStat( ID, 'ip');
				currentDate := FormatDate('dd:mm:yy');
					
				//set data to write
				outdata := 	nickname_Name[ID]+chr(13)+chr(10)+
						Nickname_Password[ID]+chr(13)+chr(10)+
						ip+chr(13)+chr(10)+
						inttostr(NewKills)+chr(13)+chr(10)+
						inttostr(NewDeaths)+chr(13)+chr(10)+
						inttostr(NewSelfkills)+chr(13)+chr(10)+
						currentDate+chr(13)+chr(10);
				
				//update the player profile
				WriteFile('stats/nickreg/'+nickname_Name[ID]+'.txt',outdata);
			end else 
			begin
				//if data inside profile was empty clear the name, pass and ip
				Nickname_Name[ID] := '';
				Nickname_Password[ID] := '';
				Nickname_IP[ID] := '';
			end
		end else
		begin
			Writeln('Player did not login for stats!');
		end
	end
end;

//ONCOMMAND
function OnCommand(ID: Byte; Text: string): boolean;
begin
	Result := false; 
end;

//ONPLAYERCOMMAND
function OnPlayerCommand(ID: Byte; Text: string): boolean;
var
	inputNick, InputPassword, InputPasswordLogin, nick: string;
	currentDate: string;
begin
	//displays player stats
	if (Copy(Text,1,6) = '/stats') then
       	begin
		if GetPlayerStat(ID, 'Active') = true then
		begin
			nick := GetPlayerStat(ID,'name');

			//check if player already got profile or not
			if FileExists('stats/nickreg/'+filterFileName(nick)+'.txt') = true then
		  	begin
				//load player profile
				LoadNickname(FilterFilename(GetPlayerStat(ID,'name')),ID);
			
				//display stats
				WriteConsole(ID,'Kills: ' +nickName_Kills[ID],GOOD);
				WriteConsole(ID,'Deaths: ' +nickName_Deaths[ID],GOOD);
				WriteConsole(ID,'SelfKills: '+nickName_SelfKills[ID],GOOD);
				
				//check if player has more then 0 deaths otherwise its divide by zero 
				if strtoint(nickName_Deaths[ID]) > 0 then 
				begin
					kdKills[ID] := strtoint(nickName_Kills[ID]);
					kdDeaths[ID] := strtoint(nickName_Deaths[ID]);
					kdRatio[ID] := kdKills[ID] / kdDeaths[ID];
					WriteConsole(ID,'K/D Ratio: '+floattostr(roundto(kdRatio[ID],2)),GOOD);
				end
			end else
			begin
				WriteConsole(ID,'You do not have a profile!',BAD);
			end
		end
	end

	//create new account
	if (Copy(Text,1,8) = '/create ') then
       	begin
		//check if player isn't logged in already
		if nickStatus[ID] = 0 then
		begin
			//check if player is active
			if GetPlayerStat(ID, 'Active') = true then
			begin
				//get player nick
				nick := GetPlayerStat(ID,'name');
			
				//check if player already got profile or not
				if FileExists('stats/nickreg/'+filterFileName(nick)+'.txt') = false then
			       	begin
					//get his password from text
					InputPassword := Text;
					delete(InputPassword,1,8);
		
					//if input isn't empty 
					if InputPassword <> '' then
					begin	
						//check password length
						if length(inputPassword) < 17 then 
						begin	
							//Get the current date
							currentDate := FormatDate('hh:nn:ss am/pm');
	
							//Save player account into file
							SaveNickname(GetPlayerStat(ID,'name'),InputPassword,GetPlayerStat(ID,'ip'),0,0,0,currentDate, ID);
							WriteConsole(ID,'Nickname ' + GetPlayerStat(ID,'name') + ' successfully registered!',GOOD);
							WriteConsole(ID,'Nickname ' + GetPlayerStat(ID,'name') + ' now logged in!',GOOD);
							WriteConsole(ID,'Your password is ' + InputPassword + ' - do not forget it!',GOOD);
							WriteLn('NickReg: ' + GetPlayerStat(ID,'name') + ' registered from ' + GetPlayerStat(ID,'ip'));
							//login player that registered
							nickStatus[ID] := 1;
						end else
						begin
						WriteConsole(ID,'Max length password is 16 characters!',BAD);
						end
					end else
					begin
						WriteConsole(ID,'No password found. Please try again.',BAD);
					end
				end else
				begin
					WriteConsole(ID,'You are already a registered user!',BAD);
				end
			end
		end
	end

	//change password
	if (Copy(Text,1,12) = '/changepass ') then
       	begin
		//check if player is logged in
		if nickStatus[ID] = 1 then
		begin
			//check if player is active
			if GetPlayerStat(ID, 'Active') = true then
			begin
				//get player nick
				nick := GetPlayerStat(ID,'name');
			
				//check if player already got profile or not
				if FileExists('stats/nickreg/'+filterFileName(nick)+'.txt') = true then
			       	begin
					//get his password from text
					InputPassword := Text;
					delete(InputPassword,1,12);

					//set old and new password
					oldPassword[ID] := GetPiece(InputPassword,' ',0);
					newPassword[ID] := GetPiece(InputPassword,' ',1);
		
					//check if old password match
					if oldPassword[ID] = nickName_Password[ID] then
					begin	
						//check length of his newpassword
						if length(newPassword[ID]) < 17 then 
						begin
							//set new password to ID
							nickName_Password[ID] := newPassWord[ID];
	
							//save new password to profile
							UpdateNickname(GetPlayerStat(ID,'name'),ID);
							WriteConsole(ID,'Password changed to: '+newPassword[ID],GOOD);
						end else
						begin
							WriteConsole(ID,'Max length password is 16 characters!',BAD);
						end
					end else
					begin
						WriteConsole(ID,'Wrong password!',BAD);
					end
				end else
				begin
					WriteConsole(ID,'No profile found!',BAD);
				end
			end
		end else
		begin
			WriteConsole(ID,'Please login first!',BAD);
		end
	end

	//change nickname
	if (Copy(Text,1,12) = '/changenick ') then
       	begin
		//check if player is logged in
		if nickStatus[ID] = 1 then
		begin
			//check if player is active
			if GetPlayerStat(ID, 'Active') = true then
			begin
				//get player nick
				nick := GetPlayerStat(ID,'name');
			
				//check if player already got profile or not
				if FileExists('stats/nickreg/'+filterFileName(nick)+'.txt') = true then
			       	begin
					//get his password and nick from text
					InputNick := Text;
					delete(InputNick,1,12);

					//check if password is right
					if nickName_Password[ID] = GetPiece(InputNick,' ',0) then
					begin
						//check length of his new nickname
						if length(GetPiece(InputNick,' ',1)) < 25 then 
						begin
							//set new nickname to ID
							nickName_Name[ID] := GetPiece(InputNick,' ',1);
				
							//save new password to profile
							UpdateNickname(GetPlayerStat(ID,'name'),ID);
							WriteConsole(ID,'NickName changed to: '+nickName_Name[ID],GOOD);
							WriteConsole(ID,'Please rejoin the server with your new nick to load your new profile',GOOD);
						end else
						begin
						WriteConsole(ID,'Nickname is over 24 characters, please pick another',BAD);
						end
					end else
					begin
						WriteConsole(ID,'Wrong Password!',BAD);
					end
				end else
				begin
					WriteConsole(ID,'No profile found!',BAD);
				end
			end
		end else
		begin
			WriteConsole(ID,'Please login first!',BAD);
		end
	end

	//login
	if (Copy(Text,1,7) = '/login ') then 
	begin
		//check if player isn't logged in yet
		if (nickStatus[ID] = 0) then 
		begin
			//if player is active
			if GetPlayerStat(ID, 'Active')= true then
			begin
				//get player nick
				nick := getPlayerStat(ID, 'Name' );
				
				if FileExists('stats/nickreg/'+filterFileName(nick)+'.txt') = true then
				begin
					//get password from text
					InputPasswordLogin := Text;
					delete(InputPasswordLogin,1,7);
		
					//Check password login
					if InputPasswordLogin = Nickname_Password[ID] then
					begin
						//login the player and set tasktimer
						nickStatus[ID] := 1;
						WriteConsole(ID,'You are now logged in!',GOOD);	
						WriteConsole(ID,'Type /apply to get started!',GOOD);
					end else
					begin 
						WriteConsole(ID,'Wrong password!',BAD);
					end
				end else 
				begin
					WriteConsole(ID,'No profile found!',BAD);
				end
			end	
		end else
		begin
			WriteConsole(ID,'You are already logged in!',BAD);
		end
	end

	//Logout
	if (Copy(Text,1,7) = '/logout') then 
	begin
		//check is player is logged in
		if (nickStatus[ID] = 1) then
		begin
			WriteConsole(ID,'You have been logged out!',GOOD);
			WriteConsole(ID,'Type /login ''password'' to login.',GOOD);

			//set player status to logged out
			nickStatus[ID] := 0;
		end else
		begin
			WriteConsole(ID,'Already logged out!',BAD);
		end
	end
  Result := false; 
end;

//ONPLAYERSPEAK
procedure OnPlayerSpeak(ID: byte; Text: string);
begin	
	if (copy(Text,1,9) = '!commands') then
	begin
		WriteConsole(ID,'Commands are: /login, /logout, /changepass, /changenick, /stats',GOOD);
		WriteConsole(ID,'!login for example will display info how to login',GOOD);
	end
	
	if (copy(Text,1,6) = '!login') then
	begin
		WriteConsole(ID,'Typ /login ''your password'' to login',GOOD);
	end
	
	if (copy(Text,1,7) = '!logout') then
	begin
		WriteConsole(ID,'Typ /logout ''your password'' to logout',GOOD);
	end

	if (copy(Text,1,11) = '!changepass') then
	begin
		WriteConsole(ID,'Typ /changepass ''old password'' ''new password'' to set a new password',GOOD);
	end

	if (copy(Text,1,11) = '!changenick') then
	begin
		WriteConsole(ID,'Typ /changenick ''your password'' ''new nickname'' to set a new nickname',GOOD);
	end

	if (copy(Text,1,6) = '!stats') then
	begin
		WriteConsole(ID,'Typ /stats to view your current stats',GOOD);
	end

end;

//JOINTEAM
procedure OnJoinTeam(ID, Team: byte);
begin	
	//check if player is active
	if getPlayerStat( ID, 'Active' ) = true then
	begin
		//kick player if nickname is above 24 characters
		if length(getPlayerStat( ID, 'name' )) > 24 then
		begin
			WriteConsole(ID,'...your name is over 24 characters, please change it.',BAD);
			KickPlayer(ID);
		end

		//load player profile
		LoadNickname(FilterFilename(GetPlayerStat(ID,'name')),ID);

		//check if the ip's match
		if nickname_IP[ID] <> '' then
		begin
			if (getPlayerStat( ID, 'ip' )) = nickname_IP[ID] then
			begin
				//login the player and set tasktimer
				nickStatus[ID] := 1;
				WriteConsole(ID,'Your profile was found. Autologin started!',GOOD);
				WriteConsole(ID,'Stats are now stored!',GOOD);
				WriteConsole(ID,'Type /logout to logout.',GOOD);
			end else
			begin
				nickStatus[ID] := 0;
				WriteConsole(ID,'IP changed. Type /login ''password'' to login!',GOOD);
			end
		end
	end
end;	

//ONLEAVEGAME
procedure OnLeaveGame(ID, Team: byte; Kicked: boolean);
begin
	//check is player is logged in
	if (nickStatus[ID] = 1) then
	begin
		//update his stats before he left
		UpdateNickname(GetPlayerStat(ID,'name'),ID);
	end
	
	//unset all player variables 
	nickStatus[ID] := 0;
	IngameKills[ID] := 0;
	IngameDeaths[ID] := 0;
	IngameSelfkills[ID] := 0;
	nickname_Name[ID] := '';
	nickname_Password[ID] := '';
	nickname_IP[ID] := '';
	nickname_Kills[ID] := ''; 
	nickname_Deaths[ID] := '';
	nickname_Selfkills[ID] := '';
	oldPassword[ID] := '';
	newPassword[ID] := '';
end;

//ONPLAYERKILL
procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
begin	 
	//if player is suicidal
	if (Killer = Victim) then 
	begin
		//check if player is logged in
		if nickStatus[Killer] = 1 then
		begin
			//increase selfkills with 1
			IngameSelfkills[killer] := IngameSelfkills[killer] +1;
		end
	end

	//if player isn't the victim
	if (killer <> victim) then 
	begin
		//check is killer is logged in
		if nickStatus[Killer] = 1 then
		begin
			//increase kills of killer with 1
			IngameKills[killer] := IngameKills[killer] +1;
		end

		//check is victim is logged in
		if nickStatus[victim] = 1 then
		begin
			//increase deaths of victim with 1
			IngameDeaths[victim] := IngameDeaths[victim] +1;
		end
	end
end;	

//ONFLAGSCORE
procedure OnFlagScore(ID, TeamFlag: byte);
begin
end;

//MAPCHANGE
procedure OnMapChange(NewMap: string);
var
	i: byte;	
begin	
	//reset kills,deaths,selfkills
	for i := 1 to MAXPLAYER do 
	begin
		IngameKills[i] := 0;
		IngameDeaths[i] := 0;
		IngameSelfkills[i] := 0;
	end
end;



</source>

 NOTE! It will need 2 folders in the soldatserver directory like:
 c:/soldatserver/stats/nickreg

 Thanks to Toumaz and Sai`ke and some others i forgot!!! 

[[Category:Script Templates]]