Szerző Téma: Návváltó script (Megtekintve 747 alkalommal)

Prototype · « **Dátum:** 2012. április 15. - 18:28:30 »

Szeretnék kérni tõleket egy névváltó scriptet

Elõre is köszi :thumbsup: :hihi:

Gabor.. · « **Válasz #1 Dátum:** 2012. április 15. - 18:32:54 »

CMD:nevvalt(playerid, params[])
{
     new nev;
     if(sscanf(params, \"s[50]\", nev)) return SendClientMessage(playerid, 0xFF0000AA, \"Használat: /nevvalt <Név>\");
     
     SetPlayerName(playerid, name);
     return 1;
}

Tessék.

SniperMen11 · « **Válasz #2 Dátum:** 2012. április 15. - 18:38:53 »

if(strcmp(cmd, \"/névváltás\", true) == 0)
{
    GetPlayerName(playerid, sendername, sizeof(sendername));
new tmpp[256];
tmpp = strtok(cmdtext, idx);
if(!strlen(tmpp))
{
   SendClientMessage(playerid, COLOR_GRAD1, \"HASZNÁLAT: /névváltás [JátékosID] [új név]\");
   return 1;
}
giveplayerid = strval(tmpp);
tmp = strtok(cmdtext, idx);
GetPlayerName(giveplayerid, giveplayer, sizeof(giveplayer));
GetPlayerName(playerid, sendername, sizeof(sendername));
if(IsPlayerConnected(playerid))
{
    if(Admin(playerid, 4))
    {
        if(IsPlayerConnected(giveplayerid))
        {
         SetPlayerName(giveplayerid, tmp);
         /*format(string, sizeof(string), \"[ADMINÜZENET]: %s megváltoztatta %s nevét erre: %s\", sendername, giveplayer, tmp);
         SendClientMessage(giveplayerid, COLOR_DBLUE, string);*/
         format(string, sizeof(string), \"Megváltoztattad %s nevét erre: %s\", giveplayer, tmp);
         SendClientMessage(playerid, COLOR_WHITE, string);
         format(string, 256, \"[ADMINÜZENET] %s megváltoztatta %s nevét erre: %s\", sendername,giveplayer, tmp);
         ABroadCast(COLOR_RED,string,1);
         new nev[32];
         GetPlayerName(playerid, nev, sizeof(nev));
         new h,mi,s,y,m,d;
         getdate(y,m,d);
         gettime(h,mi,s);
         format(stringx,sizeof(stringx), \"[%d/%d/%d][%d:%d:%d] %s megváltoztatta %s nevét erre: %s\",y,m,d,h,mi,s,nev,giveplayer, tmp);
         LoOoG(stringx);
      }
      else
      {
          format(string, sizeof(string), \"Nem aktív játékos!\");
         SendClientMessage(playerid, COLOR_RED, string);
      }
   }
   else
   {
       SendClientMessage(playerid, COLOR_RED, \"Nem vagy fõadmin!\");
   }
}
else
{
    SendClientMessage(playerid, COLOR_RED, \"Nem vagy bejelentkezve!\");
}
     return 1;
}

Szívesen! Szolj ha nem megy! Ezt a módba kell beletenni! Tessék

Casamiro · « **Válasz #3 Dátum:** 2012. április 15. - 18:39:53 »

sscanf illetve 50es tömb a névváltáshoz felesleges.

CMD:nevvaltas(playerid, params[])
{
      if(isnull(params)) return SendClientMessage(playerid, -1, \"Használat: /nevvaltas [név]\");
      if(strlen(params) < 3 || strlen(params) > 24) return SendClientMessage(playerid, -1, \"3-24 karakter!\");
      return SetPlayerName(playerid, params);
}

$uRí · « **Válasz #4 Dátum:** 2012. április 15. - 23:17:16 »

Próbáld meg ezt:
Mod elejére


#include <a_samp>
#include <zcmd>
#include <sscanf2>


CMD:setname(playerid,params[])
{
if(IsPlayerAdmin(playerid))
{
new id, name[24], str[130], newname;
if(sscanf(params, \"udd\", id,name,newname)) return SendClientMessage(playerid,-1,\"/SetName [Játékos/ID] [Új Neve]\");
GetPlayerName(id,name,24);
format(str,130,\"Adminisztrátor megváltoztatta a neved %s (%d) erre a névre: $%d\",name,id,newname);
SendClientMessage(playerid,SZíN,str);
format(str,130, \"Egy admin megváltoztatta a neved $%d\",newname);
SendClientMessage(playerid,SZíN,str);
SetPlayerName(id,name);
} else return SendClientMessage(playerid,-1,\"Nem vagy RCON adminisztrátor!\");
return 1;
}