D3d_model_addtomodel, стар, но полезен скрипт Опции

[яверт]

Малко е недовършен.Ако имате проблеми с него, пишете в темата.
Скриптът добавя модел, зареден от файл, към вече съществуващ модел.Това е полезно когато примерно се налага да се съединят два модела - първо се запазва единия под някакво име, после се използва този скрипт.

Код

//d3d_model_addtomodel(ind,filename,x,y,z);
var ind,file,xxx,yyy,zzz,fileid,str,vid_d3d_funkciq,arg,flagvx;
//flagvx - дали е започнат модел полигон по полигон
ind=argument0;
file=argument1;
xxx=argument2;
yyy=argument3;
zzz=argument4;
flagvx=0;
arg[10]="";
str="";
vid_d3d_funkciq="";
fileid=file_text_open_read(file);
file_text_readln(fileid);//пропуска първите два реда
file_text_readln(fileid);
while(!file_text_eof(fileid))
             {
             str=file_text_read_string(fileid);
             vid_d3d_funkciq=string_copy(str,0,string_pos(" ",str)-1);
             switch(vid_d3d_funkciq)
                             {
                            case "11":
                            str=string_delete(str,1,string_pos(" ",str));
                            for(jkl=0;jkl<10;jkl+=1)
                            {
                            arg[jkl]=string_copy(str,0,string_pos(" ",str+" ")-1);
                            str=string_delete(str,1,string_pos(" ",str));
                            }
                            d3d_model_cylinder(ind,real(arg[0])+xxx,real(arg[1])+yyy,real(arg[2])+zzz,
                                                                             real(arg[3])+xxx,real(arg[4])+yyy,real(arg[5])+zzz,
                                                                             real(arg[6]),real(arg[7]),real(arg[8]),real(arg[9])   );
                            break;//цилиндър
                            case  "12":
                            str=string_delete(str,1,string_pos(" ",str));
                            for(jkl=0;jkl<10;jkl+=1)
                            {
                            arg[jkl]=string_copy(str,0,string_pos(" ",str+" ")-1);
                            str=string_delete(str,1,string_pos(" ",str));
                            }
                            d3d_model_cone(ind,real(arg[0])+xxx,real(arg[1])+yyy,real(arg[2])+zzz,
                                                                             real(arg[3])+xxx,real(arg[4])+yyy,real(arg[5])+zzz,
                                                                             real(arg[6]),real(arg[7]),real(arg[8]),real(arg[9])   );
                            break;//конус
                            case "0":flagvx=1;d3d_model_primitive_begin(ind,pr_trianglelist);break;//започва модел
                            //4 е pr_trianglelist
                            case "9"://полигон
                            str=string_delete(str,1,string_pos(" ",str));
                            for(jkl=0;jkl<10;jkl+=1)
                            {
                            arg[jkl]=string_copy(str,0,string_pos(" ",str+" ")-1);
                            str=string_delete(str,1,string_pos(" ",str));
                            }
                            d3d_model_vertex_normal_texture_color(ind,
                                                                             real(arg[0])+xxx,real(arg[1])+yyy,real(arg[2])+zzz,
                                                                             real(arg[3]),real(arg[4]),real(arg[5]),
                                                                             real(arg[6]),real(arg[7]),real(arg[8]),real(arg[9])   );
                            break;
                            }
                            case "5"://полигон
                            str=string_delete(str,1,string_pos(" ",str));
                            for(jkl=0;jkl<7;jkl+=1)
                            {
                            arg[jkl]=string_copy(str,0,string_pos(" ",str+" ")-1);
                            str=string_delete(str,1,string_pos(" ",str));
                            }
                            d3d_model_vertex_texture_color(ind,
                                                                             real(arg[0])+xxx,real(arg[1])+yyy,real(arg[2])+zzz,
                                                                             real(arg[3]),real(arg[4]),real(arg[5]),real(arg[6])   );
                            break;
                            }
             file_text_readln(fileid);
             }
file_text_close(fileid);
if flagvx
d3d_model_primitive_end(ind);

[Пешо]

Imper4yy, термин "чисто програмиране" не съществува ^^
яверт, евалата за скрипта, доста добра идея и доста професионално изпълнение.

p.s. Imper4yy, имаш още много да ядеш за да стигнеш до нивото на яверт (и това е истината) =)