Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Bot Pijaczek v2.1.1

KURPIQ

Przez KURPIQ
w Via WWW

Rekomendowane odpowiedzi

  • Odpowiedzi 366
  • Dodano
  • Ostatniej odpowiedzi
valenciano40 Nowicjusz

valenciano40

Opublikowano
Nowicjusz

valenciano40

Opublikowano

KURPIQ mam prośbę oto kod na Bot-a twojego dzieła + chyba jak się nie mylę dodana opcja pauzy przez KAMOL-a1123 prośba jest następująca czy dało by się zmodyfikować ten kod aby dodać opcję z pobieraniem gwiazdek? na dole jest ten kod...Bot uruchamia sie tylko klikając F1 i F2

 

 

Global $mp ,$gar, $dp, $var ,$ap

Global $Paused

HotKeySet("{F2}", "coord")

HotKeySet("{F1}", "coord2")

HotKeySet ("{F3}","TogglePaused")

HotKeySet("{F8}", "rese")

HotKeySet("{F5}", "quit")

MsgBox(4096, "By kurpiq", "Bot wykonany w 100% przezemnie, jeśli pobrałeś to z innego miejsca niż mpcforum to znaczy że osoba umieszczająca to bez mojej zgody jest złodziejem. zastrzegam sobię prawa do tego bota //KURPIQ", 5)

$czas = InputBox("Program", "Czas trzymania spacji w górze: ", "8")

$grass = InputBox("Program", "Czas czekania po odświerzeniu (w sek) ", "25")

$ass = InputBox("Program", "Czas co jaki ma nastąpić reset (w min): ", "25")

$bass = InputBox("Program", "Czas jaki masz na wykonanie początkowych operacji(w sek): ", "25")

;;;; Body of program would go here ;;;;

Sleep($bass*1000)

$P1=true

adlibregister("zmien1", $ass*60000)

while 1

if $P1 then

Work()

else

rese()

$P1=true

endif

wend

Func rese()

MouseClick ( "left" , $ap[0], $ap[1] )

Sleep($grass*1000)

MouseClick ( "left" , $mp[0], $mp[1] )

Send("{ESC}")

Sleep(500)

MouseClick ( "left" , $mp[0], $mp[1] )

Sleep(500)

Send("{ESC}")

MouseClick ( "left" , $mp[0], $mp[1] )

Sleep(500)

Send("{ESC}")

MouseClick ( "left" , $mp[0], $mp[1] )

Sleep(500)

Send("{ESC}")

MouseClick ( "left" , $mp[0], $mp[1] )

Sleep(500)

Send("{ESC}")

EndFunc

func zmien1()

$P1=false

endfunc

;;;;;;;;

Func coord2()

Sleep(200)

$mp = MouseGetPos()

$var = PixelGetColor($mp[0], $mp[1])

Sleep(200)

TrayTip("Wskazałes punkt powyzej srodka","ok", 1)

EndFunc

Func coord()

Sleep(200)

$ap = MouseGetPos()

Sleep(200)

TrayTip("Wskazałes punkt odswiezania strony","Czekaj az bot sie uruchomi ",1 )

EndFunc

Func Work()

$marmolada = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0x6BC23B)

If Not @error Then

Send("{SPACE up}")

Sleep($czas)

Else

Send("{SPACE down}")

EndIf

$seed = PixelSearch($mp[0] - 50 , $mp[1] - 50 , $mp[0] + 50 , $mp[1] + 50 , $var)

If $seed = 0 Then

Send("{ESC}")

EndIf

EndFunc

Func TogglePaused()

$Paused = Not $Paused

While $Paused

Sleep(100)

TrayTip("Script is Paused", "Nacisnij ponownie F3 aby odpauzowac", 1)

WEnd

TrayTip("Pauza wyłączona ", "Gra wznowiona",1)

EndFunc

Func quit()

Exit

EndFunc

KURPIQ Pasjonat

KURPIQ

Opublikowano
Pasjonat

KURPIQ

  • Autor
Opublikowano

paze idzie wlaczyc przez kliknięcie ikony w trayu i potem przez klikniecie i zaznaczenie 1 opcji idzie wylaczyc

( ͡° ͜ʖ ͡°) bitches

Over the last 3 years, you've spent 2547.3 hours playing this selection, which includes 384 items, is valued at $4724.12, and requires 1506.9 GB

KURPIQ Pasjonat

KURPIQ

Opublikowano
Pasjonat

KURPIQ

  • Autor
Opublikowano

Jak wroce to udostepnie bo musze zrobic cos

( ͡° ͜ʖ ͡°) bitches

Over the last 3 years, you've spent 2547.3 hours playing this selection, which includes 384 items, is valued at $4724.12, and requires 1506.9 GB

KURPIQ Pasjonat

KURPIQ

Opublikowano
Pasjonat

KURPIQ

  • Autor
Opublikowano

powiem ci tak :

tutaj jest mój kod do bota którego używam i jest genialny:

ma on wszystko poza pauza przez przycisk (trzeba w trayu kliknac ikonke a na niebnieskim tle)

wszystko po staremu (instrukcja tyle ze f3 jest do gwiazdek ale to opisane wczeniej)

Global $mp ,$gar, $dp, $var ,$ap ,$sp ,$sar, $x, $y, $aaaa, $bsad, $cp, $car, $bp, $sape
HotKeySet("{F3}", "coorde")
HotKeySet("{F4}", "coord")
HotKeySet("{F5}", "coord4")
HotKeySet("{F7}", "coord2")
HotKeySet("{F6}", "coord3")
HotKeySet("{F8}", "start")
HotKeySet("{F9}", "End")
$P1=true
MsgBox(4096, "By kurpiq", "Bot wykonany w 100% przezemnie, jeśli pobrałeś to z innego miejsca niż mpcforum to znaczy że osoba umieszczająca to bez mojej zgody jest złodziejem. zastrzegam sobię prawa do tego bota //KURPIQ", 5)
$czas = InputBox("Program", "Czas trzymania spacji w górze: ", "5")
$grass = InputBox("Program", "Czas czekania po odświerzeniu (w sek) ", "20")
$ass = InputBox("Program", "Czas co jaki ma nastąpić reset (w min): ", "10")
$aaaa= 1
$bsad= InputBox("Program", "zrobić (1) czy nie (0) branie dopalaczy ", "0")
;;;; Body of program would go here ;;;;
While 2
  Sleep(1000)
  WEnd
Func start()
  adlibregister("zmien1", $ass*60000)
   while 1
   if $P1 then
   vest()
   else
   rese()
   $P1=true
   endif
wend
EndFunc
   Func rese()
   MouseClick ( "left" , $ap[0], $ap[1],1,1 )
 Sleep($grass*1000)
 MouseClick ( "left" , $mp[0], $mp[1],1,1  )
 Send("{ESC}")
 Sleep(500)
   MouseClick ( "left" , $mp[0], $mp[1],1,1  )
   Sleep(500)
   Send("{ESC}")
	 MouseClick ( "left" , $mp[0], $mp[1],1,1  )
  Sleep(500)
  Send("{ESC}")
	   MouseClick ( "left" , $mp[0], $mp[1],1,1  )
    Sleep(500)
    Send("{ESC}")
    $aaaa=1
		 cap()
	  EndFunc
   func zmien1()
   $P1=false
   endfunc
;;;;;;;;
Func cap()
  If $bsad=3 Then
  MouseClick ( "left" , $mp[0], $mp[1],1,1  )
	  Sleep(500)
	  Send("{ESC}")
	  MouseClick("left", $bp[0],$bp[1],1,1)
	  Sleep(4000)
	  $assda = PixelSearch($cp[0] - 10 , $cp[1] - 10 , $cp[0] + 10 , $cp[1] + 10, $car)
								    If Not @error Then
		 MouseClick("left",$sape[0],$sape[1],1,1)
		 Sleep(1000)
	  Else
		 Send("{ESC}")
		 Sleep(500)
		 $bsad=0
	  EndIf
	  MouseClick ( "left" , $mp[0], $mp[1],1,1 )
	  Sleep(500)
	  Send("{ESC}")
	  Sleep(500)
	  Send("{ESC}")
	  Sleep(500)
	  Send("{ESC}")
	  Sleep(500)
	  EndIf
	  EndFunc
Func coorde()
If $bsad=3 Then
   $sape = MouseGetPos()
TrayTip("ok 3", 2, 1)
EndIf
If $bsad=2 Then
  $cp = MouseGetPos()
  $car = PixelGetColor($cp[0], $cp[1])
  $bsad=3
  TrayTip("ok 2", 2, 1)
  EndIf
If $bsad=1 Then
$bp = MouseGetPos()
$bsad=2
TrayTip("ok 1", 2, 1)
EndIf
EndFunc
Func coord()
Sleep(200)
		    $ap = MouseGetPos()
		    Sleep(200)
						   TrayTip("ok", 2, 1)
   EndFunc
Func coord4()
Sleep(200)
		    $sp = MouseGetPos()
		    $sar = PixelGetColor($sp[0], $sp[1])
		    Sleep(200)
						   TrayTip("ok", 2, 1)
   EndFunc
Func coord2()
Sleep(200)
		    $mp = MouseGetPos()
		    $var = PixelGetColor($mp[0], $mp[1])
		    Sleep(200)
						   TrayTip("ok", 2, 1)
   EndFunc
Func coord3()   
   Sleep(200)
		    $dp = MouseGetPos()
		    $gar = PixelGetColor($dp[0], $dp[1])
Sleep(200)
						   TrayTip("ok", 2, 1)
   EndFunc
Func vest()
If $aaaa=1 Then
  zarzut()
Else
  work()
EndIf
EndFunc
Func Work()
						    $marmolada = PixelSearch($dp[0] - 100 , $dp[1] - 100 , $dp[0] + 100 , $dp[1] + 100, 0x46b434)
								    If Not @error Then
										    Send("{SPACE up}")
										    Sleep($czas)
	    Else
	    Send("{SPACE down}")
										 EndIf
						    $seed = PixelSearch($mp[0] - 50 , $mp[1] - 50 , $mp[0] + 50 , $mp[1] + 50 , $var)
								    If $seed = 0 Then
										    Send("{esc}")
	    Sleep(1000)
													    Send("{esc}")
	    Sleep(1000)
													    Send("{esc}")
	    Sleep(1000)
	    $aaaa=1
	    Else
	    $aaaa=0
								    EndIf
	  EndFunc
Func zarzut()
  $abadar = PixelSearch($sp[0] - 30 , $sp[1] - 30 , $sp[0] + 30 , $sp[1] + 30 , $sar)
  If Not @error Then
  Send("{SPACE}")
  $aaaa=0
  Sleep(1000)
  EndIf
  EndFunc
Func End()
    Exit 0
EndFunc

( ͡° ͜ʖ ͡°) bitches

Over the last 3 years, you've spent 2547.3 hours playing this selection, which includes 384 items, is valued at $4724.12, and requires 1506.9 GB

valenciano40 Nowicjusz

valenciano40

Opublikowano
Nowicjusz

valenciano40

Opublikowano

dzieki KURPIQ ale nie do końca o to mi chodziło...uważam , że ten bot który mam ja dla mnie wystarczajaco dobrze dziala + łatwość uruchomienia w sumie 2 kliknięcia i nic nie trzeba ustawiać a z tym ja na przykład mam kłopot zreszta czytając wcześniejsze wypowiedzi nie tylko ja to klopotliwe...fajnie było by mieć w nim opocję pobierania gwiazdek ale cóż nie będę utrudniał Ci życia...dzieki za włożony trud...pozdrawiam

cestino Nowicjusz

cestino

Opublikowano
Nowicjusz

cestino

Opublikowano

A powiedz mi Kurpiq od czego to zalezy, ze czasami bocika ustawiam i smiga od razu elegancko a czasami zajmuje mi to dobre 10min? Chodzi mi o to ze ladnie zarzuca, sciaga zylke, ale w momencie brania zacina i ciagnie ladnie rybe przez pare sekun by pozniej puscic, badz dociagnac do konca pasek ze ryba sie zrywa. Wiesz moze gdzie robie blad, od czego to zalezy? Rozumiem ze po zacieciu odrazu by przeciagal albo puszczal, ale tu jest inaczej pare sekund ladnie rybe holuje.....

cestino Nowicjusz

cestino

Opublikowano
Nowicjusz

cestino

Opublikowano

mam wrazenie ze ogolnie dzis wystepuje problem z botem.....niemozliwoscia jest bym go dzis az tak dlugo ustawial i ustawic nie mogl gdzie wczesniej wiekszych problemow nie mialem.....

valenciano40 Nowicjusz

valenciano40

Opublikowano
Nowicjusz

valenciano40

Opublikowano

KURPIQ nie moge ustawić opcji brania gwiazdek...może cos źle robie....opisze co klikam i po kolei.. najpierw wiadomo okna a ostatnim wpisuję 1 ....potem F7 F6 F5 i mam klopot z tym F3 bo w sumie jeszcze nie udało mi sie uruchomić tej opcji...a potem zaznaczam F8 i w sumie działa ale nie pobiera gwiazdek....opisz proszę samą opcje gwiazdek ale przystepnym językiem dla laików...

KURPIQ Pasjonat

KURPIQ

Opublikowano
Pasjonat

KURPIQ

  • Autor
Opublikowano

f3 uruchamiasz 3 razy okienko góra prawo, potem wygląd bonusu potem coś w stylu weź go.

( ͡° ͜ʖ ͡°) bitches

Over the last 3 years, you've spent 2547.3 hours playing this selection, which includes 384 items, is valued at $4724.12, and requires 1506.9 GB

KURPIQ Pasjonat

KURPIQ

Opublikowano
Pasjonat

KURPIQ

  • Autor
Opublikowano

Ta pierw f3 potem mysz znowu f3 na obrazku i f3 na przycisku

( ͡° ͜ʖ ͡°) bitches

Over the last 3 years, you've spent 2547.3 hours playing this selection, which includes 384 items, is valued at $4724.12, and requires 1506.9 GB

rebel9191 Nowicjusz

rebel9191

Opublikowano
Nowicjusz

rebel9191

Opublikowano

widzialem tu stwierdzenie ze w tle sie nie da......da sie panowie i to spokojnie ale uzywajac innego programu do makr -poprzegladalem czarne dziury made in russia i powiem wam ze tony botow wyprodukowali -trzeba jednak czasu na ogarniecie tego :D

KURPIQ Pasjonat

KURPIQ

Opublikowano
Pasjonat

KURPIQ

  • Autor
Opublikowano

dałbyś jakiś dostęp na gg (6670766) to się zobaczy.

( ͡° ͜ʖ ͡°) bitches

Over the last 3 years, you've spent 2547.3 hours playing this selection, which includes 384 items, is valued at $4724.12, and requires 1506.9 GB

valenciano40 Nowicjusz

valenciano40

Opublikowano
Nowicjusz

valenciano40

Opublikowano

mam pytanie...czy dało by się zrobić BOT-a którego obsługiwało by się w jakimś stopniu ręcznie ...można by zamykać wszystkie okna ręcznie to nie jest ważne ...chodzi mi o to żeby był w stanie bić rekordy...żeby tylko sam ciągnął ryby i nie zrywał ...resztę można robić ręcznie...

KURPIQ Pasjonat

KURPIQ

Opublikowano
Pasjonat

KURPIQ

  • Autor
Opublikowano

powiem ci tak u mnie nie zrywał ryb nigdy. więc raczej nie uda mi sie zrobić lepszego bo nie mam jak.

( ͡° ͜ʖ ͡°) bitches

Over the last 3 years, you've spent 2547.3 hours playing this selection, which includes 384 items, is valued at $4724.12, and requires 1506.9 GB

valenciano40 Nowicjusz

valenciano40

Opublikowano
Nowicjusz

valenciano40

Opublikowano

jaki masz rekord i na jakim sprzęcie...? jeśli mozna wiedzieć....dziwne troszke bo mi ciagnie na prawde duze ryby ale te na prawde bardzo bardzo duze zrywa...rekord wyciagnalem recznie bo Bot nie wyciagnal takiej duzej...

rebel9191 Nowicjusz

rebel9191

Opublikowano
Nowicjusz

rebel9191

Opublikowano

kwestia kombinacji z ustawkami bota i co rownie wazne ile ma zasobow w kompie -u mnie na starym kompku musze dodawac do bota pcboost i wtedy wyciaga wszystko no chyba ze wedka juz nie daje rady

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...