Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - Луций

Pages: 1 2 [3]
31
Использование / мой бот для аркейдж
« on: August 29, 2014, 05:23:04 PM »
Выкачал пару персов до 50го и забил на игру, может бот кому пригодятся, вот мои пара скриптов

первый сначала проверяет хп и ману
если чего то не хватает - пьет банки или хилится
затем проверяет есть ли цель
если есть начинает ее мочить попутно хиляясь
если цель вне досягаемости - прогоняет пару циклов и отменяет цель
если цели нет = начинает бежать вперед и искать цель, если цель не находит делает разворот на 170 примерно градусов и несется назад по новой (стоит то он на полянке с мобами)
если его убивают или он долго не может найти мобов - он портуется в деревню и по зацикленному маршруту идет на поляну
и самое главное - если из игры выкидывает - он запускает игру заново
 скрипты без комментариев и их два уже не помню в каком что, возможно кому помогут

Code: (clickermann) [Select]
check:
GETSCREEN
$hp = PXL(610,555)  // 3247186 1124919
$mp = PXL(500,570)   // 12275762   1124918
$target = PXL(710,555)  // 1908102
waitms(100)

if ($target = 1908102)
goto(kill)
else
goto(turn)
end_if

kill:
if ($hp = 1124919)
wait(1)
keypress(#v)
end_if
if ($z>2)
  waitms(111)
    KEYPRESS(#esc)
    waitms(111)
    KEYPRESS(#space)
end_if
wait(1)
keypress(#b)
waitms(333)
keypress(#1)
waitms(333)
keypress(#1)
waitms(333)
keypress(#1)
if ($hp = 1124919)
wait(1)
keypress(#2)
wait(1)
keypress(#3)
end_if
KEYPRESS(#f)
keypress(#5)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
wait(1)
keypress(#6)
waitms(111)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
keypress(#f)
$x=0
$z=$z+1
$i=0
goto(check)

turn:
KEYPRESS(#f) 

if ($mp = 1124918)
waitms(900)
keypress(#c)
waitms(111)
keypress(#j)
wait(9)
end_if
   
if ($hp = 1124919)
wait(1)
keypress(#v)
end_if

$z=0
$x=$x+1
keypress(#4)


if ($x>5)
KEYPRESS(#f)
KEYPRESS(#4)
keydown(#w)
wait(1)
keyup(#w)
$x=0
$u=$u+1
end_if

if ($u>5)
keydown(#d)
wait(2)
keyup(#d)
waitms(900)
$u=0
$i=$i+1
end_if

if ($i>4)
screenshot
wait(1800)
keydown(#w)
wait(1)
keyup(#w)
wait(1)
keypress(#u)
wait(20)
keydown(#d)
keypress(#n)
wait(2,5)
keyup(#d)
keydown(#w)
wait(15)
keyup(#w)
keydown(#a)
wait(1)
keyup(#a)
$i=0
end_if

if ($hp = 14611440)
wait(10)
  LCLICK(865,451)
wait(5)
LCLICK(123,752)
wait(5)
LCLICK(937,133)
wait(200)
LCLICK(640,550)
wait(20)
LCLICK(1155,90)
wait(20)
end_if
goto(check)
             
Code: (clickermann) [Select]
check:
GETSCREEN
$hp = PXL(610,555)  // 3247186 1124919
$mp = PXL(500,570)   // 12275762   1124918
$target = PXL(710,555)  // 1908102
waitms(100)

if ($target = 1908102)
goto(kill)
else
goto(turn)
end_if

kill:
if ($hp = 1124919)
wait(1)
keypress(#v)
end_if
if ($z>2)
  waitms(111)
    KEYPRESS(#esc)
    waitms(111)
    KEYPRESS(#space)
end_if
wait(1)
keypress(#b)
keydown(#s)
waitms(333)
keypress(#1)
waitms(333)
keypress(#1)
waitms(333)
keypress(#1)
keyup(#s)
if ($hp = 1124919)
wait(1)
keypress(#2)
wait(1)
keypress(#3)
end_if
KEYPRESS(#f)
keypress(#5)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
wait(1)
keypress(#6)
waitms(1)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
waitms(500)
keypress(#4)
keypress(#f)
$x=0
$z=$z+1
$i=0
goto(check)

turn:
KEYPRESS(#f) 

if ($mp = 1124918)
waitms(900)
keypress(#j)
waitms(112)
keypress(#c)
wait(9)
end_if

$z=0
$x=$x+1
keypress(#4)


if ($x>5)
KEYPRESS(#f)
KEYPRESS(#4)
keydown(#w)
wait(1)
keyup(#w)
$x=0
$u=$u+1
end_if

if ($i>4)
screenshot
wait(10)
keydown(#alt)
wait(1)
keypress(#f4)
end_if

if ($hp = 14611440)
wait(10)
  LCLICK(865,451)
wait(5)
LCLICK(123,752)
wait(5)
LCLICK(937,133)
wait(200)
LCLICK(640,550)
wait(20)
LCLICK(1155,90)
wait(20)
end_if

goto(check)
             

32
Использование / Бот для размещения обьявлений
« on: August 29, 2014, 05:12:28 PM »
Я написал скрипт для подачи обьявлений на одной доскет (без капчи), пока он умеет:

1  менятьсвой айпи через прокси (через тор)
2 создает новую временную почту
3 создает новый аккаунт и подтверждает письмо
4 правит данные аккаунта на совершенно рандомные - что бы избежать бана при реге
5 дает само обьявление, и сохраняет ссылку на него для потомков

еще он оповещает о текущих действиях всплывающими сообщениями и сохраняет скриншоты с ошибками и прочее

пока у меня затруднения:
1 как сделать звуковые оповещения? сделал файлы вав в папке саунды - не хочет воспроизводить
2 может где можно укоротить и оптимизировать?

даже не пытайтесь запускать скрипт у себя на компе - там привязка к ярлыкам и запущенным окнам, лучше помогите деньгами советами по моему кривожопому коду

Code: (clickermann) [Select]
begin:
$s=3
WNDSTATE(WNDFIND("Блокнот"), 0)   ///свернуть все окна
WNDSTATE(WNDFIND("Excel"), 0)
WNDSTATE(WNDFIND("tor"), 0)
WNDSTATE(WNDFIND("firefox"), 0)
SETKBLAYOUT (WNDFIND("tor"), 1033)
SETKBLAYOUT (WNDFIND("clickermann"), 1033)

SUB(c)
   WAITMS(100)
   keydown(#ctrl)
   WAITMS(100)
   keypress(#c)
   WAITMS(100)
   keyup(#ctrl)
   WAITMS(100)
END_SUB

SUB(v)
   WAITMS(100)
   keydown(#ctrl)
   WAITMS(100)
   keypress(#v)
   WAITMS(100)
   keyup(#ctrl)
   WAITMS(100)
END_SUB

//newmailbox
WNDSTATE(WNDFIND("tor"), 1)
WAITMS(500)
LCLICK(951,10)  // klik
LCLICK(90,38)    //  menu
WAITMS(500)
LCLICK(126,75)   // new id
wait(3)
//mailnew
HINTPOPUP ("цикл", $s)
LCLICK(500,23)  // 2498329
WAITMS(100)
LCLICK(500,23)  // 2498329
keypress(#f6)
WAITMS(500)
KEYSTRING("my10minutemail.com")
WAITMS(100)
keypress(#enter)
WAITMS(500)
FOR($i, $i < 10)
   GETSCREEN
   if(pxl(373,362)=3355443)
      move(440,500)
      ldown(430,500)
      WAITMS(100)
      move(860,500)
      WAITMS(500)
      lup(900,500)
      c()
      $i=10
   else
      WAIT(1)
      IF($i > 8)
         hintpopup("почты не будет")
         screenshot
         goto(begin)
      END_IF
   end_if
END_CYC
//slandonew
LCLICK(391,15)  // newtab
WAITMS(500)
KEYSTRING("ssl.slando.ua/account/register")
WAITMS(100)
keypress(#enter)
FOR($i, $i < 10)
   GETSCREEN
   IF_PICTURE_IN (200,90, 430,170, "slando.bmp")
      LCLICK(445,278)  // mail
      v()
      LCLICK(445,336)  // pass
      v()
      LCLICK(445,392)  // check
      v()
      LCLICK(443,527)  // box
      WAITMS(500)
      LCLICK(450,617)  // send
      $i = 10
   else
      wait(1)
      if($i > 8)
         hintpopup("сландо не грузит")
         screenshot
         goto(begin)
      end_if
   end_if
END_CYC
//savemail
LCLICK(199,423)  // klik
wait(1)
keypress(#home)
FOR($i, $i < 10)
   getscreen
   if(pxl((999,300)!15198207)
      WNDSTATE(WNDFIND("tor"), 0)
      WNDSTATE(WNDFIND("firefox"), 1)
      keydown(#home)
      v()
      WNDSTATE(WNDFIND("firefox"), 0)
      WNDSTATE(WNDFIND("tor"), 1)
      $i=10
   else
      wait(1)
      if($i > 8)
         hintpopup("айпи забанен")
         screenshot
         goto(begin)
      end_if
   end_if
end_cyc
//letter
LCLICK(250,15)  // tab1
FOR($i, $i < 60)
   keypress(34)
   wait(1)
   getscreen
   IF_PICTURE_IN (540,200, 800,500, "activ.bmp")
      lclick($_return1, $_return2)
      $i = 60
   else
      LCLICK(1201,576)  // mailclick
      wait(1)
      LCLICK(949,597)  // letterclick
      if($i>55)
         hintpopup("письма нет")
         screenshot
         goto(begin)
      end_if
   end_if
END_CYC
//settings
LCLICK(613,15)  //altw
WAITMS(500)
LCLICK(387,14)  // tab2
WAITMS(500)
keystring("slando.ua/myaccount/settings")
WAITMS(100)
keypress(#enter)
WAIT(2)
LCLICK(176,405)  // klik
FOR($i, $i < 10)
   GETSCREEN
   IF_PIXEL_IN(0,0, 422,222, 3080380)//slandologo
      WAIT(3)
      LCLICK(300,310)  // izmenit
      wait(1)
      LCLICK(300,245)  // name
      SETKBLAYOUT (WNDFIND("tor"), 1049)
      $name = RND(1,9)
      SWITCH($name)
      CASE(1)
         keystring("fktrcfylh")
      CASE(2)
         keystring("jktu")
      CASE(3)
         keystring("bhf")
      CASE(4)
         keystring("cthutq")
      CASE(5)
         keystring("ktif")
      CASE(6)
         keystring("ltybc")
      CASE(7)
         keystring("bkmz")
      CASE(8)
         keystring("gfif")
      CASE(9)
         keystring("ctvty")
      default
      END_SWITCH
      SETKBLAYOUT (WNDFIND("tor"), 1033)
      LCLICK(300,320)       // nomer
      $nomer= (RND(1000000,9999999))
      keystring("063")
      keystring($nomer)
      wait(1)
      LCLICK(300,160)  // region
      wait(1)
      SWITCH($s)
      CASE(1)
         LCLICK(300,270)    // область
         WAITMS(500)
         LCLICK(300,225)          // город
         WAITMS(500)
         LCLICK(300,390)          // днепр
      CASE(2)
         LCLICK(300,270)    // область
         WAITMS(500)
         LCLICK(300,225)          // город
         WAITMS(500)
         ldown(541,410)
         wait(1,2)
         ldown(541,410)
         WAITMS(500)
         LCLICK(300,380)  // кривой рог
         WAITMS(500)
         LCLICK(300,380)  // кривой рог
      CASE(3)
         ldown(555,345)
         WAIT(2)
         lup(555,345)
         WAITMS(500)
         lclick(300,210)      // область
         WAITMS(500)
         LCLICK(300,225)          // город
         ldown(540,414)
         wait(1)
         lup(540,414)
         WAITMS(500)
         LCLICK(300,305)  // Харьков
      CASE(4)
         LCLICK(300,320)        // область
         WAITMS(500)
         LCLICK(300,225)           // город
         WAITMS(500)
         LCLICK(537,325)  // scroll
         WAITMS(500)
         LCLICK(285,324)  // житомир
      CASE(5)
         LCLICK(555,235)  // scroll
         WAITMS(500)
         lclick(300,285)      // область
         WAITMS(500)
         LCLICK(300,225)          // город
         Ldown(539,344)  // 9529888
         wait(2)
         lup(539,344)
         LCLICK(295,254)   // КИЕВ
      CASE(6)
         Ldown(557,345)  // scroll
         wait(1)
         lup(557,345)
         WAITMS(500)
         LCLICK(300,220)        // область
         WAITMS(500)
         LCLICK(300,227)          // город
         WAITMS(500)
         LCLICK(300,335)        // николаев
      CASE(7)
         Ldown(557,345)  // scroll
         wait(1,5)
         lup(557,345)
         LCLICK(300,285)  // область
         WAITMS(500)
         LCLICK(300,227)          // город
         WAITMS(500)
         LCLICK(300,310)        // одесса
      CASE(8)
         Ldown(557,345)  // scroll
         wait(1)
         lup(557,345)
         WAITMS(500)
         LCLICK(300,275)        // область
         WAITMS(500)
         LCLICK(300,227)          // город
         WAITMS(500)
         LCLICK(543,334)  // 11504706
         WAITMS(500)
         LCLICK(288,408)         //  полтава
      CASE(9)
         Ldown(557,345)  // scroll
         wait(1)
         lup(557,345)
         LCLICK(300,333)  // область
         WAITMS(500)
         LCLICK(300,227)          // город
         WAITMS(500)
         LCLICK(300,335)      //ровно
      CASE(10)
         Ldown(560,287)  // scroll
         wait(2)
         Lup(560,287)
         LCLICK(300,350)  // область
         WAITMS(500)
         LCLICK(300,340)          // город
         WAITMS(500)
         LCLICK(300,309)        // суммы
      DEFAULT
         LCLICK(300,270)    // область
         WAITMS(500)
         LCLICK(300,225)          // город
         WAITMS(500)
         LCLICK(300,390)          // днепр
      END_SWITCH
      WAITMS(500)
      lclick(300,725)      // save
      WAITMS(100)
      LCLICK(283,658)  // 14185263
      wait(1)
      $i = 10
   else
      wait(1)
      if($i >8)
         hintpopup("не грузит")
         screenshot
         goto(begin)
      end_if
   end_if
end_cyc
//obyava
new:
waitms(500)
LCLICK(862,15)  // altf4
waitms(500)
LCLICK(613,404)  // confirm
waitms(500)
LCLICK(638,12)  // tab3
WAITMS(500)
keystring("slando.ua/post-new-ad")
WAITMS(100)
keypress(#enter)
FOR($i, $i < 10)
   GETSCREEN
   IF_PICTURE_IN (200,90, 430,170, "slando.bmp")
      wait(2)
      LCLICK(500,310)       //rubrika
      wait(1)
      LCLICK(500,310)       //rubrika
      wait(1)
      LCLICK(500,310)       //rubrika
      wait(1)
      LCLICK(300,470)   // usluji
      wait(1)
      LCLICK(550,415)   // vibor
      WNDSTATE(WNDFIND("tor"), 0)
      WNDSTATE(WNDFIND("firefox"), 1)
      WAITMS(500)
      keydown(#right)
      c()
      keydown(#right)
      WAITMS(500)
      WNDSTATE(WNDFIND("firefox"), 0)
      WNDSTATE(WNDFIND("tor"), 1)
      WAITMS(500)
      LCLICK(500,400)    // лицо
      WAITMS(500)
      LCLICK(500,425)    //casnoe
      WAITMS(500)
      LCLICK(467,225)  // zagolovok
      v()
      WNDSTATE(WNDFIND("tor"), 0)
      WNDSTATE(WNDFIND("firefox"), 1)
      c()
      keydown(#down)
      WAITMS(500)
      keydown(#home)
      WNDSTATE(WNDFIND("firefox"), 0)
      WNDSTATE(WNDFIND("tor"), 1)
      WAITMS(500)
      LCLICK(502,670)   //foto
      WAITMS(500)
      keydown(#shift)
      WAITMS(100)
      keystring("C:")
      WAITMS(100)
      keyup(#shift)
      WAITMS(100)
      keystring("\gruz\")
      WAITMS(100)
      v()
      WAITMS(100)
      keystring(".jpg")
      WAITMS(100)
      keypress(#right)
      WAITMS(500)
      KEYPRESS(#enter)
      WAITMS(500)
      execute("notepad.exe", STRCONCAT("C:\gruz\", FROMCLIP(), ".txt"))
      WAITMS(500)
      keydown(#ctrl)
      WAITMS(100)
      KEYPRESS(#a)
      WAITMS(100)
      KEYUP(#ctrl)
      c()
      keydown(#alt)
      WAITMS(100)
      keypress(#f4)
      keyup(#alt)
      WAITMS(100)
      LCLICK(500,500)     // opis
      v()
      LCLICK(200,400)     // klik
      WAITMS(100)
      KEYPRESS(#end)       //////
      WAITMS(500)
      move(933,387)        // move
      WAITMS(100)
      lclick(933,387)      // опублик
      $i = 10
      WAIT(3)
      keypress(#home)
      WAIT(1)
      getscreen
      if_pixel_in(888,203,1077,248, 5422725)
         $m=0
         $s=$s+1
         HINTPOPUP ("это успех")
         goto(begin)
      else
         $m=$m+1
         if ($m>2)
            HINTPOPUP ("начинаем с начала", $m)
            screenshot
            wait(1)
            goto(begin)
         end_if
         HINTPOPUP ("ошибки случаются", $m)
         screenshot
         keypress(#f6)
         goto(new)
      end_if
   else
      wait(1)
      if($s>10)
         halt
      end_if
   end_if
end_cyc

Pages: 1 2 [3]