export ASE to B3D

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

DareDevil

3 bug found
Bug 1: update ascii table (34 = ") - resolved jump
;===============================
;---------------------------
; Read string
;---------------------------
Function ReadStringN$(f,sep$)
s$ = "";
SepVal = Asc(sep$)
Simb1 = Asc(" ")
Simb2 = Asc("}")

While Not Eof(f)
let = ReadByte(f);

if (let = SepVal and s$ <> "")
return s
else
;if ((let >= Asc("!")) and (let <= Asc("}")))
if ((let >= Simb1) and (let <= Simb2) and (let <> SepVal) and (let <> 34)); the code 34 = " from ascii table
s$ = s$ + Chr(let)
else
if (s$ <> "") return s
end if
end if
Wend
End Function

Bug 2: Update name Texture = "pippo.bmp" is reader
Function EstractName$(str_nome$)
s$ = ""
lun = len(str_nome)-1
st = 0
;===>
For xc = lun To 1 Step -1
s = mid(str_nome,xc,1)
If ((s = "\") Or (xc=1))
st = xc +1
exit
end if
next
;===>
s$ = ""
for xc = st to lun+1
s$ = s$+mid(str_nome,xc,1)
next
;===>
return s$
;===>
end function
Bug 3:
not Support sub material object (3DSMax)

=================================
------------------------------
Thanks All for collaboration
VinsentX V&D Software
the my e-mail is enzo_light@...
------------------------------
=================================