Sign in to follow this  
Followers 0
BluhBlah

Error Line -1 :s

7 posts in this topic

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

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

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 by Manadar

Share this post


Link to post
Share on other sites

Thanks :D i had forgot a ,

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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 :/

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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 :/

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0