[FS] Crear Lomas de Burro (InGame) Version E

/*
             Prohibido TOTALMENTE el Robo de Créditos o la
                 Publicación de este FS sin Mi Permiso.
*/
/////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////
/*
    ----------------------------------------------------------
    |     [FS] --<  'Crear Lomas de Burro (InGame)'  >--     |
    |                                                        |
    |               Creado Por ØTACØN - 2012                 |
    ----------------------------------------------------------
    ----------------------------------------------------------
    |      FS CREADO PARA LOS USUARIOS NOVATOS EN PAWNO      |
    ----------------------------------------------------------
*/
/////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////

#include <a_samp>

#define Gris  0xb0b0b0FF
#define Celeste  0x00CFF0FF
#define RojoOscuro  0x5b0000FF

new Text:InfoLomas[3];
new CreatedLomas[200];
new CreatedLoma = 0;

//=============== [ [FS] Crear Lomas de Burro (InGame) ] ===============
new MensajesRandom[][] =
{
    "~w~- <CREAR LOMAS DE BURRO> - ~g~<InGame> - ~y~By Otacon - ~r~V0.3E", //Maximo 50 Caracteres.
    "~g~- <CREAR LOMAS DE BURRO> - ~w~<InGame> - ~y~By Otacon - ~r~V0.3E",
    "~w~- <CREAR LOMAS DE BURRO> - ~g~<InGame> - ~y~By Otacon - ~r~V0.3E"
};
//======================================================================

public OnFilterScriptInit()
{
    //=============== [ [FS] Crear Lomas de Burro (InGame) ] ===============
    InfoLomas[1] = TextDrawCreate(481.000000,171.000000,"~y~   - Crear Lomas de Burro ~y~In-Game v0.3E - ~n~~n~~w~  Utiliza los Siguientes Comando:~n~~n~ ~g~/Loma ~w~ (Nombre del Archivo)~n~ ~g~/QuitarLomas ~w~ (Quitar las Lomas Colocadas.)~n~ ~g~/Borrar ~w~ (Borrar TextDraw)~n~ ~g~/Info ~w~ (Ver TextDraw)~n~~n~~n~ ~y~~]~ BY OTACON ~]~");
    TextDrawUseBox(InfoLomas[1],1);
    TextDrawBoxColor(InfoLomas[1],0x0000155);
    TextDrawTextSize(InfoLomas[1],630.000000,250.000000);
    TextDrawAlignment(InfoLomas[1],0);
    TextDrawBackgroundColor(InfoLomas[1],0x000000ff);
    TextDrawFont(InfoLomas[1],1);
    TextDrawLetterSize(InfoLomas[1],0.260000,1.200000);
    TextDrawColor(InfoLomas[1],0xffffffff);
    TextDrawSetOutline(InfoLomas[1],1);
    TextDrawSetProportional(InfoLomas[1],1);
    TextDrawSetShadow(InfoLomas[1],1);

    InfoLomas[2] = TextDrawCreate(38.000000, 428.000000,"-_-");
    TextDrawAlignment(InfoLomas[2],0);
    TextDrawBackgroundColor(InfoLomas[2],0x000000ff);
    TextDrawFont(InfoLomas[2],1);
    TextDrawLetterSize(InfoLomas[2],0.430000, 1.400000);
    TextDrawColor(InfoLomas[2],0xffffffff);
    TextDrawSetOutline(InfoLomas[2],1);
    TextDrawSetProportional(InfoLomas[2],1);
    TextDrawSetShadow(InfoLomas[2],1);
    SetTimer("RandomMessageTimer",500,1);
    //===========================================================================

    print("               ,        ,");
    print("              /(        )`");
    print("              | |___   / ||");
    print("              /- _  `-/  '");
    print("             (/|/ | |   /|");
    print("             / /   | `    |");
    print("             O O   ) /    |");
    print("             `-^--'`<     '");
    print("            (_.)  _  )   /");
    print("             `.___/`    /");
    print("               `-----' /");
    print("  <----.     __ / __   |");
    print("  <----|====O)))==) |) /====");
    print("  <----'    `--' `.__,' |");
    print("               |        |");
    print("                |       /");
    print("           ______( (_  / |______");
    print("         ,'  ,-----'   |        |");
    print("       `--{__________)         ");
    print("\n|--------------------------------------------|");
    print("|           Filescript por <ØTACØN>            |");
    print("|   Crear Lomas de Burro (InGame) -- Cargano   |");
    print("|----------------------------------------------|\n");

    print("\n|-----------------------------------------------------|");
    print("|     Prohibido TOTALMENTE el Robo de  Créditos o la    |");
    print("|         Publicación de este FS sin Mi Permiso         |");
    print("|-------------------------------------------------------|\n");
    return 1;
}

public OnFilterScriptExit()
{
    print("               ,        ,");
    print("              /(        )`");
    print("              | |___   / ||");
    print("              /- _  `-/  '");
    print("             (/|/ | |   /|");
    print("             / /   | `    |");
    print("             O O   ) /    |");
    print("             `-^--'`<     '");
    print("            (_.)  _  )   /");
    print("             `.___/`    /");
    print("               `-----' /");
    print("  <----.     __ / __   |");
    print("  <----|====O)))==) |) /====");
    print("  <----'    `--' `.__,' |");
    print("               |        |");
    print("                |       /");
    print("           ______( (_  / |______");
    print("         ,'  ,-----'   |        |");
    print("         `--{__________)         ");
    print("\n|--------------------------------------------|");
    print("|           Filescript por <ØTACØN>            |");
    print("|   Crear Lomas de Burro (InGame) -- Cerrado   |");
    print("|----------------------------------------------|\n");

    print("\n|-----------------------------------------------------|");
    print("|     Prohibido TOTALMENTE el Robo de  Créditos o la    |");
    print("|         Publicación de este FS sin Mi Permiso         |");
    print("|-------------------------------------------------------|\n");
    return 1;
}

public OnPlayerSpawn(playerid)
{
    //=============== [ [FS] Crear Lomas de Burro (InGame) ] ===============
    TextDrawShowForPlayer(playerid, InfoLomas[1]);
    TextDrawShowForPlayer(playerid, InfoLomas[2]);
    //======================================================================
    return 1;
}

public OnPlayerCommandText(playerid, cmdtext[])
{
    new cmd[128], str[128], tmp[128], idx;
    cmd = strtok(cmdtext, idx);

    //=============== [ [FS] Crear Lomas de Burro (InGame) ] ===============
    if(strcmp(cmd, "/Lomas", true) == 0)
    {
        if(IsPlayerConnected(playerid))
        {
            tmp = strtok(cmdtext, idx);
            if(strlen(tmp) == 0)
            {
                SendClientMessage(playerid, Gris, "    [ ! ] Escribe: /Loma [Nombre]");
                return 1;
            }

            new Float:X, Float:Y, Float:Z;
            new Float:rx, Float:ry, Float:rz;
            GetPlayerPos(playerid, X, Y, Z);
            GetPlayerFacingAngle(playerid, rz);

            new Loma = CreateObject(19425, X, Y, Z-1, 0.0, 0.0, rz+180);
            CreatedLomas[CreatedLoma] = Loma; CreatedLoma++;

            new nombre[32];
            strmid(nombre, tmp, 0, strlen(tmp), sizeof(nombre));

            new File:file;
            format(str,sizeof(str),"%s.txt",nombre);

            file = fopen(str, io_append);
            fwrite(file,"//=======================================================================\r\n");
            fwrite(file, "              [FS] Crear Lomas de Burro (InGame). By Otacon             \r\n");
            fwrite(file,"//=======================================================================\r\n");
            fwrite(file,"   Agregar en OnGameModeInit() o en OnFilterScriptInit():                \r\n\r\n");
            format(str, sizeof str, "   CreateObject(19425,%0.4f, %0.4f, %0.4f, %0.4f, %0.4f, %0.4f);\r\n\r\n",X, Y, Z-1.9, rx, ry, rz+180);
            fwrite(file,str);
            fwrite(file,"//=======================================================================\r\n//*\r\n");
            fclose(file);
            SendClientMessage(playerid, Celeste, "    [ ! ] Se Ha Creado y Guardado con Exito La Loma de Burro en /scriptfiles");
        }
        return 1;
    }
    //======================================================================

    //=============== [ [FS] Crear Lomas de Burro (InGame) ] ===============
    if (strcmp("/Borrar", cmdtext, true, 10) == 0)
    {
        TextDrawHideForPlayer(playerid, InfoLomas[1]);
        TextDrawHideForPlayer(playerid, InfoLomas[2]);
        return 1;
    }
    //=============== [ [FS] Crear Lomas de Burro (InGame) ] ===============
    if (strcmp("/Info", cmdtext, true, 10) == 0)
    {
        TextDrawShowForPlayer(playerid, InfoLomas[1]);
        TextDrawShowForPlayer(playerid, InfoLomas[2]);
        return 1;
    }
    //=============== [ [FS] Crear Lomas de Burro (InGame) ] ===============
    if (strcmp("/QuitarLomas", cmdtext, true, 10) == 0)
    {
        for(new i = 0; i <= CreatedLomas[i]; i++) DestroyObject(CreatedLomas[i]);
        SendClientMessage(playerid, Celeste, "    [ ! ] Has Quitado Todas las Lomas de Burro!.");
        return 1;
    }
    //======================================================================
    return 0;
}

forward RandomMessageTimer();
public RandomMessageTimer()
{
    TextDrawSetString(InfoLomas[2], MensajesRandom[random(sizeof(MensajesRandom))]);
    return 1;
}

strtok(const string[], &index)
{
    new length = strlen(string);
    while ((index < length) && (string[index] <= ' ')) index++;
    new offset = index;
    new result[20];
    while ((index < length) && (string[index] > ' ') && ((index - offset) < (sizeof(result) - 1)))
    {
        result[index - offset] = string[index];
        index++;
    }
    result[index - offset] = EOS;
    return result;
}

/////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////
/*
    ----------------------------------------------------------
    |     [FS] --<  'Crear Lomas de Burro (InGame)'  >--     |
    |                                                        |
    |               Creado Por ØTACØN - 2012                 |
    ----------------------------------------------------------
    ----------------------------------------------------------
    |      FS CREADO PARA LOS USUARIOS NOVATOS EN PAWNO      |
    ----------------------------------------------------------
*/
/////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////
/*
             Prohibido TOTALMENTE el Robo de Créditos o la
                 Publicación de este FS sin Mi Permiso.
*/