home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 1 / boot-disc-1996-08.iso / bootcd.dir / 00548_Script_548 < prev    next >
Text File  |  1996-07-02  |  1KB  |  35 lines
  1. on mouseDown
  2.   set membername=the name of member the membernum of sprite the clickon
  3.   set pos=offset("Text",membername)
  4.   delete char pos to length(membername) of membername
  5.   SelectDemo membername
  6.   global treeobj
  7.   set the activebase of treeobj to "Demos"
  8.   set the activemid of treeobj to membername
  9.   puppetsprite 10,true
  10.   set the membernum of sprite 10 to the number of member "justdoit"
  11.   if the mouseline<1 then
  12.     put "You must click on the name of a game or application to select it." into field "DemoInfo"
  13.     set the activeleaf of treeobj to 0
  14.   else
  15.     repeat with fieldname in ["Gamestext","LeisureText","AppsText"]
  16.       set the textstyle of field fieldname to "plain"
  17.     end repeat
  18.     set the textstyle of line the mouseline of field (the membernum of sprite the clickon) to "bold"
  19.     set leaf=line the mouseline of field (the membernum of sprite the clickon) 
  20.     if the mouseline>0 then
  21.       set the activeleaf of treeobj to leaf
  22.       if char 1 of leaf="#" then
  23.         set the DosMode of treeobj to true
  24.         delete char 1 of leaf
  25.       end if
  26.       put the text of member ("de_"&leaf) into field "DemoInfo"
  27.       puppetsprite 10,true
  28.       set the membernum of sprite 10 to the number of member "justdoithi"
  29.     else
  30.       put "You need to click on an application." into field "DemoInfo"
  31.     end if
  32.   end if
  33.   updateStage
  34. end
  35.