help with my script

[Jer-]

what it does is holds shift and holds my left mouse button for spamming hammer purposes on my game (diablo 2)

the problem is when i try putting a pause in it..it says error

can someone tell me how to fix or fix it for me? heres what i have and it works but doesnt have pause option atm:

Global $Paused

HotKeySet("{INSERT}", "Attack")

While 1

Sleep (100)

WEnd

Func Attack()

$Paused = NOT $Paused

While $Paused

sleep(100)

Send("{SHIFTDOWN}")

Mousedown("left")

WEnd

Send("{SHIFTUP}")

Mouseup("left")

EndFunc

[xcal]

Try putting the main part of your script in your keep alive loop, and only have the $Paused = NOT $Paused part in the function.

edit - maybe something along the lines of this (you don't say what the error is, but this should work):

Global $Paused
HotKeySet("{INSERT}", "Attack")


While 1
    Sleep(100)
    If $Paused Then
        While $Paused
            Sleep(100)
            Send("{SHIFTDOWN}")
            MouseDown("left")
        WEnd
        Send("{SHIFTUP}")
        MouseUp("left")
    EndIf
WEnd

Func Attack()
    $Paused = Not $Paused
EndFunc

Edited February 17, 2007 by xcal

[Jer-]

what i meant was to have it have a pause button because once i hit insert itll keep running even if i press it again

[xcal]

Oh. In that case, try this:

Global $Paused
HotKeySet("{INSERT}", "Attack")


While 1
    Sleep(100)
    If $Paused Then
        While $Paused
            ToolTip('inside the if/endif while loop.')
            Sleep(100)
        WEnd
        ToolTip('while loop exited.  exiting if/endif next')
        Sleep(2000)
    EndIf
    ToolTip('the script is paused and I really should try stuff someone suggests before posting again')
WEnd

Func Attack()
    $Paused = Not $Paused
EndFunc

[toothyXdip]

so do you want to pretty much you want 2 hotkeys one for shift one for left click

when you press both of the hot keys it will do shift left click shift left click shift left click shift left click...so on so on untill you press both hot keys again?

Well if it is here is the script for that:

expandcollapse popup

Global $F5OnOff
Global $F6OnOff

HotKeySet("{F5}", '_SendShift')
HotKeySet('{F6}', '_SendLeftClick')

GUICreate("Diablo 2 Bot", 300, 300)
$dummy = GUICtrlCreateDummy()
GUICtrlSetOnEvent($GUI_EVENT_CLOSE, 'Show')
GUISetBkColor(0x000000)
$lable = GUICtrlCreateLabel("F5 turns on/off shift presser" & @CRLF & "F6 turns on/off leftmouse clicker", 80, 70)
$info_button = GUICtrlCreateButton ("About", 125, 150, 70, 20)
GUICtrlSetBkColor($lable, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor($lable, 0xFFFFFF)
GUICtrlSetCursor(-1, 3)
GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    DoDefaultTasks()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Onexit()
        Case $msg = $info_button
            About()
    EndSelect
WEnd

Func Show()
    GUICtrlSendToDummy($dummy)
EndFunc

Func DoDefaultTasks()
    If $F5OnOff Then Send('{LSHIFT}')
    If $F6OnOff Then MouseClick('left')
EndFunc 
    
Func Onexit()
    Exit
EndFunc

Func _SendShift()
    $F5OnOff = Not $F5OnOff
EndFunc

Func _SendLeftClick()
    $F6OnOff = Not $F6OnOff
EndFunc

Func About()
    MsgBox(48, "Diablo 2 Bot About", "This was made by ToothyXdip")
EndFunc

Edited February 18, 2007 by toothyXdip