4aiman/MMBN56MM
0
0
Fork 0
Code Issues Pull requests Projects Releases 11 Packages Wiki Activity Actions

Fixed room names not showing right after adding. Added about 35 rooms from Oran and ACDC areas. Added placeholder Squirrel Comp images

Browse source
This commit is contained in:
4aiman 2024-01-17 00:29:18 +03:00
commit e8ea1172e7
19 changed files with 162 additions and 124 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
images/Squirrel Comp 1.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 10.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 11.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 12.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 13.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 15.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 16.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 2.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 3.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 4.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 5.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 6.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 7.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 8.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
images/Squirrel Comp 9.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

234
mmbn5m.lps
View file

@ -48,7 +48,7 @@
<IsPartOfProject Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="69" Y="19"/>
<UsageCount Value="29"/>
<UsageCount Value="32"/>
<Loaded Value="True"/>
</Unit>
<Unit>
@ -59,9 +59,9 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="158"/>
<CursorPos X="66" Y="178"/>
<UsageCount Value="29"/>
<TopLine Value="153"/>
<CursorPos X="45" Y="177"/>
<UsageCount Value="32"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit>
@ -70,123 +70,11 @@
<EditorIndex Value="2"/>
<TopLine Value="128"/>
<CursorPos Y="152"/>
<UsageCount Value="12"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="29">
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="200" Column="35" TopLine="142"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="108" Column="17" TopLine="82"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="116" TopLine="84"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="108" Column="33" TopLine="84"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="192" Column="11" TopLine="182"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="199" Column="11" TopLine="174"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="200" Column="25" TopLine="176"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="117" TopLine="93"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="132" Column="12" TopLine="122"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="175" TopLine="144"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="118" Column="41" TopLine="94"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="170" Column="55" TopLine="146"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="117" Column="13" TopLine="117"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="136" Column="25" TopLine="116"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="135" Column="25" TopLine="115"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="134" Column="25" TopLine="114"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="133" Column="25" TopLine="113"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="132" Column="25" TopLine="112"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="210" Column="6" TopLine="208"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="209" Column="6" TopLine="207"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="199" Column="38" TopLine="181"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="166" Column="7" TopLine="153"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="182" Column="91" TopLine="156"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="145" Column="63" TopLine="113"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="141" Column="58" TopLine="113"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="140" Column="41" TopLine="118"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="171" Column="61" TopLine="155"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="130" Column="37" TopLine="106"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="129" Column="22" TopLine="106"/>
@ -195,6 +83,118 @@
<Filename Value="unit1.pas"/>
<Caret Line="174" Column="38" TopLine="155"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="133" Column="5" TopLine="98"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="134" Column="5" TopLine="99"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="133" Column="5" TopLine="98"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="118" Column="29" TopLine="87"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="58" Column="75" TopLine="42"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="118" Column="29" TopLine="105"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="152" Column="41" TopLine="129"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="222" Column="48" TopLine="175"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="9" Column="22" TopLine="9"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="28" Column="10"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="8" Column="86"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="38" Column="26" TopLine="14"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="117" Column="3" TopLine="93"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="221" Column="52" TopLine="181"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="214" Column="50" TopLine="195"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="121" Column="134" TopLine="91"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="219" Column="15" TopLine="181"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="220" Column="26" TopLine="181"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="221" Column="24" TopLine="181"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="224" Column="41" TopLine="183"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="225" Column="74" TopLine="184"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="104" Column="12" TopLine="80"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="108" Column="77" TopLine="80"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="104" Column="26" TopLine="70"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="221" Column="9" TopLine="189"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="133" Column="5" TopLine="85"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="176" Column="33" TopLine="166"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="179" Column="28" TopLine="155"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>

35
rooms.ini
View file

@ -43,3 +43,38 @@
384=Main Comp 2
769=Op Room
652=Kitchen Comp
2=Oran Island
258=Old Mine
2050=Old Mine 6
770=Old Mine 1
1026=Old Mine 2
1282=Old Mine 3
1538=Old Mine 4
2700=Air Filter Comp
1794=Old Mine 5
2306=Old Mine 7
129=Drill Comp 1
514=Big Cave
2562=Old Mine 8
385=Drill Comp 2
641=Drill Comp 3
2818=Old Mine 9
908=Electronic Lock Comp
5=Regal Base 1
142=Squirrel Comp 1
398=Squirrel Comp 2
654=Squirrel Comp 3
1166=Squirrel Comp 5
910=Squirrel Comp 4
1678=Squirrel Comp 7
1934=Squirrel Comp 8
2190=Squirrel Comp 9
2446=Squirrel Comp 10
2958=Squirrel Comp 12
3726=Squirrel Comp 15
2702=Squirrel Comp 11
3214=Squirrel Comp 13
3470=Squirrel Comp 14
3982=Squirrel Comp 16
1536=Higsby's
1422=Squirrel Comp 6

8
unit1.lfm
View file

@ -1,12 +1,12 @@
object Form1: TForm1
Left = 802
Height = 461
Height = 448
Top = 496
Width = 548
Width = 528
BorderStyle = bsSingle
Caption = 'MMBN5M'
ClientHeight = 461
ClientWidth = 548
ClientHeight = 448
ClientWidth = 528
Font.CharSet = ANSI_CHARSET
Font.Height = -16
Font.Pitch = fpVariable

9
unit1.pas
View file

@ -102,6 +102,8 @@ var
process_list: TStrings;
room: smallint = -1; // contains current room 16-bit value
last_room: smallint = -1;
room_name: string;
new_room: bool;
{$R *.lfm}
@ -165,8 +167,6 @@ begin
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
room_name: string;
begin
if hProcess <> 0 then
@ -174,8 +174,9 @@ begin
try
if ReadMemory(hProcess, Pointer($80205FF4), room, SizeOf(room)) then
begin
if last_room <> room then
if (last_room <> room) or (new_room) then
begin
new_room := false;
last_room := room;
room_name := ROOMS.ReadString('Rooms', IntToStr(room), 'Unknown');
room_name_label.Caption := 'Room #' + IntToStr(room) + ': ' + room_name;
@ -205,10 +206,12 @@ procedure TForm1.edit_room_buttonClick(Sender: TObject);
var
new_room_name: string;
begin
new_room_name := room_name;
if InputQuery('Editing Room # ' + IntToStr(room), 'Enter this Room''s name',
new_room_name) then
begin
ROOMS.WriteString('Rooms', IntToStr(room), new_room_name);
new_room := true;
end;
end;