scripters-topic

Vyndariel · 04/01/2008, 12:26

doch mousemove hat was gebracht, vllt jetzt nicht in der letzten version, das sollte ja getestet werden ^^

aber eigtl. macht mousemove, wenn haken gesetzt, schon was, soweit ich das sehe bitte erneut testen.
Btw. winactivates sind notwendig für rotation da mausbewegen nur bedingt an rappelz gesandt wird.

und wg. edit... ich hatte ne flasche whiskey intus mit nem kumpel und nicht auf topkondition ^^

~~Therawarp~~ · 04/01/2008, 15:59

aso dann gucken wer mal wida ^^

Slovikas · 04/01/2008, 19:04

so do u already have smth to mouse auto-move? if yes then pls post a download link

TheManaic4 · 04/01/2008, 22:53

@Therawarp Die MouseMove Funktionen bringen sehr wohl was Oo, vielleicht Rappelz im windows mode laufen lassen~~. Und wenn du die mouse-funktionen wegnimmst hast praktisch den alten script von Vyn lol

und dann ist ;original by : Vyn modified by Therawarp Scipt irgendwie sinnlos.

Nice work Vyn.

Aber irgendwie bleibt bei mir der rechte mouse Button immer down, MouseUp("right") funzt nicht richtig.

Jemand eine idee wie man die rechte MouseTaste wieder hochbekommt?

PvPMeister · 04/01/2008, 23:56

habe mich mit AutoIt erst 1 tag lang beschäfftigt

was muss man machen damit die 'befehle' sich wiederholen sollen?

also zum beispiel

sleep(10000)
MouseMove( 100, 100, 1)
MouseMove( 800, 100, 1)

was muss ich jetzt machen damit diese aktion sich ständig wiederholt?

dann kann ich schonmal meinen ersten bot machen ...

( für rappelz is das noch einfach aber für andere games ist das nich so ^^)

TheManaic4 · 04/02/2008, 06:07

While 1
sleep(10000)
MouseMove( 100, 100, 1)
MouseMove( 800, 100, 1)
WEnd

zum Beispiel

Alenos · 04/02/2008, 07:02

Quote:

Originally Posted by vyn

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

sorry to be such a noob but i was wondering if you could tell me what this means because me no comprehend this language

Vyndariel · 04/02/2008, 09:03

Bitte folgendes Script austesten. Gerade auch bzgl. Rotation. Hab evtl. ein Problem gesehen. Beim Chippen wird das Monster sofort gelured und mit Tab das nächste anvisiert. Evtl. dann Problem mit 2 Mob-Attacking.
Abfrage umgeschrieben

Quote:

Changed:
VersionDate Added
GUI-Headline VersionDate Added
GUI-Label for Chipping Information Added
Changed Rotation System
Changed Chipping System

;original by : Vyn
;VersionDate : 02.04.2008
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("@Vyn - EPvP 02.04.2008", 250, 220, 278, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 80, 110, 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)
$Label8 = GUICtrlCreateLabel("F3: Chipping (Have to be activated)", 20, 80, 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, 200, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("To pause script press Break", 20, 180, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$force = GUICtrlCreateCheckbox ("Soul/Force/Lunar Chip Using?", 0, 140, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$rota = GUICtrlCreateCheckbox ("Ratation?", 0, 160, 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)
sleep(200)
WinActivate("@Vyn - EPvP")
MouseUp("right")
sleep(200)
WinActivate("Rappelz")
endif
if GUICtrlRead($force) = $GUI_CHECKED Then
WinActivate("Rappelz")
sleep(200)
ControlSend("Rappelz","","","{F3}")
sleep(1000)
ControlSend("Rappelz","","","{F1}")
sleep(10000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
endif
WinActivate("Rappelz")
sleep(200)
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

Alenos · 04/02/2008, 17:34

by any chanse could you post the writing part in both english aswell please

~~Therawarp~~ · 04/03/2008, 08:23

mann kann es ausstellen das er beim chipen angreift unter optionen ingame

Vyndariel · 04/03/2008, 10:23

nein... ich meine nicht das man selber angreift sondern das monster greift einen an ^^

~~Therawarp~~ · 04/03/2008, 18:02

jo xD ^^ wo ich das gepostet habe war ich noch in der schule (verschlafen) sry

~~Therawarp~~ · 04/03/2008, 22:57

hi nochmal ich habe aus deinem bot ein bisschen autoit gelernt danke vyn aber jetzt zu meinem script bitte testen hab neue funktionen zugefügt und paar sachen verbessert gibt nurnoch ein problem was ich hab hat aber spezifisch nix mit den funktionen zutun ich weiß bloß nicht ob es klappt überall nen hacken reinzumachen und der bot dann noch läuft weil ich einfach nur neue funktionen ausgelegt hatte aber keine ahnung hatte wie es geht das sich die optionen über schneiden bitte tipps fürs nächste geben und nicht zu streng kritisieren ^^

; by :Original by vyn modifiziert by Therawarp
;VersionDate : 03.04.2008
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("vyns modified Bot | Rappelz", 500, 380, 278, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 150, 130, 91, 25, 0)
GUICtrlCreateGroup("", 180, 200, 1, 1)
$Label4 = GUICtrlCreateLabel("F1: Attack (take a skill or normal attack to this position ingame)", 60, 60, 390, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("F2: Pick Up (take here the pick up skill ingame)", 60, 80, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label8 = GUICtrlCreateLabel("F3: Chip using(take your chips on the F3 position ingame)", 60, 100, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("The following Controls have to set in", 60, 20, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x27b310)
$Label1 = GUICtrlCreateLabel("Main-Shortcut-Bar", 60, 40, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x27b310)
$Label6 = GUICtrlCreateLabel("To exit press Ctrl + Alt + X", 130, 240, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x27b310)
$Label7 = GUICtrlCreateLabel("To pause script press Break", 130, 260, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x27b310)
$force = GUICtrlCreateCheckbox ("Force/Soul/Lunar Chip Using?", 130, 160, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$rota = GUICtrlCreateCheckbox ("Rotation (to rotate your sight?) ", 130, 180, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$longerattack = GUICtrlCreateCheckbox ("Longer attack time(15 sec) ?", 130, 200, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$moreattack = GUICtrlCreateCheckbox ("for more attack skills on F1 and F4-F5(10 secs attack time) ", 130, 220, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("Original by Vyn modified by_-->_.-=\ T_e_r_a_w_a_r_p /=-_.", 60, 310, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")

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

Func Load()
EndFunc

Func Start()
Do
if GUICtrlRead($moreattack) = $GUI_CHECKED Then
WinActivate("Rappelz")
sleep(200)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
ControlSend("Rappelz","","","{F1}")
sleep(1000)
ControlSend("Rappelz","","","{F4}")
sleep(1000)
ControlSend("Rappelz","","","{F5}")
sleep(8000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(200)
endif
if GUICtrlRead($longerattack) = $GUI_CHECKED Then
WinActivate("Rappelz")
sleep(200)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
ControlSend("Rappelz","","","{F1}")
sleep(15000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
EndIf
if GUICtrlRead($rota) = $GUI_CHECKED Then
WinActivate("vyns modified Bot | Rappelz")
sleep(200)
MouseMove(500, 500, 3)
sleep(200)
MouseDown("right")
MouseMove(814, 500, 3)
sleep(200)
WinActivate("vyns modified Bot | Rappelz")
MouseUp("right")
sleep(200)
WinActivate("Rappelz")
endif
if GUICtrlRead($force) = $GUI_CHECKED Then
WinActivate("Rappelz")
sleep(200)
ControlSend("Rappelz","","","{F3}")
sleep(1000)
ControlSend("Rappelz","","","{F1}")
sleep(10000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
endif
WinActivate("Rappelz")
sleep(200)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
ControlSend("Rappelz","","","{F1}")
sleep(12000)
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

~~Therawarp~~ · 04/04/2008, 17:19

und schon wieder was neues von mir diesmal könnt ihr überall gleichzeitig nen haken reinklatschen hoffe es funzt habs selber noch nicht getestet aber es ist völlig neu gut es euch an und sagt was ich dann noch verbessern kann

; by :Original by vyn modifiziert by Therawarp V1.1 BETA
;VersionDate : 03.04.2008
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("vyns modified Bot | Rappelz V1.1 BETA", 500, 380, 278, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 190, 130, 91, 25, 0)
GUICtrlCreateGroup("", 180, 200, 1, 1)
$Label4 = GUICtrlCreateLabel("F1: Attack (take a skill or normal attack to this position ingame)", 60, 60, 390, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("F2: Pick Up (take here the pick up skill ingame)", 60, 80, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label8 = GUICtrlCreateLabel("F3: Chip using(take your chips on the F3 position ingame)", 60, 100, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("The following Controls have to set in", 60, 20, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x27b310)
$Label1 = GUICtrlCreateLabel("Main-Shortcut-Bar", 60, 40, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x27b310)
$Label6 = GUICtrlCreateLabel("To exit press Ctrl + Alt + X", 130, 240, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x27b310)
$Label7 = GUICtrlCreateLabel("To pause script press Break", 130, 260, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x27b310)
$force = GUICtrlCreateCheckbox ("Force/Soul/Lunar Chip Using?", 130, 160, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$rota = GUICtrlCreateCheckbox ("Rotation (to rotate your sight?) ", 130, 180, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$longerattack = GUICtrlCreateCheckbox ("Longer attack time(15 sec) ?", 130, 200, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$moreattack = GUICtrlCreateCheckbox ("for more attack skills on F1 and F4-F5(10 secs attack time) ", 130, 220, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("Original by Vyn modified by_-->_.-=\ T_e_r_a_w_a_r_p /=-_.", 60, 310, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$withoutmore = GUICtrlCreateCheckbox("klick if you want to bot without more attack skills option", 130, 280, 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("vyns modified Bot | Rappelz V1.1 BETA")
sleep(200)
MouseMove(500, 500, 3)
sleep(200)
MouseDown("right")
MouseMove(814, 500, 3)
sleep(200)
WinActivate("vyns modified Bot | Rappelz V1.1 BETA")
MouseUp("right")
sleep(200)
WinActivate("Rappelz")
endif

WinActivate("Rappelz")
sleep(200)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
if GUICtrlRead($force) = $GUI_CHECKED Then
ControlSend("Rappelz","","","{F3}")
sleep(1000)
EndIf
ControlSend("Rappelz","","","{F1}")
sleep(500)
if GUICtrlRead($moreattack) = $GUI_CHECKED Then
ControlSend("Rappelz","","","{F4}")
sleep(1000)
ControlSend("Rappelz","","","{F5}")
sleep(1000)
EndIf
Sleep(5500)
if GUICtrlRead($withoutmore) = $GUI_CHECKED Then
Sleep(6000)
EndIf
if GUICtrlRead($longerattack) = $GUI_CHECKED Then
Sleep(3000)
EndIf
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

~~Therawarp~~ · 04/04/2008, 17:31

von mir wurds grad getestet hat geklapt aber vyn bin ja vorgestern erst richtig eingestiegen und weiß nicht ob das funktionsmässig überhaubt sinvoll is obwohl es ich möchte meinen besser is als dein originales oder lieg ich damit falsch möchte dich nicht bedrängen oderso ohne deins hätt ichs nicht geschafft aber so probs aus und sag du was dazu bist besser im beurteilen als ich