(13) 按Ctrl+6组合键，单击窗口左上角的“+”按钮，创建新的窗口，输入文本“退出”，如图8-80所示。

图8-80  输入文本“退出”

(14) 单击Cast Member Script按钮，输入以下Lingo语句，如图8-81所示。

on mouseUp

  quit

end

图8-81  文本“退出”的Lingo脚本

(15) 按Ctrl+6组合键，单击窗口左上角的“+”按钮，创建新的窗口，输入文本“请选择先后手：”。此Cast演员无程序。

(16) 创建新的窗口，输入文本“先手”。单击Cast Member Script按钮，输入以下Lingo语句，如图8-82所示。

global lsg

on mouseUp

  lsg=1

  go next

end

图8-82  文本“先手”的Lingo脚本

(17) 单击窗口左上角的“+”按钮，创建新的窗口，输入文本“后手”。单击Cast Member Script按钮，输入以下Lingo语句，如图8-83所示。

global lsg

on mouseUp

  lsg=1

  go next

end

图8-83  文本“后手”的Lingo脚本

(18) 将Cast演员“请选择先后手：”、“先手”、“后手”拖动到舞台上的适当位置，打开精灵属性检查器对话框，将精灵的长度设置为第1~5帧，如图8-84所示。

图8-84  生成精灵“请选择先后手”等

(19) 将Cast演员“重来”、“确定”、“退出”拖动到舞台上的适当位置，打开精灵属性检查器对话框，将精灵的长度设置为第6~28帧，将背景颜色设置为黄色，如图8-85所示。

图8-85  生成精灵“重来”等

(20) 双击Script通道的第5帧，打开Script窗口，输入以下Lingo语句，如图8-86所示。

on exitFrame

  go to the frame

end

图8-86  第5帧Lingo脚本

(21) 双击Script通道的第6帧，打开Script窗口，输入以下Lingo语句，并在第6帧的位置添加一个标记，如图8-87所示。

global lsglist

global deletelist

global mycount

global lsg

on exitFrame

  if lsg=0 then

    alert "现在轮到对方拿！"

    case  count(lsglist) mod 4 of

      0:

        repeat with x=1 to 3

          temp3=getat(lsglist,1)

          sprite(temp3).visible=0

          sprite(temp3+15).visible=0

          deleteat(lsglist,1)

        end repeat

      1:

        temp3=getat(lsglist,1)

        sprite(temp3).visible=0

        sprite(temp3+15).visible=0

        deleteat(lsglist,1)

      2:

        temp3=getat(lsglist,1)

        sprite(temp3).visible=0

        sprite(temp3+15).visible=0

        deleteat(lsglist,1)

      3:

        repeat with x=1 to 2

          temp3=getat(lsglist,1)

          sprite(temp3).visible=0

          sprite(temp3+15).visible=0

          deleteat(lsglist,1)

        end repeat

    end case

    exit

  end if

end

图8-87  第6帧Lingo脚本