DarkBASIC keeps freezing when I try to get this code to work. Help?

Author

Message

Computer Nerd

20

Years of Service

User Offline

Joined: 25th Jan 2005

Location: What do you care?

Posted: 19th Jan 2006 21:24

Link

+ Code Snippet

gosub edit
edit:
do
if imageview4 = 1
cls
for a = 1 to 3000
if sprite exist(a) = 1 then delete sprite a
next a
paste image imageid3,1,10
text 1,200,"P>aste Image"
text 1,300,"V>iew Another Image"
text 1,400,"B>ack to Editor"
if inkey$() = "p" or inkey$() = "P" then pasteimage = 1:imageview4 = 0
if inkey$() = "v" or inkey$() = "V" then imageview4 = 0:imageview1 = 1
if inkey$() = "b" or inkey$() = "B" then imageview4 = 0:cls:gosub redo
endif
loop

redo:
cls 
imageview4 = 0 
gosub edit

Or if I do the same thing and replace redo with edit it crashes. Why this is making me mad.

l00kz h3r3 pplz vistez de game developer w3bs1te likez t0d8y @ http://gamedeveloper1.tripod.com 0r likez visitez da game d3v3l0per thread nowz ppl.

Back to top

Profile PM

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 19th Jan 2006 22:05 Edited at: 19th Jan 2006 22:06

Link

You need to add a sync right before the loop command. This happens when you have it on sync on, and then you make a do-loop without a sync. Also, what's with the:

+ Code Snippet

gosub edit
edit:

You can get rid of the gosub edit, because it will go there anyway...
If you are making edit a gosub, then change the last line, gosub edit to return. Then move the first gosub edit to where you want the gosub to be called.

Hippopotomonstrosesquippedaliophobia-Fear of long words

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 19th Jan 2006 22:19 Edited at: 19th Jan 2006 22:21

Link

It's probably because you have "gosub" after "gosub" with no "return" anywhere.

Here's what your code is doing:

+ Code Snippet

gosub edit <-(at the top)

The next two lines repeat forever...
 gosub redo <-(when it sees B)
 gosub edit <-(in redo)

It needs to be like this:

+ Code Snippet

gosub edit <-(at the top)
return <-(when it sees B)

Also you can get rid of the need to check for a lowercase letter by using the "upper$()" command.

This is your code snip (edited to work on it's own with changes):

+ Code Snippet

randomize timer()

imageview4=1
imageid3=1
MaxImage=20

` Make and get images
for t1=1 to MaxImage
 ink rgb(rnd(255),rnd(255),rnd(255)),0
 for t2=1 to 100
  dot rnd(100),rnd(100)
 next t2
 get image t1,0,0,100,100,1
next t1
ink rgb(255,255,255),0

` Main Loop
do
 gosub edit
loop


edit:
tim=timer()
do
 cls
 if imageview4=1
  for a = 1 to 3000
   if sprite exist(a) = 1 then delete sprite a
  next a
  paste image imageid3,1,10
 endif
 text 1,120,"Image Number = "+str$(imageid3)
 text 1,200,"P>aste Image"
 text 1,300,"V>iew Another Image"
 text 1,400,"B>ack to Editor" 

 a$=inkey$():a$=upper$(a$)
 
 if a$<>"" and timer()>tim+100
  tim=timer()
  
  if a$ = "P"
   imageview4 = 0
   paste image imageid3,300,300
   wait 100
  endif
 
  if a$ = "V"
   imageview4 = 1:imageview1 = 1
   inc imageid3
   if imageid3>MaxImage then imageid3=1
  endif
 
  if a$ = "B"
   imageview4=0
   return
  endif
 endif
loop

Edit: UFO beat me.