Dim command problems - GameCreators Forum

Author

Message

Murdock743

21

Years of Service

User Offline

Joined: 4th Mar 2003

Location:

Posted: 13th Aug 2003 03:11

Link

Could anyone tell me what is wrong here I have not figued it out. it said it couldnt see the command online two.

Cheers,
Christian

+ Code Snippet

dim good_responces$(8)

good_responces$(1) "That's always good"
good_responces$(2) "That sure makes one of us!"
good_responces$(3) "That is outstanding!!!"
good_responces$(4) "I am really happy for you because I'm in a good one too!"
good_responces$(5) "I'm a computer what AM I talking about?"
good_responces$(6) "Good for you"
good_responces$(7) "Better than being mad I guess"
good_responces$(8) " just because I can say stuff does not mean you dont need to update me!!!"

print good_responces$(rnd(8)

Back to top

Profile PM

Trowbee

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: United Kingdom

Posted: 13th Aug 2003 03:39

Link

Dunno if its a typo, but the last line should be:

print good_responces$(rnd(8))

Back to top

Profile PM

Murdock743

21

Years of Service

User Offline

Joined: 4th Mar 2003

Location:

Posted: 13th Aug 2003 03:44

Link

Would it help if I said it was DBP and not dark basic.
Cheers,
Christian

Back to top

Profile PM

Easily Confused

21

Years of Service

User Offline

Joined: 22nd Oct 2002

Location: U.K. Earth. (turn right at Venus)

Posted: 13th Aug 2003 04:00

Link

Yes there is that typo, but you have forgotten your your = signs?

+ Code Snippet

dim good_responces$(8)

good_responces$(1) = "That's always good"
good_responces$(2) = "That sure makes one of us!"
good_responces$(3) = "That is outstanding!!!"
good_responces$(4) = "I am really happy for you because I'm in a good one too!"
good_responces$(5) = "I'm a computer what AM I talking about?"
good_responces$(6) = "Good for you"
good_responces$(7) = "Better than being mad I guess"
good_responces$(8) = " just because I can say stuff does not mean you dont need to update me!!!"

print good_responces$(rnd(8))
wait key : end

Programming anything is an art, and you can't rush art.
Unless your name is Bob Ross, then you can do it in thirty minutes.

Back to top

Profile PM

Murdock743

21

Years of Service

User Offline

Joined: 4th Mar 2003

Location:

Posted: 16th Aug 2003 00:13

Link

Thanks a bunch didnt see that.
Cheers,
Christian

Back to top

Profile PM

Murdock743

21

Years of Service

User Offline

Joined: 4th Mar 2003

Location:

Posted: 16th Aug 2003 00:45

Link

okay new problem it wont change responces yes I know the sync commands are not needed its the only way i can get it to say something other than: sorry to hear that.
Cheers,
Christian

+ Code Snippet

Rem Project: start up thingy
Rem Created: 8/12/03 7:02:38 PM

Rem ***** Main Source File *****
rem startup of prog.
sync on
do
sync
input "Hello Christian, how are you today?"; user_responce$
if user_responce$=good_responce$ then gosub good_responces
if user_responce$=bad_responce$ then gosub bad_responce
good_responce$= "good"
bad_responce$= "bad"
loop

bad_responce:
print "sorry to hear that"
wait key : end
return

good_responces:
dim good_responces$(8)

good_responces$(1) = "That's always good"
good_responces$(2) = "That sure makes one of us!"
good_responces$(3) = "That is outstanding!!!"
good_responces$(4) = "I am really happy for you because I'm in a good one too!"
good_responces$(5) = "I'm a computer what AM I talking about?"
good_responces$(6) = "Good for you"
good_responces$(7) = "Better than being mad I guess"
good_responces$(8) = " just because I can say stuff does not mean you dont need to update me!!!"

print good_responces$(rnd(8))
wait key : end
return

Back to top

Profile PM

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 16th Aug 2003 00:52

Link

Put RANDOMIZE TIMER() at top of program. This makes series of random numbers different every time you run.

The two lines you define the good and bad words should go before where you test them, preferably before the 'do' command.

rnd(8) gives a range 0-8. Change to rnd(7)+1 to give range of 1-8

The programmer formerly known as sonic

Back to top

Profile PM Website

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 16th Aug 2003 00:55

Link

Try this:

+ Code Snippet

Rem Project: start up thingy
Rem Created: 8/12/03 7:02:38 PM

Rem ***** Main Source File *****
rem startup of prog.

randomize timer()
sync on

dim good_responces$(8)
good_responces$(1) = "That's always good"
good_responces$(2) = "That sure makes one of us!"
good_responces$(3) = "That is outstanding!!!"
good_responces$(4) = "I am really happy for you because I'm in a good one too!"
good_responces$(5) = "I'm a computer what AM I talking about?"
good_responces$(6) = "Good for you"
good_responces$(7) = "Better than being mad I guess"
good_responces$(8) = " just because I can say stuff does not mean you dont need to update me!!!"

good_responce$= "good"
bad_responce$= "bad"

do
   input "Hello Christian, how are you today?"; user_responce$
   if user_responce$=good_responce$ then gosub good_responces
   if user_responce$=bad_responce$ then gosub bad_responce
loop

bad_responce:
print "sorry to hear that"
return

good_responces:
print good_responces$(rnd(7)+1)
return

The programmer formerly known as sonic

Back to top

Profile PM Website

Murdock743

21

Years of Service

User Offline

Joined: 4th Mar 2003

Location:

Posted: 16th Aug 2003 01:02

Link

Thank you so very much now it works!!!
Cheers,
Christian

Back to top

Profile PM

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 16th Aug 2003 01:16

Link

Naturally!

The programmer formerly known as sonic

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Dim command problems