#pragma GCC optimize("Ofast,no-stack-protector,unroll-loops,fast-math")
#pragma GCC target("sse,sse2,sse3,ssse3,sse4,sse4.1,sse4.2,popcnt,abm,mmx,avx")
// #pragma comment(linker, "/stack:200000000"]

#include <iostream>
#include <vector>
#include <cmath>
#include <algorithm>
#include <unordered_set>
#include <unordered_map>
#include <set>
#include <map>
#include <queue>
#include <deque>
#include <bitset>
#include <stack>
#include <random>
#include <fstream>
#include <sstream>
#include <chrono>

#define fi first
#define se second
#define pb push_back
#define ll long long
#define ld long double
#define hm unordered_map
#define pii pair<int, int>
#define sz(a) (int)a.size()
#define all(a) a.begin(), a.end()
#define cinv(v) for (auto& x: v) cin >> x
#define fr(i, n) for (int i = 0; i < n; ++i)
#define fl(i, l, n) for (int i = l; i < n; ++i)

// #define int ll

using namespace std;

#ifdef __LOCAL
	#define dbg(x) cerr << #x << " : " << x << '\n'
	const int maxn = 2e5 + 20;
#else
	#define dbg(x)
	const int maxn = 2e5 + 20;
#endif

//tg: @galebickosikasa

ostream& operator << (ostream& out, vector<int>& v) {
	for (auto& x: v) out << x << ' ';
	return out;
}

ostream& operator << (ostream& out, pii& v) {
	out << v.fi << ", " << v.se;
	return out;
}

ostream& operator << (ostream& out, vector<pii>& v) {
	for (auto& x: v) out << x << '\n';
	return out;
}

istream& operator >> (istream& in, pii& a) {
	in >> a.fi >> a.se;
	return in;
}

const ll inf = (ll) 2e9;
const ll kek = 2e18;
const ld pi = asin (1) * 2;
const ld eps = 1e-8;
const ll mod = (ll)1e9 + 7;
const ll ns = 97;
const int maxs = 1e6 + 20;

mt19937 rnd(chrono::steady_clock::now().time_since_epoch().count());

multiset<int> answers;
int parent[maxn], sz[maxn], colors[maxn], pr[maxn], pos[maxn], order[maxn];
ll dist[maxn];
vector<pii> g[maxn];
int j = 0, ind = 0;

void dfs (int v, int p = -1) {
	parent[v] = p;
	order[j++] = v;
	sz[v] = 1;
	for (auto& u: g[v]) {
		if (u.fi == p) continue;
		dist[u.fi] = dist[v] + (ll)u.se;
		dfs (u.fi, v);
		sz[v] += sz[u.fi];
	}
}

struct DSU {
	vector<int> dsu, size;

	DSU (int s = maxn) {
		dsu = vector<int> (s);
		size = vector<int> (s, 1);
		fr (i, s) dsu[i] = i;
	}

	int get (int x) {
		if (dsu[x] == x) return x;
		return dsu[x] = get (dsu[x]);
	}

	bool join (int a, int b) {
		int x = get (a), y = get (b);
		if (x != y) {
			if (size[x] > size[y]) swap (x, y);
			dsu[x] = y;
			size[y] += size[x];
			return 1;
		}
		return 0;
	}
};

struct edge {
	int a, b, c;

	bool operator < (const edge& other) const {
		return c < other.c;
	}
};

edge edges[maxn];

struct Tree { // типа BST
	int left, right, color, mx, mn;
	ll value;

	Tree () {
		left = right = -1;
	}

	Tree (ll d, int x) {
		left = right = -1;
		value = d;
		color = mx = mn = x;
	}
};

Tree mas[maxn * 4];

int get_mn (int t) {
	if (t == -1) return inf;
	return mas[t].mn;
}

int get_mx (int t) {
	if (t == -1) return -inf;
	return mas[t].mx;
}

ll get_val (int t) {
	if (t == -1) return -1;
	return mas[t].value;
}

void render (int t) {
	if (t == -1) return;
	mas[t].mx = max (mas[t].color, max (get_mx (mas[t].left), get_mx (mas[t].right)));
	mas[t].mn = min (mas[t].color, min (get_mn (mas[t].left), get_mn (mas[t].right)));
}

int leftest (int t) {
	if (mas[t].left == -1) return t;
	return leftest (mas[t].left);
}

int erase (int t, int d, int x) {
	if (t == -1) return t;
	if (mas[t].value == d && mas[t].color == x) {
		if (mas[t].left != -1 && mas[t].right != -1) {
			int a = leftest (mas[t].right);
			mas[t].value = mas[a].value;
			mas[t].color = mas[a].color;
			mas[t].right = erase (mas[t].right, mas[a].value, mas[a].color);
		} else if (mas[t].left != -1) {
			return mas[t].left;
		} else if (mas[t].right != -1) {
			return mas[t].right;
		} return -1;
	}
	if (mas[t].value > d || mas[t].value == d && mas[t].color > x) {
		mas[t].left = erase (mas[t].left, d, x);
	} else {
		mas[t].right = erase (mas[t].right, d, x);
	}
	render (t);
	return t;
}

int add (int t, int a) {
	if (t == -1) return a;
	if (mas[t].value > mas[a].value) mas[t].left = add (mas[t].left, a);
	else mas[t].right = add (mas[t].right, a);
	render (t);
	return t;
}

int add (int t, ll d, int x) {
	mas[ind++] = Tree (d, x);
	return add (t, ind - 1);
}

// void dfs (Tree* t) {
// 	if (t == nullptr) return;
// 	dfs (t->left);
// 	dbg (t->value);
// 	dbg (t->color);
// 	dfs (t->right);
// }

ll down (int t, int new_color) {
	if (t == -1 || (mas[t].mn == new_color && mas[t].mx == new_color)) return kek;
	ll ans = kek;
	// dbg (t->value);
	// dfs (t);
	// dbg ("exit");
	// dbg (get_val (t->left));
	// dbg (get_val (t->right));
	if (mas[t].color != new_color) ans = mas[t].value;
	if (get_mn (mas[t].left) == inf || (get_mn (mas[t].left) == new_color && get_mx (mas[t].left) == new_color)) {
		ans = min (ans, down (mas[t].right, new_color));
		// dbg ("right");
		// dbg (ans);
		return ans;
	}
	ans = min (ans, down (mas[t].left, new_color));
	// dbg ("left");
	// dbg (ans);
	return ans;
}

struct ST {
	int t[4 * maxn];
	int size = 0, capacity;

	ST (int s = maxn) {
		while ((1<<size) < s) ++size;
		++size;
		size = (1<<size);
		capacity = (size>>1);
		vector<vector<pii>> tmp (size);
		fr (i, size) t[i] = -1;
		fr (i, j) {
			tmp[i + capacity].pb ({dist[order[i]], colors[order[i]]});
			t[i + capacity] = add (t[i + capacity], dist[order[i]], colors[order[i]]);
		}
		for (int i = capacity - 1; i > 0; --i) {
			tmp[i] = vector<pii> (sz (tmp[i * 2]) + sz (tmp[i * 2 + 1]));
			int j = 0;
			for (auto& x: tmp[i * 2]) tmp[i][j++] = x;
			for (auto& x: tmp[i * 2 + 1]) tmp[i][j++] = x;
			for (auto& x: tmp[i]) t[i] = add (t[i], x.fi, x.se);
		}
	}

	ll upd (int cur, int left, int right, int l, int r, int new_color) {
		if (cur >= size) return kek;
		if (left > r || right < l) return kek;
		if (l <= left && r >= right) {
			// dbg ("open");
			// dbg (cur);
			return down (t[cur], new_color);
		}
		return min (upd (cur * 2, left, (left + right) / 2, l, r, new_color), upd (cur * 2 + 1, (left + right) / 2 + 1, right, l, r, new_color));
	}

	ll upd (int l, int r, int new_color) {
		return upd (1, 0, capacity - 1, l, r, new_color);
	}

	void upd (int v, int new_color) {
		if (v < 0) {
			v *= -1;
			ll x = upd (pos[v] + 1, pos[v] + sz[v] - 1, new_color) - dist[v];
			int p = pr[v];
			if (p < inf) {
				auto it = answers.find (p);
				if (it != answers.end ()) answers.erase (it);
			}
			if (x + dist[v] < inf) answers.insert (x), pr[v] = x;
			return;
		}

		if (sz[v] <= 1) {
			int u = pos[v] + capacity;
			int p = colors[v];
			while (u) {
				t[u] = erase (t[u], dist[v], p);
				t[u] = add (t[u], dist[v], new_color);
				u /= 2;
			}
			return;
		}
		int u = pos[v] + capacity;
		// dbg (u);
		int p = colors[v];
		while (u) {
			// dbg ("here");
			// dfs (t[u]);
			t[u] = erase (t[u], dist[v], p);
			// dbg (dist[v]);
			// dbg (p);
			// dbg ("cont");
			// dfs (t[u]);
			t[u] = add (t[u], dist[v], new_color);
			// dbg ("end");
			// dfs (t[u]);
			u /= 2;
		}
		ll x = upd (pos[v] + 1, pos[v] + sz[v] - 1, new_color) - dist[v];
		// dbg (v);
		// dbg (x);
		p = pr[v];
		// dbg (p);
		if (p < inf) {
			auto it = answers.find (p);
			if (it != answers.end ()) answers.erase (it);
		}
		if (x + dist[v] < inf) answers.insert (x), pr[v] = x;
	}
};

signed main () {
	ios_base::sync_with_stdio(false);
	cin.tie(nullptr);
	cout.tie(nullptr);
	int n, m, d, q;
	cin >> n >> m >> d >> q;
	fr (i, m) {
		int a, b, c;
		cin >> a >> b >> c;
		edges[i] = {a, b, c};
	}
	sort (edges, edges + m);
	DSU dsu (n + 1);
	fr (i, m) {
		auto& e = edges[i];
		if (dsu.join (e.a, e.b)) {
			g[e.a].pb ({e.b, e.c}), g[e.b].pb ({e.a, e.c});
		}
	}
	dfs (1);
	fr (i, j) {
		pos[order[i]] = i;
	}
	fr (i, n) {
		int x;
		cin >> x;
		colors[i + 1] = x;
	}
	for (auto& x: pr) x = inf;
	ST goo (n + 1);
	fr (i, n) goo.upd (i + 1, colors[i + 1]);
	fr (i, q) {
		int v, x;
		cin >> v >> x;
		goo.upd (v, x);
		colors[v] = x;
		if (parent[v] != -1) goo.upd (-parent[v], colors[parent[v]]);
		cout << *answers.begin () << '\n';
	}







}