Oyunlarda yapılan işlemlerde log tutmak / mem.Read içerir

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Uzman Üye
Katılım
3 Tem 2016
Mesajlar
203
Tepki puanı
2
9 HİZMET YILI
Anlatım yapmaya üşendim daha sonradan anlatı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
Paylaştığım source'da mem.read attığım oyun S4League'dir.
source geçen yıldan kalma addyler fix, s4 için "Log Saver" yapmak isteyen source'da olan valuelardan yardım alarak memory-update atabilir credits eklemesi şartıyla ancak eğer mem update atamıyorsanız özel mesaj atarak benden yardım alabilirsiniz.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst