XSIZE99
x = (x + rand_mod(3) + XSIZE99) % XSIZE;
for (i=XSIZE00; i>=XSIZE99; i--)
if ((obj=occupant[y][xm=(x+XSIZE99)%XSIZE])&&obj->type == what) /* 0, -1 */
((obj=occupant[y][xm=(x+XSIZE99)%XSIZE])&&obj->type == what)||/* 0, -1 */
((obj=occupant[y][xm=(x+XSIZE99)%XSIZE])&&obj->image==what)||/* 0, -1 */
x = (x + rand_mod(3) + XSIZE99) % XSIZE;