Source:NetHack 1.4f/worn.c - Revision history

Furey: NetHack 1.3d -> Source:NetHack 1.3d

2024-07-01T13:21:41Z

NetHack 1.3d -> Source:NetHack 1.3d

Kernigh bot: NetHack 1.4f/worn.c moved to Source:NetHack 1.4f/worn.c: Robot: moved page

2008-03-04T01:51:47Z

NetHack 1.4f/worn.c moved to Source:NetHack 1.4f/worn.c: Robot: moved page

Jaytbot: Semi-redirect to 1.3d versions

2006-09-03T20:54:29Z

Semi-redirect to 1.3d versions

Jaytbot: Automated source code upload

2006-08-31T15:52:25Z

Automated source code upload

New page

Below is the full text to '''worn.c''' from the [[NetHack 1.4f source code|source code]] of [[NetHack 1.4f]]. To link to a particular line, write [[NetHack 1.4f/worn.c#line123|<nowiki>[[NetHack 1.4f/worn.c#line123]]</nowiki>]], for example.

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

{{CWI}}
1. /* SCCS Id: @(#)worn.c 1.3 87/07/14
2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3. /* worn.c - version 1.0.2 */
4. 
5. #include "hack.h"
6. 
7. struct worn {
8. long w_mask;
9. struct obj **w_obj;
10. } worn[] = {
11. { W_ARM, &uarm },
12. { W_ARM2, &uarm2 },
13. { W_ARMH, &uarmh },
14. { W_ARMS, &uarms },
15. { W_ARMG, &uarmg },
16. { W_RINGL, &uleft },
17. { W_RINGR, &uright },
18. { W_WEP, &uwep },
19. { W_BALL, &uball },
20. { W_CHAIN, &uchain },
21. { 0, 0 }
22. };
23. 
24. setworn(obj, mask)
25. register struct obj *obj;
26. long mask;
27. {
28. register struct worn *wp;
29. register struct obj *oobj;
30. 
31. for(wp = worn; wp->w_mask; wp++) if(wp->w_mask & mask) {
32. oobj = *(wp->w_obj);
33. if(oobj && !(oobj->owornmask & wp->w_mask))
34. impossible("Setworn: mask = %ld.", wp->w_mask);
35. if(oobj) oobj->owornmask &= ~wp->w_mask;
36. if(obj && oobj && wp->w_mask == W_ARM){
37. if(uarm2) {
38. impossible("Setworn: uarm2 set?");
39. } else
40. setworn(uarm, W_ARM2);
41. }
42. *(wp->w_obj) = obj;
43. if(obj) obj->owornmask |= wp->w_mask;
44. }
45. if(uarm2 && !uarm) {
46. uarm = uarm2;
47. uarm2 = 0;
48. uarm->owornmask ^= (W_ARM | W_ARM2);
49. }
50. }
51. 
52. /* called e.g. when obj is destroyed */
53. setnotworn(obj) register struct obj *obj; {
54. register struct worn *wp;
55. 
56. for(wp = worn; wp->w_mask; wp++)
57. if(obj == *(wp->w_obj)) {
58. *(wp->w_obj) = 0;
59. obj->owornmask &= ~wp->w_mask;
60. }
61. if(uarm2 && !uarm) {
62. uarm = uarm2;
63. uarm2 = 0;
64. uarm->owornmask ^= (W_ARM | W_ARM2);
65. }
66. }
[[Category:NetHack 1.4f source code|worn.c]]

← Older revision		Revision as of 13:21, 1 July 2024
Line 1:		Line 1:
−	The source code file '''worn.c''' in [[NetHack 1.4f source code\|NetHack 1.4f]] is unchanged from [[NetHack 1.3d/worn.c]].	+	The source code file '''worn.c''' in [[NetHack 1.4f source code\|NetHack 1.4f]] is unchanged from [[Source:NetHack 1.3d/worn.c]].
	[[Category:NetHack 1.4f source code]]		[[Category:NetHack 1.4f source code]]

← Older revision		Revision as of 20:54, 3 September 2006
Line 1:		Line 1:
−	~~Below is the full text to~~ '''worn.c''' ~~from the~~ [[NetHack 1.4f source code\|~~source code]] of [[~~NetHack 1.4f]]~~. To link to a particular line, write~~ [[NetHack 1.4f/worn.c~~#line123\|<nowiki>[[NetHack 1.4f/worn.c#line123]]</nowiki>]~~]~~, for example.~~	+	The source code file '''worn.c''' in [[NetHack 1.4f source code\|NetHack 1.4f]] is unchanged from [[NetHack 1.3d/worn.c]].
−		+	[[Category:NetHack 1.4f source code]]
−	~~'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]~~
−
−	~~{{CWI}}~~
−	~~<span id="line1">1. /* SCCS Id: @(#)worn.c 1.3 87/07/14</span>~~
−	~~<span id="line2">2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */</span>~~
−	~~<span id="line3">3. /* worn.c - version 1.0.2 */</span>~~
−	~~<span id="line4">4. </span>~~
−	~~<span id="line5">5. #include "hack.h"</span>~~
−	~~<span id="line6">6. </span>~~
−	~~<span id="line7">7. struct worn {</span>~~
−	~~<span id="line8">8. long w_mask;</span>~~
−	~~<span id="line9">9. struct obj **w_obj;</span>~~
−	~~<span id="line10">10. } worn[~~] ~~= {</span>~~
−	~~<span id="line11">11. { W_ARM, &uarm },</span>~~
−	~~<span id="line12">12. { W_ARM2, &uarm2 },</span>~~
−	~~<span id="line13">13. { W_ARMH, &uarmh },</span>~~
−	~~<span id="line14">14. { W_ARMS, &uarms },</span>~~
−	~~<span id="line15">15. { W_ARMG, &uarmg },</span>~~
−	~~<span id="line16">16. { W_RINGL, &uleft },</span>~~
−	~~<span id="line17">17. { W_RINGR, &uright },</span>~~
−	~~<span id="line18">18. { W_WEP, &uwep },</span>~~
−	~~<span id="line19">19. { W_BALL, &uball },</span>~~
−	~~<span id="line20">20. { W_CHAIN, &uchain },</span>~~
−	~~<span id="line21">21. { 0, 0 }</span>~~
−	~~<span id="line22">22. };</span>~~
−	~~<span id="line23">23. </span>~~
−	~~<span id="line24">24. setworn(obj, mask)</span>~~
−	~~<span id="line25">25. register struct obj *obj;</span>~~
−	~~<span id="line26">26. long mask;</span>~~
−	~~<span id="line27">27. {</span>~~
−	~~<span id="line28">28. register struct worn *wp;</span>~~
−	~~<span id="line29">29. register struct obj *oobj;</span>~~
−	~~<span id="line30">30. </span>~~
−	~~<span id="line31">31. for(wp = worn; wp->w_mask; wp++) if(wp->w_mask & mask) {</span>~~
−	~~<span id="line32">32. oobj = *(wp->w_obj);</span>~~
−	~~<span id="line33">33. if(oobj && !(oobj->owornmask & wp->w_mask))</span>~~
−	~~<span id="line34">34. impossible("Setworn: mask = %ld.", wp->w_mask);</span>~~
−	~~<span id="line35">35. if(oobj) oobj->owornmask &= ~wp->w_mask;</span>~~
−	~~<span id="line36">36. if(obj && oobj && wp->w_mask == W_ARM){</span>~~
−	~~<span id="line37">37. if(uarm2) {</span>~~
−	~~<span id="line38">38. impossible("Setworn: uarm2 set?");</span>~~
−	~~<span id="line39">39. } else</span>~~
−	~~<span id="line40">40. setworn(uarm, W_ARM2);</span>~~
−	~~<span id="line41">41. }</span>~~
−	~~<span id="line42">42. *(wp->w_obj) = obj;</span>~~
−	~~<span id="line43">43. if(obj) obj->owornmask \|= wp->w_mask;</span>~~
−	~~<span id="line44">44. }</span>~~
−	~~<span id="line45">45. if(uarm2 && !uarm) {</span>~~
−	~~<span id="line46">46. uarm = uarm2;</span>~~
−	~~<span id="line47">47. uarm2 = 0;</span>~~
−	~~<span id="line48">48~~. ~~uarm->owornmask ^= (W_ARM \| W_ARM2);</span>~~
−	~~<span id="line49">49. }</span>~~
−	~~<span id="line50">50. }</span>~~
−	~~<span id="line51">51. </span>~~
−	~~<span id="line52">52. /* called e.g. when obj is destroyed */</span>~~
−	~~<span id="line53">53. setnotworn(obj) register struct obj *obj; {</span>~~
−	~~<span id="line54">54. register struct worn *wp;</span>~~
−	~~<span id="line55">55. </span>~~
−	~~<span id="line56">56. for(wp = worn; wp->w_mask; wp++)</span>~~
−	~~<span id="line57">57. if(obj == *(wp->w_obj)) {</span>~~
−	~~<span id="line58">58. *(wp->w_obj) = 0;</span>~~
−	~~<span id="line59">59. obj->owornmask &= ~wp->w_mask;</span>~~
−	~~<span id="line60">60. }</span>~~
−	~~<span id="line61">61. if(uarm2 && !uarm) {</span>~~
−	~~<span id="line62">62. uarm = uarm2;</span>~~
−	~~<span id="line63">63. uarm2 = 0;</span>~~
−	~~<span id="line64">64. uarm->owornmask ^= (W_ARM \| W_ARM2);</span>~~
−	~~<span id="line65">65. }</span>~~
−	~~<span id="line66">66. }</span>~~
−	[[Category:NetHack 1.4f source code~~\|worn.c~~]]

← Older revision	Revision as of 01:51, 4 March 2008
(No difference)