Source:Hack 1.0/hack.do wear.c

Below is the full text to hack.do_wear.c from the source code of Hack 1.0. To link to a particular line, write [[Hack 1.0/hack.do_wear.c#line123]], for example.

Warning! This is the source code from an old release. For the latest release, see Source code

Screenshots and source code from Hack are used under the CWI license.

1.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
2.    
3.    #include "hack.h"
4.    #include <stdio.h>
5.    extern char *nomovemsg;
6.    
7.    off_msg(otmp) register struct obj *otmp; {
8.    	pline("You were wearing %s.", doname(otmp));
9.    }
10.   
11.   doremarm() {
12.   	register struct obj *otmp;
13.   	if(!uarm && !uarmh && !uarms && !uarmg) {
14.   		pline("Not wearing any armor.");
15.   		return(0);
16.   	}
17.   	otmp = (!uarmh && !uarms && !uarmg) ? uarm :
18.   		(!uarms && !uarm && !uarmg) ? uarmh :
19.   		(!uarmh && !uarm && !uarmg) ? uarms :
20.   		(!uarmh && !uarm && !uarms) ? uarmg :
21.   		getobj("[", "take off");
22.   	if(!otmp) return(0);
23.   	if(!(otmp->owornmask & (W_ARMOR - W_ARM2))) {
24.   		pline("You can't take that off.");
25.   		return(0);
26.   	}
27.   	(void) armoroff(otmp);
28.   	return(1);
29.   }
30.   
31.   doremring() {
32.   	if(!uleft && !uright){
33.   		pline("Not wearing any ring.");
34.   		return(0);
35.   	}
36.   	if(!uleft)
37.   		return(dorr(uright));
38.   	if(!uright)
39.   		return(dorr(uleft));
40.   	if(uleft && uright) while(1) {
41.   		pline("What ring, Right or Left? ");
42.   		switch(readchar()) {
43.   		case ' ':
44.   		case '\n':
45.   		case '\033':
46.   			return(0);
47.   		case 'l':
48.   		case 'L':
49.   			return(dorr(uleft));
50.   		case 'r':
51.   		case 'R':
52.   			return(dorr(uright));
53.   		}
54.   	}
55.   	/* NOTREACHED */
56.   #ifdef lint
57.   	return(0);
58.   #endif lint
59.   }
60.   
61.   dorr(otmp) register struct obj *otmp; {
62.   	if(cursed(otmp)) return(0);
63.   	ringoff(otmp);
64.   	off_msg(otmp);
65.   	return(1);
66.   }
67.   
68.   cursed(otmp) register struct obj *otmp; {
69.   	if(otmp->cursed){
70.   		pline("You can't. It appears to be cursed.");
71.   		return(1);
72.   	}
73.   	return(0);
74.   }
75.   
76.   armoroff(otmp) register struct obj *otmp; {
77.   register int delay = -objects[otmp->otyp].oc_delay;
78.   	if(cursed(otmp)) return(0);
79.   	setworn((struct obj *) 0, otmp->owornmask & W_ARMOR);
80.   	if(delay) {
81.   		nomul(delay);
82.   		switch(otmp->otyp) {
83.   		case HELMET:
84.   			nomovemsg = "You finished taking off your helmet.";
85.   			break;
86.   		case PAIR_OF_GLOVES:
87.   			nomovemsg = "You finished taking off your gloves";
88.   			break;
89.   		default:
90.   			nomovemsg = "You finished taking off your suit.";
91.   		}
92.   	} else {
93.   		off_msg(otmp);
94.   	}
95.   	return(1);
96.   }
97.   
98.   doweararm() {
99.   	register struct obj *otmp;
100.  	register int delay;
101.  	register int err = 0;
102.  	long mask = 0;
103.  
104.  	otmp = getobj("[", "wear");
105.  	if(!otmp) return(0);
106.  	if(otmp->owornmask & W_ARMOR) {
107.  		pline("You are already wearing that!");
108.  		return(0);
109.  	}
110.  	if(otmp->otyp == HELMET){
111.  		if(uarmh) {
112.  			pline("You are already wearing a helmet.");
113.  			err++;
114.  		} else
115.  			mask = W_ARMH;
116.  	} else if(otmp->otyp == SHIELD){
117.  		if(uarms) pline("You are already wearing a shield."), err++;
118.  		if(uwep && uwep->otyp == TWO_HANDED_SWORD)
119.  	pline("You cannot wear a shield and wield a two-handed sword."), err++;
120.  		if(!err) mask = W_ARMS;
121.  	} else if(otmp->otyp == PAIR_OF_GLOVES){
122.  		if(uarmg) pline("You are already wearing gloves."); else
123.  		if(uwep && uwep->cursed)
124.  			pline("You cannot wear gloves over your weapon.");
125.  		else mask = W_ARMG;
126.  	} else {
127.  		if(uarm) {
128.  			if(otmp->otyp != ELVEN_CLOAK || uarm2) {
129.  				pline("You are already wearing some armor.");
130.  				err++;
131.  			}
132.  		}
133.  		if(!err) mask = W_ARM;
134.  	}
135.  	if(err) return(0);
136.  	setworn(otmp, mask);
137.  	if(otmp == uwep)
138.  		setuwep((struct obj *) 0);
139.  	delay = -objects[otmp->otyp].oc_delay;
140.  	if(delay){
141.  		nomul(delay);
142.  		nomovemsg = "You finished your dressing manoeuvre.";
143.  	}
144.  	otmp->known = 1;
145.  	return(1);
146.  }
147.  
148.  dowearring() {
149.  	register struct obj *otmp;
150.  	long mask = 0;
151.  	long oldprop;
152.  
153.  	if(uleft && uright){
154.  		pline("There are no more ring-fingers to fill.");
155.  		return(0);
156.  	}
157.  	otmp = getobj("=", "wear");
158.  	if(!otmp) return(0);
159.  	if(otmp->owornmask & W_RING) {
160.  		pline("You are already wearing that!");
161.  		return(0);
162.  	}
163.  	if(otmp == uleft || otmp == uright) {
164.  		pline("You are already wearing that.");
165.  		return(0);
166.  	}
167.  	if(uleft) mask = RIGHT_RING;
168.  	else if(uright) mask = LEFT_RING;
169.  	else do {
170.   		pline("What ring-finger, Right or Left? ");
171.  		switch(readchar()){
172.  		case 'l':
173.  		case 'L':
174.  			mask = LEFT_RING;
175.  			break;
176.  		case 'r':
177.  		case 'R':
178.  			mask = RIGHT_RING;
179.  			break;
180.  		case ' ':
181.  		case '\n':
182.  		case '\033':
183.  			return(0);
184.  		}
185.  	} while(!mask);
186.  	setworn(otmp, mask);
187.  	if(otmp == uwep)
188.  		setuwep((struct obj *) 0);
189.  	oldprop = u.uprops[PROP(otmp->otyp)].p_flgs;
190.  	u.uprops[PROP(otmp->otyp)].p_flgs |= mask;
191.  	switch(otmp->otyp){
192.  	case RIN_LEVITATION:
193.  		if(!oldprop) float_up();
194.  		break;
195.  	case RIN_PROTECTION_FROM_SHAPE_CHANGERS:
196.  		rescham();
197.  		break;
198.  	case RIN_GAIN_STRENGTH:
199.  		u.ustr += otmp->spe;
200.  		u.ustrmax += otmp->spe;
201.  		flags.botl=1;
202.  		break;
203.  	case RIN_INCREASE_DAMAGE:
204.  		u.udaminc += otmp->spe;
205.  		break;
206.  	}
207.  	prinv(otmp);
208.  	return(1);
209.  }
210.  
211.  ringoff(obj)
212.  register struct obj *obj;
213.  {
214.  register unsigned mask;
215.  	mask = obj->owornmask & W_RING;
216.  	setworn((struct obj *) 0, obj->owornmask);
217.  	if(!(u.uprops[PROP(obj->otyp)].p_flgs & mask)){
218.  		pline("Strange... I didnt know you had that ring.");
219.  		impossible();
220.  	}
221.  	u.uprops[PROP(obj->otyp)].p_flgs &= ~mask;
222.  	switch(obj->otyp) {
223.  	case RIN_LEVITATION:
224.  		if(!Levitation) {	/* no longer floating */
225.  			float_down();
226.  		}
227.  		break;
228.  	case RIN_GAIN_STRENGTH:
229.  		u.ustr -= obj->spe;
230.  		u.ustrmax -= obj->spe;
231.  		flags.botl = 1;
232.  		break;
233.  	case RIN_INCREASE_DAMAGE:
234.  		u.udaminc -= obj->spe;
235.  		break;
236.  	}
237.  }
238.  
239.  find_ac(){
240.  register int uac = 10;
241.  	if(uarm) uac -= uarm->spe;
242.  	if(uarm2) uac -= uarm2->spe;
243.  	if(uarmh) uac -= uarmh->spe;
244.  	if(uarms) uac -= uarms->spe;
245.  	if(uarmg) uac -= uarmg->spe;
246.  	if(uleft && uleft->otyp == RIN_PROTECTION) uac -= uleft->spe;
247.  	if(uright && uright->otyp == RIN_PROTECTION) uac -= uright->spe;
248.  	if(uac != u.uac){
249.  		u.uac = uac;
250.  		flags.botl = 1;
251.  	}
252.  }
253.  
254.  glibr(){
255.  register struct obj *otmp;
256.  int xfl = 0;
257.  	if(!uarmg) if(uleft || uright) {
258.  		/* Note: at present also cursed rings fall off */
259.  		pline("Your %s off your fingers.",
260.  			(uleft && uright) ? "rings slip" : "ring slips");
261.  		xfl++;
262.  		if(otmp = uleft){
263.  			ringoff(uleft);
264.  			dropx(otmp);
265.  		}
266.  		if(otmp = uright){
267.  			ringoff(uright);
268.  			dropx(otmp);
269.  		}
270.  	}
271.  	if(otmp = uwep){
272.  		/* Note: at present also cursed weapons fall */
273.  		setuwep((struct obj *) 0);
274.  		dropx(otmp);
275.  		pline("Your weapon %sslips from your hands.",
276.  			xfl ? "also " : "");
277.  	}
278.  }
279.  
280.  struct obj *
281.  some_armor(){
282.  register struct obj *otmph = uarm;
283.  	if(uarmh && (!otmph || !rn2(4))) otmph = uarmh;
284.  	if(uarmg && (!otmph || !rn2(4))) otmph = uarmg;
285.  	if(uarms && (!otmph || !rn2(4))) otmph = uarms;
286.  	return(otmph);
287.  }
288.  
289.  corrode_armor(){
290.  register struct obj *otmph = some_armor();
291.  	if(otmph){
292.  		if(otmph->rustfree ||
293.  		   otmph->otyp == ELVEN_CLOAK ||
294.  		   otmph->otyp == LEATHER_ARMOR ||
295.  		   otmph->otyp == STUDDED_LEATHER_ARMOR) {
296.  			pline("Your %s not affected!",
297.  				aobjnam(otmph, "are"));
298.  			return;
299.  		}
300.  		pline("Your %s!", aobjnam(otmph, "corrode"));
301.  		otmph->spe--;
302.  	}
303.  }