Farmbot - For 64 Bit OS

Page 13 of 16 « First 31112 13 1415 Last »
03/07/2010 10:01 schmuselord1#181
klar. mach ich aber ned. für hilfestellungen würde ich mir zeit nehmen aber "nen ganz einfaches machen" - nö. jeder mitn paar kenntnissen kann das vom autor verstehen. man muss einfach nur mal in der hauptfunktion die zeilen durchgehen.
03/07/2010 12:33 neoangel11#182
dann mall ne andere frage gehts überhaupt mit vista 32? bit weil ich habs ja versucht aber er hat nie ingame was gemacht^^
03/07/2010 13:26 KentuckyFC#183
Ne nicht mit 32 bit und vista sucks xD
03/07/2010 14:01 neoangel11#184
wird den vorraussichtlich über haupt ein richtiger bot kommen? der auf alle systeme leuft^^
und das vista scheisse is weiss ich auch xD
03/07/2010 20:38 schmuselord1#185
ich glaube das interesse für nen richtigen bot ist zu niedrig. sonst wäre da schon ein guter programmierer am werk. ich kanns leider nicht wirklich ^^
03/07/2010 23:34 neoangel11#186
stimmt verliere auch schon wieder die lust am rappelz^^ aber weiss net was ich sonst zoggen soll xD
03/12/2010 04:53 rugal03#187
its not working now :(
03/12/2010 10:14 schmuselord1#188
it does :P
03/16/2010 06:29 schmuselord1#189
manche skills haben keinen cd, deswegen brauchen se auch keinen.
hier ist mal ne möglichkeit für zb acidspray:

variablenteil:
Code:
Global $timerinit = TimerInit() ; timer
Global $helpvar
Global $cooldown[12] ;cooldown for skills
$cooldown[0] = 31000 ; cd for acidspray
Global $recentlyusedskill[12] ;array for skills
$recentlyusedskill[0] = 0 ; lastused acidspray
Global $sleeprandomcam2 = Random ( 499, 599, 1 )
Global $sleepbuff = Random ( 1850 , 2000, 1 )
funktionsteil:
Code:
Func acidspray() ; function for acid spray
	$helpvar = TimerDiff($timerinit) 
	If ( $helpvar - $recentlyusedskill[0] ) > $cooldown[0] Then
		$recentlyusedskill[0] = $helpmana
		Send("6") ; acidspray
		sleep( $sleepbuff )
		Send("2") ; angreifen mit pet
		Sleep( $sleeprandomcam2 )
		Send("2")
	EndIf
EndFunc
03/28/2010 13:33 Sophocless#190
So ich meld mich dann mal auch!
Benutze das Script nun seit ein paar tagen zum farmen. Funktioniert soweit ganz gut, er chippt atcked mit pet, bufft sich und benutzt passend die potz!
Nur habe ich irgendwie schwierigkeiten weitere Skills einzusetzen, er benutzt die nicht,
Dann habe ich noch probleme mit dem bot zu looten, habe in der hauptbotschleife den Strichpunkt ; vor dem loot entfernt, aber er lootet nicht.
Wenn ich bei jedem loot den Strichpunkt; entferne , dann lootet er, aber zu oft.
Und damit meine ich das er nach jedem bildschirm drehen nochmal die lootschleife durchläuft. So dauert es unter umständen minuten bis er 10mal die Kamera gedreht hat ud weiter läuft.

Wäre super wenn mir einer nochmal sein Script oder den passenden Auschnitt für skill schicken könnte. Undvlt kann mir ja wer erklären warum das mit dem looten nicht ganz funktioniert.;)
03/28/2010 14:19 schmuselord1#191
was hastn für ne bildschirmauflösung? wenn du 1600x900 machen kannst für rappelz, kann ich dir auch mein script geben ^^
03/28/2010 15:22 Sophocless#192
joa 1600x900 is kein problem =)
und bei dir passt das alles mitm looten?
und vorallem skills? =)
wäre klasse wennde mir script posten könntest:handsdown:
03/28/2010 21:02 schmuselord1#193
Code:
HotKeySet("{NUMPAD1}", "combo") ;to start application
HotKeySet("{NUMPAD2}", "pause") ;to pause it
HotKeySet("{NUMPAD3}", "ende") ;to exit bot

Global $timerinit = TimerInit() ; timer
Global $timerinit2
Global $timerinit3 = TimerInit()
Global $timerinit4 = TimerInit()
Global $character = 2 ; 1 = priest, 2 = breeder
Global $total
Global $hours
Global $minutes
Global $minutes2
Global $minutes3 = 0
Global $seconds
Global $seconds2
Global $seconds3 = 0
Global $funktionan = False ;bot initialized while pause
Global $average = 0
Global $average2 = 0
Global $maus
Global $mytimer = 0
Global $moven
Global $drehung ; to turn around
Global $mobhealth
Global $mobhealthonethird
Global $bottrap
Global $bottrap2
Global $bottrap3
Global $bottrap4
Global $bottrap5
Global $highesttime = 0
Global $timerinit
Global $timer
Global $health1
Global $health1110
Global $health114
Global $health145
Global $mana
Global $health2
Global $healthpet2
Global $health3
Global $health4
Global $killcounter
Global $randomclick = Random ( 1, 4, 1 )
Global $restorationcounter = 0
Global $rapidhealcounter = 0
Global $lastencounteredmob = 0
Global $acidspraycounter = 0
Global $sleepcounter = 0
Global $disccounter = 0
Global $potcounter = 0
Global $scrollcounter = 0
Global $lootcounter
Global $cooldown[12] ;cooldown for skills
$cooldown[1] = 31000 ; cd for acidspray
$cooldown[2] = 31000 ; cd for restoration
$cooldown[3] = 61000 ; cd for red pot
$cooldown[4] = 16000 ; cd for minor heal
$cooldown[6] = 60000 ; cd for blue pot
$cooldown[7] = 31000 ; cd for petrestoration
$cooldown[8] = 61000 ; cd for scroll
Global $recentlyusedskill[12] ;array for skills
$recentlyusedskill[1] = 0 ; lastused acidspray
$recentlyusedskill[2] = 0 ; lastused restoration
$recentlyusedskill[3] = 0 ; lastused red pot
$recentlyusedskill[4] = 0 ; lastused minor heal
$recentlyusedskill[6] = 0 ; lastused blue pot
$recentlyusedskill[7] = 0 ; lastused petrestoration
$recentlyusedskill[8] = 0 ; lastused scroll
Global $sleeprandomtab = Random ( 100 , 200 , 1 )
Global $sleeprandohundred = Random ( 80 , 120 , 1 )
Global $sleepbufftwentyfive = Random ( 1450000 , 1550000 , 1 )
Global $sleeptimerinit2 = Random ( 15000 , 20500 , 1 )
Global $sleeptimerinit3 = Random ( 8000, 13000, 1 )
Global $sleeploot1 = Random ( 999 , 1501 , 1 )
Global $sleeploot2 = Random ( 399 , 699 , 1 )
Global $sleeploot3 = Random ( 149, 249, 1)
Global $sleepcamera = Random ( 10 , 20 , 1 )
Global $sleepbuff = Random ( 1850 , 2000, 1 )
Global $sleepattack = Random ( 2100, 3100, 1 )
Global $delay = Random ( 1000, 1500, 1 )
Global $sleepheal = Random ( 2500, 3000, 1 )
Global $sleeprandomcam2 = Random ( 499, 599, 1 )
Global $randomonetofive = Random ( 1, 5, 1 )
Global $mobhealthfull
Global $mobhealthempty
Global $confirmcolor1
Global $confirmcolor2
Global $iconcolor
Global $iconcolor2
Global $helptimer = True
Global $helpbuffready
Global $helpbuffready2 = 0
Global $helpmana = 0

Func readcolor()
	$iconcolor = PixelGetColor(15, 25); icon color ^^
	$iconcolor2 = PixelGetColor(22, 36); icon color char 2
	$health1 = PixelGetColor(108, 57) ;color of char left
	$health2 = PixelGetColor(114, 117); creature hp
	$healthpet2 = PixelGetColor(131, 117)
	$health1110 = PixelGetColor(28, 53)
	$health114 = PixelGetColor(66, 52); if your hp is below 1/4
	$health145 = PixelGetColor(170, 55); if your hp is below 4/5
	$health4 = PixelGetColor(486, 422) ;shows confirm by death (didnt implement it yet)
	$mana = PixelGetColor(70, 67); mana of char
	$mobhealthempty = PixelGetColor(1070, 30) ;check if mob still got life
	$mobhealthfull = PixelGetColor(1261, 29); if mob is full life
	$bottrap = PixelGetColor(1022, 5) ;check on mob trap
	$bottrap2 = PixelGetColor(1013, 4) ;check on mob trap
	$bottrap3 = PixelGetColor(1022, 15) ;check on mob trap
	$bottrap4 = PixelGetColor(1020, 10)
	$bottrap5 = PixelGetColor(1020, 11)
	$mobhealthonethird = PixelGetColor(1122, 29); if mob has 1/3 hp
	$confirmcolor1 = PixelGetColor(704, 431) ; if you got a disconnect
	$confirmcolor2 = PixelGetColor(856, 434) ; if you got a disconnect
	Sleep( $sleepcamera )
EndFunc   ;==>read colors

Func readcolorrelog()
	$health1 = PixelGetColor(620, 296) ; overrides temporarily health1. didnt want to use too many variables; for startbutton
	$health2 = PixelGetColor(597, 241) ; for startbutton
	$health1110 = PixelGetColor(651, 576) ; for accountrecognition
	$health114 = PixelGetColor(948, 670) ; for accountrecognition
	$health145 = PixelGetColor(982, 170) ; for char login
	$health4 = PixelGetColor(1260, 176) ; for char login
	$confirmcolor1 = PixelGetColor(769, 431) ; if you you are already logged in
	$confirmcolor2 = PixelGetColor(868, 431) ; if you you are already logged in
EndFunc

Func gostandby()
	;Shutdown(36) ; standby modus - only one modus should be active. otherwise the first one will be used
	;Shutdown(5) ; shuts pc down by force xD
	Exit; just exits the program
EndFunc
	
Func relogacc()
	Opt("PixelCoordMode", 1)
	Opt("MouseCoordMode", 1)
	RunWait(@COMSPEC & " /c Start Rappelz.lnk ") ; listen! you have to make a link from the original "Launcher.exe" from rappelz and copy it into your folder. it should be named "Rappelz"
	SendKeepActive("Launcher")
	Opt("PixelCoordMode", 2)
	Opt("MouseCoordMode", 2)
	readcolorrelog()
	While Hex($health1, 6) <> "C82109" And Hex($health2, 6) <> "C82519" ; if the big red start button is not ready yet
		readcolorrelog()
		Sleep(1500)
		$sleepcounter += 1
		If $sleepcounter == 8 Then
			gostandby()
		EndIf
	WEnd
	$sleepcounter = 0
	sleep(3000)
	MouseClick( "left", 620, 296, 1 )
	Sleep(20000) ; increase this value of your computer is too slow! 20000 = 20 sec
	readcolorrelog()
	While Hex($health1110, 6) <> "9E9F9E" And Hex($health114, 6) <> "91908E" ; if havent reached account-input window yet xD
		readcolorrelog()
		sleep(1000)
		$sleepcounter += 1
		Send("{ESC}")
		If $sleepcounter == 20 Then
			gostandby()
		EndIf
	WEnd
	sleep(2500)
	$sleepcounter = 0
	If $character == 1 Then
		Send("account") ;write your accountname
		Sleep(500)
		Send("{TAB}")
		sleep(50)
		Send("password") ;write your password
		sleep(500)
		Send("{ENTER}")	
	Else
		Send("account") ;write your accountname
		Sleep(500)
		Send("{TAB}")
		sleep(50)
		Send("password") ;write your password
		sleep(500)
		Send("{ENTER}")	
	EndIf
	sleep(2000)
	readcolorrelog()
	If Hex($confirmcolor1, 6) == "FBE7B4" And Hex($confirmcolor2, 6) == "FBE7B4" Then ; if someone is already logged in
		While Hex($confirmcolor1, 6) == "FBE7B4" And Hex($confirmcolor2, 6) == "FBE7B4" ; while someone is already logged in the bot tries it again
			MouseClick( "left", 800, 478, 1 )
			Sleep( $sleeptimerinit3 )
			MouseClick( "left", 862, 652, 1 )
			sleep(2000)
			readcolorrelog()
			$sleepcounter += 1
			If $sleepcounter == 20 Then
				gostandby()
			EndIf
		WEnd
		$sleepcounter = 0
	EndIf
	If $character == 1 Then
		Send("{DOWN}") ; selects server. 2x down means naga - 3x down means fenrir server
		sleep(500)
		Send("{DOWN}")
		sleep(400)
	Else
		Send("{UP}")
		sleep(500)
	EndIf
	Send("{ENTER}")
	readcolorrelog()
	While Hex($health145, 6) <> "C6C5C5" And Hex($health4, 6) <> "7E7F7A" ; if your character doesnt show up in loggin-area
		sleep(1000)
		readcolorrelog()
		$sleepcounter += 1
		If $sleepcounter == 10 Then
			gostandby()
		EndIf
	WEnd
	$sleepcounter = 0
	Send("{ENTER}")
	readcolor()
	While Hex($iconcolor, 6) <> "9E9A41"; Or Hex($iconcolor2, 6) <> "FDFFFA" ; - while you cant see your character icon
		sleep(2000)
		readcolor()
		$sleepcounter += 1
		If $sleepcounter == 10 Then
			If Hex($iconcolor2, 6) == "FDFFFA" Then
				combo()
			Else
				gostandby()
			EndIf
		EndIf
	WEnd
	sleep(1000)
	$sleepcounter = 0
	$mytimer = 0
	$lastencounteredmob = TimerDiff($timerinit3)
	combo() ; yea. lets go to main function and keep on botting xD
EndFunc

Func selfheal()
	If $character == 1 Then
		If Hex($health1, 6) <> "7B8A3E" Then
			MouseClick( "left", 170, 55, 1 )
			Sleep( $sleepcamera	)
			Send("8")
			sleep( $sleepheal )
		EndIf
	Else
		If 	Hex($health145, 6) <> "B7D990" Then
			Send("9")
			sleep( $sleepheal )
		EndIf
	EndIf
EndFunc

Func scroll()
	If $character == 2 Then
		readcolor()
		$helpmana = TimerDiff($timerinit3)
		If Hex($health145, 6) <> "B7D990" And ( $helpmana - $recentlyusedskill[8] > $cooldown[8] ) Then
			$recentlyusedskill[8] = $helpmana
			MouseClick( "left", 170, 55, 1 )
			Sleep( $sleepcamera	)
			Send("{CTRLDOWN}0{CTRLUP}")
			$scrollcounter += 1
		EndIf
	EndIf
EndFunc
			
Func ifdisconnect()
	readcolor()
	If Hex($confirmcolor1, 6) == "FBE7B4" And Hex($confirmcolor2, 6) == "FBE7B4" Then ; if a disconnect shows up
		sleep(200)
		$disccounter += 1
		MouseClick( "left", 775, 478, 1 )
		Sleep(15000)
		relogacc() ; either relogacc or gostandby shall be active. otherwise relogacc will be used
		;gostandby() ; only one of them shall be active. otherwise relogacc will be used
	EndIf
EndFunc

Func tabben()
	Send("{TAB}")
	Sleep( $sleeprandomtab )																																																																																																																																																																																																														
EndFunc   ;==>tabben tabfunction

Func loot()
	$lootcounter = Random ( 8, 11, 1 )
	If $character ==1 Then
		$lootcounter -= 2
	EndIf
	While $sleepcounter < $lootcounter
		$helpmana = Random ( 300, 400, 1 )
		Sleep( $helpmana )
		Send("{Space}")
		$sleepcounter += 1
	WEnd
	$sleepcounter = 0
EndFunc   ;==>loot lootfunktion if no lootpet available

Func turncamera()
	MouseMove(520, 380)
	MouseDown("right")
	MouseMove(900, 380)
	MouseUp("right")
	Sleep( $sleepcamera )
EndFunc   ;==>turns around the camera

Func move()
	MouseMove(800, 350)
	MouseClick("left")
	Sleep( $sleepcamera )
EndFunc   ;==>move direction

Func buff1ready()
	If ( $mytimer == 0 ) Then
		Return True
	EndIf
	$helpbuffready = TimerDiff($timerinit3)
	if ( ($helpbuffready - $helpbuffready2) >= $sleepbufftwentyfive ) Then   ; buffs which have more than 25min cd
		$helpbuffready2 = $helpbuffready
		Return True
	EndIf
EndFunc  

Func buffen()  ; buffs with 30 min cooldown
	Send("{ESC}")
	sleep ( $sleeprandohundred )
	Send("{ESC}")
	sleep ( $sleeprandohundred )
	If 	$mytimer == 0 Then  ; permanent buffs
		If $character == 1 Then
			Send("{ALTDOWN}3{ALTUP}"); alt + 3
			Sleep( $sleeploot3 )
			Send("{SHIFTDOWN}9{SHIFTUP}"); shift + 6
			sleep( $sleepbuff )
			SLeep( $delay )
		Else
			Send("{SHIFTDOWN}8{SHIFTUP}")
			sleep( $sleepbuff )
			SLeep( $delay )
		EndIf
		$mytimer = 1
	EndIf
	If $character == 1 Then
		Send("{SHIFTDOWN}1{SHIFTUP}"); shift + 1
		Sleep( $sleepbuff )
		SLeep( $delay )
		Send("{SHIFTDOWN}2{SHIFTUP}"); shift + 2
		Sleep( $sleepbuff )
		SLeep( $delay )
		Send("{SHIFTDOWN}3{SHIFTUP}"); shift + 3
		SLeep( $sleepbuff )
		SLeep( $delay )
		Send("{SHIFTDOWN}4{SHIFTUP}"); shift + 4
		Sleep( $sleepbuff )
		SLeep( $delay )
		Send("{SHIFTDOWN}5{SHIFTUP}"); shift + 5
		Sleep( $sleepbuff )
		SLeep( $delay )
		Send("{SHIFTDOWN}6{SHIFTUP}"); shift + 5
	Else
		Send("{SHIFTDOWN}4{SHIFTUP}"); shift + 4
		sleep( $sleepbuff )
		MouseClick( "left", 114, 117, 1 ) ;clicks on pet
		SLeep( $delay )
		Send("{SHIFTDOWN}1{SHIFTUP}"); shift + 1
		Sleep( $sleepbuff )
		SLeep( $delay )
		Send("{SHIFTDOWN}2{SHIFTUP}"); shift + 2
		Sleep( $sleepbuff )
		SLeep( $delay )
	EndIf
	$recentlyusedskill[5] = $timer
EndFunc   ;==>buffen use buff

Func acidspray() ; function for acid spray if you got enough mana to waste
	If $character == 1 Then
		$helpmana = TimerDiff($timerinit3) 
		If ( Hex($mana, 6) == "8499C3" And ( $helpmana - $recentlyusedskill[1] ) > $cooldown[1] And Hex($mobhealthonethird, 6) == "C6776A") Then
			$acidspraycounter += 1
			$recentlyusedskill[1] = $helpmana
			Send("6")
			sleep( $sleepbuff )
			Send("2")
			Sleep( $sleeprandomcam2 )
			Send("2")
		EndIf
	EndIf
EndFunc

Func restoration() ; function for restoration
	If $character == 1 Then
		$helpmana = TimerDiff($timerinit3)
		If ( $helpmana - $recentlyusedskill[2] ) > $cooldown[2] And Hex($health145, 6) <> "B7D990" Then
			$restorationcounter += 1
			$recentlyusedskill[2] = $helpmana
			MouseClick( "left", 170, 55, 1 )
			sleep( $sleepcamera )
			Send("7")
			sleep( $sleepbuff )
		EndIf
	EndIf
EndFunc

Func petrestoration() ; for pets
	$helpmana = TimerDiff($timerinit3)
	If $character == 2 Then
		If ( $helpmana - $recentlyusedskill[7] ) > $cooldown[7] And Hex($healthpet2, 6) <> "9FBA68" Then
			$recentlyusedskill[7] = $helpmana
			MouseClick( "left", 114, 117, 1 )
			sleep( $sleepcamera )
			Send("7")
			sleep( $sleepbuff )
		EndIf
	Else
		If ( $helpmana - $recentlyusedskill[2] ) > $cooldown[2] And Hex($healthpet2, 6) <> "9FBA68" Then
			$recentlyusedskill[2] = $helpmana
			MouseClick( "left", 114, 117, 1 )
			sleep( $sleepcamera )
			Send("7")
			sleep( $sleepbuff )
		EndIf
	EndIf
EndFunc
			
Func pot()
	If $character <> 1 Then
		$helpmana = TimerDiff($timerinit3)
		If ( $helpmana - $recentlyusedskill[3] ) > $cooldown[3] And Hex($health145, 6) <> "B7D990" Then
			$recentlyusedskill[3] = $helpmana
			Send("{CTRLDOWN}9{CTRLUP}")
			$potcounter += 1
		EndIf
			If Hex($mana, 6) <> "8499C3" And ( $helpmana - $recentlyusedskill[6] ) > $cooldown[6] Then
			$recentlyusedskill[6] = $helpmana
			Send("{CTRLDOWN}8{CTRLUP}")
			$potcounter += 1
		EndIf
	EndIf
EndFunc
	
Func rapidheal() ; function for rapidheal
	If $character == 1 Then
		If Hex($health114, 6) == "150907" Then
			restoration()
			$rapidhealcounter += 1
			MouseClick( "left", 170, 55, 1 )
			sleep( $sleepcamera )
			Send("9")
			sleep( $sleepheal )
			Send("9")
			sleep( $sleepheal )
			kson()
		EndIf
	EndIf
EndFunc

Func quitifhplow()
	If Hex($health1110, 6) == "1C0D0A" Then
		MouseClick( "left", 1576, -21, 1 )
		sleep( $sleeprandomtab )
		MouseClick( "left", 729, 247, 1 )
		gostandby()
	EndIf
EndFunc	

Func timestatistic() ; average and highest time you need to attack another mob
	$helpmana = TimerDiff($timerinit3)
	$lastencounteredmob = $helpmana - $lastencounteredmob
	$average = $lastencounteredmob + $average 
	$average2 = $average / 1000 / ( $killcounter + 1 )
	$minutes2 = Round(( $average2 / 60 ), 0)
	$seconds2 = Mod( Round( $average2, 0 ), 60 )
	If $highesttime < ( $lastencounteredmob / 1000 ) Then
		$highesttime = $lastencounteredmob / 1000
		$minutes3 = Round(( $highesttime / 60 ), 0)
		$seconds3 = Mod( Round( $highesttime, 0 ), 60 ) 
	EndIf
EndFunc

Func timestatistic2() ;how long the script is running
	$helpmana = TimerDiff($timerinit3)
	$seconds = Mod( Round(( $helpmana / 1000 ), 0), 60 )  
	$minutes = Mod( Round(( $helpmana / 1000 / 60 ), 0), 60 )
	$hours = Round( $helpmana / 1000 / 3600, 0 )
	$total = Round( $killcounter / ( $helpmana / 1000 / 60 ), 2 )
EndFunc

Func writefile() ; writes the log :D
	$file = FileOpen("log.txt", 10)
	If $character == 1 Then
		FileWrite($file, "Priest" & @CRLF & @CRLF)
	Else
		FileWrite($file, "Breeder" & @CRLF & @CRLF)
	EndIf
	FileWrite($file, "Total kills: 	" & $killcounter & @CRLF & @CRLF)
	FileWrite($file, "How long the script is running: " & $hours & " Hours " & $minutes & " Minutes " & $seconds & " Seconds" & @CRLF & @CRLF)
	FileWrite($file, "Average time of encountering mob: " & $minutes2 & " Minutes " & $seconds2 & " Seconds" & @CRLF & @CRLF)
	FileWrite($file, "Highest time of encountering mob: " & $minutes3 & " Minutes " & $seconds3 & " Seconds" & @CRLF & @CRLF)
	FileWrite($file, "Kills per minute: " & $total & @CRLF & @CRLF)
	FileWrite($file, "Rapidhealcounter: " & $rapidhealcounter & "		restorationcounter: " & $restorationcounter & "		acidspraycounter: " & $acidspraycounter & "		potcounter :" & $potcounter & @CRLF)
	FileWrite($file, "Scrollcounter: " & $scrollcounter & @CRLF & @CRLF)
	FileWrite($file, "disconnects: " & $disccounter)
	FileClose($file)
EndFunc

Func attack()
	timestatistic() ; average and highest time you need to attack another mob
	If $character == 1 Then
		Send("3")
		Sleep( $sleepattack )
		Send("2")
	Else
		Send("2")
		Sleep( $sleeploot2 )
		Send("3")
		sleep( $sleepbuff )
		Send("2")
		Sleep( $sleeprandohundred )
		Send("2")
		Sleep( $sleeprandohundred )
	EndIf
	Sleep( $sleeploot1 )
	$drehung = 0
	$moven = 0
	$timerinit2 = TimerInit()
	While Hex($mobhealthempty, 6) == "C8A78A" ; if mob is not dead yet
		sleep(250)
		If $randomclick == 4 Then
			Send("2")
		EndIf
		$randomclick = Random ( 2, 4, 1 )
		ifdisconnect()
		pot()
		quitifhplow()
		acidspray()
		rapidheal()
		If TimerDiff($timerinit2) > $sleeptimerinit2 And Hex($mobhealthfull, 6) == "C6776A" Then ; if char got stuck ((maybe mob is in a wall)
			Send("{ESC}")
			move()
			sleep( $sleeprandomcam2 )
			turncamera()
			Sleep( $sleeprandomcam2 )
			move()
		EndIf
		If Hex($mobhealthempty, 6) <> "C8A78A" Then
		loot()
		$timerinit2 = 0
		$killcounter = $killcounter + 1
		timestatistic2() ;how long the script is running
		writefile() ; writes data into a file in the same folder where your script is
		$lastencounteredmob = TimerDiff($timerinit3); resets lastencounteredmob because the mob is dead now ^^
		petrestoration()
		EndIf
	WEnd
EndFunc

Func combo() ;main bot loop
	$funktionan = True
	SendKeepActive("Rappelz")	;Rappelz always in foreground
	Opt("PixelCoordMode", 2)	;pixel directly read from client
	Opt("MouseCoordMode", 2)	;mouse only moves in client
	While $funktionan = True
		ifdisconnect()
		quitifhplow()
		If Hex($iconcolor, 6) == "9E9A41" Then
			$character = 2
		Else
			$character = 1
		EndIf
		If buff1ready() == True Then buffen()
		If Hex($mobhealthfull, 6) == "C6776A" Then ;mob health must be red and full (prevents ks)
			If Hex($bottrap, 6) <> "A780FD" And Hex($bottrap2, 6) <> "A780FD" And Hex($bottrap3, 6) <> "A780FD"  And Hex($bottrap4, 6) <> "A780FD" And Hex($bottrap5, 6) <> "A780FD" Then
				attack()
				selfheal()
				scroll()
				restoration()
			Else
				tabben()
				$drehung = $drehung + 1
				If $drehung > 2 Then
					turncamera()
					$drehung = 0
					$moven = $moven + 1
				EndIf
				If $moven > 5 Then
					move()
					$moven = 0
				EndIf
			EndIf
		Else
			tabben()
			$drehung = $drehung + 1
			If $drehung > 2 Then
				turncamera()
				$drehung = 0
				$moven = $moven + 1
			EndIf
			If $moven > 5 Then
				move()
				$moven = 0
			EndIf
		EndIf
		if Hex($health2, 6) <> "9FBA68" Then; if your pet is below half hp
			MouseClick( "left", 114, 117, 1 ) 
			Send("8")
			sleep( $sleepheal )
		EndIf			
	WEnd
EndFunc   ;==>combo

Func kson() ;kson bot loop
	SendKeepActive("Rappelz")	;Rappelz always in foreground
	Opt("PixelCoordMode", 2)	;pixel directly read from client
	Opt("MouseCoordMode", 2)	;mouse only moves in client
	While $funktionan = True
		ifdisconnect()
		quitifhplow()
		If Hex($mobhealthempty, 6) == "C8A78A" Then ; if mob is not dead yet
			If Hex($bottrap, 6) <> "A780FD" And Hex($bottrap2, 6) <> "A780FD" And Hex($bottrap3, 6) <> "A780FD"  And Hex($bottrap4, 6) <> "A780FD" And Hex($bottrap5, 6) <> "A780FD" Then
				attack()
				selfheal()
				restoration()
			Else
				ifdisconnect()
				quitifhplow()
				tabben()
				$drehung = $drehung + 1
				If $drehung > 2 Then
					turncamera()
					$drehung = 0
					$moven = $moven + 1
				EndIf
				If $moven > 5 Then
					move()
					$moven = 0
				EndIf
			EndIf
		Else
			ifdisconnect()
			quitifhplow()
			selfheal()
			tabben()
			readcolor()
			If Hex($mobhealthempty, 6) <> "C8A78A" Then
				combo()
			EndIf
			$drehung = $drehung + 1
			If $drehung > 2 Then
				turncamera()
				$drehung = 0
				$moven = $moven + 1
			EndIf
			If $moven > 5 Then
				move()
				$moven = 0
			EndIf
		EndIf
		if Hex($health2, 6) <> "9FBA68" Then; if your pet is below half hp
			MouseClick( "left", 114, 117, 1 ) 
			Send("8")
			sleep( $sleepheal )
		EndIf			
	WEnd
EndFunc   ;==>kson

Func pause()
	$funktionan = False
	Sleep(10)
EndFunc   ;==>pause

Func ende()
	Exit
EndFunc   ;==>ende

While 1
	Sleep(50)
WEnd
bedarf halt zeit sich das anzugucken. bei mir gibts ne breeder und priest-erkennung. kannst aber alles mit $character löschen. das script ist aber wesentlich erweitert. du hast relog-funktionen, logs mit kill-anzahl usw.
dauert aber sicher ne weile bis du dich da reingefunden hast. weiß also nich, obs für dich sinnvoll wäre
03/28/2010 21:54 Sophocless#194
wesentlich ist ja untertrieben, das ja weit weit modifiziert ... xD najo... ich werds mir mal "aneignen".... =)

und nochma vielen vielen dank =)
03/28/2010 22:49 schmuselord1#195
is aber noch längst nich gut. wenn du willst, kann ich ja für dich ab und zu mal veränderungen updaten
Page 13 of 16 « First 31112 13 1415 Last »