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 site is no longer supported; information may be out of date.
Maintained as a historical archive by the Interactive Fiction Technology Foundation. Copyright 1993-2018 IFTF, CC-BY-SA unless otherwise noted.
This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.