#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=icon.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <INet.au3>
#include <String.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>

Global $version = "1.5", $path = IniRead(@ScriptDir & "\save.ini","value","path","no")

Opt("WinTitleMatchMode", 2)
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)
TraySetToolTip("CoD4-PS Serverbrowser " & $version)

If $path = "no" Then
    $path = FileOpenDialog("COD4-PS Serverbrowser","","CoD4-MP (iw3mp.exe)")
    If $path = "no" Then Exit
    IniWrite(@ScriptDir & "\save.ini","value","path",$path)
EndIf

Global Const $NM_FIRST = 0
Global Const $NM_DBLCLK = -3
FileInstall("Banner.jpg",@TempDir & "\Banner.jpg")
SplashImageOn("COD4-PS loading...",@TempDir & "\Banner.jpg",718,125,-1,-1,1)
$src = StringReplace(_INetGetSource("http://www.private-servers.info/call-of-duty-4/api"),"""","")
$src = StringReplace($src,@CRLF,"")
$ip = _StringBetween($src,"<ip>","</ip>")
$cntry = _StringBetween($src,"<type>","</type>")
$rating = _StringBetween($src,"<rating>","</rating>")
$svname = _StringBetween($src,"<name>","</name>")
$pl = _StringBetween($src,"<player>","</player>")
SplashOff()

$gui = GUICreate("COD4-Private Server Addon " & $version,500,500)
$banner = GUICtrlCreatePic(@TempDir & "\Banner.jpg",0,0,500,75)
$list = GUICtrlCreateListView("IP|Modus|Bewertung|Name|Spieler",0,75,500,500-75-40,BitOr($LVS_REPORT, $LVS_SHOWSELALWAYS))
_GUICtrlListView_SetColumnWidth($list, 0, 130)
_GUICtrlListView_SetColumnWidth($list, 2, 50)
_GUICtrlListView_SetColumnWidth($list, 3, 160)
global $hLVHandle = GUICtrlGetHandle($list)
Opt("GUIDataSeparatorChar","§")
For $i = 0 To UBound($ip)-1
    GUICtrlCreateListViewItem($ip[$i] & "§" & $cntry[$i] & "§" & $rating[$i] & "§" & $svname[$i] & "§" & $pl[$i],$list)
Next
$nozomb = GUICtrlCreateCheckbox("Zombie",100,470,50,25)
If IniRead(@ScriptDir & "\save.ini","value","zomb",1) = 1 Then GUICtrlSetState(-1,$GUI_CHECKED)
$tdm = GUICtrlCreateCheckbox("TDM",165,470,50,25)
If IniRead(@ScriptDir & "\save.ini","value","tdm",1) = 1 Then GUICtrlSetState(-1,$GUI_CHECKED)
$hq = GUICtrlCreateCheckbox("HQ",220,470,50,25)
If IniRead(@ScriptDir & "\save.ini","value","hq",1) = 1 Then GUICtrlSetState(-1,$GUI_CHECKED)
$hardcore = GUICtrlCreateCheckbox("Harcore",275,470,65,25)
If IniRead(@ScriptDir & "\save.ini","value","hc",1) = 1 Then GUICtrlSetState(-1,$GUI_CHECKED)
$sab = GUICtrlCreateCheckbox("Sabotage",340,470,100,25)
If IniRead(@ScriptDir & "\save.ini","value","sab",1) = 1 Then GUICtrlSetState(-1,$GUI_CHECKED)
GUISetState()
GUIRegisterMsg(0x004E, "_DoubleClickOnListView")
_GUICtrlListView_SetItemSelected($hLVHandle,0,True,False)
_GUICtrlListView_RegisterSortCallBack($hLVHandle)
HotKeySet("{f10}","igcall")
TrayTip("","Drück im Spiel 'F10'," & @crlf & "um zum nächsten Server zu verbinden",5000)
AdlibRegister("savecheck",500)
While 1
    $var1 = GUIGetMsg()
    Switch $var1
        Case $GUI_EVENT_CLOSE
            Exit
        Case $list
            _GUICtrlListView_SortItems($hLVHandle, GUICtrlGetState($list))
        Case $banner
            ShellExecute("http://www.private-servers.info/")
    EndSwitch
WEnd

Func savecheck()
    If GUICtrlRead($nozomb) = $GUI_CHECKED Then
        IniWrite(@ScriptDir & "\save.ini","value","zomb",1)
    Else
        IniWrite(@ScriptDir & "\save.ini","value","zomb",0)
    EndIf
    If GUICtrlRead($tdm) = $GUI_CHECKED Then
        IniWrite(@ScriptDir & "\save.ini","value","tdm",1)
    Else
        IniWrite(@ScriptDir & "\save.ini","value","tdm",0)
    EndIf
    If GUICtrlRead($hq) = $GUI_CHECKED Then
        IniWrite(@ScriptDir & "\save.ini","value","hq",1)
    Else
        IniWrite(@ScriptDir & "\save.ini","value","hq",0)
    EndIf
    If GUICtrlRead($hardcore) = $GUI_CHECKED Then
        IniWrite(@ScriptDir & "\save.ini","value","hc",1)
    Else
        IniWrite(@ScriptDir & "\save.ini","value","hc",0)
    EndIf
    If GUICtrlRead($sab) = $GUI_CHECKED Then
        IniWrite(@ScriptDir & "\save.ini","value","sab",1)
    Else
        IniWrite(@ScriptDir & "\save.ini","value","sab",0)
    EndIf
EndFunc

Func down ()
    ControlFocus("COD4-Private Server Addon","","SysListView321")
    ControlSend("COD4-Private Server Addon","","SysListView321","{DOWN}")
EndFunc

Func igcall()
    If Not WinActive("Call of Duty") Then Return 0
    $item = _GUICtrlListView_GetItemText($hLVHandle, _GUICtrlListView_GetSelectedIndices($hLVHandle),3)
    If GUICtrlRead($nozomb) = $GUI_UNCHECKED Then
        While StringInStr($item,"zomb") Or StringInStr($item,"undead")
            down()
            $item = _GUICtrlListView_GetItemText($hLVHandle, _GUICtrlListView_GetSelectedIndices($hLVHandle),3)
        WEnd
    EndIf
    If GUICtrlRead($tdm) = $GUI_UNCHECKED Then
        While StringInStr($item,"tdm") Or StringInStr($item,"team d")
            down()
            $item = _GUICtrlListView_GetItemText($hLVHandle, _GUICtrlListView_GetSelectedIndices($hLVHandle),3)
        WEnd
    EndIf
    If GUICtrlRead($hq) = $GUI_UNCHECKED Then
        While StringInStr($item,"hq") Or StringInStr($item,"headq")
            down()
            $item = _GUICtrlListView_GetItemText($hLVHandle, _GUICtrlListView_GetSelectedIndices($hLVHandle),3)
        WEnd
    EndIf
    If GUICtrlRead($hardcore) = $GUI_UNCHECKED Then
        While StringInStr($item,"HC") Or StringInStr($item,"hardc")
            down()
            $item = _GUICtrlListView_GetItemText($hLVHandle, _GUICtrlListView_GetSelectedIndices($hLVHandle),3)
        WEnd
    EndIf
    If GUICtrlRead($sab) = $GUI_UNCHECKED Then
        While StringInStr($item,"sab")
            down()
            $item = _GUICtrlListView_GetItemText($hLVHandle, _GUICtrlListView_GetSelectedIndices($hLVHandle),3)
        WEnd
    EndIf
    $item = _GUICtrlListView_GetItemText($hLVHandle, _GUICtrlListView_GetSelectedIndices($hLVHandle))
    ClipPut("connect " & $item)
    Send("{^}s")
    Sleep(250)
    Send("{BS}{BS}connect " & $item & "{ENTER}")
    down()
EndFunc

func onclick($item)
    $spl = StringSplit($item,"§")
    ClipPut("connect " & $spl[1])
    FileChangeDir(StringReplace($path,"iw3mp.exe",""))
    If not ProcessExists("iw3mp.exe") Then ShellExecute($path,"+connect " & $spl[1])
    down()
EndFunc


Func _DoubleClickOnListView($hWndGUI, $MsgID, $wParam, $lParam)
    Local $tagNMHDR, $event, $hwndFrom, $code
    $tagNMHDR = DllStructCreate("int;int;int", $lParam)
    If @error Then Return
    $event = DllStructGetData($tagNMHDR, 3)
    If $wParam = $list Then
        If $event = $NM_DBLCLK And GUICtrlRead(GUICtrlRead($list)) Then
            onclick(GUICtrlRead(GUICtrlRead($list)))
            Return 1
        EndIf
    EndIf
    $tagNMHDR = 0
    $event = 0
    $lParam = 0
EndFunc   ;==>_DoubleClickOnListView