PROGRAM ejemplo_set_fog;
GLOBAL
niebla;
ángulo1;
BEGIN
load_fpg("HELP\WLD_VIEW.FPG");
load_wld("HELP\WLD_VIEW.WLD",0);
start_mode8(id,0,0);
ctype=c_m8;
go_to_flag(0);
FRAME;
z+=128;
LOOP
niebla=25+get_distx(ángulo1,20);
ángulo1+=5000;
set_fog(niebla,niebla*2); // Establece el nivel de niebla del modo 8
FRAME;
END
END
|