Error Line -1 :s

[BluhBlah]

Dim $stop = 0

HotKeySet("{F4}", "toggel")

HotKeySet("{F5}", "off")

While 1

If $stop = 1 Then

If WinActive("Warcraft III") Then

$coord = PixelSearch(819, 259 819, 259, 0x7E96EE)

If Not @error Then

Send ("B")

Sleep(10) ; reduces CPU usage

$message = INPUTBOX ("blah blag " ,"u stupid me noob " ,"password")

Sleep(10)

EndIf

EndIf

EndIf

WEnd

Func toggel()

If $stop = 0 Then

$stop = 1 ; change the bot to on

ToolTip("LossBot = ON", 0, 0)

Else

$stop = 0 ; change the bot to off

ToolTip("LossBot = OFF", 0, 0)

EndIf

EndFunc

Func off()

Exit

EndFunc

-----------------------------------------------------------------

Gives error

Line -1:

It gives the error as fast as i open wc3

------------------------------------------------

Error: Error in expression'

Its supposed to check if its on login screen and if it is then it will press B and then type my password

[jvanegmond]

Error on line -1 means the script was compiled and the line number can no longer be determined. Try running the script without compilation and see where the error occurs.

Edit: Your script is really dumb.

Edited September 23, 2009 by Manadar

[BluhBlah]

Thanks i had forgot a ,

Anyways how do i make it type etc 123456? it fails to write after it press b :S

[jvanegmond]

The only Send command I see in your script is this: Send ("B")

So I'm not really surprised it only pressed B..

Maybe you can fix the error yourself now, or you can describe your problem in more detail and hope we can figure it out.

[BluhBlah]

Dim $stop = 0

HotKeySet("{F4}", "toggel")
HotKeySet("{F5}", "off")

While 1
    If $stop = 1 Then
        If WinActive("Warcraft III") Then
             $coord = PixelSearch(146, 85, 146, 85, 0xD6593B)
            If Not @error Then
                Send ("B")
                Sleep (10)
                Send ("123")
            EndIf
        EndIf
    EndIf
WEnd                
                
                
Func toggel()
    If $stop = 0 Then
        $stop = 1
        ToolTip("LossBot = ON", 0, 0)
    Else
        $stop = 0 
        ToolTip("LossBot = OFF", 0, 0)
    EndIf
EndFunc

Func off()
    Exit
EndFunc

Thats how it is now, It doesnt send the 123 part :/

[jvanegmond]

I don't know what 'B' is for, but maybe B opens a window or something. And once the window has been opened you want to send text into it.

If that's the case, then 10 milliseconds is probably too quick for the window to show. Try changing it to 100 or 1000 even.

[BluhBlah]

I don't know what 'B' is for, but maybe B opens a window or something. And once the window has been opened you want to send text into it.

If that's the case, then 10 milliseconds is probably too quick for the window to show. Try changing it to 100 or 1000 even.

Ah right xD ms not seconds :/