/*
|==============|
|=====rTele====|
|====by Razo===|
|==============|
*/
#include <a_samp>
#include <zcmd>
#include <sscanf2>
#define MAX_TELE 64
#define SCM(%0,%1,%2) SendClientMessage(%0,%1,%2)
#define SCMTA(%0,%1) SendClientMessageToAll(%0,%1)
#define COLOR_RED 0xEB000FFF
#define ABLAK_TELE 1234
#define TELE_STR_HOSSZ 2048
enum tInfo
{
Nev[34],
Float:tx,
Float:ty,
Float:tz,
Float:tangle,
Letette[MAX_PLAYER_NAME]
};
enum jInfo
{
Float:wpx,
Float:wpy,
Float:wpz
};
new TeleInfo[MAX_TELE][tInfo];
new JatekosInfo[MAX_PLAYERS][jInfo];
new TeleLetezik[MAX_TELE];
new gstr[144];
new bool:wp_leteve[MAX_PLAYERS];
new bool:wp_enged;
new bool:tp_enged;
new bool:hely_enged;
 
public OnFilterScriptInit()
{
print(\"\");
print(\"====================\");
print(\"===rTele betoltve===\");
print(\"====================\");
print(\"\");
LoadTele();
wp_enged = false;
tp_enged = false;
hely_enged = false;
return 1;
}
 
stock pname(playerid)
{
new pName[MAX_PLAYER_NAME];
GetPlayerName(playerid, pName, MAX_PLAYER_NAME);
return pName;
}
stock StripNL(str[]) // by y_less
{
new
i = strlen(str);
while (i-- && str <= \' \') str = \'\\0\';
}
 
SaveTele(teleid)
{
new file[32], str[144];
format(file,sizeof file,\"tele_%d\",teleid);
new File:hnd = fopen(file,io_write);
format(str,sizeof str,\"Poz&Nev=%.3f,%.3f,%.3f,%.3f,%s\\r\\n\",TeleInfo[teleid][tx],TeleInfo[teleid][ty],TeleInfo[teleid][tz],TeleInfo[teleid][tangle],TeleInfo[teleid][Nev]); fwrite(hnd,str);
format(str,sizeof str,\"Letette=%s\\r\\n\",TeleInfo[teleid][Letette]); fwrite(hnd,str);
format(str,sizeof str,\"Keszitve=%d\\r\\n\",TeleLetezik[teleid]); fwrite(hnd,str);
fclose(hnd);
}
LoadTele()
{
new /*str[64],*/ File:hnd, count, filename[64], line[256], s, key[64];
for(new i = 1; i < MAX_TELE; i++)
{
    format(filename,sizeof filename,\"tele_%d\",i);
    if(!fexist(filename)) continue;
    hnd = fopen(filename,io_read);
    while(fread(hnd,line))
    {
        StripNL(line);
        s = strfind(line,\"=\");
   if(!line[0] || s<1) continue;
   strmid(key,line,0,s++);
//   if(strcmp(key,\"Nev\") == 0) strmid(TeleInfo[Nev],line,s,sizeof line);
   if(strcmp(key,\"Poz&Nev\") == 0) sscanf(line,\"p<,>ffffs[34]\",TeleInfo[tx],TeleInfo[ty],TeleInfo[tz],TeleInfo[tangle],TeleInfo[Nev]);
   else if(strcmp(key,\"Letette\") == 0) strmid(TeleInfo[Letette],line,s,sizeof line);
   else if(strcmp(key,\"Keszitve\") == 0) TeleLetezik = strval(line);
    }
    fclose(hnd);
    if(TeleLetezik) count++;
}
printf(\"%d teleport betoltve.\",count);
}
 
CMD:teletorol(playerid,params[])
{
if(IsPlayerAdmin(playerid))
{
    new id;
    if(sscanf(params,\"d\",id)) return SCM(playerid,COLOR_RED,\"Használat: {FFFFFF}/teletorol [iD]\");
    else
    {
        format(gstr,sizeof gstr,\"/TDM/Szerver/tele_%d\",id);
        if(!fexist(gstr)) return SCM(playerid,COLOR_RED,\"Nincs ilyen teleport.\");
        else {
      fremove(gstr);
      format(gstr,sizeof gstr,\"{FFFFFF}%s törölte a %d ID-jû teleportot.\",pname(playerid),id);
      SCMTA(-1,gstr);
        }
    }
}
else return SCM(playerid,COLOR_RED,\"Nem használhatod ezt a parancsot.\");
return 1;
}
CMD:tele(playerid,params[])
{
if(hely_enged)
{
new dstr[TELE_STR_HOSSZ];
    for(new i = 1; i<MAX_TELE; i++)
    {
        if(TeleLetezik)
        {
            format(dstr,sizeof dstr,\"%sID: %d Név: %s\\n\",dstr,i,TeleInfo[Nev]);
        }
    }
    ShowPlayerDialog(playerid, ABLAK_TELE, DIALOG_STYLE_LIST, \"Teleport\", dstr, \"Tele\", \"Mégse\");
    }
    else return SCM(playerid,COLOR_RED,\"Nincs engedélyezve ez a teleportálási mód.\");
return 1;
}
CMD:engedtele(playerid,params[])
{
if(IsPlayerAdmin(playerid))
{
    if(isnull(params)) return SCM(playerid,COLOR_RED,\"Használat: {FFFFFF}/engedtele [Játékos/WayPoint/Hely]\");
    else if(!strcmp(params,\"játékos\",true))
    {
        if(!tp_enged)
        {
        tp_enged = true;
        format(gstr,sizeof gstr,\"{FFFFFF}%s engedélyezte az egymáshoz való teleportálást.\",pname(playerid));
        SCMTA(-1,gstr);
        }
        else
        {
            tp_enged = false;
        format(gstr,sizeof gstr,\"{FFFFFF}%s letiltotta az egymáshoz való teleportálást.\",pname(playerid));
        SCMTA(-1,gstr);
        }
    }
    else if(!strcmp(params,\"waypoint\",true))
    {
        if(!wp_enged)
        {
            wp_enged = true;
        format(gstr,sizeof gstr,\"{FFFFFF}%s engedélyezte a WayPoint-ra való teleportálást. (/wp)\",pname(playerid));
        SCMTA(-1,gstr);
        }
        else
        {
            wp_enged = false;
        format(gstr,sizeof gstr,\"{FFFFFF}%s letiltotta a WayPoint-ra való teleportálást.\",pname(playerid));
        SCMTA(-1,gstr);
        }
    }
    else if(!strcmp(params,\"hely\",true))
    {
        if(!hely_enged)
        {
            hely_enged = true;
        format(gstr,sizeof gstr,\"{FFFFFF}%s engedélyezte a helyre való teleportálást. (/tele)\",pname(playerid));
        SCMTA(-1,gstr);
        }
        else
        {
            hely_enged = false;
        format(gstr,sizeof gstr,\"{FFFFFF}%s letiltotta a helyre való teleportálást.\",pname(playerid));
        SCMTA(-1,gstr);
        }
    }
}
else return SCM(playerid,COLOR_RED,\"Nem használhatod ezt a parancsot.\");
return 1;
}
CMD:ujtele(playerid,params[])
{
if(IsPlayerAdmin(playerid))
{
    new Float:asdx;
    new Float:y;
    new Float:z;
    new Float:angle;
new nev[32];
new fnev[34];
GetPlayerPos(playerid,asdx,y,z);
GetPlayerFacingAngle(playerid,angle);
if(sscanf(params,\"s[32]\",nev)) return SCM(playerid,COLOR_RED,\"Használat: {FFFFFF}/újtele [Név]\");
else
{
    format(gstr,sizeof gstr,\"{FFFFFF}%s létrehozott egy teleportot. Név: %s\",pname(playerid),nev);
   SCMTA(-1,gstr);
    format(fnev,34,\"%s\",nev);
    for(new x = 1; x<MAX_TELE; x++)
    {
        if(!TeleLetezik
)

        {
            TeleLetezik
 = 1;

           TeleInfo
[tx] = asdx;

           TeleInfo
[ty] = y;

           TeleInfo
[tz] = z;

           TeleInfo
[tangle] = angle;

           TeleInfo
[Nev] = fnev;

           TeleInfo
[Letette] = pname(playerid);

           SaveTele(x);
           return 1;
      }
    }
    SCM(playerid,COLOR_RED,\"Már nem lehet!\");
}
}
else return SCM(playerid,COLOR_RED,\"Nem használhatod ezt a parancsot.\");
return 1;
}
CMD:wp(playerid,params[])
{
if(wp_enged)
{
if(wp_leteve[playerid])
{
   if(IsPlayerInAnyVehicle(playerid))
   {
       new veh = GetPlayerVehicleID(playerid);
            SetVehiclePos(veh,JatekosInfo[playerid][wpx],JatekosInfo[playerid][wpy],JatekosInfo[playerid][wpz]);
            SCM(playerid,-1,\"{0000FF}Teleportálva.\");
   }
   else {
       SetPlayerPosFindZ(playerid,JatekosInfo[playerid][wpx],JatekosInfo[playerid][wpy],JatekosInfo[playerid][wpz]);
       SCM(playerid,-1,\"{0000FF}Teleportálva.\");
   }
}
else return SCM(playerid,COLOR_RED,\"Nem jelöltél ki WayPoint-ot.\");
}
else return SCM(playerid,COLOR_RED,\"Nincs engedélyezve ez a teleportálási mód.\");
return 1;
}
CMD:waypoint(playerid,params[])
{
return cmd_wp(playerid,params);
}
CMD:telehelp(playerid,params[])
{
SCM(playerid,-1,\"{FFFFFF}Parancsok: /tele, /wp. TAB-on játékosra kattintással teleportálhatsz, amennyiben ez engedélyezve van.\");
if(IsPlayerAdmin(playerid)) SCM(playerid,-1,\"{FFFFFF}RCON admin parancsok: /ujtele, /engedtele, /teletorol\");
return 1;
}
public OnDialogResponse(playerid,dialogid,response,listitem,inputtext[])
{
    if(dialogid == ABLAK_TELE)
{
    if(response)
    {
        new teleid;
        sscanf(inputtext[4],\"d\",teleid);
            if(IsPlayerInAnyVehicle(playerid))
            {
                new vid = GetPlayerVehicleID(playerid);
                SetVehiclePos(vid,TeleInfo[teleid][tx],TeleInfo[teleid][ty],TeleInfo[teleid][tz]);
      SetVehicleZAngle(vid,TeleInfo[teleid][tangle]);
   }
   else {
            SetPlayerPos(playerid,TeleInfo[teleid][tx],TeleInfo[teleid][ty],TeleInfo[teleid][tz]);
   SetPlayerFacingAngle(playerid,TeleInfo[teleid][tangle]);
   SCM(playerid,-1,\"{0000FF}Teleportálva.\");
   }
    }
}
return 0;
}
public OnPlayerConnect(playerid)
{
wp_leteve[playerid] = false;
return 1;
}
public OnPlayerClickMap(playerid,Float:fX,Float:fY,Float:fZ)
{
JatekosInfo[playerid][wpx] = fX;
JatekosInfo[playerid][wpy] = fY;
JatekosInfo[playerid][wpz] = fZ;
wp_leteve[playerid] = true;
return 1;
}
public OnPlayerClickPlayer(playerid,clickedplayerid,source)
{
new Float:x, Float:y, Float:z;
GetPlayerPos(clickedplayerid,x,y,z);
if(tp_enged)
{
    if(!IsPlayerInAnyVehicle(playerid))
    {
    SetPlayerPos(playerid,x+1,y,z);
    }
    else
    {
        new veh = GetPlayerVehicleID(playerid);
        SetVehiclePos(veh,x+2,y,z);
    }
}
    else return SCM(playerid,COLOR_RED,\"Nincs engedélyezve ez a teleportálási mód.\");
return 1;
}
public OnFilterScriptExit()
{
print(\"\");
print(\"|=========================|\");
print(\"|====rTele kikapcsolva====|\");
print(\"|=========================|\");
print(\"\");
return 1;
}

Használjátok egészséggel!