Scope of ENTRY()? - Really weird scenario.

Author

Message

Da_Rhyno

13

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 28th Sep 2011 04:07

Link

I'm trying to make a text prompt that I'm using to get filenames, and for some odd reason it doesn't like the filenames I give it.
Now here's the kicker: I tried to recreate the problem by using the same function being called outside the routine it's usually called in, and it works fine.

Here's where it works:

+ Code Snippet

IF (FILE EXIST(fn$) = 1)
   TEXT 0, 22, "FILE EXISTS!"
ELSE
   TEXT 0, 22, "FILE DOESN'T EXIST!"
ENDIF
WAIT KEY

FUNCTION Txt_Prompt(x_pos AS DWORD, y_pos AS DWORD, txt AS STRING)
   //INK RGB(255, 255, 255), RGB(0,0,0)
   //SET TEXT OPAQUE
   instr AS STRING
   x AS DWORD = 0
   CLEAR ENTRY BUFFER
   REPEAT
      instr = ENTRY$(1)
      TEXT x_pos, y_pos, txt + instr
      IF RETURNKEY() = 1
         WAIT 1000
         x = 1 
      ENDIF
      SYNC
   UNTIL x = 1
ENDFUNCTION instr

But when I try it from this function, it doesn't work:

+ Code Snippet

FUNCTION Load_Image_Window()
   //HIDE ALL SPRITES
   CLS RGB(0,0,0)
   INK RGB(255,255,255),RGB(0,0,0)
   filename$ = Text_Prompt(0,0, "Enter filename: ")
   refname$ = Text_Prompt(0, TEXT HEIGHT("A"), "Enter reference name: ")
   IF FILE EXIST(filename$) = 1
      ARRAY INSERT AT BOTTOM image_list(0)
      max_items = ARRAY COUNT(image_list(0))
      image_list(max_items).img_filename  = filename$ 
      image_list(max_items).img_marker = refname$
      //Input "Enter filename: ", image_list(max_items).img_filename
      //Input "Enter reference name: ", image_list(max_items).img_marker
      image_list(max_items).img_num = Get_Free_Image()
      LOAD IMAGE image_list(max_items).img_filename, image_list(max_items).img_num
   ELSE
      TEXT 0, 0, "Error: File doesn't exist!"
      SYNC
      WAIT KEY
   ENDIF
   load_image_pressed = 0
   //SHOW ALL SPRITES
ENDFUNCTION

I'm actually stumped on this one. I don't know if this is a scope problem or what, as the first code example was outside a function and this is inside a function.

Any ideas?

Back to top

Profile PM

Ashingda 27

16

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 28th Sep 2011 04:59

Link

Cant test your codes, you're missing the array and type declaration. Do you mind adding those in? It will also help if you just post the codes you were testing out personally.

Aside from that, I do believe there are simpler approach to get this result. I'm unclear as to what you want it to be, all text based like command prompt or more graphical like windows based or something in the middle.

Back to top

Profile PM Email

Da_Rhyno

13

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 28th Sep 2011 05:10

Link

Here's the full code:

Rem Project: Isometric Tile and Map Editor
Rem Created: Sunday, September 25, 2011

Rem ***** Main Source File *****
SET DISPLAY MODE 800, 600, 32
SYNC ON : SYNC RATE 60
DRAW SPRITES FIRST

// USER DEFINED TYPES
TYPE Image
   img_num AS DWORD
   img_marker AS STRING
   img_filename AS STRING
ENDTYPE

TYPE MapElement
   sprite_num AS DWORD
   sprite_x AS INTEGER
   sprite_y AS INTEGER
   sprite_priority AS DWORD = 0
   img_num AS DWORD
ENDTYPE

// SET GLOBAL VARIABLES:
GLOBAL load_image_pressed = 0
GLOBAL top_of_image_list = 0
GLOBAL top_of_sprite_list = 0
GLOBAL currently_selected_image = -1
GLOBAL currently_selected_sprite = -1
GLOBAL canvas_x = 0
GLOBAL canvax_y = 0
GLOBAL background_image AS DWORD
GLOBAL background_sprite AS DWORD
GLOBAL background_sprite_priority AS DWORD = 1 // Necessary now since the editor background is a sprite
// Canvas shift commands (for scrolling through the map)
GLOBAL cx_shift = 0
GLOBAL cy_shift = 0

DIM image_list(0) AS Image // List of images
EMPTY ARRAY image_list(0)
DIM sprite_list(0) AS MapElement // List of sprites to be drawn on map
EMPTY ARRAY sprite_list(0)

// GET BACKGROUND IMAGE FOR EDITOR & SET UP TRANSPARENCY
SET IMAGE COLORKEY 255, 0, 255
background_image = Get_Free_Image()
LOAD IMAGE "media\editor_template.bmp", background_image
background_sprite = Get_Free_Sprite()
SPRITE background_sprite, 0, 0, background_image
SET SPRITE PRIORITY background_sprite, background_sprite_priority
// OUR MAIN LOOP
DO
   //IF load_image_pressed = 1
   //   Load_Image_Window()
   //   GOTO end_of_loop 
   //ENDIF
   Normal_Window()
   end_of_loop:
   SYNC
LOOP

FUNCTION Get_Free_Image()
   i = 1
   REPEAT
      i = i + 1 
   UNTIL IMAGE EXIST(i) = 0
ENDFUNCTION i

FUNCTION Get_Free_Sprite()
    i = 1
    REPEAT
       i = i + 1
    UNTIL SPRITE EXIST(i) = 0
ENDFUNCTION i

FUNCTION Load_Image_Window()
   //HIDE ALL SPRITES
   CLS RGB(0,0,0)
   INK RGB(255,255,255),RGB(0,0,0)
   //filename$ = Text_Prompt(0,0, "Enter filename: ")
   //refname$ = Text_Prompt(0, TEXT HEIGHT("A"), "Enter reference name: ")
   Input "Enter filename: ", filename$
   Input "Enter reference name: ", refname$
   IF FILE EXIST(filename$) = 1
      ARRAY INSERT AT BOTTOM image_list(0)
      max_items = ARRAY COUNT(image_list(0))
      image_list(max_items).img_filename  = filename$ 
      image_list(max_items).img_marker = refname$
      //Input "Enter filename: ", image_list(max_items).img_filename
      //Input "Enter reference name: ", image_list(max_items).img_marker
      image_list(max_items).img_num = Get_Free_Image()
      LOAD IMAGE image_list(max_items).img_filename, image_list(max_items).img_num
   ELSE
      TEXT 0, 0, "Error: File doesn't exist!"
      SYNC
      WAIT KEY
   ENDIF
   load_image_pressed = 0
   //SHOW ALL SPRITES
ENDFUNCTION

FUNCTION Normal_Window()
   SHOW ALL SPRITES 
   libp AS DWORD = 0
   INK RGB(0,0,0),RGB(128,128,128)
   SPRITE background_sprite, 0, 0, background_image
   SET TEXT FONT "terminal" : SET TEXT SIZE 18 : SET TEXT TRANSPARENT
   TEXT 0, 0, "MOUSE X,Y : "+Str$(MOUSEX())+","+Str$(MOUSEY())
   TEXT (800-TEXT WIDTH( "Currently selected image: "+Str$(currently_selected_image))), 582, "Currently selected image: "+Str$(currently_selected_image)
   Draw_Canvas()
   IF ARRAY COUNT(image_list(0)) > -1
      Draw_Image_List() 
   ENDIF
   IF ARRAY COUNT(sprite_list(0)) > -1
      Draw_Sprite_List()
   ENDIF
   libp = Text_Button(0, 22, "LOAD IMAGE")
   IF libp = 1 THEN Load_Image_Window()//load_image_pressed = 1
ENDFUNCTION

FUNCTION Text_Button(x_pos AS DWORD, y_pos AS DWORD, txt AS STRING)
   button_pressed = 0
   text_width = TEXT WIDTH(txt)
   text_height = TEXT HEIGHT(txt)
   SET TEXT OPAQUE
   TEXT x_pos,y_pos, txt
   IF (MOUSEX() >= x_pos) AND (MOUSEX() <= x_pos+text_width)
      IF (MOUSEY() >= y_pos) AND (MOUSEY() <= y_pos+text_height)
         IF MOUSECLICK() = 1
            INK RGB(0, 255,0),RGB(100,100,100)
            TEXT x_pos,y_pos, txt
            button_pressed = 1
         ENDIF
      ENDIF
   ENDIF
ENDFUNCTION button_pressed

FUNCTION Text_Prompt(x_pos AS DWORD, y_pos AS DWORD, txt AS STRING)
   //INK RGB(255, 255, 255), RGB(0,0,0)
   //SET TEXT OPAQUE
   instr AS STRING
   x AS DWORD = 0
   CLEAR ENTRY BUFFER
   REPEAT
      instr = ENTRY$(1)
      TEXT x_pos, y_pos, txt + instr
      IF RETURNKEY() = 1
         WAIT 1000
         x = 1 
      ENDIF
      SYNC
   UNTIL x = 1
ENDFUNCTION instr

FUNCTION Draw_Image_List()
   cur_y = 44
   i = 0
   visible_count = 0
   max_items = ARRAY COUNT(image_list(0))
   For i = top_of_image_list TO max_items
      TEXT 0, cur_y, image_list(i).img_marker
      //Check if list item is clicked on
      IF (MOUSEX() >= 0) AND (MOUSEX() < 142)
         IF (MOUSEY() >= cur_y) AND (MOUSEY() <= (cur_y+TEXT HEIGHT(image_list(i).img_marker)))
            IF MOUSECLICK() = 1
               //SET CLICKED ITEM TO CURRENTLY SELECTED ITEM AND ALLOW FOR PUTTING ON CANVAS
               currently_selected_image = i
            ENDIF
         ENDIF 
      ENDIF
      // Increase Y for next list item
      cur_y = cur_y+TEXT HEIGHT(image_list(i).img_marker)
   Next  
ENDFUNCTION

FUNCTION Draw_Sprite_List()
   cur_y = 22
   i = 0
   visible_count = 0
   max_items = ARRAY COUNT(sprite_list(0))
   For i = top_of_sprite_list TO max_items
      TEXT 678, cur_y, "sprite("+Str$(i)+")"
      //Check if list item is clicked on
      IF (MOUSEX() >= 678) AND (MOUSEX() < 800)
         IF (MOUSEY() >= cur_y) AND (MOUSEY() <= (cur_y+TEXT HEIGHT("sprite("+Str$(i)+")")))
            IF MOUSECLICK() = 1
               currently_selected_sprite = i
            ENDIF
         ENDIF 
      ENDIF
      // Increase Y for next list item
      cur_y = cur_y+TEXT HEIGHT("sprite("+Str$(i)+")")
   Next  
ENDFUNCTION

// NOTE: TO GET SCREEN COORDINATES FROM CANVAS COORDINATES:
// screen_x = (canvas_x+cx_shift) - 135
// screen_y = (canvas_y+cy_shift) - 21
// 
// TO GET CANVAS COORDINATES FROM SCREEN COORDINATES:
// canvas_x = screen_x + 135 - cx_shift
// canvas_y = screen_y + 21 - cy_shift
FUNCTION Draw_Canvas()
   max_sprites = ARRAY COUNT(sprite_list(0))
   
   IF max_sprites > -1
      FOR i = 0 TO max_sprites
         SPRITE sprite_list(i).sprite_num, Get_Screen_X(sprite_list(i).sprite_x), Get_Screen_Y(sprite_list(i).sprite_y), sprite_list(i).img_num
         SHOW SPRITE sprite_list(i).sprite_num
         //SET SPRITE sprite_list(i).sprite_num,0,1
         //PASTE SPRITE sprite_list(i).sprite_num, Get_Screen_X(sprite_list(i).sprite_x), Get_Screen_Y(sprite_list(i).sprite_y)    
      NEXT
   ENDIF 
   
   IF (MOUSEX() >= 135) AND (MOUSEX() <= 674)
      IF (MOUSEY() >= 21) AND (MOUSEY() <= 579)
         canvas_x = Get_Canvas_X(MOUSEX())
         canvas_y = Get_Canvas_Y(MOUSEY())
         TEXT 136, 582, "CANVAS X, Y: "+Str$(canvas_x)+","+Str$(canvas_y)
         IF MOUSECLICK() = 1
               // Place sprite at location
               IF currently_selected_image > -1
                  ARRAY INSERT AT BOTTOM sprite_list()
                  ARRAY INDEX TO BOTTOM sprite_list()
                  sprite_list().sprite_num = Get_Free_Sprite()
                  sprite_list().sprite_x = canvas_x 
                  sprite_list().sprite_y = canvas_y
                  sprite_list().img_num = image_list(currently_selected_image).img_num
                  SPRITE sprite_list().sprite_num, Get_Screen_X(sprite_list().sprite_x), Get_Screen_Y(sprite_list().sprite_y), image_list(currently_selected_image).img_num
               ENDIF
         ENDIF
         IF MOUSECLICK() = 2
            // Check to see if mouseclick lies in bounding-box of any of the sprites placed, and if so select that sprite to show properties.
            IF max_sprites > -1
               FOR i = 0 TO MAX_SPRITES
                  `IF (MOUSE_X >= sprite_list(i).sprite_x)
               NEXT
            ENDIF 
         ENDIF
      ENDIF   
   ENDIF
ENDFUNCTION

FUNCTION Get_Canvas_X(screen_x AS INTEGER)
   canvas_x = cx_shift+screen_x - 135 
ENDFUNCTION canvas_x

FUNCTION Get_Canvas_Y(screen_y AS INTEGER)
   canvas_y = cy_shift+screen_y - 21 
ENDFUNCTION canvas_y

FUNCTION Get_Screen_X(canvas_x AS INTEGER)
    screen_x = canvas_x + 135 - screen_x
ENDFUNCTION screen_x

FUNCTION Get_Screen_Y(canvas_y AS INTEGER)
    screen_y = canvas_y + 21 - screen_y
ENDFUNCTION screen_y

+ Code Snippet

Rem Project: Isometric Tile and Map Editor
Rem Created: Sunday, September 25, 2011

Rem ***** Main Source File *****
SET DISPLAY MODE 800, 600, 32
SYNC ON : SYNC RATE 60
DRAW SPRITES FIRST

// USER DEFINED TYPES
TYPE Image
   img_num AS DWORD
   img_marker AS STRING
   img_filename AS STRING
ENDTYPE

TYPE MapElement
   sprite_num AS DWORD
   sprite_x AS INTEGER
   sprite_y AS INTEGER
   sprite_priority AS DWORD = 0
   img_num AS DWORD
ENDTYPE

// SET GLOBAL VARIABLES:
GLOBAL load_image_pressed = 0
GLOBAL top_of_image_list = 0
GLOBAL top_of_sprite_list = 0
GLOBAL currently_selected_image = -1
GLOBAL currently_selected_sprite = -1
GLOBAL canvas_x = 0
GLOBAL canvax_y = 0
GLOBAL background_image AS DWORD
GLOBAL background_sprite AS DWORD
GLOBAL background_sprite_priority AS DWORD = 1 // Necessary now since the editor background is a sprite
// Canvas shift commands (for scrolling through the map)
GLOBAL cx_shift = 0
GLOBAL cy_shift = 0

DIM image_list(0) AS Image // List of images
EMPTY ARRAY image_list(0)
DIM sprite_list(0) AS MapElement // List of sprites to be drawn on map
EMPTY ARRAY sprite_list(0)

// GET BACKGROUND IMAGE FOR EDITOR & SET UP TRANSPARENCY
SET IMAGE COLORKEY 255, 0, 255
background_image = Get_Free_Image()
LOAD IMAGE "media\editor_template.bmp", background_image
background_sprite = Get_Free_Sprite()
SPRITE background_sprite, 0, 0, background_image
SET SPRITE PRIORITY background_sprite, background_sprite_priority
// OUR MAIN LOOP
DO
   //IF load_image_pressed = 1
   //   Load_Image_Window()
   //   GOTO end_of_loop 
   //ENDIF
   Normal_Window()
   end_of_loop:
   SYNC
LOOP

FUNCTION Get_Free_Image()
   i = 1
   REPEAT
      i = i + 1 
   UNTIL IMAGE EXIST(i) = 0
ENDFUNCTION i

FUNCTION Get_Free_Sprite()
    i = 1
    REPEAT
       i = i + 1
    UNTIL SPRITE EXIST(i) = 0
ENDFUNCTION i

FUNCTION Load_Image_Window()
   //HIDE ALL SPRITES
   CLS RGB(0,0,0)
   INK RGB(255,255,255),RGB(0,0,0)
   //filename$ = Text_Prompt(0,0, "Enter filename: ")
   //refname$ = Text_Prompt(0, TEXT HEIGHT("A"), "Enter reference name: ")
   Input "Enter filename: ", filename$
   Input "Enter reference name: ", refname$
   IF FILE EXIST(filename$) = 1
      ARRAY INSERT AT BOTTOM image_list(0)
      max_items = ARRAY COUNT(image_list(0))
      image_list(max_items).img_filename  = filename$ 
      image_list(max_items).img_marker = refname$
      //Input "Enter filename: ", image_list(max_items).img_filename
      //Input "Enter reference name: ", image_list(max_items).img_marker
      image_list(max_items).img_num = Get_Free_Image()
      LOAD IMAGE image_list(max_items).img_filename, image_list(max_items).img_num
   ELSE
      TEXT 0, 0, "Error: File doesn't exist!"
      SYNC
      WAIT KEY
   ENDIF
   load_image_pressed = 0
   //SHOW ALL SPRITES
ENDFUNCTION

FUNCTION Normal_Window()
   SHOW ALL SPRITES 
   libp AS DWORD = 0
   INK RGB(0,0,0),RGB(128,128,128)
   SPRITE background_sprite, 0, 0, background_image
   SET TEXT FONT "terminal" : SET TEXT SIZE 18 : SET TEXT TRANSPARENT
   TEXT 0, 0, "MOUSE X,Y : "+Str$(MOUSEX())+","+Str$(MOUSEY())
   TEXT (800-TEXT WIDTH( "Currently selected image: "+Str$(currently_selected_image))), 582, "Currently selected image: "+Str$(currently_selected_image)
   Draw_Canvas()
   IF ARRAY COUNT(image_list(0)) > -1
      Draw_Image_List() 
   ENDIF
   IF ARRAY COUNT(sprite_list(0)) > -1
      Draw_Sprite_List()
   ENDIF
   libp = Text_Button(0, 22, "LOAD IMAGE")
   IF libp = 1 THEN Load_Image_Window()//load_image_pressed = 1
ENDFUNCTION

FUNCTION Text_Button(x_pos AS DWORD, y_pos AS DWORD, txt AS STRING)
   button_pressed = 0
   text_width = TEXT WIDTH(txt)
   text_height = TEXT HEIGHT(txt)
   SET TEXT OPAQUE
   TEXT x_pos,y_pos, txt
   IF (MOUSEX() >= x_pos) AND (MOUSEX() <= x_pos+text_width)
      IF (MOUSEY() >= y_pos) AND (MOUSEY() <= y_pos+text_height)
         IF MOUSECLICK() = 1
            INK RGB(0, 255,0),RGB(100,100,100)
            TEXT x_pos,y_pos, txt
            button_pressed = 1
         ENDIF
      ENDIF
   ENDIF
ENDFUNCTION button_pressed

FUNCTION Text_Prompt(x_pos AS DWORD, y_pos AS DWORD, txt AS STRING)
   //INK RGB(255, 255, 255), RGB(0,0,0)
   //SET TEXT OPAQUE
   instr AS STRING
   x AS DWORD = 0
   CLEAR ENTRY BUFFER
   REPEAT
      instr = ENTRY$(1)
      TEXT x_pos, y_pos, txt + instr
      IF RETURNKEY() = 1
         WAIT 1000
         x = 1 
      ENDIF
      SYNC
   UNTIL x = 1
ENDFUNCTION instr

FUNCTION Draw_Image_List()
   cur_y = 44
   i = 0
   visible_count = 0
   max_items = ARRAY COUNT(image_list(0))
   For i = top_of_image_list TO max_items
      TEXT 0, cur_y, image_list(i).img_marker
      //Check if list item is clicked on
      IF (MOUSEX() >= 0) AND (MOUSEX() < 142)
         IF (MOUSEY() >= cur_y) AND (MOUSEY() <= (cur_y+TEXT HEIGHT(image_list(i).img_marker)))
            IF MOUSECLICK() = 1
               //SET CLICKED ITEM TO CURRENTLY SELECTED ITEM AND ALLOW FOR PUTTING ON CANVAS
               currently_selected_image = i
            ENDIF
         ENDIF 
      ENDIF
      // Increase Y for next list item
      cur_y = cur_y+TEXT HEIGHT(image_list(i).img_marker)
   Next  
ENDFUNCTION

FUNCTION Draw_Sprite_List()
   cur_y = 22
   i = 0
   visible_count = 0
   max_items = ARRAY COUNT(sprite_list(0))
   For i = top_of_sprite_list TO max_items
      TEXT 678, cur_y, "sprite("+Str$(i)+")"
      //Check if list item is clicked on
      IF (MOUSEX() >= 678) AND (MOUSEX() < 800)
         IF (MOUSEY() >= cur_y) AND (MOUSEY() <= (cur_y+TEXT HEIGHT("sprite("+Str$(i)+")")))
            IF MOUSECLICK() = 1
               currently_selected_sprite = i
            ENDIF
         ENDIF 
      ENDIF
      // Increase Y for next list item
      cur_y = cur_y+TEXT HEIGHT("sprite("+Str$(i)+")")
   Next  
ENDFUNCTION

// NOTE: TO GET SCREEN COORDINATES FROM CANVAS COORDINATES:
// screen_x = (canvas_x+cx_shift) - 135
// screen_y = (canvas_y+cy_shift) - 21
// 
// TO GET CANVAS COORDINATES FROM SCREEN COORDINATES:
// canvas_x = screen_x + 135 - cx_shift
// canvas_y = screen_y + 21 - cy_shift
FUNCTION Draw_Canvas()
   max_sprites = ARRAY COUNT(sprite_list(0))
   
   IF max_sprites > -1
      FOR i = 0 TO max_sprites
         SPRITE sprite_list(i).sprite_num, Get_Screen_X(sprite_list(i).sprite_x), Get_Screen_Y(sprite_list(i).sprite_y), sprite_list(i).img_num
         SHOW SPRITE sprite_list(i).sprite_num
         //SET SPRITE sprite_list(i).sprite_num,0,1
         //PASTE SPRITE sprite_list(i).sprite_num, Get_Screen_X(sprite_list(i).sprite_x), Get_Screen_Y(sprite_list(i).sprite_y)    
      NEXT
   ENDIF 
   
   IF (MOUSEX() >= 135) AND (MOUSEX() <= 674)
      IF (MOUSEY() >= 21) AND (MOUSEY() <= 579)
         canvas_x = Get_Canvas_X(MOUSEX())
         canvas_y = Get_Canvas_Y(MOUSEY())
         TEXT 136, 582, "CANVAS X, Y: "+Str$(canvas_x)+","+Str$(canvas_y)
         IF MOUSECLICK() = 1
               // Place sprite at location
               IF currently_selected_image > -1
                  ARRAY INSERT AT BOTTOM sprite_list()
                  ARRAY INDEX TO BOTTOM sprite_list()
                  sprite_list().sprite_num = Get_Free_Sprite()
                  sprite_list().sprite_x = canvas_x 
                  sprite_list().sprite_y = canvas_y
                  sprite_list().img_num = image_list(currently_selected_image).img_num
                  SPRITE sprite_list().sprite_num, Get_Screen_X(sprite_list().sprite_x), Get_Screen_Y(sprite_list().sprite_y), image_list(currently_selected_image).img_num
               ENDIF
         ENDIF
         IF MOUSECLICK() = 2
            // Check to see if mouseclick lies in bounding-box of any of the sprites placed, and if so select that sprite to show properties.
            IF max_sprites > -1
               FOR i = 0 TO MAX_SPRITES
                  `IF (MOUSE_X >= sprite_list(i).sprite_x)
               NEXT
            ENDIF 
         ENDIF
      ENDIF   
   ENDIF
ENDFUNCTION

FUNCTION Get_Canvas_X(screen_x AS INTEGER)
   canvas_x = cx_shift+screen_x - 135 
ENDFUNCTION canvas_x

FUNCTION Get_Canvas_Y(screen_y AS INTEGER)
   canvas_y = cy_shift+screen_y - 21 
ENDFUNCTION canvas_y

FUNCTION Get_Screen_X(canvas_x AS INTEGER)
    screen_x = canvas_x + 135 - screen_x
ENDFUNCTION screen_x

FUNCTION Get_Screen_Y(canvas_y AS INTEGER)
    screen_y = canvas_y + 21 - screen_y
ENDFUNCTION screen_y

And all I'm trying to do is get a text form of input, which INPUT isn't playing nicely when I draw sprites. Attached is the editor template file needed for this.

Thanks...

Attachments

Login to view attachments

Back to top

Profile PM

Ashingda 27

16

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 28th Sep 2011 05:26

Link

Ahh I see what's going on, the problem itself is the INPUT statement. Write yourself a function to handle that process of typing in a string instead because the INPUT statement locks up your loop until you finish inputting.

Back to top

Profile PM Email

Da_Rhyno

13

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 28th Sep 2011 05:35

Link

Oh, sorry. Comment out those two inputs and uncomment the two lines before them:

+ Code Snippet

   //filename$ = Text_Prompt(0,0, "Enter filename: ")
   //refname$ = Text_Prompt(0, TEXT HEIGHT("A"), "Enter reference name: ")

Uncomment those. Those are the ones I posted about. I played with other parts of the code since I've posted this that needed file input.

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 28th Sep 2011 14:42

Link

are adding the image type when you input the file name or is this being added.
eg
filename$ = Text_Prompt(0,0, "Enter filename: ")

I type hello you get

print filename == hello

or do you want
type hello

print filename$ == hello.png

if so added it to the string.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

nonZero

13

Years of Service

User Offline

Joined: 10th Jul 2011

Location: Dark Empire HQ, Otherworld, Silent Hill

Posted: 1st Oct 2011 00:15

Link

Try it this way (very crude):

Function TextPrompt(x, y, txt$)
DO
tmp$ = ENTR$(1)
TEXT x, y, txt$ + tmp$
rem Add any other stuff you wanna do
IF INKEY$() = CHR$(8)
rem I think bspace is 008??
rem restore your bg, refresh text
ENDIF
IF RETURNKEY() = 1
tmp$ = ENTRY$(1)
EXITFUNCTION tmp$
rem or EXIT if you need to do anything post-loop
ENDIF
LOOP
ENDFUNCTION tmp$

hope this helps some...

No matter how much you know, you'll always have far more left to learn... (My head hurts)

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Scope of ENTRY()? - Really weird scenario.

Attachments