Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing verblibm.h

Locale (lines 1462-1524)

1462  [ Locale descin text1 text2 o k p j f2 flag;
1463   
1464    objectloop (o in descin) give o ~workflag;
1465   
1466    k=0;
1467    objectloop (o in descin)
1468        if (o hasnt concealed && NotSupportingThePlayer(o))
1469        {  #IFNDEF MANUAL_PRONOUNS;
1470           PronounNotice(o);
1471           #ENDIF;
1472           if (o hasnt scenery)
1473           {   give o workflag; k++;
1474               p=initial; f2=0;
1475               if ((o has door || o has container)
1476                   && o has open && o provides when_open)
1477               {   p = when_open; f2 = 1; jump Prop_Chosen; }
1478               if ((o has door || o has container)
1479                   && o hasnt open && o provides when_closed)
1480               {   p = when_closed; f2 = 1; jump Prop_Chosen; }
1481               if (o has switchable
1482                   && o has on && o provides when_on)
1483               {   p = when_on; f2 = 1; jump Prop_Chosen; }
1484               if (o has switchable
1485                   && o hasnt on && o provides when_off)
1486               {   p = when_off; f2 = 1; }
1487   
1488               .Prop_Chosen;
1489   
1490               if (o hasnt moved || o.describe~=NULL || f2==1)
1491               {   if (o.describe~=NULL && RunRoutines(o,describe)~=0)
1492                   {   flag=1;
1493                       give o ~workflag; k--;
1494                   }    
1495                   else
1496                   {   j=o.p;
1497                       if (j~=0)
1498                       {   new_line;
1499                           PrintOrRun(o,p);
1500                           flag=1;
1501                           give o ~workflag; k--;
1502                           if (o has supporter && child(o)~=0) SayWhatsOn(o);
1503                       }
1504                   }
1505               }
1506           }
1507           else
1508               if (o has supporter && child(o)~=0) SayWhatsOn(o);
1509        }
1510   
1511    if (k==0) return 0;
1512   
1513    if (text1~=0)
1514    {   new_line;
1515        if (flag==1) text1=text2;
1516        print (string) text1, " ";
1517        WriteListFrom(child(descin),
1518            ENGLISH_BIT + WORKFLAG_BIT + RECURSE_BIT
1519            + PARTINV_BIT + TERSE_BIT + CONCEAL_BIT);
1520        return k;
1521    }
1522             
1523    if (flag==1) L__M(##Look,5,descin); else L__M(##Look,6,descin);
1524  ];


Last updated 27 February 2004. This web site has not been fully supported since April 2008. Information may be out of date. This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.