Requests - AutoIt only

[totalplayer]

Bräuchte einen Bot für ein Spiel(Metin2) der alle 10 Sek die Taste f4 drückt^^

Wäre nice wenn mir einer das machen würde :3

Mfg totalplayer

[EnemyUnknown]

Hello Everybody,
I hope this is the proper way to do this. I'm new so please bear with me. I'm trying to write a script in autoit for runescape. If anyone is familiar with both or at least has better autoit skills than my noob self please reply. Again sense I don't know if this is the proper way to respond to this thread on this website I'm just going to attach the file and give a brief description of the request. I have a loop that mines coal from the barbarian village and banks it in Edgeville. The specific part I need tweaking on is how the script waits between mining the coal. I have it set up to pixelsearch for the coal, mouseclick the coal, and wait until there is a change using pixelchecksum somewhere in my Backpack. The request is how do I make it so that it does what I previously described plus research for the coal if there is no change in my backpack for a set amount of time. This is needed because sometimes the character takes forever to get the ore and it gets stolen by other players. If and when this happens my player just stands there waiting for the change to happen in my backpack which never does because someone else got the ore first.

Thank you in advance to anyone who can help me solve this.

 Spoiler

HotKeySet("!{SPACE}", "TogglePause")
HotKeySet("{ESC}", "exitthescript")
HotKeySet("!a", "CoalRun")
Global $Paused

While (1)
Sleep(Random(1000, 2000, 1))
;remove semi colon to get it to start but beware it starts right away and you have to open the runescape window and be standing at the bank in edgevilleCoalRun()
WEnd

Func CoalRun()
;insert travel
LC4(1257, 295)
Long_Sleep()
LC4(1276, 298)
Sleep(Random(12500, 14000, 1))
LC4(1248, 225)
Small_Sleep()

$StillMining = True

While ($StillMining)
Sleep(Random(1000, 5000, 1))
SearchForCoal()
Wait()
$InvFull = PixelSearch(1315, 596, 1350, 625, 0x2D2D1C, 5)
If Not (@error) Then
$StillMining = False
EndIf
WEnd

LC4(1315, 72)
Med_Sleep()
LC4(1315, 72)
Med_Sleep()
LC4(1262, 133)
Med_Sleep()
$Banker = PixelSearch(480, 230, 964, 638, 0x876B90, 5);Change this to the color of the mob and the search area
If Not (@error) Then
LC2($Banker[0], $Banker[1])
Small_Sleep()
EndIf
LC3(753, 628)
VSmall_Sleep()
EndFunc ;==>CoalRun

Func SearchForCoal()
$Searching = True
While ($Searching)
$Coal = PixelSearch(565, 226, 831, 471, 0x272B28, 1)
If Not (@error) Then
LC($Coal[0], $Coal[1])
$Searching = False
EndIf
WEnd
EndFunc ;==>SearchForCoal

Func Wait()
$Waiting = True

Local $Gotone = PixelChecksum(1165, 377, 1352, 629)
While ($Gotone) = PixelChecksum(1165, 377, 1352, 629)
If Not (@error) Then
$Waiting = False
EndIf
WEnd
EndFunc ;==>Wait

Func LC($x, $y)
MouseClick("Left", $x - (Random(-3, 3, 1)), $y - (Random(-3, 0, 1)))
EndFunc ;==>LC

Func LC2($x, $y)
MouseClick("Left", $x - (Random(-5, 5)), $y - (Random(-5, 5)), 1, 10);this Left Click is in a random 10x10 square
EndFunc ;==>LC2

Func LC3($x, $y)
MouseClick("Left", $x - (Random(-10, 10)), $y - (Random(-10, 10)), 1, 10);this Left Click is in a random 20x20 square
EndFunc ;==>LC3

Func LC4($x, $y)
MouseClick("Left", $x - (Random(-1, 1)), $y - (Random(-1, 1)), 1, 10);this Left Click is in a random 20x20 square
EndFunc ;==>LC4

Func VSmall_Sleep()
Sleep(Random(1538, 2552, 1))
EndFunc ;==>VSmall_Sleep

Func Small_Sleep()
Sleep(Random(5558, 7375, 1))
EndFunc ;==>Small_Sleep

Func Med_Sleep()
Sleep(Random(11052, 15069, 1))
EndFunc ;==>Med_Sleep

Func Long_Sleep()
Sleep(Random(18192, 21887, 1))
EndFunc ;==>Long_Sleep

Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Script is "Paused = SCRIPT IS NOT RUNNING = press Space to unpause."', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause

Func exitthescript()
Exit
EndFunc ;==>exitthescript

[Moneypulation]

Originally Posted by EnemyUnknown

research for the coal if there is no change in my backpack for a set amount of time.

Therefore you can use Timers:

[EnemyUnknown]

Originally Posted by Moneypulation

Therefore you can use Timers:

Thanks,
I've been watching tutorials and reading the help file for about a week or two now and I just can't understand it well enough to get my code to work. I need someone to hold my hand and walk me through it. Either way thanks.

[EnemyUnknown]

I still can't get it. Can someone show me how to add timers into my codes?

[Szputnyik]

Könnte mir jemand einen kleinen Bot schreiben?

Er soll einmal TAB drücken und danach die Taste 1 drücken und dann jede Sekunde für 20 Sekunden die Taste 2 drücken. Pause für 30 Sekunden und das selbe von vorne.

Kann mir das jemand in AutoIT-Sprache schreiben?

[mlukac89]

Originally Posted by Fireflyr

Hey zusammen.
Vor einiger Zeit war ich mal im Besitz eines Scripts, welches ich via einen Hotkey (num_1) starten und num_0 stoppen konnte. Es hat 3 Tasten gleichzeitig jede Sekunde gedrückt, bis ich es manuell disabled habe. Diese Tasten waren: "F1", "Space" und "^".

Besteht die Chance, ein solches hier erneut zu bekommen?
Danke im Vorraus!

PS: Würde es so funktionieren:
HotKeySet ( "{num_1}" , "Start" )
HotKeySet("{num_5}", "Pause")
HotKeySet ( "{num_0}" , "Ende" )

Func Start ()
While 1
Sleep (1000)
Send("{F1}")
Send("{Space}")
Send("{^}")
WEnd
EndFunc


Func Ende ()
Exit
EndFunc

Func Pause()
While 1
Sleep(999999999999999)
WEnd
EndFunc

While 1
Sleep(1)
WEnd

You need to enter NUMPAD keys in right format NUMPAD0 - NUMPAD9

try this :

#RequireAdmin

HotKeySet ( "{NUMPAD1}" , "Start" )
HotKeySet("{NUMPAD5}", "Pause")
HotKeySet ( "{NUMPAD0}" , "Ende" )

Func Start ()
	While 1
		Sleep (1000)
		Send("{F1}")
		Send("{Space}")
		Send("{^}")
	WEnd
EndFunc


Func Ende ()
	Exit
EndFunc

Func Pause()
	While 1
		Sleep(999999999999999)
	WEnd
EndFunc

While 1
	Sleep(10)
WEnd

[h4ss4n]

I'm looking for a script when I hold down ''e'' I want the script to hold down ''s'' and ''f'' without the keys releasing all the time and when i release ''e'' I want ''s'' and ''f'' to be released at the same time.

[milomoves]

I have been working on a script in autoit that will test promo codes for me in an automated web browser.

I have gotten so far as to automating opening the browser (IE) to the check out screen, inputting a set value (ie 125) into the text box and submitting the form.

However, I need to create a loop that will test the set number and test the next numbers in the sequence (ie 125, 126, 127 and so on)

Ideally, I would love if it reported back which ones actually worked based on the error message the browser generates, but that is not necessary at this point and doesnt need a gui at this point either.

Does anyone have a quick script for this?

Thanks.

-Milo

[lenclstr746]

Background imagesearch example pls ?

[VitorCornelius]

Originally Posted by lenclstr746

Background imagesearch example pls ?

U mean when the window / client is minimalized?
If you think like that, then it wont work in AutoIT as far as i know. There is a UDF for it, but the image what you are looking for on the screen, have to be able to see. I ment the window have to be on screen, can not cover it with other window. You can search in a part of the screen with it as well to speed up the process. If you want better imagesearch stuffs, i recomended to use python openCV lib.

for pause ur script i recomended the standerd way insted of (sleep(99999999) in a while loop):

Func _PAUSE()
$paused = Not $paused
While $paused
Sleep(100)
ToolTip('Script is "Paused"', 0, 0)
WEnd
ToolTip("", 0, 0)
EndFunc

If you repress the hotkey for Pause, it will continue running your script where it was paused.

[Toonami2010]

Hello comunity, i hope all are fine.
i need to create a simple Battle bot of this game:
i tried Recorde mause and others Programs but nothing work inside game.

i only need a bot attack, and use potions for hp/mp, i think is easy because the game have an autoSelect tarjet."TAB Buttom" and Number 1,2,3,4,5.. is for Skill. Please help me to do that i will be gratefull.

PD: Look this Tutorial how to do. i tried it but i don't know nothing about Programing lang.

[mhaendler]

Hey Guys i want to automate a certain task (not account creater) for web.de.

After the Login i cant get _IELoadWait working, it stops there / doesnt response / doesnt tell me when the web page is ready.

Any1 else already had this problem?

[lenclstr746]

Background imagesearch is impossible ? If impossible then please share libary and a example ? Thx

Originally Posted by mhaendler

Hey Guys i want to automate a certain task (not account creater) for web.de.

After the Login i cant get _IELoadWait working, it stops there / doesnt response / doesnt tell me when the web page is ready.

Any1 else already had this problem?

Try to _IEPropertyGet("your browser variable","locationurl") = your web page url or _IEBodyReadHTML($webb) = your pages source code ıf blank then

[buglyff]

hi i have a request, Im playing a certain game that needs a lot of farming.. i already have a code that finds the monster and kill it but my code is not yet complete. If someone could write me a code that will determine if the monster im killing is still alive and wait until my character kills it before switching to other monster.. I could post my code here if someone will be willing to add some revisions of it.. btw im playing Flyff private server..

 Spoiler

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <FastFind.au3>

Global $Runner

HotKeySet("{PGUP}", "start")
HotKeySet("{PGDN}", "stop")
HotKeySet("{F10}", "pause")

While 1
Sleep(3500)
WEnd

; -------- Functions -------------------

Func start()
WinActive("Mighty Flyff - ThomaShelby")
WinMove("Mighty Flyff - ThomaShelby", "", 0, 0)
$Runner = Not $Runner

$xMobHp = 552
$yMobHp = 66
$MobHpColor = "0xF37976"

While $Runner
$pixel = FFNearestSpot( 1, 1, 1237, 91, 0xFFFAA5, false)
If IsArray($pixel) = True Then
MouseMove($pixel [0], $pixel [1], 1)
MouseDown ("Left")

Else
Dim $box[4] = [253, 178, 555, 376]
MouseClick("left", Random($box[0], $box[2]), Random($box[1], $box[3]))
EndIf
Sleep (5000)
WEnd
EndFunc ;==>start

Func pause()
$Runner = False
while $Runner = False
sleeP(1)
WEnd
EndFunc

Func stop()
Exit
EndFunc ;==>stop