games/warp/them.c

47     OBJECT *obj = NULL;
53     if (numcrushes && (obj=movers)->type == Crusher) {
55 	    y = obj->posy;
56 	    x = (obj->posx+(obj->image=='<'?1:-1)+XSIZE00)%XSIZE;
58 		obj->velx = 0;		/* stop and munch amoeba */
61 		    obj->velx = (obj->image=='<' ? 1 : -1);
63 	    else if (!obj->velx) {
65 		    obj->image = rand_mod(2) ? '<' : '>';
66 		obj->velx = obj->image == '<' ? 1 : -1;
69 	obj->vely += (rand_mod(222) - 111) / 100;
71 	    setimage(obj, (obj->velx *= -1) < 0 ? '>' : '<');
95 		if ((obj = lookimg(curkl->posy, curkl->posx, '@')) ||
96 		    (obj = lookimg(curkl->posy, curkl->posx, 'B')) ) {
97 		    make_plink(obj->posy, obj->posx);
99 			if (obj->image == '@') {
100 			    obj->image = '*';
102 			    if (obj->flags & STATIC)
103 				mvaddch(obj->posy+1,obj->posx*2,obj->image);
109 		    else if (obj->image == 'B') {
113 			obj->energy -= rand_mod(500);
114 			if (obj->energy < 0)
115 			    obj->energy = 0;
135 	    if ((obj = lookimg(curkl->posy, curkl->posx, 'E')) ||
136 		(obj = lookimg(curkl->posy, curkl->posx, 'B')) ) {
137 		if (obj->image == 'B') {
141 		    obj->energy -= rand_mod(100);
142 		    if (obj->energy < 0)
143 			obj->energy = 0;
145 		else if (!obj->vely && !obj->velx) {
149 		    obj->energy -= rand_mod(20);
150 		    if (obj->energy < 0)
151 			obj->energy = 0;
208 	    obj = occupant[y][x];
209 	    if (!obj) break;		/* is anyone there? */
211 	    switch (obj->type) {
213 		if (obj->image == '@' && (curkl->flags & PIRATE)) {
230 		if (!obj->vely && !obj->velx && (rand_mod(100) <= smarts) &&
231 		  (obj->image == 'o' || obj->image == 'O' || obj->image == 'X'))
239 		if (obj->image ==
320 	    if (obj && obj->type == Web) {
321 		unmake_object(obj);