home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 10 B / MM_TREND.ISO / prog / t-online / wie_o.dir / 00295.ls < prev    next >
Encoding:
Text File  |  1996-08-18  |  532 b   |  25 lines
  1. on startMovie
  2.   global glBsListe, glgotoListe
  3.   InitAll()
  4.   set glBsListe to ["anfang", "video", "an-1", "an-2"]
  5.   set glgotoListe to ["intro_o,roll", "intro_o,roll", "intro_o,roll", "kost_o,anfang", "frag_o,anfang"]
  6.   InitBsFrame()
  7. end
  8.  
  9. on stopMovie
  10.   global glSpriteRoll, giExtraAction
  11.   setAt(glSpriteRoll, 3, 0)
  12.   set giExtraAction to 0
  13.   ResetScreen()
  14. end
  15.  
  16. on ExtraAction
  17.   global gsGoMain, gsGoSub
  18.   debug("go to produkt. ")
  19.   set gsGoMain to "KatalogO"
  20.   set gsGoSub to EMPTY
  21.   WriteParams()
  22.   SendParams()
  23.   QuitMovie()
  24. end
  25.