home *** CD-ROM | disk | FTP | other *** search
/ Rooie Oortjes 4 / RO4_CD.bin / menu.dxr / 00024.ls < prev    next >
Encoding:
Text File  |  1998-09-23  |  881 b   |  43 lines
  1. on enterFrame
  2.   set the volume of sound 1 to 175
  3.   open("cd .")
  4.   openXLib("xsecure")
  5.   set obj to xsecure(mnew)
  6.   set str to obj(msecure)
  7.   set secure to 1
  8.   if char 1 of str <> "r" then
  9.     set secure to 0
  10.   end if
  11.   if char 2 of str <> "o" then
  12.     set secure to 0
  13.   end if
  14.   if char 3 of str <> "4" then
  15.     set secure to 0
  16.   end if
  17.   if char 4 of str <> "_" then
  18.     set secure to 0
  19.   end if
  20.   if char 5 of str <> "c" then
  21.     set secure to 0
  22.   end if
  23.   if char 6 of str <> "d" then
  24.     set secure to 0
  25.   end if
  26.   obj(mdispose)
  27.   closeXLib("xsecure")
  28.   if not secure then
  29.     quit()
  30.   end if
  31.   SetCastLanguage()
  32.   sound close 1
  33.   cursor(-1)
  34.   repeat with i = 1 to 24
  35.     set the visible of sprite i to 1
  36.   end repeat
  37.   repeat with i = 6 to 13
  38.     set the visible of sprite i to 0
  39.   end repeat
  40.   set the visible of sprite 3 to 0
  41.   set the text of member "text_leeg" to " "
  42. end
  43.