- hotkeyset('{esc}', 'exit1')
- func exit1()
- Exit
- EndFunc
- sleep (2000)
- While 1
- $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
- If IsArray($Pixel2) = True Then
- MouseMove($Pixel2[0], $Pixel2[1], 1)
- MouseClick("left")
- MouseClick("left")
- Sleep (44000)
- MouseClick("left" ,800,500)
- EndIf
- Sleep (2000)
- MouseClick("left",750,230) ;west also runter
- Sleep (1000)
- $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
- If IsArray($Pixel2) = True Then
- MouseMove($Pixel2[0], $Pixel2[1], 1)
- MouseClick("left")
- MouseClick("left")
- Sleep (44000)
- MouseClick("left" ,800,500)
- EndIf
- Sleep (2000)
- MouseClick("left", 1200,680) ;westlicher scroll down
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- Sleep (2000)
- $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
- If IsArray($Pixel2) = True Then
- MouseMove($Pixel2[0], $Pixel2[1], 1)
- MouseClick("left")
- MouseClick("left")
- Sleep (44000)
- MouseClick("left",800,500)
- EndIf
- Sleep (2000)
- MouseClick("left",800,250) ;süd also runter scrollen
- Sleep (1000)
- $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
- If IsArray($Pixel2) = True Then
- MouseMove($Pixel2[0], $Pixel2[1], 1)
- MouseClick("left")
- MouseClick("left")
- Sleep (44000)
- MouseClick("left",800,500)
- EndIf
- Sleep (2000)
- MouseClick("left", 1200,680) ;suedlich scroll down
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- Sleep (1000)
- $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
- If IsArray($Pixel2) = True Then
- MouseMove($Pixel2[0], $Pixel2[1], 1)
- MouseClick("left")
- MouseClick("left")
- Sleep (44000)
- MouseClick("left",800,500)
- EndIf
- Sleep (2000)
- MouseClick("left",800,215) ;Nord oben
- Sleep (1000)
- $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
- If IsArray($Pixel2) = True Then
- MouseMove($Pixel2[0], $Pixel2[1], 1)
- MouseClick("left")
- MouseClick("left")
- Sleep (44000)
- MouseClick("left",800,500)
- EndIf
- Sleep (2000)
- MouseClick("left", 1200,280) ;nord scroll up
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- Sleep (1000)
- $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
- If IsArray($Pixel2) = True Then
- MouseMove($Pixel2[0], $Pixel2[1], 1)
- MouseClick("left")
- MouseClick("left")
- Sleep (44000)
- MouseClick("left",800,500)
- EndIf
- Sleep (2000)
- MouseClick("left",840,230) ;Ost oben
- Sleep (1000)
- $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
- If IsArray($Pixel2) = True Then
- MouseMove($Pixel2[0], $Pixel2[1], 1)
- MouseClick("left")
- MouseClick("left")
- Sleep (44000)
- MouseClick("left",800,500)
- EndIf
- sleep (2000)
- MouseClick("left", 1200,280) ;osten scroll up
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- MouseClick("left")
- Sleep (1000)
- $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
- If IsArray($Pixel2) = True Then
- MouseMove($Pixel2[0], $Pixel2[1], 1)
- MouseClick("left")
- MouseClick("left")
- Sleep (44000)
- MouseClick("left",800,500)
- EndIf
- sleep (2000)
- WEnd
- ;--------------------------------------------------------------------------------
- Func Sleep2($44000)
- AdlibEnable("Suchen", 200)
- For $i=1 To 2000/200
- Sleep(199);Da die suchenfunktion auch etwas zeit braucht
- Next
- AdlibDisable()
- EndFunc
- Func Suchen()
- $pixel2 = PixelSearch( 328, 253, 1024, 591, 0x76AAAF, 0, 1) ; Gebiet und Farbe des zu sammelnden Objektes
- If IsArray($Pixel2) = True Then
- $M1 = PixelSearch($pixel2[0]-400,$pixel2[1]-400,$pixel2[0]+400,$pixel2[1]+400, 0x625549, 5) ; Farbe des monnsters beim sammeln d 1.Monsters
- $M2 = PixelSearch($pixel2[0]-400,$pixel2[1]-400,$pixel2[0]+400,$pixel2[1]+400, 0x876D58, 5) ; Farbe des monsters beim sammeln 2.Monsters
- $M3 = PixelSearch($pixel2[0]-400,$pixel2[1]-400,$pixel2[0]+400,$pixel2[1]+400, 0x5C4E25, 5) ; Farbe des monsters beim sammeln 3.Monsters
- If IsArray($M1) = True Then
- MouseClick("left",800,500) ; Ort des sammeln abbrechen Links
- ElseIf IsArray($M2) = True Then
- MouseClick("left",800,500) ; Ort des sammeln abbrechen Links
- ElseIf IsArray($M3) = True Then
- MouseClick("left",800,500) ; Ort des sammeln abbrechen Links
- EndIf
- EndIf
- EndFunc
Undefined
By: Guest | Date: Nov 20 2009 20:16 | Format: None | Expires: never | Size: 5.52 KB | Hits: 869
Latest pastes
2 days ago
3 days ago
3 days ago
4 days ago
5 days ago