home *** CD-ROM | disk | FTP | other *** search
- on startMovie
- global glBsListe, glgotoListe
- InitAll()
- set glBsListe to ["anfang", "video", "ende"]
- set glgotoListe to ["intro_i,roll", "intro_i,roll", "intro_i,roll", "flexibel,anfang", "kostet,anfang"]
- InitBsFrame()
- end
-
- on stopMovie
- ResetScreen()
- end
-
- on ExtraAction
- global gsGoMain, gsGoSub, giLastSprite
- if giLastSprite = 47 then
- debug("go to produkt. ")
- set gsGoMain to "KatalogI"
- set gsGoSub to EMPTY
- WriteParams()
- SendParams()
- QuitMovie()
- end if
- end
-