(/skelbti [tekstas]) tavo vietoje palieka 3Dtext žinutę

[Drye']

Įžanga:

 

Su šia komanda jūs lengvai galėsite palikti kokį nors skelbimą, žinutę ten kur jūs esate 3D Teksto pavidalu.

Šioje temoje bus įkeltas tik scriptas. Kiekviena f-ja išaiškinta nebus.

 

Ką naudosime:

 

Šį kartą mums reikės ( zcmd.inc ) įskiepio bei ( sscanf.dll ) plugin'o.

 

Kodas:

new Text3D:skelbimas[ MAX_PLAYERS ]; 

CMD:skelbti(playerid, params[])
{
    new tekstas[ 100 + 1 ];
    if(isnull(params); return SendClientMessage(playerid, 0xff0000ff, "Neteisingas naudojimas: {ffffff}/skelbti [ tekstas ]");
    if(skelbimas[ playerid ] == Text3D:INVALID_3DTEXT_ID) return SendClientMessage(playerid, 0xff0000ff, "Nesi sukūręs jokio skelbimo");
    if(strlen(params) > 100) return SendClientMessage(playerid, 0xff0000ff, "Žinutė per ilga");
    if(GetPlayerInterior(playerid) != 0) return SendClientMessage(playerid, 0xff0000ff, "Skelbimą palikti galima tik lauke");
    
    new Float:pPos[ 3 ], pVardas[ MAX_PLAYER_NAME ], msg[ 101 + MAX_PLAYER_NAME + 17 ];
    GetPlayerName(playerid, pVardas, MAX_PLAYER_NAME);
    GetPlayerPos(playerid, pPos[ 0 ], pPos[ 1 ], pPos[ 2 ]);
    format(msg, sizeof( msg ), "{afafaf}%s {ffffff}skelbimas:\n{ff0000}%s", pVardas, tekstas);
    skelbimas[ playerid ] = Create3DTextLabel(msg, -1, pPos[ 0 ], pPos[ 1 ], pPos[ 2 ], 50.0, -1, 0);
    return 1;
}

CMD:nskelbimas(playerid)
{
    if(skelbimas[ playerid ] != INVALID_3DTEXT_ID) {
        Delete3DTextLabel(Text3D:skelbimas[ playerid ])
        skelbimas[ playerid ] = INVALID_3DTEXT_ID;
    }
    else
        SendClientMessage(playerid, 0xff0000ff, "Jûs nesate sukûræs jokio skelbimo!"
    return 1;
}

Pabaigai:

 

Kodas nebuvo ištestuotas. Jei pastebėjote klaidų, praneškite komentaruose.

 

Šį scriptą leidžiu naudoti įvairiems tikslams, o kopijuojant kitur, prašyčiau palikti kreditus.

Redaguota Kovo 16, 2014, nario DavidB

[- »Donatas.]

Ačiū tau Dovydai už pamoką jeigu galėtum daugau įkelk savo pamokų.

 

 

 t.y Galėtum į skype prisijungti?

Redaguota Kovo 16, 2014, nario - »Arminas

[bebras]

Kam to "tekstas" ir kam to sscanf? Ir šiaip, nereikia po sscanf eilutės ' ; '. 

CMD:skelbti(playerid, params[])
{
    new tekstas[100 + 1];
    if(isnull(params)) return SendClientMessage(playerid, 0xff0000ff, "Neteisingas naudojimas: {ffffff}/skelbti [ tekstas ]");
    if(strlen(params) > 100) return SendClientMessage(playerid, 0xff0000ff, "Þinutë per ilga");
    if(GetPlayerInterior(playerid) != 0) return SendClientMessage(playerid, 0xff0000ff, "Skelbimà palikti galima tik lauke");
    
    new Float:pPos[3], pVardas[MAX_PLAYER_NAME], msg[142];
    GetPlayerName(playerid, pVardas, MAX_PLAYER_NAME);
    GetPlayerPos(playerid, pPos[ 0 ], pPos[ 1 ], pPos[ 2 ]);
    format(msg, sizeof( msg ), "{afafaf}%s {ffffff}skelbimas:\n{ff0000}%s", pVardas, tekstas);
    Create3DTextLabel(msg, -1, pPos[ 0 ], pPos[ 1 ], pPos[ 2 ], 50.0, -1, 0);
    return 1;
}

Ir dar vienas dalykas, tai kad atrodo nereikalinga kad tas "skelbimas" liktų. Suprasčiau jeigu jie visi rašytųsi kažkur kur bet kada kažkas galėtų pažiūrėti.

[Drye']

Kam to "tekstas" ir kam to sscanf? Ir šiaip, nereikia po sscanf eilutės ' ; '. 

CMD:skelbti(playerid, params[])
{
    new tekstas[100 + 1];
    if(isnull(params)) return SendClientMessage(playerid, 0xff0000ff, "Neteisingas naudojimas: {ffffff}/skelbti [ tekstas ]");
    if(strlen(params) > 100) return SendClientMessage(playerid, 0xff0000ff, "Þinutë per ilga");
    if(GetPlayerInterior(playerid) != 0) return SendClientMessage(playerid, 0xff0000ff, "Skelbimà palikti galima tik lauke");
    
    new Float:pPos[3], pVardas[MAX_PLAYER_NAME], msg[142];
    GetPlayerName(playerid, pVardas, MAX_PLAYER_NAME);
    GetPlayerPos(playerid, pPos[ 0 ], pPos[ 1 ], pPos[ 2 ]);
    format(msg, sizeof( msg ), "{afafaf}%s {ffffff}skelbimas:\n{ff0000}%s", pVardas, tekstas);
    Create3DTextLabel(msg, -1, pPos[ 0 ], pPos[ 1 ], pPos[ 2 ], 50.0, -1, 0);
    return 1;
}

Ir dar vienas dalykas, tai kad atrodo nereikalinga kad tas "skelbimas" liktų. Suprasčiau jeigu jie visi rašytųsi kažkur kur bet kada kažkas galėtų pažiūrėti.

 

Dėkui Justai už kritiką ir pastabas. Viską pataisysiu ir pridėsiu naikinimo f-ją.

[- »Donatas.]

Dėkui Justai už kritiką ir pastabas. Viską pataisysiu ir pridėsiu naikinimo f-ją.

 

Ignoruoji ir supergames.lt eh...

[#Karolis]

Bet jai naudosit skelbikų darbe, geriau nepatariama... Nes kai žaidėjas užsisakys skelbimą ir sumokės pinigus kai paskelbs skelbimą, skelbėjas atsijungs ir dings tekstas Tad geriau kad eitu už pinigus

[Drye']

Bet jai naudosit skelbikų darbe, geriau nepatariama... Nes kai žaidėjas užsisakys skelbimą ir sumokės pinigus kai paskelbs skelbimą, skelbėjas atsijungs ir dings tekstas Tad geriau kad eitu už pinigus

Čia kaip pavyzdys, kas kaip norės, tas taip ir pasidarys.