Boot Disc 2/boot-disc-1996-10.iso/Demo.dir/00008_Script_8

Text File | 1996-08-09 | 2KB | 74 lines

on startmovie
  openxlib "FileIO"
  clearglobals
  set the actorlist=[]
  set obj=new(script "ResourcesClass","DemoList","CategoryList","welcomeScreen",21)
  new(script "videoBtnClass",21)
  startcycle obj
  set the scrolltop of member "DemoList" to 0
  new(script "StatusClass")
end

on pressbtn
  set spritenum=the clickon
  set upcast=the membernum of sprite spritenum
  set upcastname=the name of member upcast
  set downcast=the number of member (upcastname&"Down")
  puppetsprite spritenum,true
  set the membernum of sprite spritenum to downcast
  updateStage
  repeat while the mousedown
  end repeat
  set the membernum of sprite spritenum to upcast
  updateStage
  puppetsprite spritenum,false
  return rollover(spritenum)
end

on scroll delta,prefix
  if voidP(prefix) then set prefix="d_"
  set btnsprite=the clickon
  set btn=the membernum of sprite btnsprite
  set btndown=the number of member ((the name of member btn)&"Down")
  puppetsprite btnsprite,true
  set the membernum of sprite btnsprite to btndown
  updateStage
  repeat with index=1 to 48
    set curcast=the membernum of sprite index
    if curcast>0 then
      if offset(prefix,the name of member curcast)=1 then
        set spritenum=index
        exit repeat
      end if
    end if
  end repeat
  set pos=the scrolltop of member curcast
  set textwidth=the bottom of sprite spritenum-the top of sprite spritenum
  set totalheight=the height of member curcast
  repeat while the mousedown
    if textwidth>=totalheight then exit repeat
    if the rightMouseDown then
      set mult=5
    else
      set mult=2
    end if
    if delta>0 then
      set pos=min(pos+delta*Mult,totalheight-textwidth)
    else
      set pos=max(pos+delta*mult,0)
    end if
    set the scrolltop of member curcast to pos
  end repeat
  set the membernum of sprite btnsprite to btn
  updateStage
  puppetsprite btnsprite,false
end

on resetAllText prefix
  if voidP(prefix) then set prefix="d_"
  repeat with index=1 to the number of members
    if the type of member index=#richText then
      set the scrolltop of member index to 0
    end if
  end repeat
end