Ghosts 1.07 Get Map Name Get Game Mode Offset + Code (VB)

'Coded By BaSs_HaXoR
'To Convert to C# just go here...http://www.developerfusion.com/tools/convert/vb-to-csharp/

Private Sub Getmapnameandgamemode_Tick(sender As Object, e As EventArgs) Handles Getmapnameandgamemode.Tick
        Dim getGameMode As Byte() = New Byte(16) {}
        PS3.GetMemory(&H145E850, getGameMode)
        Dim GameMode As String = Encoding.ASCII.GetString(getGameMode)
        If GameMode.Contains("war") Then
            LabelItem7.Text = "GameMode:" + " Team Deathmatch |"
        ElseIf GameMode.Contains("dm") Then
            LabelItem7.Text = "GameMode:" + " Free for All |"
        ElseIf GameMode.Contains("gun") Then
            LabelItem7.Text = "GameMode:" + " Gun game |"
        ElseIf GameMode.Contains("sd") Then
            LabelItem7.Text = "GameMode:" + " Search and Destroy |"
        ElseIf GameMode.Contains("dom") Then
            LabelItem7.Text = "GameMode:" + " Domination |"
        ElseIf GameMode.Contains("conf") Then
            LabelItem7.Text = "GameMode:" + " Kill Confirmed |"
        ElseIf GameMode.Contains("sr") Then
            LabelItem7.Text = "GameMode:" + " Search and Rescue |"
        ElseIf GameMode.Contains("grind") Then
            LabelItem7.Text = "GameMode:" + " Grind |"
        ElseIf GameMode.Contains("blitz") Then
            LabelItem7.Text = "GameMode:" + " Blitz |"
        ElseIf GameMode.Contains("cranked") Then
            LabelItem7.Text = "GameMode:" + " Cranked |"
        ElseIf GameMode.Contains("infect") Then
            LabelItem7.Text = "GameMode:" + " Infected |"
        ElseIf GameMode.Contains("sotf") Then
            LabelItem7.Text = "GameMode:" + " Hunted |"
        ElseIf GameMode.Contains("dem") Then
            LabelItem7.Text = "GameMode:" + " Demolition |"
        ElseIf GameMode.Contains("horde") Then
            LabelItem7.Text = "GameMode:" + " Safeguard |"
        ElseIf GameMode.Contains("sotf_ffa") Then
            LabelItem7.Text = "GameMode:" + " Hunted FFA |"
        Else
            LabelItem7.Text = "GameMode:" + " Not in game |"
        End If
        Dim getMapName As Byte() = New Byte(16) {}
        PS3.GetMemory(&H145E810, getMapName)
        Dim MapName As String = Encoding.ASCII.GetString(getMapName)
        If MapName.Contains("mp_prisonbreak") Then
            LabelItem6.Text = "    | Map:" + " Prison Break |"
        ElseIf MapName.Contains("mp_dart") Then
            LabelItem6.Text = "    | Map:" + " Octane |"
        ElseIf MapName.Contains("mp_lonestar") Then
            LabelItem6.Text = "    | Map:" + " Tremor |"
        ElseIf MapName.Contains("mp_frag") Then
            LabelItem6.Text = "    | Map:" + " Freight |"
        ElseIf MapName.Contains("mp_snow") Then
            LabelItem6.Text = "    | Map:" + " Whiteout |"
        ElseIf MapName.Contains("mp_fahrenheit") Then
            LabelItem6.Text = "    | Map:" + " Stormfront |"
        ElseIf MapName.Contains("mp_hasima") Then
            LabelItem6.Text = "    | Map:" + " Siege |"
        ElseIf MapName.Contains("mp_warhawk") Then
            LabelItem6.Text = "    | Map:" + " Warhawk |"
        ElseIf MapName.Contains("mp_sovereign") Then
            LabelItem6.Text = "    | Map:" + " Sovereign |"
        ElseIf MapName.Contains("mp_zebra") Then
            LabelItem6.Text = "    | Map:" + " Overlord |"
        ElseIf MapName.Contains("mp_skeleton") Then
            LabelItem6.Text = "    | Map:" + " Stonehaven |"
        ElseIf MapName.Contains("mp_chasm") Then
            LabelItem6.Text = "    | Map:" + " Chasm |"
        ElseIf MapName.Contains("mp_flooded") Then
            LabelItem6.Text = "    | Map:" + " Flooded |"
        ElseIf MapName.Contains("mp_strikezone") Then
            LabelItem6.Text = "    | Map:" + " Strikezone |"
        ElseIf MapName.Contains("mp_fall") Then
            LabelItem6.Text = "    | Map:" + " Free Fall |"
        Else
            LabelItem6.Text = "    | Map:" + " ? |"
        End If
        Getmapnameandgamemode.Start()
    End Sub