What PC? 1996 August/WPCAUG96.ISO/makers/search.dir/00033.ls

Text File | 1996-06-12 | 1.6 KB | 55 lines

on mouseDown
  global InSub, Chapter, LastLine, StartSprite
  set theSprite to the clickOn
  if the name of cast the castNum of sprite theSprite contains "down" then
    exit
  end if
  set LastLine to EMPTY
  if the frame > 10 then
    repeat with i = 10 to 42
      puppetSprite(i, 0)
    end repeat
    go(1)
  end if
  hiliteSprite(theSprite)
  if the locH of sprite 10 < 1000 then
    set the locH of sprite 10 to the locH of sprite 10 + 1000
  end if
  put " " into field "subSubList"
  if Chapter <> EMPTY then
    set temp to field "TempText"
  end if
  set currField to the number of cast string(theSprite && "headLines")
  put field currField into field "tempText"
  if the number of lines in field currField > 20 then
    delete line 21 to the number of lines in field currField of field currField
    set LastLine to 20
  end if
  if the locH of sprite 17 < 1000 then
    set the locH of sprite 17 to the locH of sprite 17 + 1000
    set the locH of sprite 18 to the locH of sprite 17
  end if
  updateStage()
  set the foreColor of field currField to 1
  set the castNum of sprite 13 to currField
  if the locH of sprite 13 > 1000 then
    set the locH of sprite 13 to the locH of sprite 13 - 1000
  end if
  updateStage()
  if LastLine = EMPTY then
    if the locH of sprite 15 < 1000 then
      set the locH of sprite 15 to the locH of sprite 15 + 1000
      set the locH of sprite 16 to the locH of sprite 15
    end if
  else
    placeArrow(13, 15)
  end if
  updateStage()
  if Chapter <> EMPTY then
    put temp into field string(Chapter && "HeadLines")
  end if
  set Chapter to theSprite
  set InSub to 1
  set StartSprite to the number of cast "1"
end