Turtlix21 Posted July 8, 2015 Posted July 8, 2015 (edited) I've problem with my game, in game we driving tank and shoot to other tanks.But when I press space shoot fly how i want but first graphic not disappear. I don't know why :C (I think u can not understand, just use code and download graphics)expandcollapse popup#include <GUIConstantsEx.au3> #include <misc.au3> #include <array.au3> #include <timers.au3> Global $vDLL = "user32.dll" ;--------------------------------------------------------------------------------------------------Kreator mapy--------------------------------------------------------------------------------------------------; $aw = 0 $as = 0 While 1 $s = InputBox("Rozmiar mapy", "Podaj poziomy rozmiar mapy" & @CRLF & "- Minimum 3" & @CRLF & "- Maksimum 50", 15) If (@error = 1) Then Exit If (StringIsDigit($s) = 1) And (($s > 50) = 0) And (($s < 3) = 0) Then ExitLoop WEnd While 1 $w = InputBox("Rozmiar mapy", "Podaj pionowy rozmiar mapy" & @CRLF & "- Minimum 3" & @CRLF & "- Maksimum 50", 15) If (@error = 1) Then Exit If (StringIsDigit($w) = 1) And (($w > 50) = 0) And (($w < 3) = 0) Then ExitLoop WEnd While 1 $roz = InputBox("Rozmiar czołgu", "Podaj rozmiar czołgu w pixelach" & @CRLF & "- Minimum 20" & @CRLF & "- Maksimum 500", 60) If (@error = 1) Then Exit If (StringIsDigit($roz) = 1) And (($roz > 500) = 0) And (($roz < 20) = 0) Then ExitLoop WEnd While 1 $zdrowie = InputBox("Zdrowie czołgu", "Podaj startowe zdrowie czołgu", 100) If (@error = 1) Then Exit If (StringIsDigit($s) = 1) Then ExitLoop WEnd Dim $check[$s * $w + 1] ;[numer checkbox'a] $mapa = GUICreate("Kreator mapy", $s * $roz, $w * $roz, 4, 4) For $l = 0 To $s * $w - 1 If ($as >= $s) Then $as = 0 $aw += 1 EndIf If $l = 0 Or $l = $s - 1 Or $l = $s * $w - 1 Or $l = $s * $w - $s Then $as += 1 ContinueLoop EndIf $check[$l + 1] = GUICtrlCreateCheckbox("", $roz * $as, $roz * $aw, 20, 20) $as += 1 Next GUISetState(@SW_SHOW) While 1 If (GUIGetMsg() = $GUI_EVENT_CLOSE) Then For $k = 1 To UBound($check) - 1 $check[$k] = GUICtrlRead($check[$k]) Next GUIDelete($mapa) ExitLoop EndIf WEnd ;--------------------------------------------------------------------------------------------------Generator mapy--------------------------------------------------------------------------------------------------; Dim $pol[$s * $w + 1][4 + 1] ;[numer pola][uchwyt, kamień, położenie1, położenie2] Dim $pczol[4 + 1][9 + 1] ;[numer czołgu][numer pola, uchwyt, kierunek, zdrowie, czy strzela, uchwyt do strzału, numer pola strzału, kierunek strzału, siła] $aw = 0 $as = 0 ;~ _ArrayDisplay($check) $czolgi = GUICreate("Czołgi", $s * $roz, $w * $roz, 4, 4) For $i = 0 To $s * $w - 1 If ($as >= $s) Then $as = 0 $aw += 1 EndIf Switch $check[$i + 1] Case 1 $pol[$i + 1][1] = GUICtrlCreatePic("mapa2.jpg", $roz * $as, $roz * $aw, $roz, $roz) $pol[$i + 1][2] = 1 $pol[$i + 1][3] = $roz * $as $pol[$i + 1][4] = $roz * $aw Case 0, 4 $pol[$i + 1][1] = GUICtrlCreatePic("mapa.jpg", $roz * $as, $roz * $aw, $roz, $roz) $pol[$i + 1][2] = 0 $pol[$i + 1][3] = $roz * $as $pol[$i + 1][4] = $roz * $aw EndSwitch $as += 1 Next ;~ _ArrayDisplay($pol) $pczol[1][1] = 1 $pczol[2][1] = $s $pczol[3][1] = $s * $w $pczol[4][1] = $s * $w - $s + 1 $pczol[1][2] = GUICtrlCreatePic("czolg1p.jpg", $pol[$pczol[1][1]][3], $pol[$pczol[1][1]][4], $roz, $roz) $pczol[2][2] = GUICtrlCreatePic("czolg2d.jpg", $pol[$pczol[2][1]][3], $pol[$pczol[2][1]][4], $roz, $roz) $pczol[3][2] = GUICtrlCreatePic("czolg3l.jpg", $pol[$pczol[3][1]][3], $pol[$pczol[3][1]][4], $roz, $roz) $pczol[4][2] = GUICtrlCreatePic("czolg4g.jpg", $pol[$pczol[4][1]][3], $pol[$pczol[4][1]][4], $roz, $roz) $pczol[1][3] = "p" $pczol[2][3] = "d" $pczol[3][3] = "l" $pczol[4][3] = "g" $pczol[1][4] = $zdrowie $pczol[2][4] = $zdrowie $pczol[3][4] = $zdrowie $pczol[4][4] = $zdrowie For $x = 1 To 4 $pczol[$x][5] = 0 $pczol[$x][6] = 0 $pczol[$x][7] = 0 $pczol[$x][8] = 0 Next GUICtrlDelete($pol[$pczol[1][1]][1]) GUICtrlDelete($pol[$pczol[2][1]][1]) GUICtrlDelete($pol[$pczol[3][1]][1]) GUICtrlDelete($pol[$pczol[4][1]][1]) ;~ _ArrayDisplay($pczol) Func czolg($NumCzolgu, $rzadanie) If ($NumCzolgu > 4) Or ($NumCzolgu < 1) Then MsgBox(16, "BŁAD", "Niepoprawny numer czołgu", 5) Return "" EndIf $NumPola = $pczol[$NumCzolgu][1] $RzadanePole = $NumPola + $rzadanie $CzyPoleZajete = 0 If IsInt($NumPola / $s) And $RzadanePole = $NumPola + 1 Then $CzyPoleZajete = 1 If IsInt(($NumPola - 1) / $s) And $RzadanePole = $NumPola - 1 Then $CzyPoleZajete = 1 If $RzadanePole > $w * $s Or $RzadanePole < 1 Then $CzyPoleZajete = 1 If $RzadanePole = $pczol[1][1] Or $RzadanePole = $pczol[2][1] Or $RzadanePole = $pczol[3][1] Or $RzadanePole = $pczol[4][1] Then $CzyPoleZajete = 1 Switch $rzadanie Case $s $RzadanieKierunku = "d" Case -$s $RzadanieKierunku = "g" Case 1 $RzadanieKierunku = "p" Case -1 $RzadanieKierunku = "l" Case Else MsgBox(16, "BŁĄD", "Niepoprawne żadanie kierunku", 5) Return "" EndSwitch $CzyUsunietyStaryCzolg = GUICtrlDelete($pczol[$NumCzolgu][2]) If $pczol[$NumCzolgu][3] = $RzadanieKierunku And $CzyPoleZajete = 0 And $pol[$RzadanePole][2] = 0 Then ;~ $ifelse = "if" $pczol[$NumCzolgu][1] = $RzadanePole $pol[$NumPola][1] = GUICtrlCreatePic("mapa.jpg", $pol[$NumPola][3], $pol[$NumPola][4], $roz, $roz) GUICtrlDelete($pol[$RzadanePole][1]) $pol[$RzadanePole][1] = "del" $pczol[$NumCzolgu][2] = GUICtrlCreatePic("czolg" & $NumCzolgu & $RzadanieKierunku & ".jpg", $pol[$RzadanePole][3], $pol[$RzadanePole][4], $roz, $roz) Else ;~ $ifelse = "else" $pczol[$NumCzolgu][3] = $RzadanieKierunku $pczol[$NumCzolgu][2] = GUICtrlCreatePic("czolg" & $NumCzolgu & $RzadanieKierunku & ".jpg", $pol[$pczol[$NumCzolgu][1]][3], $pol[$pczol[$NumCzolgu][1]][4], $roz, $roz) EndIf Sleep(400) ;~ MsgBox(0, "", "NumCzolgu = " & $NumCzolgu & @CRLF & "rzadanie: " & $rzadanie & @CRLF & "NumPola: " & $NumPola & @CRLF & "RzadanePole: " & $RzadanePole & @CRLF & "RzadanieKierunku: " & $RzadanieKierunku & @CRLF & "CzyUsunietoStaryCzolg: " & $CzyUsunietyStaryCzolg & @CRLF & "if/else: " & $ifelse & @CRLF & "Numer pola po zmianie(istotne przy if): " & $pczol[$NumCzolgu][1] & @CRLF & "Uchwyt starej lokalizacji czołgu (teraz mapa)(istotne przy if): " & $pol[$NumPola][1] & @CRLF & "Uchwyt pola mapy na którym jest czołg (del)(istotne przy if): " & $pol[$RzadanePole][1] & @CRLF & "Uchwyt nowej grafiki czołgu: " & $pczol[$NumCzolgu][2] & @CRLF & "Kierunek czołgu (istotne przy else): " & $pczol[$NumCzolgu][3]) EndFunc ;==>czolg Func strzal($NumCzolgu) If ($NumCzolgu > 4) Or ($NumCzolgu < 1) Then MsgBox(16, "BŁAD", "Niepoprawny numer czołgu", 5) Return "" EndIf $NumPola = $pczol[$NumCzolgu][1] $KierunekCzolgu = $pczol[$NumCzolgu][3] Switch $KierunekCzolgu Case "g" $KierunekStrzalu = -$s Case "d" $KierunekStrzalu = $s Case "l" $KierunekStrzalu = -1 Case "p" $KierunekStrzalu = 1 EndSwitch $RzadanePole = $NumPola + $KierunekStrzalu If IsInt($NumPola / $s) And $RzadanePole = $NumPola + 1 Then Return "" If IsInt(($NumPola - 1) / $s) And $RzadanePole = $NumPola - 1 Then Return "" If $RzadanePole > $w * $s Or $RzadanePole < 1 Then Return "" If $pol[$RzadanePole][2] = 1 Then Return "" Switch $RzadanePole Case $pczol[1][1] $pczol[1][4] -= 100 Return "" Case $pczol[2][1] $pczol[2][4] -= 100 Return "" Case $pczol[3][1] $pczol[3][4] -= 100 Return "" Case $pczol[4][1] $pczol[4][4] -= 100 Return "" EndSwitch $pczol[$NumCzolgu][5] = 1 GUICtrlDelete($pol[$RzadanePole][1]) $pol[$RzadanePole][1] = "del" $pczol[$NumCzolgu][6] = GUICtrlCreatePic("strzal100.jpg", $pol[$RzadanePole][3], $pol[$RzadanePole][4], $roz, $roz) $pczol[$NumCzolgu][7] = $RzadanePole $pczol[$NumCzolgu][8] = $KierunekStrzalu $pczol[$NumCzolgu][9] = 100 AdlibRegister("strzal" & $NumCzolgu) EndFunc ;==>strzal ;[numer czołgu][numer pola, uchwyt, kierunek, zdrowie, czy strzela, uchwyt do strzału, numer pola strzału, kierunek strzału, siła] Func strzal1() ;~ _ArrayDisplay($pczol, "pczol") ;~ _ArrayDisplay($pol, "pol") $NumPola = $pczol[1][7] $RzadanePole = $NumPola + $pczol[1][8] $Sila = $pczol[1][9] - 25 If $RzadanePole > $w * $s Or $RzadanePole < 1 Then $pczol[1][5] = 0 AdlibUnRegister("strzal1") Return "" EndIf If $pol[$RzadanePole][2] = 1 Then AdlibUnRegister("strzal1") $pczol[1][5] = 0 GUICtrlDelete($pczol[1][6]) $pczol[1][6] = "del" $pol[$NumPola][1] = GUICtrlCreatePic("mapa.jpg", $pol[$NumPola][3], $pol[$NumPola][4], $roz, $roz) Return "" EndIf If $pczol[1][9] = 25 Then AdlibUnRegister("strzal1") $pczol[1][5] = 0 GUICtrlDelete($pczol[1][6]) $pczol[1][6] = "del" $pol[$NumPola][1] = GUICtrlCreatePic("mapa.jpg", $pol[$NumPola][3], $pol[$NumPola][4], $roz, $roz) Return "" EndIf ;~ MsgBox(0,"",$pczol[1][6]) $a = GUICtrlDelete($pczol[1][6]) ;~ ConsoleWrite($Sila & @CRLF & $a & @CRLF) $pczol[1][6] = "del" ;~ MsgBox(0,"",$a) $pol[$NumPola][1] = GUICtrlCreatePic("mapa.jpg", $pol[$NumPola][3], $pol[$NumPola][4], $roz, $roz) If IsInt($NumPola / $s) And $RzadanePole = $NumPola + 1 Then $pczol[1][5] = 0 AdlibUnRegister("strzal1") Return "" EndIf If IsInt(($NumPola - 1) / $s) And $RzadanePole = $NumPola - 1 Then $pczol[1][5] = 0 AdlibUnRegister("strzal1") Return "" EndIf Switch $RzadanePole Case $pczol[1][1] $pczol[1][4] -= $Sila $pczol[1][5] = 0 AdlibUnRegister("strzal1") Return "" Case $pczol[2][1] $pczol[2][4] -= $Sila $pczol[1][5] = 0 AdlibUnRegister("strzal1") Return "" Case $pczol[3][1] $pczol[3][4] -= $Sila $pczol[1][5] = 0 AdlibUnRegister("strzal1") Return "" Case $pczol[4][1] $pczol[4][4] -= $Sila $pczol[1][5] = 0 AdlibUnRegister("strzal1") Return "" EndSwitch GUICtrlDelete($pol[$RzadanePole][1]) $pol[$RzadanePole][1] = "del" $pczol[1][6] = GUICtrlCreatePic("strzal" & $Sila & ".jpg", $pol[$RzadanePole][3], $pol[$RzadanePole][4], $roz, $roz) $pczol[1][7] = $RzadanePole $pczol[1][9] = $Sila EndFunc ;==>strzal1 Func strzal2() Sleep(1000) EndFunc ;==>strzal2 Func strzal3() Sleep(1000) EndFunc ;==>strzal3 Func strzal4() Sleep(1000) EndFunc ;==>strzal4 GUISetState(@SW_SHOW) ;--------------------------------------------------------------------------------------------------Pętla i Multiplayer--------------------------------------------------------------------------------------------------; ;~ Func komendy($kom) ;~ $kom = StringSplit($kom, ":") ;~ Switch $kom[1] ;~ Case "connect" ;~ EndSwitch ;~ EndFunc While 1 If (GUIGetMsg() = $GUI_EVENT_CLOSE) Then ExitLoop If _IsPressed("1B", $vDLL) And WinActive($czolgi) Then Exit If _IsPressed("25", $vDLL) And WinActive($czolgi) Then czolg(1, -1) If _IsPressed("26", $vDLL) And WinActive($czolgi) Then czolg(1, -$s) If _IsPressed("27", $vDLL) And WinActive($czolgi) Then czolg(1, 1) If _IsPressed("28", $vDLL) And WinActive($czolgi) Then czolg(1, $s) If _IsPressed("20", $vDLL) And WinActive($czolgi) Then strzal(1) ;If _IsPressed("41", $vDLL) And WinActive($czolgi) Then czolg(2, -1) ;If _IsPressed("57", $vDLL) And WinActive($czolgi) Then czolg(2, -$s) ;If _IsPressed("44", $vDLL) And WinActive($czolgi) Then czolg(2, 1) ;If _IsPressed("53", $vDLL) And WinActive($czolgi) Then czolg(2, $s) ;If $pczol[1][4] < 1 Then ;komenda do odłączenia czołgu 1 ;If $pczol[2][4] < 1 Then ;komenda do odłączenia czołgu 2 ;If $pczol[3][4] < 1 Then ;komenda do odłączenia czołgu 3 ;If $pczol[4][4] < 1 Then ;komenda do odłączenia czołgu 4 WEnd ;~ Dim $Gracz[4 + 1][3 + 1] ;[numer gracza][ip, port, socket] ;~ Dim $Serv[3 + 1] = ["25.69.134.219", "21917"] ;[ip, port, socket] ;~ Dim $Komenda ;~ UDPStartup() ;~ $Serv[3] = UDPBind($Serv[1], $Serv[2]) ;~ While 1 ;~ If (GUIGetMsg() = $GUI_EVENT_CLOSE) Then ExitLoop ;~ $Komenda = UDPRecv($Serv[3], 2048) ;~ If $Komenda <> "" Then ;~ komendy($Komenda) ;~ EndIf ;~ WEnd(I think problem is in "strzal" or "strzal1" functions) Edited July 8, 2015 by Melba23
Moderators Melba23 Posted July 8, 2015 Moderators Posted July 8, 2015 Turtlix21,You appear not to have read the Forum rules since your arrival. Please do read them - particularly the bit about not discussing game automation - before you post again.M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Reveal hidden contents ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
Moderators Melba23 Posted July 8, 2015 Moderators Posted July 8, 2015 Turtlix21,I have just been reminded that your last thread was about your own game written in AutoIt - and I have just been interrupted by your PM telling me the same thing. Apologies - thread reopened.M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Reveal hidden contents ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
Developers Jos Posted July 8, 2015 Developers Posted July 8, 2015 Just blame the jet-lag or something SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past.
mLipok Posted July 11, 2015 Posted July 11, 2015 Please post zip with jpg. It should be much easy to help you. I will cleanup & check your script. Signature beginning:* Please remember: "AutoIt"..... * Wondering who uses AutoIt and what it can be used for ? * Forum Rules ** ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button: Reveal hidden contents Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 * My contribution to others projects or UDF based on others projects: * _sql.au3 UDF * POP3.au3 UDF * RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * Useful links: * Forum Rules * Forum etiquette * Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX IE Related: * How to use IE.au3 UDF with AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions * EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *I also encourage you to check awesome @trancexx code: * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors * HTML editor * winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/ "Homo sum; humani nil a me alienum puto" - Publius Terentius Afer"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming" , be and \\//_. Anticipating Errors : "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty." Signature last update: 2023-04-24
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now