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

[Problem] Napisany przeze mnie skrypt nie działa. Proszę o poprawę

DroniC

Rekomendowane odpowiedzi

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Co do tego pierwszego:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 190, 54, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("Start", 16, 16, 97, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
$Start = 0
$Timer = 0
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
	If (TimerDiff($Timer) >= 5000 And GUICtrlRead($Checkbox1) == 1) Or ($Start == 0 And GUICtrlRead($Checkbox1) == 1) Then
		$Start = 1
		MsgBox(0, "Czas", TimerDiff($Timer))
		$Timer = TimerInit()
	EndIf
	If (GUICtrlRead($Checkbox1) == 4) And $Start == 1 Then
		$Start = 0
		MsgBox(64, "Uwaga!", "Opcja start wyłączona.")
	EndIf
WEnd

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

  • Odpowiedzi 69
  • Dodano
  • Ostatniej odpowiedzi
Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

To, że robi tak jak to opisałeś, tu masz przykład takiego programu i możesz z niego skorzystać.

4 bo taką wartość zwraca wtedy checkbox jak nie jest zaznaczony.

Co do drugiego pytania:

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 183, 118, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 16, 72, 75, 33)
$Radio1 = GUICtrlCreateRadio("ON", 16, 16, 65, 17)
$Radio2 = GUICtrlCreateRadio("OFF", 16, 40, 65, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			If GUICtrlRead($Radio1) == 1 Then
				MsgBox(0, "Start", "Tekst...")
			EndIf
	EndSwitch
WEnd

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

DroniC Znawca

DroniC

Opublikowano
Znawca

DroniC

  • Autor
Opublikowano

Co do tego drugiego to zaraz będę testować.

 

Zobacz proszę. Mam to tak teraz:

;Anti Kick head to north
		If GUICtrlRead($Checkbox1) == 1 And TimerDiff($Timer3) >= 840000 Then
		$zmienna1 = 1
		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{DOWN}' & '{CTRLUP}')
		Sleep(10)
		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{UP}' & '{CTRLUP}')
        MsgBox(0, "Confirmation", "Anti-Kick has been activated.")
		$Timer3 = TimerInit()
	EndIf
		If (GUICtrlRead($Checkbox1) == 4) and $zmienna1 = 1 Then
		$zmienna1 = 0
		MsgBox(0, "Confirmation", "Anti-Kick has stopped work.")
	EndIf

WEnd

Nic się nie zmieniło poza tym, że teraz wyskakują mi okienka. Dalej drugi raz jak nacisnę Activate Anti-Kick to już nic nie wyskakuje.

 

 

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Po co to WEnd?

Przecież podałem Ci prawie gotowy kod, zwróć uwagę na to:

If (TimerDiff($Timer) >= 5000 And GUICtrlRead($Checkbox1) == 1) Or ($Start == 0 And GUICtrlRead($Checkbox1) == 1) Then.

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

DroniC Znawca

DroniC

Opublikowano
Znawca

DroniC

  • Autor
Opublikowano

dzięki. Jak najbardziej wszystko działa. Jest tylko jeden uszczerbek.

 

$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$Start = 1

		If GUICtrlRead($check1) == 1 Then             ;running
		ControlSend("Tibia", '', '', '{UP}')
		Sleep(40)
        ControlSend("Tibia", '', '', '{DOWN}')
		Sleep(100)

Niestety kliknę raz na Start to funkcja działa tylko raz i się nie powtarza. Jak ogarnąć to, by funkcja się powtórzyła?

 

To jest check1 

$check1 = GUICtrlCreateCheckbox("Up/Down", 56, 312, 113, 25, BitOR($GUI_SS_DEFAULT_RADIO,$WS_BORDER))

 

 

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Daj cały kod i więcej lajków.

Bo ten kawałek wygląda bez sensu po co to $Start = 1.

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

DroniC Znawca

DroniC

Opublikowano
Znawca

DroniC

  • Autor
Opublikowano 

#NoTrayIcon

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Admin\Documents\Final\anti kick.kxf
$Form1_1 = GUICreate("obot", 472, 392, 288, 136, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
$Button1 = GUICtrlCreateButton("Start", 56, 112, 209, 73)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Pause", 56, 208, 209, 73)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Simple macro to Dragon Ball Legend", 56, 48, 357, 26, $SS_CENTER)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Choose Spell", 272, 112, 145, 169)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Radio1 = GUICtrlCreateRadio("Bukujutsu", 288, 152, 113, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Radio2 = GUICtrlCreateRadio("Cube Fade", 288, 192, 121, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Radio3 = GUICtrlCreateRadio("None", 288, 232, 113, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$check1 = GUICtrlCreateCheckbox("Up/Down", 56, 312, 113, 25, BitOR($GUI_SS_DEFAULT_RADIO,$WS_BORDER))
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$check2 = GUICtrlCreateCheckbox("Left/Right", 56, 341, 113, 25, BitOR($GUI_SS_DEFAULT_RADIO,$WS_BORDER))
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Checkbox1 = GUICtrlCreateCheckbox("Activate Anti-Kick", 232, 328, 185, 33)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###





$Timer1 = 0
$Timer2 = 0
$Timer3 = 0
$Timer4 = 0
$Start = 0
$zmienna1 = 0

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$Start = 1

		If GUICtrlRead($check1) == 1 Then             ;running
		ControlSend("Tibia", '', '', '{UP}')
		Sleep(40)
        ControlSend("Tibia", '', '', '{DOWN}')
		Sleep(100)
		EndIf ;==>check1


		Case $Button2
			$Start = 0


	EndSwitch


;Bukujutsu
	If GUICtrlRead($Radio1) == 1 And TimerDiff($Timer1) >= 25000 Then

		ControlSend("Tibia", '', '', 'bukujutsu')
		Sleep(20)
		ControlSend("Tibia", '', '', '{Enter}')

		$Timer1 = TimerInit()
    EndIf

;Cube Fade
		If GUICtrlRead($Radio2) == 1 And TimerDiff($Timer2) >= 5000 Then

		ControlSend("Tibia", '', '', 'cube fade')
		Sleep(20)
		ControlSend("Tibia", '', '', '{Enter}')

        $Timer2 = TimerInit()
	EndIf

;Anti Kick head to north
		If (TimerDiff($Timer3) >= 840000 And GUICtrlRead($Checkbox1) == 1) Or ($zmienna1 == 0 And GUICtrlRead($Checkbox1) == 1) Then
		$zmienna1 = 1
		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{DOWN}' & '{CTRLUP}')
		Sleep(10)
		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{UP}' & '{CTRLUP}')
        MsgBox(0, "Confirmation", "Anti-Kick has been activated.")
		$Timer3 = TimerInit()
	EndIf
		If (GUICtrlRead($Checkbox1) == 4) and $zmienna1 = 1 Then
		$zmienna1 = 0
		MsgBox(0, "Confirmation", "Anti-Kick has stopped work.")
	EndIf

WEnd

Func Checkbox1()
	GUICtrlRead($check1) == 1 And TimerDiff($Timer4) >= 100 Then

	ControlSend("Tibia", '', '', '{UP}')
	Sleep(40)
	ControlSend("Tibia", '', '', '{DOWN}')

	$Timer4 = TimerInit()

EndFunc   ;==>Checkbox1

 

to Func Checkbox na dole niepotrzebne. po prostu kombinowałem ;/

 

 

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Przecież działa:

Case $Button1

$Start = 1

 

If GUICtrlRead($check1) == 1 Then ;running

ControlSend("Tibia", '', '', '{UP}')

Sleep(40)

ControlSend("Tibia", '', '', '{DOWN}')

Sleep(100)

EndIf ;==>check1

 

U mnie za każdym razem się If wykonuje jak mam zaznaczony checkbox1.

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

DroniC Znawca

DroniC

Opublikowano
Znawca

DroniC

  • Autor
Opublikowano

ja nie mówiłem, że nie działa. Owszem działa, jednak tylko raz. A ja chcę loop, czy coś takiego - żeby powtarzało funkcję cały czas.

 

@Edit.

Zatem nie wiem czemu u Ciebie na tym samym skrypcie działa to cały czas (powtarza się ciągle), a u mnie nie.

 

 

pomóż. Napewno to ogarniasz :D

 

 

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Tłumaczyłem już Ci:

 

#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#region ### START Koda GUI section ### Form=C:\Users\Admin\Documents\Final\anti kick.kxf
$Form1_1 = GUICreate("obot", 472, 392, 288, 136, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP))
$Button1 = GUICtrlCreateButton("Start", 56, 112, 209, 73)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Pause", 56, 208, 209, 73)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Simple macro to Dragon Ball Legend", 56, 48, 357, 26, $SS_CENTER)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Choose Spell", 272, 112, 145, 169)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Radio1 = GUICtrlCreateRadio("Bukujutsu", 288, 152, 113, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Radio2 = GUICtrlCreateRadio("Cube Fade", 288, 192, 121, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Radio3 = GUICtrlCreateRadio("None", 288, 232, 113, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$check1 = GUICtrlCreateCheckbox("Up/Down", 56, 312, 113, 25, BitOR($GUI_SS_DEFAULT_RADIO, $WS_BORDER))
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$check2 = GUICtrlCreateCheckbox("Left/Right", 56, 341, 113, 25, BitOR($GUI_SS_DEFAULT_RADIO, $WS_BORDER))
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Checkbox1 = GUICtrlCreateCheckbox("Activate Anti-Kick", 232, 328, 185, 33)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###


$Timer1 = 0
$Timer2 = 0
$Timer3 = 0
$Timer4 = 0
$Start = 0
$zmienna1 = 0

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$Start = 1

		Case $Button2
			$Start = 0


	EndSwitch

	If GUICtrlRead($check1) == 1 And $Start == 1 Then ;running
		ConsoleWrite("Działa")
		ControlSend("Tibia", '', '', '{UP}')
		Sleep(40)
		ControlSend("Tibia", '', '', '{DOWN}')
		Sleep(100)
	EndIf ;==>check1


	;Bukujutsu
	If GUICtrlRead($Radio1) == 1 And TimerDiff($Timer1) >= 25000 Then

		ControlSend("Tibia", '', '', 'bukujutsu')
		Sleep(20)
		ControlSend("Tibia", '', '', '{Enter}')

		$Timer1 = TimerInit()
	EndIf

	;Cube Fade
	If GUICtrlRead($Radio2) == 1 And TimerDiff($Timer2) >= 5000 Then

		ControlSend("Tibia", '', '', 'cube fade')
		Sleep(20)
		ControlSend("Tibia", '', '', '{Enter}')

		$Timer2 = TimerInit()
	EndIf

	;Anti Kick head to north
	If (TimerDiff($Timer3) >= 840000 And GUICtrlRead($Checkbox1) == 1) Or ($zmienna1 == 0 And GUICtrlRead($Checkbox1) == 1) Then
		$zmienna1 = 1
		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{DOWN}' & '{CTRLUP}')
		Sleep(10)
		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{UP}' & '{CTRLUP}')
		MsgBox(0, "Confirmation", "Anti-Kick has been activated.")
		$Timer3 = TimerInit()
	EndIf
	If (GUICtrlRead($Checkbox1) == 4) And $zmienna1 = 1 Then
		$zmienna1 = 0
		MsgBox(0, "Confirmation", "Anti-Kick has stopped work.")
	EndIf

WEnd

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

DroniC Znawca

DroniC

Opublikowano
Znawca

DroniC

  • Autor
Opublikowano

Okej, jesteś świetny :D Dzięki. Jutro Sobie to przejżę na spokojnie i wykombinuję tak, by pauza za każdym razem działała ;D

 

 

 

Mam pytanie takie z marginesu.

Czy jest to skrypt poprawny? 

 ;anti kick east
If ($zmienna2 == 0 And GUICtrlRead($Checkbox5) == 1) Then
      $zmienna2 = 1
 
EndIf
 
If (TimerDiff($Timer5) >= 840000 And GUICtrlRead($Checkbox1) == 1) Or ($zmienna2 == 1 And GUICtrlRead($Checkbox1) == 1) Then
      $zmienna2 = 2
      ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{LEFT}' & '{CTRLUP}')
      Sleep(20)
      ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{RIGHT}' & '{CTRLUP}')
      MsgBox(0, "Confirmation", "Anti-Kick has been activated.")
      $Timer5 = TimerInit()
   EndIf
   If (GUICtrlRead($Checkbox1) == 4) And $zmienna2 = 2 Then
      $zmienna2 = 1
      MsgBox(0, "Confirmation", "Anti-Kick has stopped work.")
   EndIf

 

Chodziło mi o to, by to działo w ten sposób, że gdy zaznaczę checkboxa5 (east), a następnie checkboxa1(activate anti kick) to bot zacznie fukncję co 14 minut przyciśnięcie ctrl + strzałka w prawo+strzałka w lewo. Chodziło mi o to, by po zaznaczeniu samego checkboxa 5/1 nic się nie działo. dopiero jak się zaznaczy je oba to żeby była ta funkcja.

 

Dodam, że mam to wpakowane do While1 i będę chciał zrobić kolejne 3 takie funkcje. W tym przypadku akurat postać w grze powinna obkręcić się twarzą na prawo.

 

 

DroniC Znawca

DroniC

Opublikowano
Znawca

DroniC

  • Autor
Opublikowano

OK, zaraz będę działać. Pół nocy siedziałem nad tym haha na miliard możliwości to robiłem i nic. Jak bym to buttonem robił to by problemów nie było, ale no dosłownie muszę to zdziałać checkboxami ;D

 

z tym ispressed to jakaś lipa. Ja chcę tylko wprawić opcję w ruch poprzez zaznaczanie dwóch checkboxów.

np.

Checkbox4 (na screenie West)

a później Checkbox1 (na screenie activate anti kick)

http://www.wrzucajfotki.pl/di-N9AV98GM.png
to wtedy aktywuje się opcja

 

If (TimerDiff($Timer3) >= 840000 And GUICtrlRead($Checkbox1) == 1) Or ($zmienna1 == 0 And GUICtrlRead($Checkbox1) == 1) Then		$zmienna1 = 1		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{RIGHT}' & '{CTRLUP}')		Sleep(10)		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{LEFT}' & '{CTRLUP}')        MsgBox(0, "Confirmation", "Anti-Kick has been activated.")		$Timer3 = TimerInit()	EndIf		If (GUICtrlRead($Checkbox1) == 4) and $zmienna1 = 1 Then		$zmienna1 = 0		MsgBox(0, "Confirmation", "Anti-Kick has stopped work.")	EndIf
Tutaj ta opcja jest niedopracowana, bo działa tylko po zaznaczeniu checkboxa1. Ja chcę by działało po zaznaczeniu 5, a później 1.

 

 

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Raz piszesz co innego potem jeszcze co innego. Pisałeś, że chcesz:

"przyciśnięcie ctrl + strzałka w prawo+strzałka w lewo".

Pokombinuj z warunkami. Np. po zaznaczeniu 1 jakaś zmienna przyjmuje wartość np. 1.

Wtedy robisz warunek, że jak jest checkbox1 i 5 zaznaczony i zmienna ta ma wartość 1 to wtedy...

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

DroniC Znawca

DroniC

Opublikowano
Znawca

DroniC

  • Autor
Opublikowano

sorry, źle mnie zrozumiałeś i sam też piszę tak, że ciężko jest skumać ocb.

Od tego to ja mam 

ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{RIGHT}' & '{CTRLUP}')
		Sleep(10)
		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{LEFT}' & '{CTRLUP}')

 

Z tym, że chcę by to działało dopiero po wciśnięciu checkboxa6, a następnie checkbox1.

Jeżeli wcisnę sam checkbox 1 - to nie zadziała. Jeżeli wcisnę checkbox6 - to nie zadziała.

Chcę tylko by to działało po wciśnięciu checkbox6 i checkbox1.

Checkbox 6 jako kierunek (west - widać na screenie).

 

Kombinowałem ze zmiennymi już pół nocy i cały ranek.

Wychodzi jedna wielka dupa.

 

;anti kick north
    If GUICtrlRead($Checkbox6) == 1 Then
	$north = 1
EndIf
	If (GUICtrlRead($Checkbox6) == 4) and $north = 1 Then
	$north = 0
EndIf


If (TimerDiff($Timer3) >= 840000 And GUICtrlRead($Checkbox1) == 1) Then

		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{DOWN}' & '{CTRLUP}')
		Sleep(10)
		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{UP}' & '{CTRLUP}')
        MsgBox(0, "Confirmation", "Anti-Kick has been activated.")
		$Timer3 = TimerInit()
	EndIf
If GUICtrlRead($Checkbox6) == 0 Then
	MsgBox 64, "Uwaga!", "nie pyklo")
EndIf

If (GUICtrlRead($Checkbox1) == 4) And $Checkbox6 == 1 Then
		MsgBox(64, "Uwaga!", "Opcja start wyłączona.")
	EndIf

Ostatnie co wykombinowałem.. no dosłownie nie zdawałem Sobie, że to będzie takie trudne.

 

 

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

No to:

If GUICtrlRead($Checkbox1) == 1 And GUICtrlRead($Checkbox6) == 1 Then... Nie wiem co tu jest do kombinowania pół nocy.

Jeżeli chodzi Ci że najpierw musi wcisnąć 1, a potem 6 żeby zadziałało to:

$Ch1 = 0

 

If GUICtrlRead($Checkbox1) == 1 And $Ch1 == 0 And GUICtrlRead($Checkbox6) == 4 Then

$Ch1 = 1

ElseIf GUICtrlRead($Checkbox1) == 4 And $Ch1 == 1 Then

$Ch1 = 0

EndIf

 

 

If GUICtrlRead($Checkbox1) == 1 And $Ch1 == 1 And GUICtrlRead($Checkbox6) == 1 Then

...

EndIf

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

DroniC Znawca

DroniC

Opublikowano
Znawca

DroniC

  • Autor
Opublikowano

Lipa z tym wychodzi, naprawdę. Może na próżno kombinuję, bo tego się nie da zrobić.

 

;anti kick north
   		If (TimerDiff($Timer3) >= 840000 And GUICtrlRead($Checkbox6) == 1) And ($zmienna1 == 0 And GUICtrlRead($Checkbox1) == 1) Then
		$zmienna1 = 1
		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{DOWN}' & '{CTRLUP}')
		Sleep(10)
		ControlSend("Tibia", '', '', '{CTRLDOWN}' & '{UP}' & '{CTRLUP}')
        MsgBox(0, "Confirmation", "Anti-Kick has been activated.")
		$Timer3 = TimerInit()
	EndIf
		If (GUICtrlRead($Checkbox1) == 4) and $zmienna1 = 1 Then
		$zmienna1 = 0
		MsgBox(0, "Confirmation", "Anti-Kick has stopped work.")
	EndIf

 

Działa to - jednak tylko raz. Na kolejne trzeba czekać 14 minut ;p

 

 

Myślę że jest tak dlatego, ponieważ:

 

Na samym początku podczas kliknięcia chociażby checkbox6 zmienna1 == 0 zamienia się na zmienną1 == 1.

To wprawia w ruch funkcję, która mi jest bardzo potrzebna i którą chcę wywołać.

Jednak gdy ją stopuję to dzieje się tak poprzez ponowne nadanie zmiennej1 wartości '0'.

 

Przez co po kolejnym wciśnięciu checkbox1 (Activate Anti-kick) już to nie trybi...

Proszę o pomoc jak to mogę zrobić..

 

 

Agent K Pasjonat

Agent K

Opublikowano
Pasjonat

Agent K

Opublikowano

Ja nie ogarniam tej gry ani już twojego kodu, ale pokombinuj ze zmiennymi i warunkami. Na pewno się da.

4417049059_6234f40fb5.jpg
Storm has passed but the destruction are still visible.

DroniC Znawca

DroniC

Opublikowano
Znawca

DroniC

  • Autor
Opublikowano

Odpuszczam Sobie to.. Zrobiłem to poprzez samo zaznaczenie kierunku, bez żadnych potwierdzeń śmiesznych :D

 

 

Zarchiwizowany

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

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