scripters-topic

Page 1 of 4 1 23 Last »
03/29/2008 20:52 Vyndariel#1
Also,

habe mit einem Scripter aus 2Moons gesprochen (danke CosmosTunes)

Func Start()
Do
WinActivate("@Vyn - EPv")
sleep(400)
MouseMove(500, 500, 3)
MouseDown("right")
MouseMove(814, 500, 3)
sleep(400)
MouseUp("right")
sleep(1000)
Until _IsPressed("7A")
EndFunc

Der blockt die Maustaste rechts im Spiel... aber nicht wenn der Ausgangspunkt der Bot ist, welchen man mit WinActivate in den Vordergrund rufen kann... Das Ding is das MouseUp nicht geht, was ja aber für Tab und F1 keinen Einfluss hat. Ergo muss man nach Drehung

WinActivate("Rappelz") machen um weiter zu botten.

Mit WinActive kann man noch eine Abfrage reindonnern ob das richtige Fenster, bei mehreren Möglichkeiten, geöffnet ist.

Na ja, viel Spaß kinders

Liebe Grüße

Vyn

P.S. Die Mutti hat's drauf ;)
03/29/2008 22:16 ckret#2
joa funzen tuts, wenn auch nicht ganz perfekt
kann auch sein dass ich falsch mach

aber ich finds eher als eine notlösung, wie soll man denn dann das ganze fortsetzen?
03/29/2008 22:56 Therawarp#3
welche sprache war jetzt deines vyn hat ähnlichkeit mit autoit und ac tool? aber imprinziep hasste mit der drehung recht muss halt auf die auflösung des spielers und den wirkungsgrad der gewünschten drehung optimiert werden
03/29/2008 22:59 Vyndariel#4
na ja... ich würde halt eine random abfrage machen das er nicht jedesmal nen richtungswechsel um 90 grad macht

natürlich ist es erst einmal nur eine notlösung, aber hey, die drehung is drin und für afk isses doch okay ;)

werds in dem afk-lvl-bot thread mal posten

Liebe Grüße

Vyn
03/29/2008 23:14 Therawarp#5
jo fürn afk bot ist es geil kannst du mir ein nützliches und verständliches tut empfehlen mit link und oder mir vielleicht bisschen zurseite stehen über icq oder ts?
03/30/2008 03:51 xarr666#6
Ich will auchmal (endlich) ein wenig mit AutoIt rummachen...das ist ein super Tool, geht für so viele Sachen :D

[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]

Das sind so die offiziellen Seiten bzw. Anlaufstellen. Das Forum ist sehr gut besucht scheinbar und hat auch einige Tutorials dort in der n00b Sektion.
03/30/2008 14:28 Therawarp#7
wenn ich das von wiki lese dann verstehe ich bis zu einem bestimmten zeitpunkt alles und dann aufeinmal nix mehr ^^ kann aber auch daran liegen das ich mit den sprachen lernen immer nachts zwischen 0.00 - 4.00 uhr anfange ^^
03/31/2008 14:54 Therawarp#8
@vyn habe mich ne zeit mit autoit auseinander gesetzt habe deinen afk bot ausprobiert und wollte fragen ob du mir die .au3 script datei des bottes hochladen oder geben kannst will es an mein low lvlchar anpassen und bisschen verbessern außerdem lerne ich dadurch ^^ wäre echt net
03/31/2008 15:38 ckret#9
das hat er schon gepostet gehabt , such das steht in irgendeinem thread
und bitte mach keine doppelposts das ist echt nervig
03/31/2008 15:41 Vyndariel#10
1. Unterlasse Doppelposting, noch geht dieser Bereich recht ruhig aber wenn das zunehmen würde, werde ich hier Mod-Rechte beantragen und solche Dinge dann ahnden und darauf hab ich einfach mal keine Böcke. Es gibt ne Edit-Funktion, bitte nutz die auch!

2. Es gibt ein neues Script vom 30.03.2008 das poste ich noch drunter.

;original by : Vyn
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("@Vyn - EPvP", 250, 180, 278, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 80, 90, 91, 25, 0)
GUICtrlCreateGroup("", 180, 200, 1, 1)
$Label4 = GUICtrlCreateLabel("F1: Attack (with Creature)", 20, 40, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("F2: Pick Up", 20, 60, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("The following Controls have to set in", 20, 0, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("Main-Shortcut-Bar", 20, 20, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label6 = GUICtrlCreateLabel("To exit press Ctrl + Alt + X", 20, 160, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("To pause script press Break", 20, 140, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$checkCN = GUICtrlCreateCheckbox ("Soul/Force/Lunar Chip Using?", 0, 120, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)

GUISetState(@SW_SHOW)
Global $Paused
hotkeyset("^!x", "MeinExit")
HotKeySet("{PAUSE}", "TogglePause")

Func Load()
EndFunc

Func Start()
Do
if GUICtrlRead($checkCN) = $GUI_CHECKED Then
WinActivate("@Vyn - EPvP")
sleep(200)
MouseMove(500, 500, 3)
sleep(200)
MouseDown("right")
MouseMove(814, 500, 3)
MouseUp("right")
WinActivate("Rappelz")
sleep(1000)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
ControlSend("Rappelz","","","{F3}")
sleep(200)
ControlSend("Rappelz","","","{F1}")
sleep(10000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
else
WinActivate("@Vyn - EPvP")
sleep(200)
MouseMove(500, 500, 3)
sleep(200)
MouseDown("right")
MouseMove(814, 500, 3)
MouseUp("right")
WinActivate("Rappelz")
sleep(1000)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
ControlSend("Rappelz","","","{F1}")
sleep(10000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
endif
Until _IsPressed("7A")
EndFunc

Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start

Start()
EnaDisElts($GUI_ENABLE)
EndSwitch
WEnd

Func MeinExit()
Exit
Endfunc

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc
03/31/2008 16:50 Therawarp#11
k sry werd drauf achten und thx für den source
03/31/2008 19:10 Vyndariel#12
hab's mal gekürzt, bitte testen ob's so auch geht und verbesserungsvorschläge posten.

vyn

;original by : Vyn
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("@Vyn - EPvP", 250, 180, 278, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 80, 90, 91, 25, 0)
GUICtrlCreateGroup("", 180, 200, 1, 1)
$Label4 = GUICtrlCreateLabel("F1: Attack (with Creature)", 20, 40, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("F2: Pick Up", 20, 60, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("The following Controls have to set in", 20, 0, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("Main-Shortcut-Bar", 20, 20, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label6 = GUICtrlCreateLabel("To exit press Ctrl + Alt + X", 20, 160, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("To pause script press Break", 20, 140, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$checkCN = GUICtrlCreateCheckbox ("Soul/Force/Lunar Chip Using?", 0, 120, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)

GUISetState(@SW_SHOW)
Global $Paused
hotkeyset("^!x", "MeinExit")
HotKeySet("{PAUSE}", "TogglePause")

Func Load()
EndFunc

Func Start()
if GUICtrlRead($checkCN) = $GUI_CHECKED Then
WinActivate("Rappelz")
sleep(200)
endif
Do
WinActivate("@Vyn - EPvP")
sleep(200)
MouseMove(500, 500, 3)
sleep(200)
MouseDown("right")
MouseMove(814, 500, 3)
MouseUp("right")
WinActivate("Rappelz")
sleep(1000)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
ControlSend("Rappelz","","","{F1}")
sleep(10000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
endif
Until _IsPressed("7A")
EndFunc

Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start

Start()
EnaDisElts($GUI_ENABLE)
EndSwitch
WEnd

Func MeinExit()
Exit
Endfunc

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc
03/31/2008 19:13 Vyndariel#13
hab's mal gekürzt und die rotation variabel gemacht, bitte testen ob's so auch geht und verbesserungsvorschläge posten.

vyn

;original by : Vyn
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("@Vyn - EPvP", 250, 200, 278, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 80, 90, 91, 25, 0)
GUICtrlCreateGroup("", 180, 200, 1, 1)
$Label4 = GUICtrlCreateLabel("F1: Attack (with Creature)", 20, 40, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("F2: Pick Up", 20, 60, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("The following Controls have to set in", 20, 0, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("Main-Shortcut-Bar", 20, 20, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label6 = GUICtrlCreateLabel("To exit press Ctrl + Alt + X", 20, 180, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("To pause script press Break", 20, 160, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$force = GUICtrlCreateCheckbox ("Soul/Force/Lunar Chip Using?", 0, 120, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$rota = GUICtrlCreateCheckbox ("Ratation?", 0, 140, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)

GUISetState(@SW_SHOW)
Global $Paused
hotkeyset("^!x", "MeinExit")
HotKeySet("{PAUSE}", "TogglePause")

Func Load()
EndFunc

Func Start()
Do
if GUICtrlRead($rota) = $GUI_CHECKED Then
WinActivate("@Vyn - EPvP")
sleep(200)
MouseMove(500, 500, 3)
sleep(200)
MouseDown("right")
MouseMove(814, 500, 3)
MouseUp("right")
WinActivate("Rappelz")
endif
if GUICtrlRead($force) = $GUI_CHECKED Then
WinActivate("Rappelz")
sleep(200)
ControlSend("Rappelz","","","{F3}")
endif
sleep(1000)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
ControlSend("Rappelz","","","{F1}")
sleep(10000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
Until _IsPressed("7A")
EndFunc

Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start

Start()
EnaDisElts($GUI_ENABLE)
EndSwitch
WEnd

Func MeinExit()
Exit
Endfunc

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc
03/31/2008 21:06 AnarchyOra#14
nanana wer hat den jetzt die edit funk nicht benutzt he!Aber ma echt der code is gut ich benutze ihn auch nur man muss doch noch irgendwie was machen können damit die maus auch im game funktioniert.

Aber soviele Leute wie da gerade dran arbeiten wird das sicher noch:D
03/31/2008 22:58 Therawarp#15
;original by : Vyn modified by Therawarp
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("@Vyn - EPvP", 250, 180, 278, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 80, 90, 91, 25, 0)
GUICtrlCreateGroup("", 180, 200, 1, 1)
$Label4 = GUICtrlCreateLabel("F1: Attack (with Creature)", 20, 40, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("F2: Pick Up", 20, 60, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("The following Controls have to set in", 20, 0, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("Main-Shortcut-Bar", 20, 20, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label6 = GUICtrlCreateLabel("To exit press Ctrl + Alt + X", 20, 160, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("To pause script press Break", 20, 140, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$checkCN = GUICtrlCreateCheckbox ("Soul/Force/Lunar Chip Using?", 0, 120, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)

GUISetState(@SW_SHOW)
Global $Paused
hotkeyset("^!x", "MeinExit")
HotKeySet("{PAUSE}", "TogglePause")

Func Load()
EndFunc

Func Start()
Do
if GUICtrlRead($checkCN) = $GUI_CHECKED Then
sleep(1000)
WinActivate("Rappelz")
sleep(1000)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
ControlSend("Rappelz","","","{F3}")
sleep(200)
ControlSend("Rappelz","","","{F1}")
sleep(10000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
else
sleep(1000)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
ControlSend("Rappelz","","","{F1}")
sleep(10000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
endif
Until _IsPressed("7A")
EndFunc

Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start

Start()
EnaDisElts($GUI_ENABLE)
EndSwitch
WEnd

Func MeinExit()
Exit
Endfunc

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc


hab mir erlaubt die mousemoves und winactivates rauszunehmen waren überflüssig haben nur zu einem ständigen switch geführt und mousemove hat nichts gebracht :(
Page 1 of 4 1 23 Last »