Knudde EK Editie/CD1.iso/quit.dxr/script_1.ls

Text File | 2000-02-24 | 1.1 KB | 18 lines

on startMovie
  global LetterList, CastLetter, Tekst, MyChar, Gstatus
  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]
  Tekst = "KNUDDE_WERD_NAAR_JE_TOEGETRAPT_DOOR_:_$_THIRD_WAVE_WARE__%__ROBBIN_:_VORMGEVING_$__SANDER_:_KLOOIDERING_%__JOOST_:_GELUID_$__WILLEM_:_ANIMATIE_IN_TIKKIE_._%_" & "__MET_DANK_AAN_:_DE_BUURMAN,_BLUE_LIGHTNING_FORCE,_AXEMAN,_PAVELOW,_HENRI_EN_MARIEKE_,_LINDA,_NORBERT_FOR_BUYING_THIS_CD,_ROB_FOR_TESTING_IT,_IF_YOU_CAME_THIS_FAR,_DE_OVERBUURVROUW_$" & "_JAAP_DIRK_TINUS_EN_DE_REST_VAN_HET_KNUDDE_TEAM_VOOR_HUN_MEDEWERKING,_EN_JOU_VOOR_HET_KOPEN_VAN_DEZE_CD_EN_HET_LEZEN_VAN_DEZE_LANGE_TEKST_!!___________"
  MyChar = 1
  Gstatus = #Free
  LetterList = []
  repeat with n = 1 to 20
    add(LetterList, new(script("letter"), n))
  end repeat
  the actorList = LetterList
  sprite(32).visible = 0
end

on stopMovie
  the actorList = []
end