Jump to content

Recommended Posts

Posted

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..

  • Moderators
Posted

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

 

Guest
This topic is now closed to further replies.
  • Recently Browsing   0 members

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