Ranges in-between numbers - GameCreators Forum

Author

Message

Donald Smith

21

Years of Service

User Offline

Joined: 15th Nov 2002

Location:

Posted: 31st Oct 2022 05:08

Link

Hello everyone!!!

I'm having a tough trying to figure the math and the programming behind what I want to do, so I decided to ask for some help.

If you have never found the game "The Money Vault" on the Internet, the premise is to fill 10 slots with dollar amounts from lowest to highest by choosing from 50 panels of various dollar amounts ranging from $1,000 to $100,000 (even numbers only).

Now, I store the money amounts in an array called slot(10), with slot(10) at the top, etc.

On the first go round, all slots are empty, so for example, I can place $16,000 (let's call this value Money) in slot(4). Also, the program displays all the useable slots.
With the second try, say I choose $40,000 and I put that in slot(8), skipping the amount in slot(4). Here's where my issue starts.

Third try, say the value is $32, 000 which falls between slot(4) and slot(8), so the useable slots are from slot(5) to slot(7). How do I get the useable slots to show? Let's say that I put the $32,000 in slot(6).
Four try, say the value chosen is $37,000, which falls between slot(6) of 32,000 and slot(8) of 40,000. How do I only show slot(7) as useable?

Now, remember that I choose a number lower than $16,000, slot(1) through slot(3) should be useable.

Thank you for your help, Donald

Back to top

Profile PM

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 31st Oct 2022 23:04 Edited at: 31st Oct 2022 23:14

Link

It's been a while since I've seen new stuff or written here! I like the "challenge" you've presented. I haven't programmed for some time but this seems like a fun task to maybe move a little rust off my gears.

One way you could approach this is to make the array that you store the value in the slots, a 2 dimensional array. The second dimension for each value could be a flag set to 1 or 0. 1 for "this slot is already set. no you can't put anything in this box anymore" and 0 "This box will happily accept a new figure.

You also would do a check when trying to place a figure in a box: you'd loop forward from the slot you intend to drop the new value in to see if the next "already set" slot is actually higher in value, and you'd loop back to check if the value is actually lower. If the intended slot to drop the value in can't fit, then you branch to some routine to handle this - maybe you've lost the game at this point or whatever.

I knocked up some pretty quick code. It you point and LEFT CLICK on the 10 money slots with 0 in them they will tell you whether or not you can put money here. This is controlled by subroutine _fillslot:

The serices of squares at the bottom are the cards you can choose from. When you LEFT CLICK on one, the value will stick to the mouse. You can then go up to the slots to place the value. If you RIGHT CLICK, the value will be placed in that slot. The squares are controlled with the subroutine _cards: . If you examine the code, you'll see how it all works.

Basically, once you click on a card, the curcell variable is populated with that card number. The card number is the index to the array choosemoney(curcell,1) that holds the random values of the cards that were set when the program begins. When you choose a card and go back up to the slots to change the value, the program checks curcell to make sure it is set, it looks for a LEFT CLICK in the slot and will tell you if that is a slot you can choose, the program looks for a RIGHT CLICK on a slot to try and put the array value choosemoney(curcell) into slot(x,1). Once money is put in a slot, slot(x,2) is set to 1. If this is set to 1, money cannot be put here anymore. That's how the code below functions. I didn't put a check in it however to see if the value to be placed is "in between" the values above or below it. I'm sure you could handle that logic. Just step forward and backward the the slots(x,1) array from the current slot you are trying to choose and see if theres a higher and lower value. You'd only look for lower on slot 10 and only look for higher on slot 1.

If you are graphically adapting to show the visibility of available slots, then use the flag slots(x,2) to control that code.

REMSTART
	==============================================================
	=  TITLE  : 
	=  Author : latch
	=  Date   : 10/31/2022
	=  UPDATE :
	=  Version:
	==============================================================
	Comments
	==============================================================
REMEND

REM =============================================================
REM = SET UP DISPLAY
REM =============================================================
	AUTOCAM OFF
	SET DISPLAY MODE 1024,768,32
	SYNC ON
	SYNC RATE 60

REM =============================================================
REM = MAIN
REM =============================================================
   gosub _init

DO
	   cls 0
	   my=mousey()
	   mx=mousex()
	   
	   gosub _cards
	   
	   gosub _fillslot

SYNC
	LOOP

END

REM =============================================================
REM = SUBROUTINES - PROCEDURES
REM =============================================================
   _init:
  
      rem create an array that will hold the 10 slots of money
      rem the array can also hold a flag to indicate if it is useable or not
      dim slot(10,2)
      
      rem create an array that will will hold the 50 random dollar selections
      dim choosemoney(50)
      
      rem populate the random money boxes.  We'll use the same seed for this example
      rem so that our random numbers are the same set each time
      randomize 5
      
      for x=1 to 50    
         money=(rnd(99)+1)*1000
         choosemoney(x)=money
         
         rem need to just have unique values stored there
         for y=1 to 50
            rem skip current x
            if y!x
               rem as we loop through all 50 available choices we see if any of them equal
               rem the current randomized value
               if choosemoney(y)=money
                  nm=money
                  rem keep chooseing random dollars until we no longer match the existing box
                  while choosemoney(y)=nm
                     nm=(rnd(99)+1)*1000
                  endwhile
                  choosemoney(y)=nm
                  rem we've chosen a new random value for an existing match to the current randomized value
                  rem now we've got to loop through all items again to be sure there aren't others
                  y=1
                  `break "y has been reset to 1 for postion "+str$(x)
               endif
               
            endif
         next y
      next x
      
      
   Return 
`================================================================   
   _fillslot:
      rem check if there is a mouseclick in a slot
      for x=1 to 10
         text 10,x*20,str$(slot(x,1))
         
         rem check if mouse is in the slot
         if mouse_within(0,x*20,100,(x*20)+20,mx,my)
            if curcell<>0 and mouseclick()=0
               text 500,20,"Value to place is "+str$(choosemoney(curcell))
            endif   
            rem check mouseclick
            text 200,20,"Mouse currently pointing at slot "+str$(x)
            if mouseclick()=1
               rem check if the current slot is occupied - you could also check for a 0 value
               if slot(x,2)=1
                  Text 500,20,"Slot "+str$(x)+" CANNOT be used."
               else
                  Text 500,20,"Slot "+str$(x)+" can be used."
               endif
            endif
            rem add value to a slot with right click
            if mouseclick()=2 and slot(x,2)=0 and curcell<>0
               slot(x,2)=1
               slot(x,1)=choosemoney(curcell)
               curcell=0
            endif   
         endif          
         
         
      next x
      
   return      
`================================================================
   _cards:
      for x=0 to 9
         x1=x*100 : x2=x1+75
         for y=1 to 5           
            y1=(y*100)+150 : y2=y1+75
            box x1,y1,x2,y2
            
            rem click and drag a box to a slot
            if mouse_within(x1,y1,x2,y2,mx,my)
               if mouseclick()
                  cellx=int(mx/100)
                  celly=int((my-250)/100)
                  curcell=(celly*10)+(cellx+1)
                  
                  
                  
               endif
            endif      
                  
            
         next y
      next x
      text mx,my-20,str$(cellx)+","+str$(celly)+", C="+str$(choosemoney(curcell))     
   return

REM =============================================================
REM = FUNCTIONS
REM =============================================================
   function mouse_within(x1,y1,x2,y2,mx,my)
      if ((mx-x1)|(x2-mx)) > 0
         if ((my-y1)|(y2-my)) > 0 then exitfunction 1
      endif
   endfunction 0
`================================================================

REM =============================================================
REM = DATA STATEMENTS
REM =============================================================

+ Code Snippet

REMSTART
	==============================================================
	=  TITLE  : 
	=  Author : latch
	=  Date   : 10/31/2022
	=  UPDATE :
	=  Version:
	==============================================================
	Comments
	==============================================================
REMEND

REM =============================================================
REM = SET UP DISPLAY
REM =============================================================
	AUTOCAM OFF
	SET DISPLAY MODE 1024,768,32
	SYNC ON
	SYNC RATE 60

REM =============================================================
REM = MAIN
REM =============================================================
   gosub _init

	DO
	   cls 0
	   my=mousey()
	   mx=mousex()
	   
	   gosub _cards
	   
	   gosub _fillslot


		SYNC
	LOOP

	END

REM =============================================================
REM = SUBROUTINES - PROCEDURES
REM =============================================================
   _init:
  
      rem create an array that will hold the 10 slots of money
      rem the array can also hold a flag to indicate if it is useable or not
      dim slot(10,2)
      
      rem create an array that will will hold the 50 random dollar selections
      dim choosemoney(50)
      
      rem populate the random money boxes.  We'll use the same seed for this example
      rem so that our random numbers are the same set each time
      randomize 5
      
      for x=1 to 50    
         money=(rnd(99)+1)*1000
         choosemoney(x)=money
         
         rem need to just have unique values stored there
         for y=1 to 50
            rem skip current x
            if y!x
               rem as we loop through all 50 available choices we see if any of them equal
               rem the current randomized value
               if choosemoney(y)=money
                  nm=money
                  rem keep chooseing random dollars until we no longer match the existing box
                  while choosemoney(y)=nm
                     nm=(rnd(99)+1)*1000
                  endwhile
                  choosemoney(y)=nm
                  rem we've chosen a new random value for an existing match to the current randomized value
                  rem now we've got to loop through all items again to be sure there aren't others
                  y=1
                  `break "y has been reset to 1 for postion "+str$(x)
               endif
               
            endif
         next y
      next x
      
      
   Return 
`================================================================   
   _fillslot:
      rem check if there is a mouseclick in a slot
      for x=1 to 10
         text 10,x*20,str$(slot(x,1))
         
         rem check if mouse is in the slot
         if mouse_within(0,x*20,100,(x*20)+20,mx,my)
            if curcell<>0 and mouseclick()=0
               text 500,20,"Value to place is "+str$(choosemoney(curcell))
            endif   
            rem check mouseclick
            text 200,20,"Mouse currently pointing at slot "+str$(x)
            if mouseclick()=1
               rem check if the current slot is occupied - you could also check for a 0 value
               if slot(x,2)=1
                  Text 500,20,"Slot "+str$(x)+" CANNOT be used."
               else
                  Text 500,20,"Slot "+str$(x)+" can be used."
               endif
            endif
            rem add value to a slot with right click
            if mouseclick()=2 and slot(x,2)=0 and curcell<>0
               slot(x,2)=1
               slot(x,1)=choosemoney(curcell)
               curcell=0
            endif   
         endif          
         
         
      next x
      
   return      
`================================================================
   _cards:
      for x=0 to 9
         x1=x*100 : x2=x1+75
         for y=1 to 5           
            y1=(y*100)+150 : y2=y1+75
            box x1,y1,x2,y2
            
            rem click and drag a box to a slot
            if mouse_within(x1,y1,x2,y2,mx,my)
               if mouseclick()
                  cellx=int(mx/100)
                  celly=int((my-250)/100)
                  curcell=(celly*10)+(cellx+1)
                  
                  
                  
               endif
            endif      
                  
            
         next y
      next x
      text mx,my-20,str$(cellx)+","+str$(celly)+", C="+str$(choosemoney(curcell))     
   return     

REM =============================================================
REM = FUNCTIONS
REM =============================================================
   function mouse_within(x1,y1,x2,y2,mx,my)
      if ((mx-x1)|(x2-mx)) > 0
         if ((my-y1)|(y2-my)) > 0 then exitfunction 1
      endif
   endfunction 0
`================================================================


REM =============================================================
REM = DATA STATEMENTS
REM =============================================================

Enjoy your day.

Back to top

Profile PM

Donald Smith

21

Years of Service

User Offline

Joined: 15th Nov 2002

Location:

Posted: 1st Nov 2022 01:37

Link

So Latch, thanks for the help but let's add a visual to the mix: https://www.youtube.com/watch?v=abnYIt2juTM&list=PL2Xcx-Ev_HEroJhpZkco6u9vviQygrmCw

So, if you look at the video at the 6:18 mark, $85,000 is in slot(7) and $67,000 is in slot(4) and the dollar amount randomly chosen was $81,000, which can fit in slot(5) or slot(6) *** which both equal zero*** and both of the these slots light up.
This is the math piece I can't figure out, to calculate the "lowend" and the "highend" values, let's say that, in this case, LowEnd = 5 and HighEnd = 6 and the program makes those two slots light up.

So using the video as a reference, if a dollar amount chosen (Money) equaled $35,000, slot(1),slot(2) and slot(3) would light up.

Thanks for your help, Latch

Donald

Back to top

Profile PM

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 1st Nov 2022 18:32 Edited at: 1st Nov 2022 18:51

Link

Hi,

So if you looked at my code, the basic premise is, set a flag that identifies which slots are available. Since this is stored in an array (the same array as the dollars contained in slots) you can loop through the array and find the flags that aren't set.

once you find an unset flag, you will have also obtained the slot number (the index). Let's say we loop through slot(x,2) search for a value of 0 and when x=5 we've found an empty slot. Now do a loop backwards from 5 to 1 and do a loop forward 5 to 10.

When going backward, check the dollar value currently stored in each slot once you hit a dollar value not equal to zero, you have to check if it is less than the target. If it is greater, than nothing above that found slot can be high lighted and you should set this to a variable called highslot. Continue to check below in the same fashion until you reach slot 1. If you find a value that is less than the target, set a variable maybe named lowslot to this slot number. Now do the same thing starting from your originally found empty slot and loop upwards towards 10. if you find a number greater than your target, then this is highslot, if you find a number lower then of course this is lowslot. Now that you have the first lowest and last highest slot numbers below and above your target, loop through lowslot to highslot, check for the flag ( slot(x,2) )that indicates the slot is available and for each slot available within the range run you graphics routine to highlight those slots as available. If there end up being no available slots after your tests, you've lost.

Note, if you make it to slot 1 or make it to slot 10 and you haven't found a non-zero value at all, that means those below or above the originally found empty slot that are available can all be highlighted.

Make sense?

Enjoy your day.

Back to top

Profile PM

Donald Smith

21

Years of Service

User Offline

Joined: 15th Nov 2002

Location:

Posted: 2nd Nov 2022 06:57 Edited at: 2nd Nov 2022 07:20

Link

Latch,
After I printed out your replies and hung them on the wall in front of me, (believe me, it was very helpful

) I wrote some code and it works the way I want it to, but can you think of an easier way to check for the LowEnd and HighEnd values?

Rem * Title  : Donald Smith
Rem * Author : Nov 1, 2022
REM *** Slot(X,1) holds the $$$ amounts in ascending order, bottom to top ***
REM *** Slot(X,2) if (X,2) = 0, the slot is useable & 1 if not ***

DIM Slot(10,2)

REM *** When clicked, this places the money in the slot clicked and ***
REM *** places the amount in Slot(X,1) ***

DIM MiddlePanel(10,2)

REM *** Draws the 10 slots ***

X =  235 : Y = 39
   For Draw = 1 to 10
   ink rgb(0,255,0),1

REM *** Stores the X & Y positions ***
   MiddlePanel(11 - Draw,1) = X : MiddlePanel(11 - Draw,2) = Y

REM *** Clears the slots ***

Slot(11 - Draw,1) = 0 : REM *** This is the money portion ***
   Slot(11 - Draw,2) = 0 : REM *** This is the flag, 0 if empty, 1 if not ***

REM *** This draws the outside line then the inside line ***

line x, y, x + 169, y
   line x + 1 , y + 1, x + 168, y + 1

line x + 169, y ,x + 169, y + 30
   line x + 168, y + 1 ,x + 168, y + 29

line x + 169, y + 30, x, y + 30
   line x + 168, y + 29, x + 1, y + 29

line x, y + 30, x, y
   line x + 1, y + 29, x + 1, y + 1

REM *** This draws the slot numbers in descending order ***

ink rgb(128,128,128),1
   Num$ = STR$(11 - Draw)
   set text font "Gulim"
   set text size 12
if Draw = 1
    center text 314,y + 5,"."
    center text 319,y + 10,Num$
    center text 327,y + 5,"."
else
     if Draw >= 2 and Draw <= 10
        center text 316,y + 5,"."
        center text 320,y + 10,Num$
        center text 325,y + 5,"."
     endif
endif

Y = Y + 35
Next Draw
REM *** Draws the 10 slots ***

REM *** Change line 68 to a value in-between & the slot values in-between light up ***
REM *** Comment out line 70 & leave the Money value alone and the slot values below light up ***
REM *** Comment out line 71 & leave the Money value alone and the slot values above light up ***

Money = 30

Slot(3,1) = 11 : Slot(3,2) = 1
Slot(9,1) = 85 : Slot(9,2) = 1

ink rgb(0,0,0),1
box 0,455,639,479
ink rgb(0,128,0),1
set cursor 175, 459 : Print "In which slot do you want to place the ";"$";Money;",000?"

REM *** This section shows what slots are available for input ***

REM *** Checks to see if all the slots are empty ***
For EmptyCheck = 1 to 10
  If Slot(11 - EmptyCheck,2) = 1 then goto NextTest
Next EmptyCheck
  If EmptyCheck = 11
     LowEnd = 1
     HighEnd = 10
     goto AllEmpty
  endif
REM *** Checks to see if all the slots are empty ***

REM *** Checks for the HighEnd value ***
NextTest:
Compare = 10 : HighEnd = 0
  HighCheckAgain:
      If Slot(Compare,2) = 0 then goto NextValue1
      If Slot(Compare,2) = 1
         If Money < Slot(Compare,1) then HighEnd = Compare
      endif
  NextValue1:
      Compare = Compare - 1
      If Compare <> 0 then goto HighCheckAgain
      If HighEnd = 0 then HighEnd = 11
      If HighEnd = 0 then goto HighCheckDone
      If Slot(HighEnd - 1) = 0 then HighEnd = HighEnd - 1
REM *** Checks for the HighEnd value ***

REM *** Checks for the LowEnd value ***
HighCheckDone:
Compare = 1 : LowEnd = 0
  LowCheckAgain:
      If Slot(Compare,2) = 0 then goto NextValue2
      If Slot(Compare,2) = 1
         If Money > Slot(Compare,1) then LowEnd = Compare
      endif
  NextValue2:
      Compare = Compare + 1
      If Compare <> 11 then goto LowCheckAgain
      If Slot(LowEnd + 1) = 0 then LowEnd = LowEnd + 1
REM *** Checks for the LowEnd value ***

REM *** Shows the useable slots ***
  AllEmpty:
    X = 235
    If HighEnd = 10 then Y = 39 else Y = 39 + ((10 - HighEnd) * 35)
      For Draw = HighEnd to LowEnd step -1
        ink rgb(0,120,0),1
        box x + 3, y + 3, 308, y + 27
        circle 320,y + 15,10
        box 332,y + 3, x + 166, y + 27
        Y = Y + 35
      Next Draw
REM *** Shows the useable slots ***

REM *** This section shows what slots are available for input ***

set cursor 520,210 : Print "Money = ";Money

set cursor 520,240 : Print "LowEnd = ";LowEnd
set cursor 520,255 : Print "HighEnd = ";HighEnd

set cursor 520,285 : Print "Slot(1,1) = ";Slot(1,1)
set cursor 520,300 : Print "Slot(2,1) = ";Slot(2,1)
set cursor 520,315 : Print "Slot(3,1) = ";Slot(3,1)
set cursor 520,330 : Print "Slot(4,1) = ";Slot(4,1)
set cursor 520,345 : Print "Slot(5,1) = ";Slot(5,1)
set cursor 520,360 : Print "Slot(6,1) = ";Slot(6,1)
set cursor 520,375 : Print "Slot(7,1) = ";Slot(7,1)
set cursor 520,390 : Print "Slot(8,1) = ";Slot(8,1)
set cursor 520,405 : Print "Slot(9,1) = ";Slot(9,1)
set cursor 520,420 : Print "Slot(10,1) = ";Slot(10,1)

do:loop

+ Code Snippet

Rem * Title  : Donald Smith
Rem * Author : Nov 1, 2022
REM *** Slot(X,1) holds the $$$ amounts in ascending order, bottom to top ***
REM *** Slot(X,2) if (X,2) = 0, the slot is useable & 1 if not ***

DIM Slot(10,2)

REM *** When clicked, this places the money in the slot clicked and ***
REM *** places the amount in Slot(X,1) ***

DIM MiddlePanel(10,2)

REM *** Draws the 10 slots ***

X =  235 : Y = 39
   For Draw = 1 to 10
   ink rgb(0,255,0),1

REM *** Stores the X & Y positions ***
   MiddlePanel(11 - Draw,1) = X : MiddlePanel(11 - Draw,2) = Y

REM *** Clears the slots ***

   Slot(11 - Draw,1) = 0 : REM *** This is the money portion ***
   Slot(11 - Draw,2) = 0 : REM *** This is the flag, 0 if empty, 1 if not ***

REM *** This draws the outside line then the inside line ***

   line x, y, x + 169, y
   line x + 1 , y + 1, x + 168, y + 1

   line x + 169, y ,x + 169, y + 30
   line x + 168, y + 1 ,x + 168, y + 29

   line x + 169, y + 30, x, y + 30
   line x + 168, y + 29, x + 1, y + 29

   line x, y + 30, x, y
   line x + 1, y + 29, x + 1, y + 1

REM *** This draws the slot numbers in descending order ***

   ink rgb(128,128,128),1
   Num$ = STR$(11 - Draw)
   set text font "Gulim"
   set text size 12
if Draw = 1
    center text 314,y + 5,"."
    center text 319,y + 10,Num$
    center text 327,y + 5,"."
else
     if Draw >= 2 and Draw <= 10
        center text 316,y + 5,"."
        center text 320,y + 10,Num$
        center text 325,y + 5,"."
     endif
endif

Y = Y + 35
Next Draw
REM *** Draws the 10 slots ***


REM *** Change line 68 to a value in-between & the slot values in-between light up ***
REM *** Comment out line 70 & leave the Money value alone and the slot values below light up ***
REM *** Comment out line 71 & leave the Money value alone and the slot values above light up ***

Money = 30

Slot(3,1) = 11 : Slot(3,2) = 1
Slot(9,1) = 85 : Slot(9,2) = 1


ink rgb(0,0,0),1
box 0,455,639,479
ink rgb(0,128,0),1
set cursor 175, 459 : Print "In which slot do you want to place the ";"$";Money;",000?"

REM *** This section shows what slots are available for input ***



REM *** Checks to see if all the slots are empty ***
For EmptyCheck = 1 to 10
  If Slot(11 - EmptyCheck,2) = 1 then goto NextTest
Next EmptyCheck
  If EmptyCheck = 11
     LowEnd = 1
     HighEnd = 10
     goto AllEmpty
  endif
REM *** Checks to see if all the slots are empty ***



REM *** Checks for the HighEnd value ***
NextTest:
Compare = 10 : HighEnd = 0
  HighCheckAgain:
      If Slot(Compare,2) = 0 then goto NextValue1
      If Slot(Compare,2) = 1
         If Money < Slot(Compare,1) then HighEnd = Compare
      endif
  NextValue1:
      Compare = Compare - 1
      If Compare <> 0 then goto HighCheckAgain
      If HighEnd = 0 then HighEnd = 11
      If HighEnd = 0 then goto HighCheckDone
      If Slot(HighEnd - 1) = 0 then HighEnd = HighEnd - 1
REM *** Checks for the HighEnd value ***



REM *** Checks for the LowEnd value ***
HighCheckDone:
Compare = 1 : LowEnd = 0
  LowCheckAgain:
      If Slot(Compare,2) = 0 then goto NextValue2
      If Slot(Compare,2) = 1
         If Money > Slot(Compare,1) then LowEnd = Compare
      endif
  NextValue2:
      Compare = Compare + 1
      If Compare <> 11 then goto LowCheckAgain
      If Slot(LowEnd + 1) = 0 then LowEnd = LowEnd + 1
REM *** Checks for the LowEnd value ***



REM *** Shows the useable slots ***
  AllEmpty:
    X = 235
    If HighEnd = 10 then Y = 39 else Y = 39 + ((10 - HighEnd) * 35)
      For Draw = HighEnd to LowEnd step -1
        ink rgb(0,120,0),1
        box x + 3, y + 3, 308, y + 27
        circle 320,y + 15,10
        box 332,y + 3, x + 166, y + 27
        Y = Y + 35
      Next Draw
REM *** Shows the useable slots ***



REM *** This section shows what slots are available for input ***

set cursor 520,210 : Print "Money = ";Money

set cursor 520,240 : Print "LowEnd = ";LowEnd
set cursor 520,255 : Print "HighEnd = ";HighEnd

set cursor 520,285 : Print "Slot(1,1) = ";Slot(1,1)
set cursor 520,300 : Print "Slot(2,1) = ";Slot(2,1)
set cursor 520,315 : Print "Slot(3,1) = ";Slot(3,1)
set cursor 520,330 : Print "Slot(4,1) = ";Slot(4,1)
set cursor 520,345 : Print "Slot(5,1) = ";Slot(5,1)
set cursor 520,360 : Print "Slot(6,1) = ";Slot(6,1)
set cursor 520,375 : Print "Slot(7,1) = ";Slot(7,1)
set cursor 520,390 : Print "Slot(8,1) = ";Slot(8,1)
set cursor 520,405 : Print "Slot(9,1) = ";Slot(9,1)
set cursor 520,420 : Print "Slot(10,1) = ";Slot(10,1)


do:loop

Thanks, Donald

Back to top

Profile PM

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 2nd Nov 2022 17:55

Link

Hi,

I'm looking at your code. It's organized a little differently than I'm used to so I'll have to sort out what you did. I saw a few GOTOs in there within the same subroutine blocks. I think there can be some improvements there. Also Instead of drawing the boxes each loop, you can store graphics of them off screen on another bitmap and just copy them over - or assign the box to an image number.

One thing, I wasn't able to select or click on anything so I didn't understand how to select a slot to put the dollars in. I think that's because you have a do:loop at the bottom of the code that will never end.

Let me mull it over a little to think of simplified code.

Enjoy your day.

Back to top

Profile PM

Donald Smith

21

Years of Service

User Offline

Joined: 15th Nov 2002

Location:

Posted: 2nd Nov 2022 19:44

Link

Hello,
I just changed the value of Money in the code just to see how the program would react. I haven't copied and pasted the new code I wrote into the existing program where I can actually click on slots and the 50 panels yet...no time like the present.

Donald

Back to top

Profile PM

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 3rd Nov 2022 17:02 Edited at: 3rd Nov 2022 17:07

Link

Hi Donald,

Ok I had to write a complete working game to understand what was giving you trouble. I have to say, I agree: finding the available slots was a little tricky! I'll still stick to my guns though - with a slight variation. I feel you have to loop up when your looking for a high limit, and you have to loop down when looking for a low value. No difference there. I changed the original code above pretty much entirely.

From the new code I'll post only the subroutine (at the bottom of this message) that handles all of the checking. In the main code, the subroutine is activated as soon as someone chooses a card with a hidden money value. The flag "curcard" is set with the number of the card that was chosen once a card is LEFT CLICKED.

Main code jump point

+ Code Snippet

      if curcard<>0
         center text 512,0,"The Dollar Amount Chosen Is: " + str$(choosemoney(curcard))
         center text 512,30,"Right Click on an available slot to add the dollars"
         
         rem list the available slots
         gosub _availableslots

1. The first thing the subroutine (SR) does is to DEACTIVATE ALL of the slots whether they are empty or not. This ensures a possible losing status and will only display available slots in the end.
2. Next the SR loops from slot 10 to slot 1 to find the low value. What was important here was to check each slot for a non-zero value that was lower than the amount chosen and if it was found, to immediately exit the loop. The logic being since you are moving down in slots starting from the highest slot, the first money value that is lower than the amount you chose is you floor (lowest possible value).
3. Since we have our low value, we loop up from that slot to slot 10. As soon as we find a non-zero value that is higher than the amount we chose, we get out of the loop with that slot number. That would be our ceiling. Otherwise we just keep increasing the high slot value until we reach 10
4. Last, we know the range where possible available slots exist. We loop between the low and high. If any of these slots have a 0 dollar value in them, we show them as available (green) and we set slot(x,2)=0. Remember when we set all flags to 1? well that's because we want to show NOW only the available slots within our range that have zero dollars by unsetting that flag.

It probably seems weird to have initially set all of the flags to 1. That actually doesn't matter because in the main program, I can show all of the slots anyway I choose because unless I've chosen a card, I don't need to know which slots are available since I can't put anything in a slot unless I've chosen a card. The SR is only active when I've chosen a card and that's when it greys out the unavailable slots and opens up the available ones if there are any.

It's pretty straight forward I think when you look at the code. I haven't found a simpler way at this point.

_availableslots:
      rem first, deactivate all slots and set the color to gray
      for av=1 to 10
         slot(av,2)=1
         paste image 61,390,(av*60)+60
         center text 512,(av*60)+70,str$(slot(av,1))
         text 350,(av*60)+70,str$(av)
      next av
      
      rem set low slot number
      for av=10 to 1 step -1
         if choosemoney(curcard) > slot(av,1)
            lowvalue=av
            if slot(av,1)<>0 then exit
         endif
      next av
      
      rem set high slot number
      for av=lowvalue to 10
         if choosemoney(curcard)<slot(av,1)
            highvalue=av
            exit
         else
            inc highvalue
            if highvalue >=10 then highvalue=10
         endif
      next av 
      
      rem ok, we have the high and low values
      rem loop in between them to determine if the slot is actually available
      if lowvalue=10 or lowvalue=0 then lowvalue=1
      if highvalue=0 then highvalue=10
      for av=lowvalue to highvalue
         if slot(av,2)=0 or (slot(av,2)=1 and slot(av,1)=0)
            slot(av,2)=0
            paste image 60,390,(av*60)+60
            center text 512,(av*60)+70,str$(slot(av,1))
         endif
      next av
      sync     
            
   return

+ Code Snippet

   _availableslots:
      rem first, deactivate all slots and set the color to gray
      for av=1 to 10
         slot(av,2)=1
         paste image 61,390,(av*60)+60
         center text 512,(av*60)+70,str$(slot(av,1))
         text 350,(av*60)+70,str$(av)
      next av
      
      rem set low slot number
      for av=10 to 1 step -1
         if choosemoney(curcard) > slot(av,1)
            lowvalue=av
            if slot(av,1)<>0 then exit
         endif
      next av
      
      rem set high slot number
      for av=lowvalue to 10
         if choosemoney(curcard)<slot(av,1)
            highvalue=av
            exit
         else
            inc highvalue
            if highvalue >=10 then highvalue=10
         endif
      next av 
      
      rem ok, we have the high and low values
      rem loop in between them to determine if the slot is actually available
      if lowvalue=10 or lowvalue=0 then lowvalue=1
      if highvalue=0 then highvalue=10
      for av=lowvalue to highvalue
         if slot(av,2)=0 or (slot(av,2)=1 and slot(av,1)=0)
            slot(av,2)=0
            paste image 60,390,(av*60)+60
            center text 512,(av*60)+70,str$(slot(av,1))
         endif
      next av
      sync     
            
   return

Enjoy your day.

Back to top

Profile PM

Donald Smith

21

Years of Service

User Offline

Joined: 15th Nov 2002

Location:

Posted: 9th Nov 2022 03:21

Link

Latch,
In your code, if slots 1 - 7 are filled and the money amount chosen is a valid pick for slots 8 - 10. It seem that the lowend value is correct but the highend value isn't changing.

Donald

Back to top

Profile PM

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 11th Nov 2022 17:59 Edited at: 11th Nov 2022 18:18

Link

No. It works, though I didn't account for a case where an existing dollar amount is chosen. In the attached screenshot using the code, the next card chosen is 8000. Slots 1-7 are filled, so 8 9 and 10 are available (they are green which means available in my version). Note: I display them 1 at the top 10 at the bottom.

The low end value in this case would be slot 7. The code would start to count down the variable "av" from 10 to 1. "av" checks to see if the money in the current "av" slot is NOT 0 and lower than the chosen amount. If those two criteria are met, we've found the floor value and the loop is exited. In the screen shot example:

New value chosen = 8000

pass 1 av=10 slot value = 0 : move on to the next one
pass 2 av=9 slot value = 0 : move on
pass 3 av=8 slot value = 0 : move on
pass 4 av=7 slot value = 7000 : Is it less than 8000 ? Yes. Is it not = 0? Yes.
lowvalue = av = 7 exit loop

The high value is then looked for by looping UP from the lowvalue . It loops 7 to 10. It will look in the slots until it finds a higher dollar value than 8000. If none is found, then the ceiling is set to 10.

The final loop goes from lowvalue to highvalue (7 to 10 in this case). If the slot dollar values are 0, then these slots are made available to put money in.

Enjoy your day.

Attachments

Login to view attachments

Back to top

Profile PM

Donald Smith

21

Years of Service

User Offline

Joined: 15th Nov 2002

Location:

Posted: 14th Nov 2022 04:41

Link

Latch,
So I had to tweak your subroutine to make it work for my program

+ Code Snippet

  
_availableslots:

      rem set Low slot number
      for Find=10 to 1 step -1
         if Money > slot(Find,1)
            LowEnd = Find
            if slot(Find,1)<>0 then LowEnd = Find + 1 : exit
      endif
      next av

  rem Look for HighEnd value
    for Find = LowEnd to 10
          if Money > slot(Find,1)
          HighEnd = Find
    else
          exit
    endif
    next Find

Otherwise, I think I can move to the Pass and Swap portions now. I'll keep you in the loop.

Donald

Back to top

Profile PM

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 17th Nov 2022 06:58

Link

I just discovered there is an error in my logic. I haven't figured out what it is but I'm able to force slots to remain open when they shouldn't. Maybe you bypassed it.

Enjoy your day.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Ranges in-between numbers

Attachments