Junkloot AutoDelete 32 and 64 bit version
Posted: May 8th, 2009, 2:57 pm
I've included a 32 bit version and a 64 bit version of Unkknown AutoDelete. It will delete anything under the cursor. The cursor locks so you don't have to worry about moving the mouse. Also for this to be effective, you should make sure you have every appearence item slot filled. Otherwise, you may equip an item by accident.
;Unknown AutoDelete
Global $Paused, $ShowMe
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "TogglePause")
HotKeySet("{F9}", "ShowMe")
Opt("MouseClickDragDelay", 150)
#include <Misc>
Sleep (400)
Send ("{F9}")
Sleep (5000)
SplashTextOn('SWGautodeletes.exe',"Welcome Unknown AutoDelete intended for Junk Loot
harvesting.", 400, 150, 50, 50, 0, "Ariel", 20)
Sleep (5000)
SplashOff()
While 1
Sleep ( 100 )
Send ("{F9}")
Sleep (1500)
If MsgBox(1, 'User Agreement',"This program will delete unwanted junk. By selecting
OK, you take the risk that you may screw up your Stuff. Press F1 to pause, press ESC to
terminate the program. ") = 2 Then Exit
ExitLoop
WEnd
$i = 0
SplashTextOn("AutoDelete setup", "Please Click once on the center of the first inventory
slot after the items you wish to keep. ", 400, 100, 50, 50, 0, "Ariel", 16)
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$itemx = $pos[0]
$itemy = $pos[1]
Sleep ( 1000 )
while 1
sleep (1500)
MouseClick ("right", $itemx, $itemy, 1)
Send ( "5" ); Deletes Backpacks
Send ( "4" ); Deletes Clothing
Send ( "3" ); Deletes Weapons
Send ( "2" ); Deletes Posters
sleep (1500)
WEnd
Func TogglePause() ;Following script makes the "pause" option work correctly
$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
;Use with Caution!
;Unknown AutoDelete
Global $Paused, $ShowMe
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "TogglePause")
HotKeySet("{F9}", "ShowMe")
Opt("MouseClickDragDelay", 150)
#include <Misc>
Sleep (400)
Send ("{F9}")
Sleep (5000)
SplashTextOn('SWGautodeletes.exe',"Welcome Unknown AutoDelete intended for Junk Loot
harvesting.", 400, 150, 50, 50, 0, "Ariel", 20)
Sleep (5000)
SplashOff()
While 1
Sleep ( 100 )
Send ("{F9}")
Sleep (1500)
If MsgBox(1, 'User Agreement',"This program will delete unwanted junk. By selecting
OK, you take the risk that you may screw up your Stuff. Press F1 to pause, press ESC to
terminate the program. ") = 2 Then Exit
ExitLoop
WEnd
$i = 0
SplashTextOn("AutoDelete setup", "Please Click once on the center of the first inventory
slot after the items you wish to keep. ", 400, 100, 50, 50, 0, "Ariel", 16)
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$itemx = $pos[0]
$itemy = $pos[1]
Sleep ( 1000 )
while 1
sleep (1500)
MouseClick ("right", $itemx, $itemy, 1)
Send ( "5" ); Deletes Backpacks
Send ( "4" ); Deletes Clothing
Send ( "3" ); Deletes Weapons
Send ( "2" ); Deletes Posters
sleep (1500)
WEnd
Func TogglePause() ;Following script makes the "pause" option work correctly
$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
;Use with Caution!