So Leute ich hab mich mal der Sache auch beschäftigt. Ich sage mal im Vorfeld ich bin absoluter Neuling in Sachen Programmierung und daher bitte ich meine Fehler nicht all zu sehr zu strafen.
Hab als Vorlage die hier angeboten Skripte verwendet. Bei mir klappts leider nicht. Er nimmt zwar die Speedpots aber sonst tut er nicht wirklich viel auser die Cam drehen.
Bin für jede Hilfe dankbar und natürlich für jeglichen Hinweis.
Hier mal der Code:
HotKeySet("{NUMPAD1}", "combo") ;Taste zum Starten
HotKeySet("{NUMPAD2}", "pause") ;Taste für Pause
HotKeySet("{NUMPAD3}", "ende") ;Taste um den Bot zu beenden
;Chips
;Kraft Chipps: FFBE8A
;Seelen Chipps: 78CBF7
;Luna Chipps: FE7AF2
;Chips aus: 0D0D0D
;Vorzeichen
;Send ("+{x}") ;SHIFT +x
;Send ("!{x}") ;ALT +x
;Send ("^{x}") ;STRG +x
;HP
;HP Grün: 9DAB63
;HP Orang: BD7641
;HP Rot: AC2F40
;MOB HP
;Farbe: D4B091
;MANA
;Farbe: 385098
;BOTTRAP
;Nr.1: 040404
;Nr.2: 090909
;Nr.3: 0A0A0A
Global $timerinit = TimerInit() ;Initialisierung des timers
Global $funktionan = False ;Initiierung des Bots in Pause
Global $chipfarbe ;Verschiedene Variablen verden als Global deklariert
Global $maus
Global $moven
Global $drehung
Global $chip
Global $mobhealth
Global $bottrap
Global $bottrap2
Global $bottrap3
Global $timerinit
Global $timer
Global $health1
Global $health2
Global $health3
Global $health4
Global $mana1
Global $chipart
Global $chipsalle
Global $cooldown[13] ;Initialisierung eines Arrays für die Cooldowns der Skills in ms (Millisekunden)
$cooldown[0] = 2000 ;Cooldown Chip // 2 sec
$cooldown[1] = 5000 ;Cooldown Peinigen // 5 sec
$cooldown[2] = 600000 ; Cooldown Konzentration // 10 min
$cooldown[3] = 10000 ;Cooldown Angriffstoß1 // 10 sec
$cooldown[5] = 600000 ;Pot (Schnelligkeitstrank, etc) Cooldown // 10 min
$cooldown[7] = 185000 ;Nugget // 3 min 5 sec
$cooldown[8] = 185000 ;Tee // 3 min 5 sec
$cooldown[9] = 65000 ;Healthpot Cooldown // 65 sec
$cooldown[11] = 65000 ;Manapot Cooldown // 65 sec
Global $skillzuletztgenutzt[13] ;Array für die Skills // Was soll hier hin??
Global $chipfarbe = "FE7AF2" ;Farbe des Chips unter dem Mob (Hex); hier Farbe der Koordinaten 477, 60 eintragen // ART DES CHIPS OBEN VERMERKT
Func tabben()
Send("{TAB}")
Sleep(100)
EndFunc ;==>tabben Tabfunktion
Func loot()
Send("{Space}")
Sleep(500)
Send("{Space}")
Sleep(500)
Send("{Space}")
Sleep(500)
Send("{Space}")
Sleep(500)
EndFunc ;==>loot Lootfunktion wenn kein Lootpet vorhanden ist // Ich nutze kein Lootpet
Func kameradrehen()
MouseMove(520, 380)
MouseDown("right")
MouseMove(900, 380)
MouseUp("right")
Sleep(10)
EndFunc ;==>kameradrehen dreht die Kamera
Func move()
MouseMove(600, 200)
MouseClick("left")
Sleep(10)
EndFunc ;==>move Laufbewegung
Func buffready()
If ($timer - $skillzuletztgenutzt[5]) >= $cooldown[5] Then
Return True
EndIf
EndFunc ;==>buffready wenn der Cooldown 5 abgelaufen ist -> true
Func buff2ready()
If ($timer - $skillzuletztgenutzt[2]) >= $cooldown[2] Then
Return True
EndIf
EndFunc ;==>buffready
Func buffen()
;Konzentration ALT+"="
Send("+{=}")
Sleep(3000)
Send("+{=}")
Sleep(3000)
Send("+{=}")
Sleep(3000)
;Togel Kraft ALT+"0"
Send("+{0}")
Sleep(100)
;SPHÄREN
;Send("+{F2}")
;Sleep(3000)
;Send("+{F2}")
;Sleep(100)
;FEUERESSENZ
;Send("^{F6}")
;Sleep(100)
;SPHÄREN
;Send("+{F2}")
;Sleep(3000)
;Send("+{F2}")
;Sleep(3000)
;Send("+{F2}")
;Sleep(3000)
;SHPÄRE DER GESUNDHEIT
;Send("+{F4}")
;Sleep(100)
;BARBARENWUT
;Send("+{F5}")
;Sleep(100)
;==> Habe ich auskommentiert da ich noch LOW bin und noch keine notwendigkeit sehe
;SPEEDPOTS
Send("!{1}") ; Gelber Trank ALT+"1"
Sleep(100)
Send("!{2}") ; Lila Trank ALT+"2"
Sleep(100)
;SPHÄREN
;Send("+{F2}")
;Sleep(3000)
;Send("+{F2}")
;Sleep(3000)
;Send("+{F2}")
;Sleep(3000)
MouseMove(200,13)
MouseClick("LEFT")
;OKTOPUSSBUFF
;Send("^{F8}")
;Sleep(3000)
;$skillzuletztgenutzt[5] = $timer
EndFunc ;==>buffen Buffen
;==> Da mein Pet noch keine Buffs hat habe ich auch das auskommentiert
Func chippen()
Send("+{1}");Chips liegen auf Shift+1
$skillzuletztgenutzt[0] = $timer
Sleep(100)
EndFunc ;==>chippen Chippen
Func farbenauslesen()
$health1 = PixelGetColor(11, 54) ;Farbe vom Char links
$health2 = PixelGetColor(11, 54) ;rot
$health3 = PixelGetColor(11, 54) ;tot
$health4 = PixelGetColor(486, 422) ;Zeigt das Bestätigungsfenster bei Tod
$mana1 = PixelGetColor(90, 66) ;Mana hälfte
$mobhealth = PixelGetColor(540, 30) ;Check ob der Mob Leben hat
$bottrap = PixelGetColor(441, 16) ;Check ob Bottrap
$bottrap2 = PixelGetColor(446, 6) ;Check ob Bottrap
$bottrap3 = PixelGetColor(436, 6) ;Check ob Bottrap
$chipsalle = PixelGetColor(58,720) ;2. Postion in der Skillleiste leer
$chip = PixelGetColor(477, 60) ;Farbenauslesen vom Chip
Sleep(10)
EndFunc ;==>farbenauslesen
Func townbreak()
Send ("!{+}") ; Hier liegt die Townscroll auf ALT+"+"
Sleep (10000)
MsgBox(0, "BOT", "Ich bin fertig!")
EndFunc ;==>townbreak
Func chipbereit()
If ($timer - $skillzuletztgenutzt[0]) >= $cooldown[0] Then
Return True
EndIf
EndFunc ;==>chipbereit
Func skill1bereit()
If ($timer - $skillzuletztgenutzt[1]) >= $cooldown[1] Then
Return True
EndIf
EndFunc ;==>skill1bereit in diesem Bereich passt ihr die cooldowns eurer skills an
Func skill2bereit()
If ($timer - $skillzuletztgenutzt[2]) >= $cooldown[2] Then
Return True
EndIf
EndFunc ;==>skill2bereit
Func skill3bereit()
If ($timer - $skillzuletztgenutzt[3]) >= $cooldown[3] Then
Return True
EndIf
EndFunc ;==>skill3bereit
Func skill7bereit()
If ($timer - $skillzuletztgenutzt[7]) >= $cooldown[7] Then
Return True
EndIf
EndFunc ;==>skill7bereit
Func skill8bereit()
If ($timer - $skillzuletztgenutzt[8]) >= $cooldown[8] Then
Return True
EndIf
EndFunc ;==>skill8bereit
Func hpotready()
If ($timer - $skillzuletztgenutzt[9]) >= $cooldown[9] Then
Return True
EndIf
EndFunc ;==>hpotready
Func mpotready()
If ($timer - $skillzuletztgenutzt[11]) >= $cooldown[11] Then
Return True
EndIf
EndFunc ;==>mpotready
Func nachhealth() ;BOTSCHLEIFE wenn Leben orange
If buffready() = True Then buffen()
If Hex($mobhealth, 6) = "D4B091" Then ;hier Farbe der Koordinaten 489, 27 eintragen
If Hex($bottrap, 6) <> "040404" And Hex($bottrap2, 6) <> "090909" And Hex($bottrap3, 6) <> "0A0A0A" Then ;hier Farbe der Koordinaten von Bottraps eintragen
If Hex($chip, 6) = $chipfarbe Then ;attackschleife
Send("{1}")
Sleep(500) ;castingtime in ms +250 - 500 (auch bei skills ohne casttime)
If skill1bereit() = True Then
Send("{2}")
Sleep(500)
$skillzuletztgenutzt[1] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
If skill2bereit() = True Then
Send("{3}")
Sleep(500)
$skillzuletztgenutzt[2] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
If skill3bereit() = True Then
Send("{4}")
Sleep(500)
$skillzuletztgenutzt[3] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
If skill7bereit() = True Then
Send("{5}")
Sleep(500)
$skillzuletztgenutzt[7] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
If skill8bereit() = True Then
Send("{6}")
Sleep(500)
$skillzuletztgenutzt[8] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
$drehung = 0
$moven = 0
Else
If chipbereit() = True Then
chippen()
Sleep(50)
EndIf
EndIf
Else
tabben()
$drehung = $drehung + 1
If $drehung > 2 Then
kameradrehen()
$drehung = 0
$moven = $moven + 1
EndIf
If $moven > 10 Then
move()
$moven = 0
EndIf
EndIf
Else
tabben()
$drehung = $drehung + 1
If $drehung > 2 Then
kameradrehen()
$drehung = 0
$moven = $moven + 1
EndIf
If $moven > 10 Then
move()
$moven = 0
EndIf
;loot()
EndIf
EndFunc ;==>nachhealth
Func nachmana() ;BOTSCHLEIFE wenn Mana unter einem gewissen Punkt
If buffready() = True Then buffen()
If Hex($mobhealth, 6) = "D4B091" Then ;hier Farbe der Koordinaten 489, 27 eintragen
If Hex($bottrap, 6) <> "040404" And Hex($bottrap2, 6) <> "090909" And Hex($bottrap3, 6) <> "0A0A0A" Then ;hier Farbe der Koordinaten von Bottraps eintragen
If Hex($chip, 6) = $chipfarbe Then ;attackschleife
Send("{1}") ; Hier liegt der Angriffsbutton "1"
Sleep(500) ;castingtime in ms +250 - 500 (auch bei skills ohne casttime)
If skill1bereit() = True Then
Send("{2}") ; Hier liegt Peinigen auf "2"
Sleep(500)
$skillzuletztgenutzt[1] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
If skill2bereit() = True Then
Send("{3}") ; Hier liegt Angrifsstoß auf "3"
Sleep(500)
$skillzuletztgenutzt[2] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
If skill3bereit() = True Then
Send("{4}") ; Hier liegt Dunkler Schlag auf "4"
Sleep(500)
$skillzuletztgenutzt[3] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
If skill7bereit() = True Then
Send("{5}") ; Hier ist ein leeres Feld
Sleep(500)
$skillzuletztgenutzt[7] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
If skill8bereit() = True Then
Send("{6}") ; Hier ist ein leeres Feld
Sleep(500)
$skillzuletztgenutzt[8] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
$drehung = 0
$moven = 0
Else
If chipbereit() = True Then
chippen()
Sleep(50)
EndIf
EndIf
Else
tabben()
$drehung = $drehung + 1
If $drehung > 2 Then
kameradrehen()
$drehung = 0
$moven = $moven + 1
EndIf
If $moven > 10 Then
move()
$moven = 0
EndIf
EndIf
Else
tabben()
$drehung = $drehung + 1
If $drehung > 2 Then
kameradrehen()
$drehung = 0
$moven = $moven + 1
EndIf
If $moven > 10 Then
move()
$moven = 0
EndIf
loot() ; Da ich kein Lootpetnutze habe ich es aktiviert
EndIf
EndFunc ;==>nachmana
Func combo() ;HAUPTBOTSCHLEIFE
$funktionan = True
SendKeepActive("Rappelz") ;Rappelz ist immer Vordergrund
Opt("PixelCoordMode", 2) ;die Pixel werden direkt aus dem Fenster ausgelsen
Opt("MouseCoordMode", 2) ;die Maus bewegt sich nur im Fenster
While $funktionan = True
farbenauslesen()
$timer = TimerDiff($timerinit) ;timer init
$timer = $timer + 3600000 ; timer + 1stunde
If Hex($chipsalle, 6) <> "0D0D0D" Then ;hier Farbe der Koordinaten 58, 720 eintragen
If Hex($health1, 6) <> "BD7641" Then ;hier Farbe der Koordinaten 11, 54 bei orangem Leben eintragen
If Hex($health1, 6) <> "AC3F40" Then ;hier Farbe der Koordinaten 11, 54 bei rotem Leben eintragen
If Hex($mana1, 6) = "385098" Then ;hier Farbe der Koordinaten 108, 67 bei vollem Mana eintragen
If buffready() = True Then buffen()
If Hex($mobhealth, 6) = "D4B091" Then ;hier Farbe der Koordinaten 489, 27 eintragen
If Hex($bottrap, 6) <> "040404" And Hex($bottrap2, 6) <> "090909" And Hex($bottrap3, 6) <> "0A0A0A" Then ;Hier Bottraps einsetzen
If Hex($chip, 6) = $chipfarbe Then ;attackschleife
Send("{1}") ; Hier liegt der Angriffsbutton "1"
Sleep(500) ;castingtime in ms +250 - 500 (auch bei skills ohne casttime)
If skill1bereit() = True Then
Send("{2}") ; Hier liegt der Peinigen "2"
Sleep(500)
$skillzuletztgenutzt[1] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
If skill2bereit() = True Then
Send("{3}") ; Hier liegt der Angrifsstoß "3"
Sleep(500)
$skillzuletztgenutzt[2] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
If skill3bereit() = True Then
Send("{4}") ; Hier liegt der Dunkler Schlag "4"
Sleep(500)
$skillzuletztgenutzt[3] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
If skill7bereit() = True Then
Send("{5}") ; Hier ist ein leeres Feld
Sleep(50)
$skillzuletztgenutzt[7] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
If skill8bereit() = True Then
Send("{6}") ; Hier ist ein leeres Feld
Sleep(500)
$skillzuletztgenutzt[8] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
$drehung = 0
$moven = 0
Else
If chipbereit() = True Then
chippen()
Sleep(50)
EndIf
EndIf
Else
tabben()
$drehung = $drehung + 1
If $drehung > 2 Then
kameradrehen()
$drehung = 0
$moven = $moven + 1
EndIf
If $moven > 10 Then
move()
$moven = 0
EndIf
EndIf
Else
tabben()
$drehung = $drehung + 1
If $drehung > 2 Then
kameradrehen()
$drehung = 0
$moven = $moven + 1
EndIf
If $moven > 10 Then
move()
$moven = 0
EndIf
loot()
EndIf
Else
If mpotready() = True Then
Send("!{4}") ; Hier liegen die Manapots auf Alt+"4"
Sleep(500)
$skillzuletztgenutzt[11] = $timer
EndIf
nachmana()
;wenn mtee cooldown nicht dann trinke
EndIf
Else
If hpotready() = True Then
Send("!{3}") ; Hier liegen die Healpots auf Alt+"3"
Sleep(100)
$skillzuletztgenutzt[9] = $timer
EndIf
Send("!{z}") ; Keine Ahnung was das hier für eine Funktion erfüllt
Sleep(50)
MouseClick("left",482,390)
Sleep(50)
MouseClick("left",450,216)
Sleep(50)
Exit ;Ausloggen wenn Leben rot
;wenn hpot cooldown nicht dann esse
EndIf
Else
If hpotready() = True Then
Send("!{3}") ; Hier liegen die Healpots auf Alt+"3"
Sleep(100)
$skillzuletztgenutzt[9] = $timer
EndIf
nachhealth()
;wenn hnugget cooldown nicht dann esse
EndIf
Else
townbreak()
EndIf
WEnd
EndFunc ;==>combo
Func pause()
$funktionan = False
Sleep(10)
EndFunc ;==>pause
Func ende()
Exit
EndFunc ;==>ende
While 1
Sleep(50)
WEnd
