Converter: Movie scene

Привет. Этот скрипт может записать координаты всех авто в радиусе, а так же конвертировать их в MTA. Целью было сохранение сцен на сервере и доработка в MTA, ну или в SA-MP Map Construction.

PHP код:

---

CMD:pawn(playerid, params[])
{
    if(sscanf(params, !"d", params[0])) return SendClientMessage(playerid, 0xb93232AA, !"[Подсказка]: /pawn [радиус]");
    new string[100], info[47], mc;
    new File:file = fopen(!"cms_pawn.txt", io_append);
    for(new i = 1; i <= MAX_VEHICLES; i++)
    {
        if(GetVehicleModel(i))
        {
            new Float: x, Float: z, Float: y, Float: a;
            GetVehiclePos(i, x, y, z);
            GetVehicleZAngle(i, a);
            if(IsPlayerInRangeOfPoint(playerid, params[0], x, y, z))
            {
                format(string, sizeof string, "CreateVehicle(%d, %f, %f, %f, %f, -1, -1, 60);\r\n", GetVehicleModel(i), x, y, z, a);
                fwrite(file, string);
                mc = i;
            }
        }
    }
    format(info, sizeof info, "Готово. В радиусе %d сохранено %d авто", params[0], mc);
    SendClientMessage(playerid, 0x99FF00AA, info);
    format(string,sizeof(string),"\r\n");
    fwrite(file, string);
    fclose(file);
    return 1;
} 


---

PHP код:

---

CMD:mta(playerid, params[])
{
    if(sscanf(params, !"d", params[0])) return SendClientMessage(playerid, 0xb93232AA, !"[Подсказка]: /mta [радиус]");
    new string[300], info[47], mc;
    new File:file = fopen(!"cms_mta.txt", io_append);
    for(new i = 1; i <= MAX_VEHICLES; i++)
    {
        if(GetVehicleModel(i))
        {
            new Float: x, Float: z, Float: y, Float: a;
            GetVehiclePos(i, x, y, z);
            GetVehicleZAngle(i, a);
            if(IsPlayerInRangeOfPoint(playerid, params[0], x, y, z))
            {
                format(string,sizeof(string),"<vehicle id=\"vehicle (%i)\" paintjob=\"3\" interior=\"0\" alpha=\"255\" model=\"%d\" plate=\"VV4Z WIK\" dimension=\"0\" posX=\"%f\" posY=\"%f\" posZ=\"%f\" rotX=\"0\" rotY=\"0\" rotZ=\"%f\" color=\"0,0,0,0,0,0,0,0,0,0,0,0\"></vehicle>\r\n", i, GetVehicleModel(i), x, y, z, a);
                fwrite(file, string);
                mc = i;
            }
        }
    }
    format(info, sizeof info, "Готово. В радиусе %d сохранено %d авто", params[0], mc);
    SendClientMessage(playerid, 0x99FF00AA, info);
    format(string,sizeof(string),"\r\n");
    fwrite(file, string);
    fclose(file);
    return 1;
} 


---

Автор: m1n1vv

Лень считать символы? Или же не знаешь как? Тогда тебе к DC.[click]

А что будет если в директории не окажется *.txt файла?
(Я то знаю, что будет, хочу узнать знаете ли Вы?)

P.S: Код не торт.

Цитата:

---

Сообщение от BadPawn

Лень считать символы? Или же не знаешь как? Тогда тебе к DC.[click]

---

Вот и подсчитай )

- - - Добавлено - - -

Цитата:

---

Сообщение от $continue$

А что будет если в директории не окажется *.txt файла?
(Я то знаю, что будет, хочу узнать знаете ли Вы?)

P.S: Код не торт.

---

Файл автоматически создается

Я ничего не скажу и оставлю этот намек тут: http://pro-pawn.ru/showthread.php?12821

Цитата:

---

Сообщение от Anton Styazhkin

Я ничего не скажу и оставлю этот намек тут: http://pro-pawn.ru/showthread.php?12821

---

Более быстрее команда:

PHP код:

---

CMD:pawn(playerid, params[]) 
{ 
    static const 
        fmt_str[] = "CreateVehicle(%d, %f, %f, %f, %f, -1, -1, 60);\r\n"; 

    new Float:range; 
    if (sscanf(params, !"d", range))
        return SendClientMessage( 
            playerid, -1, !"Используйте /pawn [радиус действия]" 
        ); 
    range = float(_:range);

    new buffer[sizeof fmt_str + (-2 + 3) + ( (-2 + 6) * 4)], 
        Float:x, Float:y, Float:z, Float:angle, vehicle_model, File:hFile; 

#if defined foreach && defined Vehicle@YSII_Ag 
    // Вы также можете использовать библиотеку DC. 
    // http://pro-pawn.ru/showthread.php?13061 
    foreach (new i: Vehicle) 
#elseif defined GetVehiclePoolSize 
    for (new i = GetVehiclePoolSize(); --i != 0;) 
#else 
    // Если версия ниже 0.3.7 
    for (new i = 0; ++i != MAX_VEHICLES;) 
#endif 
    { 
        if ((vehicle_model = GetVehicleModel(i)) == 0) 
            continue; 
        GetVehiclePos(i, x, y, z); 
        if (IsPlayerInRangeOfPoint(playerid, range, x, y, z) == 0) 
            continue; 
        GetVehicleZAngle(i, angle); 
        hFile = fopen(!"cms_pawn.txt", io_append); 
        format( 
            buffer, sizeof buffer, fmt_str, 
            vehicle_model, x, y, z, angle 
        ); 
        fwrite(hFile, buffer); 
    } 
    fclose(hFile); 
    SendClientMessage(playerid, 0xAA0000FF, !"Готово!"); 
    return 1; 
} 


---

Из принципа не стал переделывать команду. Ибо, чему он тогда научится?

Цитата:

---

Сообщение от VVWVV

code

---

P.S:

Цитата:

---

Сообщение от VVWVV

new Float:range;
if (sscanf(params, !"d", range))

---

Цитата:

---

Сообщение от $continue$

Из принципа не стал переделывать команду. Ибо, чему он тогда научится?

---

Пусть учится на примере. Впрочем, я оставил для него вторую команду, которую он, надеюсь, с радостью оптимизирует.

Цитата:

---

Сообщение от VVWVV

Пусть учится на примере. Впрочем, я оставил для него вторую команду, которую он, надеюсь, с радостью оптимизирует.

---

Хороший вариант. Я вообще делал код, чтобы взять координаты авто из grandlarc, да и только. :grin:

Сейчас проверил. Твой код выключает сервер )

Я с файлами не на "ты" в Pawn, но попробуй:

PHP код:

---

CMD:pawn(playerid, params[])
{
    static const
        fmt_str[] = "CreateVehicle(%d, %f, %f, %f, %f, -1, -1, 60);\r\n";

    new Float:range;
    if (sscanf(params, !"d", range))
        return SendClientMessage(
            playerid, -1, !"Используйте /pawn [радиус действия]"
        );
    range = float(_:range);

    new buffer[sizeof fmt_str + (-2 + 3) + ( (-2 + 6) * 4)],
        Float:x, Float:y, Float:z, Float:angle, vehicle_model, File:hFile;

#if defined foreach && defined Vehicle@YSII_Ag
    // Вы также можете использовать библиотеку DC.
    // http://pro-pawn.ru/showthread.php?13061
    foreach (new i: Vehicle)
#elseif defined GetVehiclePoolSize
    for (new i = GetVehiclePoolSize(); --i != 0;)
#else
    // Если версия ниже 0.3.7
    for (new i = 0; ++i != MAX_VEHICLES;)
#endif
    {
        if ((vehicle_model = GetVehicleModel(i)) == 0)
            continue;
        GetVehiclePos(i, x, y, z);
        if (IsPlayerInRangeOfPoint(playerid, range, x, y, z) == 0)
            continue;
        GetVehicleZAngle(i, angle);
        hFile = fopen(!"cms_pawn.txt", io_append);
        if(hFile == File: 0)
        {
            print("Файл не найден!");
            break;
        }
        format(
            buffer, sizeof buffer, fmt_str,
            vehicle_model, x, y, z, angle
        );
        fwrite(hFile, buffer);
    }
    fclose(hFile);
    SendClientMessage(playerid, 0xAA0000FF, !"Готово!");
    return 1;
} 


---

Цитата:

---

Сообщение от m1n1vv

Сейчас проверил. Твой код выключает сервер )

---

Цитата:

---

Сообщение от $continue$

Я с файлами не на "ты" в Pawn, но попробуй:

 Код

PHP код:

---

CMD:pawn(playerid, params[])
{
    static const
        fmt_str[] = "CreateVehicle(%d, %f, %f, %f, %f, -1, -1, 60);\r\n";

    new Float:range;
    if (sscanf(params, !"d", range))
        return SendClientMessage(
            playerid, -1, !"Используйте /pawn [радиус действия]"
        );
    range = float(_:range);

    new buffer[sizeof fmt_str + (-2 + 3) + ( (-2 + 6) * 4)],
        Float:x, Float:y, Float:z, Float:angle, vehicle_model, File:hFile;

#if defined foreach && defined Vehicle@YSII_Ag
    // Вы также можете использовать библиотеку DC.
    // http://pro-pawn.ru/showthread.php?13061
    foreach (new i: Vehicle)
#elseif defined GetVehiclePoolSize
    for (new i = GetVehiclePoolSize(); --i != 0;)
#else
    // Если версия ниже 0.3.7
    for (new i = 0; ++i != MAX_VEHICLES;)
#endif
    {
        if ((vehicle_model = GetVehicleModel(i)) == 0)
            continue;
        GetVehiclePos(i, x, y, z);
        if (IsPlayerInRangeOfPoint(playerid, range, x, y, z) == 0)
            continue;
        GetVehicleZAngle(i, angle);
        hFile = fopen(!"cms_pawn.txt", io_append);
        if(hFile == File: 0)
        {
            print("Файл не найден!");
            break;
        }
        format(
            buffer, sizeof buffer, fmt_str,
            vehicle_model, x, y, z, angle
        );
        fwrite(hFile, buffer);
    }
    fclose(hFile);
    SendClientMessage(playerid, 0xAA0000FF, !"Готово!");
    return 1;
} 


---

---

Так же

PHP код:

---

[23:03:56] [debug] Server crashed while executing sfcr.amx
[23:03:56] [debug] AMX backtrace:
[23:03:56] [debug] #0 native fclose () from samp-server.exe
[23:03:56] [debug] #1 000191bc in public cmd_pawn (playerid=0, params[]=@000a65e0 "100") at \gamemodes\sfcr.pwn:838
[23:03:56] [debug] #2 native DC_CMD () from dc_cmd.DLL
[23:03:56] [debug] #3 000000f4 in public OnPlayerCommandText (playerid=0, cmdtext[]=@000a65b8 "/pawn 100") at \pawno\include\dc_cmd.inc:62 


---

838:

PHP код:

---

fclose(hFile); 


---

Цитата:

---

Сообщение от m1n1vv

Так же

PHP код:

---

[23:03:56] [debug] Server crashed while executing sfcr.amx
[23:03:56] [debug] AMX backtrace:
[23:03:56] [debug] #0 native fclose () from samp-server.exe
[23:03:56] [debug] #1 000191bc in public cmd_pawn (playerid=0, params[]=@000a65e0 "100") at \gamemodes\sfcr.pwn:838
[23:03:56] [debug] #2 native DC_CMD () from dc_cmd.DLL
[23:03:56] [debug] #3 000000f4 in public OnPlayerCommandText (playerid=0, cmdtext[]=@000a65b8 "/pawn 100") at \pawno\include\dc_cmd.inc:62 


---

838:

PHP код:

---

fclose(hFile); 


---

---

PHP код:

---

CMD:pawn(playerid, params[]) 
{ 
    static const 
        fmt_str[] = "CreateVehicle(%d, %.06f, %.06f, %.06f, %.06f, -1, -1, 60);\r\n"; 

    new Float:range; 
    if (sscanf(params, !"d", range))
        return SendClientMessage( 
            playerid, -1, !"Используйте /pawn [радиус действия]" 
        ); 
    range = float(_:range);

    new buffer[sizeof fmt_str + (-2 + 3) + ( (-7 + (6 + 4)) * 4) + 3], 
        Float:x, Float:y, Float:z, Float:angle, vehicle_model, File:hFile; 

    if (_:(hFile = fopen(!"cms_pawn.txt", io_write)) == 0)
        return print(!"File is not found");
#if defined foreach && defined Vehicle@YSII_Ag 
    // Вы также можете использовать библиотеку DC. 
    // http://pro-pawn.ru/showthread.php?13061 
    foreach (new i: Vehicle) 
#elseif defined GetVehiclePoolSize 
    for (new i = GetVehiclePoolSize(); --i != 0;) 
#else 
    // Если версия ниже 0.3.7 
    for (new i = 0; ++i != MAX_VEHICLES;) 
#endif 
    { 
        if ((vehicle_model = GetVehicleModel(i)) == 0) 
            continue; 
        GetVehiclePos(i, x, y, z); 
        if (IsPlayerInRangeOfPoint(playerid, range, x, y, z) == 0) 
            continue; 
        GetVehicleZAngle(i, angle); 
        format( 
            buffer, sizeof buffer, fmt_str, 
            vehicle_model, x, y, z, angle 
        ); 
        fwrite(hFile, buffer); 
    } 
    fclose(hFile); 
    SendClientMessage(playerid, 0xAA0000FF, !"Готово!"); 
    return 1; 
} 


---

"В ралиусе"

Я смешал свой и VVWVV код, и он стал еще быстрее

PHP код:

---

Header size:            948 bytes
Code size:            29252 bytes
Data size:            10124 bytes
Stack/heap size:      16384 bytes; estimated max. usage=100 cells (400 bytes)
Total requirements:   56708 bytes 


---

PHP код:

---

Header size:            932 bytes
Code size:            29056 bytes
Data size:            10088 bytes
Stack/heap size:      16384 bytes; estimated max. usage=99 cells (396 bytes)
Total requirements:   56460 bytes 


---

Цитата:

---

Сообщение от m1n1vv

Я смешал свой и VVWVV код, и он стал еще быстрее

PHP код:

---

Header size:            948 bytes
Code size:            29252 bytes
Data size:            10124 bytes
Stack/heap size:      16384 bytes; estimated max. usage=100 cells (400 bytes)
Total requirements:   56708 bytes 


---

PHP код:

---

Header size:            932 bytes
Code size:            29056 bytes
Data size:            10088 bytes
Stack/heap size:      16384 bytes; estimated max. usage=99 cells (396 bytes)
Total requirements:   56460 bytes 


---

---

Просто оставлю это здесь. Сравнение производительности кода на Pawn (профилирование)