   if (ȡ(3)==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 (Ŀͼ, Ŀ)
        ȴ ()
         (Ŀ)
        ȴ ()
        Ի ()
        ȴ ()
        while (ȡ () == 0) do
	   ::b::
           n=0;
           while (ȡ () == 0 and ȡԻ״̬()==1) do  
	       n=n+1;
               ѡԻ(n)
               ȴ ()
               =ȡʾ()	       
              if (Ѱı (,"",1,0)>0) then
                  ȴ () 
                  goto a
              end
	      if (n>4) then
                  ȴ () 
                  goto b
              end
           end        
        end
   end

end

::en::
ӡϢ("д")
