forum.vdsworld.com

[Rubes_sw]

How about a VDS prog that can build a word search.

you know the type of thing:

B E[/] [u]D[/] Y H G H J K
O N U M K U J H G
N I K K J U N M U
E Y H U J G H M N

Loading a list of words from a file and creating the word search automatically. But if you load the list of words again it will generate a new word search.

Anyway here's what i have come up with so far;

ps. I still a newbie to VDS:-)

Code:

DIALOG CREATE,New Dialog,-1,0,500,400   DIALOG ADD,GROUP,GROUP1,24,2,388,354,GROUP1   dialog add,style,style1,,16   DIALOG ADD,STATUS,SP   DIALOG ADD,LIST,LIST1,38,6,378,334,,,style1   DIALOG ADD,BUTTON,BUTTON1,60,400,64,24,BUTTON1   dialog show     :evloop   wait event   goto @event()     :button1button   list clear,list1   LIST CREATE,1   list add,1,B|E|D   list add,1,L|I|F|E   list add,1,V|I|S|U|A|L   list add,1,I|S   list add,1,G|R|A|P|H|I|C   LIST ADD,1,C|O|O|L   DIALOG SET,SP,@COUNT(1) Words Found. Compiling Word Search. Please wait.......   list seek,1,0   REM REPEAT   %a = @item(1)   %b = @len(%a)   REM GET A RAMDON DIRECTION whether the word should go across or go down!   %%ran = @random(1,3)   if @equal(%%ran,1)   %%direction = ACROSS   goto next   end   %%direction = DOWN   :next   DIALOG SET,SP,@COUNT(1) Words Found. Compiling Word Search. Please wait....... Word Direction: %%direction   IF @equal(%%direction,ACROSS)   PARSE "%%A1;%%A2;%%A3",%A   goto build   end   IF @equal(%%direction,DOWN)   PARSE "%%A1;%%A10;%%A19",%A   goto build   end         REM goto evloop   :build   list close,1   list add,list1,%%A1@tab()%%A2@tab()%%A3@tab()%%A4@tab()%%A5@tab()%%A6@tab()%%A7@tab()%%A8@tab()%%A9   list add,list1,%%A10@tab()%%A11@tab()%%A12@tab()%%A13@tab()%%A14@tab()%%A15@tab()%%A16@tab()%%A17@tab()%%A18   list add,list1,%%A19@tab()%%A20@tab()%%A21@tab()%%A22@tab()%%A23@tab()%%A24@tab()%%A25@tab()%%A26@tab()%%A27   list add,list1,%%A28@tab()%%A29@tab()%%A30@tab()%%A31@tab()%%A32@tab()%%A33@tab()%%A34@tab()%%A35@tab()%%A36   list add,list1,%%A37@tab()%%A38@tab()%%A39@tab()%%A40@tab()%%A41@tab()%%A42@tab()%%A43@tab()%%A44@tab()%%A45   list add,list1,%%A46@tab()%%A47@tab()%%A48@tab()%%A49@tab()%%A50@tab()%%A51@tab()%%A52@tab()%%A53@tab()%%A54   list add,list1,%%A56@tab()%%A57@tab()%%A58@tab()%%A59@tab()%%A60@tab()%%A61@tab()%%A62@tab()%%A63@tab()%%A64   list add,list1,%%A65@tab()%%A66@tab()%%A67@tab()%%A68@tab()%%A69@tab()%%A70@tab()%%A71@tab()%%A72@tab()%%A73   list add,list1,%%A74@tab()%%A75@tab()%%A76@tab()%%A77@tab()%%A78@tab()%%A79@tab()%%A80@tab()%%A81@tab()%%A82   list add,list1,%%A83@tab()%%A84@tab()%%A85@tab()%%A86@tab()%%A87@tab()%%A88@tab()%%A89@tab()%%A90@tab()%%A91   list add,list1,%%A92@tab()%%A93@tab()%%A94@tab()%%A95@tab()%%A96@tab()%%A97@tab()%%A98@tab()%%A99@tab()%%A100   list add,list1,%%A101@tab()%%A102@tab()%%A103@tab()%%A104@tab()%%A105@tab()%%A106@tab()%%A107@tab()%%A108@tab()%%A109   list add,list1,%%A110@tab()%%A111@tab()%%A112@tab()%%A113@tab()%%A114@tab()%%A115@tab()%%A116@tab()%%A117@tab()%%A118   goto evloop

[u]

rubes_sw

[Mac]

That's a pretty cool idea.

How about one where the computer competes with
you finding the words in a given time limit? Yeah, I
know - one thing at a time....

I have an old Win3x game called "Bago", which gives
you 3 minutes or so to find as many words as you can
against the computer. It's not a straight "word search"
though, the letters can be connected in any direction.
And it's only 5x5 letters.

Hmmm... the "Bago" game may just load random
letters...

Cheers, Mac