Onde esta o erro?

var String,_newPth,Nome,Pass,Dono,Dscp,Pare,Grup,Type;
String = argument1
Nome = Find_String(String,'(',')') //Nome da sala
Pass = Find_String(String,'[',']') //Senha da sala
Dono = Find_String(String,'{','}') //Nome do proprietario da sala
Dscp = Find_String(String,'/','\') //Descrição da sala
Pare = Find_String(String,'-|','|-')//Exibirparede (true,false)
Grup = Find_String(String,'|*','*|')//Crupo(X, se não existir)
Type = Find_String(String,'/|','|\')//Tipo da sala

_newPth = working_directory+'\Rooms\['+Dono+']'+string_lower(Nome)+'.ini'

if (!file_exists(_newPth)){New_Date = file_text_open_write(_newPth);
Room_Data(Nome,Pass,0,Type,Dscp,Pare,Grup);//Carregar String_Date_Room com Data da nova sala

clearbuffer()
writebyte(MSG_ACCOUNT_CREATE)
writebyte(1)
send_client('self')
file_text_write_string(New_Date,String_Date_Room)file_text_close(New_Date)
var Part1,Part2,Part3,RNSala,NSala,SPFile,StringFile,size,write_file;RNSala = 0;StringFile = 0;
SP = "
"
Ender = working_directory+'\Accounts\'+'[Player]'+string(Dono)+'.ini'
NSala = iniReadReal (Ender,'Rooms','NSala',0)+1
Part2 = '[Rooms]'+SP+'NSala='+string(NSala)+SP;
repeat(NSala-1){RNSala+=1;Part2+=string(RNSala)+'Salas'+SP}
Part2 += string(NSala)+'Sala='+string(Nome);
File = file_text_open_read(Ender);
StringFile += file_text_read_string(File);
file_text_readln(File);
Part1 = string_copy(StringFile,0,string_pos('/*',StringFile))
Part3 = string_copy(StringFile,string_pos('*/',StringFile),string_length(StringFile))
file_text_close(File);
write_file = file_text_open_write(Ender);
file_text_write_string(write_file,Part1+SP+Part2+SP+Part3);
file_text_writeln(write_file);
file_text_close(write_file);
}else{
clearbuffer()
writebyte(MSG_ACCOUNT_CREATE)
writebyte(2)
send_client('self')
}