Smart Steps: 2nd Grade/SSGRADE2.iso/pc/dkcode/intro.dxr/00001_Start.ls

Text File | 1999-04-28 | 1.0 KB | 43 lines

on startMovie
  global gDataPathname, gCDPathname, gImage, gReturn, gHasard, gBoiteImage, gNomJoueur, gSommaire, gUser, gNiveau, gQuitter, gPortrait, gVue3D, gAlbum
  set gVue3D to "CGéné"
  set gPortrait to 0
  set gQuitter to the fileName of castLib 1
  set gNiveau to "CE1"
  set gReturn to "None"
  set gImage to []
  set gHasard to 1
  set gBoiteImage to []
  set gNomJoueur to "SERGE"
  set gSommaire to "TABLEF"
  set gAlbum to "P1"
  if the machineType = 256 then
    set gDataPathname to the pathName & "SUIVI\"
    set gCDPathname to the pathName & "MEDIA\"
    set gUser to "User1\"
  else
    set gDataPathname to the pathName & "SUIVI:"
    set gCDPathname to "Smart Steps 2nd Grade:MEDIA:"
    set gUser to "User1:"
  end if
  repeat with i = 1 to 300
    add(gImage, 0)
  end repeat
  set the mouseDownScript to "jeClique"
end

on jeClique
  go(76)
end

on ExistFichier Fichier
  set gReadObject to fileio(mnew, "read", Fichier)
  if gReadObject < 0 then
    set result to 0
  else
    set result to 1
    gReadObject(mdispose)
  end if
  return result
end