Call functions, disableGreenTriangles, input, padEmulation

//by J16D
//Gta3Script by Link2012
//https://gtaforums.com/topic/876530-gta3script-toolchain/
//Call_functions

CONST_INT BYTE 1
CONST_INT WORD 2
CONST_INT DWORD 4
{
//CLEO_CALL disableGreenTriangles 0 ()
disableGreenTriangles:
LVAR_INT ptr
READ_MEMORY 0x53E20E BYTE 0 (ptr)
IF NOT ptr = 0x90
    WRITE_MEMORY 0x53E20E 5 0x90 TRUE
ELSE
    READ_MEMORY 0x53E1E0 BYTE 0 (ptr)
    IF NOT ptr = 0x90
        WRITE_MEMORY 0x53E1E0 5 0x90 TRUE
    ENDIF
ENDIF
CLEO_RETURN 0
}
{
//CLEO_CALL getInputType 0 (hInput) //0=joypad; 1=mouse
getInputType:
    LVAR_INT hInput
    READ_MEMORY 0xB6EC2E BYTE FALSE (hInput)
CLEO_RETURN 0 hInput
}
{
//CLEO_CALL padEmulation 0 /*scm key*/ 6   ///~k~~PED_LOCK_TARGET~
padEmulation:
    LVAR_INT scmKey //in
    LVAR_INT ptr iVal
    IF 4 > scmKey
        iVal = 0x80 //128
    ELSE
        iVal = 0xFF //255
    ENDIF
    ptr = scmKey * 0x2
    ptr += 0xB73458     // [word] Start of controls block (add 0x1AC for player 2).
    WRITE_MEMORY ptr WORD iVal FALSE
    //https://gtaforums.com/topic/194199-documenting-gta-sa-memory-addresses/page/36/?tab=comments#comment-1059674630
CLEO_RETURN 0
}