Script Function: Q4QL
From Ultima Online: The Second Age
function int Q4QL(list w) { list a; getObjListVar(a, this, "oracleMessages"); string Q51K; string Q55K; list Q663; for(int i = 0x00; i < numInList(w); i++) { Q55K = w[i]; for(int Q518 = 0x00; Q518 < numInList(a); Q518++) { copyList(Q663, a[Q518]); Q51K = Q663[0x00]; if (Q51K == Q55K) { return (Q518); } } } return (0xFF); }