Kilroys Solo Dungeon

[Gabba2]

So hier ist maln relativ kleines und einfaches Script für den Solo Dungeon den es bei Kilroy gibt.
Es checkt den ManaBalken und klickt wenn es sieht, dass man down ist solange 8 bis man das Mana wieder voll hat.
Das ganze funktioniert bis man ~100 Mana hat was mehr als genug ist wenn man dennoch mehr benötigt kann man in Zeile 8 und 9 die Sleepzeiten entsprechend verkürzen was dann jedoch nicht mehr sehr Menschlich wirkt.

HowTo:

Man muss nicht viel beachten nur Taste 8 und ß müssen beide unter Steuerung "Fertigkeit 8 verwenden" zugewiesen sei.
Auflösung 1280*1024
Interface Größe: Groß

Der Energie Balken muss so gesetzt sein wie er standardmäßig ist der Rest kann sonst wie sein.

So ihr startet das Script mit AutoIt, betretet dann den Dungeon und kämpft schön das Script macht nichts außer halt, dass es euch "wiederbelebt" wenn ihr gestorben seit.

Das ganze funktioniert wie gesagt bis etwa 100 Mana. Wenn ihr den Überlebenstitel wollt empfehle ich euch zur Sicherheit euch bereitzuhalten am Ende 1-2 mal die Taste noch zu drücken mit ner älteren Version hat er mir nämlich manchmal 1-2 mal zu wenig die Taste gedrückt mit der neuen habe ich aber den kompletten Überlebenstitel da gemacht ohne einen Fehler.



Jetzt der Code

HotKeySet("{END}","_exitit")
HotKeySet("{PAUSE}", "_TogglePause")
Global $Paused
Global $rndnumber = Random(63, 88) 
Global $rndnumber3 = Random(45, 58) 

Func _exitit()
exit 0
EndFunc


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

Func _SterbeTest()
	
		If Hex(PixelGetColor(892, 945),6) = "001A43" then 
			send("{8}")
			Sleep($rndnumber3)
			send("{ß}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber3)
			send("{ß}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber3)
			send("{ß}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber3)
			send("{ß}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber3)
			send("{ß}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber3)
			send("{ß}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber3)
			send("{ß}")
			Sleep($rndnumber)
			send("{8}")  ;15 mana ge regt
			Sleep($rndnumber)
			
			
			$Variante1 = Random(1, 3, 1)
			Select
			Case $Variante1 = 1
				
				Sleep($rndnumber)
			Case $Variante1 = 2
				send("{8}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber3)
				send("{ß}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber3)
				send("{ß}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber)
			Case $Variante1 = 3
				send("{8}")
				Sleep($rndnumber3)
				send("{ß}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber3)
				send("{ß}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber)
				send("{ß}")
				Sleep($rndnumber3)
				send("{8}")
				Sleep($rndnumber)
				send("{ß}")
				Sleep($rndnumber3)
				send("{8}")
				Sleep($rndnumber)
				
			Endselect
			
			_SterbeTest2()
			
			
		ElseIf Hex(PixelGetColor(892, 945),6) <> "001A43" then 
			$rndnumberX = Random(700, 900); 
			Sleep($rndnumberX)
			_SterbeTest()	
			
		EndIf
Endfunc		

			
Func _SterbeTest2()			

	
		If Hex(PixelGetColor(892, 945),6) = "001A43" then 	
			send("{8}")
			Sleep($rndnumber)
			send("{ß}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber)
			send("{ß}")
			Sleep($rndnumber)
			
			
			$Variante2 = Random(1, 3, 1)
			Select
			Case $Variante2 = 1
				Sleep($rndnumber)
				
				
			Case $Variante2 = 2
				send("{8}")
				Sleep($rndnumber)
				send("{ß}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber3)
				send("{ß}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber)
				
				
			Case $Variante2 = 3
				send("{ß}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber)
				send("{ß}")
				Sleep($rndnumber3)
				send("{8}")
				Sleep($rndnumber)
				send("{ß}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber)
				send("{8}")
				Sleep($rndnumber)
				send("{ß}")
				Sleep($rndnumber3)
				send("{8}")
				Sleep($rndnumber)
				
			Endselect
			
			_SterbeTest2()
			
			
		ElseIf Hex(PixelGetColor(892, 945),6) <> "001A43" then 	
			$Variante3 = Random(1, 3, 1)
			Select
			Case $Variante3 = 1
			send("{8}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber)
			send("{ß}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber)
			
			Case $Variante3 = 2
			send("{ß}")
			Sleep($rndnumber)
			send("{ß}")
			Sleep($rndnumber)
			send("{ß}")
			Sleep($rndnumber)
			send("{ß}")
			Sleep($rndnumber)
			send("{ß}")
			Sleep($rndnumber)	
			send("{ß}")
			Sleep($rndnumber)
			
			Case $Variante3 = 3	
			send("{ß}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber)
			send("{ß}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber)
			send("{ß}")
			Sleep($rndnumber)
			send("{8}")
			Sleep($rndnumber)
			send("{ß}")
			Sleep($rndnumber)
			endselect
			
			
			_SterbeTest()
		EndIf
Endfunc		

If Not WinActivate("Guild Wars") Then
	WinActivate("Guild Wars")
EndIf

Sleep(2000)

while true
	_SterbeTest()
WEnd

If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
EndIf

Sleep(2000)

while true
_SterbeTest()
WEnd [/code]


Antivir: Nothing found
ArcaVir: Nothing found
Avast: Nothing found
AVG: Nothing found
BitDefender: Nothing found
F-Prot: Nothing found
Norman: Nothing found
Rising: Nothing found
VirusBlokAda32: Nothing found
VirusBuster: Nothing found


Scanned by

[MasteR GunneR]

So ein langer Code für nur eine Taste =)
Ich hab hier schonmal was ähnliches gepostet und gerade mal überarbeitet:

; Script Start - Add your code below here

HotKeySet("{HOME}", "_start")
HotKeySet("{END}", "_break")
Global $start = 0
Global $rndnumber1 = Random(63, 88) 
Global $rndnumber2 = Random(45, 58) 

Func _main()
	Send("8")
	$roll1 = Random(1, 2)
	If $roll1 = 1 Then
		Sleep($rndnumber1)
	ElseIf $roll1 = 2 Then
		Sleep($rndnumber2)
	EndIf
	Send("ß")
	$roll2 = Random(1, 2)
	If $roll2 = 1 Then
		Sleep($rndnumber1)
	ElseIf $roll2 = 2 Then
		Sleep($rndnumber2)
	EndIf
EndFunc

Func _start()
	$start = 1
	Sleep(500)
EndFunc

Func _break()
	$start = 0
	Sleep(500)
EndFunc

While 1
	If $start = 0 Then
	Sleep(500)
	ElseIf $start = 1 Then
	_main();
	EndIf
WEnd

Kürzer und von keiner Grafikeinstellung abhängig. Dafür kommt ich damit alleine aber auch nur auf ~70 Energie *grml*
Zwar muss man ganze zwei Tasten drücken, aber ich glaube das bekommt man noch hin.

[Gabba2]

ja klar aber warum sollte man so eine Variante nehmen wo man zumindest ein wenig aufpassen muss wenn es eine gibt bei der das Script alles macht?^^ Die selber startet und endet und die Grafik Einstellungen sind jetzt ja keine allzu unmenschlichen die niemand so einstellen könnt^^
Dass das Script vlt nicht sehr elegant gelöst ist ist schon klar ich hätt einiges an Code einsparen können aber das kann dem User ja relativ egal sein solang es mit nem Doppelklick funtzt^^

[Azunai]

warum zum teufel sind die $$$$$$$ bei dir noch mit im code master gunner...
was ist das für ein exploid :P

; Script Start - Add your code below here

HotKeySet("{HOME}", "_start")
HotKeySet("{END}", "_break")
Global  = 0
Global  = Random(63, 88) 
Global  = Random(45, 58) 

Func _main()
	Send("8")
	 = Random(1, 2)
	If  = 1 Then
		Sleep()
	ElseIf  = 2 Then
		Sleep()
	EndIf
	Send("ß")
	 = Random(1, 2)
	If  = 1 Then
		Sleep()
	ElseIf  = 2 Then
		Sleep()
	EndIf
EndFunc

Func _start()
	 = 1
	Sleep(500)
EndFunc

Func _break()
	 = 0
	Sleep(500)
EndFunc

While 1
	If  = 0 Then
	Sleep(500)
	ElseIf  = 1 Then
	_main();
	EndIf
WEnd

[MasteR GunneR]

Musst einfach bei
"Additional Options" -> "Automatically embed media (requires automatic parsing of links in text to be on)."
kein Häkchen setzen :P

B²T:
Aber vielleicht kann man ja beide Varianten einfügen und den Benutzer entscheiden lassen welche er nehmen will.
anyway, gute Arbeit.

[Azunai]

wo zum teufel ist das? 0o
ich hab bei usercp-->options
einfach keine additional :P

[Gabba2]

Das ist beim posten selbst.
Go Advanced und dann das 2 Feld unter Miscellaneous Options.
So nu steht dann au der Code oben drin.

[Azunai]

$$$$$$$

[Term!nX]

Originally Posted by bitchbi

warum zum teufel sind die $$$$$$$ bei dir noch mit im code master gunner...
was ist das für ein exploid :P

; Script Start - Add your code below here

HotKeySet("{HOME}", "_start")
HotKeySet("{END}", "_break")
Global  = 0
Global  = Random(63, 88) 
Global  = Random(45, 58) 

Func _main()
	Send("8")
	 = Random(1, 2)
	If  = 1 Then
		Sleep()
	ElseIf  = 2 Then
		Sleep()
	EndIf
	Send("ß")
	 = Random(1, 2)
	If  = 1 Then
		Sleep()
	ElseIf  = 2 Then
		Sleep()
	EndIf
EndFunc

Func _start()
	 = 1
	Sleep(500)
EndFunc

Func _break()
	 = 0
	Sleep(500)
EndFunc

While 1
	If  = 0 Then
	Sleep(500)
	ElseIf  = 1 Then
	_main();
	EndIf
WEnd

>OMG HAX!!!!11 REPORT $ BAN!!!11

$var = 1

Hm doch keine HX

[Azunai]

... is ja gut xD

[alli kommt gelaufen^^]

muss ich da dann irgendwo dort registriert sein oder waS?
also da auf der internet seide vom dem link
"kiroy steinsipp"

[Gabba2]

Wat? o0

Naja egal jetzt nur für dich eine geänderte Version vom "Bot". .Exe doppelklicken den Dungeon halt manuell machen wenn der Char Down ist wird solange Skill 8 gedrückt bis er wieder lebt. Interface etc. ist egal. Zum Pausieren die Pause Taste zum beenden Ende.



Falls wer den extremst komplexen Source will:

Opt("WinTitleMatchMode", 3)
Opt("SendKeyDownDelay", 30)
#include <NomadMemory.au3>

HotKeySet("{END}", "_exitit")
HotKeySet("{PAUSE}", "_TogglePause")

Local $Paused
$name = "Guild Wars"
$PID = WinGetProcess($name)
$hprocess = _MemoryOpen($PID)
$downMem = 0x0D2A6A8

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

Func _TogglePause()
	$Paused = Not $Paused
	While $Paused
		Sleep(100)
		ToolTip('Script is "Paused"', 0, 0)
	WEnd
	ToolTip("")
EndFunc   ;==>_TogglePause

While 1
	SterbeTest()
WEnd

Func _read()
	Return _MemoryRead($downMem, $hprocess)
EndFunc   ;==>_read

Func SterbeTest()
	While _read() = 6 Or _read() = 7
		ControlSend($name, "", "", "{8}")
		slp(40, 80)
	WEnd
EndFunc   ;==>SterbeTest

Func slp($min, $max)
	Sleep(Random($min, $max))
EndFunc   ;==>slp

[RobRockt]

Mhh hört sich ja wirklich gut an :]
Hätte nämlich auch noch einen Char, bei dem mir noch eine Mio bis zum Ü3 fehlt
Hat jemand anders schonmal den kompletten Titel gemacht (ohne Probleme), ausser Gabba himself ?!

Mfg

[alli kommt gelaufen^^]

des mit dem download meinte ich von rapidshare
also ist das mit dem free user

ist das wirk kostenlos
mein mistrauen begründet sich damit das es hier es sei kostenlos und ich bekamm nach 3 wochen eine rechnung von 2.000 € -.-'
deswegen .....

also
ich bin seid dem tag ein bissel vorsichtiger
selbst wenn in der agb steht "free user ist wirklich kostenlos"
mfg

[Gabba2]

Originally Posted by alli kommt gelaufen^^

des mit dem download meinte ich von rapidshare
also ist das mit dem free user

ist das wirk kostenlos
mein mistrauen begründet sich damit das es hier es sei kostenlos und ich bekamm nach 3 wochen eine rechnung von 2.000 € -.-'
deswegen .....

also
ich bin seid dem tag ein bissel vorsichtiger
selbst wenn in der agb steht "free user ist wirklich kostenlos"
mfg

Der Free user bei Rapidshare ist zu 100% umsonst. Und wenn in der AGB steht, dass es umsonst ist ist es auch (zumindest rechtlich gesehen) umsonst. Aber wo bitte solltest du 2000€ wegen nem Download zahlen? o0

Originally Posted by RobRockt

Mhh hört sich ja wirklich gut an :]
Hätte nämlich auch noch einen Char, bei dem mir noch eine Mio bis zum Ü3 fehlt
Hat jemand anders schonmal den kompletten Titel gemacht (ohne Probleme), ausser Gabba himself ?!

Mfg

Der Bot drückt ja nur wenn du "ausgeknockt" wurdest die Taste 8 und macht sonst nichts dh. das farmen muss man schon selbst übernehmen (ich weiß nicht ob das klar geworden ist) von daher können Probleme eigentlich nicht auftreten (außer wenn der Mem Wert nicht mehr stimmt das merkt man dann ja aber nach dem ersten Tod und kann die taste manuell spammen)