Register for your free account! | Forgot your password?

Go Back   elitepvpers > MMORPGs > Rappelz
You last visited: Today at 06:01

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

Advertisement



Buff-BOT Assa "PROJEKT"

Discussion on Buff-BOT Assa "PROJEKT" within the Rappelz forum part of the MMORPGs category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Apr 2009
Posts: 42
Received Thanks: 2
Buff-BOT Assa "PROJEKT"

So da ich ständig das nachbuffen bei meinem Assa verpeile habe ich mir mal nen Bot gebastelt. Er ist weder fertig noch fehlerfrei. Wer sich aber an der Gestaltung aktiv beteiligen will ist gerne dazu eingeladen.

Code:
HotKeySet("{NUMPAD7}", "buffschleife") ;Taste zum Starten
HotKeySet("{NUMPAD8}", "pause") ;Taste für Pause
HotKeySet("{NUMPAD9}", "ende") ;Taste um den Bot zu beenden

Global $timerinit = TimerInit()
Global $funktionan = False
Global $timer
Global $cooldown[6]

$colldown[0] = 600500
$colldown[1] = 180500
$colldown[2] = 600500
$colldown[3] = 600500
$colldown[4] = 60500
$colldown[5] = 180500

Global $buffzuletzt[6]

$buffzuletzt[0] = 0
$buffzuletzt[1] = 0
$buffzuletzt[2] = 0
$buffzuletzt[3] = 0
$buffzuletzt[4] = 0
$buffzuletzt[5] = 0

Func aebuff()
    If ($timer - $buffzuletzt[0]) >= $cooldown[0] Then
        Return True
    EndIf
EndFunc

Func kbuff()
    If ($timer - $buffzuletzt[1]) >= $cooldown[1] Then
        Return True
    EndIf
EndFunc

Func speedpotbuff()
    If ($timer - $buffzuletzt[2]) >= $cooldown[2] Then
        Return True
    EndIf
EndFunc

Func attakspeedpotbuff()
    If ($timer - $buffzuletzt[3]) >= $cooldown[3] Then
        Return True
    EndIf
EndFunc

Func speedbuff()
    If ($timer - $buffzuletzt[4]) >= $cooldown[4] Then
        Return True
    EndIf
EndFunc

Func agrobuff()
    If ($timer - $buffzuletzt[5]) >= $cooldown[5] Then
        Return True
    EndIf
EndFunc

Func buffschleife()

$funktionan = True

While $funktionan = True

	If aebuff() = True Then
		Send("{1}")
          	Sleep(	50)
          	$buffzuletzt[0] = $timer
          EndIf 

	If kbuff() = True Then
		Send("{2}")
          	Sleep(	50)
          	$buffzuletzt[1] = $timer
          EndIf 

	If speedpotbuff() = True Then
		Send("{3}")
          	Sleep(	50)
          	$buffzuletzt[2] = $timer
          EndIf 

	If speedbuff()] = True Then
		Send("{4}")
          	Sleep(	50)
          	$buffzuletzt[3] = $timer
          EndIf 

	If agrobuff() = True Then
		Send("{5}")
          	Sleep(	50)
          	$buffzuletzt[4] = $timer
          EndIf 

	If attakspeedpotbuff() = True Then
		Send("{6}")
          	Sleep(	50)
          	$buffzuletzt[5] = $timer
          EndIf 
WEnd

EndFunc


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

Func ende()
    Exit
EndFunc
Gorwales is offline  
Reply


Similar Threads Similar Threads
Neues Metin2 P-Server Projekt Projekt "Aridia"
12/21/2009 - Metin2 Private Server - 29 Replies
Hallo liebe Elitepvper Fangemeinde Ich wende mich heute zu euch um euch etwas interessantes Mitzuteilen , vor nicht langer Zeit bin ich auf den Link von Aridia gestoßen und mir wurde schnell klar , dass dahinter eine nette Community steckt , ich habe meine Bewerbung geschrieben und abgeschickt nach etwa 10 Minuten bekam ich auch schon eine Nachricht , dass sie gerne ein persönliches Gespräch mit mir führen wollten , ich stimmte zu und nach etwa 20 Minuten langem Gerede war ich drinnen im...
Neues Metin2 P-Server Projekt Projekt "Aridia"
12/20/2009 - Metin2 Private Server - 7 Replies
Hallo liebe Elitepvper Fangemeinde Ich wende mich heute zu euch um euch etwas interessantes Mitzuteilen , vor nicht langer Zeit bin ich auf den Link von Aridia gestoßen und mir wurde schnell klar , dass dahinter eine nette Community steckt , ich habe meine Bewerbung geschrieben und abgeschickt nach etwa 10 Minuten bekam ich auch schon eine Nachricht , dass sie gerne ein persönliches Gespräch mit mir führen wollten , ich stimmte zu und nach etwa 20 Minuten langem Gerede war ich drinnen im...
Neues Metin2 P-Server Projekt Projekt "Aridia"
12/20/2009 - Metin2 Private Server - 0 Replies
Hallo liebe Elitepvper Fangemeinde Ich wende mich heute zu euch um euch etwas interessantes Mitzuteilen , vor nicht langer Zeit bin ich auf den Link von Aridia gestoßen und mir wurde schnell klar , dass dahinter eine nette Community steckt , ich habe meine Bewerbung geschrieben und abgeschickt nach etwa 10 Minuten bekam ich auch schon eine Nachricht , dass sie gerne ein persönliches Gespräch mit mir führen wollten , ich stimmte zu und nach etwa 20 Minuten langem Gerede war ich drinnen im...



All times are GMT +1. The time now is 06:04.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

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