[Pytanie] Poprawki Fb Dla Ambitnych Cz2

[Woj96]

Ehhh ok 3 godz lub wiecej robie fish bota i juz sa efekty:D. Mam pytanie między innymi

 

1] Jak zrobic zeby przed włączeniem sie menu głownego pokazałsie jakiś obrazek ????

2] Jak dodac muzyczke do programiku

3] Jak zrobic auto zabijanie ryb bo gdy sie przyblizy kamere nie widac ryb i nie mozna tego zrobic chyba ze da sie aby lowic z nieprzyblirzona kamera do glowy???

I w ktore miejsca je wkleic

 

 

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <GUIConstants.au3>

HotKeySet("{HOME}", "start")

HotKeySet("{END}", "stop")

HotKeySet("{DEL}", "koniec")

GUICreate("NemoBot by Woj96", 370, 100)

$btn1 = GUICtrlCreateButton("start", 10, 10, 80, 80)

$btn2 = GUICtrlCreateButton("instrukcja", 100, 10, 80, 80)

$btn3 = GUICtrlCreateButton("Dzieki", 190, 10, 80, 80)

$btn4 = GUICtrlCreateButton("koniec", 280, 10, 80, 80)

GUISetState()

 

While 1

 

 

$msg = GUIGetMsg()

Switch $msg

 

Case $btn1

GUIDelete()

start()

Case $gui_event_close

exit

 

Case $btn2

Sleep(10)

MsgBox(0, "INFO", "strat NemoBot - HOME, STOP NemoBot - END, KONIEC - DELETE")

sleep(10)

MsgBox(0, "INFO", "Rozdzielczość 800x600 zmaksymilizowane okno Metin2")

 

MsgBox(0, "INFO", "Robaki na 1")

 

Sleep(10)

MsgBox(0, "INFO", "Nie sterowac myszką bo grozi to zaburzeniem pracy bota")

Case $gui_event_close

Exit

Case $btn3

sleep(15)

MsgBox(0, "Dzieki", "Menu głównego uzyczyłem od Wrrr")

Case $btn4

koniec()

Case $gui_event_close

exit

EndSwitch

wend

 

 

 

func start()

ToolTip("Hallo tutaj jestem ",1100,721)

Sleep(4000)

ToolTip("Za 10 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 9 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 8 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 7 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 6 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 5 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 4 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 3 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 2 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 1 sekund zaczynam łowić!",1000,721)

sleep(50)

ToolTip("Start",1000,721)

send(1)

send("{Space}")

While 1

$kolor = PixelGetColor(1000 ,7001 )

if $kolor = 0xFFFFFF Then

ToolTip("O jest ryba wyciągam ją za około 3 sekundy!",1000,721)

sleep(2650)

send("{SPACE}")

send(1)

endif

wend

 

endfunc

 

func stop()

while 1

sleep(1000)

wend

endfunc

 

func koniec()

exit

endfunc

 

 

Daje ++++

[adwi32]

1.

 

 

Przyklad to ci pojdzie jak masz windows

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$destination = "..\GUI\mslogo.jpg"

 

SplashImageOn("Splash Screen", $destination,250,50)

Sleep(3000)

SplashOff()

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

 

SplashImageOn ("tytuł okna",sciezka obrazka,szer,wys)

[adwi32]

W autoit bez przybliżania może być trudno ale możesz zrobić żeby np co 20 zarzucen wedką oddalał zabijał i przybliżał i znowu łowił

troche to skomplikowane alemyśle że możliwe

 

@D&G lol to nie double post nad mną jest jeden post innego usera

[jackraymund]

hmm co do piosenki

to możesz zrobic tak

napisac nowy skrypt

dodac do niego notrayicon i dac funkcje http://www.autoitscript.com/autoit3/docs/functions/SoundPlay.htm

a w 1 skrypcie dac sheelexecute skryptu 2

i jeżeli jest gui w programie to przy iks dodaj http://www.autoitscript.com/autoit3/docs/functions/ProcessClose.htm

[Woj96]

mozenie to wkleic do tego skryptu ???? bo jak ja wklejam to potam kicha sie robi i błedy

[jackraymund]

przyklad

SoundPlay("5. gural - dzieci kosmosu.mp3",1)

i plik musi byc razem ze skryptem

lub jest taka komenda by 2 funkcje dzialaly kiedyś mi ktoś podał ją ale już nie pamietam

to był chyba dziób tukana

[RobeM]

AdlibRegister i AdlibUnRegister