Rata Sum Beta

Page 1 of 14 1 2311 Last »
08/14/2008 13:44 i4mSoH34Vy#1
Ja erstmal wollte kein verärgern deshalb Post ich ihn hier.Ein Dankeschön an kknb dem der Wayout gehört.Hab ihn jetzt schon oft genug laufen lassen das ich sagen kann er klappt so gut wie immer.Alles andere ist in der Anleitung erklärt.
Wenn es nicht klappt hab ich euch das Script für die Checksums Reingepackt die ihr dann anpassen müsst für euren PC.
Bot 1024x768 Interface : Groß

Wenn es gut läuft schafft der Bot 6k die Stunde 1Dietrich und noch paar folis Farben ect


[Only registered and activated users can see links. Click Here To Register...]
Wenn er den Dis wechselt siehe unten. Position X, Y.
Skillcode: OgVDMYysOoivapYZwDNBRAaB
Bei der neunen V von 1.04 müsst ihr
New Position X --> 00D27638 float
New Position Y --> 00D2763C float

im Gui rein schreiben.
Gesucht werden die Adressen mit Wadims Autoupdater.
die 0x..... vor den Adressen nicht vergessen.
Der BackgroundModus geht nicht den hab ich rausgenommen




War der letzte Public release.
08/14/2008 13:55 blackWorkx#2
Jönntest mal ausfühliche beschreibung machen was der Bot farmt und welchen char btw. skillcode?
08/14/2008 13:56 i4mSoH34Vy#3
erledigt
08/14/2008 14:47 kknb#4
hi, hab den bot nochmal ein wenig für mich angepasst.

also, ident und sell funktion sind jetzt komplett random, falls er mal eine checksumme vor dem rausgehen nicht findet wird dis gechanged, er schreibt nun entweder resign oder giveup zum aufgeben uvm. variablen für die koords der checksummen, sowie die checksummen ansich können gleich am anfang angepasst werden. zum verkaufen reist er in die gh (insel des kaisers wird benötigt)
falls das hier wer benutzen will: inventartaschen, kaufmannfenster sowie gildenfenster müssen ganz nach links oben, ds partyfenster muss nach rechts oben damit er den hm button nach dem sellen wieder trifft. das fightscript wurde von mir noch nicht geändert und ist von j199207, vielen dank dafür!


Code:
#cs ----------------------------------------------------------------------------
	Rata Sum
	1440x900
	interface:klein
	
	
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
HotKeySet("{END}", "_exitit")
HotKeySet("{PAUSE}", "_TogglePause")
Global $Paused
Global $mousespeed = 4
Global $koordchecksumx1 = 616
Global $koordchecksumx2 = 811
Global $koordchecksumy1 = 21
Global $koordchecksumy2 = 33
Global $checksumhoff = 2099555895
Global $checksumqarg = 1439638953
Global $checksumkolpp = 2130465864
Global $checksumlexx = 407817920
Global $check


;-Start Function RandomSleep
Func RandomSleep($min, $max)
	$time = Random($min, $max)
	Sleep($time)
EndFunc   ;==>RandomSleep
;-Ende Function RandomSleep


Func _changedis()
	MouseClick("left", Random(9, 188), Random(9, 17), 1, $mousespeed)
	$rndm = Random(1500, 1600)
	Sleep($rndm)
	MouseClick("left", Random(9, 188), Random(57, 64), 1, $mousespeed)
	$rndm = Random(800, 900)
	Sleep($rndm)
	Send("{space}")
	$rndm = Random(9000, 10000)
	Sleep($rndm)
EndFunc   ;==>_changedis

Func hm()
	MouseClick("left", 1307, 42, 1)
EndFunc   ;==>hm


Func identkit1()
	;identkit1
	$a = Random(142, 156)
	$b = Random(447, 476)
	MouseClick("left", $a, $b, 2)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
EndFunc   ;==>identkit1

Func identkit2()
	$a = Random(176, 199)
	$b = Random(447, 476)
	MouseClick("left", $a, $b, 2)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
EndFunc   ;==>identkit2

Func identkit3()
	$a = Random(137, 162)
	$b = Random(486, 520)
	MouseClick("left", $a, $b, 2)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
EndFunc   ;==>identkit3

Func identkit4()
	$a = Random(175, 196)
	$b = Random(486, 520)
	MouseClick("left", $a, $b, 2)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
EndFunc   ;==>identkit4

Func _resign()
	Global $random = Random(0, 10)
	If $random >= 5 Then
		Send("{ENTER}")
		$slp = Random(800, 810)
		Sleep($slp)
		Send("/")
		$slp = Random(400, 500)
		Sleep($slp)
		Send("giveup")
		$slp = Random(1000, 1200)
		Sleep($slp)
		Send("{ENTER}")
		$slp = Random(5000, 5500)
		Sleep($slp)
		$a = Random(635, 802)
		$b = Random(461, 475)
		MouseClick("left", $a, $b, 1)
		$slp = Random(11000, 12000)
		Sleep($slp)
	EndIf
	If $random < 5 Then
		Send("{ENTER}")
		$slp = Random(800, 810)
		Sleep($slp)
		Send("/")
		$slp = Random(400, 500)
		Sleep($slp)
		Send("resign")
		$slp = Random(1000, 1200)
		Sleep($slp)
		Send("{ENTER}")
		$slp = Random(5000, 5500)
		Sleep($slp)
		$a = Random(635, 802)
		$b = Random(461, 475)
		MouseClick("left", $a, $b, 1)
		$slp = Random(11000, 12000)

	EndIf
EndFunc   ;==>_resign



Func ident()
	Sleep(9000)
	Send(".")
	identkit1()
	;identitem1
	$a = Random(18, 43)
	$b = Random(49, 88)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit2()
	;identitem2
	$a = Random(54, 84)
	$b = Random(49, 86)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit3()
	;identitem3
	$a = Random(93, 119)
	$b = Random(49, 83)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit4()
	;identitem4
	$a = Random(128, 158)
	$b = Random(49, 86)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit1()
	;identitem5
	$a = Random(164, 195)
	$b = Random(49, 86)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit2()
	;identitem6
	$a = Random(18, 43)
	$b = Random(93, 129)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit3()
	;identitem7
	$a = Random(54, 84)
	$b = Random(93, 130)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit4()
	;identitem8
	$a = Random(91, 119)
	$b = Random(94, 124)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit1()
	;identitem9
	$a = Random(128, 157)
	$b = Random(94, 128)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit2()
	;identitem10
	$a = Random(156, 193)
	$b = Random(94, 128)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit3()
	;identitem11
	$a = Random(20, 45)
	$b = Random(138, 172)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit4()
	;identitem12
	$a = Random(57, 80)
	$b = Random(140, 171)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit1()
	;identitem13
	$a = Random(93, 120)
	$b = Random(147, 172)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit2()
	;identitem14
	$a = Random(130, 157)
	$b = Random(140, 172)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit3()
	;identitem15
	$a = Random(166, 193)
	$b = Random(138, 172)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit4()
	;identitem16
	$a = Random(20, 45)
	$b = Random(185, 218)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit1()
	;identitem17
	$a = Random(56, 82)
	$b = Random(185, 218)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit2()
	;identitem18
	$a = Random(93, 116)
	$b = Random(182, 218)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit3()
	;identitem19
	$a = Random(130, 156)
	$b = Random(185, 218)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	identkit4()
	;identitem20
	$a = Random(166, 194)
	$b = Random(185, 218)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(200, 250)
	Sleep($rndnumber)
	Send(".")
EndFunc   ;==>ident

Func sell()
	Send("g")
	$rndnumber = Random(200, 500)
	Sleep($rndnumber)
	$a = Random(473, 571)
	$b = Random(46, 64)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(8000, 9100)
	Sleep($rndnumber)
	Send("{w down}")
	$rndnumber = Random(2000, 2100)
	Sleep($rndnumber)
	Send("{d down}")
	$rndnumber = Random(1200, 1210)
	Sleep($rndnumber)
	Send("{d up}")
	$rndnumber = Random(3000, 3100)
	Sleep($rndnumber)
	Send("{a down}")
	$rndnumber = Random(1200, 1210)
	Sleep($rndnumber)
	Send("{a up}")
	$rndnumber = Random(1000, 1500)
	Sleep($rndnumber)
	Send("{w up}")
	$rndnumber = Random(20, 50)
	Sleep($rndnumber)
	Send("v")
	$rndnumber = Random(20, 50)
	Sleep($rndnumber)
	Send("{space}")
	$rndnumber = Random(3000, 3500)
	Sleep($rndnumber)
	$a = Random(92, 163)
	$b = Random(35, 47)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(30, 50)
	Sleep($rndnumber)
	For $i = 1 To 20
		$a = Random(227, 305)
		$b = Random(723, 739)
		MouseClick("left", $a, $b, 1)
		$rndnumber = Random(300, 450)
		Sleep($rndnumber)
	Next
	$rndnumber = Random(1000, 1500)
	Sleep($rndnumber)
	$a = Random(473, 571)
	$b = Random(46, 64)
	MouseClick("left", $a, $b, 1)
	$rndnumber = Random(8000, 9100)
	Sleep($rndnumber)
	Send("{esc}")
	hm()
EndFunc   ;==>sell

Func _exitit()
	Exit 0
EndFunc   ;==>_exitit

Func _TogglePause()
	$Paused = Not $Paused
	While $Paused
		Sleep(100)
		ToolTip('Script is "Paused"', 0, 0)
	WEnd
	ToolTip("Script is running")
	If Not WinActivate("Guild Wars") Then
		WinActivate("Guild Wars")
	EndIf
	Sleep(2000)
EndFunc   ;==>_TogglePause


WinActivate("Guild")
WinWaitActive("Guild")

Func _run1a()
	Send("v")
	$rndnumber = Random(200, 400)
	Sleep($rndnumber)
	If PixelChecksum($koordchecksumx1, $koordchecksumy1, $koordchecksumx2, $koordchecksumy2) = $checksumhoff Then ;hoff
		_run1()
		_run()
	EndIf
EndFunc   ;==>_run1a

Func _run2a()
	Send("v")
	$rndnumber = Random(200, 400)
	Sleep($rndnumber)
	If PixelChecksum($koordchecksumx1, $koordchecksumy1, $koordchecksumx2, $koordchecksumy2) = $checksumqarg Then ;qarg
		_run2()
		_run()
		
	EndIf
EndFunc   ;==>_run2a

Func _run3a()
	If PixelChecksum($koordchecksumx1, $koordchecksumy1, $koordchecksumx2, $koordchecksumy2) = $checksumkolpp Then ;kolpp
		_run3()
		_run()
		
	EndIf
EndFunc   ;==>_run3a

Func _run4a()
	Send("v")
	$rndnumber = Random(200, 400)
	Sleep($rndnumber)
	If PixelChecksum($koordchecksumx1, $koordchecksumy1, $koordchecksumx2, $koordchecksumy2) = $checksumlexx Then ;lexx
		_run4()
		_run()
	EndIf
EndFunc   ;==>_run4a


Func _run1();hoff
	Send("{numpad0}")
	$rndnumber = Random(200, 400)
	Sleep($rndnumber)
	Send("{space}")
	$rndnumber = Random(12700, 12750)
	Sleep($rndnumber)
	Send("{w down}")
	$rndnumber = Random(200, 400)
	Sleep($rndnumber)
	Send("{e down}")
	$rndnumber = Random(950, 960)
	Sleep($rndnumber)
	Send("{e up}")
	$rndnumber = Random(1500, 1600)
	Sleep($rndnumber)
	Send("{a down}")
	$rndnumber = Random(1200, 1210)
	Sleep($rndnumber)
	Send("{a up}")
	$rndnumber = Random(2300, 2400)
	Sleep($rndnumber)
	Send("{w up}")
	$rndnumber = Random(11700, 11900)
	Sleep($rndnumber)
EndFunc   ;==>_run1

Func _run2();qarg
	Send("{numpad0}")
	$rndnumber = Random(200, 400)
	Sleep($rndnumber)
	Send("{numpad0}")
	$rndnumber = Random(200, 400)
	Sleep($rndnumber)
	Send("{space}")
	$rndnumber = Random(10000, 10100)
	Sleep($rndnumber)
	Send("r")
	$rndnumber = Random(80, 100)
	Sleep($rndnumber)
	Send("{d down}")
	$rndnumber = Random(850, 860)
	Sleep($rndnumber)
	Send("{d up}")
	$rndnumber = Random(11700, 11900)
	Sleep($rndnumber)
EndFunc   ;==>_run2

Func _run3();kolpp
	Send("r")
	$rndnumber = Random(8500, 8600)
	Sleep($rndnumber)
	Send("v")
	$rndnumber = Random(80, 100)
	Sleep($rndnumber)
	Send("{space}")
	$rndnumber = Random(5100, 5150)
	Sleep($rndnumber)
	Send("o")
	$rndnumber = Random(50, 60)
	Sleep($rndnumber)
	Send("{space}")
	$rndnumber = Random(4300, 4400)
	Sleep($rndnumber)
	Send("r")
	$rndnumber = Random(2300, 2400)
	Sleep($rndnumber)
	Send("{d down}")
	$rndnumber = Random(800, 820)
	Sleep($rndnumber)
	Send("{d up}")
	$rndnumber = Random(11700, 11900)
	Sleep($rndnumber)
EndFunc   ;==>_run3

Func _run4();lexx
	Send("{numpad0}")
	$rndnumber = Random(200, 400)
	Sleep($rndnumber)
	Send("{space}")
	$rndnumber = Random(13900, 13950)
	Sleep($rndnumber)
	Send("{d down}")
	$rndnumber = Random(355, 360)
	Sleep($rndnumber)
	Send("{d up}")
	$rndnumber = Random(200, 400)
	Sleep($rndnumber)
	Send("{w down}")
	$rndnumber = Random(1300, 1400)
	Sleep($rndnumber)
	Send("{a down}")
	$rndnumber = Random(1200, 1210)
	Sleep($rndnumber)
	Send("{a up}")
	$rndnumber = Random(2300, 2400)
	Sleep($rndnumber)
	Send("{w up}")
	$rndnumber = Random(11700, 11900)
	Sleep($rndnumber)
EndFunc   ;==>_run4



Func _run()
	$rndnumber = Random(2000, 3000)
	Sleep($rndnumber)
	Send("v")
	RandomSleep(500, 600)
	Send("{SPACE}")
	RandomSleep(7200, 7500)
	$a = Random(611, 824)
	$b = Random(500, 541)
	MouseClick("left", $a, $b, 1, $mousespeed)
	RandomSleep(2000, 2200)
	Send("r")
	RandomSleep(2000, 2200)
	Send("{d down}")
	RandomSleep(600, 700)
	Send("{d up}")
	RandomSleep(5000, 5500)
	Send("{d down}")
	RandomSleep(300, 320)
	Send("{d up}")
	RandomSleep(4000, 4500)
	Send("7")
	Send("r")
	RandomSleep(1000, 1200)
	Send("8")
	RandomSleep(1200, 1300)
	Send("{w down}")
	RandomSleep(2000, 2200)
	Send("{d down}")
	RandomSleep(300, 400)
	Send("{d up}")
	RandomSleep(300, 400)
	Send("{w up}")
	RandomSleep(1000, 1200)
	Send("6")
	RandomSleep(1200, 1300)
	Send("2")
	RandomSleep(2500, 2600)
	Send("{w down}")
	RandomSleep(11000, 11200)
	Send("3")
	RandomSleep(3000, 3200)
	Send("{w up}")
	RandomSleep(2000, 2100)
	Send("2")
	RandomSleep(2000, 2100)
	Send("{w down}")
	RandomSleep(300, 350)
	Send("{a down}")
	RandomSleep(300, 400)
	Send("{a up}")
	RandomSleep(8000, 8050)
	Send("{w up}")
	RandomSleep(1000, 1100)
	Send("3")
	RandomSleep(1200, 1300)
	Send("1")
	RandomSleep(4500, 4600)
	Send("2")
	RandomSleep(2500, 2600)
	Send("6")
	RandomSleep(5000, 5300)
	Send("7")
	Send("8")
	RandomSleep(7000, 7200)
	Send("4")
	RandomSleep(1500, 1600)
	Send("5")
	RandomSleep(3000, 3100)
	Send("2")
	RandomSleep(2500, 2600)
	Send("6")
	RandomSleep(1500, 1600)
	Send("7")
	RandomSleep(3000, 3100)
	Send("4")
	RandomSleep(2000, 2150)
	Send("5")
	RandomSleep(8000, 8200)
	Send("2")
	RandomSleep(2500, 2600)
	Send("3")
	RandomSleep(1500, 1600)
	Send("4")
	RandomSleep(7500, 7800)
	Send("5")
	RandomSleep(4000, 4200)
	Send("2")
	RandomSleep(2500, 2600)
	Send("3")
	RandomSleep(2500, 2600)
	Send("4")
	RandomSleep(1500, 1600)
	Send("5")
	RandomSleep(4000, 4200)
	Send("2")
	RandomSleep(2500, 2600)
	Send("o")
	RandomSleep(1100, 1200)
	Send("{SPACE}")
	RandomSleep(2500, 2800)
	Send("o")
	RandomSleep(1100, 1200)
	Send("{SPACE}")
	RandomSleep(2500, 2800)
	Send("o")
	RandomSleep(1100, 1200)
	Send("{SPACE}")
	RandomSleep(2500, 2800)
	Send("o")
	RandomSleep(1100, 1200)
	Send("{SPACE}")
	RandomSleep(2500, 2800)
	Send("o")
	RandomSleep(1100, 1200)
	Send("{SPACE}")
	RandomSleep(2500, 2800)
	Send("o")
	RandomSleep(1100, 1200)
	Send("{SPACE}")
	RandomSleep(2500, 2800)
	_resign()
EndFunc   ;==>_run


$runstotal = 6
$runs = 0
While True
	$runs = $runs + 1
	Select
		Case $runstotal <> $runs 			
			$check = $check + 1
			_run1a()
			_run2a()
			_run3a()
			_run4a()
			If $check >= 15 Then
				If PixelChecksum(51, 9, 83, 22) = 2164033152 Or PixelChecksum(7, 2, 25, 35) = 4268690383 Then ;ckeck death
					_resign()
				EndIf
				_changedis()
			EndIf

		Case $runstotal = $runs
			$runs = $runs - 6
			ident()
			sell()
	EndSelect
WEnd
08/14/2008 14:47 blackWorkx#5
Wieos geht er nach TQ?
08/14/2008 16:22 R3l04d3d#6
äh.. der bot läuft sehr gut.. aber vll bin ich auch einfach zublöd... der bot hebt nichts auf.. er visiert die items an ,aber dann kommt gleich /giveup

edit:/ hat sich gelöst..
08/14/2008 17:57 argh512#7
hab da mal ne frage der bot geht bei mir net..hab die einstellungen vorgenommen aber er gibt nur immer auf was mach ich falsch?
08/14/2008 18:16 i4mSoH34Vy#8
Quote:
Originally Posted by blackWorkx View Post
Wieos geht er nach TQ?
Ja also ich wird den weg zum Kaufmann in Rata Sum nochmal nachlgegen.Ja ich hatte keine Lust da drauf :D
08/14/2008 18:18 i4mSoH34Vy#9
Quote:
Originally Posted by argh512 View Post
hab da mal ne frage der bot geht bei mir net..hab die einstellungen vorgenommen aber er gibt nur immer auf was mach ich falsch?
Dann überspringt er vielleicht die Func nach draußen.Checksum für jeden NPC nochmal für dich erneuern.
08/14/2008 18:33 solos#10
Funzt die Funktion über mehrere Runs?
Also genauer das mit
run1a worauf
_run1
_fight folgt und am ende unter _run dann
run1a, run2a usw


Benutze gerade Ähnliches aber er überspringt einzelne Schritte


Edit: Hab den Bot gerade probiert erster und zweiter Run waren kein Problem
aber dann hat er in Rata Sum aufgegeben? Kann das sein, dass das oben erwähnte Script manchmal nicht richtig checkt was zu tun ist?
08/14/2008 19:08 i4mSoH34Vy#11
Edit braucht ihr nicht mehr ändern hab doch zu viel geändert und einfach gleich die Datei nochmal hochgeladen
08/14/2008 19:43 Azunai#12
die welt ist arm ohne variablen
08/14/2008 19:43 _revo#13
Quote:
[x] Automatically embed media (requires automatic parsing of links in text to be on).
hier das häkchen entfernen, sonst werden alle variablen aufgefressen ^^
edit: zu langsam :(
08/16/2008 20:09 R3l04d3d#14
so hab ihn jetzt mal ausfürlich getestet... aber mir sind einige sachen aaufgefallen:

bugs:
-der bot schließt das inventar nach _ident nicht.. also schließt er bei 2ten _ident das inventar und läuft planlos durch rata sum

verbesserungs vorschläge:
-goldene items nicht identifizieren, sonder sammeln
-nicht nach jeder runde _ident + _vk (sondern erst nach 4-5)

...ansonsten toller bot

MfG
08/16/2008 20:51 kknb#15
das ist mit sicherheit nicht so geplant das er nach jeder runde verkauft.
aber mal ehrlich, ist völlig ok wenn man sachen kopiert, das mach ich nicht anders weil ich so faul bin ;)

aber wenn ich was kopiere dann weiß ich auch was was das überhaupt macht, jetzt hast du das mit den variablen von mir am anfang übernommen, aber garnicht ins script intigriert.
Page 1 of 14 1 2311 Last »