LiveCode Forums.

Code: Select all

on dropTheBalls
   local tTimeSpan, tBallID, tBallNum, tTempBallList
   put fld "fDropRate" into tTimeSpan
   put gBallList into tTempBallList
   repeat the number of items in gBallList times
      put random(the number of items in tTempBallList) into tBallNum
      put item tBallNum of tTempBallList into tBallID
      send "dropMe" to tBallID in tTimeSpan seconds 
      delete item tBallNum of tTempBallList
      add fld "fDropRate" to tTimeSpan
   end repeat
end dropTheBalls

Code: Select all

global gBallList


on openCard
   hide group "test"
    set the moveSpeed to fld "fDropSpeed"
   send dropTheBalls to me in 1 milliseconds
   send timerPlayed to me in 10800 milliseconds
   gameReset
   initializeBalls
   movePig
end openCard

on gameReset
   initializeBalls
   movePig
   hide group "test"
      put 0 into fld "fBallsCaught"
      put 0 into fld "fBallsDropped"
end gameReset

on timerPlayed
   set the layer of group "test" to 8
   show group "test"
   set the layer of img "Pig" to bottom
   end timerPlayed

on movePig
   set the layer of img "Pig" to 4
end movePig

on initializeBalls
   local tBallCounter, tBallID, tStartHeight, tStartRight, tLoc
   lock screen
  
   -- delete any old balls
   if the number of items in gBallList > 0 then
      repeat for each item tBallID in gBallList
         try
            delete tBallID
            end try
      end repeat
   end if
   put empty into gBallList
   
   -- create the new balls
   put item 2 of the loc of grc "grcStartField" into tLoc
   repeat with tBallCounter = 1 to fld "fNumBalls"
      clone img "BallTemplate"
      put it into tBallID
      put tBallID & comma after gBallList
      set the width of tBallID to fld "fBallSize"
      set the height of tBallID to fld "fBallSize"
    put random(220) + 10 & comma & random(200) + 20 into tLoc
    set the loc of img "BallTemplate" to tLoc
    
   end repeat
   delete the last char of gBallList
   
   unlock screen
end initializeBalls

on dropTheBalls
   local tTimeSpan, tBallID, tBallNum, tTempBallList
   put fld "fDropRate" into tTimeSpan
   put gBallList into tTempBallList
   repeat the number of items in gBallList times
      put random(the number of items in tTempBallList) into tBallNum
      put item tBallNum of tTempBallList into tBallID
      send "dropMe" to tBallID in tTimeSpan seconds 
      delete item tBallNum of tTempBallList
      add fld "fDropRate" to tTimeSpan
   end repeat
end dropTheBalls