xandark / softporn-modern-port Goto Github PK

softporn-4.inc.pas

        else if (your_place=b_backrm) and (direction=up) and
{$IFDEF ORIGINAL_VERSION}
// the TV trick is ignored. famous bug that should be preserved
               (hooker_fucked<>true) then
{$ELSE}
                (TV_channel<>6) then
{$ENDIF}
          begin

         if not is_carried(_control_unit) then
           write_message('To watch TV, I need the remote control unit!!')
{$IFDEF ORIGINAL_VERSION}
// no check
{$ELSEIF PATCHED_VERSION}
         else if not hooker_fucked then            write_message('The Pimp says I can''t watch TV')
{$ELSEIF CORRECT_VERSION}
// there should be no check here. makes no sense
{$ENDIF}
         else
           watch_TV( TV_channel );
        end;

Original program written on the Apple ][ computer by Chuck Benton       ║
║                            Shareware Version 2.4                             ║
║    Re-written, translated, modified and debugged in Microsoft Quick-C V2.5   ║
║          By Gary Thompson AKA "The Psycho"  Email:[email protected]          ║
║        Softporn WEB PAGE: http://www.bridge.net/~psycho/softporn.html        ║
║                             The Psycho Strikes!                              ║
║                   Beta testing by CARDIS, ARIEL, & KOJAK

SOFTPORN ADVENTURE
An Interactive Classic
By Chuck Benton
Reconstructed in Pascal by Paul Schlyter
Reconstructed in Inform by Patrick Kellum
Release 0 / Serial number 971018 / Inform
v6.14 Library 6/7