[pergunta]abrir texto e executar como codigo

cod = get_open_filename('Abra um arquivo de texto|*.txt*.*','')
if !(cod = '') then
{
global.mp = filename_name(cod)
script_get_text(script_loader)}

Código:


global.arquivo_script=get_open_filename('Abra um arquivo de texto|*.txt','');
if !(global.arquivo_script=''){ execute_file(global.arquivo_script) };

Código:

global.arquivo=get_open_filename('Abra um arquivo de texto|*.txt','');
if !(global.arquivo=''){
arquivoaberto=file_text_open_read(global.arquivo);
//abre o arquivo com o game maker
string_do_arquivo="";
while(!file_text_eof(global.arquivo)){
//isso faz o game maker repetir o processo abaixo até o fim do arquivo
string_antiga=string_do_arquivo;
nova_linha=file_text_read_string(arquivoaberto);
//Lê uma linha do arquivo até o fim
file_text_readln(arquivoaberto);
//Pula para a próxima linha
string_do_arquivo=string_antiga+nova_linha+"#";
//constroi essa linha na string
//(o "#" ali serve para pular uma linha
//é ignorado quando lido em codigo)
};
//agora temos o arquivo de texto inteiro na forma de string
//agora vamos procurar partes dele
if string_count("vidas",string_do_arquivo) {
//esse comando procura por pedaços de string dentro de uma maior
//no caso ele procura o numero de apariçoes da string "vidas"
//dentro da string_do_arquivo
//se ele for maior que 0, ele fará o código aqui dentro
fazer_o_que_o_peixoto_quer();
}};
file_text_close(arquivoaberto);
//libera o txt

Código:

execute_string(string_do_arquivo)

Código:

MASK=working_directory+"\script_*.txt" //talvez você prefira tirar o "script_" da mask
SCRIPT=file_find_first(MASK, fa_readonly)

//draw_circular_electric_field(x, y, inner_radius,thickness,density,initial_angle,final_angle,color,connect)
execute_file(SCRIPT,x, y, 30,10,60,0,180,0,true)

Código:

//draw_circular_electric_field(x,y,inner_radius,thickness,density,initial_angle,final_angle,color,connect)
//draws a ring section of randomly placed points connected (1 point/direction)

//first, set some variables and define their value automatically if it is possible
var cx, cy, in_rad, thick, dens, in_ang, end_ang, color, i;

cx=argument0 //center of ring - required
cy=argument1 //center of ring - required

if argument2
   in_rad=argument2  //inner radius
   else in_rad=max(sprite_width,sprite_height)*1.5

if argument3
   thick=argument3  //outer radius
   else out_rad=in_rad

dens=argument4  //spot density

in_ang=argument5 //even if it is 0 - inital angle

an_add=(argument6-in_ang)/dens //how much angle to add between spots

if argument7
   color=argument7  //even if it is 0 - color to be used
   else color=choose(c_blue, c_yellow, c_white, c_aqua)

//define the spots
for(i=0; i<dens; i+=1){
   dist=in_rad+random(thick)
   spot_x[i]=cx+lengthdir_x(dist,in_ang+i*an_add)
   spot_y[i]=cy+lengthdir_y(dist,in_ang+i*an_add)
   }

//draw the lines
for(i=1; i<dens; i+=1){
   draw_line_color(spot_x[i], spot_y[i], spot_x[i-1], spot_y[i-1], color, color)
   }
//final line
if argument8
   draw_line_color(spot_x[dens-1], spot_y[dens-1], spot_x[0], spot_y[0], color, color)

Mathaeuz escreveu:Hm... para isso teriamos que primeiro ler as strings dentro do texto.
Poderiamos ler linha por linha, mas asseguir farei o game maker reconstruir o texto inteiro do arquivo como uma só string e depois analisar ela:

Código:

global.arquivo=get_open_filename('Abra um arquivo de texto|*.txt','');
if !(global.arquivo=''){
arquivoaberto=file_text_open_read(global.arquivo);
//abre o arquivo com o game maker
string_do_arquivo="";
while(!file_text_eof(global.arquivo)){
//isso faz o game maker repetir o processo abaixo até o fim do arquivo
string_antiga=string_do_arquivo;
nova_linha=file_text_read_string(arquivoaberto);
//Lê uma linha do arquivo até o fim
file_text_readln(arquivoaberto);
//Pula para a próxima linha
string_do_arquivo=string_antiga+nova_linha+"#";
//constroi essa linha na string
//(o "#" ali serve para pular uma linha
//é ignorado quando lido em codigo)
};
//agora temos o arquivo de texto inteiro na forma de string
//agora vamos procurar partes dele
if string_count("vidas",string_do_arquivo) {
//esse comando procura por pedaços de string dentro de uma maior
//no caso ele procura o numero de apariçoes da string "vidas"
//dentro da string_do_arquivo
//se ele for maior que 0, ele fará o código aqui dentro
fazer_o_que_o_peixoto_quer();
}};
file_text_close(arquivoaberto);
//libera o txt

Se quiser executar a string final basta usar

Código:

execute_string(string_do_arquivo)