historicalsource
/
leisuresuitlarry
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
leisuresuitlarry/RM15.CG

1268 lines
20 KiB
Plaintext
Raw Permalink Blame History

[logics for room 15 -- rmInsideBar
[ "Leisure Suit Larry in the Land of the Lounge Lizards"
[ by Al Lowe
%include "rm15.msg"
%include "gamedefs.h"
#define L_PEEPHOLE 0
#define L_CEILING_FAN 1
#define L_JUKEBOX 2
#define L_MEN_ON_STOOL 0
#define L_GIRL_ON_STOOL 1
#define L_EGO_ON_STOOL 2
%define BAR_Y 136
%define WAITING_FOR_PASSWORD 3
%define legCycling lf0
%define bartenderWandering lf1
%define boreCycling lf2
%define nearJukeBox lf3
%define nearGirl lf4
%define nearBore lf5
%define nearEmptyStool lf6
%define nearMen lf7
%define nearDoor lf8
%define doorScriptDone lf9
%define startJukeBox lf10
%define orderedAWhiskey lf11
%define orderedABeer lf12
%define orderedAWine lf13
%define staggering lf14
%define tookADrink lf15
%define beenToldPrice lf16
%define heardJoke1 lf21
%define heardJoke2 lf22
%define heardJoke3 lf23
%define heardJoke4 lf24
%define heardJoke5 lf25
%define heardJoke6 lf26
%define heardJoke7 lf27
%define heardJoke8 lf28
%define heardJoke9 lf29
%define jukeBoxTimer lv0
%define bartenderTimer lv1
%define legCycles lv2
%define boreTalkCycles lv3
%define jokeSeconds lv4
%define doorTimer lv5
%define doorScript lv6
%define drinkCount lv7
%define staggerCycles lv8
%define drunkSeconds lv9
%define joke lv10
%define tipCount lv11
%object aDoor 1
%object aPeepHole 2
%object aFan 3
%object aJukeBox 4
%object aGirl 5
%object aBore 6
%object aBartender 7
if (initLog)
{
SetHorizon( 99);
LoadPic( currentRoom);
DrawPic( currentRoom);
DiscardPic( currentRoom);
LoadSound( mTitle);
LoadView( vPimpDoor);
LoadView( vBarInterior);
LoadView( vBarGreaser);
LoadView( vBarFlys);
LoadView( vBarDoor);
LoadView( vBartender);
LoadView( vPainting);
AddToPic( vPainting, 0, 0, 81, 69, 4, 4);
[view, loop, cel, x, y, obj priority, box priority
DiscardView( vPainting);
AddToPic( vBarFlys, 0, 0, 112, 128, 11, 0);
AddToPic( vBarFlys, 0, 1, 101, 128, 11, 0);
AnimateObj( aDoor);
IgnoreBlocks( aDoor);
IgnoreObjs( aDoor);
Position( aDoor, 142, 150);
SetView( aDoor, vPimpDoor);
SetCel( aDoor, 0);
SetPriority( aDoor, 11);
Draw( aDoor);
work = DOOR_CYCLE_TIME;
CycleTime( aDoor, work);
StopUpdate( aDoor);
AnimateObj( aPeepHole);
SetView( aPeepHole, vBarInterior);
SetLoop( aPeepHole, L_PEEPHOLE);
FixLoop( aPeepHole);
SetCel( aPeepHole, 0);
SetPriority( aPeepHole, 12);
Position( aPeepHole, 143, 110);
AnimateObj( aFan);
IgnoreHorizon( aFan);
Position( aFan, 66, 66);
SetView( aFan, vBarInterior);
SetLoop( aFan, L_CEILING_FAN);
FixLoop( aFan);
SetCel( aFan, 0);
Draw( aFan);
CycleTime( aFan, two);
AnimateObj( aJukeBox);
IgnoreBlocks( aJukeBox);
IgnoreObjs( aJukeBox);
SetView( aJukeBox, vBarInterior);
SetLoop( aJukeBox, L_JUKEBOX);
FixLoop( aJukeBox);
SetCel( aJukeBox, 1);
Position( aJukeBox, 16, 128);
SetPriority( aJukeBox, 11);
Draw( aJukeBox);
StopUpdate( aJukeBox);
AnimateObj( aGirl);
IgnoreBlocks( aGirl);
IgnoreObjs( aGirl);
SetView( aGirl, vBarFlys);
SetLoop( aGirl, L_GIRL_ON_STOOL);
SetCel( aGirl, 0);
SetPriority( aGirl, 11);
Position( aGirl, 65, 128);
Draw( aGirl);
CycleTime( aGirl, two);
AnimateObj( aBore);
IgnoreBlocks( aBore);
SetView( aBore, vBarGreaser);
SetLoop( aBore, FACING_LEFT);
SetPriority( aBore, 11);
Position( aBore, 77, 128);
Draw( aBore);
AnimateObj( aBartender);
SetView( aBartender, vBartender);
SetLoop( aBartender, 0);
SetCel( aBartender, 0);
Position( aBartender, 106, 101);
Draw( aBartender);
StopUpdate( aBartender);
if (previousRoom == rmBackroom)
{
egoX = 141;
egoY = 148;
}
else
{
if (previousRoom == rmHallway)
{
egoX = 39;
egoY = 108;
}
else
{
egoX = 76;
egoY = 167;
}
}
PositionV( ego, egoX, egoY);
Draw( ego);
Random( 15, 32, bartenderTimer);
Random( 4, 32, legCycles);
Random( 15, 32, boreTalkCycles);
ShowPic( );
Return( );
} [ end initLOG
if (Posn( ego, 45, 120, 133, 159)) [ near bar
{
SetPriority( ego, 12);
}
else
{
ReleasePriority( ego);
}
Reset( nearJukeBox);
if (Posn( ego, 0, 117, 33, 131))
{
Set( nearJukeBox);
}
Reset( nearGirl);
if (Posn( ego, 55, 0, 78, BAR_Y))
{
Set( nearGirl);
Set( nearPerson);
}
Reset( nearBore);
if (Posn( ego, 71, 0, 87, BAR_Y))
{
Set( nearBore);
Set( nearPerson);
}
Reset( nearEmptyStool);
if (Posn( ego, 85, 0, 99, BAR_Y))
{
Set( nearEmptyStool);
}
Reset( nearMen);
if (Posn( ego, 94, 0, 124, BAR_Y))
{
Set( nearMen);
Set( nearPerson);
}
Reset( nearDoor);
if (Posn( ego, 132, 137, 149, 154))
{
Set( nearDoor);
}
[*****
:handleInput
[*****
if (!haveInput) {goto noInput;}
[ Handle the pimp door sequence.
if (doorScript != WAITING_FOR_PASSWORD)
{
if (Said( ken$sent$me))
{
Print( 6);
}
}
else
{
Set( doorScriptDone);
if (Said( ken$sent$me))
{
doorScript = 100;
doorTimer = 0;
}
Set( haveMatch);
unknownWord = 0;
}
if ((Said( ask, anyword, password) ||
Said( ask, password)))
{
if (!nearPerson)
{
Set( notCloseEnough);
}
else
{
Print( 68);
}
}
if ((Said( unlock, door) ||
Said( open, door)))
{
if (!nearDoor)
{
Set( notCloseEnough);
}
else
{
Print( 47);
}
}
if ((Said( look, peephole, rol) ||
Said( look$in, peephole, rol) ||
Said( look, door) ||
Said( look$in, door) ||
Said( look, window, rol) ||
Said( look$in, window, rol)))
{
Print( 65);
}
if ((Said( break, down, door) ||
Said( break, door, rol) ||
Said( hit, door)))
{
if (!nearDoor)
{
Set( notCloseEnough);
}
else
{
Print( 55);
}
}
if (Said( knock, rol))
{
if (!nearDoor)
{
Set( notCloseEnough);
}
else
{
if (doorScript)
{
Print( 46);
}
else
{
Set( programControl);
StopMotion( ego);
Print( 5);
doorTimer = 3;
}
}
}
if ((Said( unlock, door, rol) ||
Said( use, key, rol)))
{
if (!nearDoor)
{
Set( notCloseEnough);
}
else
{
Print( 63);
}
}
[ General purpose looks.
if ((Said( look) ||
Said( look, room) ||
Said( look, bar)))
{
Print( 1);
}
if ((Said( tip, bartender) ||
Said( give, bartender, money) ||
Said( give, money, bartender) ||
Said( give, tip, bartender)))
{
if (currentStatus != ON_BAR_STOOL)
{
Print( 33);
}
else
{
if (!dollars > 4)
{
Print( 76);
}
else
{
++tipCount;
dollars -= 5;
if (tipCount == 1) {Print( 77);}
if (tipCount == 2) {Print( 78);}
if (tipCount == 3) {Print( 79);}
if (tipCount == 4) {Print( 80);}
if (tipCount > 4) {Print( 81);}
}
}
}
if (Said( look, bartender))
{
Print( 82);
Print( 83);
}
if (Said( buy, bartender, drink))
{
if (currentStatus != ON_BAR_STOOL)
{
Print( 33);
}
else
{
Print( 69);
}
}
if (Said( buy, round))
{
if (currentStatus != ON_BAR_STOOL)
{
Print( 33);
}
else
{
if (!beenToldPrice)
{
Set( beenToldPrice);
Print( 70);
}
else
{
dollars = 0;
Print( 71);
}
}
}
if ((Said( give, bartender, money) ||
Said( give, money, bartender) ||
Said( pay, lefty) ||
Said( bribe, lefty)))
{
Print( 72);
}
if (Said( look, moose))
{
Print( 45);
}
if (Said( look, girl))
{
Print( 48);
}
if ((Said( look, man) ||
Said( look, people)))
{
Print( 53);
}
if (Said( look, fan))
{
Print( 49);
Print( 50);
}
if (Said( look, painting))
{
Print( 51);
}
if ((Said( touch, girl) ||
Said( touch, girl, leg) ||
Said( touch, leg) ||
Said( look, leg) ||
Said( feel, leg) ||
Said( feel, girl, leg) ||
Said( feel, girl)))
{
if (!nearGirl)
{
Set( notCloseEnough);
}
else
{
Print( 67);
}
}
if ((Said( pick$up, girl) ||
Said( ask, girl, dance) ||
Said( dance, with, girl) ||
Said( buy, girl, drink) ||
Said( kiss, girl) ||
Said( talk, girl)))
{
if (!nearGirl)
{
Set( notCloseEnough);
}
else
{
Print( 60);
Print( 56);
Print( 57);
}
}
if ((Said( listen, man) ||
Said( talk, man)))
{
if ((nearBore || currentStatus == ON_BAR_STOOL))
{
Print( 59);
}
else
{
if (nearMen)
{
Print( 61);
}
else
{
Set( notCloseEnough);
}
}
}
if ((Said( look, jukebox) ||
Said( look$in, jukebox)))
{
if (!nearJukeBox)
{
Set( notCloseEnough);
}
else
{
Print( 64);
}
}
if ((Said( play, jukebox) ||
Said( use, jukebox) ||
Said( play, music) ||
Said( put, anyword, dollar, jukebox) ||
Said( put, dollar, jukebox) ||
Said( put, money, jukebox)))
{
if (!nearJukeBox)
{
Set( notCloseEnough);
}
else
{
Print( 4);
dollars -= 1;
Set( startJukeBox);
}
}
if ((Said( use, hammer, door) ||
Said( open, door, use, hammer) ||
Said( hit, door, with, hammer) ||
Said( use, hammer, open, door) ||
Said( use, hammer, door) ||
Said( use, hammer, on, door) ||
Said( hammer, on, door)))
{
if (!nearDoor)
{
Set( notCloseEnough);
}
else
{
if (!Has( iHammer))
{
Set( dontHaveIt);
}
else
{
Print( 73);
}
}
}
[ Handle the purchase of libations.
if ((Said( order, drink) ||
Said( buy, drink, wino) ||
Said( buy, wino, drink) ||
Said( buy, drink) ||
Said( drink) ||
Said( talk, bartender)))
{
if (currentStatus != ON_BAR_STOOL)
{
Print( 20);
}
else
{
Print( 21);
}
}
if ((Said( wine) ||
Said( give, me, wine) ||
Said( get, wine) ||
Said( order, wine)))
{
if (currentStatus != ON_BAR_STOOL)
{
Print( 33);
}
else
{
if (script && script < 5)
{
Print( 40);
}
else
{
Print( 36);
Print( 37);
Set( orderedAWine);
script = 0;
Set( scriptDone);
}
}
}
if ((Said( beer) ||
Said( give, me, beer) ||
Said( get, beer) ||
Said( order, beer)))
{
if (currentStatus != ON_BAR_STOOL)
{
Print( 33);
}
else
{
if (script && script < 5)
{
Print( 40);
}
else
{
Print( 23);
Set( orderedABeer);
script = 0;
Set( scriptDone);
}
}
}
if ((Said( booze) || [ Generic non-handled liquors.
Said( give, me, booze) ||
Said( get, booze) ||
Said( champagne) ||
Said( give, me, champagne) ||
Said( get, champagne) ||
Said( order, champagne) ||
Said( order, booze)))
{
if (currentStatus != ON_BAR_STOOL)
{
Print( 33);
}
else
{
if (script && script < 5)
{
Print( 40);
}
else
{
Print( 54);
}
}
}
if ((Said( light, beer) ||
Said( give, me, light, beer) ||
Said( get, light, beer) ||
Said( order, light, beer)))
{
if (currentStatus != ON_BAR_STOOL)
{
Print( 33);
}
else
{
if (script && script < 5)
{
Print( 40);
}
else
{
Print( 52);
}
}
}
if ((Said( whiskey) ||
Said( give, me, whiskey) ||
Said( get, whiskey) ||
Said( order, whiskey)))
{
if (currentStatus != ON_BAR_STOOL)
{
Print( 33);
}
else
{
if (script && script < 5)
{
Print( 40);
}
else
{
Print( 22);
Set( orderedAWhiskey);
script = 0;
Set( scriptDone);
}
}
}
if (Said( drink, whiskey))
{
if (!Has( iWhiskey))
{
Set( dontHaveIt);
}
else
{
if (currentStatus != ON_BAR_STOOL)
{
Print( 34);
}
else
{
Set( tookADrink);
Drop( iWhiskey);
Print( 39);
}
}
}
[ Handle mounting, and dismounting, of stool.
if ((Said( sit) ||
Said( sit, down)||
Said( sit, bar)||
Said( mount, stool)||
Said( mount, bar, stool)||
Said( get, on, stool) ||
Said( sit, on, stool) ||
Said( sit, on, bar, stool) ||
Said( sit, down, on, stool) ||
Said( sit, down, on, bar, stool) ||
Said( sit, bar, stool) ||
Said( sit, stool)))
{
if (currentStatus == ON_BAR_STOOL)
{
Print( 3);
}
else
{
if (!nearEmptyStool)
{
Set( notCloseEnough);
}
else
{
currentStatus = ON_BAR_STOOL;
IgnoreBlocks( ego);
SetView( ego, vBarFlys);
SetLoop( ego, L_EGO_ON_STOOL);
RepositionTo( ego, 90, 128);
StopMotion( ego);
Set( programControl);
StopCycling( aBore);
jokeSeconds = 15; [ Seconds(+7) before first joke.
boreTalkCycles = 0; [ Turn off his random talking.
}
}
}
if ((Said( leave, stool) ||
Said( leave, bar, stool) ||
Said( get, off, stool) ||
Said( get, off, bar, stool) ||
Said( get, up) ||
Said( get, off) ||
Said( get, down) ||
Said( stand, up) ||
Said( stand)))
{
if (currentStatus != ON_BAR_STOOL)
{
Print( 2);
}
else
{
if (script && script < 5)
{
Print( 40);
}
else
{
SetView( ego, vEgo);
StartMotion( ego);
Reset( programControl);
ObserveBlocks( ego);
RepositionTo( ego, 90, 131);
SetLoop( aBore, FACING_LEFT);
StopCycling( aBore);
Random( 24, 32, boreTalkCycles); [ Cycles before talking to girl.
jokeSeconds = 0; [ No more jokes.
if (!drunkSeconds)
{
currentStatus = NORMAL;
}
else
{
currentStatus = DRUNK;
Set( handsOff);
PreventInput();
Print( 41);
}
}
}
}
if ((Said( kiss, off, rol) ||
Said( fuck$you, rol) ||
Said( damn, rol) ||
Said( go, hump, rol) ||
Said( shut, up, rol) ||
Said( get, lost, rol)))
{
if (currentStatus != ON_BAR_STOOL)
{
Print( 44);
}
else
{
CurrentLoop( aBore, work);
if (work != FACING_RIGHT)
{
Print( 62);
}
else
{
Print( 43);
[ Make him sulk awhile before he starts talking to the girl.
SetLoop( aBore, FACING_LEFT);
StopCycling( aBore);
Reset( boreCycling);
Random( 123, 234, boreTalkCycles);
Random( 44, 88, jokeSeconds); [ seconds till he talks to ego.
}
}
}
[*****
:noInput
[*****
if (aSecondPassed)
{
--jukeBoxTimer;
if (jukeBoxTimer == 1 && !soundOn)
{
Set( musicDone);
}
--bartenderTimer;
if (bartenderTimer == 1)
{
Toggle( bartenderWandering);
if (bartenderWandering)
{
Random( 4, 12, bartenderTimer);
StartUpdate( aBartender);
Wander( aBartender);
}
else
{
Random( 12, 33, bartenderTimer);
SetLoop( aBartender, FACING_FRONT);
ForceUpdate( aBartender);
StopUpdate( aBartender);
}
}
--doorTimer;
if (doorTimer == 1)
{
Set( doorScriptDone);
}
if (currentStatus == DRUNK)
{
--drunkSeconds;
if (drunkSeconds == 41)
{
Print( 66);
}
if (drunkSeconds == 1)
{
--drunkSeconds;
staggerCycles = 0;
AcceptInput();
ReleaseLoop( ego);
PlayerControl();
Reset( programControl);
currentStatus = NORMAL;
Reset( handsOff);
Print( 42);
}
}
--jokeSeconds;
if (jokeSeconds == 7)
{
SetLoop( aBore, FACING_RIGHT);
StartCycling( aBore); [ He's starting a new joke
}
if (jokeSeconds == 1)
{
if (typing)
{
jokeSeconds = 4;
}
else
{
Random( 20, 45, jokeSeconds); [ seconds before he starts again
StopCycling( aBore); [ He's starting a new joke
if ((!heardJoke1 ||
!heardJoke2 ||
!heardJoke3 ||
!heardJoke4 ||
!heardJoke5 ||
!heardJoke6 ||
!heardJoke7 ||
!heardJoke8 ||
!heardJoke9))
{
:pickAJoke;
Random( 11, 19, joke); [ Pick a punch line.
work = joke;
work += 210; [ Because flags are 221-229.
if (IssetV( work)) [ Be sure it's a new one.
{
goto pickAJoke;
}
SetV( work);
Print( 10);
PrintV( joke);
Print( 58);
}
}
}
}
--boreTalkCycles;
if (boreTalkCycles == 1)
{
Random( 23, 45, boreTalkCycles);
Toggle( boreCycling);
if (boreCycling)
{
StartCycling( aBore);
}
else
{
StopCycling( aBore);
}
}
if (scriptDone)
{
Reset( scriptDone);
++script;
if (script == 1)
{
bartenderTimer = 0;
StartUpdate( aBartender);
MoveObj( aBartender, 106, 102, 1, scriptDone);
}
if (script == 2)
{
SetLoop( aBartender, FACING_FRONT);
StopUpdate( aBartender);
ForceUpdate( aBartender);
scriptTimer = 4;
}
if (script == 3)
{
StartUpdate( aBartender);
MoveObj( aBartender, 90, 102, 1, scriptDone);
}
if (script == 4)
{
SetLoop( aBartender, FACING_FRONT);
StopUpdate( aBartender);
ForceUpdate( aBartender);
scriptTimer = 3;
}
if (script == 5)
{
Print( 24);
if (!dollars > 2)
{
Print( 26);
Print( 27);
script = 6;
}
else
{
StartUpdate( aBartender);
MoveObj( aBartender, 119, 99, 1, scriptDone);
Print( 25);
dollars -= 3;
if (orderedAWhiskey)
{
Reset( orderedAWhiskey);
if (Has( iWhiskey))
{
Set( tookADrink);
Print( 35);
}
else
{
if (!boughtWhiskey)
{
Set( boughtWhiskey);
currentScore += 1;
}
Get( iWhiskey);
Print( 38);
}
}
if (orderedABeer)
{
Reset( orderedABeer);
Set( tookADrink);
Print( 28);
}
if (orderedAWine)
{
Reset( orderedAWine);
Set( tookADrink);
Print( 29);
Print( 30);
}
}
}
if (script == 6)
{
script = 0;
SetLoop( aBartender, FACING_BACK);
StopUpdate( aBartender);
ForceUpdate( aBartender);
Reset( bartenderWandering);
bartenderTimer = 5;
}
}
--legCycles;
if (legCycles == 1)
{
Random( 10, 22, legCycles);
Toggle( legCycling);
if (legCycling)
{
StartCycling( aGirl);
}
else
{
StopCycling( aGirl);
}
}
if (doorScriptDone)
{
Reset( doorScriptDone);
++doorScript;
if (doorScript == 1)
{
Draw( aPeepHole);
EndOfLoop( aPeepHole, doorScriptDone);
}
if (doorScript == 2)
{
StopUpdate( aPeepHole);
doorTimer = 3;
}
if (doorScript == WAITING_FOR_PASSWORD)
{
Print( 7);
doorTimer = 12;
}
if (doorScript == 4)
{
Print( 8);
StartUpdate( aPeepHole);
BeginningOfLoop( aPeepHole, doorScriptDone);
}
if (doorScript == 5)
{
Erase( aPeepHole);
StartMotion( ego);
Reset( programControl);
doorScript = 0;
doorTimer = 0;
}
if (doorScript == 101) [ He knew the password.
{
Print( 9);
StopMotion( ego);
Set( programControl);
StartUpdate( aPeepHole);
BeginningOfLoop( aPeepHole, doorScriptDone);
}
if (doorScript == 102)
{
Erase( aPeepHole);
StartUpdate( aDoor);
EndOfLoop( aDoor, doorScriptDone);
}
if (doorScript == 103)
{
newRoom = rmBackroom;
}
}
if (musicDone)
{
Reset( musicDone);
SetCel( aJukeBox, 1);
StopUpdate( aJukeBox);
ForceUpdate( aJukeBox);
}
if (startJukeBox)
{
Reset( startJukeBox);
StartUpdate( aJukeBox);
Sound( mTitle, musicDone);
if (!soundOn)
{
Reset( musicDone);
Random( 8, 12, jukeBoxTimer);
StartUpdate( aJukeBox);
}
}
[ Scott Murphy's drinking problem
if (tookADrink)
{
Reset( tookADrink);
ShakeScreen( 1);
if (!drunkSeconds)
{
drunkSeconds = 5; [ increases geometricly with each drink.
staggerCycles = 10;
Print( 31);
}
else
{
Print( 32);
if (drunkSeconds < 120)
{
drunkSeconds += drunkSeconds;
}
}
}
if (currentStatus == DRUNK)
{
if (egoDir != EGO_STOPPED)
{
--staggerCycles;
if (staggerCycles == 1)
{
Toggle( staggering);
if (!staggering)
{
Reset( programControl);
ReleaseLoop( ego);
staggerCycles = 7;
}
else
{
Set( programControl);
FixLoop(ego);
:loop1
Random( 1, 8, work);
if (work == egoDir)
{
goto loop1;
}
egoDir = work;
staggerCycles = 5;
}
}
}
}
[*****
:exit [ test for leaving the room
[*****
if (edgeEgoHit == TOP) {newRoom = rmHallway;}
if (edgeEgoHit == BOTTOM) {newRoom = rmOutsideBar;}
Reference in New Issue View Git Blame Copy Permalink