speedo

/* 1.16 ---------- */
#define HOOK                       0x0002fbd8
#define FLOAT_0_5                  0x00013AC8
#define FLOAT_0_0                  0x00013C58
#define FLOAT_1_0                  0x00015FC8
#define FLOAT_2_0                  0x0009B384
#define GET_ENTITY_SPEED           0x0039C6E0
#define _SET_TEXT_ENTRY            0x003B6C40
#define _DRAW_TEXT                 0x003B6C60
#define ADD_TEXT_COMPONENT_FLOAT   0x003B6EB8
#define _ADD_TEXT_COMPONENT_STRING 0x003B6F1C
#define SET_TEXT_SCALE             0x003B804C
#define SET_TEXT_COLOUR            0x003B8060
#define SET_TEXT_CENTRE            0x003B8098
#define SET_TEXT_WRAP              0x003B80EC
#define SET_TEXT_FONT              0x003B8114
#define SET_TEXT_DROPSHADOW        0x003B8138
#define GET_VEHICLE_PED_IS_USING   0x003FA0A8
#define IS_PLAYER_PLAYING          0x0041FFA8
#define PLAYER_ID                  0x00421560
#define PLAYER_PED_ID              0x004215A4
#define SET_VEHICLE_ALARM          0x00440718

/* 1.16 ---------- */
#define PATCHES   0x01b69600

/* ---------- */
#define STRING1 "GEN_BIGM_NUM"
#define STRING2 "Speedo: "
#define STRING3 "-=SPEEDO=-"
#define FLOAT1  0x3ec00000
#define FLOAT2  0x3d000000
#define FLOAT3  0x00000000
/* ---------- */

#define PROLOG() \
    std   0, -0x100(1); \
    mflr  0; \
    std   1, -0xF8(1); \
    std   2, -0xF0(1); \
    std   3, -0xE8(1); \
    std   4, -0xE0(1); \
    std   5, -0xD8(1); \
    std   6, -0xD0(1); \
    std   7, -0xC8(1); \
    std   8, -0xC0(1); \
    std   9, -0xB8(1); \
    std   10, -0xB0(1); \
    std   11, -0xA8(1); \
    std   12, -0xA0(1); \
    std   13, -0x98(1); \
    std   14, -0x90(1); \
    std   15, -0x88(1); \
    std   16, -0x80(1); \
    std   17, -0x78(1); \
    std   18, -0x70(1); \
    std   19, -0x68(1); \
    std   20, -0x60(1); \
    std   21, -0x58(1); \
    std   22, -0x50(1); \
    std   23, -0x48(1); \
    std   24, -0x40(1); \
    std   25, -0x38(1); \
    std   26, -0x30(1); \
    std   27, -0x28(1); \
    std   28, -0x20(1); \
    std   29, -0x18(1); \
    std   30, -0x10(1); \
    std   31, -0x8(1); \
    std   0, 0x10(1); \
    stdu  1, -0x1d0(1); \
    std   0, 0x1e0(1); \

#define EPILOG() \
    addi  1, 1, 0x1d0; \
    ld    1, -0xF8(1); \
    ld    2, -0xF0(1); \
    ld    3, -0xE8(1); \
    ld    4, -0xE0(1); \
    ld    5, -0xD8(1); \
    ld    6, -0xD0(1); \
    ld    7, -0xC8(1); \
    ld    8, -0xC0(1); \
    ld    9, -0xB8(1); \
    ld    10, -0xB0(1); \
    ld    11, -0xA8(1); \
    ld    12, -0xA0(1); \
    ld    13, -0x98(1); \
    ld    14, -0x90(1); \
    ld    15, -0x88(1); \
    ld    16, -0x80(1); \
    ld    17, -0x78(1); \
    ld    18, -0x70(1); \
    ld    19, -0x68(1); \
    ld    20, -0x60(1); \
    ld    21, -0x58(1); \
    ld    22, -0x50(1); \
    ld    23, -0x48(1); \
    ld    24, -0x40(1); \
    ld    25, -0x38(1); \
    ld    26, -0x30(1); \
    ld    27, -0x28(1); \
    ld    28, -0x20(1); \
    ld    29, -0x18(1); \
    ld    30, -0x10(1); \
    ld    31, -0x8(1); \
    ld    0, 0x10(1); \
    mtlr  0; \
    ld    0, -0x100(1); \

/* ---------- */
.org FLOAT_0_5
float_0_5:

/* ---------- */
.org FLOAT_0_0
float_0_0:

/* ---------- */
.org FLOAT_1_0
float_1_0:

/* ---------- */
.org HOOK
hook:
    bl    speedo

/* ---------- */
.org FLOAT_2_0
float_2_0:

/* ---------- */
.org GET_ENTITY_SPEED
get_entity_speed:

/* ---------- */
.org _SET_TEXT_ENTRY
set_text_entry:

/* ---------- */
.org _DRAW_TEXT
draw_text:

/* ---------- */
.org ADD_TEXT_COMPONENT_FLOAT
add_text_component_float:

/* ---------- */
.org _ADD_TEXT_COMPONENT_STRING
add_text_component_string:

/* ---------- */
.org SET_TEXT_SCALE
set_text_scale:

/* ---------- */
.org SET_TEXT_COLOUR
set_text_colour:

/* ---------- */
.org SET_TEXT_CENTRE
set_text_centre:

/* ---------- */
.org SET_TEXT_WRAP
set_text_wrap:

/* ---------- */
.org SET_TEXT_FONT
set_text_font:

/* ---------- */
.org SET_TEXT_DROPSHADOW
set_text_dropshadow:

/* ---------- */
.org GET_VEHICLE_PED_IS_USING
get_vehicle_ped_is_using:

/* ---------- */
.org IS_PLAYER_PLAYING
is_player_playing:

/* ---------- */
.org PLAYER_ID
player_id:

/* ---------- */
.org PLAYER_PED_ID
player_ped_id:

/* ---------- */
.org SET_VEHICLE_ALARM
set_vehicle_alarm:

/* ---------- */
.org PATCHES
speedo:
    PROLOG()
    bl    player_id
    nop
    bl    is_player_playing
    nop
    cmpwi 3, 1
    bne   notplaying
    nop
isplaying:
    li    3, 0
    bl    set_text_font
    nop
    lis   3, float_0_5@h
    lfs   1, float_0_5@l(3) // 0.5
    fmr   2, 1
    bl    set_text_scale
    nop
    li    3, 0x90 // r
    mr    4, 3    // g
    li    5, 0xA  // b
    li    6, 0x20 // a
    bl    set_text_colour
    nop
    lis   3, float_0_0@h
    lfs   1, float_0_0@l(3) // 0.0
    lfs   2, float_1_0@l(3) // 1.0
    bl    set_text_wrap
    nop
    li    3, 0
    bl    set_text_centre
    nop
    li    3, 0
    mr    4, 3
    mr    5, 4
    mr    6, 5
    mr    7, 6
    bl    set_text_dropshadow
    nop
    lis   3, string1@h
    ori   3, 3, string1@l // "GEN_BIGM_NUM"
    bl    set_text_entry
    nop
speedometer:
    lis   3, string2@h
    ori   3, 3, string2@l // "Speed: "
    bl    add_text_component_string
    nop
    bl    player_ped_id
    nop
    bl    get_vehicle_ped_is_using
    nop
    cmpwi 3, 0
    lis   4, float_0_0@h
    lfs   1, float_0_0@l(4) // 0.00
    beq   novehicle
    nop
get_speed:
    bl    get_entity_speed
    nop
    lis   3, float_2_0@h
    lfs   2, float_2_0@l(3) // 2.00
    fmuls 1, 2, 1 // speed * 2.00
novehicle:
    li    4, 1
    bl    add_text_component_float
    nop
    lis   3, float1@h
    lfs   1, float1@l(3) // x 0.375
    lfs   2, float2@l(3) // y 0.03125
    bl    draw_text
    nop
notplaying:
    EPILOG()
    blr
    .long 0x0

string1:
  .string STRING1
  .align 4
string2:
  .string STRING2
  .align 4
string3:
  .string STRING3
  .align 4
float1:
  .long FLOAT1
float2:
  .long FLOAT2
float3:
  .long FLOAT3
  .align 4