elite*gold: 0
Join Date: Apr 2008
Posts: 24
Received Thanks: 33
|
gui
ok nee status box fuer euch ....
$Form1 = GUICreate("GUI", 210, 800, 1190, 0)
GUISetIcon("C:\136.ico")
$Label1 = GUICtrlCreateLabel("Farm Bot:", 10, 20, 200, 15)
; HP des Players--------------------------------------------------------
$Label2 = GUICtrlCreateLabel("------------------------------------------", 10, 40, 200, 10)
$Label3 = GUICtrlCreateLabel("Player HP:", 10, 60, 70, 15)
$Label4 = GUICtrlCreateLabel("no Value", 70, 60, 70, 15)
$Label5 = GUICtrlCreateLabel("Player MP:", 10, 80, 70, 15)
$Label6 = GUICtrlCreateLabel("no Value", 70, 80, 70, 15)
$Label7 = GUICtrlCreateLabel("Pet1 HP:", 10, 100, 70, 15)
$Label8 = GUICtrlCreateLabel("no Value", 70, 100, 70, 15)
; HP des Mobs-----------------------------------------------------------
$Label9 = GUICtrlCreateLabel("------------------------------------------", 10, 120, 200, 10)
$Label10 = GUICtrlCreateLabel("Mob HP:", 10, 140, 70, 15)
$Label11 = GUICtrlCreateLabel("no Value", 70, 140, 70, 15)
; System-----------------------------------------------------------
[...]
;Finden der HP-Leiste des Charakterscreens-----------------------------------
$coord1 = PixelSearch( 6, 30, 215, 115, 0x00FF00, 120) ;Erstes Gruen
If PixelSearch( 6, 30, 215, 115, 0x00FF00, 120) = 1 Then
;ToolTip ("Kann HP Start nicht finden!", 1200,350)
Else
;ToolTip ("HP Start at:" & $coord1[0] & "," & $coord1[1], 1200,350)
EndIf
$coord2 = PixelSearch( $coord1[0], $coord1[1], 220, $coord1[1],0x000000 , 120) ;Erstes Schwarz
If PixelSearch( $coord1[0], $coord1[1], 220, $coord1[1],0x000000 , 120) = 1 Then
;ToolTip ("Kann HP Ende nicht finden!", 1200,350)
Else
;ToolTip ("HP Ende at:" & $coord2[0] & "," & $coord2[1], 1200,350)
EndIf
;Finden der HP-Leiste des Charakterscreens-----------------------------------
;Finden der MP-Leiste des Charakterscreens-----------------------------------
$coord3 = PixelSearch( 6, 30, 215, 115, 0x0000FF, 120) ;Erstes Blau
If PixelSearch( 6, 30, 215, 115, 0x0000FF, 120) = 1 Then
;ToolTip ("Kann HP Start nicht finden!", 1200,350)
Else
;ToolTip ("HP Start at:" & $coord3[0] & "," & $coord3[1], 1200,350)
EndIf
$coord4 = PixelSearch( $coord3[0], $coord3[1], 220, $coord3[1],0x000000 , 120) ;Erstes Schwarz
If PixelSearch( $coord3[0], $coord3[1], 220, $coord3[1],0x000000 , 120) = 1 Then
;ToolTip ("Kann HP Ende nicht finden!", 1200,350)
Else
;ToolTip ("HP Ende at:" & $coord4[0] & "," & $coord4[1], 1200,350)
EndIf
;Finden der MP-Leiste des Charakterscreens-----------------------------------
;Finden der HP-Leiste des 1.Pets----------------------------------------------
$coord5 = PixelSearch(6, 140, 215, 162, 0x00FF00, 120) ;Erstes Gruen
If PixelSearch(6, 140, 215, 162, 0x00FF00, 120) = 1 Then
;ToolTip ("Kann HP Start nicht finden!", 1200,350)
Else
;ToolTip ("HP Start at:" & $coord5[0] & "," & $coord5[1], 1200,350)
EndIf
$coord6 = PixelSearch($coord5[0], $coord5[1], 220, $coord5[1],0x000000 , 120) ;Erstes Schwarz
If PixelSearch( $coord5[0], $coord5[1], 220, $coord5[1],0x000000 , 120) = 1 Then
;ToolTip ("Kann HP Ende nicht finden!", 1200,350)
Else
;ToolTip ("HP Ende at:" & $coord6[0] & "," & $coord6[1], 1200,350)
EndIf
;Finden der HP-Leiste des 1.Pets---------------------------------------------
;Finden der HP-Leiste des Mobcreens------------------------------------------
$coord7 = PixelSearch(($Rsize[2]-545), 30, ($Rsize[2]-335), 70, 0xFF0000, 120) ;Erstes Rot
If PixelSearch(($Rsize[2]-545), 30, ($Rsize[2]-335), 70, 0xFF0000, 120) = 1 Then
;ToolTip ("Kann HP Start nicht finden!", 1200,350)
Else
;ToolTip ("HP Start at:" & $coord7[0] & "," & $coord7[1], 1200,350)
EndIf
$coord8 = PixelSearch( $coord7[0], $coord7[1], ($coord7[0]+220), $coord7[1],0x000000 , 120) ;Erstes Schwarz
If PixelSearch( $coord7[0], $coord7[1], ($coord7[0]+220), $coord7[1],0x000000 , 120) = 1 Then
;ToolTip ("Kann HP Ende nicht finden!", 1200,350)
Else
;ToolTip ("HP Ende at:" & $coord8[0] & "," & $coord8[1], 1200,350)
EndIf
;Finden der HP-Leiste des Mobcreens------------------------------------------
[...]
;Initalisierung von Abfragen und Funktionen
;================================================= ================================================== ================================================== =========================
;Abfragen der HP des Charakters----------------------------------------------
Func _GetPlayerHP()
$coord10 = PixelSearch( $coord1[0], $coord1[1], 220, $coord1[1], 0x000000, 120) ;Erstes Schwarz
If PixelSearch( $coord1[0], $coord1[1], 220, $coord1[1], 0x000000, 120) = 1 Then
;ToolTip ("Kann HP Ende nicht finden!", 1200,350)
$PHprozent = -1
Else
$PHprozent = Round(($coord10[0]-$coord1[0])/($coord2[0]-$coord1[0])*100)
;ToolTip ("Player HP: "& $PHprozent, 1200,350)
EndIf
GUICtrlSetData($Label4, $PHprozent)
Return $PHprozent
EndFunc
;Abfragen der HP des Charakters----------------------------------------------
;Abfragen der MP des Charakters----------------------------------------------
Func _GetPlayerMP()
$coord11 = PixelSearch( $coord3[0], $coord3[1], 220, $coord3[1], 0x000000, 120) ;Erstes Schwarz
If PixelSearch( $coord3[0], $coord3[1], 220, $coord3[1], 0x000000, 120) = 1 Then
;ToolTip ("Kann HP Ende nicht finden!", 1200,350)
$PMprozent = -1
Else
$PMprozent = Round(($coord11[0]-$coord3[0])/($coord4[0]-$coord3[0])*100)
;ToolTip ("Player HP: "& $PMprozent, 1200,350)
EndIf
GUICtrlSetData($Label6, $PMprozent)
Return $PMprozent
EndFunc
;Abfragen der MP des Charakters----------------------------------------------
;Abfragen der HP des Pets----------------------------------------------------
Func _GetPetHP()
$coord12 = PixelSearch($coord5[0], $coord5[1], 220, $coord5[1],0x000000 , 120) ;Erstes Schwarz
If PixelSearch($coord5[0], $coord5[1], 220, $coord5[1],0x000000 , 120) = 1 Then
;ToolTip ("Kann HP Ende nicht finden!", 1200,350)
$PHprozent = -1
Else
$PHprozent = Round(($coord12[0]-$coord5[0])/($coord6[0]-$coord5[0])*100)
;ToolTip ("Player HP: "& $PHprozent, 1200,350)
EndIf
GUICtrlSetData($Label8, $PHprozent)
Return $PHprozent
EndFunc
;Abfragen der HP des Pets----------------------------------------------------
;Abfragen der HP des Mobs----------------------------------------------------
Func _GetMobHP()
$coord13 = PixelSearch( $coord7[0], $coord7[1], ($coord7[0]+220), $coord7[1],0x000000 , 120) ;Erstes Schwarz
If PixelSearch( $coord7[0], $coord7[1], ($coord7[0]+220), $coord7[1],0x000000 , 120) = 1 Then
;ToolTip ("Kann HP Ende nicht finden!", 1200,350)
$MHprozent = -1
Else
$MHprozent = Round(($coord13[0]-$coord7[0])/($coord8[0]-$coord7[0])*100)
;ToolTip ($MHprozent, 1200,350)
EndIf
GUICtrlSetData($Label11, $MHprozent)
Return $MHprozent
EndFunc
;Abfragen der HP des Mobs----------------------------------------------------
[...]
|