auto it for deleting afk junk loot
Posted: February 19th, 2009, 12:25 am
its basicly the same all i have done is added another row in works 100% of the time and theres now more of a delay with delete so it never deletes your junk loot now
#RequireAdmin
#include <misc>
#include <GuiConstants>
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
Opt("MouseClickDragDelay", 100)
Sleep (500)
SplashTextOn("SETUP", "Please click where you want to delete from. ", 400, 100, -1, -1, 0, "Ariel", 17)
While 1
Send("{s down}")
Send("{s up}")
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$mainx = $pos[0]
$mainy = $pos[1]
Sleep ( 1000 )
While 1
MouseClick ( "right" , $mainx, $mainy )
Sleep(2000)
Send ( "{4}" )
Sleep(2000)
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{2}" )
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{4}" )
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{3}" )
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{2}" )
Sleep (500)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{5}" )
WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
#RequireAdmin
#include <misc>
#include <GuiConstants>
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
Opt("MouseClickDragDelay", 100)
Sleep (500)
SplashTextOn("SETUP", "Please click where you want to delete from. ", 400, 100, -1, -1, 0, "Ariel", 17)
While 1
Send("{s down}")
Send("{s up}")
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$mainx = $pos[0]
$mainy = $pos[1]
Sleep ( 1000 )
While 1
MouseClick ( "right" , $mainx, $mainy )
Sleep(2000)
Send ( "{4}" )
Sleep(2000)
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{2}" )
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{4}" )
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{3}" )
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{2}" )
Sleep (500)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{5}" )
WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc