Gra

[henazari1]

Witam!

Co jest źle w tej grze...

 

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 578, 250, 328, 261)

GUISetFont(14, 400, 0, "Arial")

$Pic1 = GUICtrlCreatePic("C:\Users\K\Pictures\227_1680x1050.jpg", 0, 0, 577, 249, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

$Input1 = GUICtrlCreateInput("", 56, 72, 161, 30)

$Input2 = GUICtrlCreateInput("", 361, 73, 161, 30)

$Label1 = GUICtrlCreateLabel("Stawka:", 96, 16, 69, 26)

$Label2 = GUICtrlCreateLabel("Liczba 1-5:", 390, 16, 97, 26)

$Button1 = GUICtrlCreateButton("Graj!", 200, 160, 193, 81, $WS_GROUP)

$Label3 = GUICtrlCreateLabel("Monety:", 24, 176, 70, 26)

$Label4 = GUICtrlCreateLabel("500", 32, 211, 37, 26)

$Label5 = GUICtrlCreateLabel("-", 480, 224, 95, 20)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

 

 

While 1

 

$nMsg = GUIGetMsg()

 

Switch $nMsg

 

Case $GUI_EVENT_CLOSE

 

Exit

 

case $Button1

 

$i1 = guictrlread($Input1)

 

$i2 = guictrlread($Input2)

 

$l = guictrlread($Label4)

 

$r = random(0,6,1)

 

if $r = $i2 Then

 

$i1 *= 5

 

MsgBox(0,"Gratulacje!","Wygrales" & $i1 & "monet!")

 

$l += $i1

 

guictrlsetdata($Label4,$l)

 

Else

 

$l -= $i1

 

guictrlsetdata($Label4,$l)

 

MsgBox(0,"Uuuuu!","Przegrales " & $i1 & " monet...")

 

EndIf

 

if $l <= -1000 Then

 

msgbox(0,"Przegrales!","Koniec Gry!")

 

 

EndIf

 

EndSwitch

WEnd

 

 

Nie mogę kliknąć w label2 aby uzupełnić i nie mogę wcisnąć buttona... Pomóżcie bo mnie krew zalewa ;/

[M4niak]

u mnie dziala dobrze ;d

[Dohoian]

While 1

$nMsg = GUIGetMsg()

 

Zamień to z tym, w końcu, GUIGetMsg odpowiada za przechowywania danych tekstowych z gry.

[henazari1]

Ok poradziłem sobie z tym ale mam jeszcze 1 pytanie... Gdy np podam inna liczbe niż 1-5 chcę aby wyskoczył komunikat że podana liczba jest nieprawidłowa. Jak to zrobić?

[Suchy™]

If GUICtrlRead($INput2) > 5 Or GUICtrlRead($Input2) < 0 Then MsgBox(0,"","Błąd")

 

No i jeszcze to.. Czasami random wychodzi 0 - więc nie trafisz nic ni chuja.

[henazari1]

@up

Jest git. wyskakuje komunikat. Ale po kliknięciu OK dalej pisze że przegrałeś i odbiera kase...

 

@edit

I jeszcze 1

Gdy przegram czyli będę miał 0 kasy chcę aby wyskoczył komunikat czy rozpocząć nową grę. Zrobiłem coś takiego:

 

If GUICtrlRead($Label4) < 1  Then MsgBox(4,"Od nowa","Czy chcesz zagrac jeszcze raz?")
Guictrlsetdata($Label4,500)

 

Gdy kliknę tak gra rozpoczyna się od początku ale gdy nacistę nie jest to samo :/

[henazari1]

@refresh!

[xDeStRuCtx]

@UP

If GUICtrlRead($Label4) < 1 Then
$ax = MsgBox(4,"Od nowa","Czy chcesz zagrac jeszcze raz?")
switch $ax
Case 7
	msgbox(0, "asd", "NIE to NIE!")
Exit
Case 6
	msgbox(1, "asd", "TAK")
Guictrlsetdata($Label4,500)
endswitch

[henazari1]

Jeszcze to:

 

If GUICtrlRead($INput2) > 5 Or GUICtrlRead($Input2) < 0 Then MsgBox(0,"","Błąd")

Wpisuję to jest ok. Wyskakuje że nie mam tyle kasy ale gdy kliknę OK to dalej odbiera...

[henazari1]

@refresh

[henazari1]

@ref

Nikt nie wie? Pomóżcie bardzo mi potrzebne.

[Kidjamkas]

wrzuć jeszcze raz cały kod to Ci pomoge

[RobeM]

jak wrzucasz to formatuj skrypt w tiny , wygodniejszy potem nawet w przeglądaniu