Call Of Duty 2 Connecter (Open for Suggestions)

[Prodigy]

BTW, does any one know how I could add favorites to a drop down menu??

expandcollapse popup

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:\Documents and Settings\Administrator\Desktop\6960.ico
#AutoIt3Wrapper_outfile=Connect.exe
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
Dim $run
Dim $exit
Dim $status1
Dim $status2
Dim $input1
Dim $input2
Dim $status3
Dim $box
Dim $browse
Dim $folder
Dim $dir
Dim $var
Dim $poly
Dim $multi
Dim $ping
Dim $menu
Dim $pic



#include <GUIConstants.au3>

If FileExists(@DocumentsCommonDir & "\cod2dir2.ini") Then
    IniReadSection(@DocumentsCommonDir & "\cod2dir2.ini", "directory")
Else
    $dir = FileSelectFolder("Point to the Call of Duty 2 folder", "", "")
    IniWriteSection("cod2dir2.ini", "Directory", $dir)
    FileMove("cod2dir2.ini", @DocumentsCommonDir)
    FileMove("pic.jpg", @DocumentsCommonDir)
    FileMove("connect.exe", $dir,1)
    IniReadSection(@DocumentsCommonDir & "\cod2dir2.ini", "directory")
    msgbox(0,"this will only occur the first time","This will automatically create a shortcut for your connect script, use this shortcut to start the script")
    Blockinput(1)
    Send("{LWINDOWN}")
    Send("d")
    send("{LWINUP}")
    sleep(1000)
    mousemove(0,0,0)
    mouseclick("right")
    send("{down}")
    send("{down}")
    send("{down}")
    send("{down}")
    send("{down}")
    send("{down}")
    send("{right}")
    send("{down}")
    send("{enter}")
    sleep(1000)
    send($dir & "\connect.exe")
    send("{enter}")
    sleep(1000)
    send("connectscript")
    send("{enter}")
    blockinput(0)
    exit
EndIf



$box = GUICreate("Call of Duty 2 server connecter", 750, 350)
GUICtrlSetBkColor(-1, 000)
$pic = GUICtrlCreatePic(@DocumentsCommonDir & "\pic.jpg", 0, 0, 750, 350, $SS_NOTIFY)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetFont(13, 400)
$input1 = GUICtrlCreateInput("Ip-adress", 85, 85, 150, 30)
GUICtrlSetBkColor(-1, 0xff0000)
$input2 = GUICtrlCreateInput("Password", 85, 120, 150, 30)
GUICtrlSetBkColor(-1, 0xff0000)
$run = GUICtrlCreateButton("&Connect", 10, 300, 110, 30)
$exit = GUICtrlCreateButton("&Exit",620,300,110,30)
$poly = GUICtrlCreateCheckbox("", 85, 160)
GUICtrlSetBkColor(-1, 000);black
$multi = GUICtrlCreateCheckbox("", 85, 185)
GUICtrlSetBkColor(-1, 000) ; black
GUICtrlCreateLabel("Turn on Polygon Tweaks?", 105, 160)
GUICtrlSetBkColor(-1, 000)
GUICtrlSetColor(-1, 0xff0000)   ; Red
GUICtrlCreateLabel("Turn on multigpu?", 105, 185)
GUICtrlSetBkColor(-1, 000)
GUICtrlSetColor(-1, 0xff0000)   ; Red
GUISetFont(7, 400)
GUICtrlCreateLabel("Created by Prodigy and Flemme©", 600, 5)
GUICtrlSetBkColor(-1, 000)
GUICtrlSetColor(-1, 0xff0000)   ; Red
GUISetState()




If $run Then
    Do
        
        $msg = GUIGetMsg()
        $status1 = GUICtrlRead($input1)
        $status2 = GUICtrlRead($input2)
        $status3 = GUICtrlRead($poly)
        $status4 = GUICtrlRead($multi)


    Until $msg = $run or $msg = $exit
    if $msg = $exit then Exit

endif


    If $run Then
        
        If FileExists($dir & "\CoD2MP_s") Then
            ShellExecute("CoD2MP_s", "", $dir, "", "")
        Else
            ShellExecute("CoD2MP_s.exe", "", $dir, "", "")
        EndIf
        
        If FileExists($dir & "\CoD2mp_s.exe") Then
            ShellExecute("CoD2MP_s.exe", "", $dir, "", "")
        Else
            ShellExecute("CoD2MP_s", "", $dir, "", "")
        EndIf
        Sleep(5500)
        Send("²")
        Send("{backspace}")
        If $status3 = 1 Then Send("/r_polygonoffsetbias 16")
        sleep(500)
        Send("{enter}")
        Send("/r_polygonoffsetscale 4")
        Sleep(500)
        Send("{enter}")
        
        If $status3 = 0 Then Send("/r_polygonoffsetbias -1")
        sleep(500)
        Send("{enter}")
        Send("/r_polygonoffsetscale -1")
        sleep(500)
        Send("{enter}")

        If $status4 = 1 Then Send("/r_multigpu 1")
        Sleep(300)
        Send("{enter}")
        
        If $status4 = 0 then send("/r_multigpu 0")
        Sleep(300)
        send("{enter}")
        
        Send("/password ")
        Send($status2)
        Send("{enter}")
        Send("/connect ")
        Send($status1)
        Send("{enter}")
    EndIf

[Prodigy]

Bump