apparently a bunch of nesting errors i don't know

Author

Message

Chief Voyager

23

Years of Service

User Offline

Joined: 20th Mar 2003

Location: United States

Posted: 9th Apr 2003 21:27

Link

i can't get this to work. i've got the exit commands there to break me out of the loops. i've been trying to get this menu to work. anyone see what i've done wrong?

function menu()

`bringing up the menu, the text is palatino or something like it
load image "menu1.bmp",1000
set current bitmap 0
draw to front
sprite 1,0,0,800
scale sprite 1,200
paste sprite 1,screen width()/4,screen height()/4

`loop for menu selections
do

`the exit game sequence
if escapekey() = 1 then gosub leave

`for windowed mode
if keystate(17) = 1 then gosub windowed

`to exit the menu
if keystate(59) = 1 then gosub noMenu

sync
loop

`subroutines for commands
leave:

hide sprite 1
   center text screen width()/2, screen height()/2,"Do you wish to exit (y/n)?"

do
      `if a "y" is entered
       if keystate(21) = 1 then end

`if a "n" was entered
       if keystate(49) = 1 then exit
   sync
   loop

return

windowed:

set window on
set window layout 1,1,1
set window position (screen width()/4),(screen height()/4)
set window title "Exile's Journey"
position mouse (screen width()/4),(screen height()/4)
hide mouse
exit
return

noMenu:

hide sprite 1
   delete sprite 1
   delete image 1000
   exit
return

endfunction menu

+ Code Snippet

function menu()

`bringing up the menu, the text is palatino or something like it
load image "menu1.bmp",1000
set current bitmap 0
draw to front
sprite 1,0,0,800
scale sprite 1,200
paste sprite 1,screen width()/4,screen height()/4

`loop for menu selections
do

`the exit game sequence
if escapekey() = 1 then gosub leave

`for windowed mode
if keystate(17) = 1 then gosub windowed

`to exit the menu
if keystate(59) = 1 then gosub noMenu

sync
loop

`subroutines for commands
leave:

hide sprite 1
   center text screen width()/2, screen height()/2,"Do you wish to exit (y/n)?"

   do
      `if a "y" is entered
       if keystate(21) = 1 then end

      `if a "n" was entered
       if keystate(49) = 1 then exit
   sync
   loop

return

windowed:

set window on
set window layout 1,1,1
set window position (screen width()/4),(screen height()/4)
set window title "Exile's Journey"
position mouse (screen width()/4),(screen height()/4)
hide mouse
exit
return

noMenu:

hide sprite 1
   delete sprite 1
   delete image 1000
   exit
return

endfunction menu

You're ate up like a soup sandwich.

Back to top

Profile PM Email

Easily Confused

23

Years of Service

User Offline

Joined: 22nd Oct 2002

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

Posted: 10th Apr 2003 02:52

Link

This is probably an obvious point, but I've noticed you're using:

if escapekey() = 1 then gosub leave

Have you used Disable Escapekey at the start of your program? This will prevent the program from quiting prematurely, I don't know if this is your problem

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

Chief Voyager

23

Years of Service

User Offline

Joined: 20th Mar 2003

Location: United States

Posted: 10th Apr 2003 03:00

Link

yeah, i already have disable esc key. my problem is that i seem to have a nesting problem, but i'm not sure where it's at. i need the exit commands because this is a function for a menu.

You're ate up like a soup sandwich.

Back to top

Profile PM Email

Easily Confused

23

Years of Service

User Offline

Joined: 22nd Oct 2002

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

Posted: 10th Apr 2003 04:12 Edited at: 10th Apr 2003 04:15

Link

OK, we've got that out of the way

First, the Load Image at the top is set at 1000 and the sprite is using image 800. I take it that is not correct.

Second, in the leave: subroutine, I noticed that when you press "n" the menu sprite would not re-appear so the user can select another option.

I'm also begining to suspect you may have confused Exit with Exitfunction in some places.

As I'm testing this in DBPro, Windowed mode doesn't work to well for me as you need to re-initailise the display in DBPro.

So after a little re-write (except the window mode), I hope this helps.

function menu()

`bringing up the menu, the text is palatino or something like it
load image "menu1.bmp",1000,1
set current bitmap 0
draw to front
sprite 1,0,0,1000
scale sprite 1,200
paste sprite 1,screen width()/4,screen height()/4

`loop for menu selections
do
  `the exit game sequence
  if escapekey() = 1 then gosub leave

`w for windowed mode
  if keystate(17) = 1 then gosub windowed

`f1 to exit the menu
  if keystate(59) = 1
    gosub noMenu
    exitfunction
  endif

sync
loop

`subroutines for commands
leave:
  hide sprite 1
  center text screen width()/2, screen height()/2,"Do you wish to exit (y/n)?"
  sync

do
    `if a "y" is entered
     if keystate(21) = 1 then end

`if a "n" was entered
     if keystate(49) = 1
       show sprite 1
       return
     endif

loop
  return

windowed:
  set window on
  set window layout 1,1,1
  set window position (screen width()/4),(screen height()/4)
  set window title "Exile's Journey"
  position mouse (screen width()/4),(screen height()/4)
  hide mouse
  return

noMenu:
  hide sprite 1
  delete sprite 1
  delete image 1000
  return

endfunction

+ Code Snippet

function menu()

`bringing up the menu, the text is palatino or something like it
load image "menu1.bmp",1000,1
set current bitmap 0
draw to front
sprite 1,0,0,1000
scale sprite 1,200
paste sprite 1,screen width()/4,screen height()/4

`loop for menu selections
do
  `the exit game sequence
  if escapekey() = 1 then gosub leave

  `w for windowed mode
  if keystate(17) = 1 then gosub windowed

  `f1 to exit the menu
  if keystate(59) = 1
    gosub noMenu
    exitfunction
  endif

  sync
loop

`subroutines for commands
leave:
  hide sprite 1
  center text screen width()/2, screen height()/2,"Do you wish to exit (y/n)?"
  sync

  do
    `if a "y" is entered
     if keystate(21) = 1 then end

    `if a "n" was entered
     if keystate(49) = 1
       show sprite 1
       return
     endif

  loop
  return

windowed:
  set window on
  set window layout 1,1,1
  set window position (screen width()/4),(screen height()/4)
  set window title "Exile's Journey"
  position mouse (screen width()/4),(screen height()/4)
  hide mouse
  return

noMenu:
  hide sprite 1
  delete sprite 1
  delete image 1000
  return

endfunction

...or at least point you in the right direction

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

Chief Voyager

23

Years of Service

User Offline

Joined: 20th Mar 2003

Location: United States

Posted: 10th Apr 2003 06:58

Link

thanx, i'll give this a shot to see what happens.

You're ate up like a soup sandwich.

Back to top

Profile PM Email

Chief Voyager

23

Years of Service

User Offline

Joined: 20th Mar 2003

Location: United States

Posted: 10th Apr 2003 07:03

Link

well, i tried it. what i came up with was that when i hit the f1 key, i still couldn't see my menu. then, when i held the f1 key down for a little bit, then released it, the sprite showed up in the lower right hand part of the screen and the CLI came up saying that 'Bob doesn't exist' what on earth is Bob? how come it (the menu) won't pop up when i hit the f1 key? thanx for the help though. do you have another idea? i've been beating at this thing for about 2 days now.

You're ate up like a soup sandwich.

Back to top

Profile PM Email

Easily Confused

23

Years of Service

User Offline

Joined: 22nd Oct 2002

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

Posted: 10th Apr 2003 07:22

Link

Hmmm, that's strange, it's working in DBPro (ignoring the windowed mode)

Ah! I wonder, if you are pressing f1 to access the menu and f1 also closes the menu, it could well be that holding the f1 key down for to long it will open and then close before you see it.

try this one:

function menu()

`bringing up the menu, the text is palatino or something like it
load image "menu1.bmp",1000
set current bitmap 0
draw to front
sprite 1,0,0,1000
scale sprite 1,200
paste sprite 1,screen width()/4,screen height()/4
sync
repeat : until scancode() = 0

`loop for menu selections
do
  `the exit game sequence
  if escapekey() = 1 then gosub leave

`w for windowed mode
  if keystate(17) = 1 then gosub windowed

`f1 to exit the menu
  if keystate(59) = 1
    gosub noMenu
    repeat : until scancode() = 0
    exitfunction
  endif

sync
loop

`subroutines for commands
leave:
  hide sprite 1
  center text screen width()/2, screen height()/2,"Do you wish to exit (y/n)?"
  sync

do
    `if a "y" is entered
     if keystate(21) = 1 then end

`if a "n" was entered
     if keystate(49) = 1
       show sprite 1
       return
     endif

loop
  return

windowed:
  set window on
  set window layout 1,1,1
  set window position (screen width()/4),(screen height()/4)
  set window title "Exile's Journey"
  position mouse (screen width()/4),(screen height()/4)
  hide mouse
  return

noMenu:
  hide sprite 1
  delete sprite 1
  delete image 1000
  return

endfunction

+ Code Snippet

function menu()

`bringing up the menu, the text is palatino or something like it
load image "menu1.bmp",1000
set current bitmap 0
draw to front
sprite 1,0,0,1000
scale sprite 1,200
paste sprite 1,screen width()/4,screen height()/4
sync
repeat : until scancode() = 0

`loop for menu selections
do
  `the exit game sequence
  if escapekey() = 1 then gosub leave

  `w for windowed mode
  if keystate(17) = 1 then gosub windowed

  `f1 to exit the menu
  if keystate(59) = 1
    gosub noMenu
    repeat : until scancode() = 0
    exitfunction
  endif

  sync
loop

`subroutines for commands
leave:
  hide sprite 1
  center text screen width()/2, screen height()/2,"Do you wish to exit (y/n)?"
  sync

  do
    `if a "y" is entered
     if keystate(21) = 1 then end

    `if a "n" was entered
     if keystate(49) = 1
       show sprite 1
       return
     endif

  loop
  return

windowed:
  set window on
  set window layout 1,1,1
  set window position (screen width()/4),(screen height()/4)
  set window title "Exile's Journey"
  position mouse (screen width()/4),(screen height()/4)
  hide mouse
  return

noMenu:
  hide sprite 1
  delete sprite 1
  delete image 1000
  return

endfunction

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

Chief Voyager

23

Years of Service

User Offline

Joined: 20th Mar 2003

Location: United States

Posted: 10th Apr 2003 08:44

Link

gave it a shot, still i can't SEE the menu. lol, this thing is going to drive me to the drink! i hit the f1 key, and i still can't see the menu, even when i hold it down and i move my arrow keys (my player movement for the game, which is in the MAIN loop), my player moves around on the screen still, just at a slower rate. which doesn't make sense to me, because if i'm in a function, shouldn't the main game loop relinquish control to the function when i'm supposed to be in it? and how come i still can't see it (the menu), are my bitmap or sprite codes all jacked up? just for the crazy hell of it, i'll post all of my source code (minus the menu,which is already here) to see if that will give you an indication of what i'm working with. thanx, easily confused. that would be a good name for me, considering what i'm trying to do! also, you'll notice that i have my loading sprites (at the beggining of the code, just below the disable esc key) commented out, if i leave those commands in, right before i should see my level (when the sprites delete), i get an error that says "not enough memory", so i restarted my computer to see if that would fix it, but i got the same error again. so i commented that routine out for now. do you have any idea what's causing it? the same exact code worked in another prog that i had.

You're ate up like a soup sandwich.

Back to top

Profile PM Email

indi

23

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 10th Apr 2003 09:04

Link

i posted a working example for you on another post u made on the same subject

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

Easily Confused

23

Years of Service

User Offline

Joined: 22nd Oct 2002

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

Posted: 10th Apr 2003 09:54 Edited at: 10th Apr 2003 10:05

Link

I this menu function doesn't work now, it's going to drive ME to drink

I've removed the gosubs in the function, in case there was some confliction going on we both couldn't see. I've place the code inside a series of clearly marked IF blocks.

Edit: Have changed the co-ords of the sprite and dropped the need for Paste Sprite.

function menu()
  `bringing up the menu, the text is palatino or something like it
  load image "menu1.bmp",1000
  set current bitmap 0

sprite 1,screen width()/4,screen height()/4,1000
  scale sprite 1,200
  sync

repeat : until scancode() = 0

`loop for menu selections
  do
    sc = scancode()

` ###############################################
    ` ###  Escape key for the exit game sequence  ###
    ` ###############################################
    if sc = 1
      hide sprite 1
      center text screen width()/2, screen height()/2,"Do you wish to exit (y/n)?"
      sync

do
        ` if "y" then end program
        if scancode() = 21 then end
        ` if "n" then break from this do/loop
        if scancode() = 49 then exit
      loop

` show menu and carry on
      show sprite 1
      sync
    endif

` #################################
    ` ###  W key for windowed mode  ###
    ` #################################
    if sc = 17
      set window on
      set window layout 1,1,1
      set window position (screen width()/4),(screen height()/4)
      set window title "Exile's Journey"
      position mouse (screen width()/4),(screen height()/4)
      hide mouse

` exit do/loop
      exit
    endif

` #################################
    ` ###  F1 key to exit the menu  ###
    ` #################################
    if sc = 59
      hide sprite 1
      delete sprite 1
      delete image 1000
      repeat : until scancode() = 0

` exit do/loop
      exit
    endif

loop

endfunction

+ Code Snippet

function menu()
  `bringing up the menu, the text is palatino or something like it
  load image "menu1.bmp",1000
  set current bitmap 0

  sprite 1,screen width()/4,screen height()/4,1000
  scale sprite 1,200
  sync

  repeat : until scancode() = 0

  `loop for menu selections
  do
    sc = scancode()

    ` ###############################################
    ` ###  Escape key for the exit game sequence  ###
    ` ###############################################
    if sc = 1
      hide sprite 1
      center text screen width()/2, screen height()/2,"Do you wish to exit (y/n)?"
      sync

      do
        ` if "y" then end program
        if scancode() = 21 then end
        ` if "n" then break from this do/loop
        if scancode() = 49 then exit
      loop

      ` show menu and carry on
      show sprite 1
      sync
    endif

    ` #################################
    ` ###  W key for windowed mode  ###
    ` #################################
    if sc = 17
      set window on
      set window layout 1,1,1
      set window position (screen width()/4),(screen height()/4)
      set window title "Exile's Journey"
      position mouse (screen width()/4),(screen height()/4)
      hide mouse

      ` exit do/loop
      exit
    endif

    ` #################################
    ` ###  F1 key to exit the menu  ###
    ` #################################
    if sc = 59
      hide sprite 1
      delete sprite 1
      delete image 1000
      repeat : until scancode() = 0

      ` exit do/loop
      exit
    endif

  loop

endfunction

...all there is to tell you now is, that this works OK in DBPro

(except the windowed mode)

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

Chief Voyager

23

Years of Service

User Offline

Joined: 20th Mar 2003

Location: United States

Posted: 11th Apr 2003 00:16

Link

HOLY CRAP! it worked! thanx SO much easily confused AND indi. both of you have been tremendous helps! i'm so damn excited, now it's time to go make a new problem with the program! thanx again!!!!!

You're ate up like a soup sandwich.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / apparently a bunch of nesting errors i don't know