Kategorie: yab
Auch verfügbar: English (United Kingdom)
Zugriffe: 971

In diesem Beispiel geht es darum, ein Kartenspiel mit 32 Karten zu mischen und entsprechend für 3 Spieler aufzuteilen ohne das eine Karte dopplet vorkommt.

#!/boot/home/config/bin/yab

//karten mischen anhand Skat (32)

dim karte(32)
dim counter(32)
dim karten$(32)
karten$(0)="karo 7"
karten$(1)="karo 8"
karten$(2)="karo 9"
karten$(3)="karo 10"
karten$(4)="karo bube"
karten$(5)="karo dame"
karten$(6)="karo koenig"
karten$(7)="karo Ass"
karten$(8)="herz 7"
karten$(9)="herz 8"
karten$(10)="herz 9"
karten$(11)="herz 10"
karten$(12)="herz bube"
karten$(13)="herz dame"
karten$(14)="herz koenig"
karten$(15)="herz Ass"
karten$(16)="pik 7"
karten$(17)="pik 8"
karten$(18)="pik 9"
karten$(19)="pik 10"
karten$(20)="pik bube"
karten$(21)="pik dame"
karten$(22)="pik koenig"
karten$(23)="pik Ass"
karten$(24)="kreuz 7"
karten$(25)="kreuz 8"
karten$(26)="kreuz 9"
karten$(27)="kreuz 10"
karten$(28)="kreuz bube"
karten$(29)="kreuz dame"
karten$(30)="kreuz koenig"
karten$(31)="kreuz Ass"
for i =1 to 32
	counter(i)=0
next i
for w =1 to 32 // 32 mal ziehen
	counter(z)=0
while(counter(z)>0) z=int(ran(32)) wend counter(z)=counter(z)+1 karte(w)=z next w print "spieler A" for i=1 to 10 print str$(i)+" : "+str$(karte(i))+" : "+karten$(karte(i)) next i print "spieler B" for i=11 to 20 print str$(i)+" : "+str$(karte(i))+" : "+karten$(karte(i)) next i print "spieler c" for i=21 to 30 print str$(i)+" : "+str$( karte(i))+" : "+karten$(karte(i)) next i print "Im Stock c" for i=31 to 32 print str$(i)+" : "+str$( karte(i))+" : "+karten$(karte(i)) next i