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