home *** CD-ROM | disk | FTP | other *** search
/ Knudde EK Editie / CD1.iso / intro.dxr / script_1.ls < prev    next >
Encoding:
Text File  |  2000-02-24  |  641 b   |  18 lines
  1. on startMovie
  2.   global LetterList, CastLetter, Tekst, MyChar, Gstatus
  3.   set the exitLock to 1
  4.   CastLetter = [#a: 1, #b: 2, #c: 3, #d: 4, #e: 5, #f: 6, #g: 7, #h: 8, #i: 9, #j: 10, #k: 11, #L: 12, #m: 13, #n: 14, #o: 15, #P: 16, #q: 17, #r: 18, #s: 19, #t: 20, #u: 21, #v: 22, #W: 23, #x: 24, #y: 25, #z: 26, #_: 27, #.: 28, #,: 29, #:: 30, #;: 31, #!: 32, #?: 33, #-: 34, #$: 35, #%: 36]
  5.   Tekst = "-.$.-Third_WAVE_WARE-.%.-________"
  6.   MyChar = 1
  7.   Gstatus = #Free
  8.   LetterList = []
  9.   repeat with n = 1 to 20
  10.     add(LetterList, new(script("letter"), n))
  11.   end repeat
  12.   the actorList = LetterList
  13. end
  14.  
  15. on stopMovie
  16.   the actorList = []
  17. end
  18.