--ֶɡ
   if (ȡ(2)==1) then
       goto en;
   end
="ѧϰ"

Ի="ۺ"
npc=""
npc="ľӽ"

=1

while (=="ѧϰ") do 
::a::
   local ,=ȡ()
    if ( == 1) then 
      ٻ ()
      Ѱ·2 (npc,npc)
      ȴ ()
       (npc)
      ȴ ()
      Ի (Ի)
      ȴ ()
      Ի ()
      ȴ ()
       ()
      ȴ ()
   end

  if (== -1) then
    ٻ ()
    Ѱ·2 (npc,npc)
    ȴ ()
     (npc)
    ȴ ()
    Ի (Ի)
    ȴ ()
    Ի ()
    ȴ ()
    ʾ=""
    ʾ=ȡʾ()
    if (Ѱı (ʾ,"ֵ",1,0) > 0 or Ѱı (ʾ,"۷",1,0) > 0) then 
        goto en;
    end
    goto a
  end


  if ((Ѱı (,"ȫС",1,0) > 0 or Ѱı (,"С",1,0) > 0  or Ѱı (,"½С",1,0) > 0 ) and  == 0)  then 
    ٻ()
    if (Ѱı (,"ȫС",1,0) > 0) then 
      Ѱ·2("","ȫС")
      ()
      ("ȫС")
      x=3;
    end
    if(Ѱı (,"С",1,0) > 0) then 
      Ѱ·2("","С")
      ()
      ("С")
      x=4;
    end
    if(Ѱı (,"½С",1,0) > 0) then 
      Ѱ·2("","½С")
      ()
      ("½С")
      x=5;
    end

    ȴ ()
    Ի("ѧϰ")
    ȴ ()
     while (ȡ () == 0) do
            a=ȡ(1,x)
	    ʾ=ȡʾ() 
               if (a == 1 or Ѱı (ʾ,"",1,0) > 0 or Ѱı (ʾ,"Ϲ",1,0) > 0 or Ѱı (ʾ,"",1,0) > 0) then 
                    Ͱ ("F1")
               end
               if (a == 2 or Ѱı (ʾ,"ͷ",1,0) > 0 or Ѱı (ʾ,"",1,0) > 0 or Ѱı (ʾ,"Ҿ",1,0) > 0) then 
                    Ͱ ("F2")
               end
               if (a == 3 or Ѱı (ʾ,"ҡͷ",1,0) > 0 or Ѱı (ʾ,"ȭ",1,0) > 0 or Ѱı (ʾ,"",1,0) > 0) then 
                    Ͱ ("F3")
               end 
	       if (a == 4 or Ѱı (ʾ,"",1,0) > 0 or Ѱı (ʾ,"",1,0) > 0) then 
                    Ͱ ("F4")
               end 
	       if (a == 5 or Ѱı (ʾ,"ִ",1,0) > 0) then 
                    Ͱ ("F5")
               end
               ȴ (1.5)
    end      
 end
  ȴ ()
end
::en::
ӡϢ("")
