home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Payout.dxr / 00004.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  905 b   |  28 lines
  1. property Car1Stats, Car2Stats, Car3Stats, Car4Stats, NumRaces
  2. global pList, gMoney, gBet, gWinnings, gThePos, gRaceStart
  3.  
  4. on new me
  5.   set the floatPrecision to 14
  6.   NumRaces = 0
  7.   Car1Stats = [0, 0, 0, 0]
  8.   Car2Stats = [0, 0, 0, 0]
  9.   Car3Stats = [0, 0, 0, 0]
  10.   Car4Stats = [0, 0, 0, 0]
  11. end
  12.  
  13. on mouseUp me
  14.   pList = [2.0, 4.0, 5.0, 20.0]
  15.   gThePos = function(pList)
  16.   gRaceStart = 1
  17. end
  18.  
  19. on doStuff me
  20.   put "       1rst     2nd     3rd     4th"
  21.   put "Car1   " & Car1Stats[1] & "   " & Car1Stats[2] & "    " & Car1Stats[3] & "    " & Car1Stats[4]
  22.   put "Car2   " & Car2Stats[1] & "   " & Car2Stats[2] & "    " & Car2Stats[3] & "    " & Car2Stats[4]
  23.   put "Car3   " & Car3Stats[1] & "   " & Car3Stats[2] & "    " & Car3Stats[3] & "    " & Car3Stats[4]
  24.   put "Car4   " & Car4Stats[1] & "   " & Car4Stats[2] & "    " & Car4Stats[3] & "    " & Car4Stats[4]
  25.   put "Total Num Races: ", NumRaces
  26.   put EMPTY
  27. end
  28.