home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / ECKESHOP.DXR / 00001.ls next >
Encoding:
Text File  |  1998-03-20  |  1.3 KB  |  42 lines
  1. global AnzahlBestellungen, gArtikelliste
  2.  
  3. on startMovie
  4.   ToggleTon()
  5.   ToggleTon()
  6.   set the volume of sound 2 to 255
  7.   startTimer()
  8.   set AnzahlBestellungen to 0
  9.   set the floatPrecision to 2
  10.   set the text of member "Anzahl2" to " "
  11.   set the text of member "Name2" to " "
  12.   set the text of member "EPreis2" to " "
  13.   set the text of member "GPreis2" to " "
  14.   set the text of member "summe" to " "
  15.   set the text of member "emailAdresse" to EMPTY
  16.   set the text of member "Anzahl1" to "1"
  17.   set gArtikelliste to [#Kappe: ["AOL-Cap", "29.95", "Eingestickte E-Mail-Adresse"], #Stift: ["AOL Lexon Kugelschreiber", "49.95"], #Pad: ["AOL-Mousepad", "14.95"], #Jacke: ["AOL Challenge-Longjacket", "159.00", "S, M, L, XL"], #Shirt: ["AOL T-Shirt", "24.90", "M, L, XL, XXL"], #Kappemit: ["AOL-Cap, eingestickt:", "34.95"]]
  18. end
  19.  
  20. on stopMovie
  21.   set the volume of sound 2 to 255
  22.   set the soundEnabled to 1
  23. end
  24.  
  25. on idle
  26.   if (the timer > 500) and (the timer < 560) then
  27.     set the volume of sound 2 to 210
  28.   else
  29.     if (the timer > 600) and (the timer < 660) then
  30.       set the volume of sound 2 to 180
  31.     else
  32.       if (the timer > 700) and (the timer < 760) then
  33.         set the volume of sound 2 to 150
  34.       else
  35.         if (the timer > 800) and (the timer < 860) then
  36.           set the volume of sound 2 to 120
  37.         end if
  38.       end if
  39.     end if
  40.   end if
  41. end
  42.