#include <a_samp>
#include <Dini>
#include <zcmd>
#include <sscanf2>

#define RED 				0xE60000FF
#define CUSTOMTELES_DIALOG 308
new pname[24];

public OnFilterScriptInit()
{
	print("\n=====================================");
	print("Custom Teleports Loaded.");
	print("=====================================\n");
	return 1;
}

public OnFilterScriptExit()
{
	print("\n=====================================");
	print("Custom Teleports Unloaded.");
	print("=====================================\n");
	return 1;
}

CMD:savetele(playerid, params[]) {

	new tele_name[100];
	new player_name[50];
	GetPlayerName(playerid, player_name, sizeof(player_name));
    if(sscanf(params, "s[100]", tele_name)) return SendClientMessage(playerid, RED, "USAGE: /savetele <location name>");

	new file[256];
	new Float:nx,Float:ny,Float:nz;
	new Var[50];
    GetPlayerName(playerid, pname, sizeof(pname));
    format(file, sizeof(file), "Custom Teles/%s.sav", tele_name);
	if(!dini_Exists(file))
	{
		dini_Create(file);
	}
	GetPlayerPos(playerid,nx,ny,nz);
	format(Var, sizeof(Var),"%0.2f", nx);
	dini_IntSet(file,"X",strval(Var));
	format(Var, sizeof(Var),"%0.2f", ny);
	dini_IntSet(file,"Y",strval(Var));
	format(Var, sizeof(Var),"%0.2f", nz+0.5);
	dini_IntSet(file,"Z",strval(Var));
	
	new string[256];
	format(string, sizeof(string), "%s saved custom location (/tele %s)", player_name, tele_name);
	SendClientMessageToAll(0x00BFFFAA,string);
	
	new file2[256];
	format(file2, sizeof(file2), "Custom Teles/customteles.sav");
	if(!dini_Exists(file2))
	{
		dini_Create(file2);
		dini_IntSet(file2,"NumTeles",0);
	}
	dini_IntSet(file2,"NumTeles",(dini_Int(file2,"NumTeles") + 1));
	new newTeleKey[100];
	format(newTeleKey, sizeof(newTeleKey), "TELE_%d", dini_Int(file2,"NumTeles"));
	dini_Set(file2,newTeleKey,tele_name);
	return 1;
}

CMD:tele(playerid, params[]) {

	new tele_name[30];
	new player_name[50];
	GetPlayerName(playerid, player_name, sizeof(player_name));
	
    if(sscanf(params, "s[30]", tele_name)) return SendClientMessage(playerid, RED, "USAGE: /tele <location name>");
    
	new file[256];format(file,sizeof(file),"Custom Teles/%s.sav", tele_name);
	if(dini_Isset(file,"X")  && dini_Isset(file,"Y") && dini_Isset(file,"Z")) {

		if (IsPlayerInAnyVehicle(playerid)) {
			SetVehiclePos(GetPlayerVehicleID(playerid), dini_Int(file,"X"), dini_Int(file,"Y"), dini_Int(file,"Z"));
		}
		else {
			SetPlayerPos(playerid, dini_Int(file,"X"),dini_Int(file,"Y"),dini_Int(file,"Z"));
		}
		
		new string[256];
		format(string, sizeof(string), "%s has gone to a custom location (/tele %s)", player_name, tele_name);
		SendClientMessageToAll(0x00BFFFAA,string);
	}
    else{
		SendClientMessage(playerid, 0xFF0000FF, "Teleport not found. Type /telelist for list.");}
    return 1;
}

CMD:teles(playerid, params[])
{
	new finalString[1024];
	new file[256];
	format(file,sizeof(file),"Custom Teles/customteles.sav");
	new i;
	for(i=1; i <= dini_Int(file,"NumTeles"); i++) {
		new key[100];
		format(key, sizeof(key), "TELE_%d", i);
	    if(dini_Isset(file,key)) {
			format(finalString,sizeof(finalString),"%s\n%s", finalString, dini_Get(file, key));
	    }
	}
	ShowPlayerDialog(playerid,CUSTOMTELES_DIALOG,DIALOG_STYLE_LIST,"Teleport",finalString,"GO","Cancel");
    return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
	new playerName[256];
	GetPlayerName(playerid, playerName, sizeof(playerName));
    if(dialogid == CUSTOMTELES_DIALOG)
	{
        if(response) // If they clicked 'Yes' or pressed enter
        {
			new teleName[1024];
			new file[256];
			new key[100];
			format(key, sizeof(key), "TELE_%d", (listitem + 1));
			format(file,sizeof(file),"Custom Teles/customteles.sav");
			format(teleName, sizeof(teleName), dini_Get(file, key));

			format(file,sizeof(file),"Custom Teles/%s.sav", teleName);
			if(dini_Isset(file,"X")  && dini_Isset(file,"Y") && dini_Isset(file,"Z")) {

				if (IsPlayerInAnyVehicle(playerid)) {
					SetVehiclePos(GetPlayerVehicleID(playerid), dini_Int(file,"X"), dini_Int(file,"Y"), dini_Int(file,"Z"));
				}
				else {
					SetPlayerPos(playerid, dini_Int(file,"X"),dini_Int(file,"Y"),dini_Int(file,"Z"));
				}
				
				new string[256];
				format(string, sizeof(string), "%s has gone to a custom location (/tele %s)", playerName, teleName);
				SendClientMessageToAll(0x00BFFFAA,string);
			}
   			return 1;
        }
        else // Pressed ESC or clicked cancel
        {

        }
    }
    return 0;
}