#include <functional>
#include <algorithm>
#include <iostream>
#include <utility>
#include <sstream>
#include <iomanip>
#include <numeric>
#include <cstdlib>
#include <cstring>
#include <climits>
#include <cstring>
#include <vector>
#include <cstdio>
#include <string>
#include <stack>
#include <deque>
#include <queue>
#include <cmath>
#include <map>
#include <set>
//#define pb push_back
//#define pf push_front
//#define ppb pop_back
//#define ppf pop_front
#define lwb lower_bound
#define upb upper_bound
#define F first
#define S second
//#define FOR(i,j,k) for(int i = j; i < (int)(k); i++)
//#define FORV(i, v) FOR(i, 0, ((v).size()))
//#define sz(a) (int)((a).size())
//#define all(a) a.begin() , a.end()
#define coud(a,b) cout<<fixed << setprecision((b)) << (a)
#define L(x) ((x)<<1)
#define R(x) (((x)<<1)+1)
//#define int long long
#define double long double
#define joon ios :: sync_with_stdio(false)
//#define cin fin
//#define cout fout
 
using namespace std;
 
typedef pair<int, int> pii;
typedef long long ll;
const double pi = acos(-1);
const double eps = 1e-7;
const int MAXN=50000+100;
const int INF=1000*1000*1000;
priority_queue< pair<int,int> , vector< pair<int,int> > , less<pair<int,int> > > q;
vector< pair<int,int> > N[MAXN];
int ki[MAXN];
bool mark[MAXN],isk[MAXN];
int anss[MAXN],d[MAXN];
int ans,k,n,m,t;
 
void dijkstra(int v)
{
	q.push( make_pair(d[v],v) );
	while( !q.empty() )
	{
		pair<int,int> u=q.top();
		q.pop();
		if( mark[ u.S ]==0 && u.F < k )
		{
			mark[ u.S ]=1;
			ans++;
		}
		for(int i=0;i<(int)N[ u.S ].size();i++)
			if( d[ N[ u.S ][i].F ] > d[u.S] + N[ u.S ][i].S )
			{
				d[ N[ u.S ][i].F ] = d[u.S] + N[ u.S ][i].S;
				if( d[ N[ u.S ][i].F ] < k )
					q.push( make_pair( d[ N[ u.S ][i].F ] , N[ u.S ][i].F ) );
			}
	}
}
 
int main()
{
	joon;
	cin.tie(0);
 
	cin>>n>>m>>t>>k;
	for(int i=1;i<=m;i++)
	{
		int v,u,w;
		cin>>v>>u>>w;
		N[v].push_back( make_pair(u,w) );
		N[u].push_back( make_pair(v,w) );
	}
	for(int i=1;i<=t;i++)
		cin>>ki[i];
	for(int i=1;i<=n;i++)
		d[i]=k;
	for(int i=1;i<=t;i++)
	{
		d[ ki[i] ]=0;
		dijkstra( ki[i] );
		anss[i]=n-ans;
	}
	for(int i=1;i<=t;i++)
		cout<<anss[i]<<"\n";
 
	return 0;
}
 

I2luY2x1ZGUgPGZ1bmN0aW9uYWw+CiNpbmNsdWRlIDxhbGdvcml0aG0+CiNpbmNsdWRlIDxpb3N0cmVhbT4KI2luY2x1ZGUgPHV0aWxpdHk+CiNpbmNsdWRlIDxzc3RyZWFtPgojaW5jbHVkZSA8aW9tYW5pcD4KI2luY2x1ZGUgPG51bWVyaWM+CiNpbmNsdWRlIDxjc3RkbGliPgojaW5jbHVkZSA8Y3N0cmluZz4KI2luY2x1ZGUgPGNsaW1pdHM+CiNpbmNsdWRlIDxjc3RyaW5nPgojaW5jbHVkZSA8dmVjdG9yPgojaW5jbHVkZSA8Y3N0ZGlvPgojaW5jbHVkZSA8c3RyaW5nPgojaW5jbHVkZSA8c3RhY2s+CiNpbmNsdWRlIDxkZXF1ZT4KI2luY2x1ZGUgPHF1ZXVlPgojaW5jbHVkZSA8Y21hdGg+CiNpbmNsdWRlIDxtYXA+CiNpbmNsdWRlIDxzZXQ+Ci8vI2RlZmluZSBwYiBwdXNoX2JhY2sKLy8jZGVmaW5lIHBmIHB1c2hfZnJvbnQKLy8jZGVmaW5lIHBwYiBwb3BfYmFjawovLyNkZWZpbmUgcHBmIHBvcF9mcm9udAojZGVmaW5lIGx3YiBsb3dlcl9ib3VuZAojZGVmaW5lIHVwYiB1cHBlcl9ib3VuZAojZGVmaW5lIEYgZmlyc3QKI2RlZmluZSBTIHNlY29uZAovLyNkZWZpbmUgRk9SKGksaixrKSBmb3IoaW50IGkgPSBqOyBpIDwgKGludCkoayk7IGkrKykKLy8jZGVmaW5lIEZPUlYoaSwgdikgRk9SKGksIDAsICgodikuc2l6ZSgpKSkKLy8jZGVmaW5lIHN6KGEpIChpbnQpKChhKS5zaXplKCkpCi8vI2RlZmluZSBhbGwoYSkgYS5iZWdpbigpICwgYS5lbmQoKQojZGVmaW5lIGNvdWQoYSxiKSBjb3V0PDxmaXhlZCA8PCBzZXRwcmVjaXNpb24oKGIpKSA8PCAoYSkKI2RlZmluZSBMKHgpICgoeCk8PDEpCiNkZWZpbmUgUih4KSAoKCh4KTw8MSkrMSkKLy8jZGVmaW5lIGludCBsb25nIGxvbmcKI2RlZmluZSBkb3VibGUgbG9uZyBkb3VibGUKI2RlZmluZSBqb29uIGlvcyA6OiBzeW5jX3dpdGhfc3RkaW8oZmFsc2UpCi8vI2RlZmluZSBjaW4gZmluCi8vI2RlZmluZSBjb3V0IGZvdXQKCnVzaW5nIG5hbWVzcGFjZSBzdGQ7Cgp0eXBlZGVmIHBhaXI8aW50LCBpbnQ+IHBpaTsKdHlwZWRlZiBsb25nIGxvbmcgbGw7CmNvbnN0IGRvdWJsZSBwaSA9IGFjb3MoLTEpOwpjb25zdCBkb3VibGUgZXBzID0gMWUtNzsKY29uc3QgaW50IE1BWE49NTAwMDArMTAwOwpjb25zdCBpbnQgSU5GPTEwMDAqMTAwMCoxMDAwOwpwcmlvcml0eV9xdWV1ZTwgcGFpcjxpbnQsaW50PiAsIHZlY3RvcjwgcGFpcjxpbnQsaW50PiA+ICwgbGVzczxwYWlyPGludCxpbnQ+ID4gPiBxOwp2ZWN0b3I8IHBhaXI8aW50LGludD4gPiBOW01BWE5dOwppbnQga2lbTUFYTl07CmJvb2wgbWFya1tNQVhOXSxpc2tbTUFYTl07CmludCBhbnNzW01BWE5dLGRbTUFYTl07CmludCBhbnMsayxuLG0sdDsKCnZvaWQgZGlqa3N0cmEoaW50IHYpCnsKCXEucHVzaCggbWFrZV9wYWlyKGRbdl0sdikgKTsKCXdoaWxlKCAhcS5lbXB0eSgpICkKCXsKCQlwYWlyPGludCxpbnQ+IHU9cS50b3AoKTsKCQlxLnBvcCgpOwoJCWlmKCBtYXJrWyB1LlMgXT09MCAmJiB1LkYgPCBrICkKCQl7CgkJCW1hcmtbIHUuUyBdPTE7CgkJCWFucysrOwoJCX0KCQlmb3IoaW50IGk9MDtpPChpbnQpTlsgdS5TIF0uc2l6ZSgpO2krKykKCQkJaWYoIGRbIE5bIHUuUyBdW2ldLkYgXSA+IGRbdS5TXSArIE5bIHUuUyBdW2ldLlMgKQoJCQl7CgkJCQlkWyBOWyB1LlMgXVtpXS5GIF0gPSBkW3UuU10gKyBOWyB1LlMgXVtpXS5TOwoJCQkJaWYoIGRbIE5bIHUuUyBdW2ldLkYgXSA8IGsgKQoJCQkJCXEucHVzaCggbWFrZV9wYWlyKCBkWyBOWyB1LlMgXVtpXS5GIF0gLCBOWyB1LlMgXVtpXS5GICkgKTsKCQkJfQoJfQp9CgppbnQgbWFpbigpCnsKCWpvb247CgljaW4udGllKDApOwoKCWNpbj4+bj4+bT4+dD4+azsKCWZvcihpbnQgaT0xO2k8PW07aSsrKQoJewoJCWludCB2LHUsdzsKCQljaW4+PnY+PnU+Pnc7CgkJTlt2XS5wdXNoX2JhY2soIG1ha2VfcGFpcih1LHcpICk7CgkJTlt1XS5wdXNoX2JhY2soIG1ha2VfcGFpcih2LHcpICk7Cgl9Cglmb3IoaW50IGk9MTtpPD10O2krKykKCQljaW4+PmtpW2ldOwoJZm9yKGludCBpPTE7aTw9bjtpKyspCgkJZFtpXT1rOwoJZm9yKGludCBpPTE7aTw9dDtpKyspCgl7CgkJZFsga2lbaV0gXT0wOwoJCWRpamtzdHJhKCBraVtpXSApOwoJCWFuc3NbaV09bi1hbnM7Cgl9Cglmb3IoaW50IGk9MTtpPD10O2krKykKCQljb3V0PDxhbnNzW2ldPDwiXG4iOwoKCXJldHVybiAwOwp9Cg==