#100013 Command line out of place at line 87

Author

Message

DWman

20

Years of Service

User Offline

Joined: 23rd Jun 2004

Location:

Posted: 23rd Jun 2004 20:51

Link

Here is the code for a simple program i created (i started Dark BASIC about 3 days ago!)

I recieve this error when trying to run it:

#100013 Command line out of place at line 87

It is referring to the LOOP command at the end of the code.
Any ideas?
Thanks...

Dave W

Back to top

Profile PM Email

n00b

20

Years of Service

User Offline

Joined: 22nd Jun 2004

Location: tampa,FL

Posted: 23rd Jun 2004 21:26

Link

im kind of a noob but ill take a look at it i think i already see the problem but ill look at it.

i will...WIN!

Back to top

Profile PM Email Website

DWman

20

Years of Service

User Offline

Joined: 23rd Jun 2004

Location:

Posted: 23rd Jun 2004 21:34

Link

Thanks
I owe you one
I doubt i can help you with dark BASIC, but, i still owe you one
Thanks again

Dave W

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 24th Jun 2004 08:15

Link

The error I think you're getting is a reply to the line;
B=2A
Which is formatted incorrectly for "Here is the number you entered doubled."
The correct line should be;
B = 2*A
the asterisk being Multiply. Programming is not like math class, you must include the operations between the values.
X=ABC is wrong, X = A*B*C is right...

s.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Bean

20

Years of Service

User Offline

Joined: 23rd Mar 2004

Location: Flower Mound Texas

Posted: 24th Jun 2004 10:35

Link

Look at the attached code. I got it to work for you but it's not very pretty. You will still have plenty of work formatting etc.
Sandrad was totally correct about the math variable. B=2A sould be B=2*A.
To get the program to run I removed all the embedded IF statements in your code. Just compare with your original to see where this was done. I'll leave it as an exercise for you to find out why it wasn't working!
Additionally, you had the variable GamesPlayed misspelled toward the bottom of your code. Good luck !

Back to top

Profile PM Email

DWman

20

Years of Service

User Offline

Joined: 23rd Jun 2004

Location:

Posted: 25th Jun 2004 14:46

Link

Thanks for helping me, i understand what i was doing wrong. Thanks alot. I have one more problem relating to new things i am trying. The command load bitmap"..." gives me an error. Do you know what this could be? do i need some other commands to get it to load?

Dave W

Back to top

Profile PM Email

DWman

20

Years of Service

User Offline

Joined: 23rd Jun 2004

Location:

Posted: 25th Jun 2004 14:51

Link

My next project is naughts and crosses! I can do it all, but struggle on AI. Can you recommend a good tutrorial and any other tutorials that helped you become a programming genius (that is called sucking up!!!!!) Thanks alot for giving your time to help me out....

Dave W

Back to top

Profile PM Email

Bean

20

Years of Service

User Offline

Joined: 23rd Mar 2004

Location: Flower Mound Texas

Posted: 25th Jun 2004 23:29 Edited at: 25th Jun 2004 23:37

Link

It would be helpful to know exactly what the error is to help with any kind of diagnosis. Try to place a bit of code in your post to see what is going on and maybe cut and paste the error message also.

One bit of advice - when an error is trapped, the line number given is usually not correct. It's the error message that you will have to track down.

There are several tutorials on these forums that will be quite useful to you. Just do a search for 'tutorials' and I feel confident that you will find plenty to keep you busy. There are quite a few good programmers that will bend over backwards to help you out - like CattleRustler, Scouseknight, Zenassem, Emperor Baal, SandraD, Raven etc. etc. etc.
The forums will be your best friend - just treat them with respect and they will help you out.
take care -

Back to top

Profile PM Email

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 26th Jun 2004 00:17 Edited at: 26th Jun 2004 00:18

Link

bean, thanks but please dont forget IanM,TCA,ApexNow,VanB and Exeat - and others!

Edit: Mentor too!

* DBP_NETLIB_v1.4 - w/VARIABLE WATCHER & CONSOLE! * Click Logo

Back to top

Profile PM

Bean

20

Years of Service

User Offline

Joined: 23rd Mar 2004

Location: Flower Mound Texas

Posted: 26th Jun 2004 00:43

Link

Absolutely !!

Back to top

Profile PM Email

DWman

20

Years of Service

User Offline

Joined: 23rd Jun 2004

Location:

Posted: 27th Jun 2004 21:32

Link

Hey, its me again
I am currently trying to write my first (remotely interesting) program -Naughts and Crosses. I have decided to forget AI for the moment and decided that ill be the AI (so ill decide where the computer goes) Here is some code of it:
If you run it and click on a square in the grid, the circle stays there only while the left button is pressed, how can i make it stay there?
Thanks

Dave W

Back to top

Profile PM Email

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 27th Jun 2004 22:40

Link

It want stay because you are using CLS every time your program loops. Doesn't DBC have sync commands? If not you could do something like this...

SET DISPLAY MODE 800,600,16
CLS RGB(255,255,255)
INK RGB(0,0,0), RGB(255,255,255)
SET TEXT FONT "Ravie"
SET TEXT SIZE 36
TEXT 75,100, "Start 0's and X's? (Press Any Key to Continue)"
TopLeftCircle = 0
MidLeftCircle = 0
BotLeftCircle = 0
TopMidCircle = 0
MidMidCircle = 0
BotMidCircle = 0
TopRightCircle = 0
MidRightCircle = 0
BotRightCircle = 0
REPEAT
 I$=Inkey$()
UNTIL I$<>""
DO
Start1:
CLS RGB(10,10,10)
INK RGB(0,0,0),0
BOX 250,150,350,250
BOX 350,150,450,250
BOX 450,150,550,250
BOX 250,250,350,350
BOX 350,250,450,350
BOX 450,250,550,350
BOX 250,350,350,450
BOX 350,350,450,450
BOX 450,350,550,450
INK RGB(255,255,255), RGB(10,10,10)
LINE 250,250,550,250
LINE 250,350,550,350
LINE 350,150,350,450
LINE 450,150,450,450
INK RGB(255,255,255),0
BOX 50,250,150,350
BOX 650,250,750,350
BOX 250,50,550,75
INK RGB(255,0,0),0
LINE 250,50,550,50
LINE 250,75,550,75
LINE 250,50,250,75
LINE 550,50,550,75
LINE 50,250,150,250
LINE 50,350,150,350
LINE 50,250,50,350
LINE 150,250,150,350
LINE 650,250,750,250
LINE 650,350,750,350
LINE 650,250,650,350
LINE 750,250,750,350
LINE 250,150,550,150
LINE 250,450,550,450
LINE 550,150,550,450
LINE 250,150,250,450
LINE 5,5,795,5  ;rem across line
LINE 5,595,795,595  ;rem across line
LINE 5,5,5,595  ;rem down line
LINE 795,5,795,595  ;rem down line
INK RGB(255,255,255),0
SET TEXT OPAQUE
SET TEXT SIZE 18
TEXT 310,53, "Naughts's and Crosses's"
TEXT 60,290, "Start Again"
TEXT 685,290, "Quit"
IF MouseX()>50 and MouseY()>250 and MouseX()<150 and MouseY()<350
  If MouseClick()=1
	TopLeftCircle = 0
	MidLeftCircle = 0
	BotLeftCircle = 0
	TopMidCircle = 0
	MidMidCircle = 0
	BotMidCircle = 0
	TopRightCircle = 0
	MidRightCircle = 0
	BotRightCircle = 0
   GOTO Start1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>650 and MouseY()>250 and MouseX()<750 and MouseY()<350
  If MouseClick()=1
   END
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>250 and MouseY()>150 and MouseX()<350 and MouseY()<250
  If MouseClick()=1
  TopLeftCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>350 and MouseY()>150 and MouseX()<450 and MouseY()<250
  If MouseClick()=1
  MidLeftCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>450 and MouseY()>150 and MouseX()<550 and MouseY()<250
  If MouseClick()=1
  BotLeftCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>250 and MouseY()>250 and MouseX()<350 and MouseY()<350
  If MouseClick()=1
  TopMidCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>350 and MouseY()>250 and MouseX()<450 and MouseY()<350
  If MouseClick()=1
  MidMidCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>450 and MouseY()>250 and MouseX()<550 and MouseY()<350
  If MouseClick()=1
  BotMidCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>250 and MouseY()>350 and MouseX()<350 and MouseY()<450
  If MouseClick()=1
  TopRightCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>350 and MouseY()>350 and MouseX()<450 and MouseY()<450
  If MouseClick()=1
  MidRightCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>450 and MouseY()>350 and MouseX()<550 and MouseY()<450
  If MouseClick()=1
  BotRightCircle = 1
  Else
  EndIf
ELSE
ENDIF

If TopLeftCircle = 1
	CIRCLE 300,200,40
endif

If MidLeftCircle = 1
	CIRCLE 400,200,40
endif

If BotLeftCircle = 1
	CIRCLE 500,200,40
endif

If TopMidCircle = 1
	CIRCLE 300,300,40
endif

If MidMidCircle = 1
	CIRCLE 400,300,40
endif

If BotMidCircle = 1
	CIRCLE 500,300,40
endif

If TopRightCircle = 1
	CIRCLE 300,400,40
endif

If MidRightCircle = 1
	CIRCLE 400,400,40
endif

If BotRightCircle = 1
	CIRCLE 500,400,40
endif

LOOP

+ Code Snippet

SET DISPLAY MODE 800,600,16
CLS RGB(255,255,255)
INK RGB(0,0,0), RGB(255,255,255)
SET TEXT FONT "Ravie"
SET TEXT SIZE 36
TEXT 75,100, "Start 0's and X's? (Press Any Key to Continue)"
TopLeftCircle = 0
MidLeftCircle = 0
BotLeftCircle = 0
TopMidCircle = 0
MidMidCircle = 0
BotMidCircle = 0
TopRightCircle = 0
MidRightCircle = 0
BotRightCircle = 0
REPEAT
 I$=Inkey$()
UNTIL I$<>""
DO
Start1:
CLS RGB(10,10,10)
INK RGB(0,0,0),0
BOX 250,150,350,250
BOX 350,150,450,250
BOX 450,150,550,250
BOX 250,250,350,350
BOX 350,250,450,350
BOX 450,250,550,350
BOX 250,350,350,450
BOX 350,350,450,450
BOX 450,350,550,450
INK RGB(255,255,255), RGB(10,10,10)
LINE 250,250,550,250
LINE 250,350,550,350
LINE 350,150,350,450
LINE 450,150,450,450
INK RGB(255,255,255),0
BOX 50,250,150,350
BOX 650,250,750,350
BOX 250,50,550,75
INK RGB(255,0,0),0
LINE 250,50,550,50
LINE 250,75,550,75
LINE 250,50,250,75
LINE 550,50,550,75
LINE 50,250,150,250
LINE 50,350,150,350
LINE 50,250,50,350
LINE 150,250,150,350
LINE 650,250,750,250
LINE 650,350,750,350
LINE 650,250,650,350
LINE 750,250,750,350
LINE 250,150,550,150
LINE 250,450,550,450
LINE 550,150,550,450
LINE 250,150,250,450
LINE 5,5,795,5  ;rem across line
LINE 5,595,795,595  ;rem across line
LINE 5,5,5,595  ;rem down line
LINE 795,5,795,595  ;rem down line
INK RGB(255,255,255),0
SET TEXT OPAQUE
SET TEXT SIZE 18
TEXT 310,53, "Naughts's and Crosses's"
TEXT 60,290, "Start Again"
TEXT 685,290, "Quit"
IF MouseX()>50 and MouseY()>250 and MouseX()<150 and MouseY()<350
  If MouseClick()=1
	TopLeftCircle = 0
	MidLeftCircle = 0
	BotLeftCircle = 0
	TopMidCircle = 0
	MidMidCircle = 0
	BotMidCircle = 0
	TopRightCircle = 0
	MidRightCircle = 0
	BotRightCircle = 0
   GOTO Start1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>650 and MouseY()>250 and MouseX()<750 and MouseY()<350
  If MouseClick()=1
   END
  Else
  EndIf
ELSE
ENDIF


IF MouseX()>250 and MouseY()>150 and MouseX()<350 and MouseY()<250
  If MouseClick()=1
  TopLeftCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>350 and MouseY()>150 and MouseX()<450 and MouseY()<250
  If MouseClick()=1
  MidLeftCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>450 and MouseY()>150 and MouseX()<550 and MouseY()<250
  If MouseClick()=1
  BotLeftCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>250 and MouseY()>250 and MouseX()<350 and MouseY()<350
  If MouseClick()=1
  TopMidCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>350 and MouseY()>250 and MouseX()<450 and MouseY()<350
  If MouseClick()=1
  MidMidCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>450 and MouseY()>250 and MouseX()<550 and MouseY()<350
  If MouseClick()=1
  BotMidCircle = 1
  Else
  EndIf
ELSE
ENDIF


IF MouseX()>250 and MouseY()>350 and MouseX()<350 and MouseY()<450
  If MouseClick()=1
  TopRightCircle = 1
  Else
  EndIf
ELSE
ENDIF


IF MouseX()>350 and MouseY()>350 and MouseX()<450 and MouseY()<450
  If MouseClick()=1
  MidRightCircle = 1
  Else
  EndIf
ELSE
ENDIF

IF MouseX()>450 and MouseY()>350 and MouseX()<550 and MouseY()<450
  If MouseClick()=1
  BotRightCircle = 1
  Else
  EndIf
ELSE
ENDIF

If TopLeftCircle = 1
	CIRCLE 300,200,40
endif

If MidLeftCircle = 1
	CIRCLE 400,200,40
endif

If BotLeftCircle = 1
	CIRCLE 500,200,40
endif

If TopMidCircle = 1
	CIRCLE 300,300,40
endif

If MidMidCircle = 1
	CIRCLE 400,300,40
endif

If BotMidCircle = 1
	CIRCLE 500,300,40
endif

If TopRightCircle = 1
	CIRCLE 300,400,40
endif

If MidRightCircle = 1
	CIRCLE 400,400,40
endif

If BotRightCircle = 1
	CIRCLE 500,400,40
endif

LOOP

Back to top

Profile PM Email

DWman

20

Years of Service

User Offline

Joined: 23rd Jun 2004

Location:

Posted: 30th Jun 2004 17:56

Link

Thanks 'Lost in thought', I've got it working using the idea ofwhat you said.
New Problem!
What is wrong with this command:

TEXT 270,502, "You have won ;GamesWon; times(s)"

I want to record how many times the player has won the game, using the variable GamesWon, but it just prints GamesWon instead of the number! Help please...

Dave W

Back to top

Profile PM Email

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 30th Jun 2004 21:56 Edited at: 30th Jun 2004 21:57

Link

TEXT 270,502, "You have won ";GamesWon;" times(s)"

or

TEXT 270,502, "You have won "+GamesWon+" times(s)"

if GamesOne is numeric you might want to get used to doing...

TEXT 270,502, "You have won ";str$(GamesWon);" times(s)"

although from what I hear the TEXT command implies the type conversion of numeric variables to string for printing. You can also do...

SET CURSOR 270,502
PRINT "You have won "+str$(GamesWon)+" times(s)"

* DBP_NETLIB_v1.4.3 - July, 2004 * Click Logo

Back to top

Profile PM

DWman

20

Years of Service

User Offline

Joined: 23rd Jun 2004

Location:

Posted: 1st Jul 2004 00:43

Link

Thanks, its working, i used the PRINT command that seemed to fix it!
Ill tell you any further problems (which im sure there will be!)
Thanks again........

Dave W

Back to top

Profile PM Email

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 1st Jul 2004 01:24

Link

no problem, if you notice, the original problem was that you were not wrapping your string-literals in quotes...

you had
"You have won ;GamesWon; times(s)"

but it needed to be
"You have won ";GamesWon;" times(s)"

sorry I didnt mention that before

* DBP_NETLIB_v1.4.3 - July, 2004 * Click Logo

Back to top

Profile PM

Neil19533

21

Years of Service

User Offline

Joined: 30th Aug 2003

Location: England

Posted: 2nd Jul 2004 20:37

Link

or instead of time(s) put an if statement

+ Code Snippet

If GamesWon=1
SET CURSOR 270,502
PRINT "You have won ";GamesWon;" time"
else
SET CURSOR 270,502
PRINT "You have won ";GamesWon;" times"
endif

Any spelling mistakes are totally In tensional.

Back to top

Profile PM Email

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 2nd Jul 2004 22:42

Link

probably only need SET CURSOR once, I believe.

* DBP_NETLIB_v1.4.3 - July, 2004 * Click Logo

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / #100013 Command line out of place at line 87