Hpmezzo |
|
| Strano il mio gioco si basa sulle carte che prendi, ovviamente alla fine lui effettua un check quelle che hai allora li conteggia, quelle che non hai passano direttamente all'avversario con questa func qui: Func ListaCarteAvversario ()
$CarteTotMie = StringSplit($PreseCarteMie1, ",")
$PreseCarteAvv=""
For $Counter=1 to 40
$Obliov=1
For $Count=1 to $CarteTotMie[0]
if $CarteTotMie[$Count]=$Counter then $Obliov=0
Next
if $Obliov=1 then $PreseCarteAvv=$PreseCarteAvv&$Counter&","
Next
Global $CarteTotAvv = StringSplit($PreseCarteAvv, ",")
Global $CarteTotAvv1 = $carteTotAvv[0]-1
EndFunc Poi in base a chi effettua la presa per ultimo prende le carte: Func TurnoAssignCarte7 ()
;MsgBox (0 ,"Fine" ,"Partita finita!!")
if $UltimaPresa="Avv" then MsgBox (0 ,"Fine" ,"Prende tutto avversario!")
if $UltimaPresa="Mia" then MsgBox (0 ,"Fine" ,"Prende tutto io!!")
if $UltimaPresa="Mia" then CALL ("PrendoTuttoIo")
$LengOneCarteM_1=StringLen ($PreseCarteMie)
Global $PreseCarteMie1=StringRight ($PreseCarteMie , $LengOneCarteM_1-1)
call ("TabellonePunteggio")
EndFunc
Func PrendoTuttoIo ()
$Card1=_GUICtrlButton_GetText ($Field1)
$Card2=_GUICtrlButton_GetText ($Field2)
$Card3=_GUICtrlButton_GetText ($Field3)
$Card4=_GUICtrlButton_GetText ($Field4)
$Card5=_GUICtrlButton_GetText ($Field5)
$Card6=_GUICtrlButton_GetText ($Field6)
$Card7=_GUICtrlButton_GetText ($Field7)
$Card8=_GUICtrlButton_GetText ($Field8)
$Card9=_GUICtrlButton_GetText ($Field9)
$Card10=_GUICtrlButton_GetText ($Field10)
if $Card1>0 then $PreseCarteMie=$PreseCarteMie&","&$Card1
if $Card2>0 then $PreseCarteMie=$PreseCarteMie&","&$Card2
if $Card3>0 then $PreseCarteMie=$PreseCarteMie&","&$Card3
if $Card4>0 then $PreseCarteMie=$PreseCarteMie&","&$Card4
if $Card5>0 then $PreseCarteMie=$PreseCarteMie&","&$Card5
if $Card6>0 then $PreseCarteMie=$PreseCarteMie&","&$Card6
if $Card7>0 then $PreseCarteMie=$PreseCarteMie&","&$Card7
if $Card8>0 then $PreseCarteMie=$PreseCarteMie&","&$Card8
if $Card9>0 then $PreseCarteMie=$PreseCarteMie&","&$Card9
if $Card10>0 then $PreseCarteMie=$PreseCarteMie&","&$Card10
EndFunc Come ben vedi l'ho messo al turno 7 che sarebbe l'ultimo turno... Comunque sto provando a giocare per vedere il 7 di denari... Ma da me lo assegna correttamente. Facci caso se lo assegna correttamente |
| | |
Comunque l'errore è perchè devo fare la schermata di YOU WIN XD
sciauu