Bem-vindo ao Fórum!

Registre-se agora mesmo e fique por dentro da maior comunidade de Cheats do Brasil!

'Lenneth

Source:Biohazard 3 Taiwan - Todos Os Itens no Box

Recommended Posts

Public Sub Itens01()

       Dim valor As Byte = 1
       For OffsetItens As Integer = &H28 To &H28 + &H53 * 2 Step 2
           WritePointerByte("bio3_pc", &H44F084, valor, OffsetItens)
           valor += 1
       Next
       For Quantidade As Integer = &H4B9 To &H4B9 + 53 * 2 Step 2
           WritePointerByte("bio3_pc", &H44F084, 99, Quantidade)
       Next
   End Sub

Credits: 'Poring

  • Like 1

07f43b183f12a1e0d6726885260d03628c066eca

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.