function OnCreate()
	Event_PacketUnBlock(0xFE,0xA,0x1);
end;
 
function pinSend(data)
	kkk = PacketBuilder();
	kkk:AppendInt(0xD0,1);
	kkk:AppendInt(0xAB,2);
	kkk:AppendString(data); -- your pin
	SendPacket(kkk);
end;
 
function OnIncomingPacket(packet)
	packet:SetOffset(0)
	if (packet:GetID() == 0xFE) and (packet:GetSubID() == 0xA) and (packet:GetSubID2() == 0x1) and (packet:ReadInt(4) == 1) then
 
AccName = string.lower(GetAccountName());	-- Convert account name to low string;	
 
 if (AccName == "besyulever@gmail.com") then
 packet:BlockMe();
 pinSend("111000");
 end;
 
 if (AccName == "acc1") or (AccName == "acc2")	then
 packet:BlockMe();
 pinSend("pin");
 end;
	end;
end;