Ja ok... aber in meiner Aufgabe hatte ich um nen Tip gebeten und nichts bekommen...hab ja echt schon viel versucht ^^
Quote:
"koordinaten: " & "x= " & $Xerg & " ; " & "y= " & $Yerg & @crlf
#cs
OK... Aufgabenschwere: 3-4 erstelle ein script, mit dem du erkennst welcher gegner anvisiert wurde
(in diesem falle auf der insel der namenlosen)
sollte das ziel ein bestimmter gegner sein (60ger Rüstungsziel), dann greife an
#ce
Sleep(10000)
$left=527
$top=48
$right=739
$bottom=54
$60er= 998126992
$100er= 462302526
$Umstehend= 3474730595
$IdN= 3355453856
$IdB= 3494895295
HotKeySet("9","_attack")
HotKeySet("y","_end")
Func _activate()
WinWait("Guild Wars","")
If Not WinActive("Guild Wars","") Then WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")
EndFunc
Func _attack ()
_activate
If $60er = PixelChecksum($left, $top, $right, $bottom )
Then
Sleep(1000)
Send("{space}")
ElseIf
_check
EndIf
EndFunc
Func _check()
If $100er = PixelChecksum($left, $top, $right, $bottom )
Sleep(100)
MsgBox(0,"Gegner",$100er)
ElseIf
$Umstehend = PixelChecksum($left, $top, $right, $bottom )
Sleep(100)
MsgBox(0,"Gegner",$Umstehend)
ElseIf
$IdB = PixelChecksum($left, $top, $right, $bottom )
Sleep(100)
MsgBox(0,"Gegner",$IdB)
ElseIf
$IdN = PixelChecksum($left, $top, $right, $bottom )
Sleep(100)
MsgBox(0,"Gegner",$IdN)
Else
sleep(100)
MsgBox(0,"Gegner","unknown object")
EndFunc
Func _end()
Exit
EndFunc
If <expression> Then
statements
...
[ElseIf expression-n Then
[elseif statements ... ]]
...
[Else
[else statements]
...
EndIf
For $i = 0 to 10 step 1 _MemoryOpen(blablabla) Das ganze restliche zeug _MemoryClose($PID) Next
#cs
OK... Aufgabenschwere: 3-4 erstelle ein script, mit dem du erkennst welcher gegner anvisiert wurde
(in diesem falle auf der insel der namenlosen)
sollte das ziel ein bestimmter gegner sein (60ger Rüstungsziel), dann greife an
#ce
Sleep(10000)
$left=527
$top=48
$right=739
$bottom=54
$60er= 998126992
$100er= 462302526
$Umstehend= 3474730595
$IdN= 3355453856
$IdB= 3494895295
Call("_attack")
Func _attack()
Sleep(1000)
If $60er = PixelChecksum($left,$top,$right,$bottom) Then
Sleep(100)
Send("{space}")
EndIf
Call("_check")
EndFunc
Func _check()
If $100er =PixelChecksum($left,$top,$right,$bottom) Then
Sleep(100)
MsgBox(0,"Gegner","100er")
elseIf $Umstehend = PixelChecksum($left,$top,$right,$bottom) Then
Sleep(100)
MsgBox(0,"Gegner","Umstehend")
elseIf $IdB = PixelChecksum($left,$top,$right,$bottom) Then
Sleep(100)
MsgBox(0,"Gegner","IdB")
elseIf $IdN = PixelChecksum($left,$top,$right,$bottom) Then
Sleep(100)
MsgBox(0,"Gegner","IdN")
Else
Sleep(100)
MsgBox(0,"Gegner","unknown enemy")
EndIf
EndFunc
hallo() ; <-- das ist der funktions aufruf
func hallo()
msgbox(0,"Ah!","Hallo")
endfunc