IGTC by Gabyyy. Mirror by DiGiTaL AnGeL

//Ingame command creator
#include <a_samp>
#include <zcmd>

#define TeleportDialog1 1324
#define TeleportDialog2 1325
#define CommandName 1326

new
    Type [ MAX_PLAYERS ] ,
    prjName [ 200 ]
;
public OnFilterScriptInit()
{
    print("\n--------------------------------------");
    print(" In Game Teleport Creator");
    print("--------------------------------------\n");
    return 1;
}

public OnFilterScriptExit()
{
    return 1;
}
public OnPlayerSpawn(playerid)
{
    SendClientMessage ( playerid , -1 , "Foloseste /tele pentru a crea un teleport" );
    return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
    if ( dialogid == TeleportDialog1)
    {
        if( response )
        {
            ShowPlayerDialog ( playerid , TeleportDialog2 , DIALOG_STYLE_LIST , " {FF8800}Ce procesor doriti sa folositi ? " , "{FF0000}S{FFFFFF}trcmp\n{FF0000}Z{FFFFFF}CMD\n{FF0000}Y{FFFFFF}CMD","Alege","Inchide");
        }
        else
        {
            SendClientMessage ( playerid , -1 , "Teleportul nu a fost creat" );
        }
    }
    if( dialogid == TeleportDialog2 )
    {
        if( response )
        {
            if( listitem == 0 )
            {
                ShowPlayerDialog ( playerid , CommandName , DIALOG_STYLE_INPUT , "Teleport Name" , "{FF8800}Scrieti numele teleportului fara /" , "Ok" , "Cancel" );
                Type [ playerid ] = 0;
            }
            if( listitem == 1 )
            {
                ShowPlayerDialog ( playerid , CommandName , DIALOG_STYLE_INPUT , "Teleport Name" , "{FF8800}Scrieti numele teleportului fara /" , "Ok" , "Cancel" );
                Type [ playerid ] = 1;
            }
            if( listitem == 2 )
            {
                ShowPlayerDialog ( playerid , CommandName , DIALOG_STYLE_INPUT , "Teleport Name" , "{FF8800}Scrieti numele teleportului fara /" , "Ok" , "Cancel" );
                Type [ playerid ] = 2;
            }
        }
    }
    if( dialogid == CommandName )
    {
        if( response )
        {
            new
                filename [ 40 ]
            ;
            format(filename, sizeof(filename), "%s.pwn", inputtext);
            new File:save = fopen ( filename , io_append );
            strmid(prjName, filename, 0, strlen(filename) - 4, 128);
            new
                str [ 240 ] ,
                Float:p_X ,
                Float:p_Y ,
                Float:p_Z ,
                Float:p_Ang
            ;
            if(!IsPlayerInAnyVehicle ( playerid ) )
            {
                GetPlayerPos ( playerid , p_X , p_Y , p_Z );
                GetPlayerFacingAngle ( playerid , p_Ang ) ;
            }
            else if(IsPlayerInAnyVehicle ( playerid ) )
            {
                GetVehiclePos ( GetPlayerVehicleID (playerid) , p_X , p_Y , p_Z );
                GetVehicleZAngle ( GetPlayerVehicleID (playerid) , p_Ang ) ;
            }
            if( Type [ playerid ] == 0)
            {
                fwrite(save , "/*Command creator by RimmoN\n" ) ;
                fwrite(save , "Please do not change the credits\n" ) ;
                fwrite(save , "strcmp command :*/\n" ) ;
                fwrite(save , "#include <a_samp>\n\n\n" );
                fwrite(save , "public OnPlayerCommandText(playerid, cmdtext[])\n" );
                fwrite(save , "{\n" ) ;
                format(str , 800 , "\tif (strcmp(\"/%s\", cmdtext, true, 10) == 0)\n",inputtext);
                fwrite(save , str ) ;
                fwrite(save , "\t{\n" ) ;
                fwrite(save , "\t\tif(!IsPlayerInAnyVehicle ( playerid ) )\n" ) ;
                fwrite(save , "\t\t{\n" ) ;
                format(str , 800 , "\t\t\tSetPlayerPos(playerid , %f , %f , %f );\n\t\t\tSetPlayerFacingAngle (playerid , %f);\n",p_X , p_Y , p_Z , p_Ang);
                fwrite(save , str ) ;
                fwrite(save , "\t\t}\n" ) ;
                fwrite(save , "\t\telse if(IsPlayerInAnyVehicle ( playerid ) )\n" ) ;
                fwrite(save , "\t\t{\n" ) ;
                format(str , 800 , "\t\t\tSetVehiclePos(GetPlayerVehicleID(playerid) , %f , %f , %f );\n\t\t\tSetVehicleZAngle (GetPlayerVehicleID(playerid) , %f);\n",p_X , p_Y , p_Z , p_Ang);
                fwrite(save , str ) ;
                fwrite(save , "\t\t}\n" ) ;
                fwrite(save , "\t\treturn 1;\n" ) ;
                fwrite(save , "\t}\n" ) ;
                fwrite(save , "\treturn 0;\n" ) ;
                fwrite(save , "}\n" ) ;
                format ( str , 240 , "{FFFFFF}Comanda {FF8800}/%s {FFFFFF}a fost creata cu succes , intrati in scriptfiles pentru a copia comanda in gamemodul dumneavoastra",inputtext);
                SendClientMessage ( playerid , -1, str );
            }
            else if( Type [ playerid ] == 1)
            {
                fwrite(save , "/*Command creator by RimmoN\n" ) ;
                fwrite(save , "Please do not change the credits\n" ) ;
                fwrite(save , "zcmd command :*/\n" ) ;
                fwrite(save , "#include <a_samp>\n" );
                fwrite(save , "#include <zcmd>\n\n\n" );
                format(str , 800 , "CMD:%s ( playerid , params [ ] )\n",inputtext);
                fwrite(save , str ) ;
                fwrite(save , "{\n" ) ;
                fwrite(save , "\tif(!IsPlayerInAnyVehicle ( playerid ) )\n" ) ;
                fwrite(save , "\t{\n" ) ;
                format(str , 800 , "\t\tSetPlayerPos(playerid , %f , %f , %f );\n\t\tSetPlayerFacingAngle (playerid , %f);\n",p_X , p_Y , p_Z , p_Ang);
                fwrite(save , str ) ;
                fwrite(save , "\t}\n" ) ;
                fwrite(save , "\telse if(IsPlayerInAnyVehicle ( playerid ) )\n" ) ;
                fwrite(save , "\t{\n" ) ;
                format(str , 800 , "\t\tSetVehiclePos(GetPlayerVehicleID(playerid) , %f , %f , %f );\n\t\tSetVehicleZAngle (GetPlayerVehicleID(playerid) , %f);\n",p_X , p_Y , p_Z , p_Ang);
                fwrite(save , str ) ;
                fwrite(save , "\t}\n" ) ;
                fwrite(save , "\treturn 1;\n" ) ;
                fwrite(save , "}\n" ) ;
                format ( str , 240 , "{FFFFFF}Comanda {FF8800}/%s {FFFFFF}a fost creata cu succes , intrati in scriptfiles pentru a copia comanda in gamemodul dumneavoastra",inputtext);
                SendClientMessage ( playerid , -1, str );
            }
            else if( Type [ playerid ] == 2)
            {
                fwrite(save , "/*Command creator by RimmoN\n" ) ;
                fwrite(save , "Please do not change the credits\n" ) ;
                fwrite(save , "YCMD command :*/\n" ) ;
                fwrite(save , "#include <a_samp>\n" );
                fwrite(save , "#include <YSI\\y_commands>\n\n\n" );
                format(str , 800 , "YCMD:%s ( playerid , params [ ] ,help )\n",inputtext);
                fwrite(save , str ) ;
                fwrite(save , "{\n" ) ;
                fwrite(save , "\tif(!IsPlayerInAnyVehicle ( playerid ) )\n" ) ;
                fwrite(save , "\t{\n" ) ;
                format(str , 800 , "\t\tSetPlayerPos(playerid , %f , %f , %f );\n\t\tSetPlayerFacingAngle (playerid , %f);\n",p_X , p_Y , p_Z , p_Ang);
                fwrite(save , str ) ;
                fwrite(save , "\t}\n" ) ;
                fwrite(save , "\telse if(IsPlayerInAnyVehicle ( playerid ) )\n" ) ;
                fwrite(save , "\t{\n" ) ;
                format(str , 800 , "\t\tSetVehiclePos(GetPlayerVehicleID(playerid) , %f , %f , %f );\n\t\tSetVehicleZAngle (GetPlayerVehicleID(playerid) , %f);\n",p_X , p_Y , p_Z , p_Ang);
                fwrite(save , str ) ;
                fwrite(save , "\t}\n" ) ;
                fwrite(save , "\treturn 1;\n" ) ;
                fwrite(save , "}\n" ) ;
                format ( str , 240 , "{FFFFFF}Comanda {FF8800}/%s {FFFFFF}a fost creata cu succes , intrati in scriptfiles pentru a copia comanda in gamemodul dumneavoastra",inputtext);
                SendClientMessage ( playerid , -1, str );
            }
            fclose(save);
        }
    }
    return 1;
}
CMD:tele( playerid , params [ ] )
{
    if(IsPlayerAdmin ( playerid ) )
    {
        ShowPlayerDialog(playerid, TeleportDialog1 , DIALOG_STYLE_MSGBOX , "Teleport Creator" , "Esti sigur ca doresti sa creezi un teleport in acest loc?","Da","Nu");
    }
    else if( !IsPlayerAdmin ( playerid ) ) return SendClientMessage ( playerid , -1 , "Nu esti autorizat sa folosesti aceasta comanda" );
    return 1 ;
}
stock IsNumeric(string[])
{
    for (new i = 0, j = strlen(string); i < j; i++)
    {
        if (string[i] > '9' || string[i] < '0') return 0;
    }
    return 1;
}