home *** CD-ROM | disk | FTP | other *** search
/ PC Play 1 / PCPLAY1.ISO / intro.dxr / 00004_SprakObj.ls < prev    next >
Encoding:
Text File  |  1996-08-29  |  447 b   |  24 lines
  1. property ancestor, isDone
  2. global gMovieList
  3.  
  4. on new me, s
  5.   set the ancestor of me to new(script "GameObj", s, s + 1, 3, 7, 48)
  6.   set isDone to 0
  7.   return me
  8. end
  9.  
  10. on TouchDown me, obj
  11.   global gText, gGame
  12.   TouchDown(ancestor, obj)
  13.   set L to GetSprite(obj) - 2
  14.   if objectp(gMovieList) then
  15.     SetLanguage(gMovieList, L)
  16.   end if
  17.   Dispose(gGame)
  18.   Dispose(gText)
  19.   set gGame to EMPTY
  20.   set gText to EMPTY
  21.   cursor(-1)
  22.   go("Disclaim" & L)
  23. end
  24.