
if (ȡ(0)==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 and  == 0) then
        ٻ ()
        ȴ ()
        Ŀ = ȡ ()
        Ŀͼ = ȡͼ ()
        ĿX = ȡ (, 1)
        ĿY = ȡ (, 2)
        Ѱ·2 (Ŀͼ,Ŀ)
        ȴ ()
         (Ŀ)
        ȴ ()
        Ի ("Ҫʫ")
        ȴ ()
           local n=0;
           while(ȡ () == 0) do
	       n=n+1
               ѡԻ(n)               
               ȴ ()
	       if n>=4 then
	          n=0;
		  ȴ ()
	       end
	       ʾ=ȡʾ()
	       if Ѱı (, "", 1, 0) > 0 then
	           goto a;
	       end
           end                
  end
  ȴ ()
end 
::en::
ӡϢ("ʫ")
