THAAAAANKS AND OPK WORKS FINE!
this is my code of OPK
Call WriteAByte("warrock", &H517014, &H99)
Call WriteAByte("warrock", &H517024, &H99)
Call WriteAByte("warrock", &H516F0D, &H99)
Call WriteAByte("warrock", &H516F17, &H99)
somebody knows if it is done well or that otherwise can be done