Sammlung von Scriptfunktionen

Page 1 of 2 1 2
03/19/2008 13:59 Jacob_G#1
Hi da ich ja auf der suche für ein wayout von Zos Shivros-Kanal bin kam mir die Idee das man doch eine kleine Datenbank mit verschiedenen Scriptfunktionen/Teilen aufbauen könnte wo jeder seine Sachen reinstellen kann.
Sprache natürlich au3^^.
Z.B würde das so aussehen

Beschreibung~ Check Death für eigenen Char

~ Code

Was haltet ihr davon?^^
03/19/2008 14:57 Azunai#2
ich schreib das datenbank tool :P
ihr postet fleißig :D
03/19/2008 15:45 Jacob_G#3
Ok schonmal geregelt wer das Datenbanktool schreibt^^.
Was ich nur vergessen habe ist, wenn man z.B. die runfunction vom HFFF bot postet
es ein Problem gibt wenn die minimap anders aussieht wie bei dem Poster. Folge man müsste Bilder hochladen was allerdings dann schon recht viel Speicher verbrauchen würde.
Wenn jemand eine andere Lösung hat bitte posten^^.
03/19/2008 17:52 Ganf#4
oder man mache einfach folgendes:

If $ResX == 1280 And $ResY == 1024 Then
$blabla[0] = 100
$blabla[1] = 100
ElseIf $ResX == 1024 And $ResY == 768 Then
$blabla[0] = 80
$blabla[1] = 80
EndIf

.
.
.



xD

MFG
Ganf
03/20/2008 19:59 -Anthrax-#5
Dann lad ich hier mal bisschen Code ab, kann der Schreiber der DB, welche übrigens auch mit SQL kein prob sein sollte, da reinfriemeln kann ^^

Code:
;Loot Funktion
;Funktion: Sachen aufheben ;P
Func loot()
$a = Random(350, 450)
$b = Random(1500, 1800)
Sleep($a)
Send("o")
Sleep($a)
Send("{SPACE}")
Sleep($b)
EndFunc

;Prot-Funktion
;Für 55hp-Chars
Func prot()
$a= Random(2300, 2700) ;Castzeit der Skills
        ;je nach skillung 3 oder 4 prots
        ;Send("5")
        ;Sleep($a)
        Send("6")
        Sleep($a)
        Send("7 ")
        Sleep($a)
        Send("8")
        Sleep($a)
        ;Nach casten aller zauber falls vorhanden noch gesegnetes Siegel
        :send("4")
        ;Sleep($a)
       endfunc

;Hard mode-check-func
func hm()
    Dim $xa=random(858,875) ; falls Bot nicht in HM wechselt hier die Koordinaten des HM-Buttons abändern
    Dim $ya=random(64,82)
    Dim $colorhm= PixelSearch(850, 55, 885, 85, 7791247 ) 
if not @error Then 
    Dim $cx=random(750,1350)
        Sleep($cx)
    Else 
        MouseClick("left",$xa,$ya) ; HM wird angeklickt
        $cx=random(750,1350)
        Sleep($cx)
    EndIf
EndFunc


;Energiecheck
If pixelgetcolor  (649,642) <> 4159144 then ;x- und ycoords sind die position auf der Energieleiste, wird geprüft obs an dieser Stelle schon schwarz ist
blubb
03/20/2008 23:39 Term!nX#6
Advanced -> Misc Options -> embed media häkchen weg.
05/01/2008 23:18 blackWorkx#7
Kann mal jemand rein stellen nen fertigen code für pixelsearch // Gold Items auslesen und sowas... und wie ich die farbe raus lesen kann...besser wäre wenn jemand mal erklären könnte wie das alles genau funktioniert wie man was ausliest blublub....

Also ich habe jetzt ein script soweit erweitert für Thermallquellen das dieses die 2 te gruppe machen kann / soll. Nun ist halt das Problem das ich net weiß wie ich dem Script sagen soll wenn die Roten Punkte an der bestimmten stelle in der mini map da sind dann dort hin zu laufen.. und die knochen dinger dort zu töten... Und wenn nicht halt resign raus gehen.

und dann..

Orginal
Code:
;Hard mode-check-func
;Überprüft ob Hardmode gewählt ist
    func hm()
=random(750,1350)   
=random(858,875) ; falls Bot nicht in HM wechselt hier die Koordinaten des HM-Buttons abändern
    =random(64,82)
    = PixelSearch(850, 55, 885, 85, 7791247 ) 
    if not @error Then 
        =random(750,1350)
        Sleep()
        Else 
        MouseClick("left",,) ; HM wird angeklickt
        Sleep()
        EndIf
    EndFunc
Code:
func hm()
=random(750,1350)   
=random(782, 61) ; falls Bot nicht in HM wechselt hier die Koordinaten des HM-Buttons abändern
    =random(64,82)
    = PixelSearch(850, 55, 885, 85, 7791247 ) 
    if not @error Then 
		=random(782, 61)
 ;       =random(750,1350)
        Sleep(1000)
        Else 
        MouseClick("left",,) ; HM wird angeklickt
        Sleep(500)
        EndIf
    EndFunc
iwi zeigt der bei mir dort immer nur fehler an fehlt da iwi was?

/edit: aso bevor ich nochma posten muss.. frag ich gleich mit. xD

GUI: wenn ich im Interface von mir ein Bild / banner icon.. rein mache wird es zwar angezeigt wenn die gui fertig ist aber wenn ich das bild dann verschiebe oder alles auf einen anderen pc starte ist das bild wech... wie genau funktioniert das mit %windir%? damit das bild dann auch auf anderen pc´s in der gui angezeigt wird?
05/02/2008 02:21 -Anthrax-#8
âso, sry
ja da fehlt was ...die ganzen vars ;P
habs iwie verplant beim letzen mal abzuändern.....werds oben aktualisieren
Quote:
wie genau funktioniert das mit %windir%? damit das bild dann auch auf anderen pc´s in der gui angezeigt wird?
einfach bei dem $pic=GuiCtrlCreatePic(@Windir & "system32/bild.jpg") (statt dem "system32/bild.jpg" eben den relativen pfad zu dem bild von dem windows ordner aus) dazu muss es aber auch in der windir vorhanden sein ^^
legs doch einfach in einen unterordner in deinem bot, versteck diesen und 90% der user werden den ordner wohl eh nie zu gesicht bekommen wie bei meinem infinity ^^
aufruf dabei dann einfach mit @ScriptDir
05/02/2008 10:59 blackWorkx#9
danke :)
05/02/2008 18:14 blackWorkx#10
Ok,

habe noch ne frage xD...

Ich habe in meiner GUI einen Button der eine HowTo.txt file öffnen soll. Wie genau isn nun der code dafür damit der das öffnet? Habe das hier Probiert:

func howTo()
$file = FileOpen("HowTo.txt", 0)
FileClose ($file)
EndFunc

Doch leider passiert nachm klick aufn Button nix. Die Text file liegt auch in dem ordner in dem auch die bot.exe compiled ist...!

Wer helfen kann der solle helfen dankö :D
05/02/2008 18:25 xSharkoonX#11
vllt mit Run(@Scriptdir ,"\beispielordner\How to.txt")
05/02/2008 18:37 blackWorkx#12
nope da hängt sich das script sofort wieder auf ^^ da schmiert alles ab!^^
05/02/2008 18:40 xSharkoonX#13
xDDDD
05/02/2008 18:52 Azunai#14
worum gehts? xD
05/02/2008 19:08 MasteR GunneR#15
Du wirst es schon noch schaffen dir zwei Seiten durchzulesen.
Mag vielleicht erstmal viel klingen, aber du schaffst das schon, ich glaub an dich :>
Page 1 of 2 1 2