home *** CD-ROM | disk | FTP | other *** search
/ The Stock Market: Browser - Disc 1 / TheStockMarketRoyaltyFreeImages-BrowserDisc1-WinMac.bin / pc / English-US / Main.dir / 00001_Script_MAIN next >
Text File  |  2000-02-10  |  23KB  |  932 lines

  1. global gAppButton, NewPath
  2.  
  3. on LaunchBrowser
  4.   if the machineType = 256 then
  5.     --Here is where you put the PC browser pathname:
  6.     --use backslashes for the PC "\"
  7.     --open NewPath&"CDBROWSE.EXE"
  8.     open the pathname&"Browser_1.fdb" with "Portfolio\PortBrws.exe"
  9.   else
  10.     --here is where you put the mac browser pathname:
  11.     --use colons for the mac":"
  12.     open "Browser 1:English (US):Browser 1" with "Browser 1:English (US):Other Stuff:Portfolio Browser 4.0"
  13.   end if
  14. end
  15.  
  16.  
  17. On netLaunchNow
  18.   gotoNetPage "http://www.stockmarketphoto.com"
  19.   -- with browserName()
  20. end
  21.  
  22.  
  23. on startmovie  
  24.   set the exitLock = 1
  25.   if voidP(newPath) then set newPath = the pathname
  26.   
  27.   ---Check if the Extra Buttons should be present
  28.   global gAppButton, gNumButtonB
  29.   
  30.   
  31.   
  32.   
  33.   ---Fade out sound from opening or QuickTour
  34.   sound fadeout 3,200
  35.   sound fadeout 2,200
  36.   sound fadeout 1,200
  37.   
  38.   ---Rollover Variable(cursor changes on every sprite EXCEPT this sprite
  39.   global gPrimException
  40.   put 1 into gPrimException
  41.   
  42.   ----Initialize Button Variables:
  43.   global findingButt, moreButt, launchButt, QuitButt, AboutButt, CatButt, KeyButt, CompButt, TransButt, DigButt, CatalogButt, AppButt, OKButt, MenuButt, PrintButt, gFaxButt, gPrintButt, gLMenuButt, gLOKButt, gNumButt,NetButt, gOK2Butt
  44.   
  45.   
  46.   ----Assign Buttons Generic TSM Button Script.
  47.   set findingButt=new(script"TSMButton",13,"Find",0,0,1,"FINDING")
  48.   set moreButt = new (script"TSMButton", 15,"More",0,0,1,"MORE1")
  49.   set launchButt=new(script"TSMButton",16,"Launch",0,0,1,"LAUNCH1")
  50.   
  51.   --launch 2 here!!!
  52.   set netButt=new(script"TSMButton",17,"Internet",0,0,1,"INTERNET")
  53.   
  54.   set quitButt=new(script"TSMButton",18,"Quit",0,0,1,"Quit1")
  55.   set aboutButt = new(script "TSMButton",19,"About",560,235,0,"About1")
  56.   set CatButt = new(script "TSMButton",22,"Cat",560,235,0,"Category")
  57.   set KeyButt = new(script "TSMButton",23,"Key",560,265,0,"KeyWord")
  58.   set CompButt = new(script "TSMButton",27,"Comp",560,295,0,"Comps")
  59.   set TransButt = new(script"TSMButton",29,"Trans",560,295,0,"Transparency")
  60.   set DigButt = new(script "TSMButton",30,"Dig",560,325,0,"Digital")
  61.   set CatalogButt = new(script "TSMButton",33,"Catalog",560,265,0,"Catalog1")
  62.   set AppButt = new(Script "TSMButton",36,"App",560,355,0,"Appreciation")
  63.   
  64.   --printForm Buttons
  65.   global gMainG,gPrint1G,gQuitG,gLaunchG,gPrint2G
  66.   
  67.   set gMainG = new(script "TSMButton",61,"greyMain",0,0,1,"greyMain")
  68.   set gPrint1G = new(script "TSMButton",62,"greyPrint",0,0,1,"greyPrint1")
  69.   set gQuitG = new(script "TSMButton",63,"greyQuit",0,0,1,"GreyQuit1")
  70.   set gLaunchG = new(script "TSMButton",64,"greyLaunch",0,0,1,"GreyLaunch1")
  71.   set gPrint2G = new(script "TSMButton",62,"greyPrint",0,0,1,"greyPrint2")
  72.   
  73.   set gFaxButt = new(script "TSMButton",38,"fax",0,0,1,"TakeMeToForm1")
  74.   set gPrintButt = new(script "TSMButton",39,"StdPrint",0,0,1,"PrintSomeStuff")
  75.   
  76.   --launch screen
  77.   set gLMenuButt = new(script "TSMButton",14,"MenuLaunch",0,0,1,"greyMain")
  78.   set gLOKButt = new(script "TSMButton",15,"OKLaunch",0,0,1,"LaunchBrowser")
  79.   
  80.   
  81.   if voidP(gNumButtonB) then
  82.     -----Extra 2 Buttons either get the normal button behaviour or an EMPTY Button Behaviour:
  83.     ---Searching BY NUMBER:
  84.     --see if it exists:
  85.     put 1 into n
  86.     put 1 into var  
  87.     repeat while var <> ""
  88.       put    getNthFileNameInFolder(NewPath, n) into var
  89.       if var = "Macnum.dir" then
  90.         put 1 into gNumButtonB
  91.       end if
  92.       put 1 + n into n
  93.     end repeat
  94.     
  95.     --Declare it in variable "GNUMBUTTON" (same again below)
  96.     if gNumButtonB = 1 then
  97.       set gNumButt = new(script "TSMButton",24,"Num",560,290,0,"Number")
  98.     else
  99.       set gNumButt = new(script "TSMNothing")
  100.     end if
  101.     
  102.     ---Appreciation Button
  103.     put 1 into n
  104.     put 1 into var  
  105.     repeat while var <> ""
  106.       put    getNthFileNameInFolder(NewPath, n) into var
  107.       if var = "App.dir" then
  108.         put 1 into gAppButton
  109.       end if
  110.       put 1 + n into n
  111.     end repeat
  112.     
  113.     if gAppButton = 1 then
  114.       set AppButt = new(Script "TSMButton",36,"App",560,355,0,"Appreciation")
  115.     else
  116.       set AppButt = new(script "TSMNothing")
  117.     end if
  118.     
  119.     --emptyTextFields
  120.   end if
  121.   
  122.   
  123.   
  124.   ---This is the time that the user spends on More CDs/More Catalog section
  125.   global gTimeOnEachCatalogPicture
  126.   put 300 into gTimeOnEachCatalogPicture
  127.   
  128. end
  129.  
  130. on keyDown
  131.   global NewPath
  132.   if the commandDown and ¼
  133.    (the key = "." or the key = "q") and ¼
  134.    the exitLock = TRUE or the keyCode = 53 then go to "quit"
  135. end 
  136.  
  137. on BDN1
  138.   puppetsound "click"
  139. end 
  140.  
  141. on TakeMeToForm1
  142.   go to "form1"
  143. end
  144.  
  145.  
  146. on emptyTextFields
  147.   put " " into member "name" of castlib "Input FieldS"
  148.   put " " into member "title" of castlib "Input FieldS"
  149.   put " " into member "colleague" of castlib "Input FieldS"
  150.   put " " into member "ctitle" of castlib "Input FieldS"
  151.   put " " into member "company" of castlib "Input FieldS"
  152.   put " " into member "address" of castlib "Input FieldS"
  153.   put " " into member "city" of castlib "Input FieldS"
  154.   put " " into member "State" of castlib "Input FieldS"
  155.   put " " into member "zip" of castlib "Input FieldS"
  156.   put " " into member "telephone" of castlib "Input FieldS"
  157.   put " " into member "fax" of castlib "Input FieldS"
  158.   put " " into member "email" of castlib "Input FieldS"
  159.   put " " into member "photoNumber" of castlib "Input FieldS"
  160.   put " " into member "Photographer" of castlib "Input FieldS"
  161.   put " " into member "description" of castlib "Input FieldS"
  162.   put " " into member "ResearchDescription" of castlib "Input FieldS"
  163.   put " " into member "copyConcept" of castlib "Input FieldS"
  164.   put " " into member "Quantity" of castlib "Input FieldS"
  165.   put " " into member "endUser" of castlib "Input FieldS"
  166. end
  167.  
  168.  
  169. on PrintSomeStuff
  170.   global gPrintWhat
  171.   put the date&&the time&RETURN&RETURN&RETURN&RETURN into member "Date"
  172.   set the fontstyle of member "DATE" = "italic"
  173.   set the fontsize of member "DATE" = 9
  174.   
  175.   Deactivate(gPrintButt)
  176.   
  177.   ----PrintOMatic Routines:
  178.   set doc = new(xtra "PrintOMatic_Lite")
  179.   if not objectP(doc) then exit
  180.   setDocumentName doc, "Information from TSM"
  181.   append doc, member "HeaderGraphNormal"
  182.   append doc, member "Date"
  183.   append doc, member gPrintWhat
  184.   append doc, member "copyright"
  185.   if doJobSetup(doc) then print doc
  186.   set doc = 0
  187.   ----End pmatic
  188.   
  189.   Deactivate(gPrintButt)
  190.   
  191. end
  192.  
  193.  
  194.  
  195.  
  196. on RollControl
  197.   everyframe(netButt)
  198.   everyframe(findingButt)
  199.   everyframe(moreButt)
  200.   everyframe(LaunchButt)
  201.   everyframe(quitButt)
  202.   everyframe(AboutButt)
  203.   everyframe(catButt)
  204.   everyframe(keyButt)
  205.   everyframe(CompButt)
  206.   everyframe(transButt)
  207.   everyframe(digButt)
  208.   everyframe(CatalogButt)
  209.   everyframe(AppButt)
  210.   everyframe(gNumButt)
  211.   
  212.   checkCursor
  213. end
  214.  
  215. on CheckCursor
  216.   global gPrimException
  217.   put rollover(n) into x
  218.   if x > 12 and x < 20 or x > 21 and x < 25 or x > 26 and x < 31 or x =33 or x=34 or x>35 and x <40 or x= 47 then
  219.     
  220.     if rollover(gPrimException) then
  221.       cursor 0
  222.     else
  223.       PointerCursor
  224.     end if
  225.   else
  226.     cursor 0
  227.   end if
  228. end
  229.  
  230. on concJob
  231.   --  alert "fucking cool"
  232.   go to "ideaDisc"
  233.   turnOff(compButt)
  234.   turnOff(reproButt)
  235.   turnOff(TransButt)
  236.   TurnOff(DigBUtt)
  237.   
  238.   
  239. end
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251. on PushControl
  252.   nothing
  253.   ---hmmm, what was I thinking?
  254. end=
  255.  
  256.  
  257. on PointerCursor
  258.   --  cursor [13,14]
  259.   cursor 280
  260. end
  261.  
  262. on NormalCursor
  263.   cursor 0
  264. end 
  265.  
  266. on cursorRollControlForm1
  267.   if rollover (36) or rollover (37) or rollover (38) or rollover (39) or rollover (40)¼
  268. or rollover(41) or rollover(46) or rollover(47) or rollover(48) or rollover (49)¼
  269. or rollover(50) or rollover(53) or rollover(54) or rollover(61) or rollover(62)¼
  270. or rollover(63) or rollover(64) then
  271.     PointerCursor
  272.   else
  273.     NormalCursor
  274.   end if
  275. end
  276.  
  277.  
  278.  
  279. on doTheDelay
  280.   global gTimeOnEachCatalogPicture
  281.   if the timer > gTimeOnEachCatalogPicture then
  282.     starttimer
  283.     puppettransition 23
  284.   else
  285.     go the frame
  286.   end if
  287. end
  288.  
  289. on Finding
  290.   if the frameLabel <> "Main" then
  291.     global gPrimException
  292.     put 99 into gPrimException
  293.     go to "main"
  294.     
  295.   end if
  296.   
  297.   turnOn(keybutt)
  298.   turnOn(catbutt)
  299.   turnOn(compbutt)
  300.   
  301.   
  302.   
  303.   ---Extra Sub Button shadow mask
  304.   global gNumButtonB
  305.   if gNumButtonB = 1 then
  306.     
  307.     turnOn(gNumButt)
  308.   end if
  309.   
  310.   
  311.   
  312.   ---Push up, turn off and get rid of all the other buttons
  313.   
  314.   deactivate(moreButt)
  315.   deactivate(launchButt)
  316.   deactivate(quitButt)
  317.   turnOff(aboutButt)
  318.   turnOff(AppButt)
  319.   turnOff(TransButt)
  320.   TurnOff(DigBUtt)
  321.   turnOff(CatalogButt)
  322.   
  323.   
  324.   global gPrimException
  325.   put 13 into gPrimException
  326.   
  327. end
  328.  
  329.  
  330.  
  331.  
  332.  
  333.  
  334. on MORE1
  335.   global gAppButton
  336.   
  337.   if the frameLabel <> "Main" then
  338.     global gPrimException
  339.     put 99 into gPrimException
  340.     go to "main"
  341.   end if
  342.   
  343.   -----Get rid of all buttons not needed:
  344.   
  345.   deactivate(findingButt)
  346.   deactivate(launchButt)
  347.   deactivate(netButt)
  348.   deactivate(quitButt)
  349.   turnOff(catbutt)
  350.   turnOff(keybutt)
  351.   turnOff(compButt)
  352.   turnOff(gNumButt)
  353.   
  354.   
  355.   -----Turn on the used buttons:
  356.   
  357.   TurnOn(AboutButt)
  358.   TurnOn(CatalogButt)
  359.   TurnOn(TransButt)
  360.   TurnOn(DigButt)
  361.   
  362.   if gAppButton then
  363.     turnOn(AppButt) 
  364.   end if
  365.   
  366.   global gPrimException
  367.   put 15 into gPrimException
  368.   
  369. end
  370.  
  371.  
  372.  
  373.  
  374. on greyLaunch1
  375.   go to "Launch"
  376. end
  377.  
  378. on greyQuit1  
  379.   go to "quit"
  380. end
  381.  
  382. on Launch1
  383.   nothing
  384.   deactivate(findingButt)
  385.   deactivate(moreButt)
  386.   deactivate(quitButt)
  387.   deactivate(netButt)
  388.   
  389.   turnOff(compButt)
  390.   turnOff(TransButt)
  391.   turnOff(DigBUtt)
  392.   turnOff(CatalogButt)
  393.   turnOff(catButt)
  394.   turnOff(keyButt)
  395.   turnOff(gNumButt)
  396.   turnOff(AboutButt)
  397.   
  398.   if gAppButton then
  399.     turnOff(AppButt)
  400.   end if
  401.   
  402.   cursor 0
  403.   updatestage
  404.   go to "Launch"
  405.   global gPrimException
  406.   put 1 into gPrimException
  407.   
  408. end
  409.  
  410. on Quit1
  411.   nothing
  412.   deactivate(findingButt)
  413.   deactivate(moreButt)
  414.   deactivate(launchButt)
  415.   deactivate(netButt)
  416.   
  417.   turnOff(compButt)
  418.   turnOff(TransButt)
  419.   turnOff(DigBUtt)
  420.   turnOff(CatalogButt)
  421.   turnOff(catButt)
  422.   turnOff(keyButt)
  423.   turnOff(gNumButt)
  424.   turnOff(AboutButt)
  425.   
  426.   if gAppButton then
  427.     turnOff(AppButt)
  428.   end if
  429.   
  430.   cursor 0
  431.   updatestage
  432.   go to "quit"
  433.   global gPrimException
  434.   put 1 into gPrimException
  435.   cursor 0
  436. end
  437.  
  438. on about1
  439.   deactivate(CatalogButt)
  440.   deactivate(transButt)
  441.   deactivate(DigButt)
  442.   deactivate(AppButt)
  443.   
  444.   cursor 0
  445.   upDateStage
  446.   go to "out"
  447.   play movie NewPath&"About.Dir"
  448.   global gSecException
  449.   put 36 into gSecException
  450.   cursor 0
  451. end
  452.  
  453.  
  454.  
  455. on category
  456.   nothing
  457.   deactivate(keyButt)
  458.   deactivate(gNumButt)
  459.   deactivate(CompButt)
  460.   cursor 0
  461.   
  462.   upDateStage
  463.   go to "out"
  464.   play movie NewPath&"Maccat.dir"
  465.   
  466.   
  467.   global gSecException
  468.   put 22 into gSecException
  469.   cursor 0
  470. end
  471.  
  472. on number
  473.   deactivate(keyButt)
  474.   deactivate(catButt)
  475.   deactivate(CompButt)
  476.   updatestage
  477.   global gSecException
  478.   put 24 into gSecException
  479.   cursor 0
  480.   
  481.   go to "out"
  482.   play movie NewPath&"Macnum.dir"
  483.   cursor 0
  484.   updatestage
  485. end  
  486.  
  487. on keyword
  488.   deactivate(gNumButt)
  489.   deactivate(catButt)
  490.   deactivate(CompButt)
  491.   upDateStage
  492.   
  493.   cursor 0
  494.   
  495.   go to "out"
  496.   global gSecException
  497.   put 23 into gSecException
  498.   play movie NewPath&"Mackey.dir"
  499.   
  500.   cursor 0
  501.   updateStage
  502. end
  503.  
  504. on Comps
  505.   deactivate(gNumButt)
  506.   deactivate(keyButt)
  507.   deactivate(catButt)
  508.   
  509.   cursor 0
  510.   upDateStage
  511.   go to "out"
  512.   global gSecException
  513.   put 27 into gSecException
  514.   cursor 0
  515.   play movie NewPath&"Maccomp.dir"
  516.   
  517. end
  518.  
  519.  
  520.  
  521. on Transparency
  522.   deactivate(CatalogButt)
  523.   deactivate(appButt)
  524.   deactivate(DigButt)
  525.   deactivate(aboutButt)
  526.   
  527.   cursor 0
  528.   updateStage
  529.   go to "Transparency"
  530.   global gSecException
  531.   put 29 into gSecException
  532.   cursor 0
  533.   
  534. end
  535.  
  536. on Digital
  537.   
  538.   deactivate(CatalogButt)
  539.   deactivate(appButt)
  540.   deactivate(transButt)
  541.   deactivate(aboutButt)
  542.   
  543.   cursor 0
  544.   upDateStage
  545.   go to "out"
  546.   play movie NewPath&"Dig.Dir"
  547.   global gSecException
  548.   put 30 into gSecException
  549.   cursor 0
  550.   
  551. end
  552.  
  553.  
  554. on Internet
  555.   
  556.   deactivate(findingButt)
  557.   deactivate(moreButt)
  558.   deactivate(quitButt)
  559.   deactivate(netButt)
  560.   
  561.   turnOff(compButt)
  562.   turnOff(TransButt)
  563.   turnOff(DigBUtt)
  564.   turnOff(CatalogButt)
  565.   turnOff(catButt)
  566.   turnOff(keyButt)
  567.   turnOff(gNumButt)
  568.   turnOff(AboutButt)
  569.   
  570.   if gAppButton then
  571.     turnOff(AppButt)
  572.   end if
  573.   
  574.   cursor 0
  575.   updatestage
  576.   go to "Internet"
  577.   
  578. end
  579.  
  580.  
  581.  
  582.  
  583. on Catalog1
  584.   deactivate(AboutButt)
  585.   deactivate(appButt)
  586.   deactivate(transButt)
  587.   deactivate(digButt)
  588.   
  589.   cursor 0
  590.   updateStage
  591.   go to "Form2"
  592.   global gSecException
  593.   put 33 into gSecException
  594.   cursor 0
  595. end
  596.  
  597.  
  598.  
  599. on Appreciation
  600.   deactivate(CatalogButt)
  601.   deactivate(aboutButt)
  602.   deactivate(transButt)
  603.   deactivate(digButt)
  604.   
  605.   cursor 0
  606.   upDateStage
  607.   go to "app"
  608.   global gSecException
  609.   put 36 into gSecException
  610.   cursor 0
  611. end
  612.  
  613.  
  614. on greyMain
  615.   
  616.   cursor 0
  617.   updateStage
  618.   go to 1
  619. end
  620.  
  621. on fixit brokenword
  622.   put brokenWord into var
  623.   put 1 into n
  624.   put length(var) into varc
  625.   repeat while n < varc
  626.     if char n of var = RETURN then
  627.       delete char n of var
  628.     end if
  629.     put 1 + n into n
  630.   end repeat
  631.   return var
  632. end 
  633.  
  634. on greyPrint1
  635.   put "Client Information"&RETURN into line1
  636.   put the text of member "Name"&" - "&The text of member "Title" into line2
  637.   put fixit(line2) into line2
  638.   put the text of member "Company" into line3
  639.   put fixit(line3) into line3
  640.   put the text of member "Address" into line4
  641.   put fixit(line4) into line4
  642.   put the text of member "City" into line5
  643.   put fixit(line5) into line5
  644.   
  645.   put "Tel:"&&the text of member "Telephone" into line6
  646.   put fixit(line6) into line6
  647.   
  648.   put "Fax:"&&the text of member "Fax" into line7
  649.   put fixit(line7) into line7
  650.   
  651.   put "email:"&the text of member "Email" into line8
  652.   put fixit(line8) into line8
  653.   
  654.   put "Image Information"&RETURN into line9
  655.   put "Photograph Number:"&RETURN&the text of member "PhotoNumber"&RETURN into line10
  656.   put "Photographer:"&RETURN&the text of member "Photographer"&RETURN into line11
  657.   put "Description:"&RETURN&the text of member "Description"&RETURN into line12
  658.   
  659.   put "Request for More Research"&RETURN into line14
  660.   put "Research Description:"&RETURN&the text of member "ResearchDescription"&RETURN into line15
  661.   put "Copy or Concept:"&RETURN&the text of member "CopyConcept"&RETURN into line16
  662.   
  663.   --- CheckBoxes (USAGE,SIZE,LOCATION)
  664.   if the hilite of member "CheckBox1" then
  665.     set UsageVar = "Brochure"
  666.   else
  667.     if the hilite of member "CheckBox2" then
  668.       set UsageVar = "Newspaper Ad"
  669.     else
  670.       if the hilite of member "CheckBox3" then
  671.         set UsageVar = "Consumer Ad"
  672.       else
  673.         if the hilite of member "CheckBox4" then
  674.           set UsageVar = "Trade Ad"
  675.         else
  676.           if the hilite of member "CheckBox5" then
  677.             set UsageVar = "Editorial"
  678.           else
  679.             if the hilite of member "CheckBox6" then
  680.               set UsageVar = "Other"
  681.             else
  682.               set UsageVar = "Not Specified"
  683.             end if
  684.           end if
  685.         end if
  686.       end if
  687.     end if
  688.   end if
  689.   
  690.   if the hilite of member "checkBox7" then
  691.     set SizeVar = "1/4 Page or less"
  692.   else
  693.     if the hilite of member "CheckBox8" then
  694.       set sizeVar = "1/2 Page"
  695.     else
  696.       if the hilite of member "CheckBox9" then
  697.         set sizeVar = "3/4 Page"
  698.       else
  699.         if the hilite of member "CheckBox10" then
  700.           set sizeVar = "Full Page"
  701.         else
  702.           if the hilite of member "CheckBox11" then
  703.             set sizeVar = "Spread"
  704.           else
  705.             set SizeVar = "Not Specified"
  706.           end if
  707.         end if
  708.       end if
  709.     end if
  710.   end if
  711.   
  712.   if the hilite of member "CheckBox12" then
  713.     set LocationVar = "Inside"
  714.   else
  715.     if the hilite of member "CheckBox13" then
  716.       set locationVar = "Cover"
  717.     else
  718.       set locationVar = "Not Specified"
  719.     end if
  720.   end if
  721.   
  722.   put "Project Information"&RETURN into line17
  723.   put "Usage:"&&UsageVar into line18
  724.   put "Quantity:"&&the text of member "Quantity" into line19
  725.   put "Size:"&&SizeVar into line20
  726.   put "Location:"&&LocationVar into line21
  727.   put "End User/Industry:"&&the text of member "enduser" into line22
  728.   
  729.   put line1&RETURN&line2&RETURN&line3&RETURN&line4&RETURN&line5&RETURN&line6&RETURN&line7¼
  730. &RETURN&line8&RETURN&RETURN&line9&RETURN&line10&RETURN&line11&RETURN&line12&RETURN¼
  731. &line14&RETURN&line15&RETURN&line16&RETURN&line17&RETURN&line18&RETURN&line19&RETURN&line20¼
  732. &RETURN&line21&RETURN&line22 into var
  733.   put "" into member "Form1Build"
  734.   put var into member "Form1Build"
  735.   
  736.   set the fontstyle of line 1 of member "Form1Build" = "Bold"
  737.   set the fontStyle of line 2 of member "Form1Build" = "plain"
  738.   set the fontstyle of line 4 of member "Form1Build" = "Plain"
  739.   set the fontStyle of line 5 of member "Form1Build" = "plain"
  740.   set the fontstyle of line 11 of member "Form1Build" = "Bold"
  741.   set the fontStyle of line 12 of member "Form1Build" = "plain"
  742.   set the fontstyle of line 22 of member "Form1Build" = "Bold"
  743.   set the fontstyle of line 23 of member "Form1Build" = "plain"
  744.   set the fontstyle of line 30 of member "Form1Build" = "Bold"
  745.   set the fontstyle of line 31 of member "Form1Build" = "plain"
  746.   set the fontsize of member "form1Build" = 10
  747.   
  748.   put the date&&the time&RETURN&RETURN into member "Date"
  749.   set the fontstyle of member "DATE" = "italic"
  750.   set the fontsize of member "DATE" = 9
  751.   
  752.   Deactivate(gPrint1G)
  753.   
  754.   ----PrintOMatic Routines:
  755.   set doc = new(xtra "PrintOMatic_Lite")
  756.   if not objectP(doc) then exit
  757.   
  758.   setDocumentName doc, "Order Images/Request Research"
  759.   
  760.   append doc, member "HeaderGraph"
  761.   append doc, member "Date"
  762.   append doc, member "Form1Build"
  763.   append doc, member "Copyright"
  764.   
  765.   
  766.   Deactivate(gPrint1G)
  767.   updateStage
  768.   
  769.   if doJobSetup(doc) then print doc
  770.   
  771.   set doc = 0
  772.   ------End pmatic
  773. end
  774.  
  775.  
  776. on greyPrint2
  777.   put "Client Information:"&RETURN into line1
  778.   put the text of member "Name"&" - "&The text of member "Title" into line2
  779.   put fixit(line2) into line2
  780.   put the text of member "Company" into line3
  781.   put fixit(line3) into line3
  782.   put the text of member "Address" into line4
  783.   put fixit(line4) into line4
  784.   put the text of member "City" into line5
  785.   put fixit(line5) into line5
  786.   put "Tel:"&&the text of member "Telephone" into line6
  787.   put fixit(line6) into line6
  788.   put "Fax:"&&the text of member "Fax" into line7
  789.   put fixit(line7) into line7
  790.   put "E-mail:"&the text of member "Email" into line8
  791.   put fixit(line8) into line8
  792.   
  793.   put "Colleague's Name:"&&the text of member "colleague" & " - " & the text of member¼
  794. "cTitle" into line9
  795.   put fixit(line9) into line9
  796.   
  797.   put "Please send information on the following TSM Products/Services:" into line10
  798.   
  799.   put "" into ListVar
  800.   
  801.   
  802.   if the hilite of member "F2Checkbox1" then
  803.     put "Catalogue 11"&RETURN into ListVar
  804.   end if
  805.   if the hilite of member "F2Checkbox2" then
  806.     put ListVar&"Catalogue 12"&RETURN into ListVar
  807.   end if
  808.   if the hilite of member "F2Checkbox3" then
  809.     put ListVar&"Catalogue 13"&RETURN into ListVar
  810.   end if
  811.   if the hilite of member "F2Checkbox4" then 
  812.     put ListVar&"STOCK CD4"&RETURN into ListVar
  813.   end if
  814.   if the hilite of member "F2Checkbox5" then
  815.     put ListVar&"STOCK CD5"&RETURN into ListVar
  816.   end if
  817.   if the hilite of member "F2Checkbox6" then
  818.     put ListVar&"STOCK CD6"&RETURN into ListVar
  819.   end if
  820.   if the hilite of member "F2Checkbox7" then
  821.     put ListVar&"American Mosaic 3 Catalogue & CD"&RETURN into ListVar
  822.   end if
  823.   if the hilite of member "F2Checkbox8" then 
  824.     put ListVar&"American Mosaic 4 Catalogue & CD"&RETURN into ListVar
  825.   end if
  826.   if the hilite of member "F2Checkbox9" then
  827.     put ListVar&"European Mosaic One Catalogue & CD"&RETURN into ListVar
  828.   end if
  829.   if the hilite of member "F2Checkbox10" then
  830.     put ListVar&"European Mosaic Two Catalogue & CD"&RETURN into ListVar
  831.   end if
  832.   if the hilite of member "F2Checkbox11" then
  833.     put ListVar&"Concepts Idea DiscÖ"&RETURN into ListVar
  834.   end if
  835.   if the hilite of member "F2Checkbox12" then
  836.     put ListVar&"Sports/Health & Fitness Idea DiscÖ"&RETURN into ListVar
  837.   end if
  838.   if the hilite of member "F2Checkbox13" then
  839.     put ListVar&"Corporate/Communications Idea DiscÖ"&RETURN into ListVar
  840.   end if
  841.   if the hilite of member "F2Checkbox14" then
  842.     put ListVar&"Science/Medicine Idea DiscÖ"&RETURN into ListVar
  843.   end if
  844.   if the hilite of member "F2Checkbox15" then
  845.     put ListVar&"Industry Idea DiscÖ"&RETURN into ListVar
  846.   end if
  847.   if the hilite of member "F2Checkbox16" then
  848.     put ListVar&"Animals/Nature Idea DiscÖ"&RETURN into ListVar
  849.   end if
  850.   if the hilite of member "F2Checkbox17" then
  851.     put ListVar&"Concepts for the New Millennium Idea DiscÖ"&RETURN into ListVar
  852.   end if
  853.   if the hilite of member "F2Checkbox18" then
  854.     put ListVar&"Black/White & Vintage Idea DiscÖ"&RETURN into ListVar
  855.   end if
  856.   if the hilite of member "F2Checkbox19" then
  857.     put ListVar&"Active Life Idea DiscÖ"&RETURN into ListVar
  858.   end if
  859.   
  860.   
  861.   put line1&RETURN&line2&RETURN&line3&RETURN&line4&RETURN&line5&RETURN&RETURN&line6&RETURN&line7¼
  862. &RETURN&line8&RETURN&RETURN&line9&RETURN&RETURN&RETURN&line10&RETURN&ListVar into var
  863.   put "" into member "Form2Build"
  864.   put var into member "Form2Build"
  865.   
  866.   set the fontstyle of line 1 of member "Form2Build" = "Bold"
  867.   set the fontstyle of line 2 of member "Form2Build" = "Plain"
  868.   set the fontstyle of line 4 of member "Form2Build" = "plain"
  869.   set the fontstyle of line 5 of member "Form2Build" = "plain"
  870.   set the fontstyle of line 15 of member "Form2Build" = "Bold"
  871.   set the fontstyle of line 16 of member "Form2Build" = "plain"
  872.   set the fontSize of member "Form2Build" = 10
  873.   
  874.   put the date&&the time&RETURN&RETURN&RETURN into member "Date"
  875.   set the fontstyle of member "DATE" = "italic"
  876.   set the fontsize of member "DATE" = 9
  877.   
  878.   Deactivate(gPrint2G)
  879.   
  880.   
  881.   ----PrintOMatic Routines:
  882.   set doc = new(xtra "PrintOMatic_Lite")
  883.   if not objectP(doc) then exit
  884.   
  885.   setDocumentName doc, "Order Catalogues, CDs and Info"
  886.   
  887.   append doc, member "HeaderGraph"
  888.   append doc, member "Date"
  889.   append doc, member "Form2Build"
  890.   append doc, member "Copyright"
  891.   
  892.   Deactivate(gPrint2G)
  893.   updateStage
  894.   
  895.   
  896.   if doJobSetup(doc) then print doc
  897.   
  898.   set doc = 0
  899.   ------End pmatic
  900. end
  901.  
  902.  
  903. on form2Rollover
  904.   put rollover(n) into x
  905.   if x > 37 and x < 57 then
  906.     put the member of sprite x into var
  907.     put the name of member var into var
  908.     put var&"Graph" into var
  909.     set the member of sprite 66 = member var
  910.     set the loc of sprite 66 to point(230,240)
  911.   end if
  912. end
  913.  
  914.  
  915. on cursorRollControlForm2
  916.   put rollover(n) into x
  917.   if x > 68 and x < 88 or x >60 and x < 66 then
  918.     PointerCursor
  919.   else
  920.     NormalCursor
  921.   end if
  922. end
  923.  
  924.  
  925.  
  926.  
  927.  
  928.  
  929.  
  930.  
  931.  
  932.