Sorry to be a pain but do you mean in here
SCAR Code:
//-----------------------------------------------------------------//
//-- Scar Standard Resource Library --//
//-- » Global Variables --//
//-----------------------------------------------------------------//
// * procedure LoadSRLBitMaps; // * by SRL Dev Team
// * procedure FreeSRLBitMaps; // * by Ron
{ const SRLVersionNumber;
Description: Repository Version Number. }
const
SRLVersionNumber = '4.00';
{ var bmpAdmin, bmpMod, Lamp, Box: Integer;
Description: Global Bitmaps. Need to be Global because of SCAR Memory leaks. }
var
bmpAdmin, bmpMod, Lamp, Box: Integer;
{ var RoadColor, WaterColor, BankColor: Integer;
Description: Three variables you will almost always use. :) }
var
RoadColor, WaterColor, BankColor: Integer;
{ var LampSkill: String;
Description: Set Lamp skill. }
var
LampSkill: string;
{ const MMX1, MMY1, MMX2, MMY2;
Description: MiniMap Edge Points. }
const
MMX1 = 570;
MMY1 = 5;
MMX2 = 715;
MMY2 = 160;
{ const MMCX, MMCY;
Description: MiniMap Centre Point. }
const
MMCX = 643;
MMCY = 84;
{ const MSX1, MSY1, MSX2, MSY2;
Description: Main Screen EdgePoints. }
const
MSX1 = 1;
MSY1 = 1;
MSX2 = 516;
MSY2 = 338;
{ const MSCX, MSCY;
Description: Main Screen Centre Points. }
const
MSCX = 259;
MSCY = 170;
{ const MIX1, MIY1, MIX2, MIY2;
Description: Inventory EdgePoints. }
const
MIX1 = 547;
MIY1 = 202;
MIX2 = 737;
MIY2 = 466;
{ const MICX, MICY;
Description: Inventory Centre Points. }
const
MICX = 642;
MICY = 334;
{ const MCX1, MCY1, MCX2, MCY2;
Description: Chat Screen EdgePoints. }
const
MCX1 = 4;
MCY1 = 342;
MCX2 = 496;
MCY2 = 460;
{ const MCCX, MCCY;
Description: Chat Screen Centre Points. }
const
MCCX = 250;
MCCY = 401;
//****************************************************************************//
// * I tried to make these Bitmaps Local, but I got after a couple of hours
// * running scripts, CTB and DB handle errors. So sorry, declared them global
//****************************************************************************//
{*******************************************************************************
procedure LoadSRLBitMaps;
By: SRL Dev Team
Description: Loads SRL Bitmaps into memory.
*******************************************************************************}
procedure LoadSRLBitMaps;
begin
bmpMod := BitmapFromString(9, 6, 'z78DA733472A41B74350041' +
'08DB0009E012B13407414C5DF8D994E8220F0200F59E4633');
bmpAdmin := BitmapFromString(9, 6, 'z78DA7333777333B070A3' +
'0F0904162610B60112C025E26266E96A6488A90B3F9B125DE4910' +
'0A83249DE');
Lamp := BitmapFromString2(False, 'aE3F5378DA558D4B0E8030084' +
'4AFC4670A75D98ABDFF912C5693BA7921330F20226A7582CA3901' +
'C9B9E04A0E9B34C9522A32799C3D2F9489394FBA46D23367CD0BE' +
'CA83637C39B1F1FF9E4DC79ACC5B7957925B4E9F16FBB7666D865' +
'418181415542E2739484E49DCDCDA8C250A8EE5F96530C01D92FE' +
'FEDEEECC9AF059AF6E5DCE2E');
Box := BitmapFromString(6, 6, 'z78DA33300001373030C00B8851' +
'439E4A646040250000B06A2B99');
end;
//* Users
{var FileName: String;
Description: Filename to save and load users from. }
var
FileName: string;
{*******************************************************************************
procedure FreeSRLBitMaps;
By: Ron
Description: Frees SRL Bitmaps into memory.
*******************************************************************************}
procedure FreeSRLBitmaps;
begin
FreeBitmap(bmpMod);
FreeBitmap(bmpAdmin);
FreeBitmap(Lamp);
FreeBitmap(Box);
end;
thats at {.include srl/srl/core/globals.scar}