easier way

[cry8wolf9]

so i alter this scrip alot and im looking for an easier way to do it
Here is the current script

Spoiler

Code: Select all

; Language:       English
; Author:         cry8wolf9#7660 

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance Force ; Makes sure the script only runs one at a time.


#MaxThreadsPerHotkey 3
*f3::
#MaxThreadsPerHotkey 1
If SpamLoop {
    SpamLoop := False
    return
}
SpamLoop := True
Loop {                      ; Add a number after "Loop" if you want it to loop a specific number of times
    Loop 1 {                ; The amount of messages it sends before waiting (default = 1)

        SendInput .b Brewer 4361
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Grinder 4449
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Shelving 3908
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Wifi 3708
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Ice-Machine 2599
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Blender 2178
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Table 1286
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Dishwasher 896
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Seat 50
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Espresso 44
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Boiler 52
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Wastebin 43
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Refrigerator 40
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Infuser 35
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Sofa 24
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Dispenser 20
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Creamer 12
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Press 8
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Pitcher 6
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Urn 5
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Airpot 4
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Sleeve-Holder 3
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Warmers 2
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Spigot 2
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Juicer 2
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Teapot 2
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Pump 1
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Delivery 1
        SendInput {Enter}
        Sleep, 5500
        SendInput .b Grill 1
        SendInput {Enter}
        Sleep, 5500

       if not SpamLoop
            break
    }
    Sleep, 1000             ; How long in milliseconds it will wait before it starts sending messages again
    if not SpamLoop
        break
}

I would love to make the send inputs easier to alter
something like this

Spoiler

Code: Select all

; Language:       English
; Author:         cry8wolf9#7660 

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance Force ; Makes sure the script only runs one at a time.


#MaxThreadsPerHotkey 3
*f3::
#MaxThreadsPerHotkey 1
If SpamLoop {
    SpamLoop := False
    return
}
SpamLoop := True
Loop {                      ; Add a number after "Loop" if you want it to loop a specific number of times
    Loop 1 {                ; The amount of messages it sends before waiting (default = 1)

.b Wifi 116
.b Ice-Machine 87
.b Blender 82
.b Table 52
.b Dishwasher 43
.b Seat 19
.b Espresso 14
.b Boiler 15
.b Wastebin 12
.b Refrigerator 10
.b Infuser 8
.b Sofa 5
.b Dispenser 5
.b Creamer 2
.b Press 2
.b Pitcher 2
.b Urn 1
.b Airpot 2
.b Sleeve-Holder 1
.b Warmers 1
.b Spigot 1
.b Teapot 1

       if not SpamLoop
            break
    }
    Sleep, 1000             ; How long in milliseconds it will wait before it starts sending messages again
    if not SpamLoop
        break
}
but i need to keep the timer in between each entry and of coarse the sendinput

[Hellbent]

You can try using a array and a for loop

Here is an example,

Code: Select all

#SingleInstance,force
Your_List:= [".b Brewer 4361",".b Grinder 4449",".b Shelving 3908",".b Wifi 3708",".b Ice-Machine 2599",".b Blender 2178",".b Table 1286",".b Dishwasher 896",".b Seat 50",".b Espresso 44",".b Boiler 52",".b Wastebin 43",".b Refrigerator 40",".b Infuser 35",".b Sofa 24",".b Dispenser 20",".b Creamer 12",".b Press 8",".b Pitcher 6",".b Urn 5",".b Airpot 4",".b Sleeve-Holder 3",".b Warmers 2",".b Spigot 2",".b Juicer 2",".b Teapot 2",".b Pump 1",".b Delivery 1",".b Grill 1",""]
*numpad1::
	For,k,v in Your_List
		{
			SendInput,% Your_List[k]
			SendInput {Enter}
			Sleep,100
		}
	return
*esc::Exitapp

[cry8wolf9]

that has an error on line 3

[Hellbent]

that has an error on line 3

Line 3 is the hotkey, try some other hotkey.

[cry8wolf9]

that worked but its still a pain to edit it. every time i edit it i change all of the values is there a way to make it even more dumbed down? all i need it it to do is pop out the .b commands with a 6 second pause in between.

[Hatsuko]

Array can be written in multiple lines... is this easier to edit?

Code: Select all

#SingleInstance,force
Your_List:= [".b Brewer 4361"
,".b Grinder 4449"
,".b Shelving 3908"
,".b Wifi 3708"
,".b Ice-Machine 2599"
,".b Blender 2178"
,".b Table 1286"
,".b Dishwasher 896"
,".b Seat 50"
,".b Espresso 44"
,".b Boiler 52"
,".b Wastebin 43"
,".b Refrigerator 40"
,".b Infuser 35"
,".b Sofa 24"
,".b Dispenser 20"
,".b Creamer 12"
,".b Press 8"
,".b Pitcher 6"
,".b Urn 5"
,".b Airpot 4"
,".b Sleeve-Holder 3"
,".b Warmers 2"
,".b Spigot 2"
,".b Juicer 2"
,".b Teapot 2"
,".b Pump 1"
,".b Delivery 1"
,".b Grill 1"]
*f3::
	For,k,v in Your_List
		{
			SendInput,% Your_List[k]
			SendInput {Enter}
			Sleep,100
		}
	return
*esc::Exitapp

[Hatsuko]

I just recall that string can also be written in multiple lines. See if this works for you.

Code: Select all

#SingleInstance,force
Your_List = 
(
.b Brewer 4361
.b Grinder 4449
.b Shelving 3908
.b Wifi 3708
.b Ice-Machine 2599
.b Blender 2178
.b Table 1286
.b Dishwasher 896
.b Seat 50
.b Espresso 44
.b Boiler 52
.b Wastebin 43
.b Refrigerator 40
.b Infuser 35
.b Sofa 24
.b Dispenser 20
.b Creamer 12
.b Press 8
.b Pitcher 6
.b Urn 5
.b Airpot 4
.b Sleeve-Holder 3
.b Warmers 2
.b Spigot 2
.b Juicer 2
.b Teapot 2
.b Pump 1
.b Delivery 1
.b Grill 1
)
*f3::
	arr := StrSplit(Your_List, "`n")
	For,k,v in arr
		{
			SendInput,% v
			SendInput {Enter}
			Sleep,100
		}
	return
*esc::Exitapp