Rangersland Bot Beta

02/19/2009 17:32 Lexx0505#1
Funktioniert nur für Opera
und nur in der Auflösund 1024x768

Ist mein erster voll funktionierender Bot also bitte nicht zu Wählerrisch sein^^

Er Handelt, heilt wenn es benötigt wird, hebt unterwechs gegenstände auf, und er hmm ne das wars ^^

würde ihn gerne weiterentwickeln allerdings als nonpub. wenn dazu jemand laune hat bitte bei mir melden

Skype the-lexx

bitte auch jemand scannen und hier bericht reinstellen

und falls zufrieden gibts nen thx knopf mein ich ^^
02/19/2009 19:07 Lexx0505#2
Das Scrippt bitte mit diesem ersetzen

hatte in der originale eine letzte änderrung die die bilder nicht lesen läst

Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>

$Form2 = GUICreate("RL Breaker V 1.40", 215, 549, 2, 2, -1, BitOR($WS_EX_APPWINDOW,$WS_EX_OVERLAPPEDWINDOW,$WS_EX_TOOLWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
GUISetBkColor(0x000000)
$Namebox = GUICtrlCreateInput("Name", 16, 24, 89, 25, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 9, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0x716F64)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Passwortbox = GUICtrlCreateInput("Passwort", 112, 24, 89, 25, BitOR($ES_CENTER,$ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 9, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0x716F64)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Server1 = GUICtrlCreateButton("(Not allowed)", 32, 56, 73, 25, $BS_BITMAP)
GUICtrlSetImage(-1, "GUI\GUIclassic.bmp", 0)
$Server2 = GUICtrlCreateButton("(Not allowed)", 112, 56, 72, 25, $BS_BITMAP)
GUICtrlSetImage(-1, "GUI\GUIdakota.bmp", 0)
$handelbot = GUICtrlCreateButton("(Not allowed)", 56, 88, 111, 46, $BS_BITMAP)
GUICtrlSetImage(-1, "GUI\GUIhandelsbot.bmp", 0)
$Pic1 = GUICtrlCreatePic(@Scriptdir&"\GUI\GUI-BG.bmp", 8, 8, 201, 529, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Server1
            _classic()
        Case $Server2
            _dakota()
        Case $handelbot
            _trade()
    EndSwitch
WEnd


Func _exit()
    Exit
EndFunc
Func _classic()
    $Name = GUICtrlRead($Namebox)
    If $Name = $GUI_CHECKED Then
	EndIf
	$Passwort = GUICtrlRead($Passwortbox)
	If $Passwort = $GUI_CHECKED Then
    EndIf
	$Path = RegRead("HKEY_CURRENT_USER\Software\Opera Software", "Last CommandLine") 

Run ($Path)
Sleep (2000)
Send("{F2}")
WinWait("Adresse oder Kürzel aufrufen","")
If Not WinActive("Adresse oder Kürzel aufrufen","") Then WinActivate("Adresse oder Kürzel aufrufen","")
WinWaitActive("Adresse oder Kürzel aufrufen","")
Send("http{SHIFTDOWN}.{SHIFTUP}{SHIFTDOWN}77{SHIFTUP}rangersland.de{ENTER}")
WinWait("Rangers Land - Western Online Game - Opera","")
If Not WinActive("Rangers Land - Western Online Game - Opera","") Then WinActivate("Rangers Land - Western Online Game - Opera","")
WinWaitActive("Rangers Land - Western Online Game - Opera","")
Send("{TAB}"& $Name &" {TAB}"& $Passwort &"{TAB}{ENTER}")
Sleep (1000)
Send("{ENTER}")
$x1=0
$y1=0
$result = _WaitForImageSearch("Image\classic.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
	EndIf
	
EndFunc
Func _dakota()
    $Name = GUICtrlRead($Namebox)
    If $Name = $GUI_CHECKED Then
	EndIf
	$Passwort = GUICtrlRead($Passwortbox)
	If $Passwort = $GUI_CHECKED Then
    EndIf
	$Path = RegRead("HKEY_CURRENT_USER\Software\Opera Software", "Last CommandLine") 

Run ($Path)
Sleep (2000)
Send("{F2}")
WinWait("Adresse oder Kürzel aufrufen","")
If Not WinActive("Adresse oder Kürzel aufrufen","") Then WinActivate("Adresse oder Kürzel aufrufen","")
WinWaitActive("Adresse oder Kürzel aufrufen","")
Send("http{SHIFTDOWN}.{SHIFTUP}{SHIFTDOWN}77{SHIFTUP}rangersland.de{ENTER}")
WinWait("Rangers Land - Western Online Game - Opera","")
If Not WinActive("Rangers Land - Western Online Game - Opera","") Then WinActivate("Rangers Land - Western Online Game - Opera","")
WinWaitActive("Rangers Land - Western Online Game - Opera","")
Send("{TAB}"& $Name &" {TAB}"& $Passwort &"{TAB}{ENTER}")
Sleep (1000)
Send("{ENTER}")
$x1=0
$y1=0
$result = _WaitForImageSearch("Image\dakota.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
	EndIf
	
EndFunc
Func _trade()
	
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
MsgBox(0,"MSG","Du musst dich in Santa Fe befinden und direckt auf die Stadt blicken also die stadt ansehen^^")
MsgBox(0,"MSG","Vergewissere dich das nun nur noch das Spiel offen ist.  Im Normalen Modus")
MsgBox(0,"MSG","Manche ladezeiten sind aufgrund von Stabilität und verlässlichkeit nicht zu vermeiden")
MsgBox(0,"MSG","Scrippt Whritten by L@xx@r,   und los gehts")
MsgBox(0,"MSG","Ach fast vergessen, Scrippt beendet Ihr mit der Taste -F9-")
While 1
$x1=0
$y1=0

Sleep(3000)
$result = _WaitForImageSearch("Image\händler.bmp",600,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
$result = _WaitForImageSearch("Image\verkaufenlink.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
$result = _WaitForImageSearch("Image\offenhändler.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	Send("{PGDN}")
	Sleep(1000)
	Send("{PGDN}")
	MouseMove(698,592)
	MouseDown("left")
	MouseMove(648,591)
	MouseUp("left")
	Send("{CTRLDOWN}c{CTRLUP}")
	MouseMove(509,457)
	MouseDown("left")
	MouseUp("left")
	Send("{CTRLDOWN}v{CTRLUP}")
	MouseMove(567,457)
	MouseDown("left")
	MouseUp("left")
EndIf
$result = _WaitForImageSearch("Image\zurück.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\kaufenlink.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\offenhändler2.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	Send("{PGDN}")
	Sleep(1000)
	Send("{PGDN}")
	MouseMove(912,570)
	MouseDown("left")
	MouseMove(853,574)
	MouseUp("left")
	Send("{CTRLDOWN}c{CTRLUP}")
	MouseMove(270,455)
	MouseDown("left")
	MouseUp("left")
	Send("{CTRLDOWN}v{CTRLUP}")
	MouseMove(313,455)
	MouseDown("left")
	MouseUp("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\zurück.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(9000)
$result = _WaitForImageSearch("Image\ausrüstung.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(9000)
$result = _WaitForImageSearch("Image\braucheheilung.bmp",10,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(9000)
$result = _WaitForImageSearch("Image\karte.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(20000)
$result = _WaitForImageSearch("Image\cocorro.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
	WinWait("JavaScript","")
	If Not WinActive("JavaScript","") Then WinActivate("JavaScript","")
	WinWaitActive("JavaScript","")
	Send("{ENTER}")
	Sleep (5000)
	Send("{F11}")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
Send("{F11}")
Sleep(3000)
$result = _WaitForImageSearch("Image\händler2.bmp",600,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\verkaufenlink.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\offenhändler.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	Send("{PGDN}")
	Sleep(1000)
	Send("{PGDN}")
	MouseMove(549,594)
	MouseDown("left")
	MouseMove(507,589)
	MouseUp("left")
	Send("{CTRLDOWN}c{CTRLUP}")
	MouseMove(276,456)
	MouseDown("left")
	MouseUp("left")
	Send("{CTRLDOWN}v{CTRLUP}")
	MouseMove(308,456)
	MouseDown("left")
	MouseUp("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\zurück.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\kaufenlink.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\offenhändler2.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	Send("{PGDN}")
	Sleep(1000)
	Send("{PGDN}")
	MouseMove(905,571)
	MouseDown("left")
	MouseMove(854,573)
	MouseUp("left")
	Send("{CTRLDOWN}c{CTRLUP}")
	MouseMove(276,455)
	MouseDown("left")
	MouseUp("left")
	Send("{CTRLDOWN}v{CTRLUP}")
	MouseMove(315,459)
	MouseDown("left")
	MouseUp("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\zurück.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(9000)
$result = _WaitForImageSearch("Image\ausrüstung.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(9000)
$result = _WaitForImageSearch("Image\braucheheilung.bmp",10,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(9000)
$result = _WaitForImageSearch("Image\karte.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(20000)
$result = _WaitForImageSearch("Image\santafe.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
	WinWait("JavaScript","")
	If Not WinActive("JavaScript","") Then WinActivate("JavaScript","")
	WinWaitActive("JavaScript","")
	Send("{ENTER}")
	Sleep (5000)
	Send("{F11}")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
Send("{F11}")
Sleep (4000)






WEnd
EndFunc
05/01/2009 21:23 mmmm_mmmm#3
Und wie funzt das teil nun ??
Und wo soll man den text einfügen ??
05/11/2009 02:32 Lexx0505#4
Neue Version

* Browser muss nicht offen bleiben
* Handelt wie gewohnt zwischen santafe und cocorro
* benutzt keine Bildersuche (html basierend)
* schnelllogin vorhanden muss allerdings nicht genutzt werden
* Testacc eingerichtet um vorher zu testen (in der ini anschliessend eigene daten eingeben bei bedarf für den schnelllogin)
* Heilt selbständig bei bedarf
* Alle Auflösungen Benutzbar

Manko

* Kann nur über rechtsklick bei dem autoitsympol beendet werden sobald bot gestartet wurde
* keine Pausefunktion
* Nur auf Win XP SP2 Getestet ( Vista und SP3 funktioniert er angeblich nicht)
* Eigener Browser (embeddet IE )


Falls zufrieden thx knopf ^^

Benötigt wird Autoit Downloadbar bei autoit.de
(alle includes bei download enthalten)

OK.exe ist ein externes Scrippt das der bot startet um die Abreise zu bestätigen (als ok.au3 klappt es nicht und den code in den scrippt einbauen klappt ebenfalls nicht)
05/12/2009 04:47 mmmm_mmmm#5
Hi,
soweit funzt der bot schon man muss nur immernoch die route manuell bestätigen.
Alles andere klappt einwandfrei
05/12/2009 05:37 mmmm_mmmm#6
Ach so sehe gerade ich habe bei meinem Xp das Service Pack3.
05/12/2009 10:04 Lexx0505#7
Quote:
Originally Posted by mmmm_mmmm View Post
Ach so sehe gerade ich habe bei meinem Xp das Service Pack3.
Der Fehler ist mir bekannt

XP - SP2 = Bisslang Bugfrei

XP - SP3 = Der Bot Öffnet zwar die ok.exe aber diese erfüllt nicht ihre aufgabe und bestätigt das Abreisefenster nicht

Vista = geht garnix^^
05/16/2009 19:59 mmmm_mmmm#8
Jupp der klappt soweit super Danke
05/18/2009 14:27 Lexx0505#9
[Only registered and activated users can see links. Click Here To Register...]

dort is die neue version zum download (klappt auch für SP3)

und noch andre schöne sachen ( seite is nagelneu nich zuviel erwarten)
07/23/2009 11:07 henry ford#10
was für ein scheiß echt war der opera funzt nicht und der andere auf der seite mit den link kann ich mich nicht einloggen das ist erst so seit mein pc neu installiert wurde kann mir jemmand helfen evt liegt es ja an den explorer einstellungen
07/23/2009 11:27 Lexx0505#11
Die Aktuelste Version


Das Projekt Rangersland Bot liegt allerding´s zur zeit auf eis

(diese version ist auch schon älter)

Sollte er nach Einiger zeit abbrechen und sehr viele ok.exe öffnen einfach ok.exe löschen (dann musst du aber manuel bei reisen ok klicken)

Fehler bekannt das minimieren zwar funktioniert aber er dann nicht reisen kann
10/17/2009 02:14 p0ltergeist#12
hmmm schade, der bot funzt net und das projekt liegt auf eis :-(
besteht die möglichkeit an die source zu kommen?
11/24/2009 23:06 lordrin#13
so weit ich weiß haben die da im game was geändert weil ging von einem auf dem anderen tag nicht mehr ... vielleicht sollte lexx0505 mal drüber schauen warum das nimmer geht oder jemand der sich damit noch auskennt
11/25/2009 12:03 Die Schnittstelle#14
ist doch schon outdated.