Locale (lines 1462-1524)
Back to List
Browsing verblibm.h
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.