Prosta gra z timerami.

M4niak · 6 Grudnia 2011

Postanowiłem z nudów rozwinąć trochę mój pomysł..

Nadal będę ulepszać skrypt oraz dodawać różne Wasze przede wszystkim pomysły..

Kod TYLKO do użytku własnego!

Jeżeli skopiowałeś ten kod, to napisz kto go wykonał i z jakiego forum został zaczerpnięty..

Aktualna wersja 1.4..

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.8.0
Author:		 M4niak @ mpcforum.pl

Script Function:
   Gra - The Shooter 1.4

   Skrypt tylko do użytku własnego !

#ce ----------------------------------------------------------------------------

Local $GameMode_Time, $tGameMode, $tFunc, $tCzarny, $tZielony, $rCzarny, $rZielony, $BtnColorZielony, $BtnColorCzarny, $Hide_Type, $Show_Type, $started = False, $time, $r, $SpecialMode = False
Local $current = -1, $current_tmp
Local $ver = "1.4"
#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>
#include <Timers.au3>
; GUI STARTOWE
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Start - The Shooter", 197, 315, -1, -1, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE,$WS_EX_COMPOSITED))
GUISetFont(10, 400, 0, "Tahoma")
$Group1 = GUICtrlCreateGroup("Poziom trudności", 12, 12, 173, 129)
$Radio1 = GUICtrlCreateRadio("Bardzo trudny", 48, 36, 113, 17)
$Radio2 = GUICtrlCreateRadio("Średni", 48, 60, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio3 = GUICtrlCreateRadio("Łatwy", 48, 84, 113, 17)
$special = GUICtrlCreateRadio("Tryb Specjalny", 48, 108, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Wygląd", 12, 156, 173, 81)
$Radio4 = GUICtrlCreateRadio("Wygląd 1", 48, 180, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio5 = GUICtrlCreateRadio("Wygląd 2", 48, 204, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Go = GUICtrlCreateButton("GO", 12, 276, 171, 25)
$Checkbox1 = GUICtrlCreateCheckbox("Walka z czasem", 36, 252, 121, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

       Case $Go
           If GUICtrlRead($Radio1) = $GUI_CHECKED Then
               $tFunc = 600 ; czas timera =d
               $tCzarny = 5 ; 20% szansy
               $tZielony = 20 ; 5% szansy
               If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then ; gra na czas
                   $GameMode_Time = True
                   $tGameMode = 30 ; 30 sekund
               EndIf
           ElseIf GUICtrlRead($Radio2) = $GUI_CHECKED Then
               $tFunc = 800 ; czas timera =d
               $tCzarny = 20 ; 5% szansy
               $tZielony = 10 ; 10% szansy
               If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then ; gra na czas
                   $GameMode_Time = True
                   $tGameMode = 60 ; 60 sekund
               EndIf
           ElseIf GUICtrlRead($Radio3) = $GUI_CHECKED Then
               $tFunc = 1000 ; czas timera =d
               $tCzarny = 20 ; 5% szansy
               $tZielony = 5 ; 20% szansy
               If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then ; gra na czas
                   $GameMode_Time = True
                   $tGameMode = 120 ; 120 sekund
               EndIf
           ElseIf GUICtrlRead($Radio4) = $GUI_CHECKED Then
               $tFunc = 2000 ; czas timera =d
;~                 $tCzarny = 0 ; niestety brak szans!
;~                 $tZielony = 0 ; niestety brak szans!
               If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then ; gra na czas
                   $GameMode_Time = True
                   $tGameMode = 300 ; 300 sekund
               EndIf
               $SpecialMode = True
           EndIf

           If GUICtrlRead($Radio4) = $GUI_CHECKED Then ; wyglad 1
               $Show_Type = $GUI_ENABLE
               $Hide_Type = $GUI_DISABLE
           ElseIf GUICtrlRead($Radio5) = $GUI_CHECKED Then ; wyglad 2
               $Show_Type = $GUI_SHOW
               $Hide_Type = $GUI_HIDE
           EndIf

           If $SpecialMode = True Then MsgBox(64, "", "Gra będzie stopniowo przyśpieszać." & @CR & "Nie pogub się!")
           ExitLoop ; wyjscie z petli gui startowego
   EndSwitch
WEnd
GUISetState(@SW_HIDE) ; ukrycie gui startowego

; GUI WŁAŚCIWE
#Region ### START Koda GUI section ### Form=
If $GameMode_Time = True Then
   $Form1 = GUICreate("The Shooter " & $ver, 277, 395) ; GUI NA CZAS
   GUISetFont(10, 400, 0, "Tahoma")
   $start = GUICtrlCreateButton("Start", 24, 334, 231, 25)
   $stop = GUICtrlCreateButton("Poddaj się", 24, 358, 231, 25)
   $Label = GUICtrlCreateLabel("Wynik:", 24, 276, 43, 20)
   $wynik = GUICtrlCreateLabel("0", 72, 276, 179, 20, $SS_CENTER)
   $Label3 = GUICtrlCreateLabel("The Shooter " & $ver, 12, 18, 256, 28, $SS_CENTER)
   GUICtrlSetColor(-1, 0xFF0000)
   $Label4 = GUICtrlCreateLabel("Wciśnij Start, aby zacząć!", 12, 42, 256, 28, $SS_CENTER)
   GUICtrlSetColor(-1, 0xFF0000)
   $Label = GUICtrlCreateLabel("Czas:", 24, 300, 36, 20)
   $countdown = GUICtrlCreateLabel($tGameMode, 72, 300, 179, 20, $SS_CENTER)
Else
   $Form1 = GUICreate("The Shooter " & $ver, 277, 375) ; GUI BEZ CZASU
   GUISetFont(10, 400, 0, "Tahoma")
   $start = GUICtrlCreateButton("Start", 24, 312, 231, 25)
   $stop = GUICtrlCreateButton("Poddaj się", 24, 336, 231, 25)
   $Label = GUICtrlCreateLabel("Wynik:", 24, 276, 43, 20)
   $wynik = GUICtrlCreateLabel("0", 84, 276, 167, 20, $SS_CENTER)
   $Label3 = GUICtrlCreateLabel("The Shooter " & $ver, 12, 18, 256, 28, $SS_CENTER)
   GUICtrlSetColor(-1, 0xFF0000)
   $Label4 = GUICtrlCreateLabel("Wciśnij Start, aby zacząć!", 12, 42, 256, 28, $SS_CENTER)
   GUICtrlSetColor(-1, 0xFF0000)
EndIf

Local $Button[9]
$Button[0] = GUICtrlCreateButton("", 24, 84, 63, 49)
$Button[1] = GUICtrlCreateButton("", 108, 84, 63, 49)
$Button[2] = GUICtrlCreateButton("", 192, 84, 63, 49)
$Button[3] = GUICtrlCreateButton("", 24, 144, 63, 49)
$Button[4] = GUICtrlCreateButton("", 108, 144, 63, 49)
$Button[5] = GUICtrlCreateButton("", 192, 144, 63, 49)
$Button[6] = GUICtrlCreateButton("", 24, 204, 63, 49)
$Button[7] = GUICtrlCreateButton("", 108, 204, 63, 49)
$Button[8] = GUICtrlCreateButton("", 192, 204, 63, 49)
#EndRegion ### END Koda GUI section ###

_button_hide()

GUISetState(@SW_SHOW) ; pokazanie gui =d

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

       Case $start
           Local $hits = 0, $hZielony = 0, $hCzarny = 0
           GUICtrlSetState($start, $Hide_Type)
           GUICtrlSetState($stop, $Show_Type)
           _new_button()
           $started = True
           If $GameMode_Time = True Then _Timer_SetTimer($Form1, 1000, "_walka_z_czasem")

           GUICtrlSetData($Label3, "The Shooter " & $ver)
           GUICtrlSetData($Label4, "Pamiętaj - unikaj czarnych przycisków!")

       Case $stop
           _The_End()

   EndSwitch

   For $i = 0 to 8
       Switch $nMsg
           Case $Button[$i]
               _button_click($i)
       EndSwitch
   Next

   If $started = True Then _time_check()
   Sleep(1) ; zakonczenie cyklu
WEnd

Func _new_button()
   If $SpecialMode = False Then ; brak w specjalnym trybie !
       $rCzarny = Random(1, $tCzarny, 1)
       $rZielony = Random(1, $tZielony, 1)
   EndIf

   $time = _Timer_Init()
   $r = Random(0, 8, 1)
   $current = $r
   _show_button($r)
EndFunc ;==> Click show

Func _show_button($Btn)
   GUICtrlSetState($Button[$Btn], $Show_Type) ; normal button show

   If $rZielony = 1 Then
       GUICtrlSetBkColor($Button[$Btn], 0x0025500)
       $BtnColorZielony = $Btn ; double pointy tylko na $Btn
   EndIf
   If $rCzarny = 1 Then
       GUICtrlSetBkColor($Button[$Btn], 0x000000)
       $BtnColorCzarny = $Btn ; minusowe pointy tylko na $Btn
   EndIf
EndFunc

Func _time_check()
   _extra_points()
   If Int(_Timer_Diff($time)) >= $tFunc Then ; jezeli timer = czas wtedy nowy button
       _reset() ; reset kolorów
       If $current = $current_tmp Then
           _new_button() ; nowy button
       Else
           $current_tmp = $current
           $time = _Timer_Init()
       EndIf
   EndIf
   If GUICtrlRead($wynik) < 0 Then GUICtrlSetData($wynik, 0) ; takie cuś, żeby nie zbankrutować 
EndFunc ;==> Click hide

Func _button_click($BtnClick)
   If $BtnClick = $BtnColorCzarny Then
       GUICtrlSetData($wynik, Int(GUICtrlRead($wynik) / 1.2))
       GUICtrlSetData($Label3, "Oj, oj, niestety trafiłeś czarny ;/")
       GUICtrlSetData($Label4, "Punkty zmniejszone o 20%")
       $hCzarny += 1
   ElseIf $BtnClick = $BtnColorZielony Then
       GUICtrlSetData($wynik, Int(GUICtrlRead($wynik) * 1.1))
       GUICtrlSetData($Label3, "WoW! Trafiłeś zielony!")
       GUICtrlSetData($Label4, "Punkty zwiększone o 10%")
       $hZielony += 1
   Else
       GUICtrlSetData($wynik, GUICtrlRead($wynik) + 100)
   EndIf
   $hits += 1
   _reset()
EndFunc

Func _reset()
   GUICtrlSetState($Button[$r], $Hide_Type) ; ukrycie
   _GUICtrlButton_SetStyle($Button[$r], $GUI_SS_DEFAULT_GUI) ; normalny kolor
   $BtnColorZielony = -1 ; uwolnienie przycisku z premii
   $BtnColorCzarny = -1
EndFunc

Func _walka_z_czasem($1, $2, $3, $4)
   GUICtrlSetState($stop, $Hide_Type)
   If GUICtrlRead($countdown) = 0 Then
       _The_End()
       GUICtrlSetData($countdown, $tGameMode)
   Else
       GUICtrlSetData($countdown, GUICtrlRead($countdown) - 1)
   EndIf
EndFunc

Func _The_End()
   _button_hide()
   GUICtrlSetState($stop, $Hide_Type)
   GUICtrlSetState($start, $Show_Type)
   _Timer_KillAllTimers($Form1)
   $started = False
   MsgBox(64, "Wynik", "Twój wynik to: " & GUICtrlRead($wynik) & @CR & @CR & "Podsumowanie:" & @CR & "Zwykłe: " & $hits & " razy" & @CR & "Zielone: " & $hZielony & " razy" & @CR & "Czarne: " & $hCzarny & " razy")
   GUICtrlSetData($wynik, 0)
EndFunc

Func _button_hide()
   For $i = 0 to 8
       GUICtrlSetState($Button[$i], $Hide_Type)
       GUICtrlSetState($stop, $Hide_Type)
   Next
EndFunc

Func _extra_points()
   _give_points(1, 200, "100 pkt premii za 1 trafienie!", "To na razie początek!")
   _give_points(5, 500, "500 pkt premii za 5 trafień!", "Jeszcze chwilę!")
   _give_points(10, 1000, "1.000 pkt premii za 10 trafień!", "Phi phi ")
   _give_points(15, 1500, "1.500 pkt premii za 15 trafień!", "Jedziesz dalej!")
   _give_points(20, 2000, "2.000 pkt premii za 20 trafień!", "Dawaj, dawaj, dawaj!")
   _give_points(25, 2500, "2.500 pkt premii za 25 trafień!", "Ciągniesz malina!")
   _give_points(30, 3000, "3.000 pkt premii za 30 trafień!", "Przyśpieszamy!")
   _give_points(35, 3000, "3.500 pkt premii za 35 trafień!", "Rozkręcam się!")
   _give_points(40, 4000, "4.000 pkt premii za 40 trafień!", "Nie gubisz się?!")
   _give_points(45, 10000, "4.500 pkt premii za 45 trafień!", "Grasz or no balls?!")
   _give_points(50, 15000, "5.000 pkt premii za 50 trafień!", "Opadasz z sił?!")
   _give_points(55, 20000, "5.500 pkt premii za 55 trafień!", "Słabo jedziesz!")
   _give_points(60, 25000, "6.000 pkt premii za 60 trafień!", "Twoja mamusia więcej wyciąga!")
   _give_points(65, 30000, "6.500 pkt premii za 65 trafień!", "Słabiak!")
   _give_points(70, 35000, "7.000 pkt premii za 70 trafień!", "Wymiękasz?")
   _give_points(75, 40000, "7.500 pkt premii za 75 trafień!", "Uh, uh!")
   _give_points(80, 50000, "8.000 pkt premii za 80 trafień!", "Umiem więcej =d")
   _give_points(100, 100000, "10.000 pkt premii za 100 trafień!", "Nadal słabo =d")
EndFunc ;==> extra points

Func _give_points($count, $points, $msg1, $msg2)
   If $hits = $count Then
       $hits += 1
       GUICtrlSetData($wynik, GUICtrlRead($wynik) + $points)
       GUICtrlSetData($Label3, $msg1)
       GUICtrlSetData($Label4, $msg2)
       If $SpecialMode = True Then $tFunc -= 80 ; prędkość przyśpieszania... radzę nie powiększać 
   EndIf
EndFunc

Najważniejsze zmiany:

- Oduchdzono skrypt

- Poprawiono pojawianie się i znikanie przycisków

- Dodano tryb Specjalny - gra będzie przyśpieszała w miarę osiągania progów kliknięć !

- Poprawiono progi extra pointsów

- Trafienie zielonego daje mniej niż zabrał czarny.

To do:

- Estetyka przede wszystkim

- Wasze pomysły.

Koniuh · 6 Grudnia 2011

Fajna gra,lecz bardzo trudny poziom jest nie do ogarnięcia

M4niak · 6 Grudnia 2011

Bo jest bardzo trudny

Chociaż trzeba by się pobawić z czasem timerów..

Może dałoby się uzyskać coś lepszego...

Protecto · 6 Grudnia 2011

Do
$trudnosc = InputBox("Podaj stopień trudności (cyferka)", "1 - Bardzo łatwy" & @LF & _
"2 - Średni" & @LF & _
"3 - Bardzo trudny" & @LF)
Until Not @error

Schrzaniłeś. :P

Jak wprowadzisz np. 4, 5, 6 itd. to akceptuje, a nie powinien.

Ja bym to zrobił tak:

Do
   $trudnosc = InputBox("Podaj stopień trudności (cyferka)", "1 - Bardzo łatwy" & @CRLF & "2 - Średni" & @CRLF & "3 - Bardzo trudny")
Until $trudnosc = 1 Or $trudnosc = 2 Or $trudnosc = 3 Or @error

M4niak · 6 Grudnia 2011

Fak =d

A no tak jest, po prostu się zagapiłem

#zmienione..

Protecto · 6 Grudnia 2011

A po co zastosowałeś tu Local?

Local $tczas

M4niak · 6 Grudnia 2011

Zakomentuj to będziesz wiedział

Protecto · 6 Grudnia 2011

Ale czemu Local a nie Dim?

Sopelek997 · 6 Grudnia 2011

a czemu dim a nie global?

w tym wypadku nie ma to znaczenia.

Zrób na tablicach to wyjdzie Ci 25% długości kodu tego co masz aktualnie.

Protecto · 6 Grudnia 2011

Dlatego Dim, a nie Global, bo Global to zuo wcielone i staramy się unikać definiowania niepotrzebnych Globali na początku skryptu.

wojtek333314 · 6 Grudnia 2011

Przy tak krótkim kodzie to czy będzie global dla pamięci(czy procesora? :P ) nie robi wielkiej różnicy...

Może jest to jakiś błąd ,zły nawyk czy coś - ale niewielki i nie ma co się czepiać.

Co do gry - mi się podoba , jednak dodałbym jakieś bajery typu: co jakis czas losuje sie czarny button i klikniecie w niego tnie punkty o polowe :P

Ale idea bardzo fajna

ziuto · 7 Grudnia 2011

nawed fajna mozna bylo by dodac ze bonus klikniec jest ograniczony w czasie

a i zeby czasem byly bonusowe przyciski o kolorze roznym np zielony mnozy 2x wynik , niebieski dodaje +1000 pkt i tak dalej..

bylo by ciekawiej bo klikanie w 1 i to samo nudzi..

M4niak · 9 Grudnia 2011

Miałem trochę czasu więc,

Dodana wersja v2, zgodnie z sugestiami @up i @2xup

Nic tylko testować xDD

ziuto · 9 Grudnia 2011

narazie od krylem 1 bug gdy pojawia sie zielony przycisk mozna w niego klikac do puki nie zniknie co sprawia ze natychmiastowo pkt rosna o duzo..

mam jeszcze kilka sugesti co do tej gry

zastosuj $GUI_HIDE tam gdzie $GUI_DISABLE i zastosuj $GUI_SHOW tam gdzie $GUI_ENABLE , bedzie lepiej wygladac..

moim zdaniem lepiej bylo by tak z tymi dodatkowymi przyciskami :

czarny = zeruje wynik

czerwony = 2x zmniejsza , zrob go troche jasniejszego

zielony = 2x zwieksza, zrob go troche jasniejszego

niebieski = - iles tam punktow , najlepiej zeby odejmowalo odpowiednia ilosc z wyniku czyli np 10%

zulty = + iles tam punktow , najlepiej zeby dodawalo odpowiednia ilosc z wyniku czyli np 10%

to na tyle narazie

@EDIT : a i jeszcze zmien to :

$Form2 = GUICreate("Start", 203, 220, 0, 0, BitOR($WS_EX_CLIENTEDGE, $WS_EX_TOOLWINDOW))

na :

$Form2 = GUICreate("Start", 203, 220, -1, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_TOOLWINDOW))

to sprawi ze te 1 okno pojawi sie na srodku..

M4niak · 9 Grudnia 2011

narazie od krylem 1 bug gdy pojawia sie zielony przycisk mozna w niego klikac do puki nie zniknie co sprawia ze natychmiastowo pkt rosna o duzo..

Tak miało być

To jest gra na refleks..

zastosuj $GUI_HIDE tam gdzie $GUI_DISABLE i zastosuj $GUI_SHOW tam gdzie $GUI_ENABLE , bedzie lepiej wygladac..

W sumie, masz rację

moim zdaniem lepiej bylo by tak z tymi dodatkowymi przyciskami :

czarny = zeruje wynik

czerwony = 2x zmniejsza , zrob go troche jasniejszego

zielony = 2x zwieksza, zrob go troche jasniejszego

niebieski = - iles tam punktow , najlepiej zeby odejmowalo odpowiednia ilosc z wyniku czyli np 10%

zulty = + iles tam punktow , najlepiej zeby dodawalo odpowiednia ilosc z wyniku czyli np 10%

to na tyle narazie

Za dużo przycisków, z tym zerowaniem to zły pomysł...

A z tymi 10% to nawet dobry pomysł...

Tylko dodam to do obecnych przycisków, bez kombinowania

@EDIT : a i jeszcze zmien to :
$Form2 = GUICreate("Start", 203, 220, 0, 0, BitOR($WS_EX_CLIENTEDGE, $WS_EX_TOOLWINDOW))
na :
$Form2 = GUICreate("Start", 203, 220, -1, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_TOOLWINDOW))
to sprawi ze te 1 okno pojawi sie na srodku..

Tak, tak, wiem..

Na szybko robiłem i zapomniałem o tym...

wojtek333314 · 10 Grudnia 2011

Jakies 350000 na czas to chyba nie jest zle ?:P

Też właśnie zauważyłem bug przy ciągłym klikaniu w jedno :P

Moze dla Ciebie nie jest to bug jednak postaraj się zrobić ,żeby po kliknięciu przycisk natychmiastowo znikał :P

Czyli doda punkty i znika ten co kliknąłeś , wtedy bedzie bardziej na refleks bo bedziemy za kazdym razem na innym sie skupiac

Jak dla mnie gra świetna , proste pomysły są najlepsze

M4niak · 10 Grudnia 2011

Gra zaktualizowana do wersji v3

Dodana sugestia wojtek333314..

Mianowicie buttony chowają się po kliknięciu...

Takie małe zabezpieczenie, przed zbyt dużą punktacją..

Dodany również 2-gi wygląd - sugestii ziuto

Oraz optymalizacja kodu

wojtek333314 · 10 Grudnia 2011

No i świetne

85000 około na tym samym poziomie(latwy+czas) ze znikaniem przez co gra stała się nieco trudniejsza i mniej monotonna - nie wale w jeden przycisk przez jakis czas :P

NIeźle M4niak może stworzymy coś razem np. coś przez neta? :P Jak jesteś zainteresowany to wal na PW bo dawno już nic nie pisałem sensownego a chciałbym coś stworzyć

M4niak · 10 Grudnia 2011

Pomyślę co do Twojej propozycji

Gomoku przez neta?! =D

4ggr35510n · 10 Grudnia 2011

Switch Random(0, 8, 1) ; buttony
Case 0
_show(0)

Case 1
_show(1)

Case 2
_show(2)

Case 3
_show(3)

Case 4
_show(4)

Case 5
_show(5)

Case 6
_show(6)

Case 7
_show(7)

Case 8
_show(8)
EndSwitch

_show(Random(0, 8, 1))

Nie rozumiem...

M4niak · 10 Grudnia 2011

@up

Nie doszukuj się błahych skrótów =d

Wygodniej, estetyczniej i czytelniej jest tak jak widzisz w oryginale

Sopelek997 · 10 Grudnia 2011

Nie doszukuj się błahych skrótów =d
Wygodniej, estetyczniej i czytelniej jest tak jak widzisz w oryginale

hę? co jest niezrozumiałego i skomplikowanego w funkcji random?

jak będziesz miał 400 butonów to też dla każdego będziesz robił osobno, bo czytelniej? Im krótszy kod tym lepszy i często bardziej czytelny.

W tym wypadku również szybszy.

@edit

$Button0 = GUICtrlCreateButton("", 24, 84, 63, 49)
$Button1 = GUICtrlCreateButton("", 108, 84, 63, 49)
$Button2 = GUICtrlCreateButton("", 192, 84, 63, 49)
$Button3 = GUICtrlCreateButton("", 24, 144, 63, 49)
$Button4 = GUICtrlCreateButton("", 108, 144, 63, 49)
$Button5 = GUICtrlCreateButton("", 192, 144, 63, 49)
$Button6 = GUICtrlCreateButton("", 24, 204, 63, 49)
$Button7 = GUICtrlCreateButton("", 108, 204, 63, 49)
$Button8 = GUICtrlCreateButton("", 192, 204, 63, 49)

tu zastosuj tablice i odpowiednio przerób switcha w pętli komunikatów zaoszczędzisz 30 linijek.

@edit2

I tak 1/3 nie rozumie nic =D

To używaj nazw adekwatnych do tego co przechowują. A nie label1, label4, input8

M4niak · 10 Grudnia 2011

@up

Nie mam jakoś ochoty..

4ggr35510n · 10 Grudnia 2011

Wygodniej, estetyczniej i czytelniej jest tak jak widzisz w oryginale

No chyba nie.

M4niak · 10 Grudnia 2011

@up

To tylko Twoje zdanie..

I przestańcie spamować bezsensownymi postami =d

Zaloguj się

👋 Witaj na MPCForum!

Prosta gra z timerami.

Rekomendowane odpowiedzi

Zarchiwizowany