home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 10 B / MM_TREND.ISO / prog / isdn / wiegeht.dir / 00295_Script_295 < prev   
Text File  |  1996-08-17  |  617b  |  41 lines
  1. on startmovie
  2.   
  3.   InitAll
  4.   
  5.   
  6.   global glBsListe, glGotoListe
  7.   
  8.   set glBsListe = [ "anfang", "video", "ende" ]
  9.   
  10.   set glGotoListe = [ "intro_i,roll" ,  "intro_i,roll" , "intro_i,roll", ┬
  11.    "flexibel,anfang" , "kostet,anfang" ]
  12.   
  13.   InitBsFrame
  14.   
  15.   
  16. end
  17.  
  18.  
  19.  
  20.  
  21. on stopmovie
  22.   
  23.   resetscreen
  24. end
  25.  
  26.  
  27. on ExtraAction
  28.   -- produkte 
  29.   global gsGoMain, gsGoSub, giLastSprite
  30.   
  31.   if giLastSprite = 47 then
  32.     debug "go to produkt. "
  33.     set gsGoMain ="KatalogI"
  34.     set gsGoSub = ""
  35.     WriteParams  --in inifile
  36.     SendParams -- WinMsg
  37.     QuitMovie   --301  
  38.   end if
  39.   
  40. end
  41.