home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Payout.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  710 b   |  42 lines
  1. property spriteNum
  2. global gBet, gMoney
  3.  
  4. on mouseDown me
  5.   if the frame > 30 then
  6.     exit
  7.   end if
  8.   if sprite(23).blend = 100 then
  9.     exit
  10.   end if
  11.   sprite(spriteNum).blend = 100
  12.   gBet = gBet + 5
  13.   gMoney = gMoney - 5
  14.   if gMoney < 0 then
  15.     gBet = gBet - 5
  16.     gMoney = gMoney + 5
  17.   end if
  18.   member("money").text = string(integer(gMoney))
  19.   member("bet").text = string(integer(gBet))
  20. end
  21.  
  22. on mouseUp me
  23.   if the frame > 30 then
  24.     exit
  25.   end if
  26.   if sprite(23).blend = 100 then
  27.     exit
  28.   end if
  29.   puppetSound(1, "bet!!!")
  30.   sprite(spriteNum).blend = 0
  31. end
  32.  
  33. on mouseLeave me
  34.   if the frame > 30 then
  35.     exit
  36.   end if
  37.   if sprite(23).blend = 100 then
  38.     exit
  39.   end if
  40.   sprite(spriteNum).blend = 0
  41. end
  42.