Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

The 20 Line Challenge / Wolf3D Clone

Author
Message
Angel
21
Years of Service
User Offline
Joined: 27th Jun 2003
Location: United States
Posted: 22nd Jul 2003 17:21
Link
sync on
For x = 1 to 5:Make object Plain x,1000,100:next x
for X = 2 to 3:yrotate object x,80:NEXT X
position object 2,-200,0,-370
position object 3,250,0,-370
position object 4,90,0,-860
position camera -50,0,-793
do
if upkey()=1 then move camera 10
if leftkey()=1 then a = wrapvalue(a-10)
if Rightkey()=1 then a = wrapvalue(a+10)
yrotate camera a
set cursor 1,1
print " Camera Position X: "+STR$(Camera Position X())
print " Camera Position Z: "+STR$(Camera Position Z())
set cursor 40,440
print "Wolf3D Style 3D Engine By: Dray"
print " For The 20 Line Contest"
sync
loop
` Dray232@Wmconnect.com
Wanna Go On A Data???
Back to top
Profile PM Email
adr
21
Years of Service
User Offline
Joined: 21st May 2003
Location: Job Centre
Posted: 22nd Jul 2003 17:55
Link
I don't actually have DarkBasic here at work to compile your proggy, but looking at it I can see it could do with a touch more work to be a real contender.

http://www.darkbasicpro.com/apollo/view.php?t=4770&b=11

How the hell Darthster did that I have no idea...

Bender:Blackmail’s such an ugly word. I prefer extortion. The x makes it sound cool.
Back to top
Profile PM Website
Angel
21
Years of Service
User Offline
Joined: 27th Jun 2003
Location: United States
Posted: 22nd Jul 2003 18:57
Link
What should I do?

Wanna Go On A Data???
Back to top
Profile PM Email
Back to top

Login to post a reply

Server time is: 2024-11-21 17:22:19
Your offset time is: 2024-11-21 17:22:19