02.08.2009, 23:22
Is it possible to rename a file in scriptfiles? Like typing /name whatever_whatever and the file name changes.
Originally Posted by Jefff
But U want all what is inside file or brand new
|
stock frename(oldname[],newname[]) { // by Jefff if(!fexist(oldname)) return false; new string[255], File:old, File:neww; old = fopen(oldname, io_read); neww = fopen(newname, io_write); while(fread(old, string)){ StripNewLine(string); format(string,sizeof(string),"%s\r\n",string); fwrite(neww, string); } fclose(old); fclose(neww); fremove(oldname); return true; }
if(strcmp(cmd,"/changename",true)==0)
{
tmp = strtok(cmdtext, idx);
if(strlen(tmp)==0) return SendClientMessage(playerid, COLOR_LB, "Syntax: /ChangeName <Player ID/Part of Name> <New Name>");
player = ReturnUser(tmp);
if(player != INVALID_PLAYER_ID)
{
if(PlayerInfo[playerid][pAdmin] >= 1337)
{
new length = strlen(cmdtext);
while ((idx < length) && (cmdtext[idx] <= ' '))
{
idx++;
}
new offset = idx;
new result[80];
while ((idx < length) && ((idx - offset) < (sizeof(result) - 1)))
{
result[idx - offset] = cmdtext[idx];
idx++;
}
result[idx - offset] = EOS;
GetPlayerName(player, sendername, sizeof(sendername));
format(string, sizeof(string), "%s.ini", sendername);
frename(sendername,(result));
SetPlayerName(player,(result));
OnPlayerUpdate(player);
fremove(string);
format(string, sizeof(string), "Your name has been changed from %s to %s.", sendername, (result));
SendClientMessage(player, COLOR_YELLOW, string);
}
else return SendClientMessage(playerid, COLOR_RED, "(Error): You are not an administrator. (Error Code: 45)");
}
else return SendClientMessage(playerid, COLOR_RED, "(Error): Player does not exist.");
return 1;
}