home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / wd.dxr / Wettauswahl_73_ZufallSensor.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  1.1 KB  |  42 lines
  1. on mouseUp
  2.   global gWetten, gNoPlayers
  3.   KickBetVideo()
  4.   playsound(1, "Zufall")
  5.   set the visible of sprite 33 to 1
  6.   set gWetten to []
  7.   repeat with i = 1 to gNoPlayers
  8.     repeat while 1
  9.       set r to random(16)
  10.       if (getOne(gActiveBets, r) > 0) and (getOne(gWetten, r) <= 0) then
  11.         exit repeat
  12.       end if
  13.     end repeat
  14.     append(gWetten, r)
  15.   end repeat
  16.   repeat with i in [21, 22, 23, 24, 3, 4, 5, 6]
  17.     set the visible of sprite i to 0
  18.   end repeat
  19.   beBusy()
  20.   set ls to 0
  21.   repeat while soundBusy(1)
  22.     if ls > 0 then
  23.       set the visible of sprite ls to 0
  24.     end if
  25.     set ls to 2 + random(4)
  26.     set the visible of sprite ls to 1
  27.     go(label("Seitenauswahl") + random(4) - 1)
  28.     updateStage()
  29.     delay(8)
  30.   end repeat
  31.   repeat with i in [21, 22, 23, 24, 3, 4, 5, 6]
  32.     set the visible of sprite i to 0
  33.   end repeat
  34.   beFree()
  35.   set the visible of sprite 33 to 0
  36.   updateStage()
  37.   Wettseite(label("Seitenauswahl") + ((getAt(gWetten, 1) - 1) / 4))
  38.   SpriteCursor(43, ["CursorFinger", "CursorFingerMask"])
  39.   set the puppet of sprite 43 to 1
  40.   set the blend of sprite 43 to 0
  41. end
  42.