home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / search.dir / 00033_Script_33 < prev    next >
Text File  |  1996-03-11  |  2KB  |  48 lines
  1. on mouseDown
  2.   global InSub,Chapter,LastLine,StartSprite
  3.   
  4.   put the clickOn into theSprite
  5.   
  6.   if the name of cast the castNum of sprite theSprite contains "down" then exit
  7.   
  8.   put EMPTY into LastLine
  9.   if the frame > 10 then
  10.     repeat with i=10 to 42
  11.       puppetSprite i,FALSE
  12.     end repeat
  13.     go frame 1
  14.   end if
  15.   hiliteSprite theSprite
  16.   if the locH of sprite 10 < 1000 then set the locH of sprite 10 to (the locH of sprite 10) + 1000
  17.   put " " into field "subSubList"
  18.   if Chapter <> EMPTY then put field "TempText" into temp
  19.   
  20.   put the number of cast string(theSprite &&"headLines") into currField  --placing the right field
  21.   put field currField into field "tempText"
  22.   if the number of lines of field currField > 20 then
  23.     delete line 21 to (the number of lines of field currField) of field currField
  24.     put 20 into LastLine
  25.   end if
  26.   if the locH of sprite 17 < 1000 then
  27.     set the locH of sprite 17 to (the locH of sprite 17) + 1000
  28.     set the locH of sprite 18 to the locH of sprite 17
  29.   end if
  30.   updateStage
  31.   set the foreColor of field currField to 1
  32.   set the castNum of sprite 13 to currField
  33.   if the locH of sprite 13 > 1000 then set the locH of sprite 13 to (the locH of sprite 13) - 1000
  34.   updateStage
  35.   if LastLine = EMPTY then
  36.     if the locH of sprite 15 < 1000 then
  37.       set the locH of sprite 15 to (the locH of sprite 15) + 1000
  38.       set the locH of sprite 16 to the locH of sprite 15
  39.     end if
  40.   else
  41.     placeArrow 13,15
  42.   end if
  43.   updateStage
  44.   if Chapter <> EMPTY then put temp into field string(Chapter&&"HeadLines")
  45.   put theSprite into Chapter
  46.   put TRUE into InSub
  47.   put the number of cast "1" into StartSprite
  48. end