Register for your free account! | Forgot your password?

Go Back   elitepvpers › MMORPGs › Rappelz
Farmbot - For 64 Bit OS Farmbot - For 64 Bit OS
You last visited: Today at 21:50

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

Farmbot - For 64 Bit OS

Discussion on Farmbot - For 64 Bit OS within the Rappelz forum part of the MMORPGs category.

Reply
Page 13 of 16 « First 31112 13 1415 Last »
 
Old   #181
 
elite*gold: 0
The Black Market: 2/0/0
Join Date: Nov 2008
Posts: 455
Received Thanks: 85
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.
schmuselord1 is offline  
Old   #182
 
neoangel11's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Nov 2008
Posts: 162
Received Thanks: 17
dann mall ne andere frage gehts überhaupt mit vista 32? bit weil ich habs ja versucht aber er hat nie ingame was gemacht^^
neoangel11 is offline  
Old   #183
 
KentuckyFC's Avatar
 
elite*gold: 5
The Black Market: 0/0/0
Join Date: Oct 2008
Posts: 1,363
Received Thanks: 236
Ne nicht mit 32 bit und vista sucks xD
KentuckyFC is offline  
Old   #184
 
neoangel11's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Nov 2008
Posts: 162
Received Thanks: 17
wird den vorraussichtlich über haupt ein richtiger bot kommen? der auf alle systeme leuft^^
und das vista scheisse is weiss ich auch xD
neoangel11 is offline  
Old   #185
 
elite*gold: 0
The Black Market: 2/0/0
Join Date: Nov 2008
Posts: 455
Received Thanks: 85
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 ^^
schmuselord1 is offline  
Old   #186
 
neoangel11's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Nov 2008
Posts: 162
Received Thanks: 17
stimmt verliere auch schon wieder die lust am rappelz^^ aber weiss net was ich sonst zoggen soll xD
neoangel11 is offline  
Old   #187
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Mar 2010
Posts: 2
Received Thanks: 0
its not working now
rugal03 is offline  
Old   #188
 
elite*gold: 0
The Black Market: 2/0/0
Join Date: Nov 2008
Posts: 455
Received Thanks: 85
it does :P
schmuselord1 is offline  
Old   #189
 
elite*gold: 0
The Black Market: 2/0/0
Join Date: Nov 2008
Posts: 455
Received Thanks: 85
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
schmuselord1 is offline  
Old   #190
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Feb 2007
Posts: 65
Received Thanks: 105
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.
Sophocless is offline  
Old   #191
 
elite*gold: 0
The Black Market: 2/0/0
Join Date: Nov 2008
Posts: 455
Received Thanks: 85
was hastn für ne bildschirmauflösung? wenn du 1600x900 machen kannst für rappelz, kann ich dir auch mein script geben ^^
schmuselord1 is offline  
Old   #192
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Feb 2007
Posts: 65
Received Thanks: 105
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
Sophocless is offline  
Old   #193
 
elite*gold: 0
The Black Market: 2/0/0
Join Date: Nov 2008
Posts: 455
Received Thanks: 85
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
schmuselord1 is offline  
Thanks
1 User
Old   #194
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Feb 2007
Posts: 65
Received Thanks: 105
wesentlich ist ja untertrieben, das ja weit weit modifiziert ... xD najo... ich werds mir mal "aneignen".... =)

und nochma vielen vielen dank =)
Sophocless is offline  
Old   #195
 
elite*gold: 0
The Black Market: 2/0/0
Join Date: Nov 2008
Posts: 455
Received Thanks: 85
is aber noch längst nich gut. wenn du willst, kann ich ja für dich ab und zu mal veränderungen updaten
schmuselord1 is offline  
Reply
Page 13 of 16 « First 31112 13 1415 Last »

« Taking unwanted pets on any server | Bugusing: Was ist noch aktuell? + Ein Bug von mir^^ »

Similar Threads Similar Threads
Farmbot
04/08/2010 - Guild Wars - 8 Replies
Veraltet! Bitte keine Antworten mehr!
Farmbot
03/04/2010 - Flyff - 3 Replies
Hallo Community, ich habe nach Suchen hier nichts gefunden, aber meine Frage erstreckt sich über das oben genannte Thema, dem Farmbot. Gibt es sowas für dFlyff, also ich stell meinen Char Nachts iwo ab und lass ihn leveln? Ich habe jetzt hier im Forum nichts explizites gefunden und frage mich OB es überhaupt sowas gibt wegen dem GG. Ich habe damals bei ROSE irgendeinen Farmbot benutzt und würde wieder gernen einen benutzen. mfg
Farmbot?
09/06/2009 - WoW Bots - 3 Replies
Da Gatherbuddy nun ja detected ist, wollte ich fragen ob es noch irgend einen Farmbot gibt der funktioniert? Falls jemand einen eigenen hat und ihn verkaufen will -> PN
Farmbot
07/04/2009 - AutoIt - 8 Replies
Hi, bin gerade dabei einen farmbot für metin2 zu schreiben der die monster von selbst anklickt. Soweit bin ich schon: Opt('PixelCoordMode', 2) Opt('MouseCoordMode', 2) HotKeySet ( "{Numpad1}" , "start" ) HotKeySet ( "{Numpad3}" , "Ende" )



All times are GMT +2. The time now is 21:52.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.