--   Flash全屏播放
property mysprite
property MySwfSpri
property OldName

on beginsprite me
  mysprite=sprite(me.spritenum)
  OldName=Mysprite.member.name
end

on mouseenter me
  Mysprite.member=member(OldName&"h","con_hwk")
  mysprite.cursor=280
end

on mouseleave me
  Mysprite.member=member(OldName,"con_hwk")
  mysprite.cursor=-1
end

on mouseup me
  mysprite.cursor=-1
  sprite(MySwfSpri).locz=51
  sprite(MySwfSpri).width=800
  sprite(MySwfSpri).height=600
  sprite(MySwfSpri).loc=point(400,300)
  sprite(100).visible=true
  if sprite(101).visible = true then
    repeat with i = 101 to 106
      sprite(i).visible = false
    end repeat
  end if
end

on getPropertyDescriptionList me
  ----自动获取通道上Flash精灵的编号
  set SwfSprites=[]
  ----遍历 1 到 20 号精灵通道，寻找Flash精灵
  repeat with spritenum=1 to 100
    case sprite(spritenum).member.type of
      (#flash):
        append SwfSprites,spritenum
    end case
  end repeat
  ----------------------------
  pro=[:]
  setaprop pro,#MySwfSpri,[ #comment: "受控制的flash精灵的定位:",#format:#integer,#default: 1, #range:SwfSprites]
  return pro 
end getPropertyDescriptionList