on startMovie
StartThinking
end startMovie
on StartThinking
if the platform contains "Windows" OR the platform contains "Macintosh" then
case TRUE of
(member("Pflichtenheft").text contains "professionell"):
GetDirector
(member("Pflichtenheft").text contains "vielseitig"):
GetDirector
(member("Pflichtenheft").text contains "Lerneffekt"):
GetDirector
(member("Pflichtenheft").text contains "Budget reicht"):
GetDirector
(member("Pflichtenheft").text contains "Qualitätsanspruch"):
GetDirector
otherwise
quit
end case
end if
end StartThinking
on GetDirector
member("Tim").text = "Chef, ich brauche Director"
put member("Tim").text
if member("Chef").text = "Ok, besorg es dir" then
put member("Chef").text
member("Tim").text = "Super, Danke!"
put member("Tim").text
open "http://www.macromedia.com/cfusion/store/index.cfm?store=OLS-DE&view=ols_cat&catType=SPECIALS#loc=de&view=ols_prod&store=OLS-DE&categoryOID=285297&distributionOID=103&catType=SPECIALS" with "C:\Programme\Internet Explorer\iexplore.exe"
end if
end GetDirector