9 x 9 grid using bmp buttons

[dkl]

Although, I haven't fully completed my Word Puzzle Game, I have started a new project and wanted to try to emulate a favourite app of mine.

Rod I saw what you did with your 'Grid' in 'Scrabble Assistant' and I haven't used your way .........YET! As this query is a slightly different issue. However, to produce my grid I took the Word Puzzle demo I posted a few days ago and simply upgraded it to 9 x 9 and placed it all into a two dimensional array

As seen in the pic below, I have created a two dimensional Array$, which produces a 9 x 9 grid (I have pointed out the corner co-ordinates), which relates directly to the Array$ (ie Letr$(1,1) that holds the bmp positioned at #w.11).

Using Rod's (very helpful) code - WH$ = "#w":MC$ = WH$;".";CH$

which I have added to the subroutine below (another really helful piece of code someone gave me!). I hope I've typed it correctly?

sub buttonClick handle$
SV=val(right$(handle$, 2))
CH$ = str$(SV): MC$ = WH$;".";CH$

#MC$ "disable" 'or hide

SAV$ = mid$(MC$,4,1);",";right$(MC$,1) '<---- I have added this

print MC$;"Letr1$(";SAV$;")" '<---- which when printed out will give me - #w.11,Letr$(1,1) - but i need to be able to turn this into a 'real' array that I can access

call assign MC$, SAV$ '<----last piece of code from subroutine to store info at assign'
end sub

I want to be able to click a letter and swap it with another letter. I have seen the demo in the LB Help section under bmpbuttons and I used this basis in the demo I recently posted (re Word Puzzle Game), but it relies on over laying bmpbuttons over each other and multiple branchlabels to execute the desired change.

I am planning to ............
highlight Letter 1
highlight Letter 2, which will immediately put 'letter2' into a tempfile,
update Letter 2 position/array with letter 1
replace Letter 1 with Letter 2 and update position/array

Hope you haven't completely lost me!

So what I need to be able to do is get the info from the arrays containing letter 1 and 2. This is the bit I cannot understand how to do without loads of 'IF/THEN' statements.

Any help would be appreciated. Thank you.
Grid.bmp (173.34 KB)

[Brandon Parker]

In order to get LB to evaluate that as a constructed array you just need to actually evaluate it.

Print Eval$("Letr1$(";SAV$;")")

That will get LB to print out whatever is at Letr1$(i,j), where "i,j" is determined by your previously constructed SAV$ variable.


{:0)

Brandon Parker

[dkl]

ah..... thanks you Brandon, I've never used that command before, but had just worked it out before I saw your post!

I did this...............
SAV$ = mid$(MC$,4,1);",";right$(MC$,1)

r = val(mid$(MC$,4,1)):c = val(right$(MC$,1))

print Letr1$(r,c)

I'll try out Eval$ now. I'm glad I can move forward now.

[dkl]

I've posted a working version my 9x9 grid ...................... ln5.sync.com/dl/30fb59010/e7y2fkne-timqtqyj-atsy5fs5-qe2y2spx

click any letter and then another and the tiles should swap.

It needs the dictionary and tiles, but they are included in the zip file. I do get the occasional glitch and I'm not sure why. The tile I want to move doesn't always get moved. But it only seems to happen once and then it's OK - odd! If anyone can see why the glitch happens, please let me know

It not as elegantly written as the version tsh73 recently posted. Now I have to add all the playing elements and figure out a way to check if a word has been formed whenever a letter is moved. It involves checking the complete grid. Hmm.....

[Rod]

I can't get it to run. The hard coded paths are an issue as before. I also get an error on the eval$( lines that may be an Pro issue. Fixing the paths issue I get a return without go sub error. The letters do display.

To fix the paths issue once and for all just stop using paths. Put everything the program needs inside one folder, don't create sub folders. Now just zip that folder for distribution. That way anyone can extract your zipped folder anywhere on their PC and the program within will run.

The issue of the tiles not reacting on first click is probably because you have not set the focus. Once running and the graphics drawn you should set focus on the graphic box so that mouse input will be recognised immediately. If you don't do that you have to click once in the graphic box to get focus then again to get an event actioned.

[tsh73]

Works nice for me. Could perceived glitch be just lack of visual feedback?
I just watched wideo
www.youtube.com/watch?v=Ed4esFPHKjo
so I see game has visual feedback - once clicked letters became visible (blue glow tile)

---

EDIT after seeing Rod's responce:
and I changed paths to
Ts$ = ".\plop.wav"
Ds$ = ".\dum.wav"
f$ = ".\9 letter words - Collins Scrabble Words.txt"

and eval to

       'temp2$ = Eval$("Letr1$(";SAV$;")")
       temp2$ = Letr1$(val(left$(SAV$,1)),val(right$(SAV$,1)))

       'start1$ = Eval$("Letr1$(";SAV$;")")
       start1$ = Letr1$(val(left$(SAV$,1)),val(right$(SAV$,1)))


(so I actually run this in JB which does not support EVAL)

[dkl]

Glad it works fine for you tsh73. Sorry about your continued problems with my programming Rod.

Ah.... I see tsh73, re the folders, I had been doing what you suggested, but I was using the syntax incorrectly

re the visual feedback - yes, I am aware of the lack of it and I had already made a set of tiles to highlight, but haven't got that far in the coding yet. I think the different colour tiles that also have different score values help, as well as the blank tiles too.

Thanks for the code changes. Now I have an idea of the whole concept of what I'm trying to do, I hope I can progress forward now.

Have a good day:)