|
You last visited: Today at 13:10
Advertisement
Farmbot - For 64 Bit OS
Discussion on Farmbot - For 64 Bit OS within the Rappelz forum part of the MMORPGs category.
03/07/2010, 10:01
|
#181
|
elite*gold: 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.
|
|
|
|
03/07/2010, 12:33
|
#182
|
elite*gold: 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^^
|
|
|
|
|
03/07/2010, 13:26
|
#183
|
elite*gold: 5
Join Date: Oct 2008
Posts: 1,363
Received Thanks: 236
|
Ne nicht mit 32 bit und vista sucks xD
|
|
|
|
|
03/07/2010, 14:01
|
#184
|
elite*gold: 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
|
|
|
|
|
03/07/2010, 20:38
|
#185
|
elite*gold: 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 ^^
|
|
|
|
|
03/07/2010, 23:34
|
#186
|
elite*gold: 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
|
|
|
|
|
03/12/2010, 04:53
|
#187
|
elite*gold: 0
Join Date: Mar 2010
Posts: 2
Received Thanks: 0
|
its not working now 
|
|
|
|
|
03/12/2010, 10:14
|
#188
|
elite*gold: 0
Join Date: Nov 2008
Posts: 455
Received Thanks: 85
|
it does :P
|
|
|
|
|
03/16/2010, 06:29
|
#189
|
elite*gold: 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
|
|
|
|
|
03/28/2010, 13:33
|
#190
|
elite*gold: 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. 
|
|
|
|
|
03/28/2010, 14:19
|
#191
|
elite*gold: 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 ^^
|
|
|
|
|
03/28/2010, 15:22
|
#192
|
elite*gold: 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 
|
|
|
|
|
03/28/2010, 21:02
|
#193
|
elite*gold: 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
|
|
|
|
|
03/28/2010, 21:54
|
#194
|
elite*gold: 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 =)
|
|
|
|
|
03/28/2010, 22:49
|
#195
|
elite*gold: 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
|
|
|
|
 |
|
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 +1. The time now is 13:13.
|
|
