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

[KONKURS]Najlepszy tetris w AutoIt!

Protecto

Przez Protecto
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

  • Odpowiedzi 62
  • Dodano
  • Ostatniej odpowiedzi
Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

Ja już skończyłem pare dni temu. Wszytko jest już na maksa dopracowane (przynajmniej jak na moje możliwości). Trzymam jeszcze kod u siebie na wszelki wypadek błyskotliwego pomysłu. Nie było to takie trudne jak poprzedni konkurs, aczkolwiek nie było też znów takie proste. Szkoda, że mało osób się zgłosiło.

981841412442977292370.png
wojtek333314 Specjalista

wojtek333314

Opublikowano
Specjalista

wojtek333314

Opublikowano

Mam nadzieję,że niedługo po tym konkursie - a właściwie jak najszybciej - ukaże się kolejny, bo dałem ciała a szkoda...

Poza tym miło by było gdyby takie konkursy miesieczne , lub 2 tygodniowe weszly nam w dział i stały się jakąś rutyną , wtedy było by przyjemniej :P

Moje gry i programy:

[Poradnik] Pisanie gry 2D w AutoIT z silnikiem Irrlicht

[Program] SendToAll czyli wyslij meail do wielu osób za pomocą kliknięcia!

[Program] Polonica - usuń polskie znaki z pliku czy tekstu! Z troską o Minecraftowych administratorów i kinomaniaków

[Gra] Xanthous - czyli gra w AutoIT

[Program] Renaming - program do masowego zmieniania nazw plików, numeracji itp.

[Gra] Prosta strzelanka 3D(!) w AutoIT!

[NEW! Program] Piszmy to razem! Czyli wspólne programowanie w sieci!

Prawdziwy pech ,czyli jedna liczba która dzieliła mnie od 30000 pln :

http://img26.imagesh...ial30000pln.jpg

 

 

11967467.jpg

ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

Opublikowano

ja narazie mam kolorowa plansze i klocki kolorowe (wyglada rewelacyjnie..)

zrobilem narazie klocka L (obracanie wlasnie robie) wszystko dziala oprucz usuwania klockow w dol tzw kasuja sie zlini ale nie opadaja

zrobilem sobie przerwe 2dni dobra teraz znowu biore sie doroboty

dzisiaj chyba dokoncze funckje zeby bylo perfect z klockiem L i bede jutro i nastepne dni bral sie za reszte klockow

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


Protecto Bywalec

Protecto

Opublikowano
Bywalec

Protecto

  • Autor
Opublikowano

Mam nadzieję,że niedługo po tym konkursie - a właściwie jak najszybciej - ukaże się kolejny, bo dałem ciała a szkoda...

Poza tym miło by było gdyby takie konkursy miesieczne , lub 2 tygodniowe weszly nam w dział i stały się jakąś rutyną , wtedy było by przyjemniej :P

 

Będzie dużo konkursów.

ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

Opublikowano

ja sie chyba nie wyrobie bo dopiero koncze obracanie klocka L a jeszcze 6 klockow zostalo i pare rzeczy

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


Protecto Bywalec

Protecto

Opublikowano
Bywalec

Protecto

  • Autor
Opublikowano

Nie ważne, że się nie wyrobisz. Prześlij pracę pod koniec terminu. Mało osób bierze udział, więc może zdobędziesz miejsce na podium. :)

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

Ja może już jutro wyślę Wam gotowy kod. Muszę jeszcze dogłębnie go przetestować i nanieść potrzebne poprawki. (może nawet dziś.)

 

@ziuto. Startują 3 osoby. Więc miejsce na podium będzie ;)

981841412442977292370.png
ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

Opublikowano

ok to pisze ile moge ale i tak mi sie juz nie chce bo mam juz az 922 linijki xD

wlasnie zkonczylem obracanie klocka w prawo brakuje tylko stawiania obroconego klocka

ale jeszcze zostalo obracanie klocka w lewo wiem w normalnym tetrisie tego nie ma ale chce miec je swoim i juz prawie zkonczylem znim

a tak przy okazji to mam problem z funcka kasowania klockow tzw usuwa ale one nie opadaja a jak opadaja to tylko te co wybralem wiec nie wiem za bardzo jak to zrobic..

a zreszta chyba sobie poradze..

ale tak szczerze oprucz klocka L i kilku plansz to nic niema wiec mam jeszcze troche roboty..

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


Protecto Bywalec

Protecto

Opublikowano
Bywalec

Protecto

  • Autor
Opublikowano

Koknurs zakończony. Wygłał: Sopelek997!

Gratulujemy. Gra była świetna, ale niestety nie pozbawiona bugów.

 

Pracę przesłał również ziuto, ale nie była ona ukończona.

Dziękujemy za udział, ale w przyszłości oczekujemy większej frekwencji.

Zarchiwizowany

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

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