home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / wd.dxr / Wettauswahl_14_Kästchen.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  1.0 KB  |  35 lines
  1. on mouseUp
  2.   global gNoPlayers, gWetten
  3.   if getOne(gWetten, wettnr(the clickOn - 16)) then
  4.     playsound(1, "Markier")
  5.     deleteOne(gWetten, wettnr(the clickOn - 16))
  6.     set the visible of sprite (the clickOn + 4) to 0
  7.   else
  8.     if gNoPlayers > 1 then
  9.       if count(gWetten) >= gNoPlayers then
  10.         playSoundOnce(1, "Sprech6")
  11.       else
  12.         playsound(1, "Markier")
  13.         append(gWetten, wettnr(the clickOn - 16))
  14.         set the visible of sprite (the clickOn + 4) to 1
  15.       end if
  16.     else
  17.       playsound(1, "Markier")
  18.       repeat with i = 21 to 24
  19.         set the visible of sprite i to 0
  20.       end repeat
  21.       set gWetten to [wettnr(the clickOn - 16)]
  22.       set the visible of sprite (the clickOn + 4) to 1
  23.     end if
  24.   end if
  25.   if count(gWetten) = gNoPlayers then
  26.     SpriteCursor(43, ["CursorFinger", "CursorFingerMask"])
  27.     set the puppet of sprite 43 to 1
  28.     set the blend of sprite 43 to 0
  29.   else
  30.     SpriteCursor(43, 0)
  31.     set the puppet of sprite 43 to 1
  32.     set the blend of sprite 43 to 100
  33.   end if
  34. end
  35.