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

Niepokonane Kółko I Krzyżyk

4ggr35510n

Rekomendowane odpowiedzi

4ggr35510n Mentor

4ggr35510n

Opublikowano
Mentor

4ggr35510n

Opublikowano

Kod nie jest mojego autorstwa. Wyszeperany na autoitscripts.com.

 

Plusy za pokonanie kompa :P

 

 

#include <GUIConstants.au3>
#include <ARRAY.AU3>

Global $turn = True;true means player false means ai
Global $grid[4][4]
Global $button[4][4]
Global $string_eval[9]
Global $content[9]
Global $moves = 0
Global $computer_win = 0
Global $total = 0
Global $playerwin = 0

$content[1] = "31,32,33"
$content[2] = "21,22,23"
$content[3] = "11,12,13"
$content[4] = "11,22,33"
$content[5] = "11,21,31"
$content[6] = "12,22,32"
$content[7] = "13,23,33"
$content[8] = "13,22,31"

$Form1 = GUICreate("Beat-me Tic-Tac-Toe", 326, 347, 193, 125)
GUICtrlCreateLabel("Computer Win", 10, 10, 71, 17)
$cwin = GUICtrlCreateLabel("00", 90, 10, 25, 17)
GUICtrlCreateLabel("Player Win", 140, 10, 55, 17)
$pwin = GUICtrlCreateLabel("00", 205, 10, 25, 17)
GUICtrlCreateLabel("Games", 250, 10, 37, 17)
$games = GUICtrlCreateLabel("00", 295, 10, 16, 17)
$Button[1][1] = GUICtrlCreateButton("", 44, 72, 57, 57, 0)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
$Button[1][2] = GUICtrlCreateButton("", 134, 72, 57, 57, 0)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
$Button[1][3] = GUICtrlCreateButton("", 224, 72, 57, 57, 0)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
$Button[2][3] = GUICtrlCreateButton("", 224, 152, 57, 57, 0)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
$Button[2][1] = GUICtrlCreateButton("", 44, 152, 57, 57, 0)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
$Button[2][2] = GUICtrlCreateButton("", 134, 152, 57, 57, 0)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
$Button[3][3] = GUICtrlCreateButton("", 224, 232, 57, 57, 0)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
$Button[3][2] = GUICtrlCreateButton("", 134, 232, 57, 57, 0)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
$Button[3][1] = GUICtrlCreateButton("", 44, 232, 57, 57, 0)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Press any Button", 100, 40, 200, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$reset = GUICtrlCreateButton("Reset", 112, 312, 97, 25, 0)
GUISetState(@SW_SHOW)
For $i = 1 to 3;column
   For $j = 1 to 3;row
       $grid[$i][$j] = 0
   Next
Next

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
       Case $GUI_EVENT_CLOSE
           Exit
       Case $button [1][1]
           If $grid[1][1] = 0 And BitAND(GUICtrlGetState($button [1][1]),$GUI_ENABLE) Then
               _clicked (1,1)
           EndIf
        Case $button [1][2]
           If $grid[1][2] = 0 And BitAND(GUICtrlGetState($button [1][2]),$GUI_ENABLE) Then
               _clicked (1,2)
           EndIf

       Case $button [1][3]
           If $grid[1][3] = 0 And BitAND(GUICtrlGetState($button [1][3]),$GUI_ENABLE) Then
               _clicked (1,3)
           EndIf

       Case $button [2][1]
           If $grid[2][1] = 0 And BitAND(GUICtrlGetState($button [2][1]),$GUI_ENABLE) Then
               _clicked (2,1)
           EndIf

       Case $button [2][2]
           If $grid[2][2] = 0 And BitAND(GUICtrlGetState($button [2][2]),$GUI_ENABLE) Then
               _clicked (2,2)
           EndIf

       Case $button [2][3]
           If $grid[2][3] = 0 And BitAND(GUICtrlGetState($button [2][3]),$GUI_ENABLE) Then
               _clicked (2,3)
           EndIf

       Case $button [3][1]
           If $grid[3][1] = 0 And BitAND(GUICtrlGetState($button [3][1]),$GUI_ENABLE) Then
               _clicked (3,1)
           EndIf

       Case $button[3][2]
            If $grid[3][2] = 0 And BitAND(GUICtrlGetState($button [3][2]),$GUI_ENABLE) Then
               _clicked (3,2)
           EndIf

       Case $button [3][3]
           If $grid[3][3] = 0 And BitAND(GUICtrlGetState($button [3][3]),$GUI_ENABLE) Then
               _clicked (3,3)
           EndIf
       Case $reset
           _ResetGrid()
   EndSwitch
   If $moves = 9 Then
       Select
           Case $computer_win = 1
               GUICtrlSetData ($Label1, "Computer Wins")
               $moves = 0
           Case $playerwin = 1
               GUICtrlSetData ($Label1, "You Win - you shouldn't have.")
               $moves = 0
           Case $computer_win = 0 And $playerwin = 0
               GUICtrlSetData ($Label1, "Nobody won")
               $moves = 0
       EndSelect
   EndIf
WEnd

Func string_eval()
   For $j=1 To 8
       $string_eval[$j] = 0
   Next
   For $j=1 To 3
       $string_eval[1] +=  $grid[3][$j]
       $string_eval[2] +=  $grid[2][$j]
       $string_eval[3] +=  $grid[1][$j]
       $string_eval[5] +=  $grid[$j][1]
       $string_eval[6] +=  $grid[$j][2]
       $string_eval[7] +=  $grid[$j][3]
   Next
   $string_eval[4] =  $grid[1][1]+$grid[2][2]+$grid[3][3]
   $string_eval[8] =  $grid[1][3]+$grid[2][2]+$grid[3][1]
EndFunc

Func _clicked ($row, $column)
   If $moves = 9 Then Return
   Local $found_win = 0
       If $turn = true Then
           If BitAND(GUICtrlGetState($button [$row][$column]),$GUI_ENABLE) Then
               _SetButton($button[$row][$column], $grid[$row][$column], 5, "Thinking...", "X")
               $turn = False
               string_eval()
               For $i=1 To 8
                   If $string_eval[$i] = 15 Then   ;player won
                       $playerwin = 1
                       $moves = 9
                       Return
                   EndIf
               Next
               If $moves = 9 Then Return
           Else
               Return
           EndIf
       EndIf
       If $turn = False Then
           Select
               Case $moves = 1
                   If $grid[2][2] = 5 Then
                       _SetButton($button[1][1], $grid[1][1], 1, "Your Turn...")
                       If $moves = 9 Then Return
                       $turn = True
                       Return
                   EndIf
                   If $grid[2][2] = 0 Then
                       _SetButton($button[2][2], $grid[2][2], 1, "Your Turn...")
                       If $moves = 9 Then Return
                       $turn = True
                       Return
                   EndIf
               Case $moves >2
                   string_eval()
                   For $i=1 To 8
                       If $string_eval[$i] = 2 Then    ;go for win
                           $found_win = 1
                           $row_played = StringSplit($content[$i], ",")
                           For $k=1 To 3
                               $ids = StringSplit($row_played[$k], "")
                               If $grid[$ids[1]][$ids[2]] = 0 Then     ;3rd empty - play there
                                   GUICtrlSetData ($button[$ids[1]][$ids[2]], "O")
                                   GUICtrlSetState ($button[$ids[1]][$ids[2]], $gui_disable)
                                   $computer_win=1
                                   $grid[$ids[1]][$ids[2]] = 1
                                   $moves = 9
                                   Return
                               EndIf
                           Next
                       EndIf
                   Next
                   For $i=1 To 8
                       If $string_eval[$i] = 10 Then   ;2 in a row from player
                           $row_played = StringSplit($content[$i], ",")
                           For $k=1 To 3
                               $ids = StringSplit($row_played[$k], "")
                               If $grid[$ids[1]][$ids[2]] = 0 Then     ;3rd empty - play there
                                   _SetButton($button[$ids[1]][$ids[2]], $grid[$ids[1]][$ids[2]], 1, "Your Turn...")
                                   If $moves = 9 Then Return
                                   $turn = True
                                   Return
                               EndIf
                           Next
                       EndIf
                   Next
                   If $string_eval[4] = 11 Then
                       If $grid [1][1] = 5 And $grid [3][3] = 5 And $moves < 4 Then
                           _SetButton($button[1][2], $grid[1][2], 1, "Your Turn...")
                           If $moves = 9 Then Return
                           $turn = True
                           Return
                       EndIf
                       If $grid [2][2] = 5 And $grid [3][3] = 5 And $moves < 4 Then
                           _SetButton($button[1][3], $grid[1][3], 1, "Your Turn...")
                           If $moves = 9 Then Return
                           $turn = True
                           Return
                       EndIf
                   EndIf
                   If $grid [1][2] = 5 And $grid [3][3] = 5 And $moves < 4 Then
                       _SetButton($button[1][3], $grid[1][3], 1, "Your Turn...")
                       If $moves = 9 Then Return
                       $turn = True
                       Return
                   EndIf
                   If $grid [2][3] = 5 And $grid [3][2] = 5 And $moves < 4 Then
                       _SetButton($button[3][3], $grid[3][3], 1, "Your Turn...")
                       If $moves = 9 Then Return
                       $turn = True
                       Return
                   EndIf
                   If $grid [1][2] = 5 And $grid [3][1] = 5 And $moves < 4 Then
                       _SetButton($button[1][1], $grid[1][1], 1, "Your Turn...")
                       If $moves = 9 Then Return
                       $turn = True
                       Return
                   EndIf
                   For $x=1 To 8
                       If $string_eval[$x] <> 10 And $string_eval[$x] <> 2 Then    ;2 in a row from player
                           If $string_eval[$x] = 1 Then
                               $row_played = StringSplit($content[$x], ",")
                               For $k=1 To 3
                                   $ids = StringSplit($row_played[$k], "")
                                   If $grid[$ids[1]][$ids[2]] = 0 Then     ;3rd empty - play there
                                       _SetButton($button[$ids[1]][$ids[2]], $grid[$ids[1]][$ids[2]], 1, "Your Turn...")
                                       If $moves = 9 Then Return
                                       $turn = True
                                       Return
                                   EndIf
                               Next
                           ElseIf $string_eval[$x] = 5 Then
                               $row_played = StringSplit($content[$x], ",")
                               For $k=1 To 3
                                   $ids = StringSplit($row_played[$k], "")
                                   If $grid[$ids[1]][$ids[2]] = 0 Then     ;3rd empty - play there
                                       _SetButton($button[$ids[1]][$ids[2]], $grid[$ids[1]][$ids[2]], 1, "Your Turn...")
                                       If $moves = 9 Then Return
                                       $turn = True
                                       Return
                                   EndIf
                               Next
                           EndIf
                       EndIf
                   Next
           EndSelect
       EndIf
EndFunc

Func _SetButton($crt_pressed, ByRef $grid_pos, $grid_val, $label_txt, $label_but = "O")
   GUICtrlSetData ($crt_pressed, $label_but)
   GUICtrlSetState ($crt_pressed, $gui_disable)
   GUICtrlSetData ($Label1, $label_txt)
   $grid_pos = $grid_val
   $moves +=1
EndFunc

Func _ResetGrid()
   If $computer_win = 1 Then GUICtrlSetData($cwin, GUICtrlRead($cwin)+1)
   If $playerwin = 1 Then GUICtrlSetData($pwin, GUICtrlRead($pwin)+1)
   GUICtrlSetData ($Label1, "Your Turn")
   For $i = 1 to 3;column
       For $j = 1 to 3;row
           $grid[$i][$j] = 0
           GUICtrlSetState($button[$i][$j], $GUI_ENABLE)
           GUICtrlSetData($button[$i][$j], "")
       Next
   Next
   $moves = 0
   $turn = True
   $total +=1
   $computer_win = 0
   $playerwin = 0
   GUICtrlSetData($games, $total)
EndFunc

 

Ta sygnatura jest pusta.

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

Opublikowano

Dziób tukana kiedyś mi dał taki skrypt. Też się nie da wygrać :P

 

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $Klikniete[3][3] = [["", "", ""],["", "", ""],["", "", ""]]
Global $Button[3][3], $win_Remis = 0, $pozm_X, $pion_Y, $GraczCzyKomp = "X"
Global $Taktyka_Ataku, $licz_kliki = 0, $win_player = 0, $win_comp = 0
$gui = GUICreate("Kolko i Krzyzyk 0.1", 270, 310, -1, -1, -1, $WS_EX_COMPOSITED)
GUISetBkColor(0xd6fea9)
$gui2 = GUICreate("", 270, 310, 0, 0, $WS_POPUP, $WS_EX_MDICHILD, $gui)
GUISetBkColor(0x000000)
WinSetTrans($gui2, "", 180)
$ButtonStart = GUICtrlCreateButton("Chcesz Wygrac?", 20, 120, 230, 80)
GUICtrlSetFont(-1, 14, 800)
GUISetState(@SW_SHOW)
GUISwitch($gui)
GUICtrlCreateGroup("", 5, 5, 260, 35)
$Label1 = GUICtrlCreateLabel("Komp X: " & $win_comp, 10, 15, 90, 17)
GUICtrlSetFont(-1, 10, 800)
$Label2 = GUICtrlCreateLabel("Gracz 0: " & $win_player, 100, 15, 90, 17)
GUICtrlSetFont(-1, 10, 800)
$Label3 = GUICtrlCreateLabel("Remis: " & $win_Remis, 190, 15, 74, 17)
GUICtrlSetFont(-1, 10, 800)
For $pozm_X = 0 To 2
       For $pion_Y = 0 To 2
               $Button[$pozm_X][$pion_Y] = GUICtrlCreateButton("", 5 + (90 * $pozm_X), 45 + (90 * $pion_Y), 80, 80)
               GUICtrlSetBkColor(-1, 0xFFFFFF)
               GUICtrlSetFont(-1, 20, 800)
               GUICtrlSetState(-1, $GUI_ENABLE + $GUI_Hide)
       Next
Next
GUISetState(@SW_SHOW)
Sleep(2000)
GUICtrlSetData($ButtonStart, "Pragnienie Nie Ma Szans")
Sleep(2000)
GUICtrlSetData($ButtonStart, "START")
petla()
Func petla()
       While 1
               $nMsg = GUIGetMsg()
               Switch $nMsg
                       Case $GUI_EVENT_CLOSE
                               Exit
               EndSwitch
               For $pozm_X = 0 To 2
                       For $pion_Y = 0 To 2
                               Switch $nMsg
                                       Case $ButtonStart
                                               GUISetState(@SW_HIDE, $gui2)
                                               reset("SHOW")
                                       Case $Button[$pozm_X][$pion_Y]
                                               $licz_kliki += 1
                                               gracz_klika($pozm_X, $pion_Y)
                               EndSwitch
                       Next
               Next
               If $GraczCzyKomp = "X" Then
                       boot()
               EndIf
               Sleep(20)
       WEnd
EndFunc   ;==>petla
Func test()
       Local $Znaleziono = "*|"
       For $pozm_X = 0 To 2
               For $pion_Y = 0 To 2
                       $Znaleziono &= ($Klikniete[$pozm_X][$pion_Y])
               Next
               $Znaleziono &= "|"
       Next
       For $pion_Y = 0 To 2
               For $pozm_X = 0 To 2
                       $Znaleziono &= ($Klikniete[$pozm_X][$pion_Y])
               Next
               $Znaleziono &= "|"
       Next
       Local $przekatna
       For $przekatna = 0 To 2
               $Znaleziono &= ($Klikniete[$przekatna][$przekatna])
       Next
       $Znaleziono &= "|"
       For $pion_Y = 0 To 2
               For $pozm_X = 0 To 2
                       If $pion_Y + $pozm_X = 2 Then
                               $Znaleziono &= ($Klikniete[$pozm_X][$pion_Y])
                       EndIf
               Next
       Next
       $Znaleziono &= "|"
       If StringInStr($Znaleziono, "|XXX|") > 0 Then
               $win_comp += 1
               GUICtrlSetData($Label1, "Komp X: " & $win_comp)
               pokaz_gui2("Wygral: KOMPUTER")
       ElseIf StringInStr($Znaleziono, "|OOO|") > 0 Then
               $win_player += 1
               GUICtrlSetData($Label2, "Gracz O: " & $win_player)
               pokaz_gui2("Wygral: GRACZ")
       Else
               If $licz_kliki > 3 And $GraczCzyKomp = "X" Then
                       $win_Remis += 1
                       GUICtrlSetData($Label3, "Remis: " & $win_Remis)
                       pokaz_gui2("REMIS")
               EndIf
       EndIf
EndFunc   ;==>test
Func pokaz_gui2($komunikat)
       GUICtrlSetData($ButtonStart, $komunikat)
       GUISetState(@SW_SHOW, $gui2)
       $licz_kliki = 999
       petla()
EndFunc   ;==>pokaz_gui2
Func reset($show_or_hide = "")
       For $pozm_X = 0 To 2
               For $pion_Y = 0 To 2
                       $Klikniete[$pozm_X][$pion_Y] = ""
                       If $show_or_hide = "SHOW" Then
                               GUICtrlSetState($Button[$pozm_X][$pion_Y], $GUI_ENABLE + $GUI_SHOW)
                       Else
                               GUICtrlSetState($Button[$pozm_X][$pion_Y], $GUI_ENABLE)
                       EndIf
                       GUICtrlSetData($Button[$pozm_X][$pion_Y], "")
                       GUICtrlSetBkColor($Button[$pozm_X][$pion_Y], 0xFFFFFF)
               Next
       Next
       $licz_kliki = 0
       $GraczCzyKomp = "X"
EndFunc   ;==>reset
Func gracz_klika($pozm_X, $pion_Y)
       If $GraczCzyKomp = "O" Then
               GUICtrlSetState($Button[$pozm_X][$pion_Y], $GUI_DISABLE)
               GUICtrlSetData($Button[$pozm_X][$pion_Y], "O")
               GUICtrlSetBkColor($Button[$pozm_X][$pion_Y], 0xFFFF00)
               $Klikniete[$pozm_X][$pion_Y] = "O"
               test()
               $GraczCzyKomp = "X"
       EndIf
EndFunc   ;==>gracz_klika
Func boot_klika($pozm_X, $pion_Y)
       If $GraczCzyKomp = "X" Then
               GUICtrlSetState($Button[$pozm_X][$pion_Y], $GUI_DISABLE)
               GUICtrlSetData($Button[$pozm_X][$pion_Y], "X")
               GUICtrlSetBkColor($Button[$pozm_X][$pion_Y], 0x000000)
               $Klikniete[$pozm_X][$pion_Y] = "X"
               test()
               $GraczCzyKomp = "O"
       EndIf
EndFunc   ;==>boot_klika
Func boot_klika_dobija($pozm_X, $pion_Y)
       If $Klikniete[$pozm_X][$pion_Y] <> "O" And $Klikniete[$pozm_X][$pion_Y] <> "X" Then
               GUICtrlSetState($Button[$pozm_X][$pion_Y], $GUI_DISABLE)
               GUICtrlSetData($Button[$pozm_X][$pion_Y], "X")
               GUICtrlSetBkColor($Button[$pozm_X][$pion_Y], 0x000000)
               $Klikniete[$pozm_X][$pion_Y] = "X"
               test()
               $GraczCzyKomp = "O"
               petla()
       EndIf
EndFunc   ;==>boot_klika_dobija
Func boot()
       If $licz_kliki = 0 Then $Taktyka_Ataku = Random(1, 3, 1)
       If $Taktyka_Ataku = 1 Then
               If $licz_kliki = 0 Then
                       boot_klika(1, 1)
               EndIf
               If $licz_kliki = 1 Then
                       Local $okreg[8][2] = [[0, 0],[1, 0],[2, 0],[2, 1],[2, 2],[1, 2],[0, 2],[0, 1]]
                       Local $pozycjaa
                       For $idx = 0 To 7
                               If $Klikniete[$okreg[$idx][0]][$okreg[$idx][1]] = "O" Then $pozycjaa = $idx
                       Next
                       Local $random = Random(1, 2, 1)
                       If $random = 1 Then $pozycjaa += 3
                       If $random = 2 Then $pozycjaa += 5
                       If $pozycjaa > 7 Then $pozycjaa -= 8
                       boot_klika($okreg[$pozycjaa][0], $okreg[$pozycjaa][1])
               EndIf
       EndIf
       If $Taktyka_Ataku = 2 Then
               If $licz_kliki = 0 Then
                       Local $rogi[4][2] = [[0, 0],[2, 0],[2, 2],[0, 2]]
                       Local $pozycjaa = Random(0, 3, 1)
                       boot_klika($rogi[$pozycjaa][0], $rogi[$pozycjaa][1])
               EndIf
               If $licz_kliki = 1 Then
                       If $Klikniete[1][1] = "O" Then
                               Local $okreg[8][2] = [[0, 0],[1, 0],[2, 0],[2, 1],[2, 2],[1, 2],[0, 2],[0, 1]]
                               Local $pozycjaa
                               For $idx = 0 To 7
                                       If $Klikniete[$okreg[$idx][0]][$okreg[$idx][1]] = "X" Then $pozycjaa = $idx
                               Next
                               $pozycjaa += 4
                               If $pozycjaa > 7 Then $pozycjaa -= 8
                               boot_klika($okreg[$pozycjaa][0], $okreg[$pozycjaa][1])
                       Else
                               Local $rogi[4][2] = [[0, 0],[2, 0],[2, 2],[0, 2]]
                               For $idx = 0 To 3
                                       If $Klikniete[$rogi[$idx][0]][$rogi[$idx][1]] = "X" Then boot_klika(1, 1)
                               Next
                       EndIf
               EndIf
       EndIf
       If $Taktyka_Ataku = 3 Then
               If $licz_kliki = 0 Then
                       Local $boki[4][2] = [[1, 0],[2, 1],[1, 2],[0, 1]]
                       Local $pozycjaa = Random(0, 3, 1)
                       boot_klika($boki[$pozycjaa][0], $boki[$pozycjaa][1])
               EndIf
               If $licz_kliki = 1 Then
                       Local $okreg[8][2] = [[0, 0],[1, 0],[2, 0],[2, 1],[2, 2],[1, 2],[0, 2],[0, 1]]
                       Local $pozycja_bot
                       Local $pozycja_gracz
                       For $idx = 0 To 7
                               If $Klikniete[$okreg[$idx][0]][$okreg[$idx][1]] = "X" Then $pozycja_bot = $idx
                       Next
                       For $idx = 0 To 7
                               If $Klikniete[$okreg[$idx][0]][$okreg[$idx][1]] = "O" Then $pozycja_gracz = $idx
                       Next
                       If $Klikniete[1][1] = "O" Then
                               Local $random = Random(1, 2, 1)
                               If $random = 1 Then $pozycja_bot += 1
                               If $random = 2 Then $pozycja_bot += 7
                               If $pozycja_bot > 7 Then $pozycja_bot -= 8
                               boot_klika($okreg[$pozycja_bot][0], $okreg[$pozycja_bot][1])
                       ElseIf $Klikniete[1][1] <> "O" Then
                               Local $pozycjaa
                               $pozycjaa = $pozycja_gracz - $pozycja_bot
                               If $pozycjaa > 7 Then $pozycjaa -= 8
                               If $pozycjaa < 0 Then $pozycjaa += 8
                               If $pozycjaa <> 4 Then
                                       boot_klika(1, 1)
                               Else
                                       Local $random = Random(1, 2, 1)
                                       If $random = 1 Then $pozycja_bot += 1
                                       If $random = 2 Then $pozycja_bot += 7
                                       If $pozycja_bot > 7 Then $pozycja_bot -= 8
                                       boot_klika($okreg[$pozycja_bot][0], $okreg[$pozycja_bot][1])
                               EndIf
                       EndIf
               EndIf
       EndIf
       If $licz_kliki = 2 Or $licz_kliki = 3 Or $licz_kliki = 4 Then
               dobijanie()
       EndIf
EndFunc   ;==>boot
Func dobijanie()
       Local $pion_Y, $pozm_X
       Local $Znaleziono = "*|"
       Local $cpt
       Local $Co_szuka
       For $cpt = 0 To 1 Step 1
               If $cpt = 0 Then $Co_szuka = "|XX|"
               If $cpt = 1 Then $Co_szuka = "|OO|"
               $Znaleziono = "*|"
               For $pozm_X = 0 To 2
                       For $pion_Y = 0 To 2
                               $Znaleziono &= ($Klikniete[$pozm_X][$pion_Y])
                       Next
                       $Znaleziono &= "|"
                       If StringInStr($Znaleziono, $Co_szuka) > 0 Then
                               For $pion_Y = 0 To 2
                                       boot_klika_dobija($pozm_X, $pion_Y)
                               Next
                       EndIf
               Next
               $Znaleziono = "*|"
               For $pion_Y = 0 To 2
                       For $pozm_X = 0 To 2
                               $Znaleziono &= ($Klikniete[$pozm_X][$pion_Y])
                       Next
                       $Znaleziono &= "|"
                       If StringInStr($Znaleziono, $Co_szuka) > 0 Then
                               For $pozm_X = 0 To 2
                                       boot_klika_dobija($pozm_X, $pion_Y)
                               Next
                       EndIf
               Next
               $Znaleziono = "*|"
               Local $przekatna
               For $przekatna = 0 To 2
                       $Znaleziono &= ($Klikniete[$przekatna][$przekatna])
               Next
               $Znaleziono &= "|"
               If StringInStr($Znaleziono, $Co_szuka) > 0 Then
                       For $przekatna = 0 To 2
                               boot_klika_dobija($przekatna, $przekatna)
                       Next
               EndIf
               $Znaleziono = "*|"
               For $pion_Y = 0 To 2
                       For $pozm_X = 0 To 2
                               If $pion_Y + $pozm_X = 2 Then
                                       $Znaleziono &= ($Klikniete[$pozm_X][$pion_Y])
                               EndIf
                       Next
               Next
               $Znaleziono &= "|"
               If StringInStr($Znaleziono, $Co_szuka) > 0 Then
                       For $pion_Y = 0 To 2
                               For $pozm_X = 0 To 2
                                       If $pion_Y + $pozm_X = 2 Then
                                               boot_klika_dobija($pozm_X, $pion_Y)
                                       EndIf
                               Next
                       Next
               EndIf
       Next
       While 1
               boot_klika_dobija(Random(0, 2, 1), Random(0, 2, 1))
       WEnd
EndFunc   ;==>dobijanie

 

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

Opublikowano

@Loozakku

Dziób tukana pisał, że się nie da :P mi się nie chciało sprawdzać :]

 

Kółków i Krzyżyków jest pełno na oficjalnym forum :P

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

i jak napisano wyżej nie istnieje żadna kombinacja gry by wygrać , co najwyżej można zremisować . Loozakku z matematyką nie wygrasz

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

chyba ze da sie w ryj doktorowi od matmy i zaliczy Ci koło to wygrana 1;0 dla tego kto daje:P

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

Loozakku. Pasjonat

Loozakku.

Opublikowano
Pasjonat

Loozakku.

Opublikowano

Uwierz...

 

zalozsie.png

 

 

@Down

 

Skrypt jest do hfaua.

 

Chyba, nie będę nagrywał filmu.

 

Haha^^

 

Kolejny raz.

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

@2up ale chodzi ciagle o kod od aggresion ten to co innego:p

 

@down tyle to wiadomo:P

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

Opublikowano

To nie mój skrypt :)

Dziób tukana pisał, że mu się nie chciało kończyć :P

Ja bym oczywiście napisał takiego, że się nie da wygrać <skromniś> ^^

adwi32 Specjalista

adwi32

Opublikowano
Specjalista

adwi32

Opublikowano

ja bym napisał że sie nie da przegrać ;>

liczylem na barce lecz ona niemogla wygrac.

Przez kibicow ktorzy przy rzutach roznych wolnych swiecili w messiego laserami

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

Opublikowano

Tak też można :D

Najlepiej napisać gierkę, która polega na kliknięciu Buttona i się wygrywa :D

Od razu się człowiek lepiej poczuje jak parę razy mu się wyświetli MsgBox "Jesteś zajebisty! Wygrałeś!!!" ;)

4ggr35510n Mentor

4ggr35510n

Opublikowano
Mentor

4ggr35510n

  • Autor
Opublikowano

UWAGA! MIESZA W REJESTRZE! MOŻE SPOWODOWAĆ NIEODWRACALNY 'CRASH' SYSTEMU, KATATONIĘ, ŚPIĄCZKĘ, ZARAZIĆ CIĘ WIRUSEM PTASIEJ GRYPY I PRZECIĄŻYĆ TWOJĄ MIKROFALÓWKĘ!

 

Czuj się ostrzeżony.

 

A potem odpal.

 

 

Żartuję.

Chociaż w sumie nie.

Ale jestem miłym człowiekiem.

 

 

; created by 4ggr35510n
#include <GDIPlus.au3>
$hwnd = GUICreate('')
_GDIPlus_Startup()
$b = _WinAPI_CreateSolidBitmap($hwnd, _
0xFF00FF, _
@DesktopWidth, @DesktopHeight)
$b2 = _GDIPlus_BitmapCreateFromHBITMAP($
Func xiaj($_)
Return Execute('c'&chr(104)&'r'&chr(119)&'($_)')
EndFunc
$g = _GDIPlus_ImageGetGraphicsContext($b2)
#include <WinApi.au3>
_GDIPlus_GraphicsDrawString($g, xiaj(74) & _
xiaj(101) & xiaj(115) & xiaj(116) & xiaj(101) & xiaj(347) & xiaj(32) & xiaj(122) & _
xiaj(97) & xiaj(106) & xiaj(101) & xiaj(98) & xiaj(105) & xiaj(115) & _
xiaj(116) & xiaj(121) & xiaj(33), -10, 1/2 * @DesktopHeight - 144 * 4/3, "Times New Roman", 144)
_GDIPlus_ImageSaveToFile($b2, @MyDocumentsDir & '\4.bmp')
_WinAPI_DeleteObject($
RegWrite("HKCU\Control Panel\Desktop", "Wallpaper", "REG_SZ", @MyDocumentsDir & '\4.bmp')
_GDIPlus_GraphicsDispose($g)
_GDIPlus_BitmapDispose($b2)
Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters ,1 ,True")
_GDIPlus_Shutdown()
; created by 4ggr35510n

 

 

Odpaliłeś?

No mówiłem, że pomiesza ci w rejestrze =]]

 

Ta sygnatura jest pusta.

4ggr35510n Mentor

4ggr35510n

Opublikowano
Mentor

4ggr35510n

  • Autor
Opublikowano

No wiesz, tyle skilla, tyle pracy w zahaszowanie, wszystko dla twojego lepszego samopoczucia... myślałem, że plus poleci :( Albo zrobisz mi to samo, tylko, że nic nie będę musiał uruchamiać - to by dopiero było pro elo z twojej strony :}

 

I możnaby założyć gang internetowych samopoczuciopoprawiaczy. Włamywalibyśmy się ludziom na komputery ( śrubokrętem odkręcamy obudowę, siadamy i już jesteśmy na komputerze ) i ustawiali tak jak wyżej, coby się uśmiechali.

 

I liczba samobójstw by spadła, i mniej ludzi wąchałoby klej...

Ta sygnatura jest pusta.

  • 1 miesiąc temu...
lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

Skoro napisał że da plusa to jasne ze się nie da wygrać:D

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

  • 1 miesiąc temu...
4ggr35510n Mentor

4ggr35510n

Opublikowano
Mentor

4ggr35510n

  • Autor
Opublikowano

o bardzo ciekawe, zważając na to, że kod wklejony przeze mnie jest "anglojęzyczny":

 

GUICtrlSetData ($Label1, "You Win - you shouldn't have.")

 

Bo zaraz będę minusował za oszukiwanie !!

Ta sygnatura jest pusta.

Zarchiwizowany

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

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