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