Public paste
Undefined
By: Guest | Date: Nov 20 2009 20:16 | Format: None | Expires: never | Size: 5.52 KB | Hits: 794

  1. hotkeyset('{esc}', 'exit1')
  2.  
  3. func exit1()
  4.         Exit
  5. EndFunc
  6.  
  7. sleep (2000)
  8. While 1
  9.    $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
  10.    If IsArray($Pixel2) = True Then
  11.          MouseMove($Pixel2[0], $Pixel2[1], 1)
  12.          MouseClick("left")
  13.          MouseClick("left")
  14.          Sleep (44000)
  15.          MouseClick("left" ,800,500)
  16.      EndIf
  17.  
  18.     Sleep (2000)
  19.      MouseClick("left",750,230) ;west also runter
  20.      Sleep (1000)
  21.    $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
  22.    If IsArray($Pixel2) = True Then
  23.          MouseMove($Pixel2[0], $Pixel2[1], 1)
  24.          MouseClick("left")
  25.          MouseClick("left")
  26.          Sleep (44000)
  27.          MouseClick("left" ,800,500)
  28.      EndIf
  29.      Sleep (2000)
  30.       MouseClick("left", 1200,680) ;westlicher scroll down
  31.       MouseClick("left")
  32.       MouseClick("left")
  33.       MouseClick("left")
  34.       MouseClick("left")
  35.       MouseClick("left")
  36.       MouseClick("left")
  37.       MouseClick("left")
  38.       MouseClick("left")
  39.       MouseClick("left")
  40.       MouseClick("left")
  41.       Sleep (2000)
  42.    $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
  43.    If IsArray($Pixel2) = True Then
  44.          MouseMove($Pixel2[0], $Pixel2[1], 1)
  45.          MouseClick("left")
  46.          MouseClick("left")
  47.          Sleep (44000)
  48.          MouseClick("left",800,500)
  49.      EndIf
  50.      Sleep (2000)
  51.      MouseClick("left",800,250) ;sόd also runter scrollen
  52.      Sleep (1000)
  53.      $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
  54.    If IsArray($Pixel2) = True Then
  55.          MouseMove($Pixel2[0], $Pixel2[1], 1)
  56.          MouseClick("left")
  57.          MouseClick("left")
  58.          Sleep (44000)
  59.          MouseClick("left",800,500)
  60.      EndIf
  61.      Sleep (2000)
  62.       MouseClick("left", 1200,680) ;suedlich scroll down
  63.       MouseClick("left")
  64.       MouseClick("left")
  65.       MouseClick("left")
  66.       MouseClick("left")
  67.       MouseClick("left")
  68.       MouseClick("left")
  69.       MouseClick("left")
  70.       MouseClick("left")
  71.       MouseClick("left")
  72.       MouseClick("left")
  73.    Sleep (1000)
  74.    $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
  75.    If IsArray($Pixel2) = True Then
  76.          MouseMove($Pixel2[0], $Pixel2[1], 1)
  77.          MouseClick("left")
  78.          MouseClick("left")
  79.          Sleep (44000)
  80.          MouseClick("left",800,500)
  81.      EndIf
  82.      Sleep (2000)
  83.      MouseClick("left",800,215) ;Nord oben
  84.      Sleep (1000)
  85.      $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
  86.    If IsArray($Pixel2) = True Then
  87.          MouseMove($Pixel2[0], $Pixel2[1], 1)
  88.          MouseClick("left")
  89.          MouseClick("left")
  90.          Sleep (44000)
  91.          MouseClick("left",800,500)
  92.      EndIf
  93.      Sleep (2000)
  94.       MouseClick("left", 1200,280) ;nord scroll up
  95.       MouseClick("left")
  96.       MouseClick("left")
  97.       MouseClick("left")
  98.       MouseClick("left")
  99.       MouseClick("left")
  100.       MouseClick("left")
  101.       MouseClick("left")
  102.       MouseClick("left")
  103.       MouseClick("left")
  104.       MouseClick("left")
  105.      Sleep (1000)
  106.    $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
  107.    If IsArray($Pixel2) = True Then
  108.          MouseMove($Pixel2[0], $Pixel2[1], 1)
  109.          MouseClick("left")
  110.          MouseClick("left")
  111.          Sleep (44000)
  112.          MouseClick("left",800,500)
  113.      EndIf
  114.      Sleep (2000)
  115.      MouseClick("left",840,230) ;Ost oben
  116.      Sleep (1000)
  117.    $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
  118.    If IsArray($Pixel2) = True Then
  119.          MouseMove($Pixel2[0], $Pixel2[1], 1)
  120.          MouseClick("left")
  121.          MouseClick("left")
  122.          Sleep (44000)
  123.          MouseClick("left",800,500)
  124.      EndIf
  125.      sleep (2000)
  126.       MouseClick("left", 1200,280) ;osten scroll up
  127.       MouseClick("left")
  128.       MouseClick("left")
  129.       MouseClick("left")
  130.       MouseClick("left")
  131.       MouseClick("left")
  132.       MouseClick("left")
  133.       MouseClick("left")
  134.       MouseClick("left")
  135.       MouseClick("left")
  136.       MouseClick("left")
  137.      Sleep (1000)
  138.      $pixel2 = PixelSearch( 328, 253, 1074, 591, 0x76AAAF, 0, 1 )
  139.    If IsArray($Pixel2) = True Then
  140.          MouseMove($Pixel2[0], $Pixel2[1], 1)
  141.          MouseClick("left")
  142.          MouseClick("left")
  143.          Sleep (44000)
  144.          MouseClick("left",800,500)
  145.      EndIf
  146.      sleep (2000)
  147. WEnd
  148. ;--------------------------------------------------------------------------------
  149. Func Sleep2($44000)
  150.     AdlibEnable("Suchen", 200)
  151.      For $i=1 To 2000/200
  152.         Sleep(199);Da die suchenfunktion auch etwas zeit braucht
  153.     Next
  154.     AdlibDisable()
  155. EndFunc
  156.  
  157. Func Suchen()
  158.      $pixel2 = PixelSearch( 328, 253, 1024, 591, 0x76AAAF, 0, 1) ; Gebiet und Farbe des zu sammelnden Objektes
  159.         If IsArray($Pixel2) = True Then
  160.         $M1 = PixelSearch($pixel2[0]-400,$pixel2[1]-400,$pixel2[0]+400,$pixel2[1]+400, 0x625549, 5) ; Farbe des monnsters beim sammeln d 1.Monsters
  161.         $M2 = PixelSearch($pixel2[0]-400,$pixel2[1]-400,$pixel2[0]+400,$pixel2[1]+400, 0x876D58, 5) ; Farbe des monsters beim sammeln 2.Monsters
  162.         $M3 = PixelSearch($pixel2[0]-400,$pixel2[1]-400,$pixel2[0]+400,$pixel2[1]+400, 0x5C4E25, 5) ; Farbe des monsters beim sammeln  3.Monsters
  163.         If IsArray($M1) = True Then
  164.             MouseClick("left",800,500) ; Ort des sammeln abbrechen Links
  165.         ElseIf IsArray($M2) = True Then
  166.             MouseClick("left",800,500) ; Ort des sammeln abbrechen Links
  167.         ElseIf IsArray($M3) = True Then
  168.             MouseClick("left",800,500) ; Ort des sammeln abbrechen Links
  169.         EndIf
  170.         EndIf
  171. EndFunc