LiveCode Forums.

Code: Select all

on mouseUp
   local diceRolls, diceEyes, diceResult
   if field fldDice is an integer and field fldDice < 11 and field fldDice > 0 and field fldEye is an integer then
      put field fldDice into diceRolls
      put field fldEye into diceEyes
      repeat diceRolls times
         put random(diceEyes) & ", " after diceResult
         put diceResult[X] into field lblDiceResult X
      end repeat
      put diceResult & CR before field fldProtocol
      
      end if
end mouseUp

Code: Select all

on mouseUp
   local diceRolls, diceEyes, diceResult
   
   ## 1. ALWAYS put quotes around object names!
   ## 2. Accessing fields is MUCH slower than accessing variables, 
   ## so do  not access a field more than once, put them into variables instead!
   put fld "fldDice" into diceRolls
   put field "fldEye" into diceEyes
   if diceRolls is an integer and diceRolls < 11 and diceRolls > 0 and diceEyes is an integer then
      
      ## To be able to concatenate object names, we need this approach "repeat with ..."!
      repeat with i = 1 to diceRolls
         
         ## First generate the random number:
         put random(diceEyes) into tRandomEyes
         
         ## Now put value into appropriate field:
         put tRandomEyes into fld ("lblDiceResult" & i)
         
         ## Collect all values:
         put tRandomEyes & ", " after diceResult
      end repeat
      put diceResult & CR before field "fldProtocol"
   end if
end mouseUp