home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / search.dir / 00031_Script_31 < prev    next >
Text File  |  1996-03-11  |  2KB  |  51 lines
  1. on mouseDown
  2.   global Chapter,Sub,LastLine,ThisSubChapter,LastSubLine,SavedNum
  3.   
  4.   put the mouseLine into theLine
  5.   if theLine <> (-1) then
  6.     if LastLine <> EMPTY then put LastLine - 20 into dif
  7.     else put 0 into dif
  8.     set the foreColor of field the castNum of sprite the clickOn to 1
  9.     set the foreColor of line theLine of field the castNum of sprite the clickOn to 201
  10.     set the itemDelimiter to "@"
  11.     
  12.     if Chapter <> 7 then
  13.       put (theLine + dif) into Sub
  14.       put item Sub of field (Chapter&&"sub") into xx
  15.       put item Sub of field (Chapter&&"go") into SavedNum
  16.     else
  17.       if value(line theLine of field the castNum of sprite the clickOn) < 1952 then
  18.         put (theLine + dif) into Sub
  19.         put item Sub of field (Chapter&&"sub A") into xx
  20.         put item Sub of field (Chapter&&"go") into SavedNum
  21.       else
  22.         put (theLine + dif - 51) into Sub
  23.         put item Sub of field (Chapter&&"sub B") into xx
  24.         put item (theLine + dif) of field (Chapter&&"go") into SavedNum
  25.       end if
  26.     end if
  27.     
  28.     if line (the number of lines of xx) of xx = EMPTY then delete line the number of lines of xx of xx
  29.     put xx into ThisSubChapter
  30.     if the number of lines of xx > 20 then put 20 into LastSubLine
  31.     else put 0 into LastSubLine
  32.     set the visible of sprite 11 to FALSE
  33.     put line 1 to 20 of xx into field "subSubList"
  34.     put item Chapter of field "GreenSquarSize" into temp
  35.     set the width of sprite 10 to value(line Sub of temp)
  36.     set the height of sprite 10 to (the number of lines of field "subSubList") * 16
  37.     set the locH of sprite 10 to (the right of sprite 13) + 20
  38.     set the locH of sprite 11 to (the right of sprite 13) + 20
  39.     updateStage
  40.     set the visible of sprite 11 to TRUE
  41.     if LastSubLine = 0 then
  42.       if the locH of sprite 17 < 1000 then
  43.         set the locH of sprite 17 to (the locH of sprite 17) + 1000
  44.         set the locH of sprite 18 to the locH of sprite 17
  45.       end if
  46.     else
  47.       placeArrow 10,17
  48.     end if
  49.     set the itemDelimiter to ","
  50.   end if
  51. end