Register for your free account! | Forgot your password?

Go Back   elitepvpers > MMORPGs > Rappelz
You last visited: Today at 02:22

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



scripters-topic

Discussion on scripters-topic within the Rappelz forum part of the MMORPGs category.

Closed Thread
 
Old   #1
 
elite*gold: 20
Join Date: Feb 2006
Posts: 1,935
Received Thanks: 1,859
[Release:] Mouse-Action

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
Vyndariel is offline  
Old 03/29/2008, 22:16   #2
 
elite*gold: 0
Join Date: Apr 2007
Posts: 303
Received Thanks: 36
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?
Attached Files
File Type: txt script.txt (1.7 KB, 64 views)
ckret is offline  
Old 03/29/2008, 22:56   #3
 
elite*gold: 20
Join Date: Feb 2008
Posts: 558
Received Thanks: 151
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
Therawarp is offline  
Old 03/29/2008, 22:59   #4
 
elite*gold: 20
Join Date: Feb 2006
Posts: 1,935
Received Thanks: 1,859
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
Vyndariel is offline  
Old 03/29/2008, 23:14   #5
 
elite*gold: 20
Join Date: Feb 2008
Posts: 558
Received Thanks: 151
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?
Therawarp is offline  
Old 03/30/2008, 03:51   #6
 
elite*gold: 0
Join Date: Jul 2005
Posts: 83
Received Thanks: 16
Ich will auchmal (endlich) ein wenig mit AutoIt rummachen...das ist ein super Tool, geht für so viele Sachen





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.
xarr666 is offline  
Old 03/30/2008, 14:28   #7
 
elite*gold: 20
Join Date: Feb 2008
Posts: 558
Received Thanks: 151
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 ^^
Therawarp is offline  
Old 03/31/2008, 14:54   #8
 
elite*gold: 20
Join Date: Feb 2008
Posts: 558
Received Thanks: 151
@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
Therawarp is offline  
Old 03/31/2008, 15:38   #9
 
elite*gold: 0
Join Date: Apr 2007
Posts: 303
Received Thanks: 36
das hat er schon gepostet gehabt , such das steht in irgendeinem thread
und bitte mach keine doppelposts das ist echt nervig
ckret is offline  
Old 03/31/2008, 15:41   #10
 
elite*gold: 20
Join Date: Feb 2006
Posts: 1,935
Received Thanks: 1,859
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
Vyndariel is offline  
Thanks
1 User
Old 03/31/2008, 16:50   #11
 
elite*gold: 20
Join Date: Feb 2008
Posts: 558
Received Thanks: 151
k sry werd drauf achten und thx für den source
Therawarp is offline  
Old 03/31/2008, 19:10   #12
 
elite*gold: 20
Join Date: Feb 2006
Posts: 1,935
Received Thanks: 1,859
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
Vyndariel is offline  
Old 03/31/2008, 19:13   #13
 
elite*gold: 20
Join Date: Feb 2006
Posts: 1,935
Received Thanks: 1,859
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
Vyndariel is offline  
Old 03/31/2008, 21:06   #14
 
elite*gold: 0
Join Date: Mar 2008
Posts: 20
Received Thanks: 0
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
AnarchyOra is offline  
Old 03/31/2008, 22:58   #15
 
elite*gold: 20
Join Date: Feb 2008
Posts: 558
Received Thanks: 151
;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
Therawarp is offline  
Closed Thread


Similar Threads Similar Threads
Tagebuch eines Scripters
11/16/2009 - GW Guides & Templates - 26 Replies
Wie schreibe ich Bots, Wie lerne ich Autoit, wie funktioniert dass mit den Pixeln usw... Da solche Fragen immer wieder aufkommen, habe ich mir gedacht ich eröffne mal diesen Tread, um zu erzählen wie Ich zu den Botten gekommen bin und welche Erfahrungen ich bis heute damit gemacht habe. Ich möchte mich hiermit nicht als den über haxxor coder darstellen. Ich möchte hiermit lediglich denen die sich für dass Thema botten und coden interesieren eine kleine Motivationshilfe bieten und zeigen daß...
@ Scripters only... Srsly lol
11/06/2009 - Grand Chase - 5 Replies
Should I like make a tut to stop all of these people asking how to script edit or just like... let them spam the forums ? @Frost before you say aything... Yes there is a search button but no SET tut.. Mainly the things you hate (aka. a spoon fed tutorial)
[QUESTION] GCPH(mods, scripters, hacker, etc)
10/18/2009 - Grand Chase - 8 Replies
sir brian and the other mods.. why GCPH are in private now?? this is a hacking community right?? and BTW u said it is in private?? how can i download it.. im certified elitepvper member.. :) ~feel free to post your script sir..
SeasonStory x1000 v.62 We Need Coders/Scripters
07/08/2009 - MapleStory - 0 Replies
hi im Jason from SeasonStory i am not the Owner Kaido is ive created this thread for him. We are a new server looking for some active members bring all your friends we are trying to get a good maplestory community started to join our server please download hamachi: https://secure.logmein.com/products/hamachi/list. asp You need V.62 heres the link: Video Game Downloads
Wanting Programmers, Scripters and Others
03/17/2007 - Conquer Online 2 - 5 Replies
I been using Several hacks, Macros, Auto Run Scripts exc and Stumble on the same problem as most, very Shitty Programming, I find few I like to use and Little I enjoy to run and simply some are too hard to figure out and others consume too much CPU, So im going to do what I normally don?t do. I?m extending a hand to Fellow Coders to improve this problem, Im a current College Major in Hacking and On Reserve for Computer main frame work, I need few people who know scripts and how to use them to...



All times are GMT +2. The time now is 02:22.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.