<BUY Command

offset 424EAF

; * Usage: <BUYXXXX:YYYY
; * XXXX = Amount of money required for purchase.
; * YYYY = Event to jump to if player does not have enough money.

MOV EAX, DWORD PTR DS:[4A5AD8]
ADD EAX, DWORD PTR DS:[4A5AE0]
CMP DWORD PTR DS:[EAX], 5955423C    ; Compare *(EAX) with the text string "<BUY".
JNE 424F33                          ; Failed to match.
MOV ECX, DWORD PTR DS:[4A5AE0]
ADD ECX, 4
PUSH ECX
CALL 421900                         ; Get argument 0 (purchase price).
ADD ESP, 4
CMP EAX, DWORD PTR DS:[49E181]
JLE 424EFC                          ; We have enough money.
MOV EDX, DWORD PTR DS:[4A5AE0]      ; Not enough money.
ADD EDX, 9
PUSH EDX
CALL 421900                         ; Get argument 1 (event to jump to).
ADD ESP, 4
PUSH EAX
CALL 421AF0                         ; Go to event.
ADD ESP, 4
JMP 4252A7
SUB DWORD PTR DS:[49E181], EAX      ; Take money.
ADD DWORD PTR DS:[4A5AE0], D        ; Continue script.
JMP 4252A7