The Stock Market: Browser - Disc 1/TheStockMarketRoyaltyFreeImages-BrowserDisc1-WinMac.bin/mac/Français/Main.dir/00001_Script_MAIN

Text File | 2000-02-10 | 23KB | 896 lines

global gAppButton, NewPath

on LaunchBrowser
  if the machineType = 256 then
    --Here is where you put the PC browser pathname:
    --use backslashes for the PC "\"
    --open NewPath&"CDBROWSE.EXE"
    open the pathname&"Browser_1.fdb" with "Portfolio\PortBrws.exe"
  else
    --here is where you put the mac browser pathname:
    --use colons for the mac":"
    open "Browser 1:Franτais:Browser 1" with "Browser 1:Franτais:Autres Trucs:Portfolio Browser 4.0"
  end if
end


On netLaunchNow
  gotoNetPage "http://www.stockmarketphoto.com"
  -- with browserName()
end


on startmovie
  set the exitLock = 1
  if voidP(newPath) then set newPath = the pathname

  ---Check if the Extra Buttons should be present
  global gAppButton, gNumButtonB




  ---Fade out sound from opening or QuickTour
  sound fadeout 3,500
  sound fadeout 2,500
  sound fadeout 1,500

  ---Rollover Variable(cursor changes on every sprite EXCEPT this sprite
  global gPrimException
  put 1 into gPrimException

  ----Initialize Button Variables:
  global findingButt, moreButt, launchButt, QuitButt, AboutButt, CatButt, KeyButt, CompButt, TransButt, DigButt, CatalogButt, AppButt, OKButt, MenuButt, PrintButt, gFaxButt, gPrintButt, gLMenuButt, gLOKButt, gNumButt,NetButt, gOK2Butt


  ----Assign Buttons Generic TSM Button Script.
  set findingButt=new(script"TSMButton",13,"Find",0,0,1,"FINDING")
  set moreButt = new (script"TSMButton", 15,"More",0,0,1,"MORE1")
  set launchButt=new(script"TSMButton",16,"Launch",0,0,1,"LAUNCH1")

  --launch 2 here!!!
  set netButt=new(script"TSMButton",17,"Internet",0,0,1,"INTERNET")

  set quitButt=new(script"TSMButton",18,"Quit",0,0,1,"Quit1")
  set aboutButt = new(script "TSMButton",19,"About",560,235,0,"About1")
  set CatButt = new(script "TSMButton",22,"Cat",560,235,0,"Category")
  set KeyButt = new(script "TSMButton",23,"Key",560,265,0,"KeyWord")
  set CompButt = new(script "TSMButton",27,"Comp",560,295,0,"Comps")
  set TransButt = new(script"TSMButton",29,"Trans",560,295,0,"Transparency")
  set DigButt = new(script "TSMButton",30,"Dig",560,325,0,"Digital")
  set CatalogButt = new(script "TSMButton",33,"Catalog",560,265,0,"Catalog1")
  set AppButt = new(Script "TSMButton",36,"App",560,355,0,"Appreciation")

  --printForm Buttons
  global gMainG,gPrint1G,gQuitG,gLaunchG,gPrint2G

  set gMainG = new(script "TSMButton",61,"greyMain",0,0,1,"greyMain")
  set gPrint1G = new(script "TSMButton",62,"greyPrint",0,0,1,"greyPrint1")
  set gQuitG = new(script "TSMButton",63,"greyQuit",0,0,1,"GreyQuit1")
  set gLaunchG = new(script "TSMButton",64,"greyLaunch",0,0,1,"GreyLaunch1")
  set gPrint2G = new(script "TSMButton",62,"greyPrint",0,0,1,"greyPrint2")

  set gFaxButt = new(script "TSMButton",38,"fax",0,0,1,"TakeMeToForm1")
  set gPrintButt = new(script "TSMButton",39,"StdPrint",0,0,1,"PrintSomeStuff")

  --launch screen
  set gLMenuButt = new(script "TSMButton",14,"MenuLaunch",0,0,1,"greyMain")
  set gLOKButt = new(script "TSMButton",15,"OKLaunch",0,0,1,"LaunchBrowser")


  if voidP(gNumButtonB) then
    -----Extra 2 Buttons either get the normal button behaviour or an EMPTY Button Behaviour:
    ---Searching BY NUMBER:
    --see if it exists:
    put 1 into n
    put 1 into var
    repeat while var <> ""
      put    getNthFileNameInFolder(NewPath, n) into var
      if var = "Macnum.dir" then
        put 1 into gNumButtonB
      end if
      put 1 + n into n
    end repeat

    --Declare it in variable "GNUMBUTTON" (same again below)
    if gNumButtonB = 1 then
      set gNumButt = new(script "TSMButton",24,"Num",560,290,0,"Number")
    else
      set gNumButt = new(script "TSMNothing")
    end if

    ---Appreciation Button
    put 1 into n
    put 1 into var
    repeat while var <> ""
      put    getNthFileNameInFolder(NewPath, n) into var
      if var = "App.dir" then
        put 1 into gAppButton
      end if
      put 1 + n into n
    end repeat

    if gAppButton = 1 then
      set AppButt = new(Script "TSMButton",36,"App",560,355,0,"Appreciation")
    else
      set AppButt = new(script "TSMNothing")
    end if

    --emptyTextFields
  end if



  ---This is the time that the user spends on More CDs/More Catalog section
  global gTimeOnEachCatalogPicture
  put 300 into gTimeOnEachCatalogPicture

end

on keyDown
  global NewPath
  if the commandDown and ¼
   (the key = "." or the key = "q") and ¼
   the exitLock = TRUE or the keyCode = 53 then go to "quit"
end

on BDN1
  puppetsound "click"
end

on TakeMeToForm1
  go to "form1"
end


on emptyTextFields
  put " " into member "name" of castlib "Input FieldS"
  put " " into member "title" of castlib "Input FieldS"
  put " " into member "colleague" of castlib "Input FieldS"
  put " " into member "ctitle" of castlib "Input FieldS"
  put " " into member "company" of castlib "Input FieldS"
  put " " into member "address" of castlib "Input FieldS"
  put " " into member "city" of castlib "Input FieldS"
  put " " into member "State" of castlib "Input FieldS"
  put " " into member "zip" of castlib "Input FieldS"
  put " " into member "telephone" of castlib "Input FieldS"
  put " " into member "fax" of castlib "Input FieldS"
  put " " into member "email" of castlib "Input FieldS"
  put " " into member "photoNumber" of castlib "Input FieldS"
  put " " into member "Photographer" of castlib "Input FieldS"
  put " " into member "description" of castlib "Input FieldS"
  put " " into member "ResearchDescription" of castlib "Input FieldS"
  put " " into member "copyConcept" of castlib "Input FieldS"
  put " " into member "Quantity" of castlib "Input FieldS"
  put " " into member "endUser" of castlib "Input FieldS"
end


on PrintSomeStuff
  global gPrintWhat
  put the date&&the time&RETURN&RETURN&RETURN&RETURN into member "Date"
  set the fontstyle of member "DATE" = "italic"
  set the fontsize of member "DATE" = 9

  Deactivate(gPrintButt)

  ----PrintOMatic Routines:
  set doc = new(xtra "PrintOMatic_Lite")
  if not objectP(doc) then exit
  setDocumentName doc, "Information from TSM"
  append doc, member "HeaderGraphNormal"
  append doc, member "Date"
  append doc, member gPrintWhat
  append doc, member "copyright"
  if doJobSetup(doc) then print doc
  set doc = 0
  ----End pmatic

  Deactivate(gPrintButt)

end




on RollControl
  everyframe(netButt)
  everyframe(findingButt)
  everyframe(moreButt)
  everyframe(LaunchButt)
  everyframe(quitButt)
  everyframe(AboutButt)
  everyframe(catButt)
  everyframe(keyButt)
  everyframe(CompButt)
  everyframe(transButt)
  everyframe(digButt)
  everyframe(CatalogButt)
  everyframe(AppButt)
  everyframe(gNumButt)

  checkCursor
end

on CheckCursor
  global gPrimException
  put rollover(n) into x
  if x > 12 and x < 40 or x= 86 then

    if rollover(gPrimException) then
      cursor 0
    else
      PointerCursor
    end if
  else
    cursor 0
  end if
end


on PushControl
  nothing
  ---hmmm, what was I thinking?
end=


on PointerCursor
  --  cursor [13,14]
  cursor 280
end

on NormalCursor
  cursor 0
end

on cursorRollControlForm1
  if rollover (36) or rollover (37) or rollover (38) or rollover (39) or rollover (40)¼
or rollover(41) or rollover(46) or rollover(47) or rollover(48) or rollover (49)¼
or rollover(50) or rollover(53) or rollover(54) or rollover(61) or rollover(62)¼
or rollover(63) or rollover(64) then
    PointerCursor
  else
    NormalCursor
  end if
end



on doTheDelay
  global gTimeOnEachCatalogPicture
  if the timer > gTimeOnEachCatalogPicture then
    starttimer
    puppettransition 23
  else
    go the frame
  end if
end

on Finding
  if the frameLabel <> "Main" then
    global gPrimException
    put 300 into gPrimException
    go to "main"

  end if

  turnOn(keybutt)
  turnOn(catbutt)
  turnOn(compbutt)



  ---Extra Sub Button shadow mask
  global gNumButtonB
  if gNumButtonB = 1 then

    turnOn(gNumButt)
  end if



  ---Push up, turn off and get rid of all the other buttons

  deactivate(moreButt)
  deactivate(launchButt)
  deactivate(quitButt)
  turnOff(aboutButt)
  turnOff(AppButt)
  turnOff(TransButt)
  TurnOff(DigBUtt)
  turnOff(CatalogButt)


  global gPrimException
  put 13 into gPrimException

end






on MORE1
  global gAppButton

  if the frameLabel <> "Main" then
    global gPrimException
    put 300 into gPrimException
    go to "main"
  end if

  -----Get rid of all buttons not needed:

  deactivate(findingButt)
  deactivate(launchButt)
  deactivate(netButt)
  deactivate(quitButt)
  turnOff(catbutt)
  turnOff(keybutt)
  turnOff(compButt)
  turnOff(gNumButt)


  -----Turn on the used buttons:

  TurnOn(AboutButt)
  TurnOn(CatalogButt)
  TurnOn(TransButt)
  TurnOn(DigButt)

  if gAppButton then
    turnOn(AppButt)
  end if

  global gPrimException
  put 15 into gPrimException

end




on greyLaunch1
  go to "Launch"
end

on greyQuit1
  go to "quit"
end

on Launch1
  nothing
  deactivate(findingButt)
  deactivate(moreButt)
  deactivate(quitButt)
  deactivate(netButt)

  if gAppButton then
    turnOff(AppButt)
  end if


  cursor 0
  updatestage
  go to "Launch"
  global gPrimException
  put 1 into gPrimException

end

on Quit1
  nothing
  deactivate(findingButt)
  deactivate(moreButt)
  deactivate(launchButt)
  deactivate(netButt)

  turnOff(compButt)
  turnOff(TransButt)
  turnOff(DigBUtt)
  turnOff(CatalogButt)
  turnOff(catButt)
  turnOff(keyButt)

  if gAppButton then
    turnOff(AppButt)

  end if

  cursor 0
  updatestage
  go to "quit"
  global gPrimException
  put 1 into gPrimException
  cursor 0
end

on about1
  deactivate(CatalogButt)
  deactivate(transButt)
  deactivate(DigButt)
  deactivate(AppButt)

  cursor 0
  upDateStage
  go to "out"
  play movie NewPath&"About.Dir"
  global gSecException
  put 36 into gSecException
  cursor 0
end



on category
  nothing
  deactivate(keyButt)
  deactivate(gNumButt)
  deactivate(CompButt)
  cursor 0

  upDateStage
  go to "out"
  play movie NewPath&"Maccat.dir"


  global gSecException
  put 22 into gSecException
  cursor 0
end

on number
  deactivate(keyButt)
  deactivate(catButt)
  deactivate(CompButt)
  updatestage
  global gSecException
  put 24 into gSecException
  cursor 0

  go to "out"
  play movie NewPath&"Macnum.dir"
  cursor 0
  updatestage
end

on keyword
  deactivate(gNumButt)
  deactivate(catButt)
  deactivate(CompButt)
  upDateStage

  cursor 0

  go to "out"
  global gSecException
  put 23 into gSecException
  play movie NewPath&"Mackey.dir"

  cursor 0
  updateStage
end

on Comps
  deactivate(gNumButt)
  deactivate(keyButt)
  deactivate(catButt)

  cursor 0
  upDateStage
  go to "out"
  global gSecException
  put 27 into gSecException
  cursor 0
  play movie NewPath&"Maccomp.dir"

end



on Transparency
  deactivate(CatalogButt)
  deactivate(appButt)
  deactivate(DigButt)
  deactivate(aboutButt)

  cursor 0
  updateStage
  go to "Transparency"
  global gSecException
  put 29 into gSecException
  cursor 0

end

on Digital

  deactivate(CatalogButt)
  deactivate(appButt)
  deactivate(transButt)
  deactivate(aboutButt)

  cursor 0
  upDateStage
  go to "out"
  play movie NewPath&"Dig.Dir"
  global gSecException
  put 30 into gSecException
  cursor 0

end


on Internet

  deactivate(findingButt)
  deactivate(moreButt)
  deactivate(quitButt)
  deactivate(netButt)

  if gAppButton then
    turnOff(AppButt)
  end if

  cursor 0
  updatestage
  go to "Internet"

end




on Catalog1
  deactivate(AboutButt)
  deactivate(appButt)
  deactivate(transButt)
  deactivate(digButt)

  cursor 0
  updateStage
  go to "Form2"
  global gSecException
  put 33 into gSecException
  cursor 0
end



on Appreciation
  deactivate(CatalogButt)
  deactivate(aboutButt)
  deactivate(transButt)
  deactivate(digButt)

  cursor 0
  upDateStage
  go to "App"
  --  play movie NewPath&"App.Dir"
  global gSecException
  put 36 into gSecException
  cursor 0
end


on greyMain

  cursor 0
  updateStage
  go to 1
end

on fixit brokenword
  put brokenWord into var
  put 1 into n
  put length(var) into varc
  repeat while n < varc
    if char n of var = RETURN then
      delete char n of var
    end if
    put 1 + n into n
  end repeat
  return var
end

on greyPrint1
  put "Information Client"&RETURN into line1
  put the text of member "Name"&" - "&The text of member "Title" into line2
  put fixit(line2) into line2
  put the text of member "Company" into line3
  put fixit(line3) into line3
  put the text of member "Address" into line4
  put fixit(line4) into line4
  put the text of member "City" into line5
  put fixit(line5) into line5

  put "TΘl:"&&the text of member "Telephone" into line6
  put fixit(line6) into line6

  put "Fax:"&&the text of member "Fax" into line7
  put fixit(line7) into line7

  put "E-mail:"&the text of member "Email" into line8
  put fixit(line8) into line8

  put "Information Image"&RETURN into line9
  put "RΘfΘrences photo:"&RETURN&the text of member "PhotoNumber"&RETURN into line10
  put "Photographe:"&RETURN&the text of member "Photographer"&RETURN into line11
  put "Description:"&RETURN&the text of member "Description"&RETURN into line12

  put "Demande de Recherche"&RETURN into line14
  put "Description:"&RETURN&the text of member "ResearchDescription"&RETURN into line15
  put "Sujet ou Concept:"&RETURN&the text of member "CopyConcept"&RETURN into line16

  --- CheckBoxes (USAGE,SIZE,LOCATION)
  if the hilite of member "CheckBox1" then
    set UsageVar = "Brochure"
  else
    if the hilite of member "CheckBox2" then
      set UsageVar = "Annonce Presse"
    else
      if the hilite of member "CheckBox3" then
        set UsageVar = "PLV"
      else
        if the hilite of member "CheckBox4" then
          set UsageVar = "Edition"
        else
          if the hilite of member "CheckBox5" then
            set UsageVar = "Presse"
          else
            if the hilite of member "CheckBox6" then
              set UsageVar = "other"
            else
              set UsageVar = "Not Specified"
            end if
          end if
        end if
      end if
    end if
  end if


  if the hilite of member "CheckBox7" then
    set SizeVar = "1/10 Page et moins"
  else
    if the hilite of member "CheckBox8" then
      set sizeVar = "1/4 Page"
    else
      if the hilite of member "CheckBox9" then
        set sizeVar = "1/2 Page"
      else
        if the hilite of member "CheckBox10" then
          set sizeVar = "3/4 page"
        else
          if the hilite of member "CheckBox11" then
            set sizeVar = "pleine page"
          else
            if the hilite of member "CheckBox12" then
              set sizeVar = "Double page"
            else
              set SizeVar = "Not Specified"
            end if
          end if
        end if
      end if
    end if
  end if


  if the hilite of member "CheckBox13" then
    set LocationVar = "Inside"
  else
    if the hilite of member "CheckBox14" then
      set locationVar = "Cover"
    else
      set locationVar = "Not Specified"
    end if
  end if

  put "Information Production"&RETURN into line17
  put "Usage:"&&UsageVar into line18
  put "Autre:"&&the text of member "State" into line19
  put "QuantitΘ/Tirage:"&&the text of member "Quantity" into line20
  put "Format:"&&SizeVar into line21
  put "O∙:"&&LocationVar into line22
  put "Annonceur/ActivitΘ:"&&the text of member "enduser" into line23

  put line1&RETURN&line2&RETURN&line3&RETURN&line4&RETURN&line5&RETURN&line6&RETURN&line7¼
&RETURN&line8&RETURN&RETURN&line9&RETURN&line10&RETURN&line11&RETURN&line12&RETURN¼
&line14&RETURN&line15&RETURN&line16&RETURN&line17&RETURN&line18&RETURN&line19&RETURN&line20¼
&RETURN&line21&RETURN&line22&RETURN&line23 into var
  put "" into member "Form1Build"
  put var into member "Form1Build"

  set the fontstyle of line 1 of member "Form1Build" = "Bold"
  set the fontStyle of line 2 of member "Form1Build" = "plain"
  set the fontstyle of line 4 of member "Form1Build" = "Plain"
  set the fontStyle of line 5 of member "Form1Build" = "plain"
  set the fontstyle of line 11 of member "Form1Build" = "Bold"
  set the fontStyle of line 12 of member "Form1Build" = "plain"
  set the fontstyle of line 22 of member "Form1Build" = "Bold"
  set the fontstyle of line 23 of member "Form1Build" = "plain"
  set the fontstyle of line 30 of member "Form1Build" = "Bold"
  set the fontstyle of line 31 of member "Form1Build" = "plain"
  set the fontsize of member "form1Build" = 10

  put the date&&the time&RETURN&RETURN into member "Date"
  set the fontstyle of member "DATE" = "italic"
  set the fontsize of member "DATE" = 9

  Deactivate(gPrint1G)

  ----PrintOMatic Routines:
  set doc = new(xtra "PrintOMatic_Lite")
  if not objectP(doc) then exit

  setDocumentName doc, "Order Images/Request Research"

  append doc, member "HeaderGraph"
  append doc, member "Date"
  append doc, member "Form1Build"
  append doc, member "Copyright"


  Deactivate(gPrint1G)
  updateStage

  if doJobSetup(doc) then print doc

  set doc = 0
  ------End pmatic
end


on greyPrint2
  put "Information Client:"&RETURN into line1
  put the text of member "Name"&" - "&The text of member "Title" into line2
  put fixit(line2) into line2
  put the text of member "Company" into line3
  put fixit(line3) into line3
  put the text of member "Address" into line4
  put fixit(line4) into line4
  put the text of member "City" into line5
  put fixit(line5) into line5
  put "Tel:"&&the text of member "Telephone" into line6
  put fixit(line6) into line6
  put "Fax:"&&the text of member "Fax" into line7
  put fixit(line7) into line7
  put "E-mail:"&the text of member "Email" into line8
  put fixit(line8) into line8

  put "Autre personne intΘressΘe:"&&the text of member "colleague" & " - " & the text of member¼
"cTitle" into line9
  put fixit(line9) into line9

  put "Envoyez-moi les Catalogues et/ou les CDs suivants:" into line10

  put "" into ListVar


  if the hilite of member "F2Checkbox1" then
    put "Catalogue 11"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox2" then
    put ListVar&"Catalogue 12"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox3" then
    put ListVar&"Catalogue 13"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox4" then
    put ListVar&"STOCK CD4"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox5" then
    put ListVar&"STOCK CD5"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox6" then
    put ListVar&"STOCK CD6"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox7" then
    put ListVar&"European Mosaic One Catalogue & CD"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox8" then
    put ListVar&"European Mosaic Two Catalogue & CD"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox9" then
    put ListVar&"Concept Idea DiscÖ"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox10" then
    put ListVar&"Sport/SantΘ & Forme Idea DiscÖ"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox11" then
    put ListVar&"Business/Communication Idea DiscÖ"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox12" then
    put ListVar&"Science/MΘdecine Idea DiscÖ"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox13" then
    put ListVar&"Industrie Idea DiscÖ"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox14" then
    put ListVar&"Animaux/Natur Idea DiscÖ"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox15" then
    put ListVar&"Concepts pour le Nouveau MillΘnaire Idea DiscÖ"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox16" then
    put ListVar&"Noir/Blanc & Vintage Idea DiscÖ"&RETURN into ListVar
  end if
  if the hilite of member "F2Checkbox17" then
    put ListVar&"Active Life Idea DiscÖ"&RETURN into ListVar
  end if


  put line1&RETURN&line2&RETURN&line3&RETURN&line4&RETURN&line5&RETURN&RETURN&line6&RETURN&line7¼
&RETURN&line8&RETURN&RETURN&line9&RETURN&RETURN&RETURN&line10&RETURN&ListVar into var
  put "" into member "Form2Build"
  put var into member "Form2Build"

  set the fontstyle of line 1 of member "Form2Build" = "Bold"
  set the fontstyle of line 2 of member "Form2Build" = "Plain"
  set the fontstyle of line 4 of member "Form2Build" = "plain"
  set the fontstyle of line 5 of member "Form2Build" = "plain"
  set the fontstyle of line 15 of member "Form2Build" = "Bold"
  set the fontstyle of line 16 of member "Form2Build" = "plain"
  set the fontSize of member "Form2Build" = 10

  put the date&&the time&RETURN&RETURN&RETURN into member "Date"
  set the fontstyle of member "DATE" = "italic"
  set the fontsize of member "DATE" = 9

  Deactivate(gPrint2G)


  ----PrintOMatic Routines:
  set doc = new(xtra "PrintOMatic_Lite")
  if not objectP(doc) then exit

  setDocumentName doc, "Order Catalogues, CDs and Info"

  append doc, member "HeaderGraph"
  append doc, member "Date"
  append doc, member "Form2Build"
  append doc, member "Copyright"

  Deactivate(gPrint2G)
  updateStage


  if doJobSetup(doc) then print doc

  set doc = 0
  ------End pmatic
end


on form2Rollover
  put rollover(n) into x
  if x > 38 and x < 57 then
    put the member of sprite x into var
    put the name of member var into var
    put var&"Graph" into var
    set the member of sprite 66 = member var
    set the loc of sprite 66 to point(230,240)
  end if
end


on cursorRollControlForm2
  put rollover(n) into x
  if x > 68 and x < 87 or x >60 and x < 66 then
    PointerCursor
  else
    NormalCursor
  end if
end