282 lines
4.9 KiB
Plaintext
282 lines
4.9 KiB
Plaintext
[Logics for room 1 -- title, credits
|
|
[ "Leisure Suit Larry in the Land of the Lounge Lizards"
|
|
[ by Al Lowe
|
|
|
|
%include "rm1.msg"
|
|
%include "gamedefs.h"
|
|
|
|
|
|
|
|
[ This loops through the title screen, and the credits screens, until a
|
|
[key is pressed. It then starts the game, at room 11.
|
|
|
|
[ Note: using the standard "frame" pic, first line to print on is y = 3,
|
|
[lowest is y = 19. X = 4 leaves 1 character blank at LEFT edge.
|
|
|
|
[ View# Name Loop Cell Size X Y Contents
|
|
[---------------------------------------------------------------------
|
|
[ 39 vCreditNames1 0 0 65x23 41 94 programmed by
|
|
[ 39 vCreditNames1 0 1 69x60 41 114 designed by
|
|
[ 40 vCreditNames2 0 0 62x23 53 80 graphics by
|
|
[ 40 vCreditNames2 0 1 44x23 65 84 written by
|
|
[ 41 vCreditNames3 0 0 38x23 68 59 music by
|
|
[ 41 vCreditNames3 0 1 82x56 25 155 AGI by
|
|
|
|
|
|
|
|
|
|
%define designPic lv2
|
|
%define creditsPic lv3
|
|
%define agdsPic lv4
|
|
%define framePic lv5
|
|
|
|
|
|
%object aDoll 1
|
|
%object aName 2
|
|
|
|
|
|
|
|
if (initLog)
|
|
{
|
|
SetHorizon( 1);
|
|
StatusLineOff();
|
|
Set( demo);
|
|
Set( handsOff);
|
|
Set( programControl);
|
|
PreventInput();
|
|
lastChar = 0;
|
|
animationInterval = NORMAL_SPEED;
|
|
|
|
LoadSound( mTitle);
|
|
|
|
LoadView( vTitles);
|
|
LoadView( vTitleDoll);
|
|
LoadView( vTitleEgo);
|
|
LoadView( vCreditNames1);
|
|
LoadView( vCreditNames2);
|
|
LoadView( vCreditNames3);
|
|
LoadView( vCreditNames4);
|
|
|
|
|
|
designPic = picCredits1;
|
|
creditsPic = picCredits2;
|
|
agdsPic = picCredits3;
|
|
|
|
|
|
LoadPic( designPic);
|
|
LoadPic( creditsPic);
|
|
LoadPic( agdsPic);
|
|
|
|
LoadPic( currentRoom);
|
|
DrawPic( currentRoom);
|
|
DiscardPic( currentRoom);
|
|
|
|
|
|
AnimateObj( aDoll);
|
|
IgnoreObjs( aDoll);
|
|
SetView( aDoll, vTitleDoll);
|
|
SetLoop( aDoll, FACING_RIGHT);
|
|
Position( aDoll, 0, 130);
|
|
|
|
AnimateObj( aName);
|
|
SetView( aName, vCreditNames1);
|
|
SetCel( aName, 0);
|
|
SetPriority( aName, 4);
|
|
StopCycling( aName);
|
|
|
|
StepSize( ego, three);
|
|
Position( ego, 0, 160);
|
|
SetView( ego, vTitleEgo);
|
|
SetLoop( ego, FACING_RIGHT);
|
|
|
|
Sound( mTitle, musicDone);
|
|
script = 0;
|
|
|
|
AddToPic( vTitles, 0, 0, 4, 18, 4, 4);
|
|
AddToPic( vTitles, 0, 1, 4, 36, 4, 4);
|
|
AddToPic( vTitles, 0, 2, 46, 36, 4, 4);
|
|
AddToPic( vTitles, 0, 3, 11, 87, 4, 4);
|
|
[view, loop, cel, x, y, obj priority, box priority
|
|
|
|
|
|
scriptTimer = 8;
|
|
ShowPic();
|
|
|
|
Return();
|
|
|
|
} [ end initLOG
|
|
|
|
|
|
[*****
|
|
:noInput
|
|
[*****
|
|
|
|
if (scriptDone)
|
|
{
|
|
Reset( scriptDone);
|
|
++script;
|
|
|
|
if (script == 1)
|
|
{
|
|
Draw( aDoll);
|
|
MoveObj( aDoll, 36, 94, 2, scriptDone);
|
|
}
|
|
|
|
|
|
if (script == 2)
|
|
{
|
|
MoveObj( aDoll, 136, 94, 2, scriptDone);
|
|
|
|
Draw( ego);
|
|
MoveObj( ego, 80, 160, 3, scriptDone);
|
|
}
|
|
|
|
|
|
if (script == 3)
|
|
{
|
|
if (monitorType != MONO)
|
|
{
|
|
Display( 23, 3, 2);
|
|
Display( 24, 4, 3);
|
|
}
|
|
|
|
SetLoop( ego, 2);
|
|
FixLoop( ego);
|
|
MoveObj( ego, 149, 160, 2, scriptDone);
|
|
}
|
|
|
|
|
|
if (script == 4)
|
|
{
|
|
Erase( aDoll);
|
|
}
|
|
|
|
|
|
if (script == 5)
|
|
{
|
|
Erase( ego);
|
|
|
|
if (monitorType != MONO)
|
|
{
|
|
ClearLines( 23, 24, BG_COLOR);
|
|
}
|
|
|
|
DrawPic( designPic); [ draw new picture (pic.2)
|
|
|
|
Position( aName, 41, 94);
|
|
Draw( aName); [ programmed by
|
|
|
|
ShowPic();
|
|
|
|
scriptTimer = 8;
|
|
}
|
|
|
|
|
|
if (script == 6)
|
|
{
|
|
SetCel( aName, 1); [ designed by
|
|
RepositionTo( aName, 41, 114);
|
|
|
|
SetLoop( aDoll, FACING_LEFT);
|
|
Draw( aDoll);
|
|
MoveObj( aDoll, 100, 94, 2, scriptDone);
|
|
}
|
|
|
|
|
|
if (script == 7)
|
|
{
|
|
MoveObj( aDoll, 0, 94, 2, scriptDone);
|
|
|
|
SetLoop( ego, FACING_LEFT);
|
|
Draw( ego);
|
|
MoveObj( ego, 50, 160, 3, scriptDone);
|
|
}
|
|
|
|
|
|
if (script == 8)
|
|
{
|
|
SetLoop( ego, 3);
|
|
FixLoop( ego);
|
|
MoveObj( ego, 0, 160, 2, scriptDone);
|
|
}
|
|
|
|
|
|
if (script == 9)
|
|
{
|
|
Erase( aDoll);
|
|
}
|
|
|
|
|
|
if (script == 10)
|
|
{
|
|
Erase( ego);
|
|
SetView( ego, vEgo);
|
|
Erase( aName);
|
|
|
|
DrawPic( creditsPic); [ Draw pic.3
|
|
SetView( aName, vCreditNames2);
|
|
SetCel( aName, 0); [ graphics by
|
|
Position( aName, 53, 80);
|
|
Draw( aName);
|
|
ShowPic();
|
|
|
|
scriptTimer = 9;
|
|
}
|
|
|
|
|
|
if (script == 11)
|
|
{
|
|
SetCel( aName, 1); [ written by
|
|
RepositionTo( aName, 65, 84);
|
|
scriptTimer = 8;
|
|
}
|
|
|
|
|
|
if (script == 12)
|
|
{
|
|
Erase( aName);
|
|
|
|
DrawPic( agdsPic); [ draw pic.4
|
|
AddToPic( vCreditNames3, 0, 0, 68, 59, 4, 4); [ Music by
|
|
AddToPic( vCreditNames3, 0, 1, 25, 155, 4, 4); [ AGDS by
|
|
[view, loop, cel, x, y, obj priority, box priority
|
|
|
|
ShowPic();
|
|
|
|
scriptTimer = 8;
|
|
}
|
|
|
|
|
|
if (script == 13)
|
|
{
|
|
DrawPic( creditsPic); [ Draw pic.3
|
|
AddToPic( vCreditNames4, 0, 0, 64, 84, 4, 4); [ Kenny
|
|
ShowPic();
|
|
|
|
scriptTimer = 3;
|
|
}
|
|
|
|
|
|
if (script == 14 && !soundOn)
|
|
{
|
|
NewRoom( rmTitle); [ Let's do it again, and real soon.
|
|
}
|
|
}
|
|
|
|
|
|
[*****
|
|
:exit
|
|
[*****
|
|
|
|
if (musicDone)
|
|
{
|
|
if (script > 13)
|
|
{
|
|
NewRoom( rmTitle); [ Let's do it again, and real soon.
|
|
}
|
|
else
|
|
{
|
|
Sound( mTitle, musicDone); [ Play it again, Samantha.
|
|
}
|
|
}
|