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

[Pytanie]Modyfikacja kodu

SmokeEveryDay

Rekomendowane odpowiedzi

SmokeEveryDay Bywalec

SmokeEveryDay

Opublikowano
Bywalec

SmokeEveryDay

Opublikowano

Siemka moglby mi ktos ten kod zmodyfikowac tak, ze bot trzymal by spacje 0.9 sekundy 0.8/7/6/5/4/3/2/1.

 

Teraz jest ze po wpisaniu w okienku " czas trymania spacji w gorze " jest co sekunde od 1 do 5

 

Na laptopie ten botek mi dziala bardzo dobrze a na stacjonarnym ta 1 troche za wolno i zrywa ryby

 

Skrypt By KURPIQ ale jego nie ma na forum i nie wiem czy by mi to zrobil ...

 

 

 

 

Global $mp ,$gar, $dp, $var ,$ap ,$sp ,$sar, $x, $y, $aaaa, $bsad, $cp, $car, $bp
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: ", "1")
$grass = InputBox("Program", "Czas czekania po odświerzeniu (w sek) ", "2")
$ass = InputBox("Program", "Czas co jaki ma nastąpić reset (w min): ", "99")
$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=2 Then
MouseClick ( "left" , $mp[0], $mp[1],1,1 )
Sleep(500)
Send("{ESC}")
MouseClick("left", $bp[0],$bp[1],1,1)
Sleep(500)
$assda = PixelSearch($cp[0] - 10 , $cp[1] - 10 , $cp[0] + 10 , $cp[1] + 10, $car)
If Not @error Then
MouseClick("left",$cp[0],$cp[1],1,1)
Sleep(500)
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=2 Then
$cp = MouseGetPos()
$car = PixelGetColor($cp[0], $cp[1])
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

1368526057-U925527.jpg


STOP komentarzom typu: "AMD to gówno"! Zanim coś napiszesz, to pomyśl jak odbiorą to inni !

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

Napisz to jeszcze raz po polsku, bo nie do końca rozumiem o co ci chodzi.

 

btw. życzę autorowi tego kodu, aby swoje dzieci nazwał tak jak swoje zmienne

981841412442977292370.png
SmokeEveryDay Bywalec

SmokeEveryDay

Opublikowano
Bywalec

SmokeEveryDay

  • Autor
Opublikowano

Chce aby czas trzymania spacji byl tez na dziesietne sekundy czyli 0.9/8/7/6/5/4/3/2/1, bo aktualnie jest tylko na 1-5 sekund. Poniewaz na stacjonarnym kompie 4 razy lepszym niz na laptopie zrywa mi ryby bo za mocno wacha sie pasek na boki, a na laptopie lapie kaza rybke i bije rekordy.

 

Czym szybciej bedzie naciskal spacje tym mniejsze prawdopodobienstwo jest zerwania ryby.

 

Jesli grales w " na ryby " na nk to bedziesz wiedziec o co chodzi. A jesli nie to przy braniu trzeba klikac szybko spacje by wyciagnac rybe

1368526057-U925527.jpg


STOP komentarzom typu: "AMD to gówno"! Zanim coś napiszesz, to pomyśl jak odbiorą to inni !

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

okej chyba znalazłem. W ostatnim wystąpieniu 'Sleep(1000)' ustaw mniejszą wartość. 1000=1sek

981841412442977292370.png
Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

To co się wpisuje w okienku nie ma znaczenia jeśli chodzi o czas co jaki ma klikać.

981841412442977292370.png
linoskoczek Bywalec

linoskoczek

Opublikowano
Bywalec

linoskoczek

Opublikowano

W okienku dajesz 1, to byłoby to chyba 0.001 sekundy, bo:

 

 

Send("{SPACE up}")
Sleep($czas)
Else
Send("{SPACE down}")
EndIf
Czyli Sleep(1), a w AutoIT sleepa podaje się w milisekundach, czyli 1 sekunda = 1000 milisekund.
Wpiszesz 500 to będzie 0.5 sekundy, chyba, że czegoś nie ogarniam.
SmokeEveryDay Bywalec

SmokeEveryDay

Opublikowano
Bywalec

SmokeEveryDay

  • Autor
Opublikowano

Ja wpisalem w koncowke kodu w ostatnie Sleep 500 i dalem w okienku 1 to nic sie nie zmienilo

 

Tak samo nawet probowalem, wszedzie gdzie bylo sleep dalem po 100 xD pozniej w okienku wpisalem 1 i dalej tak samo dzialalo jak w oryginalnym kodzie, trzymanie spacji w gorze tak samo dzialalo jak w oryginalnym, w sensie botek klikal i trzymal sapcje z czestotliwoscia 1 sekundy a nie tak jak wszedzie wpisalem po 100 czyli powinien trzymac ta spacje 0.1 sekundy.

 

Ja nie ogarniam autoIT ale logicznie po zmianie kazdego sleep powinno cos sie zmienic

1368526057-U925527.jpg


STOP komentarzom typu: "AMD to gówno"! Zanim coś napiszesz, to pomyśl jak odbiorą to inni !

IZZER4 Pasjonat

IZZER4

Opublikowano
Pasjonat

IZZER4

Opublikowano

Co tutaJ JEST DO POMAGANIA...??

 

If Not @error Then
Send("{SPACE up}")
Sleep(100) ; 100 = 1/10 sekundy
Else
Send("{SPACE down}")
EndIf
i wywalasz ta zmienna poniewaz jest niepotrzebna
$czas = InputBox("Program", "Czas trzymania spacji w górze: ", "1")
  • 1 miesiąc temu...
SmokeEveryDay Bywalec

SmokeEveryDay

Opublikowano
Bywalec

SmokeEveryDay

  • Autor
Opublikowano

 

Co tutaJ JEST DO POMAGANIA...??

 

If Not @error Then
Send("{SPACE up}")
Sleep(100) ; 100 = 1/10 sekundy
Else
Send("{SPACE down}")
EndIf
i wywalasz ta zmienna poniewaz jest niepotrzebna
$czas = InputBox("Program", "Czas trzymania spacji w górze: ", "1")

 

 

Niestety wywala mi blad

 

Bylby ktos na tyle mily i pomog z kodem?

1368526057-U925527.jpg


STOP komentarzom typu: "AMD to gówno"! Zanim coś napiszesz, to pomyśl jak odbiorą to inni !

SmokeEveryDay Bywalec

SmokeEveryDay

Opublikowano
Bywalec

SmokeEveryDay

  • Autor
Opublikowano

Jaki refresh :D

Podaj jaki to błąd.

I podaj swój kod w całości, wtedy będzie można coś kombinować.

Nie jesteśmy wróżkami.

 

 

Przeczytaj 1 moj post o co mi chodzi

 

to jest caly kod

 

 

 

 

 

Global $mp ,$gar, $dp, $var ,$ap ,$sp ,$sar, $x, $y, $aaaa, $bsad, $cp, $car, $bp
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: ", "1")
$grass = InputBox("Program", "Czas czekania po odświerzeniu (w sek) ", "2")
$ass = InputBox("Program", "Czas co jaki ma nastąpić reset (w min): ", "99")
$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=2 Then
MouseClick ( "left" , $mp[0], $mp[1],1,1 )
Sleep(500)
Send("{ESC}")
MouseClick("left", $bp[0],$bp[1],1,1)
Sleep(500)
$assda = PixelSearch($cp[0] - 10 , $cp[1] - 10 , $cp[0] + 10 , $cp[1] + 10, $car)
If Not @error Then
MouseClick("left",$cp[0],$cp[1],1,1)
Sleep(500)
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=2 Then
$cp = MouseGetPos()
$car = PixelGetColor($cp[0], $cp[1])
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

1368526057-U925527.jpg


STOP komentarzom typu: "AMD to gówno"! Zanim coś napiszesz, to pomyśl jak odbiorą to inni !

SmokeEveryDay Bywalec

SmokeEveryDay

Opublikowano
Bywalec

SmokeEveryDay

  • Autor
Opublikowano

Sory, kiedy paczyłęm w kod to w szkole byłem a teraz zapomniałem o tym xD

Już sprawdzam.

Dziwne, mi nic nie wywala.

 

 

Mi tez juz nie wywala, bo dalem podstawowy kod xD

 

Tylko chcialbym abys edytowal kod tak aby spacje w gorze bot trzymal przez dziesietna sekundy czyli przykladowo 0.5 sekundy

 

 

 

@ Patrzylem * xD

1368526057-U925527.jpg


STOP komentarzom typu: "AMD to gówno"! Zanim coś napiszesz, to pomyśl jak odbiorą to inni !

Zarchiwizowany

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

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