[Back to MISC SWAG index]  [Back to Main SWAG index]  [Original]

{
SPACE LORDS 7 - VGA PC VERSION.
(C) 1995 Scott Tunstall & K. Sillett (BBC Maestro)

3 PLAYER ACTION !!!

Apologies for the swearing in some of my posts Gayle. To make up
for it, I've given ya a QUALITY video game. Seriously!
It certainly looks smart... don't ask me where I got the graphics
from tho' - some folk may complain! ;)

BEFORE YOU RUN THIS PLEASE USE THE XX3402 DECODER ON PART 2 OF
THE SPACE LORDS POST TO CREATE THE FILE IMAGES.ZIP. THEN UNZIP
THE IMAGES FILE INTO WHERE YOUR SPACE LORDS GAME EXECUTABLE FILE
(LORDS.EXE) WILL BE.

THEN, RUN THE EXE AND HAVE FUN! :)

New game requirements:
----------------------
500K of base memory
MCGA/VGA graphics adaptor supporting 320 x 200 x 256 mode
386 SX 25 processor (at worst) - will run VERY SLOWLY ON THIS MACHINE
(Ok on a 486 DX-2)

(Of course, if you are Dave "Stallion Man" Norrie you can use a
8Mb RAM Pentium f***ing 90 - lucky c***!! I'll put one over him
and buy an IBMRISC 400Mhz baby! (No games for it tho' - I'll change
that !)


Most importantly a 101 key keyboard is essential.


PLAYER #     UP      ROTATE LEFT    ROTATE RIGHT     FIRE
-----------------------------------------------------------------
1            '1'     'A'            'X'              'LEFT SHIFT'
2            'O'     ';'            '@'              '>'
3            'Home'  'Keypad 9'     'Keypad -'       'Keypad 3'
4            JOYSTICK 1      (Not implemented)
5            JOYSTICK 2      (Not implemented)

6..100 require to be LapLinked (Aye right then)

}




{$DEFINE FULLDISPLAY}   { <-- $UNDEF if using a slow 386 }
{$DEFINE BUMPING}       { <-- Player to player bumping }
{$DEFINE BONUSES}       { <-- Want Any bonuses on screen }
{$DEFINE MESSAGES}      { <-- This may be silly of you to $UNDEF. }


{$a+,b-,s-,e+,n+,r-,v-,g+}


Program SPACE_LORDS_7;   { 7 editions already - GULP! }

Uses Dos,NEWGRAPH, NwKBDInt, Crt;

     {NEWGRAPH is in JUNE 1996 EDITION OF THE SWAG }
     {AS IS NEWKBDINT - KEYBOARD HANDLER }



Const TopBoundary = -8;          { Top of window }
      BottomBoundary = 204;
      LeftBoundary = -4;
      RightBoundary = 323;


      MaxPlayers = 3;           { Max no of players on screen at once }

{$IFDEF BONUSES}
      MaxBonuses = 6;           { Max no of bonuses on screen at once }
{$ENDIF}

      MaxAliens = 10;           { Getting busy on the screen ! }
      MaxStars  = 20;           { Number of parallax stars }


      MaxExplodeWidth = 200;    { And how far the explosion circles go }
      ShipTurnAngle = 4;        { Degrees that ships turn in }
      PointsForBumping = 500;   { Guess what these are ? }
      PointsForShooting = 100;
      DeductionForShooting = 10;


      {
      BIT FLAGS - LEAVE ALONE
      }

      Dead = 0;                    { Playerstatus defines }
      ShootAble = 1;               { This MUST stay at 1 - V. Important }
      Warping = 2;                 { This MUST stay at 2 ! }
      Exploding = 4;               { This MUST stay at 4 ! }
      Spinning = 8;                { This MUST stay at 8 ! }
      Frozen = 16;

      {
      Player Speed stuff
      }

      MaxPlayerSpeed = 4;          { This is the MAXIMUM number of
                                   pixels that a player ship jumps
                                   in 1 pass. Pretty fast man }
      SlowestPlayerSpeed = 1;      { The least number of pixel
                                   jumps }









      {
      Laser stuff - Alter MaxLasers if you like, leave the rest
      }

      MaxLasers = (MaxPlayers * 10)+10;  { How many lasers allocated }
      MaxPlayerLasers = 10;              { How many each player has }
      MaxLaserPower = 5;

      NumLaserTypes = 3;           { The current # of laser types }
      LaserFree = 0;
      NormalLaser = 1;             { Lasers stop at edge of screen }
      LaserWraps = 2;              { Lasers can go off one side &
                                   reappear on the other }
      LaserRebound = 3;            { Makes lasers bounce off wall }

      PlayerLaserSize = 4;
      AlienLaserSize = 4;








      {
      Bonus stuff - don't change the values of the constants
      otherwise some strange effects will occur, OK? If you want
      to add some more stuff you'll have to update BonusString
      too..
      }

{$IFDEF BONUSES}

      NumberOfBonuses = 13;


{     BONUS NAME                POINTS FOR COLLECTING IT
      ----------                ------------------------
}

      SlowDownBonus = 1;        SlowDownBonusPointsValue = 100;
      EnergyBonus = 2;          EnergyBonusPointsValue = 200;
      FreezeBonus = 3;          FreezeBonusPointsValue = 300;
      ReverseBonus = 4;         ReverseBonusPointsValue = 400;
      DisableBonus = 5;         DisableBonusPointsValue = 500;
      InvulnerabilityBonus = 6; InvulnerabilityBonusPointsValue = 600;
      AssFiringBonus = 7;      AssFiringBonusPointsValue = 700;
      NormalBonus = 8;          NormalBonusPointsValue = 50;
      ToodysBonus = 9;          ToodysBonusPointsValue = 2000;
      LaserBonus = 10;          LaserBonusPointsValue = 200;
      WarpBonus =  11;          WarpBonusPointsValue = 1000;
      BounceLaserBonus = 12;    BounceLaserBonusPointsValue = 200;

      UnknownBonus = 13;


{$ENDIF}
      MaxInvulnerableTime = 200;

{$IFDEF BONUSES}
      MaxFrozenTime = 100;
      MaxFireHaltTime = 100;
      MaxKeyReverseTime = 200;
      MaxSlowedDownTime = 100;
      MaxBanzaiTime = 100;
      MaxDisableTime = 100;

{$ENDIF}

      EnergyIncrement = 5;
      SlowDownIncrement = 10;
      NormalMessageTime = 80;

      PacDelayConst = 4;


{
And now to define ALL aspects of a player's ship
}

Type PlayerStruct = Record

     PlayerStatus: byte;           { 0 = Dead, 1 = ShootAble, 2= Exploding,
                                   4 = Spinning, 8 = Frozen }
     FrozenTime: word;

     ExplodeWidth:byte;

     PlayerColour: byte;

     PlayerAngle: integer;
     SpinAngle: integer;

     SpinSpeed: byte;
     SpinCount: byte;


     PlayerX: integer;

     PlayerY: integer;

     PlayerWraps : boolean;

     PlayerMessage: String[38];
     MessageTime: byte;

     BanzaiTime: word;

     {
     Speed stuff
     }

     PlayerSpeed: byte;            { Exceed 3 and ship movement is
                                      quite jerky. }
     NormalPlayerSpeed: byte;
     SlowedDownTime: word;
     PlayerWait: byte;
     WaitCount: byte;
     MaxWaitCount: byte;

     Thrusting: boolean;


     PlayerEnergy: integer;
     MaxPlayerEnergy: integer;
     RechargeTime: byte;
     RechargeLatch: byte;
     RechargeDeduction: byte;

     KeyReverseTime: byte;

     AutoFire: boolean;

     DisableTime: byte;

     AssFiring : boolean;

     FireKeyReleased: boolean;
     FireDelay:byte;
     FireLatch:byte;


     LaserDeduction: byte;


     CurrentLaserType: byte;
     CurrentLaserPower: byte;
     CurrentLaserSpeed: byte;
     CurrentMaxLaserTravel: byte;

     LaserHurts: boolean;
     EnemyLaserHurts: boolean;
     Invulnerable: boolean;
     InvulnerableTime: word;

     PlayerScore: LongInt;

End;


Type Laser = Record
     LaserType: byte;
     FiredBy: byte;
     LaserAngle: integer;
     LaserX: integer;
     LaserY: integer;
     LaserColour: byte;
     LaserSize: byte;
     LaserSpeed: byte;

     LaserTravel: byte;
     MaxLaserTravel: byte;
     LaserPower: byte;
End;


{$IFDEF BONUSES}

{
Yeah! Some Pick - Ups for the players!
}


Type Bonus = Record
     BonusType: byte;
     BonusX: integer;                { Position on screen }
     BonusY: integer;
     BonusXIncrement: integer;
     BonusYIncrement: integer;
     End;



Type BonusArray = Array[1..MaxBonuses] of Bonus;
{$ENDIF}


Type PlayerArray = Array[1..MaxPlayers] of PlayerStruct;
Type LaserArray = Array[1..MaxLasers] of Laser;

Var

    PlayerRec: PlayerArray;
    LaserRec: LaserArray;
    TempLaser: Laser;

{$IFDEF BONUSES}
    BonusRec: BonusArray;
{$ENDIF}


    OldKbdInt: procedure;

    PlanetSeg,PlanetOfs: word;
    titleBitmapSeg,titleBitmapOfs: word;
    EmporerSeg,EmporerOfs: word;
    ScratchSeg,ScratchOfs: word;

    FontSegment, FontOffset: word;
    FontHeight: byte;

    PacPointer: Array[0..7] of Pointer;
    AlienPointer: Pointer;
    AlienShapeSize: word;

    DestroyerPalette: PaletteType;
    titleBitmapPalette: PaletteType;
    EmporerPalette: PaletteType;


    TempKey: char;

    ColourTable: array[1..MaxPlayers] of byte;
    QCos, QSin : array[0..359] of real;

    PlayersOn: byte;
    PlayersAlive: byte;                         { How many players are
                                                  left on the screen -
                                                  initially, PlayersAlive
                                                  equals PlayersOn but
                                                  as people are killed it
                                                  decrements }
    LasersFired: byte;
    LastLaserIndex: byte;
    AlienCount: byte;



{$IFDEF BONUSES}
    BonusesOnScreen: byte;
    BonusString: string[NumberOfBonuses];

{$ENDIF}

    Message: String[40];


Procedure Warp(PlayerNo:byte); Forward;


Procedure LoadGraphics;
Var Count: byte;
Begin
     TextMode(CO80);
     TextBackGround(Black);
     ClrScr;

     TextBackGround(Red);
     For Count:=0 to 79 do Write(Chr(32));

     TextColor(White);
     Gotoxy(1,1);
     Writeln('SPACE LORDS 7.1.2.3.5.2.9.«  (C) 1994,5 Scott Tunstall.  Lauder College Version');
     Writeln;
     Writeln;
     TextBackGround(Black);
     TextColor(LightGray);
     Writeln('Beginning LORDS_INIT Refresh daemon.. OK.');
     Writeln;
     For Count:=0 to 79 do write('=');
     Writeln('THIS VERSION IS PUBLIC DOMAIN AND MAY BE SWAPPED AND COPIED FREELY');
     Writeln('YOU MAY NOT DISASSEMBLE, REPLICATE OR ALTER THE PROGRAM CODE IN ANY');
     Writeln('WAY UNLESS YOU CONTACT THE AUTHOR.');
     For Count:=0 to 79 do write('=');

     Writeln('Please wait.. Loading in PCX files from hard disk..');
     Writeln;

     Bitmap(PlanetSeg, PlanetOfs);
     Bitmap(titleBitmapSeg, titleBitmapOfs);
     Bitmap(EmporerSeg, EmporerOfs);
     Bitmap(ScratchSeg, ScratchOfs);


     Write('DESTROYR.PCX .. ');

     SetSourceBitmapAddr(PlanetSeg, PlanetOfs);
     LoadPCX('DESTROYR.PCX',DestroyerPalette);

     Writeln('loaded.'); Write('BACK.PCX .. ');

     SetSourceBitmapAddr(titleBitmapSeg, titleBitmapOfs);
     LoadPCX('BACK.PCX',titleBitmapPalette);

     Writeln('loaded.'); Write('EMPORER.PCX .. ');

     SetSourceBitmapAddr(EmporerSeg, EmporerOfs);
     LoadPCX('EMPORER.PCX',EmporerPalette);

     Writeln('loaded.');


End;

{
Sorry I had to get rid of the Pascal but I was pissed off
with it's slothfulness !
}


Procedure BitMapCopy(TheSegment, TheOffset:word);
Begin
     Asm
     MOV AX,DS
     MOV ES,ScratchSeg
     MOV DI,ScratchOfs
     MOV SI,TheOffset
     MOV DS,TheSegment

     MOV CX,16000
     REPZ
     DB $66
     MOVSW
     MOV DS,AX
     End;
     SetSourceBitmapAddr(ScratchSeg,ScratchOfs);
     SetDestinationBitmapAddr($a000,0);
End;

{========================================================

This routine could possibly be slowing the system down
quite a lot as it calls the video interrupt which as most
codies know is as slow as a snail on mogadon. Hmm.

I will update this in 1998 when I've got me postgraduate
but right now you'll have to make do with this s**t OK?
}


Procedure SelectFont(FontNo: byte);
Var TempWidth: byte;
Begin
     UseFont(FontNo);
     GetCurrentFontAddr(FontSegment,FontOffset);
     GetCurrentFontSize(TempWidth,FontHeight);
End;


{====================

Display coloured text

}


Procedure TextXY(x,y:integer;txt:string);
Begin
     SetColour(254);
     OutTextXY(x+1,y+1,txt);
     SetColour(255);
     OutTextXY(x,y,txt);
End;


{===============================================================

This Bresenham circle routine isn't mine. I nicked it from the
SWAG (the rest of the stuff is 100% mine though) and to be quite
honest I couldn't be bothered converting it to assembler, so if
any gurus out there (like me!) want to then they can convert.

              *** You'd be sad tho' !! ***
}

Procedure Circle(X, Y : integer; Radius:byte);
Var
   Xs, Ys    : Integer;
   Da, Db, S : Integer;
   TX, TR    : word;
begin
     if (Radius = 0) then
          Exit;

     if (Radius = 1) then
     begin
          PutPixel(X, Y, GetColour);
          Exit;
     end;

     Xs := 0;
     Ys := Radius;

     Repeat
           TX:=Sqr(Xs+1);
           TR:=Sqr(Radius);
           Da := TX + Sqr(Ys) - TR;
           Db := TX + Sqr(Ys - 1) - TR;
           S  := Da + Db;

           Inc(Xs);
           if (S > 0) then
                Dec(Ys);

           PutPixel(X+Xs-1, Y-Ys+1, GetColour);
           PutPixel(X-Xs+1, Y-Ys+1, GetColour);
           PutPixel(X+Ys-1, Y-Xs+1, GetColour);
           PutPixel(X-Ys+1, Y-Xs+1, GetColour);
           PutPixel(X+Xs-1, Y+Ys-1, GetColour);
           PutPixel(X-Xs+1, Y+Ys-1, GetColour);
           PutPixel(X+Ys-1, Y+Xs-1, GetColour);
           PutPixel(X-Ys+1, Y+Xs-1, GetColour);
     Until (Xs >= Ys);
end;

Procedure InitPlayers;
Var count: byte;
Begin
     For count:= 1 to MaxPlayers do
         With PlayerRec[count] do
              Begin
              Warp(Count);

              PlayerMessage:='Player '+chr(48+Count)+' ready !';
              MessageTime:=NormalMessageTime;

              ExplodeWidth:=0;
              PlayerColour:=ColourTable[Count];

              PlayerWraps:=True;

              PlayerSpeed:=4;
              NormalPlayerSpeed:=PlayerSpeed;

              SlowedDownTime:=0;
              PlayerWait:=1;

              WaitCount:=15;
              MaxWaitCount:=WaitCount;

              Thrusting:=False;

              InvulnerableTime:=MaxInvulnerableTime; { So if you warp into Paccy you
                                                       can still get away }
              BanzaiTime:=0;

              PlayerEnergy:=20;
              MaxPlayerEnergy:=PlayerEnergy;
              RechargeTime:=40;
              RechargeLatch:=RechargeTime;
              RechargeDeduction:=10;

              KeyReverseTime:=0;

              AssFiring:=False;
              DisableTime:=0;

              AutoFire:=True;
              FireKeyReleased:=true;
              FireDelay:=3;
              FireLatch:=FireDelay;

              CurrentLaserType:=NormalLaser;
              CurrentLaserPower:=1;
              CurrentLaserSpeed:=8;
              CurrentMaxLaserTravel:=80;

              LaserDeduction:=1;

              LaserHurts:=False;
              EnemyLaserHurts:=True;

              PlayerScore:=0;
         End;
End;


{
Flush laser array
}

Procedure InitLasers;
Var Count: byte;
Begin
     LasersFired:=0;
     LastLaserIndex:=1;
     For Count:=1 to MaxLasers do
     With LaserRec[Count] do
         LaserType:=LaserFree;
End;

{$IFDEF BONUSES}
Procedure InitBonuses;
Var Count: byte;
Begin
     BonusesOnScreen:=0;
     BonusString:='SEFRDIANTLWB?';      { Not explaining what this is for }

     For Count:= 1 to MaxBonuses do
         With BonusRec[Count] do
         Begin
              BonusType:=0;
         End;
End;
{$ENDIF}

Procedure SetUpPlayers;
var Count: word;
    keyhit: char;
    PromptLatch: byte;
    PromptTime: byte;
    TextRefreshCount: byte;

Begin
     For Count:=0 to 359 do
         Begin
         QCos[Count]:=Cos(Count * (PI/180));
         QSin[Count]:=Sin(Count * (PI/180));
     end;

     { Assign player colours }

     For Count:=1 to MaxPlayers do
         ColourTable[Count]:=256-Count;

     Randomize;

     PlayersOn:=MaxPlayers;
     PlayersAlive:=PlayersOn;

     InitPlayers;
     InitLasers;
{$IFDEF BONUSES}
     InitBonuses;
{$ENDIF}


     {
     Now draw the title screen
     }

     PromptLatch:=50;
     PromptTime:=PromptLatch;
     TextRefreshCount:=0;

     SetPalette(254, 63,0,0);
     SetPalette(255, 63,63,0);

     Repeat
           BitMapCopy(titleBitmapSeg,titleBitmapOfs);

           SelectFont(6);

           TextXY(92,8,'SPACE LORDS 7«');

           SelectFont(1);
           TextXY(32,70, 'PROGRAMMING BY : Scott Tunstall');

           if (TextRefreshCount < 4) Then
              Begin
              TextXY(32,96,  'VECTOR GFX  BY  : Scott Tunstall');
              TextXY(32,112, 'PAC MAN     BY  : Namco (tm)');
              TextXY(32,128, 'DIRTY WOMEN AT  : MarketGait');
              end
           else
              Begin
              SelectFont(Font8x16);
              TextXY(48,96,  'SO RONNY NOW DO YOU BELIEVE');
              TextXY(48,114, 'THAT I WROTE THIS PROGRAM ?');
              SelectFont(Int43Font);
              End;


           Delay(1);
           Dec(PromptTime);
           If PromptTime=0 Then
              Begin
              PromptTime:=50;
              Inc(TextRefreshCount);
              Asm
              AND BYTE PTR TextRefreshCount, $7
              End;
           End;

           If (PromptTime > 25) Then
              Begin
              TextXY(32,162,'PRESS SPACE TO BEGIN THE GAME !');
           End;

           SelectFont(Font8x16);
           TextXY(32,180,'Program  (C) 1995 Scott Tunstall.');


           CopySourceBitmap ;

           if keypressed then
              keyhit:=readkey;

     Until keyhit = ' ';

End;

Procedure DrawPlayerStuff;
var PlayerCount: byte;
    OriginX: integer;
    OriginY: integer;
    Angle: integer;
    LineCount: byte;
    CircCount: byte;
    TempString: string[6];

Begin
     UseFont(1);
     For PlayerCount:=1 to PlayersOn do
         With PlayerRec[PlayerCount] do
              Begin

              Str(PlayerScore,TempString);
              SetColour(PlayerColour);
              OutTextXY(0,192- PlayerCount SHL 3,TempString);

              If MessageTime <>0 Then
                 Begin
                 Dec(MessageTime);

{$IFDEF FULLDISPLAY}
                 TextXY(56,192-PlayerCount SHL 3,PlayerMessage);
                 SetColour(PlayerColour);
{$ELSE}
                 OutTextXY(56,192-PlayerCount SHL 3,PlayerMessage);
{$ENDIF}

              End;

              {
              Time to draw the ship. I am quite pleased that this
              routine is fairly fast.
              }



              If (PlayerStatus And ShootAble)=ShootAble  Then
                 Begin
                 If (InvulnerableTime >10) Or
                    (InvulnerableTime MOD 2 = 1) Then
                    Circle(PlayerX,PlayerY,12);

                 If (BanzaiTime = 0) Or ((BanzaiTime MOD 8 )>3 ) Then
                    Begin
                    Angle:=PlayerAngle;

                    {
                    Nose of ship is 8 pixels away from
                    the start area at degree <Angle>
                    }

                    OriginX:=PlayerX+ Round(QCos[Angle] * 8);
                    OriginY:=PlayerY+ Round(QSin[Angle] * 8);

                    MoveTo(OriginX,OriginY);

                    Asm
                    MOV AX,Angle
                    ADD AX,135
                    CMP AX,360
                    JB @ThisAngleIsOK1
                    SUB AX,360
   @ThisAngleIsOK1:
                    MOV Angle,AX
                    End;

                    LineTo(PlayerX+ Round(QCos[Angle] * 8),
                    PlayerY+ Round(QSin[Angle] * 8));
                    ;

                    Asm
                    MOV AX,Angle
                    ADD AX,45
                    CMP AX,360
                    JB @ThisAngleIsOK2
                    SUB AX,360
   @ThisAngleIsOK2:
                    MOV Angle,AX
                    End;

                    LineTo(PlayerX+Round(QCos[Angle] * 2),
                    PlayerY+Round(QSin[Angle] * 2));

                    Asm
                    MOV AX,Angle
                    ADD AX,45
                    CMP AX,360
                    JB @ThisAngleIsOK3
                    SUB AX,360
   @ThisAngleIsOK3:
                    MOV Angle,AX
                    End;

                    LineTo(PlayerX+Round(QCos[Angle] * 8),
                    PlayerY+Round(QSin[Angle] * 8));

                    LineTo(OriginX,OriginY);




   {$IFDEF FULLDISPLAY}

                    If Thrusting And (Random(2)=1) Then
                       Begin
                       SetColour(Random(255));


                       Angle:=PlayerAngle;

                       Asm
                       MOV AX,Angle  { I've tried the other way ! }
                       ADD AX,150
                       CMP AX,360
                       JB @ThisAngleIsOK4
                       SUB AX,360
   @ThisAngleIsOK4:
                       MOV Angle,AX
                       End;


                       MoveTo(PlayerX+Round(QCos[Angle]*5),
                       PlayerY+Round(QSin[Angle]*5));

                       Asm
                       MOV AX,Angle
                       ADD AX,30
                       CMP AX,360
                       JB @ThisAngleIsOK5
                       SUB AX,360
   @ThisAngleIsOK5:
                       MOV Angle,AX
                       End;


                       LineTo(PlayerX+Round(QCos[Angle]*8),
                       PlayerY+Round(QSin[Angle]*8));

                       {Inc(Angle,30);

                       If Angle > 360 Then
                          Dec(Angle,360);}

                       Asm
                       MOV AX,Angle
                       ADD AX,30
                       CMP AX,360
                       JB @ThisAngleIsOK6
                       SUB AX,360
   @ThisAngleIsOK6:
                       MOV Angle,AX

                       End;

                       LineTo(PlayerX+Round(QCos[Angle]*5),PlayerY+Round(QSin[Angle]*5));

                    End;

   {$ENDIF}
                    SetColour(PlayerColour);

                    OriginX:=PlayerX-12;
                    OriginY:=PlayerY+12;

                    Line(OriginX,OriginY,OriginX + PlayerEnergy,OriginY);
                    End;
                 End
              Else
                  If (PlayerStatus = Exploding) Or (PlayerStatus = Warping) Then
                     Begin
                     For circcount:=0 to 40 do
                         PutPixel(PlayerX+Round(QCos[circcount SHL 3]*ExplodeWidth),
                         PlayerY+Round(QSin[circcount SHL 3]*ExplodeWidth),PlayerColour);

                  End;
         End;
End;

{
Put the lasers on the screen.
}


Procedure DrawLasers;
var LaserCount: byte;
Begin
     If LasersFired <>0 Then
     For LaserCount:=1 to MaxLasers do
         If LaserRec[LaserCount].LaserType <> LaserFree Then
         With LaserRec[LaserCount] do
         Begin
         SetColour(LaserColour);
         MoveTo(LaserX,LaserY);
         LineRel(Round(QCos[LaserAngle]*LaserSize),
         Round(QSin[LaserAngle]*LaserSize));
         End;

End;


{$IFDEF BONUSES}

Procedure DrawBonuses;
var BonusCount: byte;

Begin
     SetColour(255);
     If BonusesOnScreen <>0 Then
        For BonusCount:=1 to MaxBonuses do
            With BonusRec[BonusCount] do
            If BonusType <>0 Then
               Begin
               Circle(BonusX+4,BonusY+4,12);

{$IFDEF FULLDISPLAY}
               UseFont(Font8x14);
               TextXY(BonusX,BonusY,BonusString[BonusType]);
{$ELSE}
               OutTextXY(BonusX,BonusY,BonusString[BonusType]);
{$ENDIF}
               End;

End;

{$ENDIF}

Procedure CheckBounds(Var XPos,YPos:integer;
                          ObjectWraps: boolean;
                          Var DidWrap:boolean); Assembler;

Asm
   CMP ObjectWraps,1

   JNE @ObjectDoesNotWrap

   MOV SI,RightBoundary
   MOV DI,LeftBoundary
   MOV CX,BottomBoundary
   MOV DX,TopBoundary
   JMP @LetsDoThisshit


@ObjectDoesNotWrap:
   MOV SI,LeftBoundary
   MOV DI,RightBoundary
   MOV CX,TopBoundary
   MOV DX,BottomBoundary

@LetsDoThisshit:
     XOR AL,AL

     LES BX,XPos
     MOV BX,[ES:BX]

     CMP BX,LeftBoundary
     JG @XPosMoreThanLeft

     LES DI,XPos
     MOV [ES:DI],SI

     INC AL
     JMP @NowTestVertical


@XPosMoreThanLeft:
     CMP BX,RightBoundary
     JL @NowTestVertical

     LES SI,Xpos
     MOV [ES:SI],DI

     INC AL




@NowTestVertical:
     LES BX,Ypos
     MOV BX,[ES:BX]

     CMP BX,TopBoundary
     JG @YPosMoreThanTop

     LES DI,Ypos
     MOV [ES:DI],CX
     MOV AL,1
     JMP @Finito

@YPosMoreThanTop:
     CMP BX,BottomBoundary
     JL @Finito

     LES DI,YPos
     MOV [ES:DI],DX

     MOV AL,1

@Finito:
     LES DI,DidWrap
     MOV [ES:DI],AL
End;


Procedure AddLaser(LaserToAdd: Laser);
Var VacantLaserNumber: byte;
    LaserCount: byte;

Begin
     If LaserRec[LastLaserIndex].LaserType = LaserFree Then
        VacantLaserNumber:=LastLaserIndex
     Else
         Begin
         VacantLaserNumber:=$FF;
         For LaserCount:=1 to MaxLasers do
             Begin
             If LaserRec[LaserCount].LaserType = LaserFree Then
                Begin
                VacantLaserNumber:=LaserCount;
                LaserCount:=MaxLasers;
             End;
         End;
     End;

     If VacantLaserNumber <> $FF Then
        Begin
        Inc(LasersFired);
        LaserRec[VacantLaserNumber]:=LaserToAdd;
     End;
End;


Procedure DoFireRoutine(ShipNo:byte);
Var TAngle: word;
Begin
     If LasersFired <> MaxLasers Then
        With PlayerRec[ShipNo] do
        Begin
             TempLaser.LaserType:=CurrentLaserType;
             TempLaser.FiredBy:=ShipNo;
             If AssFiring Then
                Begin
                TempLaser.LaserX:=PlayerX-Round(QCos[PlayerAngle] * 6);
                TempLaser.LaserY:=PlayerY-Round(QSin[PlayerAngle] * 6);

                TAngle:=PlayerAngle+180;

                Asm
                MOV AX,TAngle
                CMP AX,360
                JB @NoReset
                SUB AX,360
@NoReset:
                MOV Tangle,AX
                End;

                TempLaser.LaserAngle:= TAngle;
                End
             Else
                 Begin
                 Templaser.LaserX:=PlayerX+Round(QCos[PlayerAngle] * 6);
                 Templaser.LaserY:=PlayerY+Round(QSin[PlayerAngle] * 6);
                 Templaser.LaserAngle:= PlayerAngle;
             End;

             { Make sure you know who fired the laser }

             TempLaser.LaserColour:=PlayerColour;

             TempLaser.LaserPower:=CurrentLaserPower;
             TempLaser.LaserSize:= PlayerLaserSize;
             TempLaser.LaserSpeed:=CurrentLaserSpeed;
             TempLaser.MaxLaserTravel:=CurrentMaxLaserTravel;

             AddLaser(TempLaser);

             Dec(PlayerScore,DeductionForShooting);
             If PlayerScore < 0 Then PlayerScore:=0;
        End;
End;


Procedure AlterShip(ShipNo:byte;UpKey,DownKey,LeftKey,RightKey,FireKey:boolean);
Var DiscardedVar: boolean;
    TempKey: boolean;

Begin
       With PlayerRec[ShipNo] do
            Begin

            If UpKey Then
               Begin
               Thrusting:=True;
               If WaitCount > 1 Then
                  Dec(WaitCount);
               End
            Else
                Begin
                Thrusting:=False;
                If WaitCount < MaxWaitCount Then
                   Inc(WaitCount)
                Else


                    Begin
                    Dec(RechargeTime);
                    If (RechargeTime = 0) And
                    (PlayerEnergy < MaxPlayerEnergy) And
                    (PlayerScore >= RechargeDeduction) Then

                       Begin
                       RechargeTime:=RechargeLatch;
                       Inc(PlayerEnergy);

                       Dec(PlayerScore, RechargeDeduction);
                       End;
                    End;
                End;


            If KeyReverseTime <>0 Then
               Begin
               TempKey:=LeftKey;
               LeftKey:=RightKey;
               RightKey:=TempKey;
            End;


            If LeftKey Then
            Begin
                 Dec(PlayerAngle,ShipTurnAngle);
                 If PlayerAngle <1 Then
                    Inc(PlayerAngle,360);
            End;


            If RightKey Then
            Begin
                 Inc(PlayerAngle,ShipTurnAngle);
                 If PlayerAngle > 359 Then
                    Dec(PlayerAngle,360);
            End;

            {
            Has the player held down the fire button.
            }

            If FireKey Then
               Begin
               If (DisableTime=0) Then
                  Begin
                  If AutoFire Then
                  Begin

                     If FireDelay = 0 Then
                        Begin
                        FireDelay:=FireLatch;
                        DoFireRoutine(ShipNo);
                        End
                     Else

                         Dec(FireDelay);
                  End
                  Else
                      If FireKeyReleased Then
                      Begin
                         FireKeyReleased:=False;
                         DoFireRoutine(ShipNo);
                      End;
               End;
            End
            Else

                FireKeyReleased:=True;



            If WaitCount <> MaxWaitCount Then
               Begin
               Inc(PlayerWait);
               If PlayerWait >= WaitCount Then
                  Begin
                  PlayerWait:=0;
                  Inc(PlayerX, Round(Qcos[PlayerAngle]*PlayerSpeed));
                  Inc(PlayerY, Round(QSin[PlayerAngle]*PlayerSpeed));


                  CheckBounds(PlayerX,PlayerY,PlayerWraps,DiscardedVar);
                  End;
            End;
       End;

End;

Procedure UpDatePlayersSpin(PlayerNo:byte);
Var DiscardedVar: boolean;
Begin
     With PlayerRec[PlayerNo] do
     Begin


     Inc(PlayerAngle,ShipTurnAngle SHL 3);
     If PlayerAngle > 359 Then Dec(PlayerAngle,360);


     Inc(PlayerX, Round(Qcos[SpinAngle]*SpinSpeed));
     Inc(PlayerY, Round(QSin[SpinAngle]*SpinSpeed));


     CheckBounds(PlayerX,PlayerY,PlayerWraps,DiscardedVar);
     End;
End;

{$IFNDEF BONUSES}
Procedure UpDateBonusTimer(PlayerNo:byte);
Begin
     { Shields }
     With PlayerRec[PlayerNo] do
     If InvulnerableTime <>0  Then
        Begin
        Dec(InvulnerableTime);
        If InvulnerableTime = 0 Then
           Begin
           PlayerMessage:='SHIELDS DOWN!';
           MessageTime:=NormalMessageTIme;
           EnemyLaserHurts:=True;
        End;
     End;
End;

{$ELSE}

Procedure UpdateBonusTimers(PlayerNo:byte);
Begin
     With PlayerRec[PlayerNo] do
     Begin

     { Firing }

     If DisableTime <>0 Then
        Begin
        Dec(DisableTime);
        If DisableTime = 0 Then
           Begin
           PlayerMessage:='I CAN SHOOT AGAIN!';
           MessageTime:=NormalMessageTime;
        End;
     End;

     { Slothfullness }

     If SlowedDownTime <>0 Then
     Begin
          Dec(SlowedDownTime);
          If SlowedDownTime = 0 Then
             PlayerSpeed:=NormalPlayerSpeed;
     End;

     { Key reversing, i.e. press key for left and you go right }

     If KeyReverseTime <>0 Then
        Dec(KeyReverseTime);

     { Shields }

     If InvulnerableTime <>0  Then
        Begin
        Dec(InvulnerableTime);
        If InvulnerableTime = 0 Then
           Begin
           PlayerMessage:='SHIELDS DOWN!';
           MessageTime:=NormalMessageTIme;
           EnemyLaserHurts:=True;
        End;
     End;

     { Toody's special bonus }

     If BanzaiTime <> 0 Then
        Begin
        Dec(BanzaiTime);
        If BanzaiTime = 0 Then
           Begin
           PlayerMessage:='TOODY''S POWER GONE!';
           MessageTime:=NormalMessageTime;
        End;
     End;

     End;
End;

{$ENDIF}

{
You have to check the player's status byte to determine whether
or not he's spinning, frozen, etc.
}


Procedure CheckPlayerStatusByte(PlayerNo:byte);
Begin
     With PlayerRec[PlayerNo] Do
     Begin
     {
     Now service the PlayerStatus bits
     }

     If (PlayerStatus And Frozen)=Frozen Then
        Begin
        If FrozenTime > 0 Then
           Dec(FrozenTime)
        Else
            PlayerStatus:=PlayerStatus And (255-Frozen);
     End;


     If (PlayerStatus And Spinning)=Spinning Then
        Begin

        Dec(SpinCount);
        If SpinCount <>0 Then
           UpdatePlayersSpin(PlayerNo)
        Else
            Begin

            PlayerStatus:= ShootAble;
            WaitCount:=MaxWaitCount;
            End;
        End
     Else
         If PlayerStatus = Exploding Then
            Begin

            Inc(ExplodeWidth,5);

            If ExplodeWidth >= MaxExplodeWidth Then
               Begin
               PlayerStatus:= Dead;
               Dec(PlayersAlive);
               End;
            End
         Else
             If PlayerStatus = Warping Then
                Begin
                Dec(ExplodeWidth,5);
                If ExplodeWidth <=5 Then
                   PlayerStatus:=ShootAble;
             End;

     End;
End;

{
Update the player's ships.

PlayerStatus is a combination of BIT FLAGS which indicate to the
program the current player status. Doh!

If bit 0 of PlayerStatus is set then the player is still ShootAble. (i.e. Alive)
If bit 1 of PlayerStatus is set then the player is Warping.
If bit 2 of PlayerStatus is set then the player is Exploding.
If bit 3 of PlayerStatus is set then the Player is Spinning.
If bit 4 of PlayerStatus is set the player is Frozen.

Bits 5 - 7 are undefined and should stay that way for now.
}

Procedure MoveShips;
Var PlayerCount: byte;
Begin
     For PlayerCount:=1 to PlayersOn do
         With PlayerRec[PlayerCount] do
         If (PlayerStatus = ShootAble) Then
            Begin
            Case PlayerCount Of

            1: AlterShip(1,keydown[2],keydown[15],keydown[30],keydown[45],keydown[42]);
            2: AlterShip(2,keydown[24],keydown[38],keydown[39],keydown[40],keydown[52]);
            3: AlterShip(3,keydown[71],keydown[76],keydown[73],keydown[74],keydown[81]);

            End;

{$IFNDEF BONUSES}
            UpdateBonusTimer(PlayerCount);
{$ELSE}
            UpdateBonusTimers(PlayerCount);
{$ENDIF}
            End
         Else
             CheckPlayerStatusByte(PlayerCount);
End;

{
O.K. You've got to update the lasers (and special weapons later
on, perhaps)

}

Procedure MoveLasers;
var playercount: byte;
    LaserCount: byte;
    ItWrapped: boolean;

Begin
     If LasersFired <>0 Then
        Begin
        For LaserCount:=1 to MaxLasers do
            With LaserRec[LaserCount] do
            Begin

            If LaserType<>LaserFree Then
               Begin

               Inc(LaserTravel);

               If LaserTravel < MaxLaserTravel Then
                  Begin

                  Inc(LaserX, Round(Qcos[LaserAngle]*LaserSpeed));
                  Inc(LaserY, Round(QSin[LaserAngle]*LaserSpeed));


                  CheckBounds(LaserX,LaserY, LaserType = LaserWraps,ItWrapped);


                  If ItWrapped Then
                     Begin
                     Case LaserType of
                     NormalLaser:   Begin
                                    LaserType:=LaserFree;
                                    LastLaserIndex:=LaserCount;
                                    Dec(LasersFired);
                                    End;

                     LaserRebound:  LaserAngle:=Random(359);
                     End;
                     End;
                  End
               Else

                   Begin
                   LaserType:=LaserFree;
                   Dec(LasersFired);



                   LastLaserIndex:=LaserCount;

                   End;
               End;
            End;
        End;
End;

{$IFDEF BONUSES}


{
The Bonuses are not player controlled (of course) so therefore
the MoveBonuses routine should initiate some bonuses as well
as move them.

How will the CPU know when to initiate bonuses? Well as you
know, it can't so It'll have to be a purely random thingie.
}

Procedure MoveBonuses;
Var BonusCount: byte;
    SearchCount: byte;
    BonusDidWrap: boolean;

Begin
     If BonusesOnScreen <>0 Then
        For BonusCount:=1 to MaxBonuses do
        With BonusRec[BonusCount] do
             If BonusType <>0 Then
             Begin
             Inc(BonusX,BonusXIncrement);
             Inc(BonusY,BonusYIncrement);
             CheckBounds(BonusX,BonusY,true,BonusDidWrap);

             End;

     {
     Of course, some bonuses just have to be initialised as
     well !
     }

     If (BonusesOnScreen <= MaxBonuses) And (Random(80)=40) Then
        Begin
        SearchCount:=1;
        Repeat
              With BonusRec[SearchCount] do
              If BonusType = 0 Then
                   Begin
                   Inc(BonusesOnScreen);

                   BonusType:=1+(Random(NumberOfBonuses));

                   BonusX:=Random(319);

                   Case Random(3) of
                   0..1: BonusY:=-1;
                   2..3: BonusY:=200;
                   End;

                   Case Random(3) of
                   0..1: BonusXIncrement:=-1;
                   2..3: BonusXIncrement:=1;
                   End;

                   Case Random(3) of
                   0..1: BonusYIncrement:=-1;
                   2..3: BonusYIncrement:=1;
                   End;

                   SearchCount:=MaxBonuses;
              End;

        Inc(SearchCount);

        Until SearchCount > MaxBonuses;
     End;

End;

{$ENDIF}










Function Collision(X1,Y1,X2,Y2:integer;DistX,DistY:word): boolean; {Assembler;}
Begin
     Collision:=(Abs(X2-X1) < DistX) And (Abs(Y2-Y1) < DistY)
End;

{===================================================================

Guess what this routine does ?

}


Procedure UpdatePlayerScore(PlayerNo: byte; HowManyPoints: integer);
Begin
     With PlayerRec[PlayerNo] do
     Begin
     Inc(PlayerScore,HowManyPoints);
     If PlayerScore > $7FFFFFFF Then
        PlayerScore := $7FFFFFFF;
     End;
End;

{=====================================================

I'm gonna have to optimize this one day.. For now tho'
I'll leave it as it is so that the B.Sc chaps can suss
what's happening..
}

Procedure DoPlayerToLaser;
Var PlayerCount: byte;
    LaserCount: byte;
    Object1X: integer;
    Object2X: integer;
    Object1Y: integer;
    Object2Y: integer;

    TempLaserPower: byte;
    PersonWhoShot: byte;

Begin
     If LasersFired <>0 Then
        For PlayerCount:=1 to PlayersOn do
            With PlayerRec[PlayerCount] do
            If ((PlayerStatus AND Shootable)<>0) Then
               Begin
               Object2X:=PlayerX;
               Object2Y:=PlayerY;


               For LaserCount:=1 to MaxLasers do
               If (LaserRec[LaserCount].LaserType <> LaserFree) Then
                  Begin
                  With LaserRec[LaserCount] do
                       Begin
                       Object1X:=LaserX;
                       Object1Y:=LaserY;
                  End;

                  If Collision( Object1X,Object1Y,
                                Object2X,Object2Y,8,8) Then
                     Begin
                     PersonWhoShot:=LaserRec[LaserCount].FiredBy;

                     With PlayerRec[PersonWhoShot] do
                          Begin
                          Inc(PlayerScore,PointsForShooting);
                          If Playerscore > $7FFFFF Then
                             PlayerScore:= $7fffff;
                     End;

                     {
                     Player has been hit so make the missile
                     whack into the ships side and disappear
                     }


                     With PlayerRec[PlayerCount] do
                          If (InvulnerableTime <>0) Then
                             LaserRec[LaserCount].LaserAngle:=Random(359)
                          Else
                              Begin
                              Dec(LasersFired);
                              LaserRec[LaserCount].LaserType:=LaserFree;
                              TempLaserPower:=LaserRec[LaserCount].LaserPower;

                              If LaserRec[LaserCount].Firedby <> PlayerCount Then
                                 Begin
                                 Dec(PlayerEnergy,TempLaserPower);
                                 If PlayerEnergy <= 0 Then
                                    Begin
                                    PlayerStatus:=Exploding;
                                    ExplodeWidth:=0;
                                 End;
                              End;
                          End;
                     End;
                 End;
     End;
End;

{==========================================================

Guess what this does ?

}

Procedure SpinPlayer( PlayerBumped, PlayerWhoBumped: byte);
Var SpeedVar: byte;
    Ratio: byte;

begin
     With PlayerRec[PlayerBumped] do
        Begin
        PlayerStatus:=PlayerStatus OR Spinning;

        SpeedVar := PlayerRec[PlayerWhoBumped].WaitCount;
        Ratio    := PlayerRec[PlayerWhoBumped].MaxWaitCount - SpeedVar;

        WaitCount:=SpeedVar;

        SpinAngle:=PlayerRec[PlayerWhoBumped].PlayerAngle;
        SpinSpeed:= (Ratio SHR 2)+4;
        SpinCount:= (Ratio SHL 1)+4;

        UpDatePlayersSpin(PlayerBumped);
     End
End;

{

Check if two players did bump
}


{$IFDEF BUMPING }


Procedure CheckBump(PlayerCount1, PlayerCount2 : byte);
var
    PlayerSpeed1: byte;
    PlayerSpeed2: byte;

Begin

     If (PlayerRec[PlayerCount1].PlayerStatus = Exploding)
     Or (PlayerRec[PlayerCount2].PlayerStatus = Exploding) Then Exit;


     If (PlayerRec[PlayerCount1].BanzaiTime <>0) And
     (PlayerRec[PlayerCount2].InvulnerableTime = 0) Then
        With PlayerRec[PlayerCount2] do
           Begin
           PlayerStatus:=Exploding;
           ExplodeWidth:=0;
           Message:='AARGH etc. etc. !!';
           MessageTime:=NormalMessageTime;
           End
        Else
            Begin
            PlayerSpeed1:= PlayerRec[PlayerCount1].WaitCount;
            PlayerSpeed2:= PlayerRec[PlayerCount2].WaitCount;

            If (PlayerSpeed2 <= PlayerSpeed1) Then
               SpinPlayer(PlayerCount1,PlayerCount2)
            Else
                UpdatePlayerScore(PlayerCount1,PointsForBumping);
            End;
End;



{$ENDIF}

{$IFDEF BUMPING}

Procedure DoPlayerToPlayer;
Var PlayerCount1: byte;
    PlayerCount2: byte;
    Object1X: integer;
    Object2X: integer;
    Object1Y: integer;
    Object2Y: integer;


Begin
     For PlayerCount1:=1 to PlayersOn do
         If (PlayerRec[PlayerCount1].PlayerStatus AND Shootable =
         ShootAble) Then
            Begin
            With PlayerRec[PlayerCount1] do
                 Begin
                 Object1X:=PlayerX;
                 Object1Y:=PlayerY;
            End;



            {
            Check if the two ships have bumped into each other.
            Not too keen on what I wrote for this part but it works.
            As I said when me B.Sc is finished this part will be
            upgraded.
            }


            For PlayerCount2:=1 to PlayersOn do
                If (PlayerRec[PlayerCount2].PlayerStatus And
                Shootable = Shootable) And
                   (PlayerCount1 <> PlayerCount2) Then
                   Begin
                   {
                   Check if a collision has occurred.
                   }

                   With PlayerRec[PlayerCount2] do
                        Begin
                        Object2X:=PlayerX;
                        Object2Y:=PlayerY;
                   End;

                   {
                   Bumping?
                   }

                   If Collision(Object1X,Object1Y,Object2X,Object2Y,12,12)
                   Then
                      Begin
                      CheckBump(PlayerCount1, PlayerCount2);
                      CheckBump(PlayerCount2, PlayerCount1);
                   End;
                End;
         End;
End;

{$ENDIF}

Procedure Warp(PlayerNo:byte);
Begin
     With PlayerRec[PlayerNo] do
     Begin
          PlayerStatus:=Warping;
          ExplodeWidth:=MaxExplodeWidth;
          PlayerAngle:= Random(359);
          PlayerX:=Random(319);
          PlayerY:=Random(199);
     End;
End;

{$IFDEF BONUSES}

Procedure DoPlayerToBonuses;
Var PlayerCount: byte;
    BonusCount: byte;
    OtherCount: byte;
    Object1X: integer;
    Object2X: integer;
    Object1Y: integer;
    Object2Y: integer;




Begin
     For PlayerCount:=1 to PlayersOn do
         If (PlayerRec[PlayerCount].PlayerStatus And Shootable) = Shootable
            Then Begin

            With PlayerRec[PlayerCount] do
            Begin
                 Object1X:=PlayerX;
                 Object1Y:=PlayerY;
            End;

            For BonusCount:=1 to MaxBonuses do

                If (BonusRec[BonusCount].BonusType <>0 ) Then
                   Begin

                   With BonusRec[BonusCount] do
                        Begin
                        Object2X:=BonusX;
                        Object2Y:=BonusY;
                   End;


                   If collision( Object1X,Object1Y,
                                 Object2X,Object2Y,12,12) Then

                   With BonusRec[BonusCount] do
                   Begin

                        If BonusType = UnknownBonus Then
                           BonusType:= Random(NumberOfBonuses-2)+1;





                        Case BonusType Of
                        SlowDownBonus: begin
                                       With PlayerRec[PlayerCount] do
                                            Begin
                                            Inc(PlayerScore,SlowDownBonusPointsValue);
{$IFDEF MESSAGES}
                                            PlayerMessage:='PICKED UP A SLOWDOWN BONUS !';
                                            MessageTime:=NormalMessageTime;
{$ENDIF}
                                        End;

                                        For OtherCount:=1 to PlayersOn do
                                        If OtherCount <> PlayerCount Then
                                            With PlayerRec[OtherCount] do
                                                 Begin
                                                 If PlayerSpeed <>SlowestPlayerSpeed Then
                                                    Dec(PlayerSpeed);

                                                 Inc(SlowedDownTime,MaxSlowedDownTime);
                                            End;
                                        End;


                   EnergyBonus: With PlayerRec[PlayerCount] do
                                Begin
                                Inc(PlayerScore,EnergyBonusPointsValue);
                                Inc(PlayerEnergy,EnergyIncrement);

                                If PlayerEnergy >MaxPlayerEnergy Then
                                   Begin
                                   PlayerEnergy:=MaxPlayerEnergy;
{$IFDEF MESSAGES}
                                   PlayerMessage:='I DIDN''T NEED THE ENERGY !';
                                   MessageTime:=NormalMessageTime;
{$ENDIF}
{$IFDEF MESSAGES}
                                   End
                                Else
                                    If PlayerEnergy <= EnergyIncrement Then
                                       Begin
                                       PlayerMessage:='ENERGY JUST IN TIME, TOO !';
                                       MessageTime:=NormalMessageTime;
                                       End
                                    Else
                                        Begin
                                        PlayerMessage:='PICKED UP AN ENERGY BONUS !';
                                        messageTime:=NormalMessageTime;
                                    End;

{$ENDIF}
                                End;


                   FreezeBonus: Begin
                                With PlayerRec[PlayerCount] do
                                     Begin
                                     Inc(PlayerScore,FreezeBonusPointsValue);
{$IFDEF MESSAGES}
                                     PlayerMessage:='PICKED UP A FREEZE BONUS !';
                                     MessageTime:=NormalMessageTime;
{$ENDIF}
                                End;

                                For OtherCount:=1 to PlayersOn do
                                    If OtherCount <> PlayerCount Then
                                    With PlayerRec[OtherCount] do
                                    Begin
                                    PlayerStatus:=PlayerStatus OR Frozen;
                                    Inc(FrozenTime,MaxFrozenTime);
                                    WaitCount:=MaxWaitCount;
                                End;
                                End;


                   ReverseBonus: Begin
                                 With PlayerRec[PlayerCount] do
                                 Begin
                                      Inc(PlayerScore,ReverseBonusPointsValue);
{$IFDEF MESSAGES}
                                      PlayerMessage:='PICKED UP A REVERSE BONUS !';
                                      MessageTime:=NormalMessageTime;
{$ENDIF}
                                 End;

                                 For OtherCount:=1 to PlayersOn do
                                    If OtherCount <> PlayerCount Then
                                    With PlayerRec[OtherCount] do
                                         Begin
                                         Inc(KeyReverseTime,MaxKeyReverseTime);
                                         PlayerMessage:='OH NO! KEYS ARE REVERSED !';
                                         MessageTime:=NormalMessageTime;
                                    End;
                                 End;


                   DisableBonus: Begin
                                 With PlayerRec[PlayerCount] do
                                      Begin
                                      Inc(PlayerScore,DisableBonusPointsValue);
{$IFDEF MESSAGES}
                                      PlayerMessage:='PICKED UP A DISABLE BONUS !';
                                      MessageTime:=NormalMessageTime;
{$ENDIF}
                                 End;

                                 For OtherCount:=1 to PlayersOn do
                                 If OtherCount <> PlayerCount Then
                                    Inc(PlayerRec[OtherCount].DisableTime,MaxDisableTime);
                                 End;


                   InvulnerabilityBonus: Begin
                                         With PlayerRec[PlayerCount] do
                                              Begin
                                              EnemyLaserHurts:=False;
                                              InvulnerableTime:=MaxInvulnerableTime;

                                              Inc(PlayerScore,InvulnerabilityBonusPointsValue);
{$IFDEF MESSAGES}
                                              PlayerMessage:='YEAH! I AM INVULNERABLE !';
                                              MessageTime:=NormalMessageTime;
{$ENDIF}
                                         End;
                                         End;


                   AssFiringBonus:  Begin
                                     With PlayerRec[PlayerCount] do
                                          Begin
                                          Inc(PlayerScore,AssFiringBonusPointsValue);
{$IFDEF MESSAGES}
                                          PlayerMessage:='PICKED UP AN Ass FIRING BONUS !';
                                          MessageTime:=NormalMessageTime;
{$ENDIF}
                                     End;

                                     For OtherCount:=1 to PlayersOn do
                                         If OtherCount <> PlayerCount Then
                                            With PlayerRec[OtherCount] do
                                            Begin
                                            AssFiring:=True;
                                         End;
                                     End;


                   NormalBonus:    Begin
                                   With PlayerRec[Playercount] do
                                   Begin
                                        DisableTime:=1;
                                        KeyReverseTime:=1;
                                        SlowedDownTime:=1;
                                        PlayerSpeed:=NormalPlayerSpeed;
                                        CurrentLaserType:=NormalLaser;
                                        AssFiring:=False;

                                        Inc(PlayerScore,NormalBonusPointsValue);
{$IFDEF MESSAGES}
                                        PlayerMessage:='PICKED UP A NORMALITY BONUS.';
                                        MessageTime:=NormalMessageTime;
{$ENDIF}
                                   End;
                                   End;


                   ToodysBonus:    Begin
                                   With PlayerRec[PlayerCount] do
                                        begin
                                        Inc(BanzaiTime,MaxBanzaiTime);

                                        Inc(PlayerScore,ToodysBonusPointsValue);
{$IFDEF MESSAGES}
                                        PlayerMessage:='BANZAI THE OTHER PLAYERS !';
                                        MessageTime:=MaxBanzaiTime;
{$ENDIF}
                                        End;

                                   For OtherCount:=1 to PlayersOn do
                                   If OtherCount <> PlayerCount Then
                                       With PlayerRec[OtherCount] do
                                       Begin
{$IFDEF MESSAGES}
                                       PlayerMessage:='DO NOT BUMP PLAYER '+chr(48 + PlayerCount)+' !';
                                       MessageTime:=MaxBanzaiTime;
{$ENDIF}
                                       End
                                   End;


                   LaserBonus:     Begin
                                   With PlayerRec[PlayerCount] do
                                   If CurrentLaserPower < MaxLaserPower Then
                                      Begin
                                      Inc(CurrentlaserPower);

                                      Inc(PlayerScore,LaserBonusPointsValue);
{$IFDEF MESSAGES}
                                      PlayerMessage:='LASERS ENHANCED !';
                                      MessageTime:=NormalMessageTime;
{$ENDIF}
                                      End
                                    Else
                                        Begin
                                        PlayerMessage:='WRAP AROUND LASERS !';
                                        CurrentLaserType:=LaserWraps;
                                        MessageTime:=NormalMessageTime;
                                    End;
                                   End;

                   WarpBonus:      With PlayerRec[PlayerCount] do
                                   Begin
                                        Warp(PlayerCount);

                                        Inc(PlayerScore,WarpBonusPointsValue);

{$IFDEF MESSAGES}
                                        PlayerMessage:='WARPING !';
                                        MessageTime:=NormalMessageTime;
{$ENDIF}
                                   End;


            BounceLaserBonus:      With PlayerRec[PlayerCount] do
                                   Begin
                                        CurrentLaserType:= LaserRebound;
{$IFDEF MESSAGES}
                                        PlayerMessage:='OOH! BOUNCY LASERS!';
                                        MessageTime:=NormalMessageTime;
{$ENDIF}
                                   End;
                   End;


                   { Indicate bonus has been taken
                   }


                   BonusRec[BonusCount].BonusType:=0;
                   Dec(BonusesOnScreen);


                End;
         End;
     End;
End;
{$ENDIF}

Procedure DoCollisions;
Begin

     DoPlayerToLaser;

{$IFDEF BUMPING}
     DoPlayerToPlayer;
{$ENDIF}

{$IFDEF BONUSES}
     DoPlayerToBonuses;
{$ENDIF}
End;

Begin
     LoadGraphics;
     If (PlanetSeg <>0) And (titleBitmapSeg<>0)
     And (EmporerSeg<>0) And (ScratchSeg<>0) Then
        Begin


        Repeat

              InitVGAMode;
              SetAllPalette(titleBitmapPalette);

              SetUpPlayers;

              SetAllPalette(DestroyerPalette);
              SetPalette(253,63,63,63);
              SetPalette(254,63,0,0);
              SetPalette(255,63,63,0);

              HookKeyboardInt;


              SelectFont(1);

              Repeat
                    BitmapCopy(PlanetSeg,PlanetOfs);
                    DrawPlayerStuff;
                    DrawLasers;

{$IFDEF BONUSES}
                    DrawBonuses;
{$ENDIF}

                    Vwait(1);
                    CopySourceBitmap ;


                    MoveShips;
                    MoveLasers;

{$IFDEF BONUSES}
                    MoveBonuses;
{$ENDIF}

                    DoCollisions;

                    delay(1);

              Until (keydown[1]) or (PlayersAlive <= 1);


              { back to normal crap DOS key reading }

              UnHookKeyboardInt;

              If PlayersAlive <= 1 Then
                 Begin

                 Memw[$0040:$1a]:=Memw[$0040:$1c];

                 SetAllPalette(EmporerPalette);

                 BitMapCopy(EmporerSeg,EmporerOfs);
                 SelectFont(6);

                 SetColour(255);

                 {
                 El snido messago (Adjust to suit your peer group)
                 }

                 Case Random(20) of
                 0: Message:='Even Paul Langa has scored more !';
                 1: Message:='Stop drinking and you''ll shoot better !';
                 2: Message:='Next time, press the fire button !';
                 3: Message:='Are you sure that you weren''t cheating ?';
                 4: Message:='Come in and meet my daughter, son!';
                 5: Message:='Next time SHOOT the other players !!';
                 6: Message:='Would you like to see my puppies ?';
                 7: Message:='Ian Makin has eyebrows just like these !';
                 9: Message:='<SPEECHLESS>';
                10: Message:='What a waste of good hard disk space !';
                11: Message:='Does your maw know you''re here ?';
                12: Message:='I bet you''re one of Tunstall''s mates !';
                13: Message:='Your performance was pure f***ing crap !';
                14: Message:='Come up and see my etchings, young man !';
                15: Message:='You sure did kick some ass out there !';
                16: Message:='I bet you drink Carling Black Label !';
                17: Message:='Err... I love you.';
                18: Message:='I never liked Dune that much anyway !';
                19: Message:='Your mum looks like Yoda from Star Wars !';
                20: Message:='I''m buying the rounds tonight son !';
                End;

                 OutTextXY( ((40 - Length(Message))DIV 2) *8,160,Message);

                 CopySourceBitmap ;

                 Delay(2000);

                 Memw[$0040:$1a]:=Memw[$0040:$1c];
                 TempKey:=ReadKey;
              End;

        Until Keydown[1];  { Until key is definitely ESC }

        {
        Right, deallocate the memory required for the
        game & virtual screens.
        }

        FreeBitmap(PlanetSeg,PlanetOfs);

        FreeBitmap(titleBitmapSeg,TitleBitmapOfs);

        FreeBitmap(EmporerSeg, EmporerOfs);

        FreeBitmap(ScratchSeg,ScratchOfs);
        End
   Else
       Begin
       Writeln;
       Writeln('Memory allocation error! 400K bytes free on heap needed.');
   End;
End.

{ I love you all !!! ;) }

[Back to MISC SWAG index]  [Back to Main SWAG index]  [Original]