automating selection

[tsh73]

Like, generating a player character by roll of dice
(animated window, press Generate)
First group selects at random,
second goes in cycle downwards (but in the end set random)
checkboxes are toggled at random.
Probably there is a better way?

'   Form created with the help of Freeform-J v.261006
'   Generated on Sep 15, 2022 at 18:51:59

   nomainwin

   WindowWidth = 864
   WindowHeight = 295

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   groupbox #main.groupbox1, "Law/chaos", 30, 11, 128, 155
   groupbox #main.groupbox2, "Good/Evil", 166, 11, 128, 155
   groupbox #main.groupbox3, "Perks", 310, 11, 144, 155
   radiobutton #main.rb1, "Lawful", [dummy], [dummy], 46, 46, 100, 20
   radiobutton #main.rb2, "Neutral", [dummy], [dummy], 46, 71, 100, 20
   radiobutton #main.rb3, "Chaotic", [dummy], [dummy], 46, 96, 100, 20
   radiobutton #main.rb4, "Good", [dummy], [dummy], 198, 46, 100, 20
   radiobutton #main.rb5, "Neutral", [dummy], [dummy], 198, 71, 100, 20
   radiobutton #main.rb6, "Evil", [dummy], [dummy], 198, 96, 100, 20
   checkbox #main.ch1, "Ranger", [dummy],[dummy] , 342, 46, 100, 20
   checkbox #main.ch2, "Empathy", [dummy],[dummy] , 342, 71, 100, 20
   checkbox #main.ch3, "Healer", [dummy],[dummy] , 342, 96, 100, 20
   checkbox #main.ch4, "Mechanic", [dummy],[dummy] , 342, 121, 100, 20
   texteditor #main.txt, 470, 16, 368, 195
   button #main.btReset, "Reset", [btResetClick], UL, 30, 176, 112, 25
   button #main.btGenerate, "Generate", [btGenerateClick], UL, 174, 176, 112, 25
   button #main.btAccept, "Accept", [btAcceptClick], UL, 318, 176, 128, 25
   menu #main, "Edit"    '<--- Texteditor Menu can be moved but not removed.

   'values corersponding to check/radio, to be WORD$ separated
   rb$="Lawful Neutral Chaotic Good Neutral Evil"
   ch$="Ranger Empathy Healer Mechanic"

   open "selection+generation" for window as #main
   print #main, "trapclose [quit.main]"

   print #main, "font ms_sans_serif 10"

   goto [btResetClick]

   wait

[quit.main]
   Close #main
   END


[dummy]    'Perform action for the radiobutton named 'rb1'
   'Insert your own code here
   wait


[btResetClick]    'Perform action for the button named 'btReset'
   'Insert your own code here
   #main.rb2 "set"
   #main.rb5 "set"
   #main.ch1 "reset"
   #main.ch2 "reset"
   #main.ch3 "reset"
   #main.ch4 "reset"
   wait


[btGenerateClick]    'Perform action for the button named 'btGenerate'
   'Insert your own code here
   dt=300
   goto  [tick]
   wait

[tick]
   timer 0

   'first group goes random
   r1=int(rnd(0)*3)+1  '1..3
   hndl$="#main.rb";r1
   #hndl$ "set"

   'secong group cycle
   'r2=int(rnd(0)*3)+4  '4..6
   r2=(r2+1) mod 3           '0..2
   hndl$="#main.rb";r2+4     '4..6
   #hndl$ "set"

   r3=int(rnd(0)*4)+1  '1..4
   hndl$="#main.ch";r3
   #hndl$ "value? res$"
   if res$="set" then #hndl$ "reset" else #hndl$ "set" 'toggle

   if dt>50 then
       dt=dt-15
       timer dt, [tick]
   else
       'if second group changes in cycle order, output supposed to be the same?
       'but we want it to be different so randomize at the end
       r2=int(rnd(0)*3)+4  '4..6
       hndl$="#main.rb";r2
       #hndl$ "set"

       timer 0
   end if

   wait

[btAcceptClick]    'Perform action for the button named 'btAccept'
   t$=space$(4)
   #main.txt "!cls"
   #main.txt "So by sheer force of fortune your alignment is ..."
   '#main.txt t$;"Lawful Neutral"
   dim rb(6)
   for i =1 to 6
       hndl$="#main.rb";i
       #hndl$ "value? res$"
       rb(i)= (res$="set")
       '#main.txt i;" ";res$
   next
   if rb(2) and rb(5) then
       txt$=txt$+t$+word$(ch$,i)
       #main.txt t$;"True neutral"
   else
       txt$=""
       for i =1 to 3
           if rb(i) then txt$=txt$+ t$;word$(rb$,i)
       next
       for i =4 to 6
           if rb(i) then txt$=txt$+ " ";word$(rb$,i)
       next
       #main.txt txt$
   end if

   '#main.txt "posessing traits"
   '#main.txt t$;"Empathy"
   '#main.txt t$;"Healer"
   txt$=""
   for i =1 to 4
       hndl$="#main.ch";i
       #hndl$ "value? res$"
       if res$="set" then txt$=txt$+t$+word$(ch$,i)+chr$(13)
       '#main.txt word$(ch$,i);" ";res$
   next
   if txt$<>"" then
       #main.txt "posessing traits"
       #main.txt txt$
   end if
   wait


[honkytonk]

Suggestion:
'********** = rows added
added lines between
'***************
and
'***************
clic--> "Chaos"

 nomainwin

   WindowWidth = 864
   WindowHeight = 295

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   groupbox #main.groupbox1, "Law/chaos", 30, 11, 128, 155
   groupbox #main.groupbox2, "Good/Evil", 166, 11, 128, 155
   groupbox #main.groupbox3, "Perks", 310, 11, 144, 155
   radiobutton #main.rb1, "Lawful", [dummy], [dummy], 46, 46, 100, 20
   radiobutton #main.rb2, "Neutral", [dummy], [dummy], 46, 71, 100, 20
   radiobutton #main.rb3, "Chaotic", [dummy], [dummy], 46, 96, 100, 20

   radiobutton #main.rb9, "Chaos", [Chaos], [dummy], 46, 130, 100, 20'****************
   radiobutton #main.rb4, "Good", [dummy], [dummy], 198, 46, 100, 20
   radiobutton #main.rb5, "Neutral", [dummy], [dummy], 198, 71, 100, 20
   radiobutton #main.rb6, "Evil", [dummy], [dummy], 198, 96, 100, 20
   checkbox #main.ch1, "Ranger", [dummy],[dummy] , 342, 46, 100, 20
   checkbox #main.ch2, "Empathy", [dummy],[dummy] , 342, 71, 100, 20
   checkbox #main.ch3, "Healer", [dummy],[dummy] , 342, 96, 100, 20
   checkbox #main.ch4, "Mechanic", [dummy],[dummy] , 342, 121, 100, 20
   texteditor #main.txt, 470, 16, 368, 195
   button #main.btReset, "Reset", [btResetClick], UL, 30, 176, 112, 25
   button #main.btGenerate, "Generate", [btGenerateClick], UL, 174, 176, 112, 25
   button #main.btAccept, "Accept", [btAcceptClick], UL, 318, 176, 128, 25
   menu #main, "Edit"    '<--- Texteditor Menu can be moved but not removed.

   'values corersponding to check/radio, to be WORD$ separated
   rb$="Lawful Neutral Chaotic Good Neutral Evil"
   ch$="Ranger Empathy Healer Mechanic"

   open "selection+generation" for window as #main
   print #main, "trapclose [quit.main]"

   print #main, "font ms_sans_serif 10"

   goto [btResetClick]

   wait
   '***************************
 [Chaos]
   ra$="1 2 3": rb$="4 5 6": rc$="1 2 3 4"
   ra=int(rnd(1)*3) + 1
   rb=int(rnd(1)*3) + 1
   rc=int(rnd(1)*4) + 1
   ripa=val(word$(ra$,ra)): ripb=val(word$(rb$,rb)): ripc=val(word$(rc$,rc))
    hndl$="#main.rb";ripa
    #hndl$ "set"
    hndl$="#main.rb";ripb
    #hndl$ "set"
    hndl$="#main.ch";ripc
    #hndl$ "set"
 wait
 '*******************************
[quit.main]
   Close #main
   END

[dummy]    'Perform action for the radiobutton named 'rb1'
   'Insert your own code here
   wait


[btResetClick]    'Perform action for the button named 'btReset'
   'Insert your own code here
   #main.rb2 "reset"
   #main.rb5 "reset"
   #main.ch1 "reset"
   #main.ch2 "reset"
   #main.ch3 "reset"
   #main.ch4 "reset"
   #main.rb9 "reset"
   wait


[btGenerateClick]    'Perform action for the button named 'btGenerate'
   'Insert your own code here
   dt=300
   goto  [tick]
   wait

[tick]
   timer 0

   'first group goes random
   r1=int(rnd(0)*3)+1  '1..3
   hndl$="#main.rb";r1
   #hndl$ "set"

   'secong group cycle
   'r2=int(rnd(0)*3)+4  '4..6
   r2=(r2+1) mod 3           '0..2
   hndl$="#main.rb";r2+4     '4..6
   #hndl$ "set"

   r3=int(rnd(0)*4)+1  '1..4
   hndl$="#main.ch";r3
   #hndl$ "value? res$"
   if res$="set" then #hndl$ "reset" else #hndl$ "set" 'toggle

   if dt>50 then
       dt=dt-15
       timer dt, [tick]
   else
       'if second group changes in cycle order, output supposed to be the same?
       'but we want it to be different so randomize at the end
       r2=int(rnd(0)*3)+4  '4..6
       hndl$="#main.rb";r2
       #hndl$ "set"

       timer 0
   end if

   wait

[btAcceptClick]    'Perform action for the button named 'btAccept'
   t$=space$(4)
   #main.txt "!cls"
   #main.txt "So by sheer force of fortune your alignment is ..."
   '#main.txt t$;"Lawful Neutral"
   dim rb(6)
   for i =1 to 6
       hndl$="#main.rb";i
       #hndl$ "value? res$"
       rb(i)= (res$="set")
       '#main.txt i;" ";res$
   next
   if rb(2) and rb(5) then
       txt$=txt$+t$+word$(ch$,i)
       #main.txt t$;"True neutral"
   else
       txt$=""
       for i =1 to 3
           if rb(i) then txt$=txt$+ t$;word$(rb$,i)
       next
       for i =4 to 6
           if rb(i) then txt$=txt$+ " ";word$(rb$,i)
       next
       #main.txt txt$
   end if

   '#main.txt "posessing traits"
   '#main.txt t$;"Empathy"
   '#main.txt t$;"Healer"
   txt$=""
   for i =1 to 4
       hndl$="#main.ch";i
       #hndl$ "value? res$"
       if res$="set" then txt$=txt$+t$+word$(ch$,i)+chr$(13)
       '#main.txt word$(ch$,i);" ";res$
   next
   if txt$<>"" then
       #main.txt "posessing traits"
       #main.txt txt$
   end if
   wait


[tsh73]

Thanks honkytonk
But your "Chaos" radiobutton behaves as command button.
I would say this is pretty chaotic for me ;)

(also it spoils rb$ wariable that contains alignments as a text)

[honkytonk]

"Chaos" is chaotic, for sure.
But "Chaotic" is going to be chaotically in: "Chaotic" .

 nomainwin

   WindowWidth = 864
   WindowHeight = 295

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   groupbox #main.groupbox1, "Law/chaos", 30, 11, 128, 155
   groupbox #main.groupbox2, "Good/Evil", 166, 11, 128, 155
   groupbox #main.groupbox3, "Perks", 310, 11, 144, 155
   radiobutton #main.rb1, "Lawful", [dummy], [dummy], 46, 46, 100, 20
   radiobutton #main.rb2, "Neutral", [dummy], [dummy], 46, 71, 100, 20
   radiobutton #main.rb3, "Chaotic", [dummy], [dummy], 46, 96, 100, 20
   radiobutton #main.rb4, "Good", [dummy], [dummy], 198, 46, 100, 20
   radiobutton #main.rb5, "Neutral", [dummy], [dummy], 198, 71, 100, 20
   radiobutton #main.rb6, "Evil", [dummy], [dummy], 198, 96, 100, 20
   checkbox #main.ch1, "Ranger", [dummy],[dummy] , 342, 46, 100, 20
   checkbox #main.ch2, "Empathy", [dummy],[dummy] , 342, 71, 100, 20
   checkbox #main.ch3, "Healer", [dummy],[dummy] , 342, 96, 100, 20
   checkbox #main.ch4, "Mechanic", [dummy],[dummy] , 342, 121, 100, 20
   texteditor #main.txt, 470, 16, 368, 195
   button #main.btReset, "Reset", [btResetClick], UL, 30, 176, 112, 25
   button #main.btGenerate, "Generate", [btGenerateClick], UL, 174, 176, 112, 25
   button #main.btAccept, "Accept", [btAcceptClick], UL, 318, 176, 128, 25
   menu #main, "Edit"    '<--- Texteditor Menu can be moved but not removed.

   'values corersponding to check/radio, to be WORD$ separated
   rb$="Lawful Neutral Chaotic Good Neutral Evil"
   ch$="Ranger Empathy Healer Mechanic"

   open "selection+generation" for window as #main
   print #main, "trapclose [quit.main]"

   print #main, "font ms_sans_serif 10"

   goto [btResetClick]

   wait
   '***************************
 [Chaos]
   ra$="1 2 3": rb$="4 5 6": rc$="1 2 3 4"
   ra=int(rnd(1)*3) + 1
   rb=int(rnd(1)*3) + 1
   rc=int(rnd(1)*4) + 1
   ripa=val(word$(ra$,ra)): ripb=val(word$(rb$,rb)): ripc=val(word$(rc$,rc))
    hndl$="#main.rb";ripa
    #hndl$ "set"
    hndl$="#main.rb";ripb
    #hndl$ "set"
    hndl$="#main.ch";ripc
    #hndl$ "set"
 wait
 '*******************************
[quit.main]
   Close #main
   END

[dummy]    'Perform action for the radiobutton named 'rb1'
   'Insert your own code here
#main.ch1, "reset": #main.ch2, "reset": #main.ch3, "reset": #main.ch4, "reset"
   #main.rb3, "value? res$"
   if res$="set" then [Chaos]
   wait


[btResetClick]    'Perform action for the button named 'btReset'
   'Insert your own code here
   #main.rb2 "reset"
   #main.rb5 "reset"
   #main.ch1 "reset"
   #main.ch2 "reset"
   #main.ch3 "reset"
   #main.ch4 "reset"
   wait


[btGenerateClick]    'Perform action for the button named 'btGenerate'
   'Insert your own code here
   dt=300
   goto  [tick]
   wait

[tick]
   timer 0

   'first group goes random
   r1=int(rnd(0)*3)+1  '1..3
   hndl$="#main.rb";r1
   #hndl$ "set"

   'secong group cycle
   'r2=int(rnd(0)*3)+4  '4..6
   r2=(r2+1) mod 3           '0..2
   hndl$="#main.rb";r2+4     '4..6
   #hndl$ "set"

   r3=int(rnd(0)*4)+1  '1..4
   hndl$="#main.ch";r3
   #hndl$ "value? res$"
   if res$="set" then #hndl$ "reset" else #hndl$ "set" 'toggle

   if dt>50 then
       dt=dt-15
       timer dt, [tick]
   else
       'if second group changes in cycle order, output supposed to be the same?
       'but we want it to be different so randomize at the end
       r2=int(rnd(0)*3)+4  '4..6
       hndl$="#main.rb";r2
       #hndl$ "set"

       timer 0
   end if

   wait

[btAcceptClick]    'Perform action for the button named 'btAccept'
   t$=space$(4)
   #main.txt "!cls"
   #main.txt "So by sheer force of fortune your alignment is ..."
   '#main.txt t$;"Lawful Neutral"
   dim rb(6)
   for i =1 to 6
       hndl$="#main.rb";i
       #hndl$ "value? res$"
       rb(i)= (res$="set")
       '#main.txt i;" ";res$
   next
   if rb(2) and rb(5) then
       txt$=txt$+t$+word$(ch$,i)
       #main.txt t$;"True neutral"
   else
       txt$=""
       for i =1 to 3
           if rb(i) then txt$=txt$+ t$;word$(rb$,i)
       next
       for i =4 to 6
           if rb(i) then txt$=txt$+ " ";word$(rb$,i)
       next
       #main.txt txt$
   end if

   '#main.txt "posessing traits"
   '#main.txt t$;"Empathy"
   '#main.txt t$;"Healer"
   txt$=""
   for i =1 to 4
       hndl$="#main.ch";i
       #hndl$ "value? res$"
       if res$="set" then txt$=txt$+t$+word$(ch$,i)+chr$(13)
       '#main.txt word$(ch$,i);" ";res$
   next
   if txt$<>"" then
       #main.txt "posessing traits"
       #main.txt txt$
   end if
   wait


[honkytonk]

Whoops! "Perk" are additive
I add:
#main.ch1, "reset": #main.ch2, "reset": #main.ch3, "reset": #main.ch4, "reset"
At the entrance in: Dummy

[honkytonk]

With buttons it would be easier than with radio buttons.
By using flags rather than string content.


    NOMAINWIN
    mapw=500: maph= 400
   WindowWidth=mapw+15: WindowHeight=maph+40
   UpperLeftX = 10: UpperLeftY = 20
   BUTTON #w.rb1, "Lawful", [Lawful], UL, 20, 40, 60, 25
   BUTTON #w.rb2, "Neutral",[LNeutral], UL, 20, 70, 60, 25
   BUTTON #w.rb3, "Chaotic", [Chaotic], UL, 20, 100, 60, 25
   BUTTON #w.rb4, "Good", [Good], UL, 200, 40, 60, 25
   BUTTON #w.rb5, "Neutral", [Neutral], UL, 200, 70, 60, 25
   BUTTON #w.rb6, "Evil", [Evil], UL, 200, 100, 60, 25
   BUTTON #w.rb7, "Ranger", [Ranger], UL, 400, 40, 60, 25
   BUTTON #w.rb8, "Empathy", [Empathy], UL, 400, 70, 60, 25
   BUTTON #w.rb9, "Healer", [Healer], UL, 400, 100, 60, 25
   BUTTON #w.rb10, "Mechanic", [Mechanic], UL, 400, 130, 60, 25
   BUTTON #w.r, "Reset", [Reset], UL, 20, 200, 60, 25
   BUTTON #w.a, "Accept", [Accept], UL, 130, 200, 60, 25
   BUTTON #w.g, "Generate", [generate], UL, 250, 200, 60, 25
   TEXTEDITOR #w.txt, 20, 230, 300, 100
  GRAPHICBOX #w.g, 5, 5, mapw, maph
   OPEN "Help" FOR window_nf AS #w
   #w, "TRAPCLOSE [closeHelp]"
  ' #w.m, "when leftButtonDown [scanne]"
   #w.g, "down;fill darkpink;color white;backcolor darkpink"
   #w.g, "place 20 15": #w.g, "\Law/chaos"
   #w.g, "place 200 15": #w.g, "\Good/Evil"
   #w.g, "place 400 15": #w.g, "\Perks"
   #w.g, "flush"
 wait
 [Lawful] Law$="Lawful": #w.rb1, "!disable": wait
 [LNeutral] Law$="Neutral": #w.rb2, "!disable": wait
 [Chaotic] Law$="Chaotic": gosub [chaos]: wait
 [Good] Good.Evil$="Good": #w.rb4, "!disable": wait
 [Neutral] Good.Evil$="Neutral": #w.rb5, "!disable": wait
 [Evil] Good.Evil$="Evil": #w.rb6, "!disable": wait
 [Ranger] Perks$="Ranger": #w.rb7, "!disable": wait
 [Empathy] Perks$="Empathy": #w.rb8, "!disable": wait
 [Healer] Perks$="Healer": #w.rb9, "!disable": wait
 [Mechanic] Perks$="Mechanic": #w.rb10, "!disable": wait
wait
[chaos]
  #w.rb1, "!disable": #w.rb2, "!disable"
  for x=4 to 10
    hand$="#w.rb";x
    #hand$, "!disable"
  next x
  a$=" Lawful Neutral": b$="Good Neutral Evil"
  c$="Ranger Empathy Healer Mechanic"
  ra=int(rnd(1)*2) + 1: rb=int(rnd(1)*3) + 1: rc=int(rnd(1)*4) + 1
  Law$=word$(a$,ra): Good.Evil$=word$(b$,rb): Perks$=word$(c$,rc)
  goto [Accept]
return
[Accept]
   #w.txt, "!cls"
  #w.txt, "You chose is"
   #w.txt, "Law: ";Law$
   #w.txt, "Force: ";Good.Evil$
   #w.txt, "Perks: ";Perks$
wait
[Reset]
   Law$="": Good.Evil$="": Perks$=""
   for x=1 to 10
    hand$="#w.rb";x
    #hand$, "!enable"
  next x
  #w.txt, "!cls"
wait
[generate]
for x=1 to 5
   #w.g, "color white;backcolor darkpink"
  #w.g, "place 400 200": #w.g, "circle 20"
  #w.g, "place 395 195": #w.g, "circle 5": #w.g, "place 405 195": #w.g, "circle 5"
  #w.g, "place 395 233": #w.g, "\ |": #w.g, "place 395 243": #w.g, "\ |"
  #w.g, "place 395 260": #w.g, "\ |": #w.g, "place 395 275": #w.g, "\ |"
 gosub [pause]
 #w.g, "color darkpink;backcolor darkpink"
 #w.g, "place 370 170": #w.g, "box 450 290"
 gosub [pause]
  #w.g, "color white;backcolor darkpink"
  #w.g, "place 400 200": #w.g, "circle 20"
  #w.g, "place 390 200": #w.g, "\--": #w.g, "place 400 200": #w.g, "\--"
  #w.g, "place 395 233": #w.g, "\ |": #w.g, "place 395 243": #w.g, "\ |"
  #w.g, "place 395 260": #w.g, "\ |": #w.g, "place 395 275": #w.g, "\ |"
  gosub [pause]
 #w.g, "color darkpink;backcolor darkpink"
 #w.g, "place 370 170": #w.g, "box 450 290"
  next x
  #w.g, "color white;backcolor darkpink"
wait
[pause]
  timer 700, [temps]
   wait
 [temps]
 timer 0
 return
 [closeHelp]
   CLOSE  #w
   END