← Back to branch summary

~ubuntu-branches/ubuntu/vivid/inform/vivid

« back to all changes in this revision

Viewing changes to html/answers2/answer52.html

  • Committer: Bazaar Package Importer
  • Author(s): Jan Christoph Nordholz
  • Date: 2008-05-26 22:09:44 UTC
  • mfrom: (2.1.1 lenny)
  • Revision ID: james.westby@ubuntu.com-20080526220944-ba7phz0d1k4vo7wx
Tags: 6.31.1+dfsg-1
* Remove a considerable number of files from the package
  due to unacceptable licensing terms.
* Repair library symlinks.

Show diffs side-by-side

added added

removed removed

Lines of Context:
html/answers2/answer52.html
1
 
<HTML><HEAD><TITLE>Answer to Exercise 52</TITLE></HEAD>
2
 
<BODY BGCOLOR="#FFFFFF">
3
 
<TABLE><TR><TD Valign="top"><IMG SRC="../icons/exercise.gif" ALT="??"><TD bgcolor="#FAA89B"><B>ANSWER TO EXERCISE 52</B><TR><TD><TD>
4
 
<P>
5
 
 
6
 
<PRE>
7
 
[ DoubleInvSub i count1 count2;
8
 
  print "You are carrying ";
9
 
  objectloop (i in player)
10
 
  {   if (i hasnt worn) { give i workflag; count1++; }
11
 
      else { give i ~workflag; count2++; }
12
 
  }
13
 
  if (count1==0) print "nothing.";
14
 
  else
15
 
  WriteListFrom(child(player),
16
 
      FULLINV_BIT + ENGLISH_BIT + RECURSE_BIT + WORKFLAG_BIT);
17
 
 
18
 
  if (count2==0) ".";
19
 
  print ".  In addition, you are wearing ";
20
 
  objectloop (i in player)
21
 
  {   if (i hasnt worn) give i ~workflag; else give i workflag;
22
 
  }
23
 
  WriteListFrom(child(player),
24
 
      ENGLISH_BIT + RECURSE_BIT + WORKFLAG_BIT);
25
 
  ".";
26
 
];
27
 
</PRE>
28
 
 
29
 
</TABLE>
30
 
<HR>Back to <A HREF="../section23.html#ex52">the exercise in section 23</A><HR>
31
 
<SMALL><I>Mechanically translated to HTML from third edition as revised 16 May 1997. Copyright &#169; Graham Nelson 1993, 1994, 1995, 1996, 1997: all rights reserved.</I></SMALL></BODY></HTML>