Passport/passport.iso/pc/passport/lang.dxr/00001.ls

Text File | 1998-01-26 | 542 b | 26 lines

on prepareMovie
  global Language
  NotVisible([8, 9, 10])
  Cursors([11, 12, 13])
  if Language <> "E" then
    case Language of
      "F":
        set spr to 5
      "G":
        set spr to 6
      "S":
        set spr to 7
      otherwise:
        alert("valore sconosciuto per Language")
    end case
    set L to the loc of sprite spr
    puppetSprite(spr, 1)
    set the member of sprite spr to member "Lang_E" of castLib "Internal"
    set the loc of sprite spr to L
    set the ink of sprite spr to 36
  end if
end

on startMovie
end