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

[Pomoc] Pętla wspołgrająca z Opt'em

Andre13

Rekomendowane odpowiedzi

Andre13 Budowniczy

Andre13

Opublikowano
Budowniczy

Andre13

Opublikowano

Potrzebuje aby ktoś pomógł z tym kodem:

 

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt('GuiOnEventMode', 1)
#Region ### START Koda GUI section ### Form=
$Farma = GUICreate("Farma", 626, 402, 192, 124, -1, BitOR($WS_EX_APPWINDOW,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Group1 = GUICtrlCreateGroup("Konto", 8, 8, 217, 97) ;;;;;;;;;;;;;;;;;KONTO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;+
$pieniadze_2 = GUICtrlCreateLabel("Pieniądze ($):", 16, 32, 69, 17)
$kursy_roslin_2 = GUICtrlCreateLabel("Kursy roślin:", 16, 72, 60, 17)
$kursy_roslin_1 = GUICtrlCreateLabel("40 $", 96, 72, 36, 17)
$pieniadze_1 = GUICtrlCreateLabel("1000", 96, 32, 28, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Farma", 232, 136, 217, 73) ;;;;;;;;;;;;;;;;;;;;;;;;;FARMA;;;;;;;;;;;;;;;;;;;;;;;;;+
$l_grzadki_2 = GUICtrlCreateLabel("Grządki:", 240, 152, 43, 17)
$l_grzadki_dostepne_2 = GUICtrlCreateLabel("Grządki dostępne:", 240, 176, 90, 17)
$l_grzadki_1 = GUICtrlCreateLabel("5", 288, 152, 58, 17)
$l_gzradki_dostepne_1 = GUICtrlCreateLabel("5", 336, 176, 108, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$uprawa_1 = GUICtrlCreateProgress(336, 16, 225, 17, $PBS_SMOOTH) ;;;;;;;;;;;;;;;;;;;;;;;;;;OGRÓD;;;;;;;;;;;;;;;;;;;;;;;;;
$uprawa_2 = GUICtrlCreateProgress(336, 40, 225, 17, $PBS_SMOOTH)
$uprawa_3 = GUICtrlCreateProgress(336, 64, 225, 17, $PBS_SMOOTH)
$uprawa_4 = GUICtrlCreateProgress(336, 88, 225, 17, $PBS_SMOOTH)
$uprawa_5 = GUICtrlCreateProgress(336, 112, 225, 17,$PBS_SMOOTH)
$grz_pierwsza = GUICtrlCreateLabel("Grządka pierwsza:", 232, 16, 91, 17) ;;;;;;;;;;;;;;;;;;;;;;;;;OGRÓD;;;;;;;;;;;;;;;;;;;;;;;;;+
$grz_druga = GUICtrlCreateLabel("Grządka druga:", 232, 40, 77, 17)
$grz_trzecia = GUICtrlCreateLabel("Grządka trzecia:", 232, 64, 81, 17)
$grz_czwarta = GUICtrlCreateLabel("Grządka czwarta:", 232, 88, 87, 17)
$grz_piata = GUICtrlCreateLabel("Grządka piąta:", 232, 112, 73, 17)
$Group3 = GUICtrlCreateGroup("Magazyn", 8, 112, 217, 129) ;;;;;;;;;;;;;;;;;;;;;;MAGAZYN;;;;;;;;;;;;;;;;;;;;;;;;;;;;+/-
$nasiona_2 = GUICtrlCreateLabel("Nasiona:", 16, 136, 46, 17)
$nawoz_2 = GUICtrlCreateLabel("Nawóz(kg):", 16, 160, 56, 17)
$woda_2 = GUICtrlCreateLabel("Woda (l):", 16, 184, 44, 17)
$rosliny_do_sprzedazy_2 = GUICtrlCreateLabel("Gotowe rośliny:", 16, 208, 76, 17)
$nasiona_1 = GUICtrlCreateLabel("5", 96, 136, 45, 17)
$nawoz_1 = GUICtrlCreateLabel("10", 96, 160, 47, 17)
$woda_1 = GUICtrlCreateLabel("10", 96, 184, 42, 17)
$rosliny_do_sprzedazy_1 = GUICtrlCreateLabel("5", 96, 208, 10, 17)
$sprzedaj = GUICtrlCreateButton("Sprzedaj", 152, 208, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$zbieranie_1 = GUICtrlCreateButton("Zbierz", 568, 40, 49, 17) ;;;;;;;;;;;;;;;;;;;;;;;;;ZBIERANIE;;;;;;;;;;;;;;;;;;;;;;;;;-
$zbieranie_2 = GUICtrlCreateButton("Zbierz", 568, 64, 49, 17)
$zbieranie_3 = GUICtrlCreateButton("Zbierz", 568, 88, 49, 17)
$zbieranie_4 = GUICtrlCreateButton("Zbierz", 568, 16, 49, 17)
$zbieranie_5 = GUICtrlCreateButton("Zbierz", 568, 112, 49, 17)
$zapisywanie = GUICtrlCreateButton("Zapisz", 552, 144, 65, 25) ;;;;;;;;;;;;;;;;;;;;;;;;;OPCJE GRY;;;;;;;;;;;;;;;;;;;;;;;;;+
$wczytywanie = GUICtrlCreateButton("Wczytaj", 552, 176, 65, 25)
$Group4 = GUICtrlCreateGroup("Sklep", 8, 248, 225, 145) ;;;;;;;;;;;;;;;;;;;;;;;;;SKLEP;;;;;;;;;;;;;;;;;;;;;;;;;+
$nasionoa_3 = GUICtrlCreateLabel("Nasiona:", 16, 264, 46, 17)
$nawoz_3 = GUICtrlCreateLabel("Nawóz (kg):", 16, 288, 58, 17)
$woda_3 = GUICtrlCreateLabel("Woda (l):", 16, 312, 44, 17)
$kupowane_nasiona = GUICtrlCreateInput("", 88, 264, 137, 21,$ES_NUMBER)
$kupowany_nawoz = GUICtrlCreateInput("", 88, 288, 137, 21,$ES_NUMBER)
$kupowana_woda = GUICtrlCreateInput("", 88, 312, 137, 21,$ES_NUMBER)
$kupowanie = GUICtrlCreateButton("Kup", 136, 344, 89, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Pożyczka", 240, 248, 161, 65) ;;;;;;;;;;;;;;;;;;;;;;;;;BANK;;;;;;;;;;;;;;;;;;;;;;;;;+
$kwota_pozyczki_2 = GUICtrlCreateLabel("Kwota:", 248, 264, 37, 17)
$kwota_pozyczki_1 = GUICtrlCreateInput("", 296, 264, 97, 21,$ES_NUMBER)
$pozycz = GUICtrlCreateButton("Pożycz", 248, 288, 145, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("Spłata", 416, 248, 161, 65) ;;;;;;;;;;;;;;;;;;;;;;;;;BANK;;;;;;;;;;;;;;;;;;;;;;;;;+
$kwota_splaty_2 = GUICtrlCreateLabel("Kwota:", 424, 264, 37, 17)
$kwota_splaty_1 = GUICtrlCreateInput("", 472, 264, 97, 21,$ES_NUMBER)
$splacaj = GUICtrlCreateButton("Spłać", 424, 288, 145, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$saldo_pozyczek_2 = GUICtrlCreateLabel("Saldo pożyczek:", 240, 320, 82, 17) ;;;;;;;;;;;;;;;;;;;;;;;;;BANK;;;;;;;;;;;;;;;;;;;;;;;;;+
$saldo_pozyczek_1 = GUICtrlCreateLabel("", 328, 320, 49, 17)
$grz_1 = GUICtrlCreateRadio("Grządka 1", 232, 216, 73, 17)
$grz_2 = GUICtrlCreateRadio("Grządka 2", 232, 232, 73, 17)
$grz_3 = GUICtrlCreateRadio("Grządka 3", 304, 216, 73, 17)
$grz_4 = GUICtrlCreateRadio("Grządka 4", 304, 232, 65, 17)
$grz_5 = GUICtrlCreateRadio("Grządka 5", 376, 216, 73, 17)
$Zasianie = GUICtrlCreateButton("Zasiej", 456, 216, 105, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetOnEvent($pozycz, "Pozyczka_1")
GUICtrlSetOnEvent($splacaj, "Splata_1")
GUICtrlSetOnEvent($kupowanie, "Kupowanie")
GUICtrlSetOnEvent($zapisywanie, "Zapisanie_save")
GUICtrlSetOnEvent($wczytywanie, "Wczytanie_save")
GUICtrlSetOnEvent($sprzedaj, "Sprzedawanie")
GUICtrlSetOnEvent($Zasianie,"Zasianie")
GUISetOnEvent($gui_event_close, "Koniec")

While 1
Sleep(100)
;Kursy_roslin()
WEnd
Func Zasianie()
If GUICtrlRead($grz_1) == $GUI_CHECKED Then GUICtrlSetData($uprawa_1,Wzrost_1())
If GUICtrlRead($grz_2) == $GUI_CHECKED Then GUICtrlSetData($uprawa_2,Wzrost_2())
If GUICtrlRead($grz_3) == $GUI_CHECKED Then GUICtrlSetData($uprawa_3,Wzrost_3())
If GUICtrlRead($grz_4) == $GUI_CHECKED Then GUICtrlSetData($uprawa_4,Wzrost_4())
If GUICtrlRead($grz_5) == $GUI_CHECKED Then GUICtrlSetData($uprawa_5,Wzrost_5())
EndFunc
Func Koniec()
	Exit
	EndFunc
Func Sprzedawanie()
If GUICtrlRead($rosliny_do_sprzedazy_1) >= 1 Then GUICtrlSetData($rosliny_do_sprzedazy_1, GUICtrlRead($rosliny_do_sprzedazy_1) - 1)
If GUICtrlRead($rosliny_do_sprzedazy_1) >= 1 Then GUICtrlSetData($pieniadze_1, GUICtrlRead($pieniadze_1) + GUICtrlRead($kursy_roslin_1))
EndFunc
Func Kupowanie()
GUICtrlSetData($nasiona_1,GUICtrlRead($nasiona_1) + GUICtrlRead($kupowane_nasiona))
			GUICtrlSetData($nawoz_1,GUICtrlRead($nawoz_1) + GUICtrlRead($kupowany_nawoz))
			GUICtrlSetData($woda_1,GUICtrlRead($woda_1) + GUICtrlRead($kupowana_woda))
			GUICtrlSetData($pieniadze_1, GUICtrlRead($pieniadze_1) - (GUICtrlRead($kupowane_nasiona) * 5 + GUICtrlRead($kupowany_nawoz) * 20 + GUICtrlRead($kupowana_woda) * 10))
EndFunc
;Func Kursy_roslin()
;GUICtrlSetData($kursy_roslin_1,Random(30,45,1)&" $")
;Sleep(2500)
;EndFunc
Func Zapisanie_save()
$profil_zapis = FileSaveDialog("Zapisz stan gry",@AppDataDir,"Saves files (*.sav)")
IniWrite($profil_zapis&".sav","KONTO","Pieniądze",GUICtrlRead($pieniadze_1))
IniWrite($profil_zapis&".sav","FARMA","Grządki",GUICtrlRead($l_grzadki_1))
IniWrite($profil_zapis&".sav","FARMA","Grządki dostępne",GUICtrlRead($l_gzradki_dostepne_1))
IniWrite($profil_zapis&".sav","UPRAWA","Grządka pierwsza",GUICtrlRead($uprawa_1))
IniWrite($profil_zapis&".sav","UPRAWA","Grządka druga",GUICtrlRead($uprawa_2))
IniWrite($profil_zapis&".sav","UPRAWA","Grządka trzecia",GUICtrlRead($uprawa_3))
IniWrite($profil_zapis&".sav","UPRAWA","Grządka czwarta",GUICtrlRead($uprawa_4))
IniWrite($profil_zapis&".sav","UPRAWA","Grządka piąta",GUICtrlRead($uprawa_5))
IniWrite($profil_zapis&".sav","MAGAZYN","Nasiona",GUICtrlRead($nasiona_1))
IniWrite($profil_zapis&".sav","MAGAZYN","Nawóz",GUICtrlRead($nawoz_1))
IniWrite($profil_zapis&".sav","MAGAZYN","Woda",GUICtrlRead($woda_1))
IniWrite($profil_zapis&".sav","MAGAZYN","Rośliny do sprzedaży",GUICtrlRead($rosliny_do_sprzedazy_1))
IniWrite($profil_zapis&".sav","BANK","Pożyczka",GUICtrlRead($saldo_pozyczek_1))
EndFunc
Func Wczytanie_save()
$profil_wczytywanie = FileOpenDialog("Wybierz zapis stanu gry", @AppDataDir, "Saves files (*.sav)")
$pieniadze_save = IniRead($profil_wczytywanie,"KONTO","Pieniądze",'')
$l_grzadki_save = IniRead($profil_wczytywanie,"FARMA","Grządki",'')
$l_grzadki_dostepne_save = IniRead($profil_wczytywanie,"FARMA","Grządki dostępne",'')
$uprawa_1_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka pierwsza",'')
$uprawa_2_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka druga",'')
$uprawa_3_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka trzecia",'')
$uprawa_4_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka czwarta",'')
$uprawa_5_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka piąta",'')
$nasiona_save = IniRead($profil_wczytywanie,"MAGAZYN","Nasiona",'')
$nawoz_save = IniRead($profil_wczytywanie,"MAGAZYN","Nawóz",'')
$woda_save = IniRead($profil_wczytywanie,"MAGAZYN","Woda",'')
$rosliny_do_sprzedazy_save = IniRead($profil_wczytywanie,"MAGAZYN","Rośliny do sprzedaży",'')
$saldo_pozyczek_save = IniRead($profil_wczytywanie,"KONTO","Pieniądze",'')
GUICtrlSetData($pieniadze_1,$pieniadze_save)
GUICtrlSetData($l_grzadki_1,$l_grzadki_save)
GUICtrlSetData($l_gzradki_dostepne_1,$l_grzadki_dostepne_save)
GUICtrlSetData($uprawa_1,$uprawa_1_save)
GUICtrlSetData($uprawa_2,$uprawa_2_save)
GUICtrlSetData($uprawa_3,$uprawa_3_save)
GUICtrlSetData($uprawa_4,$uprawa_4_save)
GUICtrlSetData($uprawa_5,$uprawa_5_save)
GUICtrlSetData($nasiona_1,$nasiona_save)
GUICtrlSetData($nawoz_1,$nawoz_save)
GUICtrlSetData($woda_1,$woda_save)
GUICtrlSetData($rosliny_do_sprzedazy_1,$rosliny_do_sprzedazy_save)
GUICtrlSetData($saldo_pozyczek_1,$saldo_pozyczek_save)
EndFunc
Func Pozyczka_1()
GUICtrlSetData($saldo_pozyczek_1,GUICtrlRead($saldo_pozyczek_1) + GUICtrlRead($kwota_pozyczki_1))
GUICtrlSetData($pieniadze_1,GUICtrlRead($pieniadze_1) + GUICtrlRead($kwota_pozyczki_1))
EndFunc
Func Splata_1()
If GUICtrlRead($saldo_pozyczek_1) >= GUICtrlRead($kwota_splaty_1) Then GUICtrlSetData($saldo_pozyczek_1,GUICtrlRead($saldo_pozyczek_1) - GUICtrlRead($kwota_splaty_1))
If GUICtrlRead($saldo_pozyczek_1) >= GUICtrlRead($kwota_splaty_1) Then GUICtrlSetData($pieniadze_1, GUICtrlRead($pieniadze_1) - GUICtrlRead($kwota_splaty_1))
EndFunc
Func Wzrost_1()
EndFunc
Func Wzrost_2()
EndFunc
Func Wzrost_3()
EndFunc
Func Wzrost_4()
EndFunc
Func Wzrost_5()
	EndFunc

 

 

O co chodzi? Kiedy ktoś naciśnie przycisk "zasiej" jeśli radio box jest zaznaczony to na danej grządce zostaje posadzona roślina i rośnie 60 sekund, czyli zaczyna od 1% (nie od 0%) i dodaje 1.65% przez 60 sek i mam te 100%. I aby ładnie śmigało wstawiałem pętlę (Do Until, For To Step Next i While WEnd), ale jedna w ogóle nie działała a inna skrachowała.

Jakoś tu pusto...

Ballas Pasjonat

Ballas

Opublikowano
Pasjonat

Ballas

Opublikowano

 

 

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt('GuiOnEventMode', 1)
#Region ### START Koda GUI section ### Form=
$Farma = GUICreate("Farma", 626, 402, 192, 124, -1, BitOR($WS_EX_APPWINDOW,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Group1 = GUICtrlCreateGroup("Konto", 8, 8, 217, 97) ;;;;;;;;;;;;;;;;;KONTO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;+
$pieniadze_2 = GUICtrlCreateLabel("Pieniądze ($):", 16, 32, 69, 17)
$kursy_roslin_2 = GUICtrlCreateLabel("Kursy roślin:", 16, 72, 60, 17)
$kursy_roslin_1 = GUICtrlCreateLabel("40 $", 96, 72, 36, 17)
$pieniadze_1 = GUICtrlCreateLabel("1000", 96, 32, 28, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Farma", 232, 136, 217, 73) ;;;;;;;;;;;;;;;;;;;;;;;;;FARMA;;;;;;;;;;;;;;;;;;;;;;;;;+
$l_grzadki_2 = GUICtrlCreateLabel("Grządki:", 240, 152, 43, 17)
$l_grzadki_dostepne_2 = GUICtrlCreateLabel("Grządki dostępne:", 240, 176, 90, 17)
$l_grzadki_1 = GUICtrlCreateLabel("5", 288, 152, 58, 17)
$l_gzradki_dostepne_1 = GUICtrlCreateLabel("5", 336, 176, 108, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$uprawa_1 = GUICtrlCreateProgress(336, 16, 225, 17, $PBS_SMOOTH) ;;;;;;;;;;;;;;;;;;;;;;;;;;OGRÓD;;;;;;;;;;;;;;;;;;;;;;;;;
GUICtrlSetData($uprawa_1,1) ; dodałem te pierdoły, lepiej wygląda niż 0 (0 wychodzi za ramke)
$uprawa_2 = GUICtrlCreateProgress(336, 40, 225, 17, $PBS_SMOOTH)
GUICtrlSetData($uprawa_2,1)
$uprawa_3 = GUICtrlCreateProgress(336, 64, 225, 17, $PBS_SMOOTH)
GUICtrlSetData($uprawa_3,1)
$uprawa_4 = GUICtrlCreateProgress(336, 88, 225, 17, $PBS_SMOOTH)
GUICtrlSetData($uprawa_4,1)
$uprawa_5 = GUICtrlCreateProgress(336, 112, 225, 17,$PBS_SMOOTH)
GUICtrlSetData($uprawa_5,1)
$grz_pierwsza = GUICtrlCreateLabel("Grządka pierwsza:", 232, 16, 91, 17) ;;;;;;;;;;;;;;;;;;;;;;;;;OGRÓD;;;;;;;;;;;;;;;;;;;;;;;;;+
$grz_druga = GUICtrlCreateLabel("Grządka druga:", 232, 40, 77, 17)
$grz_trzecia = GUICtrlCreateLabel("Grządka trzecia:", 232, 64, 81, 17)
$grz_czwarta = GUICtrlCreateLabel("Grządka czwarta:", 232, 88, 87, 17)
$grz_piata = GUICtrlCreateLabel("Grządka piąta:", 232, 112, 73, 17)
$Group3 = GUICtrlCreateGroup("Magazyn", 8, 112, 217, 129) ;;;;;;;;;;;;;;;;;;;;;;MAGAZYN;;;;;;;;;;;;;;;;;;;;;;;;;;;;+/-
$nasiona_2 = GUICtrlCreateLabel("Nasiona:", 16, 136, 46, 17)
$nawoz_2 = GUICtrlCreateLabel("Nawóz(kg):", 16, 160, 56, 17)
$woda_2 = GUICtrlCreateLabel("Woda (l):", 16, 184, 44, 17)
$rosliny_do_sprzedazy_2 = GUICtrlCreateLabel("Gotowe rośliny:", 16, 208, 76, 17)
$nasiona_1 = GUICtrlCreateLabel("5", 96, 136, 45, 17)
$nawoz_1 = GUICtrlCreateLabel("10", 96, 160, 47, 17)
$woda_1 = GUICtrlCreateLabel("10", 96, 184, 42, 17)
$rosliny_do_sprzedazy_1 = GUICtrlCreateLabel("5", 96, 208, 10, 17)
$sprzedaj = GUICtrlCreateButton("Sprzedaj", 152, 208, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$zbieranie_1 = GUICtrlCreateButton("Zbierz", 568, 40, 49, 17) ;;;;;;;;;;;;;;;;;;;;;;;;;ZBIERANIE;;;;;;;;;;;;;;;;;;;;;;;;;-
$zbieranie_2 = GUICtrlCreateButton("Zbierz", 568, 64, 49, 17)
$zbieranie_3 = GUICtrlCreateButton("Zbierz", 568, 88, 49, 17)
$zbieranie_4 = GUICtrlCreateButton("Zbierz", 568, 16, 49, 17)
$zbieranie_5 = GUICtrlCreateButton("Zbierz", 568, 112, 49, 17)
$zapisywanie = GUICtrlCreateButton("Zapisz", 552, 144, 65, 25) ;;;;;;;;;;;;;;;;;;;;;;;;;OPCJE GRY;;;;;;;;;;;;;;;;;;;;;;;;;+
$wczytywanie = GUICtrlCreateButton("Wczytaj", 552, 176, 65, 25)
$Group4 = GUICtrlCreateGroup("Sklep", 8, 248, 225, 145) ;;;;;;;;;;;;;;;;;;;;;;;;;SKLEP;;;;;;;;;;;;;;;;;;;;;;;;;+
$nasionoa_3 = GUICtrlCreateLabel("Nasiona:", 16, 264, 46, 17)
$nawoz_3 = GUICtrlCreateLabel("Nawóz (kg):", 16, 288, 58, 17)
$woda_3 = GUICtrlCreateLabel("Woda (l):", 16, 312, 44, 17)
$kupowane_nasiona = GUICtrlCreateInput("", 88, 264, 137, 21,$ES_NUMBER)
$kupowany_nawoz = GUICtrlCreateInput("", 88, 288, 137, 21,$ES_NUMBER)
$kupowana_woda = GUICtrlCreateInput("", 88, 312, 137, 21,$ES_NUMBER)
$kupowanie = GUICtrlCreateButton("Kup", 136, 344, 89, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Pożyczka", 240, 248, 161, 65) ;;;;;;;;;;;;;;;;;;;;;;;;;BANK;;;;;;;;;;;;;;;;;;;;;;;;;+
$kwota_pozyczki_2 = GUICtrlCreateLabel("Kwota:", 248, 264, 37, 17)
$kwota_pozyczki_1 = GUICtrlCreateInput("", 296, 264, 97, 21,$ES_NUMBER)
$pozycz = GUICtrlCreateButton("Pożycz", 248, 288, 145, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("Spłata", 416, 248, 161, 65) ;;;;;;;;;;;;;;;;;;;;;;;;;BANK;;;;;;;;;;;;;;;;;;;;;;;;;+
$kwota_splaty_2 = GUICtrlCreateLabel("Kwota:", 424, 264, 37, 17)
$kwota_splaty_1 = GUICtrlCreateInput("", 472, 264, 97, 21,$ES_NUMBER)
$splacaj = GUICtrlCreateButton("Spłać", 424, 288, 145, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$saldo_pozyczek_2 = GUICtrlCreateLabel("Saldo pożyczek:", 240, 320, 82, 17) ;;;;;;;;;;;;;;;;;;;;;;;;;BANK;;;;;;;;;;;;;;;;;;;;;;;;;+
$saldo_pozyczek_1 = GUICtrlCreateLabel("", 328, 320, 49, 17)
$grz_1 = GUICtrlCreateRadio("Grządka 1", 232, 216, 73, 17)
$grz_2 = GUICtrlCreateRadio("Grządka 2", 232, 232, 73, 17)
$grz_3 = GUICtrlCreateRadio("Grządka 3", 304, 216, 73, 17)
$grz_4 = GUICtrlCreateRadio("Grządka 4", 304, 232, 65, 17)
$grz_5 = GUICtrlCreateRadio("Grządka 5", 376, 216, 73, 17)
$Zasianie = GUICtrlCreateButton("Zasiej", 456, 216, 105, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetOnEvent($pozycz, "Pozyczka_1")
GUICtrlSetOnEvent($splacaj, "Splata_1")
GUICtrlSetOnEvent($kupowanie, "Kupowanie")
GUICtrlSetOnEvent($zapisywanie, "Zapisanie_save")
GUICtrlSetOnEvent($wczytywanie, "Wczytanie_save")
GUICtrlSetOnEvent($sprzedaj, "Sprzedawanie")
GUICtrlSetOnEvent($Zasianie,"Zasianie")
GUISetOnEvent($gui_event_close, "Koniec")

While 1
Sleep(100)
;Kursy_roslin()
WEnd
Func Zasianie()
If GUICtrlRead($grz_1) == $GUI_CHECKED Then
Global $licznik_proggres1 = 1
AdlibRegister("Wzrost_Proggres1",100)
ElseIf GUICtrlRead($grz_2) == $GUI_CHECKED Then
Global $licznik_proggres2 = 1
AdlibRegister("Wzrost_Proggres2",100)
ElseIf GUICtrlRead($grz_3) == $GUI_CHECKED Then
Global $licznik_proggres3 = 1
AdlibRegister("Wzrost_Proggres3",100)
ElseIf GUICtrlRead($grz_4) == $GUI_CHECKED Then
Global $licznik_proggres4 = 1
AdlibRegister("Wzrost_Proggres4",100)
ElseIf GUICtrlRead($grz_5) == $GUI_CHECKED Then
Global $licznik_proggres5 = 1
AdlibRegister("Wzrost_Proggres5",100)
EndIf
EndFunc
Func Wzrost_Proggres1()
If $licznik_proggres1 < 100 Then
     GUICtrlSetData($uprawa_1,$licznik_proggres1)
     $licznik_proggres1 += 1.65
Else
     AdlibUnRegister("Wzrost_Proggres1")
EndIf
EndFunc
Func Wzrost_Proggres2()
If $licznik_proggres2 < 100 Then
     GUICtrlSetData($uprawa_2,$licznik_proggres2)
     $licznik_proggres2 += 1.65
Else
     AdlibUnRegister("Wzrost_Proggres2")
EndIf
EndFunc
Func Wzrost_Proggres3()
If $licznik_proggres3 < 100 Then
     GUICtrlSetData($uprawa_3,$licznik_proggres3)
     $licznik_proggres3 += 1.65
Else
     AdlibUnRegister("Wzrost_Proggres3")
EndIf
EndFunc
Func Wzrost_Proggres4()
If $licznik_proggres4 < 100 Then
     GUICtrlSetData($uprawa_4,$licznik_proggres4)
     $licznik_proggres4 += 1.65
Else
     AdlibUnRegister("Wzrost_Proggres4")
EndIf
EndFunc
Func Wzrost_Proggres5()
If $licznik_proggres5 < 100 Then
     GUICtrlSetData($uprawa_5,$licznik_proggres5)
     $licznik_proggres5 += 1.65
Else
     AdlibUnRegister("Wzrost_Proggres5")
EndIf
EndFunc
Func Koniec()
    Exit
    EndFunc
Func Sprzedawanie()
If GUICtrlRead($rosliny_do_sprzedazy_1) >= 1 Then GUICtrlSetData($rosliny_do_sprzedazy_1, GUICtrlRead($rosliny_do_sprzedazy_1) - 1)
If GUICtrlRead($rosliny_do_sprzedazy_1) >= 1 Then GUICtrlSetData($pieniadze_1, GUICtrlRead($pieniadze_1) + GUICtrlRead($kursy_roslin_1))
EndFunc
Func Kupowanie()
GUICtrlSetData($nasiona_1,GUICtrlRead($nasiona_1) + GUICtrlRead($kupowane_nasiona))
            GUICtrlSetData($nawoz_1,GUICtrlRead($nawoz_1) + GUICtrlRead($kupowany_nawoz))
            GUICtrlSetData($woda_1,GUICtrlRead($woda_1) + GUICtrlRead($kupowana_woda))
            GUICtrlSetData($pieniadze_1, GUICtrlRead($pieniadze_1) - (GUICtrlRead($kupowane_nasiona) * 5 + GUICtrlRead($kupowany_nawoz) * 20 + GUICtrlRead($kupowana_woda) * 10))
EndFunc
;Func Kursy_roslin()
;GUICtrlSetData($kursy_roslin_1,Random(30,45,1)&" $")
;Sleep(2500)
;EndFunc
Func Zapisanie_save()
$profil_zapis = FileSaveDialog("Zapisz stan gry",@AppDataDir,"Saves files (*.sav)")
IniWrite($profil_zapis&".sav","KONTO","Pieniądze",GUICtrlRead($pieniadze_1))
IniWrite($profil_zapis&".sav","FARMA","Grządki",GUICtrlRead($l_grzadki_1))
IniWrite($profil_zapis&".sav","FARMA","Grządki dostępne",GUICtrlRead($l_gzradki_dostepne_1))
IniWrite($profil_zapis&".sav","UPRAWA","Grządka pierwsza",GUICtrlRead($uprawa_1))
IniWrite($profil_zapis&".sav","UPRAWA","Grządka druga",GUICtrlRead($uprawa_2))
IniWrite($profil_zapis&".sav","UPRAWA","Grządka trzecia",GUICtrlRead($uprawa_3))
IniWrite($profil_zapis&".sav","UPRAWA","Grządka czwarta",GUICtrlRead($uprawa_4))
IniWrite($profil_zapis&".sav","UPRAWA","Grządka piąta",GUICtrlRead($uprawa_5))
IniWrite($profil_zapis&".sav","MAGAZYN","Nasiona",GUICtrlRead($nasiona_1))
IniWrite($profil_zapis&".sav","MAGAZYN","Nawóz",GUICtrlRead($nawoz_1))
IniWrite($profil_zapis&".sav","MAGAZYN","Woda",GUICtrlRead($woda_1))
IniWrite($profil_zapis&".sav","MAGAZYN","Rośliny do sprzedaży",GUICtrlRead($rosliny_do_sprzedazy_1))
IniWrite($profil_zapis&".sav","BANK","Pożyczka",GUICtrlRead($saldo_pozyczek_1))
EndFunc
Func Wczytanie_save()
$profil_wczytywanie = FileOpenDialog("Wybierz zapis stanu gry", @AppDataDir, "Saves files (*.sav)")
$pieniadze_save = IniRead($profil_wczytywanie,"KONTO","Pieniądze",'')
$l_grzadki_save = IniRead($profil_wczytywanie,"FARMA","Grządki",'')
$l_grzadki_dostepne_save = IniRead($profil_wczytywanie,"FARMA","Grządki dostępne",'')
$uprawa_1_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka pierwsza",'')
$uprawa_2_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka druga",'')
$uprawa_3_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka trzecia",'')
$uprawa_4_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka czwarta",'')
$uprawa_5_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka piąta",'')
$nasiona_save = IniRead($profil_wczytywanie,"MAGAZYN","Nasiona",'')
$nawoz_save = IniRead($profil_wczytywanie,"MAGAZYN","Nawóz",'')
$woda_save = IniRead($profil_wczytywanie,"MAGAZYN","Woda",'')
$rosliny_do_sprzedazy_save = IniRead($profil_wczytywanie,"MAGAZYN","Rośliny do sprzedaży",'')
$saldo_pozyczek_save = IniRead($profil_wczytywanie,"KONTO","Pieniądze",'')
GUICtrlSetData($pieniadze_1,$pieniadze_save)
GUICtrlSetData($l_grzadki_1,$l_grzadki_save)
GUICtrlSetData($l_gzradki_dostepne_1,$l_grzadki_dostepne_save)
GUICtrlSetData($uprawa_1,$uprawa_1_save)
GUICtrlSetData($uprawa_2,$uprawa_2_save)
GUICtrlSetData($uprawa_3,$uprawa_3_save)
GUICtrlSetData($uprawa_4,$uprawa_4_save)
GUICtrlSetData($uprawa_5,$uprawa_5_save)
GUICtrlSetData($nasiona_1,$nasiona_save)
GUICtrlSetData($nawoz_1,$nawoz_save)
GUICtrlSetData($woda_1,$woda_save)
GUICtrlSetData($rosliny_do_sprzedazy_1,$rosliny_do_sprzedazy_save)
GUICtrlSetData($saldo_pozyczek_1,$saldo_pozyczek_save)
EndFunc
Func Pozyczka_1()
GUICtrlSetData($saldo_pozyczek_1,GUICtrlRead($saldo_pozyczek_1) + GUICtrlRead($kwota_pozyczki_1))
GUICtrlSetData($pieniadze_1,GUICtrlRead($pieniadze_1) + GUICtrlRead($kwota_pozyczki_1))
EndFunc
Func Splata_1()
If GUICtrlRead($saldo_pozyczek_1) >= GUICtrlRead($kwota_splaty_1) Then GUICtrlSetData($saldo_pozyczek_1,GUICtrlRead($saldo_pozyczek_1) - GUICtrlRead($kwota_splaty_1))
If GUICtrlRead($saldo_pozyczek_1) >= GUICtrlRead($kwota_splaty_1) Then GUICtrlSetData($pieniadze_1, GUICtrlRead($pieniadze_1) - GUICtrlRead($kwota_splaty_1))
EndFunc

 

 

 

Fajny pomysł na grę, w razie problemów pytaj, postaram się pomóc.

Andre13 Budowniczy

Andre13

Opublikowano
Budowniczy

Andre13

  • Autor
Opublikowano

Dobra, olałem opta, ale jednoczesnie może być obsiana jedna grządka, a chce aby móc 5. Dopisać trzeba funkcję:

Func Wrost_roslin($ID)

For $i = 1 To 100 Step + 1.65

GuiCtrlSetData($ID,$i)

Sleep(1000)

Next i do siania użyć tej funkcji pamiętając o podstawieniu pod $ID i przerzuceniu na pętlę While.

Jakoś tu pusto...

Ballas Pasjonat

Ballas

Opublikowano
Pasjonat

Ballas

Opublikowano

Wiem o co ci chodzi, ale zrozum, że autoit jest jednowątkowy i niezbyt łatwo (15 minut roboty) jest zrobić tą funkcje aby można wszystkie naraz obsiewać. Bez Adlibregister lub Timerów musiałbyś stworzyć 5 zmiennych przechowujących stan % obsiania oraz 5 kolejnych zmiennych opisujących "właściwości" grządki (0-proggres nie zmienia się/1-proggres wzrasta). lepiej zostać przy Adlibregister.

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

&nbsp;

Wiem o co ci chodzi, ale zrozum, że autoit jest jednowątkowy i niezbyt łatwo (15 minut roboty) jest zrobić tą funkcje aby można wszystkie naraz obsiewać. Bez Adlibregister lub Timerów musiałbyś stworzyć 5 zmiennych przechowujących stan % obsiania oraz 5 kolejnych zmiennych opisujących "właściwości" grządki (0-proggres nie zmienia się/1-proggres wzrasta). lepiej zostać przy Adlibregister.

Do każdej grządki ma tworzyć nowy wątek? Paranoja. Takie rzeczy się robi na tablicach.

 

Zresztą sama ta pętla for step 1.65 jest bez sensu.

Wszystko powinno się dziać w jednej głównej pętli, tam obsługiwać akcje i 'postarzać' grządki o np (100.0/60.0)

Bo co jakbyś chciał teraz dodać inną akcję? Kolejny wątek i jakieś nielogiczne 'wpraszanie' się w tą pętlę?

981841412442977292370.png
Andre13 Budowniczy

Andre13

Opublikowano
Budowniczy

Andre13

  • Autor
Opublikowano

To do każdego progressbaru zrobić tablice? A jak mam zrobić z tym "postarzaniem"? Na sekundę ma przypadać 1.66666666667%, a rośnie 60 sekund

Jakoś tu pusto...

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

nie do każdego progressbasru robisz tablicę, tylko masz tablicę grządek i tą tablicę 'ilustrujesz' progressbarami.

Na sekundę ma przypadać 1.66666666667%, a rośnie 60 sekund

nie zaokrąglaj tylko pisz 100/60

 

A jak mam zrobić z tym "postarzaniem"?

dodawaniem
981841412442977292370.png
Andre13 Budowniczy

Andre13

Opublikowano
Budowniczy

Andre13

  • Autor
Opublikowano

nie do każdego progressbasru robisz tablicę, tylko masz tablicę grządek i tą tablicę 'ilustrujesz' progressbarami.

nie zaokrąglaj tylko pisz 100/60

 

dodawaniem

Czyli mam to dopisać (?):

Local  $tablica[5] = [ $uprawa_1, $uprawa_2, $uprawa_3, $uprawa_3, $uprawa_4]

Z tym "starzeniem" to nwm jak zrobić.

Jakoś tu pusto...

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

nie tak

local $tab[5] = [0,0,0,0,0] ;to są czasy na grządkach/dojzalosc czy cos

tab[1] += 100/60; ;to i to nizej w petli po wszystkich grzadkach

if $tab[1] >= 1 then uroslo

981841412442977292370.png
Andre13 Budowniczy

Andre13

Opublikowano
Budowniczy

Andre13

  • Autor
Opublikowano

 

#include
#include
#include
#include
#include
#include
#include
#include

#Region ### START Koda GUI section ### Form=
$Farma = GUICreate("Farma", 626, 402, 192, 124, -1, BitOR($WS_EX_APPWINDOW,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
;;;;;;;;;;;;;;;;;KONTO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;+
$Group1 = GUICtrlCreateGroup("Konto", 8, 8, 217, 97)
$pieniadze_2 = GUICtrlCreateLabel("Pieniądze ($):", 16, 32, 69, 17)
$kursy_roslin_2 = GUICtrlCreateLabel("Kursy roślin:", 16, 72, 60, 17)
$kursy_roslin_1 = GUICtrlCreateLabel("40 $", 96, 72, 36, 17)
$pieniadze_1 = GUICtrlCreateLabel("1000", 96, 32, 92, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;;;;;;;;;;;;;;;;;;;;;;;;;FARMA;;;;;;;;;;;;;;;;;;;;;;;;;+
$Group2 = GUICtrlCreateGroup("Farma", 232, 136, 217, 73)
$l_grzadki_2 = GUICtrlCreateLabel("Grządki:", 240, 152, 43, 17)
$l_grzadki_dostepne_2 = GUICtrlCreateLabel("Grządki dostępne:", 240, 176, 90, 17)
$l_grzadki_1 = GUICtrlCreateLabel("5", 288, 152, 58, 17)
$l_gzradki_dostepne_1 = GUICtrlCreateLabel("5", 336, 176, 108, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;OGRÓD;;;;;;;;;;;;;;;;;;;;;;;;;+
$uprawa_1 = GUICtrlCreateProgress(336, 16, 281, 17, $PBS_SMOOTH)
$uprawa_2 = GUICtrlCreateProgress(336, 40, 281, 17, $PBS_SMOOTH)
$uprawa_3 = GUICtrlCreateProgress(336, 64, 281, 17, $PBS_SMOOTH)
$uprawa_4 = GUICtrlCreateProgress(336, 88, 281, 17, $PBS_SMOOTH)
$uprawa_5 = GUICtrlCreateProgress(336, 112, 281, 17, $PBS_SMOOTH)
;;;;;;;;;;;;;;;;;;;;;;;;;OGRÓD;;;;;;;;;;;;;;;;;;;;;;;;;+
$grz_pierwsza = GUICtrlCreateLabel("Grządka pierwsza:", 232, 16, 91, 17)
$grz_druga = GUICtrlCreateLabel("Grządka druga:", 232, 40, 77, 17)
$grz_trzecia = GUICtrlCreateLabel("Grządka trzecia:", 232, 64, 81, 17)
$grz_czwarta = GUICtrlCreateLabel("Grządka czwarta:", 232, 88, 87, 17)
$grz_piata = GUICtrlCreateLabel("Grządka piąta:", 232, 112, 73, 17)
;;;;;;;;;;;;;;;;;;;;;;MAGAZYN;;;;;;;;;;;;;;;;;;;;;;;;;;;;-/+
$Group3 = GUICtrlCreateGroup("Magazyn", 8, 112, 217, 129)
$nasiona_2 = GUICtrlCreateLabel("Nasiona:", 16, 136, 46, 17)
$nawoz_2 = GUICtrlCreateLabel("Nawóz(kg):", 16, 160, 56, 17)
$woda_2 = GUICtrlCreateLabel("Woda (l):", 16, 184, 44, 17)
$rosliny_do_sprzedazy_2 = GUICtrlCreateLabel("Gotowe rośliny:", 16, 208, 76, 17)
$nasiona_1 = GUICtrlCreateLabel("5", 96, 136, 45, 17)
$nawoz_1 = GUICtrlCreateLabel("10", 96, 160, 47, 17)
$woda_1 = GUICtrlCreateLabel("10", 96, 184, 42, 17)
$rosliny_do_sprzedazy_1 = GUICtrlCreateLabel("5", 96, 208, 50, 17)
$sprzedaj = GUICtrlCreateButton("Sprzedaj", 152, 208, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;;;;;;;;;;;;;;;;;;;;;;;;;OPCJE GRY;;;;;;;;;;;;;;;;;;;;;;;;;+
$zapisywanie = GUICtrlCreateButton("Zapisz", 552, 144, 65, 25)
$wczytywanie = GUICtrlCreateButton("Wczytaj", 552, 176, 65, 25)
$Group4 = GUICtrlCreateGroup("Sklep", 8, 248, 225, 145)
;;;;;;;;;;;;;;;;;;;;;;;;;SKLEP;;;;;;;;;;;;;;;;;;;;;;;;;+
$nasionoa_3 = GUICtrlCreateLabel("Nasiona:", 16, 264, 46, 17)
$nawoz_3 = GUICtrlCreateLabel("Nawóz (kg):", 16, 288, 58, 17)
$woda_3 = GUICtrlCreateLabel("Woda (l):", 16, 312, 44, 17)
$kupowane_nasiona = GUICtrlCreateInput("", 88, 264, 137, 21,$ES_NUMBER)
$kupowany_nawoz = GUICtrlCreateInput("", 88, 288, 137, 21,$ES_NUMBER)
$kupowana_woda = GUICtrlCreateInput("", 88, 312, 137, 21,$ES_NUMBER)
$kupowanie = GUICtrlCreateButton("Kup", 136, 344, 89, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;;;;;;;;;;;;;;;;;;;;;;;;;BANK;;;;;;;;;;;;;;;;;;;;;;;;;+
$Group5 = GUICtrlCreateGroup("Pożyczka", 240, 248, 161, 65)
$kwota_pozyczki_2 = GUICtrlCreateLabel("Kwota:", 248, 264, 37, 17)
$kwota_pozyczki_1 = GUICtrlCreateInput("", 296, 264, 97, 21,$ES_NUMBER)
$pozycz = GUICtrlCreateButton("Pożycz", 248, 288, 145, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("Spłata", 416, 248, 161, 65)
$kwota_splaty_2 = GUICtrlCreateLabel("Kwota:", 424, 264, 37, 17)
$kwota_splaty_1 = GUICtrlCreateInput("", 472, 264, 97, 21,$ES_NUMBER)
$splacaj = GUICtrlCreateButton("Spłać", 424, 288, 145, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$saldo_pozyczek_2 = GUICtrlCreateLabel("Saldo pożyczek:", 240, 320, 82, 17)
$saldo_pozyczek_1 = GUICtrlCreateLabel("", 328, 320, 49, 17)
$grz_1 = GUICtrlCreateRadio("Grządka 1", 232, 216, 73, 17)
$grz_2 = GUICtrlCreateRadio("Grządka 2", 232, 232, 73, 17)
$grz_3 = GUICtrlCreateRadio("Grządka 3", 304, 216, 73, 17)
$grz_4 = GUICtrlCreateRadio("Grządka 4", 304, 232, 65, 17)
$grz_5 = GUICtrlCreateRadio("Grządka 5", 376, 216, 73, 17)
$Zasianie = GUICtrlCreateButton("Zasiej", 456, 216, 105, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
local $tab[5] = [0,0,0,0,0]
While 1

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $pozycz
Pozyczka_1()
Case $splacaj
Splata_1()
Case $zapisywanie
Zapisanie_save()
Case $wczytywanie
Wczytanie_save()
Case $sprzedaj
Sprzedawanie()
Case $Zasianie
Zasianie()
EndSwitch
tab[1] += 100/60;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TO CO WSTAWIŁEM ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
if $tab[1] >= 1 then e ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TO CO WSTAWIŁEM ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
WEnd
;While 1
;Kursy_roslin()
;WEnd
Func Zasianie()
If GUICtrlRead($grz_1) == $GUI_CHECKED And GUICtrlRead($nasiona_1) >= 1 Then GUICtrlSetData($uprawa_1,'')
If GUICtrlRead($grz_2) == $GUI_CHECKED And GUICtrlRead($nasiona_1) >= 1 Then GUICtrlSetData($uprawa_2,'')
If GUICtrlRead($grz_3) == $GUI_CHECKED And GUICtrlRead($nasiona_1) >= 1 Then GUICtrlSetData($uprawa_3,'')
If GUICtrlRead($grz_4) == $GUI_CHECKED And GUICtrlRead($nasiona_1) >= 1 Then GUICtrlSetData($uprawa_4,'')
If GUICtrlRead($grz_5) == $GUI_CHECKED And GUICtrlRead($nasiona_1) >= 1 Then GUICtrlSetData($uprawa_5,'')
EndFunc

Func Koniec()
Exit
EndFunc
Func Sprzedawanie()
If GUICtrlRead($rosliny_do_sprzedazy_1) >= 1 Then GUICtrlSetData($rosliny_do_sprzedazy_1, GUICtrlRead($rosliny_do_sprzedazy_1) - 1)
If GUICtrlRead($rosliny_do_sprzedazy_1) >= 1 Then GUICtrlSetData($pieniadze_1, GUICtrlRead($pieniadze_1) + GUICtrlRead($kursy_roslin_1))
EndFunc
Func Kupowanie()
GUICtrlSetData($nasiona_1,GUICtrlRead($nasiona_1) + GUICtrlRead($kupowane_nasiona))
GUICtrlSetData($nawoz_1,GUICtrlRead($nawoz_1) + GUICtrlRead($kupowany_nawoz))
GUICtrlSetData($woda_1,GUICtrlRead($woda_1) + GUICtrlRead($kupowana_woda))
GUICtrlSetData($pieniadze_1, GUICtrlRead($pieniadze_1) - (GUICtrlRead($kupowane_nasiona) * 5 + GUICtrlRead($kupowany_nawoz) * 20 + GUICtrlRead($kupowana_woda) * 10))
EndFunc
;Func Kursy_roslin()
;GUICtrlSetData($kursy_roslin_1,Random(30,45,1)&" $")
;Sleep(2500)
;EndFunc
Func Zapisanie_save()
$profil_zapis = FileSaveDialog("Zapisz stan gry",@AppDataDir,"Saves files (*.farmsav)")
IniWrite($profil_zapis&".farmsav","KONTO","Pieniądze",GUICtrlRead($pieniadze_1))
IniWrite($profil_zapis&".farmsav","FARMA","Grządki",GUICtrlRead($l_grzadki_1))
IniWrite($profil_zapis&".farmsav","FARMA","Grządki dostępne",GUICtrlRead($l_gzradki_dostepne_1))
IniWrite($profil_zapis&".farmsav","UPRAWA","Grządka pierwsza",GUICtrlRead($uprawa_1))
IniWrite($profil_zapis&".farmsav","UPRAWA","Grządka druga",GUICtrlRead($uprawa_2))
IniWrite($profil_zapis&".farmsav","UPRAWA","Grządka trzecia",GUICtrlRead($uprawa_3))
IniWrite($profil_zapis&".farmsav","UPRAWA","Grządka czwarta",GUICtrlRead($uprawa_4))
IniWrite($profil_zapis&".farmsav","UPRAWA","Grządka piąta",GUICtrlRead($uprawa_5))
IniWrite($profil_zapis&".farmsav","MAGAZYN","Nasiona",GUICtrlRead($nasiona_1))
IniWrite($profil_zapis&".farmsav","MAGAZYN","Nawóz",GUICtrlRead($nawoz_1))
IniWrite($profil_zapis&".farmsav","MAGAZYN","Woda",GUICtrlRead($woda_1))
IniWrite($profil_zapis&".farmsav","MAGAZYN","Rośliny do sprzedaży",GUICtrlRead($rosliny_do_sprzedazy_1))
IniWrite($profil_zapis&".farmsav","BANK","Pożyczka",GUICtrlRead($saldo_pozyczek_1))
MsgBox(0,"Farma","Zapisano stan gry")
EndFunc
Func Wczytanie_save()
$profil_wczytywanie = FileOpenDialog("Wybierz zapis stanu gry", @AppDataDir, "Saves files (*.farmsav)")
$pieniadze_save = IniRead($profil_wczytywanie,"KONTO","Pieniądze",'')
$l_grzadki_save = IniRead($profil_wczytywanie,"FARMA","Grządki",'')
$l_grzadki_dostepne_save = IniRead($profil_wczytywanie,"FARMA","Grządki dostępne",'')
$uprawa_1_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka pierwsza",'')
$uprawa_2_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka druga",'')
$uprawa_3_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka trzecia",'')
$uprawa_4_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka czwarta",'')
$uprawa_5_save = IniRead($profil_wczytywanie,"UPRAWA","Grządka piąta",'')
$nasiona_save = IniRead($profil_wczytywanie,"MAGAZYN","Nasiona",'')
$nawoz_save = IniRead($profil_wczytywanie,"MAGAZYN","Nawóz",'')
$woda_save = IniRead($profil_wczytywanie,"MAGAZYN","Woda",'')
$rosliny_do_sprzedazy_save = IniRead($profil_wczytywanie,"MAGAZYN","Rośliny do sprzedaży",'')
$saldo_pozyczek_save = IniRead($profil_wczytywanie,"KONTO","Pieniądze",'')
GUICtrlSetData($pieniadze_1,$pieniadze_save)
GUICtrlSetData($l_grzadki_1,$l_grzadki_save)
GUICtrlSetData($l_gzradki_dostepne_1,$l_grzadki_dostepne_save)
GUICtrlSetData($uprawa_1,$uprawa_1_save)
GUICtrlSetData($uprawa_2,$uprawa_2_save)
GUICtrlSetData($uprawa_3,$uprawa_3_save)
GUICtrlSetData($uprawa_4,$uprawa_4_save)
GUICtrlSetData($uprawa_5,$uprawa_5_save)
GUICtrlSetData($nasiona_1,$nasiona_save)
GUICtrlSetData($nawoz_1,$nawoz_save)
GUICtrlSetData($woda_1,$woda_save)
GUICtrlSetData($rosliny_do_sprzedazy_1,$rosliny_do_sprzedazy_save)
GUICtrlSetData($saldo_pozyczek_1,$saldo_pozyczek_save)
MsgBox(0,"Farma","Wczytano zapis gry")
EndFunc
Func Pozyczka_1()
GUICtrlSetData($saldo_pozyczek_1,GUICtrlRead($saldo_pozyczek_1) + GUICtrlRead($kwota_pozyczki_1))
GUICtrlSetData($pieniadze_1,GUICtrlRead($pieniadze_1) + GUICtrlRead($kwota_pozyczki_1))
EndFunc
Func Splata_1()
If GUICtrlRead($saldo_pozyczek_1) >= GUICtrlRead($kwota_splaty_1) Then GUICtrlSetData($saldo_pozyczek_1,GUICtrlRead($saldo_pozyczek_1) - GUICtrlRead($kwota_splaty_1))
If GUICtrlRead($saldo_pozyczek_1) >= GUICtrlRead($kwota_splaty_1) Then GUICtrlSetData($pieniadze_1, GUICtrlRead($pieniadze_1) - GUICtrlRead($kwota_splaty_1))
EndFunc

 

 

Tak cię zrozumiałem.

Pytanko: Czy mam umieszczać funkcje pod Case, zostawić tak?

Jakoś tu pusto...

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

Jak umiesz tylko skopiować kod i nawet nie przeczytać tego co dopisałem w komentarzu i nie dodstosować kodu do własnych potrzeb to wróć do nauki podstaw. Nawet tablic nie ogarniasz (nie używasz tam gdzie były by przydatne, a to oznacza, że nie ogarniasz)

981841412442977292370.png
Andre13 Budowniczy

Andre13

Opublikowano
Budowniczy

Andre13

  • Autor
Opublikowano

$tab[5] Wpisane jest na samym początku kodu.

Te Progressbary to mają być takie (?):

$tab[0] = GUICtrlCreateProgress(336, 16, 281, 17, $PBS_SMOOTH)
$tab[1] = GUICtrlCreateProgress(336, 40, 281, 17, $PBS_SMOOTH)
$tab[2] = GUICtrlCreateProgress(336, 64, 281, 17, $PBS_SMOOTH)
$tab[3] = GUICtrlCreateProgress(336, 88, 281, 17, $PBS_SMOOTH)
$tab[4] = GUICtrlCreateProgress(336, 112, 281, 17, $PBS_SMOOTH)

Jakoś tu pusto...

Zarchiwizowany

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

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