home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / invest.dir / 00002_Script_2 next >
Text File  |  1997-05-26  |  3KB  |  94 lines
  1.  
  2.  
  3. global gInstructText,gDescriptionText, gorigcast, gDiplaycast, gOrigHilite, gActiveText, gDisplayFieldLines
  4. global gNumOfInstructLns, gNumOfDescriptLns, gInstructionsUP, gTopDiplayLn, gTotalLine
  5.  
  6. --------------------------------------------------------------------------------------------------------
  7. on startmovie
  8.   set  the textHeight of field  "DisplayText" = 12
  9. end startmovie
  10.  
  11. on scrollup
  12.   
  13.   set the castnum of sprite 28 = 914
  14.   updatestage
  15.   repeat while the mousedown
  16.     
  17.     if (gTopDiplayLn > 1) then 
  18.       set gTopDiplayLn = gTopDiplayLn - 1
  19.       set the text of cast gDiplaycast = line gTopDiplayLn to (gTopDiplayLn + gDisplayFieldLines) of gActiveText
  20.     end if
  21.     
  22.   end repeat
  23.   set the castnum of sprite 28 = 0
  24.   updatestage
  25.   
  26. end scrollup
  27. --------------------------------------------------------------------------------------------------------
  28. on scrolldown
  29.   
  30.   set the castnum of sprite 30 = 913
  31.   updatestage
  32.   repeat while the mousedown
  33.     
  34.     if ((gTopDiplayLn + gDisplayFieldLines) <= gTotalLine) then 
  35.       set gTopDiplayLn = gTopDiplayLn + 1
  36.       set the text of cast gDiplaycast = line gTopDiplayLn to (gTopDiplayLn + gDisplayFieldLines) of gActiveText
  37.     end if
  38.     
  39.   end repeat
  40.   set the castnum of sprite 30 = 0
  41.   updatestage
  42.   
  43. end scrolldown
  44. --------------------------------------------------------------------------------------------------------
  45. on InstructionToggle
  46.   
  47.   if the mousev > 418 then
  48.     
  49.     set the text of cast gDiplaycast = gDescriptionText
  50.     puppetsprite 33, true
  51.     set the castnum of sprite 33 = gOrigHilite + 1
  52.     puppetsprite 26, true
  53.     set the castnum of sprite 26 = 0
  54.     set gTotalLine = gNumOfDescriptLns
  55.     set gActiveText = gDescriptionText
  56.     
  57.   else 
  58.     
  59.     set the text of cast gDiplaycast = gInstructText
  60.     puppetsprite 33, false
  61.     puppetsprite 26, false
  62.     set gTotalLine = gNumOfInstructLns
  63.     set gActiveText = gInstructText
  64.     
  65.   end if
  66.   
  67.   set gTopDiplayLn = 1
  68.   updatestage
  69.   
  70. end InstructionToggle
  71. --------------------------------------------------------------------------------------------------------
  72.  
  73.  
  74. on setuptext
  75.   
  76.   set gTopDiplayLn = 1
  77.   set gDisplayFieldLines = 30
  78.   
  79.   set gDiplaycast = the number of cast "DisplayText"
  80.   set gorigcast = the castnum of sprite 26
  81.   set gOrigHilite = the castnum of sprite 33
  82.   
  83.   set gInstructText =  the text of cast gorigcast
  84.   set gNumOfInstructLns = the number of lines of gInstructText
  85.   
  86.   set gDescriptionText =  the text of cast (gorigcast + 1)
  87.   set gNumOfDescriptLns = the number of lines of gDescriptionText
  88.   
  89.   set the text of cast gDiplaycast = gInstructText
  90.   set gTotalLine = gNumOfInstructLns
  91.   set gActiveText = gInstructText
  92.   
  93. end setuptext
  94. --------------------------------------------------------------------------------------------------------