[GM:S] Importar modelos .OBJ?

OBS: Tentei usar uma DLL que se não me engano foi feita pelo Jiraya mas ela não funcionou nas outras versões, já nas antigas elas é rápida e importa as texturas corretamente.

Código:


//LoadWaveFront(filename)
var a=argument0,b=ds_list_create(),c,d=ds_list_create(),e=ds_list_create(),f=ds_list_create(),g=ds_list_create(),h=ds_list_create(),i=ds_list_create(),j=ds_list_create(),k=ds_list_create(),l,m,n,o,p,q,r,s,t,u,v,w,A,B,C,D,E,F,G,H,I,J,K,L;
ds_list_add(b,0)ds_list_add(d,0)ds_list_add(e,0)ds_list_add(f,0)ds_list_add(g,0)ds_list_add(h,0)ds_list_add(i,0)ds_list_add(j,0)ds_list_clear(k)l=file_text_open_read(a)for(L=0;file_text_eof(l)==false;L++){m=file_text_read_string(l)m=string_replace_all(m,"  "," ")if(string_char_at(m,1)=="v" && string_char_at(m,2)==" "){
m=string_delete(m,1,string_pos(" ",m))n=real(string_copy(m,1,string_pos(" ",m)))m=string_delete(m,1,string_pos(" ",m))o=real(string_copy(m,1,string_pos(" ",m)))m=string_delete(m,1,string_pos(" ",m))p=real(string_copy(m,1,string_length(m)))ds_list_add(b,n)ds_list_add(d,o)ds_list_add(e,p)}
if(string_char_at(m,1)=="v" && string_char_at(m,2)=="n"){m=string_delete(m,1,string_pos(" ",m))q=real(string_copy(m,1,string_pos(" ",m)))m=string_delete(m,1,string_pos(" ",m))r=real(string_copy(m,1,string_pos(" ",m)))m=string_delete(m,1,string_pos(" ",m))s=real(string_copy(m,1,string_length(m)))ds_list_add(f,q)ds_list_add(g,r)ds_list_add(h,s)}
if(string_char_at(m,1)=="v" && string_char_at(m,2)=="t"){m=string_delete(m,1,string_pos(" ",m))t=real(string_copy(m,1,string_pos(" ",m)))m=string_delete(m,1,string_pos(" ",m))u=real(string_copy(m,1,string_length(m)))ds_list_add(i,t)ds_list_add(j,u)}
if(string_char_at(m,1)=="f" && string_char_at(m,2)==" "){m=string_replace_all(m,"  "," ")m=string_delete(m,1,string_pos(" ",m))if(string_char_at(m,string_length(m))==" ")m=string_copy(m,0,string_length(m)-1)v=string_count(" ",m)w=1;A[0]=0;
for(H=0;H<v;H+=1){f=string_copy(m,1,string_pos(" ",m))m=string_delete(m,1,string_pos(" ",m))A[w]=f;w++}
f=string_copy(m,1,string_length(m))A[w]=f;if(w==3){K=A[2];J=A[3];I=A[1];ds_list_add(k,K)ds_list_add(k,J)ds_list_add(k,I)}else{K=A[2];J=A[3];I=A[1];ds_list_add(k,K)ds_list_add(k,J)ds_list_add(k,I)
for(t=0;t<w-3;t+=1){K=A[4+t];J=A[1];I=A[3+t];ds_list_add(k,K)ds_list_add(k,J)ds_list_add(k,I)}}}file_text_readln(l)}file_text_close(l)
B=d3d_model_create()C=0;d3d_model_primitive_begin(B,pr_trianglelist)for(H=0;H<ds_list_size(k)H++){F=ds_list_find_value(k,H)if(string_count("/",F)==0){G=F;D=-1;E=-1}
if(string_count("/",F)==1){G=string_copy(F,1,string_pos("/",F)-1)F=string_delete(F,1,string_pos("/",F))D=string_copy(F,1,string_length(F))E=-1}
if(string_count("/",F)==2 && string_count("//",F)==0){G=string_copy(F,1,string_pos("/",F)-1)F=string_delete(F,1,string_pos("/",F))D=string_copy(F,1,string_pos("/",F)-1)F=string_delete(F,1,string_pos("/",F))E=string_copy(F,1,string_length(F))}
if(string_count("/",F)==2 && string_count("//",F)==1){F=string_replace(F,"//","/")G=string_copy(F,1,string_pos("/",F)-1)F=string_delete(F,1,string_pos("/",F))D=-1;E=string_copy(F,1,string_length(F))}
n=ds_list_find_value(b,floor(real(G)))o=ds_list_find_value(d,floor(real(G)))p=ds_list_find_value(e,floor(real(G)))
if(floor(real(E))!=-1 && ds_list_size(f)>=1){q=b*ds_list_find_value(f,floor(real(E)))r=b*ds_list_find_value(g,floor(real(E)))s=b*ds_list_find_value(h,floor(real(E)))}else{q=0;r=0;s=0;}
if(floor(real(D))!=-1 && ds_list_size(i)>=1){t=ds_list_find_value(i,floor(real(D)))u=ds_list_find_value(j,floor(real(D)))}else{t=0;u=0;}
d3d_model_vertex_normal_texture(B,n,o,p,q,r,s,t,u)C+=1;if(C==999){C=0;d3d_model_primitive_end(B)d3d_model_primitive_begin(B,pr_trianglelist)}}d3d_model_primitive_end(B)
ds_list_destroy(d)ds_list_destroy(e)ds_list_destroy(f)ds_list_destroy(g)ds_list_destroy(h)ds_list_destroy(i)ds_list_destroy(j)ds_list_destroy(k)
return B;


LoadWaveFront: