Início
![[ASM] Menu Customizado In-Game Empty](https://2img.net/i/empty.gif)
Fen$x decide sair da team FHX e deixou esta source em ASM:
C-Fen$x.asm
C-Fen$x.asm
- Código:
.386
.Model flat, StdCall
Option CaseMap:none
Include \masm32\include\windows.inc
Include \masm32\include\user32.inc
Include \masm32\include\kernel32.inc
Include \masm32\include\masm32.inc
IncludeLib \masm32\lib\user32.lib
IncludeLib \masm32\lib\kernel32.lib
IncludeLib \masm32\lib\masm32.lib
.Const
Space Equ 10H
Space2 Equ 20H
Buffer Equ 70H
MaxSpace Equ 40H
.Data
LorenciaMiniMap DB "World1\LMap.jpg", 0
DeviasMiniMap DB "World3\DMap.jpg", 0
NoriaMiniMap DB "World4\NMap.jpg", 0
AtlansMiniMap DB "World8\AMap.jpg", 0
TarkanMiniMap DB "World9\TMap.jpg", 0
HastePanel DB "Display Haste Panel(H)", 0
WindowsName DB "Haste Panel", 0
HastePanelName DB "Interface\Haste_button1.tga", 0
MenuInfoMessage1 DB "Haste Panel and Commands", 0
MenuInfoMessage2 DB "HasteMu - the only server in the world with", 0
MenuInfoMessage3 DB "interfaced commands, custom skills and features!", 0
MenuInfoMessage4 DB "This is what make us unique and superior", 0
MenuInfoMessage5 DB "to all so-called Private Servers", 0
MenuInfoMessage6 DB "To show your gratitude towards HasteMu", 0
MenuInfoMessage7 DB "remember to for us every 12 Hours.", 0
MenuInfoMessage8 DB "www.HasteMu.net", 0
PostInfoMessage1 DB "Post Command", 0
InsultDetectMSG DB "Insult detected on your message !!", 0
PNotEnoughZen DB "Not enough zen on player", 0
PNotEnoughLvl DB "You need more level for post", 0
PostInfo DB "Post is a new command developed by HasteMU", 0
PostInfo1 DB "its used for post any announcement", 0
PostInfo2 DB "and it will be displayed to all online players", 0
PostInfo3 DB "Do not Spam", 0
PostSend DB "Send Post", 0
RedText DB "Red Collor", 0
BlueText DB "Green Collor", 0
ZenWord DB "Needed Zen:", 0
LevelWord DB "Needed Level:", 0
PostZenAmount DB "5.000.000", 0
PostZenRed DB "10.000.000", 0
PostZenBlue DB "7.000.000", 0
PostLevel DB "200", 0
PostLevelRed DB "300", 0
PostLevelBlue DB "250", 0
PostCMD DB "Post", 0
MarryCMD DB "Marry", 0
GlobalCMD DB "Global MSG", 0
Miscelanious DB "Misc Commands", 0
AddsCMD DB "Add Commands", 0
AddStr DB "Add Strenght", 0
AddAgi DB "Add Agility", 0
AddVit DB "Add Vitality", 0
AddEner DB "Add Energy", 0
AddLeader DB "Add Leadership", 0
ADWord DB "[AD]", 0
ButtomPosX DD 10.0
ButtomPosY DD 57.0
ButtomPosU DD 432.0
ButtomPosZ DD 418.0
RedButtomX DD 480.0
RedButtomY DD 535.0
RedButtomZ DD 235.0
RedButtomU DD 248.0
BlueButtomX DD 553.0
BlueButtomY DD 608.0
BlueButtomZ DD 235.0
BlueButtomU DD 248.0
SendButtomX DD 503.0
SendButtomY DD 588.0
SendButtomZ DD 261.0
SendButtomU DD 279.0
LoadJPGFile DD 006C9DEBH ;HasteMU Client
LoadTGAFile DD 006CA33CH ;HasteMU Client
ShowOZT DD 00629D57H ; HasteMU Client
DisplayBlackText DD 00533110H ; HasteMU Client
DisplayWhiteText DD 005330C0H ; HasteMU Client
InitBlend DD 006287E9H ; HasteMU Client
DrawRectLine DD 00629C74H ; HasteMU Client
SetFixCollor DD 00411083H ; HasteMU Client
IsWindowOpen DD 0045BC26H ; HasteMU Client
SaveInfoToWritteHandler DD 00403B20H ; HasteMU Client
SaveInfoToWritteHandler2 DD 004112C4H ; HasteMU Client
DisplayNormalText DD 00532F50H ; HasteMU Client
SumEightToOffset DD 00427E40H ; HasteMU Client
DisplayTextBySecs DD 0041A874H ; HasteMU Client
ClientMessageOutPut DD 00533F90H ; HasteMU Client
IsPanelOpen DD ?
IsPostCMDOpen DD ?
IsFirstTimeOpen DD ?
IsRedButtomPressed DD ?
IsBlueButtomPressed DD ?
MouseOnRedButtom DD ?
MouseOnBlueButtom DD ?
MouseOnSendButtom DD ?
IsSendButtomPressed DD ?
TNotEnoughZen DD ?
PostInsultDetected DD ?
TNotEnoughLvl DD ?
NShowPostMSG DD ?
LoadOPanelButtom DD ?
GlobalPlayerName DB Space2 Dup(0)
TextBuffer DB Buffer Dup(0)
PostSkeletonPacket DB MaxSpace Dup(0)
ReturnSkeletonPacket DB MaxSpace Dup(0)
.Data?
.Code
DllEntry Proc hInstDLL:HINSTANCE, reason:DWord, reserved1:DWord
Mov Eax, TRUE
Ret
DllEntry EndP
PacketRecv Proc
Local TypeProtocol:DWord
Mov TypeProtocol, Ecx
Cmp Ecx, 0F5H
Je CheckLenghtPost
Xor Eax, Eax
Xor Ecx, Ecx
Jmp EndPacketRecv
CheckLenghtPost:
Push Esi
Call CopyReturnPacket
Xor Ecx, Ecx
Cmp Byte Ptr Ds:[Esi + 1], 4
Je CheckTypeFailure
Jmp CheckTypePost
CheckTypeFailure:
Cmp Byte Ptr Ds:[Esi + 3], 1
Jnz TypeNotEnoughZen
Mov PostInsultDetected, 1
Mov Ecx, 1
Jmp EndPacketRecv
TypeNotEnoughZen:
Cmp Byte Ptr Ds:[Esi + 3], 2
Jnz TypeNotEnoughLevel
Mov TNotEnoughZen, 1
Mov Ecx, 1
Jmp EndPacketRecv
TypeNotEnoughLevel:
Cmp Byte Ptr Ds:[Esi + 3], 3
Jnz EndPacketRecv
Mov TNotEnoughLvl, 1
Mov Ecx, 1
Jmp EndPacketRecv
CheckTypePost:
Cmp Byte Ptr Ds:[Esi + 3], 0
Jnz CheckBlueType
Xor Eax, Eax
Push Esi
Call SendPostMessage
Mov Ecx, 1
Jmp EndPacketRecv
CheckBlueType:
Cmp Byte Ptr Ds:[Esi + 3], 1
Jnz CheckRedType
Mov Eax, 1
Push Esi
Call SendPostMessage
Mov Ecx, 1
Jmp EndPacketRecv
CheckRedType:
Cmp Byte Ptr Ds:[Esi + 3], 2
Jnz EndPacketRecv
Mov Eax, 2
Push Esi
Call SendPostMessage
Mov Ecx, 1
EndPacketRecv:
Mov Eax, TypeProtocol
Mov Esp, Ebp
Pop Ebp
Ret
PacketRecv EndP
CopyReturnPacket Proc
Local RPacket:DWord
Local RLenght:DWord
Xor Ecx, Ecx
Xor Edx, Edx
Mov Eax, DWord Ptr Ds:[Ebp + 8]
Mov RPacket, Eax
Lea Ebx, DWord Ptr Ds:[ReturnSkeletonPacket]
Mov Cl, Byte Ptr Ds:[Eax + 1]
Mov RLenght, Ecx
Xor Ecx, Ecx
CopyLooper:
Mov Cl, Byte Ptr Ds:[Eax + Edx]
Mov Byte Ptr Ds:[Ebx + Edx], Cl
Cmp Edx, RLenght
Je EndCopying
Add Edx, 1
Jmp CopyLooper
EndCopying:
Mov Esp, Ebp
Pop Ebp
Ret
CopyReturnPacket EndP
MiniAttLoad Proc
Local MapID:DWord
Mov Eax, DWord Ptr Ds:[720AB0H] ;Offset Of Map Player
Mov MapID, Eax
Cmp Eax, 0
Jnz CheckDevias
;Instruction for load OZT File for minimap
Push 1
Push 0
Push 2900H
Push 2601H
Push 69FH ;ID for show later on screen
Lea Eax, LorenciaMiniMap ;String for load JPG
Push Eax
Call LoadJPGFile
Add Esp, 18H
Jmp MiniMapEnd
CheckDevias:
Cmp Eax, 2
Jnz CheckNoria
Push 1
Push 0
Push 2900H
Push 2601H
Push 69FH ;ID for show later on screen
Lea Eax, DeviasMiniMap ;String for load JPG
Push Eax
Call LoadJPGFile
Jmp MiniMapEnd
CheckNoria:
Cmp Eax, 3
Jnz MiniMapEnd
Push 1
Push 0
Push 2900H
Push 2601H
Push 69FH ;ID for show later on screen
Lea Eax, NoriaMiniMap ;String for load JPG
Push Eax
Call LoadJPGFile
MiniMapEnd:
Mov Esp, Ebp
Pop Ebp
Ret
MiniAttLoad EndP
CMiniMap Proc
Push Ebp
Mov Ebp, Esp
Xor Eax, Eax
Cmp DWord Ptr Ds:[Ebp + 8], 0 ;Lorencia
Jnz CheckNoriaMap
Mov Eax, 1
Jmp MapNotAllowed
CheckNoriaMap:
Cmp DWord Ptr Ds:[Ebp + 8], 2 ;Davias
Jnz CheckDeviasMap
Mov Eax, 1
Jmp MapNotAllowed
CheckDeviasMap:
Cmp DWord Ptr Ds:[Ebp + 8], 3 ;Noria
Jnz CheckCSMap
Mov Eax, 1
Jmp MapNotAllowed
CheckCSMap:
Cmp DWord Ptr Ds:[Ebp + 8], 1EH ;CastleSiege
Jnz MapNotAllowed
Mov Eax, 1
MapNotAllowed:
Mov Esp, Ebp
Pop Ebp
Ret
CMiniMap EndP
ReturnStates Proc
Push Ebp
Mov Ebp, Esp
Mov Eax, IsPostCMDOpen
Mov Esp, Ebp
Pop Ebp
Ret
ReturnStates EndP
LoadNewButtom Proc
Push Ebp
Mov Ebp, Esp
Push 1
Push 0
Push 2900H
Push 2600H
Push 746H ;ID for show later on screen
Lea Eax, HastePanelName ;String for load JPG
Push Eax
Call LoadTGAFile
Add Esp, 18
Mov Esp, Ebp
Pop Ebp
Ret
LoadNewButtom EndP
ShowNewButtom Proc
Push Ebp
Mov Ebp, Esp
Cmp IsPostCMDOpen, 1
Jnz ContinueChecking
Fild DWord Ptr Ds:[7B8CC80H] ; cords of mouse right and left
Fcom DWord Ptr Ds:[RedButtomX]
Fstsw Ax
Test Ah, 1
Jnz ContinueChecking
Fcomp DWord Ptr Ds:[RedButtomY]
Fstsw Ax
Test Ah, 1
Je ContinueChecking
Fild DWord Ptr Ds:[7B8CC7CH] ;cords of mouse up and down
Fcom DWord Ptr Ds:[RedButtomZ]
Fstsw Ax
Test Ah, 1
Jnz ContinueChecking
Fcomp DWord Ptr Ds:[RedButtomU]
Fstsw Ax
Test Ah, 1
Je ContinueChecking
Mov MouseOnRedButtom, 1
Jmp EndShow
ContinueChecking:
Cmp IsPostCMDOpen, 1
Jnz ContinueChecking2
Fild DWord Ptr Ds:[7B8CC80H] ; cords of mouse right and left
Fcom DWord Ptr Ds:[BlueButtomX]
Fstsw Ax
Test Ah, 1
Jnz ContinueChecking2
Fcomp DWord Ptr Ds:[BlueButtomY]
Fstsw Ax
Test Ah, 1
Je ContinueChecking2
Fild DWord Ptr Ds:[7B8CC7CH] ;cords of mouse up and down
Fcom DWord Ptr Ds:[BlueButtomZ]
Fstsw Ax
Test Ah, 1
Jnz ContinueChecking2
Fcomp DWord Ptr Ds:[BlueButtomU]
Fstsw Ax
Test Ah, 1
Je ContinueChecking2
Mov MouseOnBlueButtom, 1
Jmp EndShow
ContinueChecking2:
Cmp IsPostCMDOpen, 1
Jnz ContinueChecking3
Fild DWord Ptr Ds:[7B8CC80H] ; cords of mouse right and left
Fcom DWord Ptr Ds:[SendButtomX]
Fstsw Ax
Test Ah, 1
Jnz ContinueChecking3
Fcomp DWord Ptr Ds:[SendButtomY]
Fstsw Ax
Test Ah, 1
Je ContinueChecking3
Fild DWord Ptr Ds:[7B8CC7CH] ;cords of mouse up and down
Fcom DWord Ptr Ds:[SendButtomZ]
Fstsw Ax
Test Ah, 1
Jnz ContinueChecking3
Fcomp DWord Ptr Ds:[SendButtomU]
Fstsw Ax
Test Ah, 1
Je ContinueChecking3
Mov MouseOnSendButtom, 1
Jmp EndShow
ContinueChecking3:
Mov MouseOnRedButtom, 0
Mov MouseOnBlueButtom, 0
Mov MouseOnSendButtom, 0
Fild DWord Ptr Ds:[7B8CC80H] ; cords of mouse right and left
Fcom DWord Ptr Ds:[ButtomPosX]
Fstsw Ax
Test Ah, 1
Jnz EndShow
Fcomp DWord Ptr Ds:[ButtomPosY]
Fstsw Ax
Test Ah, 1
Je EndShow
Fild DWord Ptr Ds:[7B8CC7CH] ;cords of mouse up and down
Fcom DWord Ptr Ds:[ButtomPosZ]
Fstsw Ax
Test Ah, 1
Jnz EndShow
Fcomp DWord Ptr Ds:[ButtomPosU]
Fstsw Ax
Test Ah, 1
Je EndShow
Lea Eax, HastePanel
Push Eax
Push 190H ; cord de altura
Push 0AH ; cord de derecha y izquierda
Call DisplayBlackText ;texto como el que aparece cuando mueves el mouse sobre algo
Add Esp, 1CH
EndShow:
Mov Esp, Ebp
Pop Ebp
Ret
ShowNewButtom EndP
ClickOnButtom Proc
Push Ebp
Mov Ebp, Esp
Cmp DWord Ptr Ds:[70BFE0H], 1
Je CheckCMDCords
Mov Eax, DWord Ptr Ds:[7B8CC80H] ; Cords of mouse right and left
Cmp Eax, 0BH
Jl EndClickButtom2
Cmp Eax, 36H
Jge EndClickButtom2
Mov Ecx, DWord Ptr Ds:[7B8CC7CH] ; Cords of mouse up and down
Cmp Ecx, 1A2H
Jl EndClickButtom2
Cmp Ecx, 1AFH
Jge EndClickButtom2
Cmp IsPanelOpen, 1
Jnz OpenPanelNormal
Mov IsPanelOpen, 0
Call ClearMenus
Jmp EndClickButtom
OpenPanelNormal:
Mov IsPanelOpen, 1
Mov DWord Ptr Ds:[610270H], 1
Mov Eax, 1
Jmp EndClickButtom
CheckCMDCords:
Cmp IsPostCMDOpen, 1
Jnz RedButtomClick
Mov Eax, DWord Ptr Ds:[7B8CC80H] ; Cords of mouse right and left
Cmp Eax, 1F9H ;left side
Jl RedButtomClick
Cmp Eax, 247H ; right side
Jge RedButtomClick
Mov Ecx, DWord Ptr Ds:[7B8CC7CH] ; Cords of mouse up and down
Cmp Ecx, 105H ;up (altura)
Jl RedButtomClick
Cmp Ecx, 116H ;down (hacia abajo)
Jge RedButtomClick
Cmp IsSendButtomPressed, 1
Je EndClickButtom2
Mov IsSendButtomPressed, 1
Lea Edx, DWord Ptr Ds:[TextBuffer]
Push Edx
Call SendPostPacket
Mov IsRedButtomPressed, 0
Mov IsBlueButtomPressed, 0
Jmp EndClickButtom2
RedButtomClick:
Cmp IsPostCMDOpen, 1
Jnz ClickContinue
Mov Eax, DWord Ptr Ds:[7B8CC80H] ; Cords of mouse right and left
Cmp Eax, 0E0H ;left side
Jl ClickContinue
Cmp Eax, 213H ; right side
Jge ClickContinue
Mov Ecx, DWord Ptr Ds:[7B8CC7CH] ; Cords of mouse up and down
Cmp Ecx, 0EBH ;up (altura)
Jl ClickContinue
Cmp Ecx, 0F5H ;down (hacia abajo)
Jge ClickContinue
Cmp IsSendButtomPressed, 1
Je EndClickButtom2
Mov IsRedButtomPressed, 1
Mov IsBlueButtomPressed, 0
Jmp EndClickButtom2
ClickContinue:
Cmp IsPostCMDOpen, 1
Jnz ClickContinue2
Mov Eax, DWord Ptr Ds:[7B8CC80H] ; Cords of mouse right and left
Cmp Eax, 22AH ;left side
Jl ClickContinue2
Cmp Eax, 25EH ; right side
Jge ClickContinue2
Mov Ecx, DWord Ptr Ds:[7B8CC7CH] ; Cords of mouse up and down
Cmp Ecx, 0EBH ;up (altura)
Jl ClickContinue2
Cmp Ecx, 0F8H ;down (hacia abajo)
Jge ClickContinue2
Cmp IsSendButtomPressed, 1
Je EndClickButtom2
Mov IsBlueButtomPressed, 1
Mov IsRedButtomPressed, 0
Jmp EndClickButtom2
ClickContinue2:
Mov Eax, DWord Ptr Ds:[7B8CC80H] ; Cords of mouse right and left
Cmp Eax, 1D4H ;left side
Jl EndClickButtom2
Cmp Eax, 208H ; right side
Jge EndClickButtom2
Mov Ecx, DWord Ptr Ds:[7B8CC7CH] ; Cords of mouse up and down
Cmp Ecx, 64H ;up (altura)
Jl EndClickButtom2
Cmp Ecx, 70H ;down (hacia abajo)
Jge EndClickButtom2
Mov IsPostCMDOpen, 1
Mov IsFirstTimeOpen, 1
Mov Eax, 1
Jmp EndClickButtom
EndClickButtom2:
Mov DWord Ptr Ds:[610270H], 0
EndClickButtom:
Mov Esp, Ebp
Pop Ebp
Ret
ClickOnButtom EndP
OffsetCopy Proc
Mov Eax, DWord Ptr Ss:[Ebp + 8]
Xor Ecx, Ecx
Looper:
Xor Edx, Edx
Mov Dl, Byte Ptr Ds:[Eax + Ecx]
Mov Byte Ptr Ds:[TextBuffer + Ecx], Dl
Add Ecx, 1
Cmp Ecx, 27H
Je EndCopy
Jmp Looper
EndCopy:
Ret
OffsetCopy EndP
ClearMenus Proc
Push Ebp
Mov Ebp, Esp
Mov DWord Ptr Ds:[70BFE0H], 0
Mov IsPostCMDOpen, 0
Mov IsRedButtomPressed, 0
Mov IsBlueButtomPressed, 0
Mov IsSendButtomPressed, 0
Push 0
Mov Ecx, DWord Ptr Ds:[7B8D174H]
Mov Edx, DWord Ptr Ds:[Ecx]
Mov Ecx, DWord Ptr Ds:[7B8D174H]
Call DWord Ptr Ds:[Edx + 4CH] ;empty buffer of writte bar
Mov Esp, Ebp
Pop Ebp
Ret
ClearMenus EndP
FixMenuClick Proc
Push Ebp
Mov Ebp, Esp
Cmp IsFirstTimeOpen, 1
Jnz Continue
Mov Byte Ptr Ds:[00588F64H], 0EBH ;make Offset jump to Jmp
Jmp StepUP
Continue:
Cmp IsPostCMDOpen, 1 ;si esta el post menu abierto, tonces salta a donde lo cerramos
Je Step1
Cmp Ecx, 1 ;esto esta para no borrar nada, osea el primer click al menu
Je StepUP
Cmp DWord Ptr Ds:[70BFE0H], 1 ;esto esta si haces click en el character menu con el menu abierto
Jnz Step2
Step1:
Push 0
Mov Ecx, DWord Ptr Ds:[7B8D174H]
Mov Edx, DWord Ptr Ds:[Ecx]
Mov Ecx, DWord Ptr Ds:[7B8D174H]
Call DWord Ptr Ds:[Edx + 4CH] ;empty buffer of writte bar
Mov Byte Ptr Ds:[00588F64H], 0EBH ;make Offset jump to Jmp
Mov DWord Ptr Ds:[70BFE0H], 0
Mov IsPostCMDOpen, 0
Jmp StepUP
Step2:
Mov Byte Ptr Ds:[00588F64H], 074H ;make Offset jump to je
Mov DWord Ptr Ds:[70BFE0H], 0
Mov IsPostCMDOpen, 0
StepUP:
Mov Ecx, DWord Ptr Ds:[7B8D19CH]
Cmp Edx, 1
Je GuildWindow
Cmp Edx, 2
Je PartyWindow
Cmp Edx, 3
Je CharacterWindow
Cmp Edx, 4
Je InventoryWindow
Cmp Edx, 5
Je FriendWindow
Cmp Edx, 6
Je CommandWindow
Jmp EndMenuFix
GuildWindow:
Push 10H
Mov Byte Ptr Ds:[7B8CB28H], 0
Mov DWord Ptr Ds:[70BFE0H], 0
Mov IsPostCMDOpen, 0
Call IsWindowOpen
Mov Edx, 1
Jmp EndMenuFix
PartyWindow:
Push 4
Mov Byte Ptr Ds:[7B8CB28H], 0
Mov DWord Ptr Ds:[70BFE0H], 0
Mov IsPostCMDOpen, 0
Call IsWindowOpen
Mov Edx, 2
Jmp EndMenuFix
CharacterWindow:
Push 2000000H
Mov Byte Ptr Ds:[7B8CB28H], 0
Call IsWindowOpen
Mov Edx, 3
Jmp EndMenuFix
InventoryWindow:
Push 4000000H
Mov Byte Ptr Ds:[7B8CB28H], 0
Mov DWord Ptr Ds:[70BFE0H], 0
Mov IsPostCMDOpen, 0
Call IsWindowOpen
Mov Edx, 4
Jmp EndMenuFix
FriendWindow:
Push Ebx
Mov Byte Ptr Ds:[7B8CB28H], 0
Mov DWord Ptr Ds:[70BFE0H], 0
Mov IsPostCMDOpen, 0
Call IsWindowOpen
Mov Edx, 5
Jmp EndMenuFix
CommandWindow:
Push 200H
Mov Byte Ptr Ds:[7B8CB28H], 0
Mov DWord Ptr Ds:[70BFE0H], 0
Mov IsPostCMDOpen, 0
Call IsWindowOpen
Mov Edx, 6
EndMenuFix:
Mov IsFirstTimeOpen, 0
Mov Esp, Ebp
Pop Ebp
Ret
FixMenuClick EndP
,
