home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 10 B / MM_TREND.ISO / prog / t-online / wie_o.dir / 00295_Script_295 < prev   
Text File  |  1996-08-18  |  643b  |  39 lines
  1. on startmovie
  2.   InitAll
  3.   global glBsListe,  glGotoListe
  4.   
  5.   set glBsListe = [ "anfang" ,"video",  "an-1", "an-2" ]
  6.   set glGotoListe = [ "intro_o,roll" , "intro_o,roll" , "intro_o,roll",┬
  7.       "kost_o,anfang" , "frag_o,anfang" ]
  8.   
  9.   InitBsFrame
  10.   
  11.   
  12.   
  13.   
  14. end
  15.  
  16.  
  17. on stopmovie
  18.   global glSpriteRoll, giExtraAction
  19.   
  20.   setAt glSpriteRoll 3, 0
  21.   set giExtraAction = 0
  22.   ResetScreen
  23.   
  24. end
  25.  
  26.  
  27. on ExtraAction
  28.   -- produkte 
  29.   global gsGoMain, gsGoSub
  30.   
  31.   debug "go to produkt. "
  32.   set gsGoMain ="KatalogO"
  33.   set gsGoSub = ""
  34.   WriteParams  --in inifile
  35.   SendParams -- WinMsg
  36.   QuitMovie   --301  
  37.   
  38. end
  39.