home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Payout.dxr / 00010.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  967 b   |  38 lines
  1. property spriteNum, pList, Car1Stats, Car2Stats, Car3Stats, Car4Stats, NumRaces
  2. global gThePos, gRaceStart, gBet
  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.   sprite(spriteNum).blend = 0
  12. end
  13.  
  14. on mouseUp me
  15.   if the frame > 30 then
  16.     exit
  17.   end if
  18.   if sprite(23).blend = 100 then
  19.     exit
  20.   end if
  21.   if gBet <= 0 then
  22.     showAMessage(50)
  23.     exit
  24.   end if
  25.   if not ((member(sprite(25).member).name = "Car_Blue_On") or (member(sprite(26).member).name = "Car_Purp_On") or (member(sprite(27).member).name = "Car_Red_On") or (member(sprite(28).member).name = "Car_Green_On")) then
  26.     showAMessage(51)
  27.     exit
  28.   end if
  29.   pList = [2.0, 3.0, 5.0, 20.0]
  30.   gThePos = function(pList)
  31.   gRaceStart = 1
  32.   sprite(spriteNum).blend = 100
  33.   puppetSound(1, "startrace")
  34.   puppetSound(5, "engine loop")
  35.   sound(5).fadeIn(3000)
  36.   puppetSound(4, "engine1")
  37. end
  38.