[Pytanie] Hazard

[Fli_PL]

@up ma rację, naucz się używać znaku "mniejszy bądź równy" czyli:

<=

albo po prostu "mniejszy"

<

I wywal z instrukcji warunkowej "And $inform = True" Bo po raz ta zmienna jest potrzebna tylko do informowania o BRAKU kasy a dwa, jeśli masz mniej niż 25 zł to nie znaczy że masz zero, a $inform przybiera wartość True wtedy i tylko wtedy, gdy wartość złotówek jest poniżej zera.

[kotlet-schabowy]

Teraz nie wiem dlaczego nie działa mi >= :huh:

 

Chcę zrobić tak, aby automatycznie po iluśtam ruchach, oddał kasę, a jak nie ma to koniec gry.

 

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;=======================
Global $kwota = 100;Dajmy na to plusikowe 100 złotych 
Global $match = True
Global $inform = False
;=======================
#Region ### START Koda GUI section ### Form=
$Loser = GUICreate("Loser", 269, 200, 192, 124)
$Liczba = GUICtrlCreateInput("Wybierz liczbę od 1 do 10 i sprawdź czy wygrałes!", 8, 8, 249, 21)
$Pozyczka = GUICtrlCreateButton("Pozyczka",8,125,200,41)
$Ilosc = GUICtrlCreateInput("",210,135,50,20)
$Losuj = GUICtrlCreateButton("Losuj liczbę!", 8, 40, 249, 41, $WS_GROUP)
$Bunt = GUICtrlCreateButton("Bunt!",8,83,249,41)
$Label1 = GUICtrlCreateLabel("Posiadasz "&$kwota&" złotych.", 40, 170, 196, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
              Case $GUI_EVENT_CLOSE
                      Exit
                                              Case $Losuj
                      If $match = True Then
                      $y = Round(Random(1,10,1))
                      $x = GUICtrlRead($Liczba)
                      If $x = $y Then
                              $kwota = $kwota + 20  ;(Lub $kwota = $kwota + 1)
                              MsgBox(0,"TRUE!","Wygrałes!")
                              GUICtrlSetData($label1, "Posiadasz "&$kwota&" złotych.")
                      Else
                              $kwota = $kwota - 4 ;(Lub $kwota = $kwota - 1)
                              MsgBox(0, "FALSE!", "Dupa blada!")
                              GUICtrlSetData($label1, "Posiadasz "&$kwota&" złotych.")
                                                      EndIf
                                              EndIf
                                                               If $kwota = 0 And $inform = False Then
                      MsgBox(16, "Error", "Niestety nie masz kasiory na dalsza gre!")
                      $match = False
                      $inform = True
                                                      EndIf
                              Case $Bunt
                                      If Random() < 0.4 Then
                                              $kwota = $kwota  + 15
                                              GUICtrlSetData($label1, "Posiadasz "&$kwota&" złotych.")
                                              MsgBox(0,"","Bunt udany! Udało ci się odzyskać 15zł!")
                                      Else
                                              $kwota = $kwota - 20
                                              GUICtrlSetData($label1, "Posiadasz "&$kwota&" złotych.")
                                              MsgBox(0,"","Nie udało ci się zbuntować! Tracisz 20zł!")
									   EndIf
								   Case $Pozyczka
									   $l = GUICtrlRead($Ilosc)
									   $kwota = $kwota + $l
									   GUICtrlSetData($label1, "Posiadasz "&$kwota&" złotych.")
									   MsgBox(0,"Bank","Pozyczyles "&$l&" złotych")
									     If $Ilosc >= 51 Then
									   MsgBox(0,"Bank","Nie za duzo? ")
									   EndIf
                              EndSwitch
     If $kwota <= 0 And $inform = False Then
                      MsgBox(16, "Error", "Niestety nie masz kasiory na dalsza gre!")
                      $match = False
                      $inform = True
				   Exit
			   EndIf
			   If $kwota <= 30 Then
				   GUICtrlSetData($label1,"Posiadasz "&$kwota&" złotych.")
				   MsgBox(0,"UWAGA!","Zblizasz się do bankructwa! Szansa na wygraną rosnie do 65%!")
				   If Random() < 0.65 Then
                                              $kwota = $kwota  + 15
                                              GUICtrlSetData($label1, "Posiadasz "&$kwota&" złotych.")
                                              MsgBox(0,"","Bunt udany! Udało ci się odzyskać 15zł!")
                                      Else
                                              $kwota = $kwota - 20
                                              GUICtrlSetData($label1, "Posiadasz "&$kwota&" złotych.")
                                              MsgBox(0,"","Nie udało ci się zbuntować! Tracisz 20zł!")
									   EndIf
								   EndIf
WEnd

 

[Fli_PL]

                                                                                     If $Ilosc >= 51 Then
                                                                                  MsgBox(0,"Bank","Nie za duzo? ")

$ilosc to nazwa inputa a nie jego zawartość!

 

 If $kwota <= 30 Then
                                          GUICtrlSetData($label1,"Posiadasz "&$kwota&" złotych.")
                                          MsgBox(0,"UWAGA!","Zblizasz się do bankructwa! Szansa na wygraną rosnie do 65%!")
                                          If Random() < 0.65 Then
                                              $kwota = $kwota  + 15
                                              GUICtrlSetData($label1, "Posiadasz "&$kwota&" złotych.")
                                              MsgBox(0,"","Bunt udany! Udało ci się odzyskać 15zł!")

Źle.

 

Global $wspolczynnik = 0.4 ;(40% szans na wygrana)

$x = Random(1,10,1)
If $x<$wspolczynnik Then
    (...)wygrałeś
Else
    (...)przegrałeś
EndIf


If $kwota <= 30 Then $wspolczynnik = $wspolczynnik + 0.2 ;(podnosi szanse o 20%, bo 20% to dwadzieścia setnych, czyli dwie dziesiąte, czyli 0.2)
If $kwota > 30 Then $wspolczynnik = 0.4 ;(Jeśli już dzięki tym 20% szans uda ci się wybić z biedy to trzeba wrócić do poprzedniej szansy, nie ma tak łatwo )

[tk371]

Przed pętlą dodaj

$runda=0

A to przetłumacz na AutoIT:

JEŚLI został kliknięty przycisk TO $runda+=1
JEŚLI $runda wynosi (ilość) TO
   $runda=0
   JEŚLI nie prawda, że ($kasa<=0) TO
       Oddaj kasę
   JEŚLI INACZEJ
       Wyłącz program
   SKOŃCZ JEŚLI
SKOŃCZ JEŚLI