Func Sammlung (nützlich für eure Bots)

[xSharkoonX]

dann mach doch eine

[Peterpanitz]

bin zu faul^^
schrieb ich doch eben xD

war ja nur ne anregung

[wadimwadim]

es gab hier doch schon ein paar indentfuncs

[aLasca]

hi, ich mal wieder

ich hab da ne frage, undzwar folgende:

Ist es möglich eine func eine gewünschte anzahl wiederholen zu lassen, und die gewünschte anzahl beim start vom bot in eine inputbox einzutragen?

[DaAlex]

das würde ich mit einer schleife machen welche ist egal
while oder for

global $zahl 2 = 0
$zahl = Inputbox("***","***")

Func main()
...
while $zahl2 < $zahl
...
$zahl2 = $zahl2 + 1
wend
endfunc

da macht der so lange weiter bis $zahl2 gleich oder größer $zahl ist


oder

$zahl = Inputbox("***","***")

Func main()
...
for $zahl to 0 step -1
...
next
endfunc

da macht er solange dir for schleife bis $zahl = 0 ist

[aLasca]

Global $zahl 2 = 0
$zahl = Inputbox("***","***")

Func materialien kaufen()
MouseMove(239, 309)
MouseDown("left")
MouseUp("left")
Sleep(500)
MouseMove(296, 358)
MouseDown("left")
MouseUp("left")
While $zahl2 < $zahl
...
$zahl2 = $zahl2 + 1
WEnd
EndFunc

danke für die schnelle antwort, kannst du noch auskommentieren was wo hinkommt, und welche stelle was bewirkt?

[DaAlex]

Originally Posted by aLasca

danke für die schnelle antwort, kannst du noch auskommentieren was wo hinkommt, und welche stelle was bewirkt?

Global $zahl 2 = 0
$zahl = Inputbox("***","***")

Func materialien kaufen()
While $zahl2 < $zahl
MouseClick("left", 239, 309, 1)
sleep(500)
MouseClick("left", 296, 358, 1)
$zahl2 = $zahl2 + 1
WEnd
EndFunc

ich denke das du es so willst wenn du jetzt zb in die inputbox 7 eingibst kauft der 7 mal das material

[aLasca]

^korekkt maaan^^

€: Line 13

Global $zahl 2 = 0
Global $zahl ^ERROR

Error: No variable given for "Dim", "Local", "Global", "Struct" or "Const" statement.

[DaAlex]

sry mein fehler muss $zahl2 heißen zusammen geschrieben

[aLasca]

Global $zahl2 = 0
$zahl = Inputbox("Materalienkauf","Wieviel möchtest du kaufen?")

If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")

EndIf

Func kaufen()
While $zahl2 < $zahl
MouseClick("left", 239, 309, 1)
sleep(500)
MouseClick("left", 296, 358, 1)
$zahl2 = $zahl2 + 1
WEnd
EndFunc

so hab ich das jetzt. ich geb z.B. ein '3' und dann is winactivate und dann exit

[DaAlex]

Global $zahl2 = 0
$zahl = Inputbox("Materalienkauf","Wieviel möchtest du kaufen?")

If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
WinWaitActive("Guild Wars")
EndIf

Func kaufen()
While $zahl2 < $zahl
MouseClick("left", 239, 309, 1)
sleep(500)
MouseClick("left", 296, 358, 1)
sleep(500)
$zahl2 = $zahl2 + 1
WEnd
EndFunc

würde das noch dazwischen machen dann wartet der bis es wirklich aktiv ist und drückt dann erst

[aLasca]

geht trotzdme nciht
Wie gesagt, er aktiviert nur gw nachdem ich z.B. eingegeben habe '3'
danach ist au3.exit

€:

Global $zahl2 = 0
$zahl = Inputbox("Materalienkauf","Wieviel möchtest du kaufen?")

If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
WinWaitActive("Guild Wars")
EndIf

Func kaufen()
While $zahl2 < $zahl
MouseClick("left", 239, 309, 1)
sleep(500)
MouseClick("left", 296, 358, 1)
$zahl2 = $zahl2 + 1
WEnd
EndFunc

Do
Call("kaufen")
Until

Er gibt mir da nen Error, aber zummindest hab ich heruasgefunden das die func erstmal gecallt werden muss..und er hat auch geklickt

[DaAlex]

jop man muss ja auch die funktion aufrufen bevor er die startet^^
musste aber nicht mit do until

Global $zahl2 = 0
$zahl = Inputbox("Materalienkauf","Wieviel möchtest du kaufen?")

If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
WinWaitActive("Guild Wars")
EndIf

Func kaufen()
While $zahl2 < $zahl
MouseClick("left", 239, 309, 1)
sleep(500)
MouseClick("left", 296, 358, 1)
$zahl2 = $zahl2 + 1
WEnd
EndFunc

kaufen()

hätte auch gereicht

[aLasca]

Global $zahl2 = 0
$zahl = Inputbox("Materalienkauf","Wieviel möchtest du kaufen?")

If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
WinWaitActive("Guild Wars")
EndIf

Sleep(5000)

Func kaufen()
While $zahl2 < $zahl
MouseClick("left", 239, 309, 1)
sleep(500)
MouseClick("left", 296, 358, 1)
$zahl2 = $zahl2 + 1
WEnd
EndFunc

Do
Call("kaufen")
$zahl2 = $zahl2 + 1
Until $zahl = Inputbox("Materalienkauf","Wieviel möchtest du kaufen?")
Exit

Er erfüllt die aufgabe, schließt sich aber nicht von selbst sondern öffnet ne neue Inputbox xD was is da schonwieder falsch ? xD

€: hat sich geklärt^^

[kknb]

boah was macht ihr da fürn käse o_O

$anzahl = Inputbox("Materalienkauf","Wieviel möchtest du kaufen?")
$i = 0
If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
WinWaitActive("Guild Wars")
EndIf

Sleep(5000)

for $i = 1 to $anzahl
MouseClick("left", 239, 309, 1)
sleep(500)
MouseClick("left", 296, 358, 1)
sleep(50)
Next