Public Sub ScriptCommand(Opcode As Long, Arguments As String, Value As String)
Dim buf_pos As Integer
Dim ScriptBuf(200) As Byte
Dim i As Integer

    'memcpy(&ScriptBuf, &pScriptCommand->OpCode, 2); // Copy opcode to script buf.
    CopyMemory ScriptBuf(buf_pos), Opcode, 2
    buf_pos = 2

    For i = 1 To Len(Arguments)
        Select Case Mid(Arguments, i, 1)
            Case "i"
                ScriptBuf(buf_pos) = &H1
                buf_pos = buf_pos + 1
                CopyMemory ScriptBuf(buf_pos), CInt(Mid(Value, 1, 1)), 4
                buf_pos = buf_pos + 4
            Case "f"
            
            Case "v"
            
            Case "s"
            
            Case "z"
            
        End Select
    Next
    
    WriteProcessMemory GameData.ProcessID, &H1555355, ScriptBuf(0), buf_pos, 0

End Sub