Poker w gothicu 9018 13

Ankieta

Poker

Głosów w sumie: 33

O temacie

Autor RafalBudzis

Zaczęty 24.09.2011 roku

Wyświetleń 9018

Odpowiedzi 13

RafalBudzis

RafalBudzis

Użytkownicy
posty1967
Propsy808
ProfesjaSkrypter
  • Użytkownicy

RafalBudzis

Poker w gothicu
2011-09-24, 19:36(Ostatnia zmiana: 2011-09-27, 13:49)
Mam pomysł aby zrobić Pokera w Gothic`u 1 był by to dodatek do Budzis Skrypt Mod w wersji 2.6 lecz kilka osób twierdzi ze to zły pomysł więc chciał bym sprawdzić wasze zdanie na ten temat.

karty by były w 24 osobnych zmiennych i przy tasowaniu jedna wylosowana z druga wylosowaną zamieniała by się miejscem potem 10 kart jest rozdawanych miedzy graczy wybieramy ile kart chcemy wymienić (wtedy też jest zamiana naszej karty z 11, 12, 13 itd)

więc nasze karty to zawsze zmienne

karta1
karta3
karta5
karta7
karta9

parzyste ma NPC. NPC narazie nie bedzie wymieniał kart.

Teraz tylko jeden problem jak jak skonstrułować if`y dla karety, full`a oraz 2 par ? bo nie mam pomysłów za bardzo
 
Gruppenfuehrer Kereth

Gruppenfuehrer Kereth

Użytkownicy
New World Order, bitchez!
posty669
Propsy484
  • Zbanowany
  • New World Order, bitchez!

Gruppenfuehrer Kereth

Poker w gothicu
#1 2011-09-24, 20:19
Jak będzie jeszcze rosyjska ruletka, to będę zadowolony.  :ok:
 
Комиссар RBT
webcioo

webcioo

DreamVader
posty191
Propsy17
Profesjabrak
  • DreamVader

webcioo
DreamVader

Poker w gothicu
#2 2011-09-24, 20:31
Jeżeli masz taki pomysł to czemu masz go nie zrealizować:)
 
Wojtexx

Wojtexx

Użytkownicy
posty128
Propsy42
ProfesjaGracz
  • Użytkownicy

Wojtexx

Poker w gothicu
#3 2011-09-24, 20:59
Ja bym tam zaproponował raczej blackjacka. Łatwiejsze
 
MarkosBoss

MarkosBoss

RaveN Studio
posty119
Propsy186
Profesjabrak
  • RaveN Studio

MarkosBoss
RaveN Studio

Poker w gothicu
#4 2011-09-25, 08:45
A nie byłoby łatwiej zamiast zwykłego pokera zrobić Texas Hold'em ("Gothic Hold'em"?)? Odpadałoby wymienianie kart... Nie znam się na skryptach, ale wydaje mi się, że byłoby to łatwiejsze w realizacji - i przy okazji mamy ciekawszą odmianę pokera. :D  Co prawda figury są te same, więc nadal masz problemy z tymi karetami, fullami etc...

 W każdym razie pomysł jest bardzo dobry, choć wiele zależy od realizacji.
 
RafalBudzis

RafalBudzis

Użytkownicy
posty1967
Propsy808
ProfesjaSkrypter
  • Użytkownicy

RafalBudzis

Poker w gothicu
#5 2011-09-25, 12:27(Ostatnia zmiana: 2011-09-25, 19:23)
Cytat: MarkosBoss#msg w 2011-09-25, 08:45
Co prawda figury są te same, więc nadal masz problemy z tymi karetami, fullami etc...

Musiałem się z tym przespać i dostałem olśnienia :D  Już zrobiłem pokera w VBS bo nie jestem u siebie teraz tylko do gothic`a to dać :D  

Nie ma tu sprawdzania kto wygrał ale nie chce mi sie tego robić w vbs zrobie to już w gothic`u
Spoiler
Kod: [Zaznacz]
Option Explicit
on error resume next

dim karta1
dim karta2
dim karta3
dim karta4
dim karta5
dim karta6
dim karta7
dim karta8
dim karta9
dim karta10
dim karta11
dim karta12
dim karta13
dim karta14
dim karta15
dim karta16
dim karta17
dim karta18
dim karta19
dim karta20
dim karta21
dim karta22
dim karta23
dim karta24

karta1 = "AS "
karta2 = "K "
karta3 = "Q "
karta4 = "J "
karta5 = "10 "
karta6 = "9 "
karta7 = "AS "
karta8 = "K "
karta9 = "Q "
karta10 = "J "
karta11 = "10 "
karta12 = "9 "
karta13 = "AS "
karta14 = "K "
karta15 = "Q "
karta16 = "J "
karta17 = "10 "
karta18 = "9 "
karta19 = "AS "
karta20 = "K "
karta21 = "Q "
karta22 = "J "
karta23 = "10 "
karta24 = "9 "

dim kolor1
dim kolor2
dim kolor3
dim kolor4
dim kolor5
dim kolor6
dim kolor7
dim kolor8
dim kolor9
dim kolor10
dim kolor11
dim kolor12
dim kolor13
dim kolor14
dim kolor15
dim kolor16
dim kolor17
dim kolor18
dim kolor19
dim kolor20
dim kolor21
dim kolor22
dim kolor23
dim kolor24

kolor1 = "(serce)"
kolor2 = "(serce)"
kolor3 = "(serce)"
kolor4 = "(serce)"
kolor5 = "(serce)"
kolor6 = "(serce)"
kolor7 = "(dzwonek)"
kolor8 = "(dzwonek)"
kolor9 = "(dzwonek)"
kolor10 = "(dzwonek)"
kolor11 = "(dzwonek)"
kolor12 = "(dzwonek)"
kolor13 = "(zołądz)"
kolor14 = "(zołądz)"
kolor15 = "(zołądz)"
kolor16 = "(zołądz)"
kolor17 = "(zołądz)"
kolor18 = "(zołądz)"
kolor19 = "(wino)"
kolor20 = "(wino)"
kolor21 = "(wino)"
kolor22 = "(wino)"
kolor23 = "(wino)"
kolor24 = "(wino)"



dim a,los1,los2,zamieniona,zamieniona2,zamienionakolor,zamienionakolor2,wynik
Randomize()

for a=0 to 150

los1 = (((23 - 1 +1) * Rnd()) \1)+1
los2 = (((23 - 1 +1) * Rnd()) \1)+1

#msg1007851msgBox(los1 & "  " & los2)#msg1007851


if (los1 = 1 ) then
zamieniona = karta1
zamienionakolor = kolor1
end if
if (los1 = 2 ) then
zamieniona = karta2
zamienionakolor = kolor2
end if
if (los1 = 3 ) then
zamieniona = karta3
zamienionakolor = kolor3
end if
if (los1 = 4 ) then
zamieniona = karta4
zamienionakolor = kolor4
end if
if (los1 = 5 ) then
zamieniona = karta5
zamienionakolor = kolor5
end if
if (los1 = 6 ) then
zamieniona = karta6
zamienionakolor = kolor6
end if
if (los1 = 7 ) then
zamieniona = karta7
zamienionakolor = kolor7
end if
if (los1 = 8 ) then
zamieniona = karta8
zamienionakolor = kolor8
end if
if (los1 = 9 ) then
zamieniona = karta9
zamienionakolor = kolor9
end if
if (los1 = 10 ) then
zamieniona = karta10
zamienionakolor = kolor10
end if
if (los1 = 11 ) then
zamieniona = karta11
zamienionakolor = kolor11
end if
if (los1 = 12 ) then
zamieniona = karta12
zamienionakolor = kolor12
end if
if (los1 = 13 ) then
zamieniona = karta13
zamienionakolor = kolor13
end if
if (los1 = 14 ) then
zamieniona = karta14
zamienionakolor = kolor14
end if
if (los1 = 15 ) then
zamieniona = karta15
zamienionakolor = kolor15
end if
if (los1 = 16 ) then
zamieniona = karta16
zamienionakolor = kolor16
end if
if (los1 = 17 ) then
zamieniona = karta17
zamienionakolor = kolor17
end if
if (los1 = 18 ) then
zamieniona = karta18
zamienionakolor = kolor18
end if
if (los1 = 19 ) then
zamieniona = karta19
zamienionakolor = kolor19
end if
if (los1 = 20 ) then
zamieniona = karta20
zamienionakolor = kolor20
end if
if (los1 = 21 ) then
zamieniona = karta21
zamienionakolor = kolor21
end if
if (los1 = 22 ) then
zamieniona = karta22
zamienionakolor = kolor22
end if
if (los1 = 23 ) then
zamieniona = karta23
zamienionakolor = kolor23
end if
if (los1 = 24 ) then
zamieniona = karta24
zamienionakolor = kolor24
end if
if (los1 = 25 ) then
zamieniona = karta25
zamienionakolor = kolor25
end if






if (los2 = 0 ) then
zamieniona2 = karta0
zamienionakolor2 = kolor0
karta0 = zamieniona
kolor0 = zamienionakolor
end if
if (los2 = 1 ) then
zamieniona2 = karta1
zamienionakolor2 = kolor1
karta1 = zamieniona
kolor1 = zamienionakolor
end if
if (los2 = 2 ) then
zamieniona2 = karta2
zamienionakolor2 = kolor2
karta2 = zamieniona
kolor2 = zamienionakolor
end if
if (los2 = 3 ) then
zamieniona2 = karta3
zamienionakolor2 = kolor3
karta3 = zamieniona
kolor3 = zamienionakolor
end if
if (los2 = 4 ) then
zamieniona2 = karta4
zamienionakolor2 = kolor4
karta4 = zamieniona
kolor4 = zamienionakolor
end if
if (los2 = 5 ) then
zamieniona2 = karta5
zamienionakolor2 = kolor5
karta5 = zamieniona
kolor5 = zamienionakolor
end if
if (los2 = 6 ) then
zamieniona2 = karta6
zamienionakolor2 = kolor6
karta6 = zamieniona
kolor6 = zamienionakolor
end if
if (los2 = 7 ) then
zamieniona2 = karta7
zamienionakolor2 = kolor7
karta7 = zamieniona
kolor7 = zamienionakolor
end if
if (los2 = 8 ) then
zamieniona2 = karta8
zamienionakolor2 = kolor8
karta8 = zamieniona
kolor8 = zamienionakolor
end if
if (los2 = 9 ) then
zamieniona2 = karta9
zamienionakolor2 = kolor9
karta9 = zamieniona
kolor9 = zamienionakolor
end if
if (los2 = 10 ) then
zamieniona2 = karta10
zamienionakolor2 = kolor10
karta10 = zamieniona
kolor10 = zamienionakolor
end if
if (los2 = 11 ) then
zamieniona2 = karta11
zamienionakolor2 = kolor11
karta11 = zamieniona
kolor11 = zamienionakolor
end if
if (los2 = 12 ) then
zamieniona2 = karta12
zamienionakolor2 = kolor12
karta12 = zamieniona
kolor12 = zamienionakolor
end if
if (los2 = 13 ) then
zamieniona2 = karta13
zamienionakolor2 = kolor13
karta13 = zamieniona
kolor13 = zamienionakolor
end if
if (los2 = 14 ) then
zamieniona2 = karta14
zamienionakolor2 = kolor14
karta14 = zamieniona
kolor14 = zamienionakolor
end if
if (los2 = 15 ) then
zamieniona2 = karta15
zamienionakolor2 = kolor15
karta15 = zamieniona
kolor15 = zamienionakolor
end if
if (los2 = 16 ) then
zamieniona2 = karta16
zamienionakolor2 = kolor16
karta16 = zamieniona
kolor16 = zamienionakolor
end if
if (los2 = 17 ) then
zamieniona2 = karta17
zamienionakolor2 = kolor17
karta17 = zamieniona
kolor17 = zamienionakolor
end if
if (los2 = 18 ) then
zamieniona2 = karta18
zamienionakolor2 = kolor18
karta18 = zamieniona
kolor18 = zamienionakolor
end if
if (los2 = 19 ) then
zamieniona2 = karta19
zamienionakolor2 = kolor19
karta19 = zamieniona
kolor19 = zamienionakolor
end if
if (los2 = 20 ) then
zamieniona2 = karta20
zamienionakolor2 = kolor20
karta20 = zamieniona
kolor20 = zamienionakolor
end if
if (los2 = 21 ) then
zamieniona2 = karta21
zamienionakolor2 = kolor21
karta21 = zamieniona
kolor21 = zamienionakolor
end if
if (los2 = 22 ) then
zamieniona2 = karta22
zamienionakolor2 = kolor22
karta22 = zamieniona
kolor22 = zamienionakolor
end if
if (los2 = 23 ) then
zamieniona2 = karta23
zamienionakolor2 = kolor23
karta23 = zamieniona
kolor23 = zamienionakolor
end if
if (los2 = 24 ) then
zamieniona2 = karta24
zamienionakolor2 = kolor24
karta24 = zamieniona
kolor24 = zamienionakolor
end if






if (los1 = 1 ) then
karta1 = zamieniona2
kolor1 = zamienionakolor2
end if
if (los1 = 2 ) then
karta2 = zamieniona2
kolor2 = zamienionakolor2
end if
if (los1 = 3 ) then
karta3 = zamieniona2
kolor3 = zamienionakolor2
end if
if (los1 = 4 ) then
karta4 = zamieniona2
kolor4 = zamienionakolor2
end if
if (los1 = 5 ) then
karta5 = zamieniona2
kolor5 = zamienionakolor2
end if
if (los1 = 6 ) then
karta6 = zamieniona2
kolor6 = zamienionakolor2
end if
if (los1 = 7 ) then
karta7 = zamieniona2
kolor7 = zamienionakolor2
end if
if (los1 = 8 ) then
karta8 = zamieniona2
kolor8 = zamienionakolor2
end if
if (los1 = 9 ) then
karta9 = zamieniona2
kolor9 = zamienionakolor2
end if
if (los1 = 10 ) then
karta10 = zamieniona2
kolor10 = zamienionakolor2
end if
if (los1 = 11 ) then
karta11 = zamieniona2
kolor11 = zamienionakolor2
end if
if (los1 = 12 ) then
karta12 = zamieniona2
kolor12 = zamienionakolor2
end if
if (los1 = 13 ) then
karta13 = zamieniona2
kolor13 = zamienionakolor2
end if
if (los1 = 14 ) then
karta14 = zamieniona2
kolor14 = zamienionakolor2
end if
if (los1 = 15 ) then
karta15 = zamieniona2
kolor15 = zamienionakolor2
end if
if (los1 = 16 ) then
karta16 = zamieniona2
kolor16 = zamienionakolor2
end if
if (los1 = 17 ) then
karta17 = zamieniona2
kolor17 = zamienionakolor2
end if
if (los1 = 18 ) then
karta18 = zamieniona2
kolor18 = zamienionakolor2
end if
if (los1 = 19 ) then
karta19 = zamieniona2
kolor19 = zamienionakolor2
end if
if (los1 = 20 ) then
karta20 = zamieniona2
kolor20 = zamienionakolor2
end if
if (los1 = 21 ) then
karta21 = zamieniona2
kolor21 = zamienionakolor2
end if
if (los1 = 22 ) then
karta22 = zamieniona2
kolor22 = zamienionakolor2
end if
if (los1 = 23 ) then
karta23 = zamieniona2
kolor23 = zamienionakolor2
end if
if (los1 = 24 ) then
karta24 = zamieniona2
kolor24 = zamienionakolor2
end if



NEXT

msgbox(karta1 & kolor1 & vbNewLine & karta2 & kolor2 & vbNewLine & karta3 & kolor3 & vbNewLine & karta4 & kolor4 & vbNewLine & karta5 & kolor5 & vbNewLine & karta6 & kolor6 & vbNewLine & karta7 & kolor7 & vbNewLine & karta8 & kolor8 & vbNewLine & karta9 & kolor9 & vbNewLine & karta10 & kolor10 & vbNewLine & karta11 & kolor11 & vbNewLine & karta12 & kolor12 & vbNewLine & karta13 & kolor13 & vbNewLine & karta14 & kolor14 & vbNewLine & karta15 & kolor15 & vbNewLine & karta16 & kolor16 & vbNewLine & karta17 & kolor17 & vbNewLine & karta18 & kolor18 & vbNewLine & karta19 & kolor19 & vbNewLine & karta20 & kolor20 & vbNewLine & karta21 & kolor21 & vbNewLine & karta22 & kolor22 & vbNewLine & karta23 & kolor23 & vbNewLine & karta24 & kolor24 )


msgbox(karta1 & vbNewLine & karta3 & vbNewLine & karta5 & vbNewLine & karta7 & vbNewLine & karta9 )
wynik = "Brak figur"
if karta1 = karta3 then
wynik = "para z "& karta1
end if
if karta1 = karta5 then
wynik = "para z "& karta1
end if
if karta1 = karta7 then
wynik = "para z "& karta1
end if
if karta1 = karta9 then
wynik = "para z "& karta1
end if
if karta3 = karta5 then
wynik = "para z "& karta3
end if
if karta3 = karta7 then
wynik = "para z "& karta3
end if
if karta3 = karta9 then
wynik = "para z "& karta3
end if
if karta5 = karta7 then
wynik = "para z "& karta5
end if
if karta5 = karta9 then
wynik = "para z "& karta5
end if
if karta7 = karta9 then
wynik = "para z "& karta7
end if



if karta1 = karta3 then
if karta5 = karta7 then
wynik = "pary z "& karta1 & " " & karta5
end if
if karta5 = karta9 then
wynik = "pary z "& karta1 & " " & karta5
end if
if karta7 = karta9 then
wynik = "pary z "& karta1 & " " & karta7
end if
end if
if karta1 = karta5 then
if karta3 = karta7 then
wynik = "pary z "& karta1 & " " & karta3
end if
if karta3 = karta9 then
wynik = "pary z "& karta1 & " " & karta3
end if
if karta7 = karta9 then
wynik = "pary z "& karta1 & " " & karta7
end if
end if
if karta1 = karta7 then
if karta3 = karta5 then
wynik = "pary z "& karta1 & " " & karta3
end if
if karta3 = karta9 then
wynik = "pary z "& karta1 & " " & karta3
end if
if karta5 = karta9 then
wynik = "pary z "& karta1 & " " & karta5
end if
end if
if karta1 = karta9 then
if karta3 = karta5 then
wynik = "pary z "& karta1 & " " & karta3
end if
if karta3 = karta7 then
wynik = "pary z "& karta1 & " " & karta3
end if
if karta5 = karta7 then
wynik = "pary z "& karta1 & " " & karta5
end if
end if
if karta3 = karta5 then
if karta1 = karta7 then
wynik = "pary z "& karta3 & " " & karta1
end if
if karta1 = karta9 then
wynik = "pary z "& karta3 & " " & karta1
end if
if karta7 = karta9 then
wynik = "pary z "& karta3 & " " & karta7
end if
end if
if karta3 = karta7 then
if karta1 = karta5 then
wynik = "pary z "& karta3 & " " & karta1
end if
if karta1 = karta9 then
wynik = "pary z "& karta3 & " " & karta1
end if
if karta5 = karta9 then
wynik = "pary z "& karta3 & " " & karta5
end if
end if
if karta3 = karta9 then
if karta1 = karta5 then
wynik = "pary z "& karta3 & " " & karta1
end if
if karta1 = karta7 then
wynik = "pary z "& karta3 & " " & karta1
end if
if karta5 = karta7 then
wynik = "pary z "& karta3 & " " & karta5
end if
end if
if karta5 = karta7 then
if karta1 = karta3 then
wynik = "pary z "& karta5 & " " & karta1
end if
if karta1 = karta9 then
wynik = "pary z "& karta5 & " " & karta1
end if
if karta3 = karta9 then
wynik = "pary z "& karta5 & " " & karta3
end if
end if
if karta5 = karta9 then
if karta1 = karta3 then
wynik = "pary z "& karta5 & " " & karta1
end if
if karta1 = karta7 then
wynik = "pary z "& karta5 & " " & karta1
end if
if karta3 = karta7 then
wynik = "pary z "& karta5 & " " & karta3
end if
end if
if karta7 = karta9 then
if karta1 = karta3 then
wynik = "pary z "& karta7 & " " & karta1
end if
if karta1 = karta5 then
wynik = "pary z "& karta7 & " " & karta1
end if
if karta3 = karta5 then
wynik = "pary z "& karta7 & " " & karta3
end if
end if
#msg1007851//////////////////////////////////////////
#msg1007851/////////////////////////////////trójka
#msg1007851//////////////////////////////////////////#msg1007851

if karta1 = karta3 and karta3 = karta7 then
wynik = "trójka z " & karta1
end if
if karta1 = karta3 and karta3 = karta5 then
wynik = "trójka z " & karta1
end if
if karta1 = karta3 and karta3 = karta9 then
wynik = "trójka z " & karta1
end if
if karta1 = karta7 and karta7 = karta9 then
wynik = "trójka z " & karta1
end if
if karta1 = karta5 and karta5 = karta7 then
wynik = "trójka z " & karta1
end if
if karta3 = karta5 and karta5 = karta7 then
wynik = "trójka z " & karta3
end if
if karta3 = karta5 and karta5 = karta9 then
wynik = "trójka z " & karta3
end if
if karta3 = karta9 and karta9 = karta7 then
wynik = "trójka z " & karta3
end if
if karta5 = karta7 and karta7 = karta9 then
wynik = "trójka z " & karta5
end if
if karta5 = karta9 and karta9 = karta1 then
wynik = "trójka z " & karta5
end if


#msg1007851//////////////////////////////////////////
#msg1007851/////////////////////////////////strity
#msg1007851//////////////////////////////////////////#msg1007851


if karta1 <> karta3 and karta1 <> karta5 and karta1 <> karta7 and karta1 <> karta9 then
if karta3 <> karta5 and karta3 <> karta7 and karta3 <> karta9 then
if karta5 <> karta7 and karta5 <> karta9 then
if karta7 <> karta9 then
if karta1 <> "AS " and karta3 <> "AS " and karta5 <> "AS " and karta7 <> "AS " and karta9 <> "AS " then
wynik = "Mały Strit " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
end if
end if

end if

if karta1 <> karta3 and karta1 <> karta5 and karta1 <> karta7 and karta1 <> karta9 then
if karta3 <> karta5 and karta3 <> karta7 and karta3 <> karta9 then
if karta5 <> karta7 and karta5 <> karta9 then
if karta7 <> karta9 then

if karta1 <> "9 " and karta3 <> "9 " and karta5 <> "9 " and karta7 <> "9 " and karta9 <> "9 " then
wynik = "Duży Strit " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
end if
end if

end if

#msg1007851//////////////////////////////////////////
#msg1007851/////////////////////////////////kolor
#msg1007851//////////////////////////////////////////#msg1007851
if kolor1 = kolor3 and kolor3 = kolor5 and kolor5 = kolor7 and kolor7 = kolor9 then
wynik = "Kolor "
end if

#msg1007851//////////////////////////////////////////
#msg1007851/////////////////////////////////full
#msg1007851//////////////////////////////////////////#msg1007851

if karta1 = karta3 and karta3 = karta7 then
if karta5 = karta9 then
wynik = "Full z " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
if karta1 = karta3 and karta3 = karta5 then
if karta7 = karta9 then
wynik = "Full z " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
if karta1 = karta3 and karta3 = karta9 then
if karta5 = karta7 then
wynik = "Full z " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
if karta1 = karta7 and karta7 = karta9 then
if karta5 = karta3 then
wynik = "Full z " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
if karta1 = karta5 and karta5 = karta7 then
if karta3 = karta9 then
wynik = "Full z " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
if karta3 = karta5 and karta5 = karta7 then
if karta1 = karta9 then
wynik = "Full z " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
if karta3 = karta5 and karta5 = karta9 then
if karta1 = karta7 then
wynik = "Full z " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
if karta3 = karta9 and karta9 = karta7 then
if karta5 = karta1 then
wynik = "Full z " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
if karta5 = karta7 and karta7 = karta9 then
if karta1 = karta3 then
wynik = "Full z " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
if karta5 = karta9 and karta9 = karta1 then
if karta3 = karta7 then
wynik = "Full z " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if

#msg1007851//////////////////////////////////////////
#msg1007851/////////////////////////////////kareta
#msg1007851//////////////////////////////////////////#msg1007851

if karta1 = karta3 and karta3 = karta5 and karta5 = karta7 then
wynik = "Kareta z " & karta1
end if
if karta1 = karta3 and karta3 = karta5 and karta5 = karta9 then
wynik = "Kareta z " & karta1
end if
if karta1 = karta3 and karta3 = karta7 and karta7 = karta9 then
wynik = "Kareta z " & karta1
end if
if karta1 = karta5 and karta5 = karta7 and karta7 = karta9 then
wynik = "Kareta z " & karta1
end if
if karta3 = karta5 and karta5 = karta7 and karta7 = karta9 then
wynik = "Kareta z " & karta3
end if

#msg1007851//////////////////////////////////////////
#msg1007851/////////////////////////////////Pokery
#msg1007851//////////////////////////////////////////#msg1007851


if karta1 <> karta3 and karta1 <> karta5 and karta1 <> karta7 and karta1 <> karta9 then
if karta3 <> karta5 and karta3 <> karta7 and karta3 <> karta9 then
if karta5 <> karta7 and karta5 <> karta9 then
if karta7 <> karta9 then
if karta1 <> "AS " and karta3 <> "AS " and karta5 <> "AS " and karta7 <> "AS " and karta9 <> "AS " then
if kolor1 = kolor3 and kolor3 = kolor5 and kolor5 = kolor7 and kolor7 = kolor9 then
wynik = "Poker " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
end if
end if
end if

end if

if karta1 <> karta3 and karta1 <> karta5 and karta1 <> karta7 and karta1 <> karta9 then
if karta3 <> karta5 and karta3 <> karta7 and karta3 <> karta9 then
if karta5 <> karta7 and karta5 <> karta9 then
if karta7 <> karta9 then

if karta1 <> "9 " and karta3 <> "9 " and karta5 <> "9 " and karta7 <> "9 " and karta9 <> "9 " then
if kolor1 = kolor3 and kolor3 = kolor5 and kolor5 = kolor7 and kolor7 = kolor9 then
wynik = "Królewski poker " & karta1 & karta3 & karta5 & karta7 & karta9
end if
end if
end if
end if
end if

end if


msgbox(wynik)

#msg1007851msgbox(karta2 & vbNewLine & karta4 & vbNewLine & karta6 & vbNewLine & karta8 & vbNewLine & karta10)#msg1007851

jest już wersja na gothica :D
Spoiler
Kod: [Zaznacz]
FUNC VOID zamien (var int los1,var int los2){


if (los1 == 1 ) {
zamieniona = karta1;
zamienionakolor = kolor1;
};
if (los1 == 2 ) {
zamieniona = karta2;
zamienionakolor = kolor2;
};
if (los1 == 3 ) {
zamieniona = karta3;
zamienionakolor = kolor3;
};
if (los1 == 4 ) {
zamieniona = karta4;
zamienionakolor = kolor4;
};
if (los1 == 5 ) {
zamieniona = karta5;
zamienionakolor = kolor5;
};
if (los1 == 6 ) {
zamieniona = karta6;
zamienionakolor = kolor6;
};
if (los1 == 7 ) {
zamieniona = karta7;
zamienionakolor = kolor7;
};
if (los1 == 8 ) {
zamieniona = karta8;
zamienionakolor = kolor8;
};
if (los1 == 9 ) {
zamieniona = karta9;
zamienionakolor = kolor9;
};
if (los1 == 10 ) {
zamieniona = karta10;
zamienionakolor = kolor10;
};
if (los1 == 11 ) {
zamieniona = karta11;
zamienionakolor = kolor11;
};
if (los1 == 12 ) {
zamieniona = karta12;
zamienionakolor = kolor12;
};
if (los1 == 13 ) {
zamieniona = karta13;
zamienionakolor = kolor13;
};
if (los1 == 14 ) {
zamieniona = karta14;
zamienionakolor = kolor14;
};
if (los1 == 15 ) {
zamieniona = karta15;
zamienionakolor = kolor15;
};
if (los1 == 16 ) {
zamieniona = karta16;
zamienionakolor = kolor16;
};
if (los1 == 17 ) {
zamieniona = karta17;
zamienionakolor = kolor17;
};
if (los1 == 18 ) {
zamieniona = karta18;
zamienionakolor = kolor18;
};
if (los1 == 19 ) {
zamieniona = karta19;
zamienionakolor = kolor19;
};
if (los1 == 20 ) {
zamieniona = karta20;
zamienionakolor = kolor20;
};
if (los1 == 21 ) {
zamieniona = karta21;
zamienionakolor = kolor21;
};
if (los1 == 22 ) {
zamieniona = karta22;
zamienionakolor = kolor22;
};
if (los1 == 23 ) {
zamieniona = karta23;
zamienionakolor = kolor23;
};
if (los1 == 24 ) {
zamieniona = karta24;
zamienionakolor = kolor24;
};




if (los2 == 1 ) {
zamieniona2 = karta1;
zamienionakolor2 = kolor1;
karta1 = zamieniona;
kolor1 = zamienionakolor;
};
if (los2 == 2 ) {
zamieniona2 = karta2;
zamienionakolor2 = kolor2;
karta2 = zamieniona;
kolor2 = zamienionakolor;
};
if (los2 == 3 ) {
zamieniona2 = karta3;
zamienionakolor2 = kolor3;
karta3 = zamieniona;
kolor3 = zamienionakolor;
};
if (los2 == 4 ) {
zamieniona2 = karta4;
zamienionakolor2 = kolor4;
karta4 = zamieniona;
kolor4 = zamienionakolor;
};
if (los2 == 5 ) {
zamieniona2 = karta5;
zamienionakolor2 = kolor5;
karta5 = zamieniona;
kolor5 = zamienionakolor;
};
if (los2 == 6 ) {
zamieniona2 = karta6;
zamienionakolor2 = kolor6;
karta6 = zamieniona;
kolor6 = zamienionakolor;
};
if (los2 == 7 ) {
zamieniona2 = karta7;
zamienionakolor2 = kolor7;
karta7 = zamieniona;
kolor7 = zamienionakolor;
};
if (los2 == 8 ) {
zamieniona2 = karta8;
zamienionakolor2 = kolor8;
karta8 = zamieniona;
kolor8 = zamienionakolor;
};
if (los2 == 9 ) {
zamieniona2 = karta9;
zamienionakolor2 = kolor9;
karta9 = zamieniona;
kolor9 = zamienionakolor;
};
if (los2 == 10 ) {
zamieniona2 = karta10;
zamienionakolor2 = kolor10;
karta10 = zamieniona;
kolor10 = zamienionakolor;
};
if (los2 == 11 ) {
zamieniona2 = karta11;
zamienionakolor2 = kolor11;
karta11 = zamieniona;
kolor11 = zamienionakolor;
};
if (los2 == 12 ) {
zamieniona2 = karta12;
zamienionakolor2 = kolor12;
karta12 = zamieniona;
kolor12 = zamienionakolor;
};
if (los2 == 13 ) {
zamieniona2 = karta13;
zamienionakolor2 = kolor13;
karta13 = zamieniona;
kolor13 = zamienionakolor;
};
if (los2 == 14 ) {
zamieniona2 = karta14;
zamienionakolor2 = kolor14;
karta14 = zamieniona;
kolor14 = zamienionakolor;
};
if (los2 == 15 ) {
zamieniona2 = karta15;
zamienionakolor2 = kolor15;
karta15 = zamieniona;
kolor15 = zamienionakolor;
};
if (los2 == 16 ) {
zamieniona2 = karta16;
zamienionakolor2 = kolor16;
karta16 = zamieniona;
kolor16 = zamienionakolor;
};
if (los2 == 17 ) {
zamieniona2 = karta17;
zamienionakolor2 = kolor17;
karta17 = zamieniona;
kolor17 = zamienionakolor;
};
if (los2 == 18 ) {
zamieniona2 = karta18;
zamienionakolor2 = kolor18;
karta18 = zamieniona;
kolor18 = zamienionakolor;
};
if (los2 == 19 ) {
zamieniona2 = karta19;
zamienionakolor2 = kolor19;
karta19 = zamieniona;
kolor19 = zamienionakolor;
};
if (los2 == 20 ) {
zamieniona2 = karta20;
zamienionakolor2 = kolor20;
karta20 = zamieniona;
kolor20 = zamienionakolor;
};
if (los2 == 21 ) {
zamieniona2 = karta21;
zamienionakolor2 = kolor21;
karta21 = zamieniona;
kolor21 = zamienionakolor;
};
if (los2 == 22 ) {
zamieniona2 = karta22;
zamienionakolor2 = kolor22;
karta22 = zamieniona;
kolor22 = zamienionakolor;
};
if (los2 == 23 ) {
zamieniona2 = karta23;
zamienionakolor2 = kolor23;
karta23 = zamieniona;
kolor23 = zamienionakolor;
};
if (los2 == 24 ) {
zamieniona2 = karta24;
zamienionakolor2 = kolor24;
karta24 = zamieniona;
kolor24 = zamienionakolor;
};



if (los1 == 1 ) {
karta1 = zamieniona2;
kolor1 = zamienionakolor2;
};
if (los1 == 2 ) {
karta2 = zamieniona2;
kolor2 = zamienionakolor2;
};
if (los1 == 3 ) {
karta3 = zamieniona2;
kolor3 = zamienionakolor2;
};
if (los1 == 4 ) {
karta4 = zamieniona2;
kolor4 = zamienionakolor2;
};
if (los1 == 5 ) {
karta5 = zamieniona2;
kolor5 = zamienionakolor2;
};
if (los1 == 6 ) {
karta6 = zamieniona2;
kolor6 = zamienionakolor2;
};
if (los1 == 7 ) {
karta7 = zamieniona2;
kolor7 = zamienionakolor2;
};
if (los1 == 8 ) {
karta8 = zamieniona2;
kolor8 = zamienionakolor2;
};
if (los1 == 9 ) {
karta9 = zamieniona2;
kolor9 = zamienionakolor2;
};
if (los1 == 10 ) {
karta10 = zamieniona2;
kolor10 = zamienionakolor2;
};
if (los1 == 11 ) {
karta11 = zamieniona2;
kolor11 = zamienionakolor2;
};
if (los1 == 12 ) {
karta12 = zamieniona2;
kolor12 = zamienionakolor2;
};
if (los1 == 13 ) {
karta13 = zamieniona2;
kolor13 = zamienionakolor2;
};
if (los1 == 14 ) {
karta14 = zamieniona2;
kolor14 = zamienionakolor2;
};
if (los1 == 15 ) {
karta15 = zamieniona2;
kolor15 = zamienionakolor2;
};
if (los1 == 16 ) {
karta16 = zamieniona2;
kolor16 = zamienionakolor2;
};
if (los1 == 17 ) {
karta17 = zamieniona2;
kolor17 = zamienionakolor2;
};
if (los1 == 18 ) {
karta18 = zamieniona2;
kolor18 = zamienionakolor2;
};
if (los1 == 19 ) {
karta19 = zamieniona2;
kolor19 = zamienionakolor2;
};
if (los1 == 20 ) {
karta20 = zamieniona2;
kolor20 = zamienionakolor2;
};
if (los1 == 21 ) {
karta21 = zamieniona2;
kolor21 = zamienionakolor2;
};
if (los1 == 22 ) {
karta22 = zamieniona2;
kolor22 = zamienionakolor2;
};
if (los1 == 23 ) {
karta23 = zamieniona2;
kolor23 = zamienionakolor2;
};
if (los1 == 24 ) {
karta24 = zamieniona2;
kolor24 = zamienionakolor2;
};



};

FUNC VOID sprawdzenie_hero (){

wynik = "Brak figur";

//////////////////////////////////////////
/////////////////////////////////para
//////////////////////////////////////////

if Hlp_StrCmp(karta1, karta3) {
wynik = "1 para";
}else if Hlp_StrCmp(karta1, karta5) {
wynik = "1 para";
}else if Hlp_StrCmp(karta1, karta7) {
wynik = "1 para";
}else if Hlp_StrCmp(karta1, karta9) {
wynik = "1 para";
}else if Hlp_StrCmp(karta3, karta5) {
wynik = "1 para";
}else if Hlp_StrCmp(karta3, karta7) {
wynik = "1 para";
}else if Hlp_StrCmp(karta3, karta9) {
wynik = "1 para";
}else if Hlp_StrCmp(karta5, karta7) {
wynik = "1 para";
}else if Hlp_StrCmp(karta5, karta9) {
wynik = "1 para";
}else if Hlp_StrCmp(karta7, karta9) {
wynik = "1 para";
};

//////////////////////////////////////////
/////////////////////////////////2 pary
//////////////////////////////////////////

if Hlp_StrCmp(karta1, karta3) {
if Hlp_StrCmp(karta5, karta7) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta5, karta9) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta7, karta9) {
wynik = "2 pary";
};
};
if Hlp_StrCmp(karta1, karta5) {
if Hlp_StrCmp(karta3, karta7) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta3, karta9) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta7, karta9) {
wynik = "2 pary";
};
};
if Hlp_StrCmp(karta1, karta7) {
if Hlp_StrCmp(karta3, karta5) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta3, karta9) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta5, karta9) {
wynik = "2 pary";
};
};
if Hlp_StrCmp(karta1, karta9) {
if Hlp_StrCmp(karta3, karta5) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta3, karta7) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta5, karta7) {
wynik = "2 pary";
};
};
if Hlp_StrCmp(karta3, karta5) {
if Hlp_StrCmp(karta1, karta7) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta1, karta9) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta7, karta9) {
wynik = "2 pary";
};
};
if Hlp_StrCmp(karta3, karta7) {
if Hlp_StrCmp(karta1, karta5) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta1, karta9) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta5, karta9) {
wynik = "2 pary";
};
};
if Hlp_StrCmp(karta3, karta9) {
if Hlp_StrCmp(karta1, karta5) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta1, karta7) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta5, karta7) {
wynik = "2 pary";
};
};
if Hlp_StrCmp(karta5, karta7) {
if Hlp_StrCmp(karta1, karta3) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta1, karta9) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta3, karta9) {
wynik = "2 pary";
};
};
if Hlp_StrCmp(karta5, karta9) {
if Hlp_StrCmp(karta1, karta3) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta1, karta7) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta3, karta7) {
wynik = "2 pary";
};
};
if Hlp_StrCmp(karta7, karta9) {
if Hlp_StrCmp(karta1, karta3) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta1, karta5) {
wynik = "2 pary";
}else if Hlp_StrCmp(karta3, karta5) {
wynik = "2 pary";
};
};
//////////////////////////////////////////
/////////////////////////////////trójka
//////////////////////////////////////////

if Hlp_StrCmp(karta1, karta3) && Hlp_StrCmp(karta3, karta7) {
wynik = "trójka";
}else if Hlp_StrCmp(karta1, karta3) && Hlp_StrCmp(karta3, karta5) {
wynik = "trójka";
}else if Hlp_StrCmp(karta1, karta3) && Hlp_StrCmp(karta3, karta9) {
wynik = "trójka";
}else if Hlp_StrCmp(karta1, karta7) && Hlp_StrCmp(karta7, karta9) {
wynik = "trójka";
}else if Hlp_StrCmp(karta1, karta5) && Hlp_StrCmp(karta5, karta7) {
wynik = "trójka";
}else if Hlp_StrCmp(karta3, karta5) && Hlp_StrCmp(karta5, karta7) {
wynik = "trójka";
}else if Hlp_StrCmp(karta3, karta5) && Hlp_StrCmp(karta5, karta9) {
wynik = "trójka";
}else if Hlp_StrCmp(karta3, karta9) && Hlp_StrCmp(karta9, karta7) {
wynik = "trójka";
}else if Hlp_StrCmp(karta5, karta7) && Hlp_StrCmp(karta7, karta9) {
wynik = "trójka";
}else if Hlp_StrCmp(karta5, karta9) && Hlp_StrCmp(karta9, karta1) {
wynik = "trójka";
};


//////////////////////////////////////////
/////////////////////////////////strity
//////////////////////////////////////////

const string karta_as = "AS ";
const string karta_9 = "9 ";
if !Hlp_StrCmp(karta1, karta3 ) && !Hlp_StrCmp(karta1, karta5 ) && !Hlp_StrCmp(karta1, karta7 ) && !Hlp_StrCmp( karta1, karta9 ) {
if !Hlp_StrCmp(karta3, karta5 ) && !Hlp_StrCmp( karta3, karta7 ) && !Hlp_StrCmp( karta3, karta9 ) {
if !Hlp_StrCmp(karta5, karta7 ) && !Hlp_StrCmp( karta5, karta9 ) {
if !Hlp_StrCmp(karta7, karta9 ) {
if !Hlp_StrCmp(karta1, karta_as ) && !Hlp_StrCmp( karta3, karta_as ) && !Hlp_StrCmp( karta5, karta_as ) && !Hlp_StrCmp( karta7, karta_as ) && !Hlp_StrCmp( karta9, karta_as ) {
wynik = "Mały Strit ";
};
};
};
};

};

if !Hlp_StrCmp(karta1, karta3 ) && !Hlp_StrCmp( karta1, karta5 ) && !Hlp_StrCmp( karta1, karta7 ) && !Hlp_StrCmp( karta1, karta9 ) {
if !Hlp_StrCmp(karta3, karta5 ) && !Hlp_StrCmp( karta3, karta7 ) && !Hlp_StrCmp( karta3, karta9 ) {
if !Hlp_StrCmp(karta5, karta7 ) && !Hlp_StrCmp( karta5, karta9 ) {
if !Hlp_StrCmp(karta7, karta9 ) {

if !Hlp_StrCmp(karta1, karta_9 ) && !Hlp_StrCmp( karta3, karta_9 ) && !Hlp_StrCmp( karta5, karta_9 ) && !Hlp_StrCmp( karta7, karta_9 ) && !Hlp_StrCmp( karta9, karta_9 ) {
wynik = "Duży Strit ";
};
};
};
};

};

//////////////////////////////////////////
/////////////////////////////////kolor
//////////////////////////////////////////
if Hlp_StrCmp(kolor1, kolor3 ) && Hlp_StrCmp( kolor3, kolor5 ) && Hlp_StrCmp( kolor5, kolor7 ) && Hlp_StrCmp( kolor7, kolor9 ) {
wynik = "Kolor ";
};

//////////////////////////////////////////
/////////////////////////////////full
//////////////////////////////////////////

if Hlp_StrCmp(karta1, karta3 ) && Hlp_StrCmp( karta3, karta7 ) {
if Hlp_StrCmp(karta15, karta9 ) {
wynik = "Full ";
};
};
if Hlp_StrCmp(karta1, karta3 ) && Hlp_StrCmp( karta3, karta5 ) {
if Hlp_StrCmp(karta17, karta9 ) {
wynik = "Full ";
};
};
if Hlp_StrCmp(karta1, karta3 ) && Hlp_StrCmp( karta3, karta9 ) {
if Hlp_StrCmp(karta15, karta7 ) {
wynik = "Full ";
};
};
if Hlp_StrCmp(karta1, karta7 ) && Hlp_StrCmp( karta7, karta9 ) {
if Hlp_StrCmp(karta15, karta3 ) {
wynik = "Full ";
};
};
if Hlp_StrCmp(karta1, karta5 ) && Hlp_StrCmp( karta5, karta7 ) {
if Hlp_StrCmp(karta13, karta9 ) {
wynik = "Full ";
};
};
if Hlp_StrCmp(karta3, karta5 ) && Hlp_StrCmp( karta5, karta7 ) {
if Hlp_StrCmp(karta11, karta9 ) {
wynik = "Full ";
};
};
if Hlp_StrCmp(karta3, karta5 ) && Hlp_StrCmp( karta5, karta9 ) {
if Hlp_StrCmp(karta11, karta7 ) {
wynik = "Full ";
};
};
if Hlp_StrCmp(karta3, karta9 ) && Hlp_StrCmp( karta9, karta7 ) {
if Hlp_StrCmp(karta15, karta1 ) {
wynik = "Full ";
};
};
if Hlp_StrCmp(karta5, karta7 ) && Hlp_StrCmp( karta7, karta9 ) {
if Hlp_StrCmp(karta11, karta3 ) {
wynik = "Full ";
};
};
if Hlp_StrCmp(karta5, karta9 ) && Hlp_StrCmp( karta9, karta1 ) {
if Hlp_StrCmp(karta13, karta7 ) {
wynik = "Full ";
};
};



//////////////////////////////////////////
/////////////////////////////////kareta
//////////////////////////////////////////

if Hlp_StrCmp(karta1, karta3 ) && Hlp_StrCmp( karta3, karta5 ) && Hlp_StrCmp( karta5, karta7 ) {
wynik = "Kareta ";
}else if Hlp_StrCmp(karta1, karta3 ) && Hlp_StrCmp( karta3, karta5 ) && Hlp_StrCmp( karta5, karta9 ) {
wynik = "Kareta ";
}else if Hlp_StrCmp(karta1, karta3 ) && Hlp_StrCmp( karta3, karta7 ) && Hlp_StrCmp( karta7, karta9 ) {
wynik = "Kareta ";
}else if Hlp_StrCmp(karta1, karta5 ) && Hlp_StrCmp( karta5, karta7 ) && Hlp_StrCmp( karta7, karta9 ) {
wynik = "Kareta ";
}else if Hlp_StrCmp(karta3, karta5 ) && Hlp_StrCmp( karta5, karta7 ) && Hlp_StrCmp( karta7, karta9 ) {
wynik = "Kareta ";
};

//////////////////////////////////////////
/////////////////////////////////Pokery
//////////////////////////////////////////


if !Hlp_StrCmp(karta1, karta3 ) && !Hlp_StrCmp(karta1, karta5 ) && !Hlp_StrCmp(karta1, karta7 ) && !Hlp_StrCmp( karta1, karta9 ) {
if !Hlp_StrCmp(karta3, karta5 ) && !Hlp_StrCmp( karta3, karta7 ) && !Hlp_StrCmp( karta3, karta9 ) {
if !Hlp_StrCmp(karta5, karta7 ) && !Hlp_StrCmp( karta5, karta9 ) {
if !Hlp_StrCmp(karta7, karta9 ) {
if !Hlp_StrCmp(karta1, karta_as ) && !Hlp_StrCmp( karta3, karta_as ) && !Hlp_StrCmp( karta5, karta_as ) && !Hlp_StrCmp( karta7, karta_as ) && !Hlp_StrCmp( karta9, karta_as ) {
if Hlp_StrCmp(kolor1, kolor3 ) && Hlp_StrCmp( kolor3, kolor5 ) && Hlp_StrCmp( kolor5, kolor7 ) && Hlp_StrCmp( kolor7, kolor9 ) {
wynik = "Poker ";
};
};
};
};
};

};

if !Hlp_StrCmp(karta1, karta3 ) && !Hlp_StrCmp( karta1, karta5 ) && !Hlp_StrCmp( karta1, karta7 ) && !Hlp_StrCmp( karta1, karta9 ) {
if !Hlp_StrCmp(karta3, karta5 ) && !Hlp_StrCmp( karta3, karta7 ) && !Hlp_StrCmp( karta3, karta9 ) {
if !Hlp_StrCmp(karta5, karta7 ) && !Hlp_StrCmp( karta5, karta9 ) {
if !Hlp_StrCmp(karta7, karta9 ) {
if !Hlp_StrCmp(karta1, karta_9 ) && !Hlp_StrCmp( karta3, karta_9 ) && !Hlp_StrCmp( karta5, karta_9 ) && !Hlp_StrCmp( karta7, karta_9 ) && !Hlp_StrCmp( karta9, karta_9 ) {
if Hlp_StrCmp(kolor1, kolor3 ) && Hlp_StrCmp( kolor3, kolor5 ) && Hlp_StrCmp( kolor5, kolor7 ) && Hlp_StrCmp( kolor7, kolor9 ) {

wynik = "Królewski poker ";
};
};
};
};
};

};

//PrintScreen     (wynik, -1,-1,"font_old_20_white.tga",3);

};


FUNC VOID sprawdzenie_self (){

wynik2 = "Brak figur";

//////////////////////////////////////////
/////////////////////////////////para
//////////////////////////////////////////

if Hlp_StrCmp(karta2, karta4) {
wynik2 = "1 para";
}else if Hlp_StrCmp(karta2, karta6) {
wynik2 = "1 para";
}else if Hlp_StrCmp(karta2, karta8) {
wynik2 = "1 para";
}else if Hlp_StrCmp(karta2, karta10) {
wynik2 = "1 para";
}else if Hlp_StrCmp(karta4, karta6) {
wynik2 = "1 para";
}else if Hlp_StrCmp(karta4, karta8) {
wynik2 = "1 para";
}else if Hlp_StrCmp(karta4, karta10) {
wynik2 = "1 para";
}else if Hlp_StrCmp(karta6, karta8) {
wynik2 = "1 para";
}else if Hlp_StrCmp(karta6, karta10) {
wynik2 = "1 para";
}else if Hlp_StrCmp(karta8, karta10) {
wynik2 = "1 para";
};

//////////////////////////////////////////
/////////////////////////////////2 pary
//////////////////////////////////////////

if Hlp_StrCmp(karta2, karta4) {
if Hlp_StrCmp(karta6, karta8) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta6, karta10) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta8, karta10) {
wynik2 = "2 pary";
};
};
if Hlp_StrCmp(karta2, karta6) {
if Hlp_StrCmp(karta4, karta8) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta4, karta10) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta8, karta10) {
wynik2 = "2 pary";
};
};
if Hlp_StrCmp(karta2, karta8) {
if Hlp_StrCmp(karta4, karta6) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta4, karta10) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta6, karta10) {
wynik2 = "2 pary";
};
};
if Hlp_StrCmp(karta2, karta10) {
if Hlp_StrCmp(karta4, karta6) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta4, karta8) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta6, karta8) {
wynik2 = "2 pary";
};
};
if Hlp_StrCmp(karta4, karta6) {
if Hlp_StrCmp(karta2, karta8) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta2, karta10) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta8, karta10) {
wynik2 = "2 pary";
};
};
if Hlp_StrCmp(karta4, karta8) {
if Hlp_StrCmp(karta2, karta6) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta2, karta10) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta6, karta10) {
wynik2 = "2 pary";
};
};
if Hlp_StrCmp(karta4, karta10) {
if Hlp_StrCmp(karta2, karta6) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta2, karta8) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta6, karta8) {
wynik2 = "2 pary";
};
};
if Hlp_StrCmp(karta6, karta8) {
if Hlp_StrCmp(karta2, karta4) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta2, karta10) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta4, karta10) {
wynik2 = "2 pary";
};
};
if Hlp_StrCmp(karta6, karta10) {
if Hlp_StrCmp(karta2, karta4) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta2, karta8) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta4, karta8) {
wynik2 = "2 pary";
};
};
if Hlp_StrCmp(karta8, karta10) {
if Hlp_StrCmp(karta2, karta4) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta2, karta6) {
wynik2 = "2 pary";
}else if Hlp_StrCmp(karta4, karta6) {
wynik2 = "2 pary";
};
};
//////////////////////////////////////////
/////////////////////////////////trójka
//////////////////////////////////////////

if Hlp_StrCmp(karta2, karta4) && Hlp_StrCmp(karta4, karta8) {
wynik2 = "trójka";
}else if Hlp_StrCmp(karta2, karta4) && Hlp_StrCmp(karta4, karta6) {
wynik2 = "trójka";
}else if Hlp_StrCmp(karta2, karta4) && Hlp_StrCmp(karta4, karta10) {
wynik2 = "trójka";
}else if Hlp_StrCmp(karta2, karta8) && Hlp_StrCmp(karta8, karta10) {
wynik2 = "trójka";
}else if Hlp_StrCmp(karta2, karta6) && Hlp_StrCmp(karta6, karta8) {
wynik2 = "trójka";
}else if Hlp_StrCmp(karta4, karta6) && Hlp_StrCmp(karta6, karta8) {
wynik2 = "trójka";
}else if Hlp_StrCmp(karta4, karta6) && Hlp_StrCmp(karta6, karta10) {
wynik2 = "trójka";
}else if Hlp_StrCmp(karta4, karta10) && Hlp_StrCmp(karta10, karta8) {
wynik2 = "trójka";
}else if Hlp_StrCmp(karta6, karta8) && Hlp_StrCmp(karta8, karta10) {
wynik2 = "trójka";
}else if Hlp_StrCmp(karta6, karta10) && Hlp_StrCmp(karta10, karta2) {
wynik2 = "trójka";
};


//////////////////////////////////////////
/////////////////////////////////strity
//////////////////////////////////////////

const string karta_as = "AS ";
const string karta_9 = "9 ";
if !Hlp_StrCmp(karta2, karta4 ) && !Hlp_StrCmp(karta2, karta6 ) && !Hlp_StrCmp(karta2, karta8 ) && !Hlp_StrCmp( karta2, karta10 ) {
if !Hlp_StrCmp(karta4, karta6 ) && !Hlp_StrCmp( karta4, karta8 ) && !Hlp_StrCmp( karta4, karta10 ) {
if !Hlp_StrCmp(karta6, karta8 ) && !Hlp_StrCmp( karta6, karta10 ) {
if !Hlp_StrCmp(karta8, karta10 ) {
if !Hlp_StrCmp(karta2, karta_as ) && !Hlp_StrCmp( karta4, karta_as ) && !Hlp_StrCmp( karta6, karta_as ) && !Hlp_StrCmp( karta8, karta_as ) && !Hlp_StrCmp( karta10, karta_as ) {
wynik2 = "Mały Strit ";
};
};
};
};

};

if !Hlp_StrCmp(karta2, karta4 ) && !Hlp_StrCmp( karta2, karta6 ) && !Hlp_StrCmp( karta2, karta8 ) && !Hlp_StrCmp( karta2, karta10 ) {
if !Hlp_StrCmp(karta4, karta6 ) && !Hlp_StrCmp( karta4, karta8 ) && !Hlp_StrCmp( karta4, karta10 ) {
if !Hlp_StrCmp(karta6, karta8 ) && !Hlp_StrCmp( karta6, karta10 ) {
if !Hlp_StrCmp(karta8, karta10 ) {

if !Hlp_StrCmp(karta2, karta_9 ) && !Hlp_StrCmp( karta4, karta_9 ) && !Hlp_StrCmp( karta6, karta_9 ) && !Hlp_StrCmp( karta8, karta_9 ) && !Hlp_StrCmp( karta10, karta_9 ) {
wynik2 = "Duży Strit ";
};
};
};
};

};

//////////////////////////////////////////
/////////////////////////////////kolor
//////////////////////////////////////////
if Hlp_StrCmp(kolor2, kolor3 ) && Hlp_StrCmp( kolor3, kolor5 ) && Hlp_StrCmp( kolor5, kolor7 ) && Hlp_StrCmp( kolor7, kolor9 ) {
wynik2 = "Kolor ";
};

//////////////////////////////////////////
/////////////////////////////////full
//////////////////////////////////////////

if Hlp_StrCmp(karta2, karta4 ) && Hlp_StrCmp( karta4, karta8 ) {
if Hlp_StrCmp(karta6, karta10 ) {
wynik2 = "Full ";
};
};
if Hlp_StrCmp(karta2, karta4 ) && Hlp_StrCmp( karta4, karta6 ) {
if Hlp_StrCmp(karta8, karta10 ) {
wynik2 = "Full ";
};
};
if Hlp_StrCmp(karta2, karta4 ) && Hlp_StrCmp( karta4, karta10 ) {
if Hlp_StrCmp(karta6, karta8 ) {
wynik2 = "Full ";
};
};
if Hlp_StrCmp(karta2, karta8 ) && Hlp_StrCmp( karta8, karta10 ) {
if Hlp_StrCmp(karta6, karta4 ) {
wynik2 = "Full ";
};
};
if Hlp_StrCmp(karta2, karta6 ) && Hlp_StrCmp( karta6, karta8 ) {
if Hlp_StrCmp(karta4, karta10 ) {
wynik2 = "Full ";
};
};
if Hlp_StrCmp(karta4, karta6 ) && Hlp_StrCmp( karta6, karta8 ) {
if Hlp_StrCmp(karta2, karta10 ) {
wynik2 = "Full ";
};
};
if Hlp_StrCmp(karta4, karta6 ) && Hlp_StrCmp( karta6, karta10 ) {
if Hlp_StrCmp(karta2, karta8 ) {
wynik2 = "Full ";
};
};
if Hlp_StrCmp(karta4, karta10 ) && Hlp_StrCmp( karta10, karta8 ) {
if Hlp_StrCmp(karta6, karta2 ) {
wynik2 = "Full ";
};
};
if Hlp_StrCmp(karta6, karta8 ) && Hlp_StrCmp( karta8, karta10 ) {
if Hlp_StrCmp(karta2, karta4 ) {
wynik2 = "Full ";
};
};
if Hlp_StrCmp(karta6, karta10 ) && Hlp_StrCmp( karta10, karta2 ) {
if Hlp_StrCmp(karta4, karta8 ) {
wynik2 = "Full ";
};
};



//////////////////////////////////////////
/////////////////////////////////kareta
//////////////////////////////////////////

if Hlp_StrCmp(karta2, karta4 ) && Hlp_StrCmp( karta4, karta6 ) && Hlp_StrCmp( karta6, karta8 ) {
wynik2 = "Kareta ";
}else if Hlp_StrCmp(karta2, karta4 ) && Hlp_StrCmp( karta4, karta6 ) && Hlp_StrCmp( karta6, karta10 ) {
wynik2 = "Kareta ";
}else if Hlp_StrCmp(karta2, karta4 ) && Hlp_StrCmp( karta4, karta8 ) && Hlp_StrCmp( karta8, karta10 ) {
wynik2 = "Kareta ";
}else if Hlp_StrCmp(karta2, karta6 ) && Hlp_StrCmp( karta6, karta8 ) && Hlp_StrCmp( karta8, karta10 ) {
wynik2 = "Kareta ";
}else if Hlp_StrCmp(karta4, karta6 ) && Hlp_StrCmp( karta6, karta8 ) && Hlp_StrCmp( karta8, karta10 ) {
wynik2 = "Kareta ";
};

//////////////////////////////////////////
/////////////////////////////////Pokery
//////////////////////////////////////////


if !Hlp_StrCmp(karta2, karta4 ) && !Hlp_StrCmp(karta2, karta6 ) && !Hlp_StrCmp(karta2, karta8 ) && !Hlp_StrCmp( karta2, karta10 ) {
if !Hlp_StrCmp(karta4, karta6 ) && !Hlp_StrCmp( karta4, karta8 ) && !Hlp_StrCmp( karta4, karta10 ) {
if !Hlp_StrCmp(karta6, karta8 ) && !Hlp_StrCmp( karta6, karta10 ) {
if !Hlp_StrCmp(karta8, karta10 ) {
if !Hlp_StrCmp(karta2, karta_as ) && !Hlp_StrCmp( karta4, karta_as ) && !Hlp_StrCmp( karta6, karta_as ) && !Hlp_StrCmp( karta8, karta_as ) && !Hlp_StrCmp( karta10, karta_as ) {
if Hlp_StrCmp(kolor1, kolor3 ) && Hlp_StrCmp( kolor3, kolor5 ) && Hlp_StrCmp( kolor5, kolor7 ) && Hlp_StrCmp( kolor7, kolor9 ) {
wynik2 = "Poker ";
};
};
};
};
};

};

if !Hlp_StrCmp(karta2, karta4 ) && !Hlp_StrCmp( karta2, karta6 ) && !Hlp_StrCmp( karta2, karta8 ) && !Hlp_StrCmp( karta2, karta10 ) {
if !Hlp_StrCmp(karta4, karta6 ) && !Hlp_StrCmp( karta4, karta8 ) && !Hlp_StrCmp( karta4, karta10 ) {
if !Hlp_StrCmp(karta6, karta8 ) && !Hlp_StrCmp( karta6, karta10 ) {
if !Hlp_StrCmp(karta8, karta10 ) {
if !Hlp_StrCmp(karta2, karta_9 ) && !Hlp_StrCmp( karta4, karta_9 ) && !Hlp_StrCmp( karta6, karta_9 ) && !Hlp_StrCmp( karta8, karta_9 ) && !Hlp_StrCmp( karta10, karta_9 ) {
if Hlp_StrCmp(kolor1, kolor3 ) && Hlp_StrCmp( kolor3, kolor5 ) && Hlp_StrCmp( kolor5, kolor7 ) && Hlp_StrCmp( kolor7, kolor9 ) {

wynik2 = "Królewski poker ";
};
};
};
};
};

};

//PrintScreen     (wynik2, -1,-1,"font_old_20_white.tga",3);

};
 
RafalBudzis

RafalBudzis

Użytkownicy
posty1967
Propsy808
ProfesjaSkrypter
  • Użytkownicy

RafalBudzis

Poker w gothicu
#6 2011-09-26, 18:26(Ostatnia zmiana: 2011-09-26, 18:31)
No już rozbudowane i prawie skończone jak wam się podoba ????

https://www.youtube.com/watch?v=v8-pQXwigPI


Przy znakach zapytania u gracza komputerowego czasem mamy napisane "(wymiana)" znaczy to ze gracz wymienił te kartę (po ilości wymienianych kart można określić co posiada komputer)

P.S. ale mnie zrobił nie miał nic wymienił wszystko i strita dostał :D  mój komp na farta ^^

Cytuj
W każdym razie pomysł jest bardzo dobry, choć wiele zależy od realizacji.

Mam nadzieje ze dobrze zrealizowałem projekt :D
 
krupam

krupam

Użytkownicy
posty105
Propsy43
Profesjabrak
  • Użytkownicy

krupam

Poker w gothicu
#7 2011-09-26, 19:38
Mogłeś chociaż dać normalne nazwy, a nie jakieś "żołądzie"...

Spoiler
W sensie kier, karo, pik i trefl...
 
RafalBudzis

RafalBudzis

Użytkownicy
posty1967
Propsy808
ProfesjaSkrypter
  • Użytkownicy

RafalBudzis

Poker w gothicu
#8 2011-09-26, 20:19(Ostatnia zmiana: 2011-09-26, 20:19)
Cytat: krupam#msg w 2011-09-26, 19:38
Mogłeś chociaż dać normalne nazwy, a nie jakieś "żołądzie"...

Klient nasz pan :D  proszę

 
Silver

Silver

Użytkownicy
posty109
Propsy14
ProfesjaGracz
  • Użytkownicy

Silver

Poker w gothicu
#9 2011-09-26, 20:22
mała sprawa w nazewnictwie kart.
zamiast:
Q - Królowa
K - Król
J - Walet
As
 
Leinnan

Leinnan

Administrator
torsonic polarity syndrome
posty2651
Propsy3600
ProfesjaProgramista
  • Administrator
  • torsonic polarity syndrome

Leinnan
Administrator

Poker w gothicu
#10 2011-09-26, 20:23(Ostatnia zmiana: 2011-09-26, 20:26)
 
Mit der Dummheit kämpfen die Götter selbst vergebens

steam | slavic castles |  last.fm | moddb.com | Stary, najlepszy lider Sclavinii
RafalBudzis

RafalBudzis

Użytkownicy
posty1967
Propsy808
ProfesjaSkrypter
  • Użytkownicy

RafalBudzis

Poker w gothicu
#11 2011-09-26, 20:26(Ostatnia zmiana: 2011-09-27, 21:36)
Cytat: Rybopiotr#msg w 2011-09-26, 20:23
Nie można tego zrobić w Gothicu normalnie, z kartami jako kartami a nie tylko tekstowo?
Można ale nie jestem aż takim dobrym grafikiem ...
gdyby ktoś chciał to niech zrobi miejsca w creditsach jeszcze jest :D

Cytuj
mała sprawa w nazewnictwie kart.
zamiast:
Q - Królowa
K - Król
J - Walet
As

To chyba każdy wie ... mi się zdaje ze nie trzeba tego.
 
Silver

Silver

Użytkownicy
posty109
Propsy14
ProfesjaGracz
  • Użytkownicy

Silver

Poker w gothicu
#12 2011-09-26, 20:29
Cytat: RafalBudzis#msg w 2011-09-26, 20:26
Można ale nie jestem aż takim dobrym grafikiem ...
wpisz w google numery i nazwy koloru i ci znajdzie
 
kaczka

kaczka

RaveN Studio
Definitely not kaczka!
posty2280
Propsy2392
NagrodyV
ProfesjaLvl designer
  • RaveN Studio
  • Definitely not kaczka!

kaczka
RaveN Studio

Poker w gothicu
#13 2011-10-14, 16:47
Cytat: RafalBudzis#msg w 2011-09-26, 20:26
Można ale nie jestem aż takim dobrym grafikiem ...
Mogę Ci porobić zdjęcia swojej jakiejś talii oryginalnej :lol:
 

0 użytkowników i 1 Gość przegląda ten wątek.
0 użytkowników
Do góry