
Originally Posted by
Google
If you send me the link I would be glad to test them out after my exams are over. I was planning on doing a project on creating a new world map out of mini-map screen shots but I never got around to making the thread to gather the snaps (needs a-lot of community help to gather all the areas). If it was done this way the world map would not need updating for a very long time.
You may be interested in this then, cuts the and crops minimap out and saves it for you
Simba Code:
program SPS_MapMaker;
{$DEFINE SMART}
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
Const
SAVEPATH = 'C:/Users/Olly/Desktop/map/';
Procedure GetMinimap(Name: String);
var
TPA, Draw: TPointArray;
TIA: TIntegerArray;
I, BMP: Integer;
begin
BMP:= CreateBitmap(MMX2 - MMX1 + 1, MMY2 - MMY1 + 1);
TPA:= TPAFromBox(MMBox);
FilterPointsPie(TPA, 0.0, 360.0, 0.0, 75.0, MMCX, MMCY);
TIA:= GetColors(TPA);
TPA:= TPAFromBox(IntToBox(0, 0, MMX2 - MMX1, MMY2 - MMY1));
DrawTPABitmap(BMP, TPA, 16777215);
FilterPointsPie(TPA, 0.0, 360.0, 0.0, 75.0, (MMX2 - MMX1)/2, (MMY2 - MMY1)/2);
For I:= 0 To High(TPA) do
begin
SetLength(DRAW, 1);
Draw[0]:= TPA[I];
DrawTPABitmap(BMP, Draw, TIA[I]);
end;
DebugBitmap(BMP);
SaveBitmap(BMP, SavePath + Name + '.png');
FreeBitmap(BMP);
end;
var
I: Integer;
begin
SetupSRL;
while true do
begin
wait(1000);
while (Not SMARTENABLED) do
wait(25);
GetMinimap('MM' + ToStr(I));
Inc(I);
end;
end.
Credits to Brandon for the original (i think? were going back agess here)