#include <a_samp>
#include <dini>
#include <ocmd>

#define MAX_TELES 50
enum TeleInfo{
	TelName[30],
	Float:telX,
	Float:telY,
	Float:telZ,
	telInt
}
new Teleport[MAX_TELES][TeleInfo];

#define DIALOG_TELE 5314

public OnFilterScriptInit()
{
	print("\n--------------------------------------");
	print(" Teleport Filterscript [DINI]");
	print("--------------------------------------\n");
	for(new i=0;i<MAX_TELES;i++){LoadTele(i);}
	return 1;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
	if(dialogid == DIALOG_TELE)
	{
	    if(response == 0)return 1;
		SetPlayerVirtualWorld(playerid,0);
		SetPlayerPos(playerid,Teleport[listitem][telX],Teleport[listitem][telY],Teleport[listitem][telZ]);
		SetPlayerInterior(playerid,Teleport[listitem][telInt]);
	}
	return 1;
}

ocmd:createteleport(playerid, params[])
{
    new telpath[30], name[30], Float:X, Float:Y, Float:Z;
    if(!IsPlayerAdmin(playerid))return SendClientMessage(playerid, 0xFFFF00FF, "Dieser Befehl ist nur für Admins!");
    if(sscanf(params, "s", name))return SendClientMessage(playerid, 0xFFFF00FF, "Benutzung: /createteleport [Name]");
	for(new i=0;i<MAX_TELES;i++)
	{
	    format(telpath, sizeof(telpath), "/Teleport/%d.ini",i);
	    if(!dini_Exists(telpath))
	    {
	        GetPlayerPos(playerid, X, Y, Z);
	        dini_Create(telpath);
	        dini_Set(telpath, "Name", name);
	        dini_FloatSet(telpath, "X", X);
	        dini_FloatSet(telpath, "Y", Y);
	        dini_FloatSet(telpath, "Z", Z);
	        dini_IntSet(telpath, "Int", GetPlayerInterior(playerid));
	        LoadTele(i);
	        return 1;
	    }
	}
	return 1;
}

ocmd:teleport(playerid)
{
	new teles[MAX_TELES*30+MAX_TELES*2];
	if(!IsPlayerAdmin(playerid))return SendClientMessage(playerid, 0xFFFF00FF, "Dieser Befehl ist nur für Admins!");
	for(new i=0;i<MAX_TELES;i++)
	{
	    strcat(teles,Teleport[i][TelName]); strcat(teles,"\n");
	}
	ShowPlayerDialog(playerid, DIALOG_TELE, DIALOG_STYLE_LIST, "Teleporten", teles, "Porten", "Abbrechen");
	return 1;
}

ocmd:delteleport(playerid, params[])
{
	new telname[30], telpath[30];
    if(!IsPlayerAdmin(playerid))return SendClientMessage(playerid, 0xFFFF00FF, "Dieser Befehl ist nur für Admins!");
    if(sscanf(params, "s", telname))return SendClientMessage(playerid, 0xFFFF00FF, "Benutzung: /delteleport [Name]");
    for(new i=0;i<MAX_TELES;i++)
    {
        format(telpath, sizeof(telpath), "/Teleport/%d.ini",i);
    	if(dini_Exists(telpath))
		{
//			format(telname, sizeof(telname), "%s", dini_Get(telpath, "Name"));
			if(!strcmp(dini_Get(telpath, "Name"), telname, true))
			{
			    dini_Remove(telpath);
			}
	    }
	}
	return 1;
}

stock LoadTele(teleid)
{
    new telpath[30], telname[30];
	format(telpath, sizeof(telpath), "/Teleport/%d.ini",teleid);
	if(dini_Exists(telpath))
	{
		format(telname, sizeof(telname), "%s", dini_Get(telpath, "Name"));
		Teleport[teleid][TelName] = telname;
		Teleport[teleid][telX] = dini_Float(telpath, "X");
		Teleport[teleid][telY] = dini_Float(telpath, "Y");
		Teleport[teleid][telZ] = dini_Float(telpath, "Z");
		Teleport[teleid][telInt] = dini_Int(telpath, "Int");
	}
}

stock sscanf(string[], format[], {Float,_}:...)
{
	#if defined isnull
	if (isnull(string))
	#else
	if (string[0] == 0 || (string[0] == 1 && string[1] == 0))
	#endif
	{
		return format[0];
	}
	#pragma tabsize 4
	new
	formatPos = 0,
	stringPos = 0,
	paramPos = 2,
	paramCount = numargs(),
	delim = ' ';
	while (string[stringPos] && string[stringPos] <= ' ')
	{
		stringPos++;
	}
	while (paramPos < paramCount && string[stringPos])
	{
		switch (format[formatPos++])
		{
			case '\0':
			{
				return 0;
			}
			case 'i', 'd':
			{
				new
				neg = 1,
				num = 0,
				ch = string[stringPos];
				if (ch == '-')
				{
					neg = -1;
					ch = string[++stringPos];
				}
				do
				{
					stringPos++;
					if ('0' <= ch <= '9')
					{
						num = (num * 10) + (ch - '0');
					}
					else
					{
						return -1;
					}
				}
				while ((ch = string[stringPos]) > ' ' && ch != delim);
				setarg(paramPos, 0, num * neg);
			}
			case 'h', 'x':
			{
				new
				num = 0,
				ch = string[stringPos];
				do
				{
					stringPos++;
					switch (ch)
					{
						case 'x', 'X':
						{
							num = 0;
							continue;
						}
						case '0' .. '9':
						{
							num = (num << 4) | (ch - '0');
						}
						case 'a' .. 'f':
						{
							num = (num << 4) | (ch - ('a' - 10));
						}
						case 'A' .. 'F':
						{
							num = (num << 4) | (ch - ('A' - 10));
						}
						default:
						{
							return -1;
						}
					}
				}
				while ((ch = string[stringPos]) > ' ' && ch != delim);
				setarg(paramPos, 0, num);
			}
			case 'c':
			{
				setarg(paramPos, 0, string[stringPos++]);
			}
			case 'f':
			{

				new changestr[16], changepos = 0, strpos = stringPos;
				while(changepos < 16 && string[strpos] && string[strpos] != delim)
				{
					changestr[changepos++] = string[strpos++];
				}
				changestr[changepos] = '\0';
				setarg(paramPos,0,_:floatstr(changestr));
			}
			case 'p':
			{
				delim = format[formatPos++];
				continue;
			}
			case '\'':
			{
				new
				end = formatPos - 1,
				ch;
				while ((ch = format[++end]) && ch != '\'') {}
				if (!ch)
				{
					return -1;
				}
				format[end] = '\0';
				if ((ch = strfind(string, format[formatPos], false, stringPos)) == -1)
				{
					if (format[end + 1])
					{
						return -1;
					}
					return 0;
				}
				format[end] = '\'';
				stringPos = ch + (end - formatPos);
				formatPos = end + 1;
			}
			case 'u':
			{
				new
				end = stringPos - 1,
				id = 0,
				bool:num = true,
				ch;
				while ((ch = string[++end]) && ch != delim)
				{
					if (num)
					{
						if ('0' <= ch <= '9')
						{
							id = (id * 10) + (ch - '0');
						}
						else
						{
							num = false;
						}
					}
				}
				if (num && IsPlayerConnected(id))
				{
					setarg(paramPos, 0, id);
				}
				else
				{
					#if !defined foreach
					#define foreach(%1,%2) for (new %2 = 0; %2 < MAX_PLAYERS; %2++) if (IsPlayerConnected(%2))
					#define __SSCANF_FOREACH__
					#endif
					string[end] = '\0';
					num = false;
					new
					name[MAX_PLAYER_NAME];
					id = end - stringPos;
		 			for(new playerid = 0; playerid < MAX_PLAYERS; playerid++)
		 			{
						GetPlayerName(playerid, name, sizeof (name));
						if (!strcmp(name, string[stringPos], true, id))
						{
							setarg(paramPos, 0, playerid);
							num = true;
							break;
						}
					}
					if (!num)
					{
						setarg(paramPos, 0, INVALID_PLAYER_ID);
					}
					string[end] = ch;
					#if defined __SSCANF_FOREACH__
					#undef foreach
					#undef __SSCANF_FOREACH__
					#endif
				}
				stringPos = end;
			}
			case 's', 'z':
			{
				new
				i = 0,
				ch;
				if (format[formatPos])
				{
					while ((ch = string[stringPos++]) && ch != delim)
					{
						setarg(paramPos, i++, ch);
					}
					if (!i)
					{
						return -1;
					}
				}
				else
				{
					while ((ch = string[stringPos++]))
					{
						setarg(paramPos, i++, ch);
					}
				}
				stringPos--;
				setarg(paramPos, i, '\0');
			}
			default:
			{
				continue;
			}
		}
		while (string[stringPos] && string[stringPos] != delim && string[stringPos] > ' ')
		{
			stringPos++;
		}
		while (string[stringPos] && (string[stringPos] == delim || string[stringPos] <= ' '))
		{
			stringPos++;
		}
		paramPos++;
	}
	do
	{
		if ((delim = format[formatPos++]) > ' ')
		{
			if (delim == '\'')
			{
				while ((delim = format[formatPos++]) && delim != '\'') {}
			}
			else if (delim != 'z')
			{
				return delim;
			}
		}
	}
	while (delim > ' ');
	return 0;
}