CD-ROM Magazin 1995 May/TYPEMANIA.ISO/systhema.dir/00110_Script_110

Text File | 1995-02-27 | 1KB | 35 lines

on mouseDown
  global seltext
  --set seltext=""
  set startH=the mouseH
  set startV= the mouseV
  hilite char 5000 of field 90
  set the puppet of sprite 24 to true
  if not the optionDown then
    hilite word the mouseword of field 90
    set seltext=word the mouseword of field 90
    put seltext
    pause
  else
    open window "such.dir"
    set the windowType of window "such.dir" to 49
    --    if seltext<>"" then
    --      beep
    --      set the Text of field 109 to seltext&Return&the text of field 109
    --    end if

    --    set the locH of Sprite 28 to the mouseH
    --    set the locV of Sprite 28 to the mouseV
    --    set myline=0
    --    updatestage
    --    repeat while the mousedown and rollover (28)
    --      if myLine<>the mouseline and the mouseline>0 then
    --        set myLine=the mouseline
    --        hilite line the mouseLine of field 109
    --      end if
    --    end repeat
    --    if rollover(28) and myline>0 then
    --      alert line myLine of field 109
    --    end if
  end if --option down
end