LiveCode Forums.

Code: Select all

local sPlayerArray
on mouseUp
   ask "how manu players?"
   if it is not a number then exit mouseUp -- check the input more thoroughly
   
   put it into tPlayers
   
   repeat with i = 1 to tPlayers
      put random (50)  into sPlayerArray[i]["score"]
   end repeat
   
   put the keys of sPlayerArray into tPlayerKeys
   put random (the number of lines of tPlayerKeys)into tRandomPlayer
   put sPlayerArray[tRandomPlayer]["score"] into tRandomPlayerScore
   put "RandomPlayer number :" & tRandomPlayer & cr & "score of player " & tRandomPlayer & ": " & tRandomPlayerScore into field 1
   
end mouseUp

Code: Select all

global gPlayerList
on mouseUp
   ask "how manu players?"
   if it is not a number then exit mouseUp -- check the input more thoroughly
   
   put it into tPlayers
   repeat with i = 1 to tPlayers
      put i & return after gPlayerList
      put random (30) into item 2 of line i of gPlayerList 
   end repeat
   
   put random ( the number of lines of gPlayerList) into tRandomPlayer
   put item 2 of line tRandomPlayer of gPlayerList into tRandomPlayerScore
   put "RandomPlayer number :" & tRandomPlayer & cr & "score of player " & tRandomPlayer & ": " & tRandomPlayerScore into field 1
end mouseUp

Code: Select all

local sTimerIsRunning = false, sMinutes, sSeconds

on mouseUp
   put true into sTimerIsRunning
   put 0 into sMinutes
   put 0 into sSeconds
   send "startTimer" to me in 0 milliseconds
   
end mouseUp

on startTimer
   if sTimerIsRunning then
      add 1 to sSeconds
      if sSeconds = 60 then 
         put 0 into sSeconds
         add 1 to sMinutes
      end if
      if sSeconds < 10 then
         put "0" & sSeconds into tDisplaySecs
      else
         put sSeconds into tDisplaySecs
      end if
      put sMinutes & ":" & tDisplaySecs into field "fRes"
      if sMinutes = 2 then 
         put false into sTimerIsRunning
         send "bingo" to me in 0 milliseconds
         exit startTimer
      end if
      send startTimer to me in 1 second
   end if
end startTimer

on Bingo
   put cr & "Game over" after field "fRes"
end Bingo

Code: Select all

local sTimerIsRunning = false, sMinutes, sSeconds, sStartMillisecs

on mouseUp
   put true into sTimerIsRunning
   put 0 into sMinutes
   put 0 into sSeconds
   put (1000 - char -3 to - 1 of the milliseconds) into tWhen
   send "startTimer" to me in tWhen milliseconds
   put the milliseconds - (1000 - tWhen)  into sStartMillisecs
   
end mouseUp

on startTimer
   if sTimerIsRunning then
      add 1 to sSeconds
      if sSeconds = 60 then 
         put 0 into sSeconds
         add 1 to sMinutes
      end if
      if sSeconds < 10 then
         put "0" & sSeconds into tDisplaySecs
      else
         put sSeconds into tDisplaySecs
      end if
      
      put the milliseconds - sStartMillisecs - ((sSeconds + sMinutes *60)*1000) into tDiffSec
      put sMinutes & ":" & tDisplaySecs && tDiffSec into field "fRes"
      if sMinutes = 2 then 
         put false into sTimerIsRunning
         send "bingo" to me in 0 milliseconds
         exit startTimer
      end if
      put 1000 - char -3 to - 1 of the milliseconds into tWhen
      send startTimer to me in tWhen milliseconds
   end if
end startTimer

on Bingo
   put cr & "Game over" after field "fRes"
end Bingo

Code: Select all

local sMoving
local sLastMS = 0

on mouseDown
   put true into sMoving
   grab me
end mouseDown

on mouseMove
   if not sMoving then exit mouseMove
   put the milliseconds - sLastMS into field "fRes"
   put the milliseconds into sLastMS
end mouseMove

on mouseUp
   put false into sMoving
end mouseUp

on mouseRelease
   mouseUp
end mouseRelease

Code: Select all

 <one line to give the program's name and a brief idea of what it does.>
    Copyright (C) <year>  <name of author>

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.