Here is one I wrote 4 years ago.
How to use type in trade chat your message "$WTS My Soul|" and send it. Then hit CTRL+End. Then it will send to the first 20 channels. To stop it form spamming at any time just hit the End key. If you end it and want to contune from where it left off hit |Shift+End| and it will do 20 channels from where you left off. If you want it to do more then 20 channels change the Total Channels. When it gets to the 20th channel it will start over at the starting chanel.
Code:
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn ; Enable warnings to assist with detecting common errors.
;SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
SetKeyDelay, 10, 10
global TradeStart = 0
global TradeIsitOK := "yes"
TotalChannels = 20
TotalCount = 0
~XButton1::MouseClick, WheelUp
~XButton2::MouseClick, WheelDown
~F12::
Reload
Return
^End::
TradeStart = 0
TotalCount = 5
global TradeIsitOK := "yes"
SendStart := TradeStart+1
SendEnd := TradeStart+TotalChannels
TradeStart := SendEnd
ChatTradeSend(SendStart,SendEnd)
return
+End::
;TradeStart = 0
;TotalCount = 0
global TradeIsitOK := "yes"
SendStart := TradeStart+1
SendEnd := TradeStart+TotalChannels
TradeStart := SendEnd
ChatTradeSend(SendStart,SendEnd)
return
End::
TradeIsitOK := "Off"
Return
ChatTradeSend(Start,Stop){
Loop {
if TradeIsitOK = yes
{
if (Start = 0)
Start = 1
sleep 100
send {enter}
Sleep 700
send /trade %Start%
global TradeStart = Start
Sleep 700
send {enter}
Sleep 100
send {enter}
Sleep 100
send {up}
Sleep 100
send {up}
Sleep 800
send {enter}
Sleep 100
}
TotalCount++
;if TotalCount = 5
;{
;sleep 2000
;TotalCount = 0
;}
Start++
if (Start-1 = Stop)
Start = 1
;break
if TradeIsitOK = Off
break
}
}
;f2::
; SendInput, {Enter}
; sleep, 20
; SendInput, {/}remaining
; SendInput, {Enter}
; return
;~XButton2::
; SendInput, {Enter}
; sleep, 20
; SendInput, {/}oos
; SendInput, {Enter}
; return