Peršokti į turinį
  • ŽAIDIMAI
  • , ŽAIDIMAI
  • ŽAIDIMAI

Nori pirkti ar parduoti SA:MP turtą? SPAUSK ČIA!

CreateObject

Valix_Lmike

Parašė Valix_Lmike
forume SA:MP Klausimai, pagalba ir prašymai

 Pasidalinti

Ši tema yra neaktyvi. Paskutinis pranešimas šioje temoje buvo prieš 3436 dienas (-ų). Patariame sukurti naują temą, o ne rašyti naują pranešimą.

Už neaktyvių temų prikėlimą galite sulaukti įspėjimo ir pranešimo pašalinimo!

Recommended Posts

Valix_Lmike Dalyvis (-ė)

Valix_Lmike

Sveiki visi, radau tokį CreateObject fs, bet kai žaidime savinu šitą, objectą, jis neseivinas.

F.S.:

*/
#include <a_samp>

#define DIALOG_SOE            1050
#define DIALOG_CREATE        DIALOG_SOE + 1
#define DIALOG_SELECT       DIALOG_SOE + 2
#define DIALOG_TUTORIAL     DIALOG_SOE + 3
#define DIALOG_SAVE_1        DIALOG_SOE + 4
#define DIALOG_SAVE_2       DIALOG_SOE + 5

enum SavedEnums {
    Float:foX,
    Float:foY,
    Float:foZ,
    Float:roX,
    Float:roY,
    Float:roZ
};

new O[savedEnums];

public OnPlayerCommandText(playerid, cmdtext[])
{
    if(strcmp("/soe", cmdtext, true, 10) == 0)
    {
        ShowPlayerDialog(playerid, DIALOG_SOE, DIALOG_STYLE_LIST, "Šåäąźņīš īįśåźņīā", \
        "Čķńņšóźöč˙\nŃīēäąņü īįśåźņ\nČēģåķčņü źąšņó","Āūįšąņü","Īņģåķą");
        return 1;
    }
    return 0;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
    switch(dialogid)
    {
        case DIALOG_SOE:
        {
            if(response)
            {
                if(listitem == 0) ShowPlayerDialog(playerid, DIALOG_TUTORIAL, DIALOG_STYLE_MSGBOX, \
                "Čķńņšóźöč˙","{FFFFFF}Ćīš˙÷čå źėąāčųč:\n\n{008080}Escape {FFFFFF}- ÷ņīįū āūéņč čē šåäąźņīšą,\nčėč āūįīšą īįśåźņą\n{008080}Shift {FFFFFF}- ÷ņīįū āšąłąņü źąģåšó\nāī āšåģ˙ šåäąźņčšīāąķč˙",\
                "Ćīņīāī","Ķąēąä");
                if(listitem == 1) ShowPlayerDialog(playerid, DIALOG_CREATE, DIALOG_STYLE_INPUT, \
                "Ńīēäąķčå īįśåźņą","Āāåäčņå ID ģīäåėč īįśåźņą äė˙ ņīćī ÷ņīįū åćī ńīēäąņü\nĪįśåźņ ļī˙āčņń˙ ļåšåä āąģč, äąėåå āū įóäåņå čēģåķ˙ņü åćī\n\nĢąźńčģąėüķūé ID īįśåźņą - 19469",\
                "Ńīēäąņü","Ķąēąä");
                if(listitem == 2) SelectObject(playerid);
            }
        }
        case DIALOG_CREATE:
        {
            if(!response) return OnPlayerCommandText(playerid, "/soe");
            if(!strval(inputtext)) return ShowPlayerDialog(playerid, DIALOG_CREATE, DIALOG_STYLE_INPUT, \
            "Ńīēäąķčå īįśåźņą","Āāåäčņå ID ģīäåėč īįśåźņą äė˙ ņīćī ÷ņīįū åćī ńīēäąņü\nĪįśåźņ ļī˙āčņń˙ ļåšåä āąģč, äąėåå āū įóäåņå čēģåķ˙ņü åćī\n\nĢąźńčģąėüķūé ID īįśåźņą - 19469\n{FF0000}Īųčįźą: Ķåäīļóńņčģīå ēķą÷åķčå!",\
            "Ńīēäąņü","Ķąēąä");
            new Float:X, Float:Y, Float:Z;
            GetPlayerPos(playerid, X, Y, Z);
            new obj;
            obj = CreateObject(strval(inputtext), X+1, Y+1, Z+1, 0.0,0.0,0.0);
            EditObject(playerid, obj);
            SetPVarInt(playerid, "ModelID", strval(inputtext));
        }
        case DIALOG_SELECT:
        {
            new objectid = GetPVarInt(playerid, "SelectedObject");
            if(response) EditObject(playerid, objectid);
            else DestroyObject(objectid) && CancelEdit(playerid);
        }
        case DIALOG_TUTORIAL: if(!response) return OnPlayerCommandText(playerid, "/soe");
        case DIALOG_SAVE_1:
        {
            if(response) return ShowPlayerDialog(playerid, DIALOG_SAVE_2, DIALOG_STYLE_INPUT, "Ķąēāąķčå ōąéėą","Āāåäčņå ķąēāąķčå ņåźńņīāīćī äīźóģåķņą,\nā źīņīšūé ńīõšąķčņń˙ āąų īįśåźņ","Ńīõšąķčņü","Īņģåķą");
        }
        case DIALOG_SAVE_2:
        {
            if(response)
            {
                if(!strlen(inputtext)) return SendClientMessage(playerid, 0xFF0000FF, "Āū īńņąāčėč ļīėå āāīäą ļóńņūģ!");
                new string1[255], string2[128], File: objs;
                format(string2, sizeof(string2), "scriptfiles/soe/%s.txt", inputtext);
                objs = fopen(string2, io_append);
                format(string1, sizeof(string1), "CreateDynamicObject(%d, %f,%f,%f, %f,%f,%f);\r\n", \
                GetPVarInt(playerid, "ModelID"), O[foX],O[foY],O[foZ], O[roX],O[roY],O[roZ]);
                fwrite(objs, string1);
                fclose(objs);
            }
        }
    }
    return 1;
}

public OnPlayerSelectObject(playerid, type, objectid, modelid, Float:fX, Float:fY, Float:fZ)
{
    ShowPlayerDialog(playerid, DIALOG_SELECT, DIALOG_STYLE_MSGBOX,"Äåéńņāčå ń īįśåźņīģ", \
    "Āūįåščņå äåéńņāčå ń īįśåźņīģ\nĀū ģīęåņå åćī īņšåäąźņčšīāąņü čėč óäąėčņü","Čēģåķčņü","Óäąėčņü");
    SetPVarInt(playerid, "SelectedObject", objectid);
    SetPVarInt(playerid, "ModelID", modelid);
    return 1;
}

public OnPlayerEditObject(playerid, playerobject, objectid, response, Float:fX, Float:fY, Float:fZ, Float:fRotX, Float:fRotY, Float:fRotZ)
{
    if(response == 1)
    {
        ShowPlayerDialog(playerid, DIALOG_SAVE_1, DIALOG_STYLE_MSGBOX, "Īįśåźņ čēģåķøķ",\
        "Ęåėąåņå ėč āū ńīõšąķčņü īįśåźņ ā ōąéė?\n\nŌąéė ń īįśåźņąģč ķąõīäčņń˙ ā {FFFFFF}scriptfiles/soe/*.txt",\
        "Ńīõšąķčņü...","Īņģåķą");
        O[foX] = fX;
        O[foY] = fY;
        O[foZ] = fZ;
        O[roX] = fRotX;
        O[roY] = fRotY;
        O[roZ] = fRotZ;
    }
}

Kame problemos? Gal vpš. reikia Mysql pajungti? Nes gm be jo ir nesinori pajunginėti nes nemoku. :D

Kas padės +REP.

Ši tema yra neaktyvi. Paskutinis pranešimas šioje temoje buvo prieš 3436 dienas (-ų). Patariame sukurti naują temą, o ne rašyti naują pranešimą.

Už neaktyvių temų prikėlimą galite sulaukti įspėjimo ir pranešimo pašalinimo!

Prisijungti prie diskusijos

Palikti atsakymą galite iš karto, o užsiregistruoti vėliau. Jeigu jau turite paskyrą mūsų forume, Prisijunkite.

Svečias
Atsakyti šioje temoje...

×   Įklijuotas tekstas turi teksto formatavimą.   Pašalinti teksto formatavimą

  Galimi tik 75 veidukai.

×   Nuoroda buvo automatiškai įterpta.   Įterpti nuorodą paprastai

×   Jūsų ankstesnis pranešimas buvo atkurtas.   Išvalyti redaktorių

×   Jūs negalite įkelti nuotraukas tiesiogiai.Įkelkite arba įdėkite nuotraukas iš URL.

×
 Pasidalinti
Eiti į

  • Šiame puslapyje naršo:   0 nariai

    • Nėra registruotų narių peržiūrinčių šį forumą.

Skelbimai



×
×
  • Sukurti naują...