Godmode help!

[NitroSmily]

Hey guys, I have one last problem before I release my new hack and I have a problem with godmode.
You see I have the address and value as 99999, but the value goes back to 100 whenever I set it to 99999.
So I tried to make it freeze the value at some point, but it doesn't seem to work
Does anyone have any suggestions?

   
    Sub GodActi()
        If godmode = True Then godmode = True Else godmode = False
    End Sub

 Dim godmode As Boolean = False
    Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
        hotkey1 = GetAsyncKeyState(Keys.NumPad7)
        If GetAsyncKeyState(Keys.NumPad7) Then GodActi()
        If godmode = True Then
            MW3.Process_Handle("iw5sp")
            MW3.WriteInteger(&H1196C28, 9999999) 'Health    <-----Value
        End If
    End Sub

[Geometrical]

Sub GodActi()
If godmode = True Then godmode = True Else godmode = False
End Sub

Dim godmode As Boolean = False
Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
hotkey1 = GetAsyncKeyState(Keys.NumPad7)
If GetAsyncKeyState(Keys.NumPad7) Then GodActi()
If godmode = True Then
MW3.Process_Handle("iw5sp")
MW3.WriteInteger(&H1196C28, 9999999) 'Health <-----Value
End If
End Sub

You could set it to -9999 so your dead and can't die again, It's another way for godmode, but the screen is really bloody :/

[MarkHC]

I'm not good with VB.. but I think this line "hotkey1 = GetAsyncKeyState(Keys.NumPad7)" Does nothing.. you might consider removing it.. Back to the problem.. does it work with CE?

[NitroSmily]

You could set it to -9999 so your dead and can't die again, It's another way for godmode, but the screen is really bloody :/

Didn't work
When you activate it, you go down in death mode wiithout loosing or anything. You are just downed and can't move until someone hits you and you are back up with 100 in health

---------- Post added at 10:01 AM ---------- Previous post was at 09:48 AM ----------

Yes it works with CE, and I am aware of that "hotkey1 = GetAsyncKeyState(Keys.NumPad7)" doesn't work

[inmate]

Are you sure that you are the host ? cuz godmode only work when you are the host.

cheers

[Geometrical]

Well, no one knows, best ask @Jorndel

[NitroSmily]

Are you sure that you are the host ? cuz godmode only work when you are the host.

cheers

Can you read?
It's survival mode, you don't need to be host if you are playing solo.

[Horror]

Can you read?
It's survival mode, you don't need to be host if you are playing solo.

Ah, so thats why. Indeed, putting value on 99999 in SP, wont work. U have to freeze it to 100.

Sub GodActi()
        If godmode = True Then godmode = True Else godmode = False
    End Sub

 Dim godmode As Boolean = False
    Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
        hotkey1 = GetAsyncKeyState(Keys.NumPad7)
        If GetAsyncKeyState(Keys.NumPad7) Then GodActi()
        If godmode = True Then
            MW3.Process_Handle("iw5sp")
            MW3.WriteInteger(&H1196C28, 100) 'Health    <-----Value
        End If
    End Sub

And put Timer7 Interval on like 50-100 ... thats freezing on 100 ...

[NitroSmily]

Ah, so thats why. Indeed, putting value on 99999 in SP, wont work. U have to freeze it to 100.

Sub GodActi()
        If godmode = True Then godmode = True Else godmode = False
    End Sub

 Dim godmode As Boolean = False
    Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
        hotkey1 = GetAsyncKeyState(Keys.NumPad7)
        If GetAsyncKeyState(Keys.NumPad7) Then GodActi()
        If godmode = True Then
            MW3.Process_Handle("iw5sp")
            MW3.WriteInteger(&H1196C28, 100) 'Health    <-----Value
        End If
    End Sub

And put Timer7 Interval on like 50-100 ... thats freezing on 100 ...

It crashes the game

[Horror]

It crashes the game

And 99999 doesnt ?
Then idk Should work

[Jorndel]

I just say this for the hot-key thing:


For the HP value.
Write: -1 (That would be god-mode)
<|OR|>
Write: 9999 (That would be god modem nothing in-game does that much damage and you survive the hit :|)

[gteuk]

This is mine and it works fine, at least had no complaints

Public Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If gteuk.Process_Handle("iw5sp") Then
            If Timer1.Enabled = True Then
                If CheckBox1.Checked = True Then
                    gteuk.WriteInteger(&H1196C28, 500)
                    gteuk.WriteInteger(&H1196C2C, 500)
             
                End If

---------- Post added at 06:25 PM ---------- Previous post was at 06:19 PM ----------

my laser site in SP as this one

    Private Sub Button3_Click_1(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If gteuk.Process_Handle("iw5sp") Then
            gteuk.WriteInteger(&H1380DF7, 191)
        Else
            Label1.Text = "MW3 Not Running"
            Label1.ForeColor = Color.AliceBlue
        End If
    End Sub