[Tut] HeadShot!

[lupetto]

1) Make two buttons: one of them On and the other one of them Off
2) In the On button, put this in:

NOP(&H4A3904, &H31)
3) In the Off button, put this:

NOP(&H4A3904, &H85)

Bye ;)

[landerman01]

i do this so:

add a new module

Public Function WriteASM(ByVal Address As Long, ByVal ASM As String)
Dim i As Integer
Dim i2 As Integer

i2 = 1
While i < (Len(ASM) / 2)
Call NOP(Address + i, Val("&H" & Mid$(ASM, i2, 2)))
i = i + 1
i2 = i2 + 2
End While
End Function

then i put this in a timer:

Call WriteASM(&H4A3904, "31C0")


and it works fine for me:D:D:D:D