Sign in to follow this  
Followers 0
Deni

How do i do this?

3 posts in this topic

Yo! I was programing a bot to a online web game ( Impulse.nu ) but then I forgot how to do one thing. And i tryed to look in the help file and SEARCHING on the fourms but no luck.

So here's the question.

First the code

Func hotkey()
    $money = 20
Endfunc

So what i want to do is to pause the current loop and then press on my hotkeybutton and then he'll do this code.

If $money = 20 Then
            Sleep(200)
            MouseClick("left", 94, 43)
            Sleep(100)
            Send("http://www.impulse.nu/?sida=stan/stan&bankomat=in&q=")
            Sleep(100)
            Send("{ENTER}")
            Sleep(100)
            MouseClick("left", 1012, 691);---------------------KLICKAR PÅ PILEN I SCROLLBAREN (webläsaren ska åka ner)
            Sleep(300)
            MouseClick("left", 159, 546);------------------------KLICKAR PÅ BANKKONTO TEXTBOXEN (för att skriva in antalet)
            Sleep(100)
            Send("10000");--------Skriver in antalet pengar du ska ta ut
            Sleep(300)
            MouseClick("left", 297, 539);---------------KLICKAR PÅ OK KNAPPEN (TA UT PENGAR UR BANKEN RUTAN)
            If WinActivate("Meddelande från webbsida", "Du har inte") Then
                Send("{ENTER}")
            EndIf
            $money = 0

But I forgot if you can do that :S

Hope you understanded

Denis

Share this post


Link to post
Share on other sites



NOT TESTED***

; Press Esc to terminate script, Pause/Break to "pause"

Global $Paused, $money
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F9}", "ShowMe")

;;;; Body of program would go here ;;;;
While 1
    If $money = 20 Then
        Sleep(200)
        MouseClick("left", 94, 43)
        Sleep(100)
        Send("http://www.impulse.nu/?sida=stan/stan&bankomat=in&q=")
        Sleep(100)
        Send("{ENTER}")
        Sleep(100)
        MouseClick("left", 1012, 691);---------------------KLICKAR PÅ PILEN I SCROLLBAREN (webläsaren ska åka ner)
        Sleep(300)
        MouseClick("left", 159, 546);------------------------KLICKAR PÅ BANKKONTO TEXTBOXEN (för att skriva in antalet)
        Sleep(100)
        Send("10000");--------Skriver in antalet pengar du ska ta ut
        Sleep(300)
        MouseClick("left", 297, 539);---------------KLICKAR PÅ OK KNAPPEN (TA UT PENGAR UR BANKEN RUTAN)
        If WinActivate("Meddelande från webbsida", "Du har inte") Then
            Send("{ENTER}")
        EndIf
        $money = 0
    EndIf
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

Func ShowMe()
    $money = 20
EndFunc   ;==>ShowMe

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

Valuater Thanks Mate!

That worked now i can move on and make the bot finished so me and my friends can bot :)

Thanks again mate!

Denis

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