Script: Sha boulder
From Ultima Online: The Second Age
inherits globals;
member int Q59J;
trigger creation { setType(this, 0x11B6); Q59J = 0x01; callback(this, 0x01, 0x24); return (0x00); }
trigger callback(0x24) { loc Q59R = getLocation(this); int Q5A4 = getX(Q59R); int Q5A5 = getY(Q59R); int Q5A6 = getZ(Q59R); int Q5CE; loc toLocation; if ((Q59J == 0x01) && (Q5A4 < 0x1596)) { Q5CE = Q5A4 + 0x01; } if (Q5A4 == 0x1596) { Q59J = 0x00; } if ((Q59J == 0x00) && (Q5A4 > 0x1593)) { Q5CE = Q5A4 - 0x01; } if (Q5A4 == 0x1593) { Q59J = 0x01; } toLocation = Q5CE, Q5A5, Q5A6; int Q4Q2 = teleport(this, toLocation); callback(this, 0x01, 0x24); return (0x00); }