home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 2 / boot-disc-1996-10.iso / bootcd.dir / 00281_Script_281 < prev    next >
Text File  |  1996-08-09  |  2KB  |  40 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 tv=getobj("TVClass")
  22.       stopvideo tv
  23.       set the activeleaf of treeobj to leaf
  24.       if char 1 of leaf="#" then
  25.         set the DosMode of treeobj to true
  26.         delete char 1 of leaf
  27.       end if
  28.       global gStatus
  29.       setBtnText gStatus,"default",leaf
  30.       put the text of member ("de_"&leaf) into field "DemoInfo"
  31.       set the forecolor of member "DemoInfo" to 212 
  32.       puppetsprite 10,true
  33.       set the membernum of sprite 10 to the number of member "justdoithi"
  34.     else
  35.       put "You need to click on an application." into field "DemoInfo"
  36.     end if
  37.   end if
  38.   updateStage
  39. end
  40.