YSIZE99
y = (y + rand_mod(3) + YSIZE99) % YSIZE;
if ((obj=occupant[y=(y+YSIZE99)%YSIZE][xp])&&obj->type == what) /* -1, 1 */
((obj=occupant[y=(y+YSIZE99)%YSIZE][xp])&&obj->type == what)||/* -1, 1 */
((obj=occupant[y=(y+YSIZE99)%YSIZE][xp])&&obj->image==what)||/* -1, 1 */
y = (y + rand_mod(3) + YSIZE99) % YSIZE;