Sorry your browser is not supported!

In this game, the point is to fix codes.
The codes must be complete and when fixed, work in DBP.
You must know the solution to your code before you post it.
Also you must explain briefly what your code is ment to do.
When you reply, you must post either "I give up." or the solution to the person who posted before you's code, then your code.
After you post, the person above you must post the solution for thier code.

I'll start:

Ment to print random numbers but won't compile.

randomise timer()
do
print "Random number: "+str(rnd(1000))
wait key
loop

Back to top

Profile PM Email Website

OSX Using Happy Dude

21

Years of Service

User Offline

Joined: 21st Aug 2003

Location: At home

Posted: 24th Aug 2004 06:39

I do think we have enough 'games' going around, so I dont think we need any more.

Anyway, the code should be :

randomize timer()
do
print "Random number: "+str$(rnd(1000))
wait key
loop

Come to the UK Convention on the 23rd & 24th of October

Back to top

Profile PM Email Website

bitJericho

21

Years of Service

User Offline

Joined: 9th Oct 2002

Location: United States

Posted: 24th Aug 2004 06:47 Edited at: 24th Aug 2004 06:47

FOR myObj = 1 TO 5
   MAKE OBJECT CUBE myObj, 5
   MAKE OBJECT CUBE myObj+1, 5
NEXT myObj

should make 10 boxes, compiles, but crashes with an error.

Back to top

Profile PM Email Website

zircher

21

Years of Service

User Offline

Joined: 27th Dec 2002

Location: Oklahoma

Posted: 24th Aug 2004 07:23 Edited at: 24th Aug 2004 07:25

FOR myObj = 1 TO 10 step 2
   MAKE OBJECT CUBE myObj, 5
   MAKE OBJECT CUBE myObj+1, 5
NEXT myObj

As games go, it is possible for some folks to learn something as they go along. So, it has more merit than some of the others. One idea might be to snag problems from the DBP or new comers list. Thus, they get a solution as you show off your code skills.
--
TAZ

"Do you think it is wise to provoke him?" "It's what I do." -- Stargate SG-1

Back to top

Profile PM Email Website

bitJericho

21

Years of Service

User Offline

Joined: 9th Oct 2002

Location: United States

Posted: 24th Aug 2004 07:24

i think the point was to create another buggy piece of code

Back to top

Profile PM Email Website

Benjamin

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: France

Posted: 24th Aug 2004 07:41 Edited at: 24th Aug 2004 07:42

Code doesnt work:

make mmorpg 1,99999,"L33t MMORPG!"

Should make l33t MMORPG, but it simply doesnt reckognise the command

Back to top

Profile PM Email

eat much pie

20

Years of Service

User Offline

Joined: 9th Apr 2004

Location: Within the mind of a lowly mortal...

Posted: 24th Aug 2004 07:45

This should work


null = make mmorpg (1,99999,"L33t MMORPG!")

[href]Checkpoint Router[/href]: My AI Routing Program
Sam Wright

Back to top

Profile PM Email Website

Teh Go0rfmeister

21

Years of Service

User Offline

Joined: 17th Aug 2003

Location:

Posted: 24th Aug 2004 07:54

lol someone should make this into a propper puzzle game exe, it'd help noob how to learn the software that made it.

although, im startin to think this thread was made as a new way of getting ppl to fix his code for him, but new that if he didnt add the game aspect, no one would have bothered as much. etc.

Back to top

Profile PM Website

Ilya

21

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 24th Aug 2004 08:30

No I just created it out of bordem.
And I made that code up(and I ment for it to have 2 errors).

Back to top

Profile PM Email Website

Teh Go0rfmeister

21

Years of Service

User Offline

Joined: 17th Aug 2003

Location:

Posted: 24th Aug 2004 09:06 Edited at: 24th Aug 2004 09:06

just joshin dude.

btw i dont c difference btween u code and te corrected code

Back to top

Profile PM Website

Ilya

21

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 24th Aug 2004 09:08

misspellings in randomize and str$.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 24th Aug 2004 09:31

print "hello"+42

code wont compile

I used to have to hand write pascal code for tests. No compiler to check for erros, so this is a piece of cake.

"eureka" - Archimedes

Back to top

Profile PM Email Website

Ilya

21

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 24th Aug 2004 09:53

print "hello"+str$(42)

Back to top

Profile PM Email Website

GothOtaku

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location: Amherst, MA, USA

Posted: 25th Aug 2004 03:47

Here's a harder one. There's 10 errors. Some are logic errors but are easy enough to pick out.

do:x=15
if x=5 then
   print "X ="+str$(y)
   goto end
else
   print X ="+str$(x)
   x=x-1
endif
loop

end:
print "Finishing..."
s$=last()
print s
suspend for key
end

function last(x)
   randomize timer()
   exit function str(rnd(1000))
end function

Back to top

Profile PM Email

teh game wiz

20

Years of Service

User Offline

Joined: 24th Feb 2004

Location: EWS

Posted: 25th Aug 2004 03:57

http://www.elliot-dickerson.co.uk

x=15
do
if x=5
   print "X ="+str$(x)
   goto enda
else
   print "X ="+str$(x)
   x=x-1
endif
loop

enda:
print "Finishing..."
s$=last()
print s$
suspend for key
end

function last()
   randomize timer()
   return$ = str$(rnd(1000))
endfunction return$

i think thats what it was ment to do.

Back to top

Profile PM Email Website

GothOtaku

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location: Amherst, MA, USA

Posted: 25th Aug 2004 04:01

Yep, pretty that's pretty much what it is.

Back to top

Profile PM Email

Teh Go0rfmeister

21

Years of Service

User Offline

Joined: 17th Aug 2003

Location:

Posted: 25th Aug 2004 04:04

Quote: "goto end"

Quote: "end:"

replace end with "final" or "finish" or something

Quote: "do:x=15"

should be:

Quote: "x=15:do"

Quote: "print "X ="+str$(x)"

instead of:

Quote: "print X ="+str$(x)"

Quote: "if x=5 then"

"then" shouldn't be there.

Quote: "exit function"

that command doesn't even exist

actually, that functions pretty confusing as what u want it to do.

Quote: "print s"

should be a string, not integer, so S should be S$

Quote: "s$=last()"

shouldnt there be SOMETHING in the brackets. not sure what tho.

Back to top

Profile PM Website

Teh Go0rfmeister

21

Years of Service

User Offline

Joined: 17th Aug 2003

Location:

Posted: 25th Aug 2004 04:06 Edited at: 25th Aug 2004 04:30

do
if x=5
   print "X ="+str$(y)
   goto final
else
   print "X ="+str$(x)
   x=x-1
endif
loop

this would b more efficient:

do
print "X ="+str$(y)
if x=5 then goto final else x=x-1
loop

i give up on the rest

input "difficulty level (3/5/8)?",difficulty

Type windows
objno
time
endtype

dim windows(difficulty) as windows

nexttime=timer()+1000

do
cls
for win = 1 to difficulty
 print "Window: ";windows(win).objno;"   time left: ";timer()-windows(win).time
if timer()=>nexttime+1000 and windows(win).objno=0
 nexttime=timer()+1000
 window=rnd(20)+1
 windows(win).objno=window
 windows(win).time=timer()
endif
 if timer()=windows(win).time+3000 then windows(win).objno=0
next win
loop

it SHOULD pick a random window that is closed, open it for 3 secs, then close it, and then wait another sec before another window opens in its place.

it SHOULDNT have the window open twice or more on the same occassion (u'll see what i mean when it compiles and runs) and the higher difficulty u use, the more you notice it.

Back to top

Profile PM Website

GothOtaku

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location: Amherst, MA, USA

Posted: 25th Aug 2004 04:09

Quote: "Quote: "exit function"
that command doesn't even exist
"

"exitfunction" does though...

As for the x in the function declaration that's a typo because it's not used in the function or alternately the line should be "s$=last(x)".

Back to top

Profile PM Email

David T

Retired Moderator

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 25th Aug 2004 08:52

Amazing the way people try to attract attention to their coding problems.

There's a forum for this!

And we don't need anymore games!!!

Get 15 new commands, all the date / time commands left out of DBPro for free!
DOWNLOAD PLUGINS HERE: http://www.davidtattersall.me.uk/ and select "DarkBasic"

Back to top

Profile PM Email Website

Teh Go0rfmeister

21

Years of Service

User Offline

Joined: 17th Aug 2003

Location:

Posted: 25th Aug 2004 20:06

*guilty as charged*

Back to top

Profile PM Website

Killswitch

21

Years of Service

User Offline

Joined: 2nd Oct 2002

Location: School damnit!! Let me go!! PLEASE!!!

Posted: 27th Aug 2004 00:31

Maybe there could be a game forum?

~It's a common mistake to make, the rules of the English langauge do not apply to insanity~

Back to top

Profile PM Email

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 27th Aug 2004 00:46

Then we could make this kind of game :

Quote: "
General Talk / Game: Gimme da codez
"

Quote: "
The game goes like this :
I ask the next poster to code something and he can ask the following poster to code something.

Example :
I ask :
"How can I make a cube ?"
Answer from the next poster :
"Make object cube 1,1
How can I make a cone"

Now I start :
How can I send a message from one computer to the other, in a way that the reciever can read it ?
"

That would be amazing.

- Mind the gap -

Back to top

Profile PM Email Website

Trowbee

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: United Kingdom

Posted: 27th Aug 2004 04:00

Going back to what Jerico2day typed:

FOR myObj = 1 TO 5
   MAKE OBJECT CUBE myObj, 5
   MAKE OBJECT CUBE myObj+1, 5
NEXT myObj

If you look closely, you can see how it won't work.

The first loop of myObj (when its 1) will work, because you:
- Make object #1
- Make object #2 (1+1)

Then, myObj is incremented to 2, so DBPro then see's:
- Make object #2
- Make object #3

Now, object #2 already exists, as you made it the pass before, so it exits.

If you use the following code, it will work.
FOR myObj = 1 TO 5
MAKE OBJECT CUBE myObj, 5
MAKE OBJECT CUBE myObj+5, 5
NEXT myObj

Back to top

Profile PM

Hell Dragonz43

20

Years of Service

User Offline

Joined: 27th Jul 2004

Location: at home or at work

Posted: 27th Aug 2004 04:05

Okok... We have to make this orginized. Someone answers then someone posts another one. What i mean is its sorta gettting confusing : /

www.freewebs.com/mycomputergames

Back to top

Profile PM Website

Ilya

21

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 27th Aug 2004 06:04

It was ment that you post the answer to the above post and a code you want the answer to in the same post.

Back to top

Profile PM Email Website

Hell Dragonz43

20

Years of Service

User Offline

Joined: 27th Jul 2004

Location: at home or at work

Posted: 27th Aug 2004 06:58 Edited at: 27th Aug 2004 07:00

Yes, exacly.

WOA, my mouse just moved by its self... Um, that BETTER have been a computer glitch... Uh oh.

Heres one:
What is wrong with this?

Print "Welcome! Press any key to start!"
Wait For Key
Wait 1000
Print "Loading..."
Text "Ok, you started."
Do
Loop

www.freewebs.com/mycomputergames

Back to top

Profile PM Website

Trowbee

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: United Kingdom

Posted: 27th Aug 2004 07:18

Which wrong bit do you mean?

Wait For Key is Wait Key
[b]Text "Ok, you started."[b] is [b]Text 0,20,"Ok, you started."[b]

Back to top

Profile PM

Ilya

21

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 27th Aug 2004 08:00

And put loading before wait 1000 and add some cls.

Here's one

print Enter your password:
input password
if password=kbdsn then print It's Ok. else print Wrong!!:phonecall(911):wait 1000:end
print You passed da test.
wiat key
exit
print U hak0r! !!:phonecall(911):wait 1000:end

function phonecall(number)
load up modem 1
dial number
disconnect
endfiction

Won't compile.

Back to top

Profile PM Email Website

RougeCat

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Xdrome

Posted: 27th Aug 2004 16:04

Must be

input "Enter your password:",password$
if password$="kbdsn" 
   print "It's Ok."
   print "You passed da test."
   wait key
else 
   print "Wrong!!U hak0r!!!"
   phonecall(911)
   wait 1000
endif
exit

do:loop

function phonecall(number AS integer)
set net connection 1,number
endfiction

Guess this must do it.

Back to top

Profile PM Email

Ilya

21

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 28th Aug 2004 05:38

Ok but

input "Enter your password:",password$
if password$="kbdsn" 
   print "It's Ok."
   print "You passed da test."
   wait key
else 
   print "Wrong!!U hak0r!!!"
   phonecall(911)
   wait 1000
   end
endif
end
print "U hak0r!!!":phonecall(911):wait 1000:end

function phonecall(number AS integer)
set net connection 1,number
endfiction

Back to top

Profile PM Email Website

RougeCat

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Xdrome

Posted: 28th Aug 2004 14:59

Oh ok! I missed that statement out. Rightoo! Fix this!

make matrix 1,20,20,1,1

set spot light 1,30,60
position light 1,10,50,10
set light range 1,100

position camera 10,10,-10

This code just wont compile.

Back to top

Profile PM Email

Ilya

21

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 29th Aug 2004 02:17

make matrix 1,20,20,1,1
make light 1
set spot light 1,30,60
position light 1,10,50,10
set light range 1,100

position camera 10,10,-10
do
loop

Get errors(ment to move the camera around and print collision if it collides with the box)

make object  box 1,6,6,6
set object collision to cubes 1,6
do
if objrct collision(1,0)=1 then |*rint"Collision!"
control camera with arrowkeys 0,6,6
loop

Back to top

Profile PM Email Website

RougeCat

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Xdrome

Posted: 30th Aug 2004 14:43

First heres the correction for the code i posted.

make matrix 1,20,20,[b]10,10[/b]
make light 1
set spot light 1,30,60
position light 1,10,50,10
[b]point light 1,0,10[/b]
set light range 1,100

position camera 10,10,-10
do
loop

N heres the solution to ur code