3ds to dbo converter view the converted file!!!

Author

Message

Darkbasic MADPSP

18

Years of Service

User Offline

Joined: 15th Jun 2005

Location: Uk

Posted: 6th Nov 2005 12:36 Edited at: 6th Nov 2005 13:06

Link

x to dbo converter view the converted file!!!

+ Code Snippet

input "Load:";filename$
load object filename$, 1
print "Converting..."
filename$ = Sep$(filename$)
save object filename$+".dbo",1
wait key
end
function Sep$(file$)
for a = len(file$) to 1 step -1
dig$ = mid$(file$,a)
if dig$ = "." then b = 1
if b = 0 then inc c
next a
msg$ = left$(file$,len(file$)-c-1)
endfunction msg$

Like the converter that comes with dbc but this a dbpro .x to .dbo

Desert conflict fps wip board

http://forum.thegamecreators.com/?m=forum_view&t=63878&b=8

Back to top

Profile PM Website

Darkbasic MADPSP

18

Years of Service

User Offline

Joined: 15th Jun 2005

Location: Uk

Posted: 6th Nov 2005 13:06

Link

opps sorry this is a .x to .dbo sorry again

Desert conflict fps wip board

http://forum.thegamecreators.com/?m=forum_view&t=63878&b=8

Back to top

Profile PM Website

blanky

19

Years of Service

User Offline

Joined: 3rd Aug 2004

Location: ./

Posted: 6th Nov 2005 20:43

Link

Quote: "The 20 Line Challenge
So you think you can code? Prove it! Write the best program you can in 20 lines of code or less. Read the rules post inside for info."

Sorry, but how is this difficult? The bulk of what you have done there could be performed in three lines.

Now, if it had a file browser, and a way to move around, zoom in, and rotate the object, then that would be pretty cool. Especially if it had a UI.

You're allowed 25 commands per line, and at a limit of 20 lines that gives you 500 commands you can do...

Back to top

Profile PM Email Website

Drew Cameron

20

Years of Service

User Offline

Joined: 30th Jan 2004

Location: Scotland

Posted: 7th Nov 2005 23:02

Link

What's the problem here Blanky?

The guys made a program. It's under 20 lines. What's wrong here?
Nothing.

Dumbo & Cool - 10.

Back to top

Profile PM Email Website

Flashing Blade

21

Years of Service

User Offline

Joined: 19th Oct 2002

Location: United Kingdom

Posted: 8th Nov 2005 00:54 Edited at: 8th Nov 2005 00:57

Link

Ditto what Drew said.

A tip:
instead of

+ Code Snippet

filename$ = Sep$(filename$)
save object filename$+".dbo",1

you could do

+ Code Snippet

save object Sep$(filename$)+".dbo",1

Also, in your function, you could use EXIT in your for/next loop once "." is found. This would exit the loop and a would hold the number of the position of "." so:

+ Code Snippet