SpecSpeed() {
    if(!checkHandles())
        return -1
    dwAddr := readDWORD(hGTA, getModuleBaseAddress("grand_theft_auto_san_andreas.dll", hGTA) + 0x76F3B8)
    
    fSpeedX := readMem(hGTA, dwAddr + ADDR_VEHICLE_X, 4, "float")
    fSpeedY := readMem(hGTA, dwAddr + ADDR_VEHICLE_Y, 4, "float")
    fSpeedZ := readMem(hGTA, dwAddr + ADDR_VEHICLE_Z, 4, "float")
    
    fVehicleSpeed := ((sqrt((fSpeedX * fSpeedX) + (fSpeedY * fSpeedY) + (fSpeedZ * fSpeedZ))) * 100) * 1.43

    return fVehicleSpeed
}

global ADDR_SAMP_INCHAT_PTR := 0x20DFFC
global ADDR_SAMP_INCHAT_PTR_OFF := 0x55

isInChat() {
    if(!checkHandles())
        return -1
    
    dwPtr := dwSAMP + ADDR_SAMP_INCHAT_PTR
    dwAddress := readDWORD(hGTA, dwPtr) + ADDR_SAMP_INCHAT_PTR_OFF
    if(ErrorLevel) {
        ErrorLevel := ERROR_READ_MEMORY
        return -1
    }
    
    dwInChat := readDWORD(hGTA, dwAddress)
    if(ErrorLevel) {
        ErrorLevel := ERROR_READ_MEMORY
        return -1
    }
    
    ErrorLevel := ERROR_OK
    if(dwInChat > 0) {
        return true
    } else {
        return false
    }
}

global FUNC_SAMP_SHOWDIALOG := 0x668C0
global SAMP_DIALOG_STRUCT_PTR := 0x20DFAC

showDialog(style, caption, text, button1, button2 := "", id := 1) {
    style += 0
    style := Floor(style)
    id += 0
    id := Floor(id)
    caption := "" caption
    text := "" text
    button1 := "" button1
    button2 := "" button2

    if (id < 0 || id > 32767 || style < 0 || style > 5 || StrLen(caption) > 64 || StrLen(text) > 4096 || StrLen(button1) > 10 || StrLen(button2) > 10)
  return false

    if (!checkHandles())
  return false

    dwFunc := dwSAMP + FUNC_SAMP_SHOWDIALOG
    sleep 200
    dwAddress := readDWORD(hGTA, dwSAMP + SAMP_DIALOG_STRUCT_PTR)
    if (ErrorLevel || !dwAddress) {
  ErrorLevel := ERROR_READ_MEMORY
  return false
    }

    writeString(hGTA, pParam5, caption)
    if (ErrorLevel)
  return false
    writeString(hGTA, pParam1, text)
    if (ErrorLevel)
  return false
    writeString(hGTA, pParam5 + 512, button1)
    if (ErrorLevel)
  return false
    writeString(hGTA, pParam5+StrLen(caption) + 1, button2)
    if (ErrorLevel)
  return false

    ;mov + 7 * push + call + retn
    dwLen := 5 + 7 * 5 + 5 + 1
    VarSetCapacity(injectData, dwLen, 0)

    NumPut(0xB9, injectData, 0, "UChar")       ;0 + 1    ;mov ecx
    NumPut(dwAddress, injectData, 1, "UInt")      ;1 + 4
    NumPut(0x68, injectData, 5, "UChar")       ;5 + 1    ;push send
    NumPut(1, injectData, 6, "UInt")        ;6 + 4
    NumPut(0x68, injectData, 10, "UChar")       ;10 + 1    ;push button2
    NumPut(pParam5 + StrLen(caption) + 1, injectData, 11, "UInt")    ;11 + 4
    NumPut(0x68, injectData, 15, "UChar")       ;15 + 1    ;push button1
    NumPut(pParam5 + 512, injectData, 16, "UInt")     ;16 + 4
    NumPut(0x68, injectData, 20, "UChar")       ;20 + 1    ;push text
    NumPut(pParam1, injectData, 21, "UInt")       ;21 + 4
    NumPut(0x68, injectData, 25, "UChar")       ;25 + 1    ;push caption
    NumPut(pParam5, injectData, 26, "UInt")       ;26 + 4
    NumPut(0x68, injectData, 30, "UChar")       ;30 + 1    ;push style
    NumPut(style, injectData, 31, "UInt")       ;31 + 4
    NumPut(0x68, injectData, 35, "UChar")       ;35 + 1    ;push id
    NumPut(id, injectData, 36, "UInt")        ;36 + 4

    NumPut(0xE8, injectData, 40, "UChar")       ;40 + 1 ;call
    offset := dwFunc - (pInjectFunc + 45)
    NumPut(offset, injectData, 41, "Int")       ;41 + 4
    NumPut(0xC3, injectData, 45, "UChar")       ;45 + 1    ;retn

    writeRaw(hGTA, pInjectFunc, &injectData, dwLen)
    if (ErrorLevel)
  return false

    hThread := createRemoteThread(hGTA, 0, 0, pInjectFunc, 0, 0, 0)
    if (ErrorLevel)
  return false

    waitForSingleObject(hThread, 0xFFFFFFFF)
    closeProcess(hThread)

    return true
}