[Pytanie]Modyfikacja kodu

[hehe7]

Mi tez juz nie wywala, bo dalem podstawowy kod

 

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

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

 

Send("{SPACE up}")

Sleep($czas)

Else

Send("{SPACE down}")

Skoro chodzi Ci o spacje to pobiera Ci z inputa to wystarczy ze tam wpiszesz?

Albo to co czerwone w Sleep daj : Sleep(100) czyli 0,1 sekundy

1s = 1000ms

0.5s = 500ms

0,1s = 100ms

[SmokeEveryDay]

 

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

Send("{SPACE up}")
Sleep($czas)
Else
Send("{SPACE down}")

 

Skoro chodzi Ci o spacje to pobiera Ci z inputa to wystarczy ze tam wpiszesz?

 

 

Nie mozna wpisywac w okienku dziesietnych, bo nie bedzie czytac, czyta tylko 1 2 3 4 5 itd a nie czyta 0.5/6/7/8

[hehe7]

Nie mozna wpisywac w okienku dziesietnych, bo nie bedzie czytac, czyta tylko 1 2 3 4 5 itd a nie czyta 0.5/6/7/8

Owszem, ale w AutoIt czas podaje sie w milisekundach (czyt. 1s=1000ms) wiec by miec minute musialbys wpisac 60000ms i tak dalej.

Jesli wpiszesz 1000 to masz jedna sekunde,jesli chcesz 0,1sekundy wpisz 100 albo po prostu do tego Sleep zamiast $czas wpisz 100

 

MASZ TUTAJ DWIE OPCJE!

 

 

 

 

 

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:w milisekundach czyli 1s=1000ms ", "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) ;<----- wpisz tutaj 100

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

 

 

 

[SmokeEveryDay]

Owszem, ale w AutoIt czas podaje sie w milisekundach (czyt. 1s=1000ms) wiec by miec minute musialbys wpisac 60000ms i tak dalej.

Jesli wpiszesz 1000 to masz jedna sekunde,jesli chcesz 0,1sekundy wpisz 100 albo po prostu do tego Sleep zamiast $czas wpisz 100

 

MASZ TUTAJ DWIE OPCJE!

 

 

 

 

 

 

 

 

 

Te 100 wpisac miedzy nawiasy nie usuwajac " dolara " ? czy $ usunac ?

 

Nie ogarniam tych spraw w ogole, wiec sie pytam, jestem zielony, a wiem ze nawe spacja moze miec duze znaczenie

[hehe7]

Jeśli masz Sleep($czas) daj na Sleep(100) i wtedy to co wpiszesz w okienko nie bedzie dzialac i zawsze bedzie 0,1sekundy

[SmokeEveryDay]

Jeśli masz Sleep($czas) daj na Sleep(100) i wtedy to co wpiszesz w okienko nie bedzie dzialac i zawsze bedzie 0,1sekundy

 

 

Niby widac lekka roznice, ale to nie to samo co na laptobie, zrywa mi wiekszosc ryb, a na laptopie ani 1 sztuka sie nie zrywa, idealnie, plynnie bocik chozi.

 

Na stacjonarnym wydaje mi sie ze ten bot sie tnie, nie komp, bo 4 razy lepszy niz laptop, ale sam bot.

 

No nic, trudno. Dzieki za pomoc

[hehe7]

Na różnych komputerach może różnie chodzić dajmy na to starego gruchota i nówke to na nówce będzie działać tak jak ustawione a na starym mogą być opóźnienia.

 

Oczywiscie zawsze mozesz pokombinować i poprzestawiać czas aż w końcu znajdziesz odpowiedni na twój komputer.

[SmokeEveryDay]

Na różnych komputerach może różnie chodzić dajmy na to starego gruchota i nówke to na nówce będzie działać tak jak ustawione a na starym mogą być opóźnienia.

 

Oczywiscie zawsze mozesz pokombinować i poprzestawiać czas aż w końcu znajdziesz odpowiedni na twój komputer.

 

Wlasnie szukalem roznych kombinacji i zawsze tak samo albo gorzej. No komp nie najlepszy ale 2x2.4 4ramu, a laptop 2x1.6 4 ramu i o wiele lepiej dziala.

 

Dobra dzieki za pomoc, temat zamykam. Na lapku bede bocil