- Yasaklandı
- #1
Anlatım yapmaya üşendim daha sonrada nanlatım eklenecek ancak fikir edinemniz için buraya bir source koyuyorum;
PHP:
While 1
Dim oaddy As Integer = ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4)
Dim taddy As Integer = ReadWritingMemory.ReadInteger("S4Client", &H126C470, 4)
Dim faddy As Integer = ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4)
If one = 0 Then
If ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 0 Then
cx7.conxline("Waiting for S4Client window..", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 4249654665 Then
cx7.conxline("S4Client window found!", 0)
one = 1
End If
End If
If asdfck = 0 Then
If ReadWritingMemory.ReadInteger("S4Client", &H126C470, 4) = 0 Then
cx7.conxline("Waiting for join a server", 0)
cx7.Slp(1500)
four = 1
Else
cx7.conxline("Server Selected!", 0)
cx7.Slp(1500)
asdfck = 1
four = 1
End If
End If
If asdfck = 1 Then
If ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 2 Then
cx7.conxline("[Died]", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 5 Then
cx7.conxline("[Stopped Moving]", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 6 Then
cx7.conxline("[Walking]", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 15 Then
cx7.conxline("[Running]", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 8 Then
cx7.conxline("[Jump]", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 9 Then
cx7.conxline("[Wall Jump]", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 26 Then
cx7.conxline("[Used Social Key]", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 27 Then
cx7.conxline("[Result Screen]", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 39 Then
cx7.conxline("[Left Click - Attack]", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 40 Then
cx7.conxline("[Right Click - Attack]", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 45 Then
cx7.conxline("[Jump Attack]", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 34 Then
cx7.conxline("[Skill]", 0)
ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 49 Then
cx7.conxline("[Sword Right Click - Attack]", 0)
ElseIf pa.Count < 0 Then
cx7.conxline("[END]", 0)
End If
End If
End While