www.pudn.com > SiegeOfAvalon.rar > Scroll.pas
unit Scroll;
{******************************************************************************}
{ }
{ Siege Of Avalon : Open Source Edition }
{ ------------------------------------- }
{ }
{ Portions created by Digital Tome L.P. Texas USA are }
{ Copyright ©1999-2000 Digital Tome L.P. Texas USA }
{ All Rights Reserved. }
{ }
{ Portions created by Team SOAOS are }
{ Copyright (C) 2003 - Team SOAOS. }
{ }
{ }
{ Contributor(s) }
{ -------------- }
{ Dominique Louis <Dominique@SavageSoftware.com.au> }
{ }
{ }
{ }
{ You may retrieve the latest version of this file at the SOAOS project page : }
{ http://www.sourceforge.com/projects/soaos }
{ }
{ The contents of this file maybe used with permission, subject to }
{ the GNU Lesser General Public License Version 2.1 (the "License"); you may }
{ not use this file except in compliance with the License. You may }
{ obtain a copy of the License at }
{ http://www.opensource.org/licenses/lgpl-license.php }
{ }
{ Software distributed under the License is distributed on an }
{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or }
{ implied. See the License for the specific language governing }
{ rights and limitations under the License. }
{ }
{ Description }
{ ----------- }
{ }
{ }
{ }
{ }
{ }
{ }
{ }
{ Requires }
{ -------- }
{ DirectX Runtime libraris on Win32 }
{ They are available from... }
{ http://www.microsoft.com. }
{ }
{ Programming Notes }
{ ----------------- }
{ }
{ }
{ }
{ }
{ Revision History }
{ ---------------- }
{ July 13 2003 - DL : Initial Upload to CVS }
{ }
{******************************************************************************}
{$INCLUDE Anigrp30cfg.inc}
interface
uses
{$IFDEF DirectX}
{$IFDEF DX5}
DirectX,
{$ELSE}
DirectDraw,
{$ENDIF}
DXUtil,
DXEffects,
{$ENDIF}
Windows,
Forms,
Classes,
Graphics,
SysUtils,
Character,
GameText,
Anigrp30,
Engine,
Logfile,
Display;
type
TScroll = class( TObject )
private
DescList : TStringList;
DxSheet : IDirectDrawSurface; //Surface used for statistics
DxFrame : IDirectDrawSurface; //Nifty roller thing for statistics
DxDirty : IDirectDrawSurface;
ScrollFactor : integer; //How far we've scrolled
StatsScrollItem : TItem; //Index for scroll item
MaxScroll : integer; //max Scroll YCoord
txtMessage : array[ 0..34 ] of string;
procedure ShowStatsScroll; //the stats scroll
public
pText : TGameText;
ScrollIsShowing : Boolean;
KeepOnScrolling : boolean;
ScrollAmount : integer; //-1 or 1, to scroll up or down
procedure ScrollStatsScroll;
procedure OpenStatsScroll( TheItem : TItem ); //the stats scroll
constructor Create;
destructor Destroy; override;
end;
implementation
uses
AniDemo;
constructor TScroll.Create;
var
BM : TBitmap;
i : integer;
const
FailName : string = 'TCharacter.create';
begin
{$IFDEF DODEBUG}
if ( CurrDbgLvl >= DbgLvlSevere ) then
Log.LogEntry( FailName );
{$ENDIF}
try
inherited;
BM := TBitmap.create;
BM.LoadFromFile( InterfacePath + 'ScrollFrame.bmp' );
DXDirty := DDGetImage( lpDD, BM, $00FFFF00, False );
BM.LoadFromFile( InterfacePath + 'ScrollFrame.bmp' );
DXFrame := DDGetImage( lpDD, BM, $00FFFF00, False );
BM.LoadFromFile( InterfacePath + 'ScrollPage.bmp' );
DXSheet := DDGetImage( lpDD, BM, $00FFFF00, False );
BM.Free;
DescList := TStringlist.create;
ExText.Open( 'Scroll' );
for i := 0 to 34 do
txtMessage[ i ] := ExText.GetText( 'Message' + inttostr( i ) );
except
on E : Exception do
Log.log( FailName + E.Message );
end;
end; //TScroll.Create;
destructor TScroll.Destroy;
const
FailName : string = 'TScroll.Destroy';
begin
{$IFDEF DODEBUG}
if ( CurrDbgLvl >= DbgLvlSevere ) then
Log.LogEntry( FailName );
{$ENDIF}
try
ExText.close;
DescList.free;
DxSheet := nil;
DxFrame := nil;
DXDirty := nil;
inherited;
except
on E : Exception do
Log.log( FailName + E.Message );
end;
end;
procedure TScroll.ShowStatsScroll;
var
Mx, My : Integer;
i, j, k : Integer;
a, b : string;
TitleY : integer;
Yadj : integer;
ScrollStartValue : integer; //top of scroll
ScrollEndValue : integer; //bottom of scroll
//myPoint: Tpoint;
const
FailName : string = 'TScroll.ShowStatsScroll';
begin
{$IFDEF DODEBUG}
if ( CurrDbgLvl >= DbgLvlSevere ) then
Log.LogEntry( FailName );
{$ENDIF}
try
ScrollIsShowing := True;
Yadj := 0;
Mx := 172;
My := 13 + 45 + ScrollFactor;
ScrollStartValue := 13 + 45;
ScrollEndValue := ScrollStartValue + 360;
//show the sheet
for i := 0 to 3 do
begin //plot 4 segements of the sheet
WrapperBltFast( lpDDSBack, Mx, 13 + 45 + i * 90, DXSheet, Rect( 0, 0, 338, 90 ), DDBLTFAST_SRCCOLORKEY or DDBLTFAST_WAIT );
end;
MaxScroll := 0;
if ( My + 40 > ScrollStartValue ) and ( My + 40 < ScrollEndValue ) then
begin
if pText.PlotTextCentered( PChar( StatsScrollItem.Name ), Mx, Mx + 330, My + 40, 0 ) then
begin
//DebugPrint('Error- not enough room to center name of item ' + StatsScrollItem.Name);
end;
end;
//if pText.PlotTextCentered('Done', Mx, Mx + 305, My + 344) then begin
// DebugPrint('Error- not enough room to center done ' + StatsScrollItem.Name);
//end;
i := 1;
{ if (My + 70 < ScrollEndValue) then begin
if StatsScrollItem.Info > '' then
i := pText.PlotTextBlock(StatsScrollItem.Info, Mx + 20, Mx + 330 - 20, My + 70,0) + 1;
end; }
//NEW**********************
if StatsScrollItem.Info > '' then
begin //use the desc as a stringlist, plot it line by line
for j := 0 to DescList.count - 1 do
begin
if ( ( My + 50 + i * 22 ) > ScrollStartValue ) and ( ( My + 50 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( DescList.strings[ j ], Mx + 20, My + 50 + i * 22, 0 );
end;
i := i + 1;
end;
end;
MaxScroll := ( DescList.count * 22 );
//NEW**********************
i := i + 2; //leave room for Title
TitleY := i - 1; //save line to print title on if there are statstic bonuses
//restrictions
if StatsScrollItem is TWeapon then
begin
k := TWeapon( StatsScrollItem ).MinStrength;
if k <> 0 then
begin
Str( k, a );
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 0 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( a, Mx + 249, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := TWeapon( StatsScrollItem ).MinCoordination;
if k <> 0 then
begin
Str( k, a );
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 1 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( a, Mx + 249, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := TWeapon( StatsScrollItem ).MaxRestriction;
if k <> 0 then
begin
Str( k, a );
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 2 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( a, Mx + 249, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
if i > TitleY + 1 then
begin
MaxScroll := -( ScrollFactor - ( ( My + 40 + YAdj + TitleY * 22 ) - 88 ) );
if ( ( My + 40 + TitleY * 22 ) > ScrollStartValue ) and ( ( My + 40 + TitleY * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotTextCentered( txtMessage[ 3 ], Mx, Mx + 330, My + 40 + TitleY * 22, 0 );
end;
i := i + 2;
TitleY := i - 1;
YAdj := 10;
end;
end; //endif weapon
//stats bonuses
k := StatsScrollItem.modifier.Strength;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 4 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.Coordination;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 5 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.Constitution;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 6 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.Mysticism;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 7 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.Combat;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 8 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.Stealth;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 9 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.AttackRecovery;
if k <> 0 then
begin
Str( k, a );
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 10 ], Mx + 50, My + 40 + i * 22, 0 );
if k > 0 then
pText.PlotText( PChar( a ), Mx + 249, My + 40 + i * 22, 0 )
else
pText.PlotText( PChar( a ), Mx + 240, My + 40 + i * 22, 0 )
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.HitRecovery;
if k <> 0 then
begin
Str( k, a );
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 11 ], Mx + 50, My + 40 + i * 22, 0 );
if k > 0 then
pText.PlotText( PChar( a ), Mx + 249, My + 40 + i * 22, 0 )
else
pText.PlotText( PChar( a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.Perception;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 12 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.Charm;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 13 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.HealingRate;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 14 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.RechargeRate;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 15 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.HitPoints;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 16 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.Mana;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 17 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.Attack;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 18 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.Defense;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 19 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
k := StatsScrollItem.modifier.Restriction;
if k <> 0 then
begin
Str( k, a );
if k > 0 then
b := '+'
else
b := '';
if ( ( My + 40 + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + i * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotText( txtMessage[ 20 ], Mx + 50, My + 40 + i * 22, 0 );
pText.PlotText( PChar( b + a ), Mx + 240, My + 40 + i * 22, 0 );
end;
i := i + 1;
end;
if i > TitleY + 1 then
begin
MaxScroll := -( ScrollFactor - ( ( My + 40 + YAdj + TitleY * 22 ) - 88 ) );
if ( ( My + 40 + TitleY * 22 ) > ScrollStartValue ) and ( ( My + 40 + TitleY * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotTextCentered( txtMessage[ 21 ], Mx, Mx + 330, My + 40 + TitleY * 22, 0 );
end;
i := i + 1;
TitleY := i - 1;
Yadj := Yadj + 10;
end;
//Next is Resistances
k := Round( StatsScrollItem.resistance.Piercing.Invulnerability );
j := Round( StatsScrollItem.resistance.Piercing.Resistance * 100 );
if ( k <> 0 ) or ( j <> 0 ) then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, a );
Str( Round( StatsScrollItem.resistance.Piercing.Resistance * 100 ), b );
pText.PlotText( txtMessage[ 22 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b + '>' ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.resistance.Crushing.Invulnerability );
j := Round( StatsScrollItem.resistance.Crushing.Resistance * 100 );
if ( k <> 0 ) or ( j <> 0 ) then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, a );
Str( Round( StatsScrollItem.resistance.Crushing.Resistance * 100 ), b );
pText.PlotText( txtMessage[ 23 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b + '>' ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.resistance.Cutting.Invulnerability );
j := Round( StatsScrollItem.resistance.Cutting.Resistance * 100 );
if ( k <> 0 ) or ( j <> 0 ) then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, a );
Str( Round( StatsScrollItem.resistance.Cutting.Resistance * 100 ), b );
pText.PlotText( txtMessage[ 24 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b + '>' ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.resistance.Heat.Invulnerability );
j := Round( StatsScrollItem.resistance.Heat.Resistance * 100 );
if ( k <> 0 ) or ( j <> 0 ) then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, a );
Str( Round( StatsScrollItem.resistance.Heat.Resistance * 100 ), b );
pText.PlotText( txtMessage[ 25 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b + '>' ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.resistance.Cold.Invulnerability );
j := Round( StatsScrollItem.resistance.Cold.Resistance * 100 );
if ( k <> 0 ) or ( j <> 0 ) then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, a );
Str( Round( StatsScrollItem.resistance.Cold.Resistance * 100 ), b );
pText.PlotText( txtMessage[ 26 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b + '>' ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.resistance.Electric.Invulnerability );
j := Round( StatsScrollItem.resistance.Electric.Resistance * 100 );
if ( k <> 0 ) or ( j <> 0 ) then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, a );
Str( Round( StatsScrollItem.resistance.Electric.Resistance * 100 ), b );
pText.PlotText( txtMessage[ 27 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b + '>' ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.resistance.Poison.Invulnerability );
j := Round( StatsScrollItem.resistance.Poison.Resistance * 100 );
if ( k <> 0 ) or ( j <> 0 ) then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, a );
Str( Round( StatsScrollItem.resistance.Poison.Resistance * 100 ), b );
pText.PlotText( txtMessage[ 28 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b + '>' ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.resistance.Magic.Invulnerability );
j := Round( StatsScrollItem.resistance.Magic.Resistance * 100 );
if ( k <> 0 ) or ( j <> 0 ) then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, a );
Str( Round( StatsScrollItem.resistance.Magic.Resistance * 100 ), b );
pText.PlotText( txtMessage[ 29 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b + '>' ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.resistance.Mental.Invulnerability );
j := Round( StatsScrollItem.resistance.Mental.Resistance * 100 );
if ( k <> 0 ) or ( j <> 0 ) then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, a );
Str( Round( StatsScrollItem.resistance.Mental.Resistance * 100 ), b );
pText.PlotText( txtMessage[ 30 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b + '>' ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.resistance.Stun.Invulnerability );
j := Round( StatsScrollItem.resistance.Stun.Resistance * 100 );
if ( k <> 0 ) or ( j <> 0 ) then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, a );
Str( Round( StatsScrollItem.resistance.Stun.Resistance * 100 ), b );
pText.PlotText( txtMessage[ 31 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b + '>' ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
if i > TitleY + 1 then
begin
MaxScroll := -( ScrollFactor - ( ( My + 40 + YAdj + TitleY * 22 ) - 88 ) );
if ( ( My + 40 + YAdj + TitleY * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + TitleY * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotTextCentered( txtMessage[ 32 ], Mx, Mx + 330, My + 40 + Yadj + TitleY * 22, 0 );
end;
i := i + 1;
TitleY := i - 1;
Yadj := Yadj + 10;
end;
//Next is Damage adjustments
k := Round( StatsScrollItem.damage.Piercing.Max );
if k <> 0 then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, b );
Str( Round( StatsScrollItem.damage.Piercing.Min ), a );
pText.PlotText( txtMessage[ 22 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.damage.Crushing.Max );
if k <> 0 then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, b );
Str( Round( StatsScrollItem.damage.Crushing.Min ), a );
pText.PlotText( txtMessage[ 23 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.damage.Cutting.Max );
if k <> 0 then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, b );
Str( Round( StatsScrollItem.damage.Cutting.Min ), a );
pText.PlotText( txtMessage[ 24 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.damage.Heat.Max );
if k <> 0 then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, b );
Str( Round( StatsScrollItem.damage.Heat.Min ), a );
pText.PlotText( txtMessage[ 25 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.damage.Cold.Max );
if k <> 0 then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, b );
Str( Round( StatsScrollItem.damage.Cold.Min ), a );
pText.PlotText( txtMessage[ 26 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.damage.Electric.Max );
if k <> 0 then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, b );
Str( Round( StatsScrollItem.damage.Electric.Min ), a );
pText.PlotText( txtMessage[ 27 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.damage.Poison.Max );
if k <> 0 then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, b );
Str( Round( StatsScrollItem.damage.Poison.Min ), a );
pText.PlotText( txtMessage[ 28 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.damage.Magic.Max );
if k <> 0 then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, b );
Str( Round( StatsScrollItem.damage.Magic.Min ), a );
pText.PlotText( txtMessage[ 29 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.damage.Mental.Max );
if k <> 0 then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, b );
Str( Round( StatsScrollItem.damage.Mental.Min ), a );
pText.PlotText( txtMessage[ 30 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.damage.Stun.Max );
if k <> 0 then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, b );
Str( Round( StatsScrollItem.damage.Stun.Min ), a );
pText.PlotText( txtMessage[ 31 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
i := i + 1;
end;
k := Round( StatsScrollItem.damage.Special.Max );
if k <> 0 then
begin
if ( ( My + 40 + YAdj + i * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + i * 22 ) < ScrollEndValue - 24 ) then
begin
Str( k, b );
Str( Round( StatsScrollItem.damage.Special.Min ), a );
pText.PlotText( txtMessage[ 33 ], Mx + 50, My + 40 + YAdj + i * 22, 0 );
pText.PlotText( PChar( a + '-' + b ), Mx + 240, My + 40 + YAdj + i * 22, 0 );
end;
end;
if i > TitleY + 1 then
begin
MaxScroll := -( ScrollFactor - ( ( My + 40 + YAdj + TitleY * 22 ) - 88 ) );
if ( ( My + 40 + YAdj + TitleY * 22 ) > ScrollStartValue ) and ( ( My + 40 + Yadj + TitleY * 22 ) < ScrollEndValue - 24 ) then
begin
pText.PlotTextCentered( txtMessage[ 34 ], Mx, Mx + 330, My + 40 + Yadj + TitleY * 22, 0 );
end;
end;
//plot the cleanup for spillover text from the description
WrapperBltFast( lpDDSBack, 171, 0, DXDirty, Rect( 0, 0, 338, 45 ), DDBLTFAST_WAIT );
//Now plot the rollers, top and bottom
WrapperBltFast( lpDDSBack, 119, 13, DXFrame, Rect( 0, 0, 443, 90 ), DDBLTFAST_SRCCOLORKEY or DDBLTFAST_WAIT );
WrapperBltFast( lpDDSBack, 119, 373, DXFrame, Rect( 0, 0, 443, 90 ), DDBLTFAST_SRCCOLORKEY or DDBLTFAST_WAIT );
//GetCursorPos(myPoint);
//myPoint:=Game.ScreenToClient(myPoint);
//if not PtInRect(Rect(119, 0, 600, 550),myPoint) then
MouseCursor.Cleanup;
lpDDSFront.Flip( nil, DDFLIP_WAIT );
WrapperBltFast( lpDDSBack, 119, 0, lpDDSFront, Rect( 119, 0, 600, 550 ), DDBLTFAST_WAIT );
//if PtInRect(Rect(119, 0, 600, 550),myPoint) then
MouseCursor.PlotDirty := false;
except
on E : Exception do
Log.log( FailName + E.Message );
end;
end; //TScroll.ShowStatsScroll
procedure TScroll.OpenStatsScroll( TheItem : TItem );
var
tempString : string;
const
FailName : string = 'TScroll.OpenStatsScroll';
begin
{$IFDEF DODEBUG}
if ( CurrDbgLvl >= DbgLvlSevere ) then
Log.LogEntry( FailName );
{$ENDIF}
try
ScrollFactor := 0;
KeepOnScrolling := false;
StatsScrollItem := TheItem;
//save this portion of the screen so we can just let text run off the top
WrapperBltFast( DXDirty, 0, 0, lpDDSBack, Rect( 171, 0, 509, 45 ), DDBLTFAST_WAIT );
DescList.clear;
if StatsScrollItem.Info <> '' then
tempString := StringReplace( StatsScrollItem.Info, '<CRLF>', char( 13 ), [ rfReplaceAll ] + [ rfIgnoreCase ] );
pText.BreakTextIntoAStringList( tempString, DescList, 172 + 20, 172 + 310 );
ShowStatsScroll;
except
on E : Exception do
Log.log( FailName + E.Message );
end;
end; //TScroll.OpenStatsScroll
procedure TScroll.ScrollStatsScroll;
var
OldTime : Longword;
Adj, TimeDif : real;
const
FailName : string = 'TScroll.ScrollStatsScroll';
begin
{$IFDEF DODEBUG}
if ( CurrDbgLvl >= DbgLvlSevere ) then
Log.LogEntry( FailName );
{$ENDIF}
try
OldTime := GetTickCount;
Adj := 0;
while KeepOnScrolling do
begin
TimeDif := GetTickCount - OldTime;
Adj := Adj + 80 * ( TimeDif / 1000 );
OldTime := GetTickCount;
if Adj >= 1 then
begin
ScrollFactor := ScrollFactor + ScrollAmount * Trunc( Adj );
if ScrollFactor < -MaxScroll then
ScrollFactor := -MaxScroll
else if ScrollFactor > 0 then
ScrollFactor := 0;
ShowStatsScroll;
Adj := Adj - Trunc( Adj );
end;
application.ProcessMessages;
end; //wend
except
on E : Exception do
Log.log( FailName + E.Message );
end;
end; //TScroll.ScrollStatsScroll;
end.