Rooie Oortjes 2/RO2_CD.bin/intro.dxr/00012.ls

Text File | 1997-04-15 | 647 b | 36 lines

on exitFrame
  cursor(200)
  SetCastLanguage()
  set the mouseDownScript to "go marker(1)"
end

on enterFrame
  openXLib("xsecure")
  set obj to xsecure(mnew)
  set str to obj(msecure)
  set secure to 1
  if char 1 of str <> "r" then
    set secure to 0
  end if
  if char 2 of str <> "o" then
    set secure to 0
  end if
  if char 3 of str <> "2" then
    set secure to 0
  end if
  if char 4 of str <> "_" then
    set secure to 0
  end if
  if char 5 of str <> "c" then
    set secure to 0
  end if
  if char 6 of str <> "d" then
    set secure to 0
  end if
  obj(mdispose)
  closeXLib("xsecure")
  if not secure then
    quit()
  end if
end