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