Skip to content

Commit

Permalink
fix damage
Browse files Browse the repository at this point in the history
  • Loading branch information
@Elem8100
Elem8100 authored Feb 15, 2022
1 parent 8de6761 commit f8d7758
Show file tree
Hide file tree
Showing 5 changed files with 13 additions and 11 deletions.
2 changes: 1 addition & 1 deletion Src/AfterImage.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -129,7 +129,7 @@ procedure TAfterImage.DoCollision(const Sprite: TSprite);
if HP > 0 then
begin
Hit := True;
Damage := 500000 + Random(700000);
Damage := 50000 + Random(700000);
HP := HP - Damage;
if HasImgEntry('Sound/Mob.img/' + SelfID + '/Damage') then
PlaySounds('Mob', SelfID + '/Damage')
Expand Down
9 changes: 5 additions & 4 deletions Src/MainUnit.dfm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@ object MainForm: TMainForm
Top = 77
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'MapleStoryGM v3.81'
Caption = 'MapleStoryGM v3.91'
ClientHeight = 711
ClientWidth = 2424
Color = clBtnFace
Expand Down Expand Up @@ -116,7 +116,7 @@ object MainForm: TMainForm
ColorTo = clSkyBlue
GradientDirection = gdVertical
DockDots = True
Caption = #169' 2021 Elem '
Caption = #169' 2022 Elem '
CaptionGradientDirection = gdVertical
FocusCaptionFontColor = clBlack
FocusCaptionColor = 9758459
Expand Down Expand Up @@ -3400,11 +3400,12 @@ object MainForm: TMainForm
ItemIndex = 0
ParentBiDiMode = False
TabOrder = 5
Text = 'GMS/KMS/BMS(new)'
Text = 'KMS/Sea/BMS(new)'
OnChange = ComboKeyChange
OnCloseUp = ComboKeyCloseUp
Items.Strings = (
'GMS/KMS/BMS(new)'
'KMS/Sea/BMS(new)'
'GMS(new)'
'GMS(old)'
'EMS/KMS(old)')
end
Expand Down
7 changes: 4 additions & 3 deletions Src/MainUnit.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1167,11 +1167,12 @@ procedure TMainForm.ComboBox2CloseUp(Sender: TObject);
procedure TMainForm.ComboKeyChange(Sender: TObject);
begin
case ComboKey.ItemIndex of
0:
0,1:
TWZReader.EncryptionIV := 0;
1:
TWZReader.EncryptionIV := GMS_IV;

2:
TWZReader.EncryptionIV := GMS_IV;
3:
TWZReader.EncryptionIV := GENERAL_IV;
end;
ActiveControl := nil;
Expand Down
4 changes: 2 additions & 2 deletions Src/Mob2.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -255,7 +255,7 @@ class procedure TMob.Drop(ID: string; PosX, PosY: Integer; aRX0: Integer = 0; aR
else
HP := Entry.Get('maxHP').Data;

if HP < 2000000 then
// if HP < 2000000 then
HP := 2000000;

Level := Entry.Get('level', '1');
Expand Down Expand Up @@ -973,7 +973,7 @@ procedure TMobCollision.DoCollision(const Sprite: TSprite);
if Index = 0 then
HeadX := Head.X;
Hit := True;
Damage := 500000 + Random(70000);
Damage := 50000 + Random(550000);
HP := HP - Damage;
if HasImgEntry('Sound/Mob.img/' + SelfID + '/Damage') then
PlaySounds('Mob', SelfID + '/Damage')
Expand Down
2 changes: 1 addition & 1 deletion Src/Skill.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -438,7 +438,7 @@ procedure TSkillCollision.DoCollision(const Sprite: TSprite);
if HP > 0 then
begin
Hit := True;
Damage := 500000 + Random(700000);
Damage := 50000 + Random(700000);
HP := HP - Damage;
if HasImgEntry('Sound/Mob.img/' + SelfID + '/Damage') then
PlaySounds('Mob', SelfID + '/Damage')
Expand Down

3 comments on commit f8d7758

@Eleg4st
Copy link

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Hello, I have been using your program for a while, MaplestoryGM, I recently went to update maple and it is not opening anymore, the error that occurs is this:
Unknown marker at parseDirectory(etc): i = 0; Marker 0.

I would also like to know how much you would charge to edit bannedstory 3, because it doesn't read on windows 10+, I wanted to add things like bannedstory 4.
it would be very cool

Congratulations on your program, I really enjoy playing with maple in it.
have a good week.

@Elem8100
Copy link
Owner Author

@Elem8100 Elem8100 commented on f8d7758 May 2, 2022 •
edited
Loading

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Image 11
Make sure you have download newest version(v3.91) then Try KMS or GMS(new) ,one of them will work.

@Eleg4st
Copy link

@Eleg4st Eleg4st commented on f8d7758 May 2, 2022

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

It worked out!
Thank you so much!
Success to you always!

Please sign in to comment.