Jump to content

*.ini + Checkbox Problem


Recommended Posts

Hey,im new to AutoIT.And im also new to this forum :) I already visitied this forum before to get more into AutoIT,but now i got a problem i don't know how to fix so i registered here.

I don't know if it's allowed to post this here,because some Forums got a problem with tools for games i think.

Soo..im just trying to ask.

#include 
#include 
#include 
#include 
#include 

Opt("GUIOnEventMode", 1)
Opt("WinTitleMatchMode", 1)
Opt("SendKeyDelay", 2.0)

Global $toggle = False
Global $gw ; gw window handle

; ==== Get gw window handle ====
$PID = ProcessExists("gw.exe")
$windows = WinList("Guild Wars")
If $windows[0][0]==0 Or $PID==0 Then
MsgBox(0, "Error", "Run Guild Wars first!")
Exit
EndIf
For $i=0 To $windows[0][0] Step 1
If WinGetProcess($windows[$i][1])==$PID Then
$gw = $windows[$i][1]
EndIf
Next


$gw_multitool = GUICreate("Guild Wars Template Tool", 890, 700, 387, 129)
$banner = GUICtrlCreatePic("images\banner.jpg", 0, 0, 700, 135)
$Label_Buildmacro = GUICtrlCreateLabel("Build - Macro", 35, 145, 100, 30)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")

$tb1 = GUICtrlCreateLabel("Teambuild #1", 35, 178, 100, 30)
$tb2 = GUICtrlCreateLabel("Teambuild #2", 255, 178, 100, 30)
$tb3 = GUICtrlCreateLabel("Teambuild #3", 475, 178, 100, 30)
$tb4 = GUICtrlCreateLabel("Teambuild #4", 695, 178, 100, 30)

;TEAMBUILD 1

$Input1_Name = IniRead ( "settings.ini", "Teambuild1", "Name", "" )
$Input1_Text1 = IniRead ( "settings.ini", "Teambuild1", "1", "" )
$Input1_Text2 = IniRead ( "settings.ini", "Teambuild1", "2", "" )
$Input1_Text3 = IniRead ( "settings.ini", "Teambuild1", "3", "" )
$Input1_Text4 = IniRead ( "settings.ini", "Teambuild1", "4", "" )
$Input1_Text5 = IniRead ( "settings.ini", "Teambuild1", "5", "" )
$Input1_Text6 = IniRead ( "settings.ini", "Teambuild1", "6", "" )
$Input1_Text7 = IniRead ( "settings.ini", "Teambuild1", "7", "" )
$Input1_Text8 = IniRead ( "settings.ini", "Teambuild1", "8", "" )

$Teambuild1_Name = GUICtrlCreateInput($Input1_Name, 35, 200, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input1 = GUICtrlCreateInput($Input1_Text1, 35, 240, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input2 = GUICtrlCreateInput($Input1_Text2, 35, 265, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input3 = GUICtrlCreateInput($Input1_Text3, 35, 295, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input4 = GUICtrlCreateInput($Input1_Text4, 35, 320, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input5 = GUICtrlCreateInput($Input1_Text5, 35, 345, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input6 = GUICtrlCreateInput($Input1_Text6, 35, 370, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input7 = GUICtrlCreateInput($Input1_Text7, 35, 395, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input8 = GUICtrlCreateInput($Input1_Text8, 35, 420, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

$Label1 = GUICtrlCreateLabel("#1", 8, 242, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label2 = GUICtrlCreateLabel("#2", 8, 267, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("#3", 8, 297, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label4 = GUICtrlCreateLabel("#4", 8, 322, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label5 = GUICtrlCreateLabel("#5", 8, 347, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label6 = GUICtrlCreateLabel("#6", 8, 372, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label7 = GUICtrlCreateLabel("#7", 8, 397, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label8 = GUICtrlCreateLabel("#8", 8, 422, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")





;TEAMBUILD 2

$Input2_Name = IniRead ( "settings.ini", "Teambuild2", "Name", "" )
$Input2_Text1 = IniRead ( "settings.ini", "Teambuild2", "1", "" )
$Input2_Text2 = IniRead ( "settings.ini", "Teambuild2", "2", "" )
$Input2_Text3 = IniRead ( "settings.ini", "Teambuild2", "3", "" )
$Input2_Text4 = IniRead ( "settings.ini", "Teambuild2", "4", "" )
$Input2_Text5 = IniRead ( "settings.ini", "Teambuild2", "5", "" )
$Input2_Text6 = IniRead ( "settings.ini", "Teambuild2", "6", "" )
$Input2_Text7 = IniRead ( "settings.ini", "Teambuild2", "7", "" )
$Input2_Text8 = IniRead ( "settings.ini", "Teambuild2", "8", "" )

$Teambuild2_Name = GUICtrlCreateInput($Input2_Name, 255, 200, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input1 = GUICtrlCreateInput($Input2_Text1, 255, 240, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input2 = GUICtrlCreateInput($Input2_Text2, 255, 265, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input3 = GUICtrlCreateInput($Input2_Text3, 255, 295, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input4 = GUICtrlCreateInput($Input2_Text4, 255, 320, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input5 = GUICtrlCreateInput($Input2_Text5, 255, 345, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input6 = GUICtrlCreateInput($Input2_Text6, 255, 370, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input7 = GUICtrlCreateInput($Input2_Text7, 255, 395, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input8 = GUICtrlCreateInput($Input2_Text8, 255, 420, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")


$1Label1 = GUICtrlCreateLabel("#1", 228, 242, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label2 = GUICtrlCreateLabel("#2", 228, 267, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label3 = GUICtrlCreateLabel("#3", 228, 297, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label4 = GUICtrlCreateLabel("#4", 228, 322, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label5 = GUICtrlCreateLabel("#5",228, 347, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label6 = GUICtrlCreateLabel("#6", 228, 372, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label7 = GUICtrlCreateLabel("#7", 228, 397, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label8 = GUICtrlCreateLabel("#8", 228, 422, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")


;TEAMBUILD3

$Input3_Name = IniRead ( "settings.ini", "Teambuild3", "Name", "" )
$Input3_Text1 = IniRead ( "settings.ini", "Teambuild3", "1", "" )
$Input3_Text2 = IniRead ( "settings.ini", "Teambuild3", "2", "" )
$Input3_Text3 = IniRead ( "settings.ini", "Teambuild3", "3", "" )
$Input3_Text4 = IniRead ( "settings.ini", "Teambuild3", "4", "" )
$Input3_Text5 = IniRead ( "settings.ini", "Teambuild3", "5", "" )
$Input3_Text6 = IniRead ( "settings.ini", "Teambuild3", "6", "" )
$Input3_Text7 = IniRead ( "settings.ini", "Teambuild3", "7", "" )
$Input3_Text8 = IniRead ( "settings.ini", "Teambuild3", "8", "" )

$Teambuild3_Name = GUICtrlCreateInput($Input3_Name, 475, 200, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input1 = GUICtrlCreateInput($Input3_Text1, 475, 240, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input2 = GUICtrlCreateInput($Input3_Text2, 475, 265, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input3 = GUICtrlCreateInput($Input3_Text3, 475, 295, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input4 = GUICtrlCreateInput($Input3_Text4, 475, 320, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input5 = GUICtrlCreateInput($Input3_Text5, 475, 345, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input6 = GUICtrlCreateInput($Input3_Text6, 475, 370, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input7 = GUICtrlCreateInput($Input3_Text7, 475, 395, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input8 = GUICtrlCreateInput($Input3_Text8, 475, 420, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")


$3Label1 = GUICtrlCreateLabel("#1", 447, 242, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label2 = GUICtrlCreateLabel("#2", 447, 267, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label3 = GUICtrlCreateLabel("#3", 447, 297, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label4 = GUICtrlCreateLabel("#4", 447, 322, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label5 = GUICtrlCreateLabel("#5",447, 347, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label6 = GUICtrlCreateLabel("#6", 447, 372, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label7 = GUICtrlCreateLabel("#7", 447, 397, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label8 = GUICtrlCreateLabel("#8", 447, 422, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

;TEAMBUILD4

$Input4_Name = IniRead ( "settings.ini", "Teambuild4", "Name", "" )
$Input4_Text1 = IniRead ( "settings.ini", "Teambuild4", "1", "" )
$Input4_Text2 = IniRead ( "settings.ini", "Teambuild4", "2", "" )
$Input4_Text3 = IniRead ( "settings.ini", "Teambuild4", "3", "" )
$Input4_Text4 = IniRead ( "settings.ini", "Teambuild4", "4", "" )
$Input4_Text5 = IniRead ( "settings.ini", "Teambuild4", "5", "" )
$Input4_Text6 = IniRead ( "settings.ini", "Teambuild4", "6", "" )
$Input4_Text7 = IniRead ( "settings.ini", "Teambuild4", "7", "" )
$Input4_Text8 = IniRead ( "settings.ini", "Teambuild4", "8", "" )

$Teambuild4_Name = GUICtrlCreateInput($Input4_Name, 695, 200, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input1 = GUICtrlCreateInput($Input4_Text1, 695, 240, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input2 = GUICtrlCreateInput($Input4_Text2, 695, 265, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input3 = GUICtrlCreateInput($Input4_Text3, 695, 295, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input4 = GUICtrlCreateInput($Input4_Text4, 695, 320, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input5 = GUICtrlCreateInput($Input4_Text5, 695, 345, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input6 = GUICtrlCreateInput($Input4_Text6, 695, 370, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input7 = GUICtrlCreateInput($Input4_Text7, 695, 395, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input8 = GUICtrlCreateInput($Input4_Text8, 695, 420, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")


$4Label1 = GUICtrlCreateLabel("#1", 667, 242, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label2 = GUICtrlCreateLabel("#2", 667, 267, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label3 = GUICtrlCreateLabel("#3", 667, 297, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label4 = GUICtrlCreateLabel("#4", 667, 322, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label5 = GUICtrlCreateLabel("#5",667, 347, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label6 = GUICtrlCreateLabel("#6", 667, 372, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label7 = GUICtrlCreateLabel("#7", 667, 397, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label8 = GUICtrlCreateLabel("#8", 667, 422, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

$savenum1 = GUICtrlCreateLabel("NUMPAD 1", 95, 470, 70, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

$save = GUICtrlCreateButton("Save", 35, 450, 170, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

$save2 = GUICtrlCreateButton("Save", 255, 450, 170, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$savenum2 = GUICtrlCreateLabel("NUMPAD 2", 315, 470, 70, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

$save3 = GUICtrlCreateButton("Save", 475, 450, 170, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$savenum3 = GUICtrlCreateLabel("NUMPAD 3", 535, 470, 70, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

$save4 = GUICtrlCreateButton("Save", 695, 450, 170, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$savenum4 = GUICtrlCreateLabel("NUMPAD 4", 755, 470, 70, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)

HotKeySet("{NUMPAD1}", "teambuild")
HotKeySet("{NUMPAD2}", "teambuild2")
HotKeySet("{NUMPAD3}", "teambuild3")
HotKeySet("{NUMPAD4}", "teambuild4")



Global $stu[8]
For $i = 0 To 7 Step 1
$stu[$i] = (IniRead("settings.ini", "s", $i + 1, False) == "True")
Next


Global $checkBoxes[8]
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit") ; -3 = $GUI_EVENT_CLOSE

$checkBoxes[0] = GUICtrlCreateCheckbox("1", 8, 600, 25, 17)
$checkBoxes[1] = GUICtrlCreateCheckbox("2", 40, 600, 25, 17)
$checkBoxes[2] = GUICtrlCreateCheckbox("3", 72, 600, 25, 17)
$checkBoxes[3] = GUICtrlCreateCheckbox("4", 104, 600, 25, 17)
$checkBoxes[4] = GUICtrlCreateCheckbox("5", 136, 600, 25, 17)
$checkBoxes[5] = GUICtrlCreateCheckbox("6", 168, 600, 25, 17)
$checkBoxes[6] = GUICtrlCreateCheckbox("7", 200, 600, 25, 17)
$checkBoxes[7] = GUICtrlCreateCheckbox("8", 232, 600, 25, 17)
For $i = 0 To 7 Step 1
If $stu[$i] == True Then
GUICtrlSetState($checkBoxes[$i], $GUI_CHECKED)
EndIf
GUICtrlSetOnEvent($checkBoxes[$i], "toggles")
Next
$Button = GUICtrlCreateButton("Start", 0, 630, 270, 44)
GUICtrlSetState($Button, $GUI_FOCUS)
GUICtrlSetOnEvent($Button, "toggle")
GUISetState(@SW_SHOW)

; ==== main loop ====
While True
If $toggle Then
For $i = 0 To 7 Step 1
If $stu[$i] Then
_Send($i + 1)
Sleeep(50, 20)
EndIf
Next
EndIf
Sleeep(500)
WEnd

While 1
$nMsg = GUIGetMsg()

$Build1Name = IniRead ("settings.ini", "Teambuild1", "Name", GUICtrlRead($Teambuild1_Name))
$Build1 = IniRead ("settings.ini", "Teambuild1", "1", GUICtrlRead($Teambuild1_Input1))
$Build2 = IniRead ("settings.ini", "Teambuild1", "2", GUICtrlRead($Teambuild1_Input2))
$Build3 = IniRead ("settings.ini", "Teambuild1", "3", GUICtrlRead($Teambuild1_Input3))
$Build4 = IniRead ("settings.ini", "Teambuild1", "4", GUICtrlRead($Teambuild1_Input4))
$Build5 = IniRead ("settings.ini", "Teambuild1", "5", GUICtrlRead($Teambuild1_Input5))
$Build6 = IniRead ("settings.ini", "Teambuild1", "6", GUICtrlRead($Teambuild1_Input6))
$Build7 = IniRead ("settings.ini", "Teambuild1", "7", GUICtrlRead($Teambuild1_Input7))
$Build8 = IniRead ("settings.ini", "Teambuild1", "8", GUICtrlRead($Teambuild1_Input8))

$2BuildName = IniRead ("settings.ini", "Teambuild2", "Name", GUICtrlRead($Teambuild2_Name))
$2Build1 = IniRead ("settings.ini", "Teambuild2", "1", GUICtrlRead($Teambuild2_Input1))
$2Build2 = IniRead ("settings.ini", "Teambuild2", "2", GUICtrlRead($Teambuild2_Input2))
$2Build3 = IniRead ("Data/se ttings.ini", "Teambuild2", "3", GUICtrlRead($Teambuild2_Input3))
$2Build4 = IniRead ("settings.ini", "Teambuild2", "4", GUICtrlRead($Teambuild2_Input4))
$2Build5 = IniRead ("settings.ini", "Teambuild2", "5", GUICtrlRead($Teambuild2_Input5))
$2Build6 = IniRead ("settings.ini", "Teambuild2", "6", GUICtrlRead($Teambuild2_Input6))
$2Build7 = IniRead ("settings.ini", "Teambuild2", "7", GUICtrlRead($Teambuild2_Input7))
$2Build8 = IniRead ("settings.ini", "Teambuild2", "8", GUICtrlRead($Teambuild2_Input8))

$3BuildName = IniRead ("settings.ini", "Teambuild3", "Name", GUICtrlRead($Teambuild3_Name))
$3Build1 = IniRead ("settings.ini", "Teambuild3", "1", GUICtrlRead($Teambuild3_Input1))
$3Build2 = IniRead ("settings.ini", "Teambuild3", "2", GUICtrlRead($Teambuild3_Input2))
$3Build3 = IniRead ("Data/se ttings.ini","Teambuild3", "3", GUICtrlRead($Teambuild3_Input3))
$3Build4 = IniRead ("settings.ini", "Teambuild3", "4", GUICtrlRead($Teambuild3_Input4))
$3Build5 = IniRead ("settings.ini", "Teambuild3", "5", GUICtrlRead($Teambuild3_Input5))
$3Build6 = IniRead ("settings.ini", "Teambuild3", "6", GUICtrlRead($Teambuild3_Input6))
$3Build7 = IniRead ("settings.ini", "Teambuild3", "7", GUICtrlRead($Teambuild3_Input7))
$3Build8 = IniRead ("settings.ini", "Teambuild3", "8", GUICtrlRead($Teambuild3_Input8))

$4BuildName = IniRead ("settings.ini", "Teambuild4", "Name", GUICtrlRead($Teambuild4_Name))
$4Build1 = IniRead ("settings.ini", "Teambuild4", "1", GUICtrlRead($Teambuild4_Input1))
$4Build2 = IniRead ("settings.ini", "Teambuild4", "2", GUICtrlRead($Teambuild4_Input2))
$4Build3 = IniRead ("Data/se ttings.ini","Teambuild4", "3", GUICtrlRead($Teambuild4_Input3))
$4Build4 = IniRead ("settings.ini", "Teambuild4", "4", GUICtrlRead($Teambuild4_Input4))
$4Build5 = IniRead ("settings.ini", "Teambuild4", "5", GUICtrlRead($Teambuild4_Input5))
$4Build6 = IniRead ("settings.ini", "Teambuild4", "6", GUICtrlRead($Teambuild4_Input6))
$4Build7 = IniRead ("settings.ini", "Teambuild4", "7", GUICtrlRead($Teambuild4_Input7))
$4Build8 = IniRead ("settings.ini", "Teambuild4", "8", GUICtrlRead($Teambuild4_Input8))



Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $save

iniwrite("settings.ini","Teambuild1","Name", GUICtrlRead($Teambuild1_Name))
iniwrite("settings.ini","Teambuild1","1", GUICtrlRead($Teambuild1_Input1))
iniwrite("settings.ini","Teambuild1","2", GUICtrlRead($Teambuild1_Input2))
iniwrite("settings.ini","Teambuild1","3", GUICtrlRead($Teambuild1_Input3))
iniwrite("settings.ini","Teambuild1","4", GUICtrlRead($Teambuild1_Input4))
iniwrite("settings.ini","Teambuild1","5", GUICtrlRead($Teambuild1_Input5))
iniwrite("settings.ini","Teambuild1","6", GUICtrlRead($Teambuild1_Input6))
iniwrite("settings.ini","Teambuild1","7", GUICtrlRead($Teambuild1_Input7))
iniwrite("settings.ini","Teambuild1","8", GUICtrlRead($Teambuild1_Input8))

Case $save2

iniwrite("settings.ini","Teambuild2","Name", GUICtrlRead($Teambuild2_Name))
iniwrite("settings.ini","Teambuild2","1", GUICtrlRead($Teambuild2_Input1))
iniwrite("settings.ini","Teambuild2","2", GUICtrlRead($Teambuild2_Input2))
iniwrite("settings.ini","Teambuild2","3", GUICtrlRead($Teambuild2_Input3))
iniwrite("settings.ini","Teambuild2","4", GUICtrlRead($Teambuild2_Input4))
iniwrite("settings.ini","Teambuild2","5", GUICtrlRead($Teambuild2_Input5))
iniwrite("settings.ini","Teambuild2","6", GUICtrlRead($Teambuild2_Input6))
iniwrite("settings.ini","Teambuild2","7", GUICtrlRead($Teambuild2_Input7))
iniwrite("settings.ini","Teambuild2","8", GUICtrlRead($Teambuild2_Input8))

Case $save3

iniwrite("settings.ini","Teambuild3","Name", GUICtrlRead($Teambuild3_Name))
iniwrite("settings.ini","Teambuild3","1", GUICtrlRead($Teambuild3_Input1))
iniwrite("settings.ini","Teambuild3","2", GUICtrlRead($Teambuild3_Input2))
iniwrite("settings.ini","Teambuild3","3", GUICtrlRead($Teambuild3_Input3))
iniwrite("settings.ini","Teambuild3","4", GUICtrlRead($Teambuild3_Input4))
iniwrite("settings.ini","Teambuild3","5", GUICtrlRead($Teambuild3_Input5))
iniwrite("settings.ini","Teambuild3","6", GUICtrlRead($Teambuild3_Input6))
iniwrite("settings.ini","Teambuild3","7", GUICtrlRead($Teambuild3_Input7))
iniwrite("settings.ini","Teambuild3","8", GUICtrlRead($Teambuild3_Input8))

Case $save4

iniwrite("settings.ini","Teambuild4","Name", GUICtrlRead($Teambuild4_Name))
iniwrite("settings.ini","Teambuild4","1", GUICtrlRead($Teambuild4_Input1))
iniwrite("settings.ini","Teambuild4","2", GUICtrlRead($Teambuild4_Input2))
iniwrite("settings.ini","Teambuild4","3", GUICtrlRead($Teambuild4_Input3))
iniwrite("settings.ini","Teambuild4","4", GUICtrlRead($Teambuild4_Input4))
iniwrite("settings.ini","Teambuild4","5", GUICtrlRead($Teambuild4_Input5))
iniwrite("settings.ini","Teambuild4","6", GUICtrlRead($Teambuild4_Input6))
iniwrite("settings.ini","Teambuild4","7", GUICtrlRead($Teambuild4_Input7))
iniwrite("settings.ini","Teambuild4","8", GUICtrlRead($Teambuild4_Input8))

EndSwitch
WEnd


While 2
Sleep(500)
WEnd


Func teambuild ()

Send ("{ENTER}")
Send ($Build1Name)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($Build1)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($Build2)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($Build3)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($Build4)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($Build5)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($Build6)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($Build7)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($Build8)
Send ("{ENTER}")

EndFunc



Func teambuild2 ()

Send ("{ENTER}")
Send ($2BuildName)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($2Build1)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($2Build2)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($2Build3)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($2Build4)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($2Build5)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($2Build6)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($2Build7)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($2Build8)
Send ("{ENTER}")

EndFunc

Func teambuild3 ()

Send ("{ENTER}")
Send ($3BuildName)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($3Build1)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($3Build2)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($3Build3)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($3Build4)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($3Build5)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($3Build6)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($3Build7)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($3Build8)
Send ("{ENTER}")

EndFunc


Func teambuild4 ()

Send ("{ENTER}")
Send ($4BuildName)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($4Build1)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($4Build2)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($4Build3)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($4Build4)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($4Build5)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($4Build6)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($4Build7)
Send ("{ENTER}")

Send ("{ENTER}")
Send ($4Build8)
Send ("{ENTER}")

EndFunc



Func toggles()
For $i = 0 To 7 Step 1
If $checkBoxes[$i] == @GUI_CtrlId Then
$stu[$i] = Not $stu[$i]
IniWrite("settings.ini", "s", $i+1, $stu[$i])
EndIf
Next
EndFunc ;==>toggles

Func toggle()
$toggle = Not $toggle
If $toggle Then
GUICtrlSetData($Button, "Pause")
Else
GUICtrlSetData($Button, "Start")
EndIf
EndFunc ;==>toggle

Func _send($msg)
ControlSend($gw, "", "", $msg)
EndFunc ;==>_send

Func _exit()
Exit
EndFunc ;==>_exit

Func Sleeep($time, $offset = 100)
Sleep($time + Random(-$offset, $offset, 1))
EndFunc ;==>Sleeep

What it shall do : it's a tool for the game guild wars to spam Template-Skillcodes for other Players so that they can load them.And since i dont have a macro-keyboard where i can save those i wanted to do this tool for personal use.

This worked fine so far.But now i dont know how to combine the Checkboxes ini-stuff with the other Ini.The checkboxes are working but it doesnt work in combination with each other.would be really cool if you could help me..

Link to comment
Share on other sites

  • Moderators

XperientAE,

Welcome to the AutoIt forum. :)

Unfortunately you appear to have missed the Forum rules on your way in. Please read them now (there is also a link at bottom right of each page) - particularly the bit about not discussing game automation - and then you will understand that this forum also "got a problem with tools for games", which is why you will get no help and this thread will now be locked. :naughty:

See you soon with a legitimate question I hope. :)

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...