AFK Inventory Deletion 2 accounts on two monitors : SWG Premium Discussions

1) I run Ultramon for dual monitor support. not sure if other programs will work the same way.
2) Need to run in windowed mode
3) Need to enable windows key in windowed mode (Options >> Interface)
4) Need AutoIt to run the program

A) The program will ask for you to pick a spot on each window to delete items from you inventory (have you inventory windows open)
B) The program will automatically switch between windows and delete items from each inventory until you hit the PAUSE or ESC key

Enjoy
_________________________________________________________

;Inventory deletion tool

Global $Paused, $Showme
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F9}", "ShowMe")
Opt("MouseClickDragDelay", 130)

#include <Misc>

Sleep ( 400 )
Send ("{F9}")
Sleep (3000)

SplashTextOn('SWGInvDelete.exe',"Inventory Deleter...Hit Pause to pause the program or ESC to end it.", 400, 100, -1, -1, 0, "Ariel", 18)
Sleep ( 5000 )
SplashOff()

SplashTextOn("AutoDelete Setup Window 1", "Please click once on the center of the spot where you want to delete from in WINDOW 1.", 400, 100, -1, -1, 0, "Ariel", 16)
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos() ;gets x, y position of deletion spot
ExitLoop
EndIf
WEnd
SplashOff()
$delwin1x = $pos[0] ;assigns x position to the variable delwin1x
$delwin1y = $pos[1] ;assigns y position to the variable delwin1y

SplashTextOn("AutoDelete Setup Intermission", "Please click once in window 2 to activate it.", 400, 100, -1, -1, 0, "Ariel", 16)
Send("{LWINDOWN}") ;depresses the windows key, deactivating the current window allowing the mouse to move between windows
Sleep (200)
Send("{LWINUP}") ;releases the windows key
While 1
Sleep ( 100 )
If _IsPressed("01") Then
;$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
Sleep ( 1000 )

SplashTextOn("AutoDelete Setup Window 2", "Please click once on the center of the spot where you want to delete from in WINDOW 2. Program will start 5 seconds after you click.", 400, 100, -1, -1, 0, "Ariel", 16)
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos() ;gets x, y position of deletion spot
ExitLoop
EndIf
WEnd
SplashOff()
$delwin2x = $pos[0] ;assigns x position to the variable delwin2x
$delwin2y = $pos[1] ;assigns y position to the variable delwin2y
Sleep ( 5000 )

$i = 0
;Starts entire program.
Do
Send("{LWINDOWN}") ;depresses the windows key, deactivating the current window allowing the mouse to move between windows
Sleep (200)
Send("{LWINUP}") ;releases the windows key
Sleep (200)

MouseClick ( "left" , $delwin1x, $delwin1y ) ;Left clicks in the spot from AutoDelete Setup Window 1 to make window active
Sleep (500)
MouseClick ( "right" , $delwin1x, $delwin1y ) ;Right clicks in the spot from AutoDelete Setup
Sleep (2000)
Send ("{3}") ;Selects option number 3 "Destroy" to delete the item.
Sleep (500)
MouseClick ( "right" , $delwin1x, $delwin1y ) ;Right clicks in the spot from AutoDelete Setup
Sleep (2000)
Send ("{2}") ;Selects option number 2 "Destroy" to delete the item.
Sleep (500)
MouseClick ( "right" , $delwin1x, $delwin1y ) ;Right clicks in the spot from AutoDelete Setup
Sleep (2000)
Send ("{4}") ;Selects option number 4 "Destroy" to delete the item.
Sleep (1000)

Send("{LWINDOWN}") ;depresses the windows key, deactivating the current window allowing the mouse to move between windows
Sleep (200)
Send("{LWINUP}") ;releases the windows key
Sleep (200)

MouseClick ( "left" , $delwin2x, $delwin2y ) ;Left clicks in the spot from AutoDelete Setup Window 2 to make window active
Sleep (500)
MouseClick ( "right" , $delwin2x, $delwin2y ) ;Right clicks in the spot from AutoDelete Setup
Sleep (2000)
Send ("{3}") ;Selects option number 3 "Destroy" to delete the item.
Sleep (500)
MouseClick ( "right" , $delwin2x, $delwin2y ) ;Right clicks in the spot from AutoDelete Setup
Sleep (2000)
Send ("{2}") ;Selects option number 2 "Destroy" to delete the item.
Sleep (500)
MouseClick ( "right" , $delwin2x, $delwin2y ) ;Right clicks in the spot from AutoDelete Setup
Sleep (2000)
Send ("{4}") ;Selects option number 4 "Destroy" to delete the item.
Sleep (2000)

Until $i = 1 ;Runs script for eternity (until other conditions within program determine otherwise)

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc

Func ShowMe()
$ShowMe = Not $ShowMe
EndFunc ;==>ShowMe

Func Terminate()
Exit 0
EndFunc

Can members say yay or nay to this being moved to a confirmed section.

Yay, very nice work, I needed to do this, you've solved it for me!