|
=={{header|Applesoft BASIC}}==
{{trans|Python}}
The Bicycle rules are set up by default, butwith otherthe "thundercat" rule: see [[War_card_game#Raku|Raku]] for details. Other variations can be played by passing different parameters.
<syntaxhighlight lang="autohotkey"> 100 R = RND (0): REM SEED
110 W = 1: REM BICYCLE RULE: ONLY ONE EXTRA CARD GIVEN UP IN WAR
160 FACE$ = "23456789TJQKA"
170 M = LEN (SUIT$)
180 FOR I = 1 TO D: FOR S = 1 TO M: FOR F = 1 TO LEN (FACE$):DECKP$ = DECKP$ + CHR$ ((F - 1) * M + (S - 1)): NEXT F,S,I
190 TEXT : HOME : POKE 34,12
REM INITIALIZE
210 PRINT "SHUFFLING ..." ▼ 230 R = INT ( RND (1) * N + 1) ▼ 240 R$ = MID$ (DECK$,R,1) ▼ 250 C$ = MID$ (DECK$,I,1) ▼ 260 DECK$ = MID$ (DECK$,1,I - 1) + R$ + MID$ (DECK$,I + 1) ▼ 270 DECK$ = MID$ (DECK$,1,R - 1) + C$ + MID$ (DECK$,R + 1) ▼ REM DEAL TO PLAYERS
200 GOSUB 700"SHUFFLE
300 E = INT (N / P)
310210 FOR IE = 1 TOINT (N / P)
320220 FOR D$(I) = MID$ (DECK$,(I - 1) *TO E + 1,E)P
▲ 250230 CD$ (I) = MID$ ( DECKP$, (I , - 1 ) * E + 1,E)
340250 P$ = MID$ (DECKP$,(I - 1) * E + 1): REM WINNER OF THE FIRST PLAY KEEPS THESE REMAINING CARDS
350260 P$ = "": REM REMOVE REMAINING CARDS FROM THE GAME
REM PLAY
400300 FOR T = 0 TO 1E38
410310 GOSUB 500400"TURN
420320 IF Q = 0 THEN NEXT T
430330 PRINT TAB( 10)" IN "T" TURNS": TEXT : VTAB 11: PRINT : CALL - 868: PRINT "...": VTAB 23
440340 END
REM TURN
500400 PRINT : GOSUB 800900"IS GAME OVER?
510410 IF Q THEN RETURN
520420 U = 0: REM UTMOST CARD
530430 C = 0: REM COUNT THE PLAYERS WITH THE UTMOST CARD
540440 FOR I = 1 TO P
550450 C$(I) = "" : IF NOT L(I) THEN C$(I) = MID$ (D$(I),1,1)
560460 IF LEN (C$(I)) AND (R OR NOT L(I)) THEN GOSUB 700800"drawDRAW cardCARD
480 IF C = 1 GOTO 600"WINNER TAKE CARDS
590490 FOR I = 1 TO P:L(I) = G(I) < > CU: NEXT I ▼
600500 PRINT " TIEWAR! " ;▼
610510 GOSUB 800900"IS GAME OVER? ▼
520 IF Q THEN RETURN
530 C = 0
540 FOR I = 1 TO P:P$ = P$ + C$(I): NEXT I
550 FOR I = 1 TO P
REM DOES NOT APPLY TO 2 PLAYER GAMES (BICYCLE RULE): RY MEANS IGNORE THE RULE THAT ONLY THE WINNERS PLACE CARD(S) FACE DOWN ▼ 650560 IF RY OR NOT L(I) THEN FOR J = 1 TO W: PC$ = P$ + MID$ (D$(I),1,1) :C = C + LEN(C$) : P$ = P$ + C$ :D$(I) = MID$ (D$(I),2): PRINT " ? ";: NEXT J ▼
570 NEXT I
670580 PRINT C" CARDS AREPLACED FACE DOWN." ;▼
580 IF C = 1 THEN PRINT "PLAYER "A" TAKES THE CARDS.": FOR I = 1 TO P:L(I) = 0:D$(A) = D$(A) + C$(I): NEXT I:D$(A) = D$(A) + P$:P$ = "": RETURN
590 RETURN
▲ 590 FOR I = 1 TO P:L(I) = G(I) < > C: NEXT I
REM WINNER TAKE CARDS
▲ 610 GOSUB 800"IS GAME OVER?
620600 IFFOR QI THEN= 1 RETURNTO P
630610 FOR I = 1 TO P:P$ = P$ + C$L(I): NEXT= I0
640620 FOR I = 1 TOP$ = P$ + C$(I)
630 NEXT I
▲ REM DOES NOT APPLY TO 2 PLAYER GAMES (BICYCLE RULE): R MEANS IGNORE THE RULE THAT ONLY THE WINNERS PLACE CARD(S) FACE DOWN
640 PRINT "PLAYER "A" TAKES "LEN(P$);
▲ 650 IF R OR NOT L(I) THEN FOR J = 1 TO W:P$ = P$ + MID$ (D$(I),1,1):D$(I) = MID$ (D$(I),2): PRINT " ? ";: NEXT J
650 IF NOT Z THEN GOSUB 710"SHUFFLE
660 D$(A) = D$(A) + P$
▲ 670 PRINT "CARDS ARE FACE DOWN."
670 P$ = ""
680 RETURN
REM SHUFFLE
▲ 210700 PRINT "SHUFFLING ..." ;
▲ 200710 N = LEN ( DECKP$)
730 IF I - INT (I / 4) * 4 = 1 THEN PRINT ".";
▲ 230740 R = INT ( RND (1) * N + 1)
▲ 240750 R$ = MID$ ( DECKP$,R ,1) : C$ = MID$ (P$,I,1)
▲ 260760 DECKP$ = MID$ ( DECKP$,1,I - 1) + R$ + MID$ ( DECKP$,I + 1)
▲ 270770 DECKP$ = MID$ ( DECKP$,1,R - 1) + C$ + MID$ ( DECKP$,R + 1)
790 RETURN
REM DRAW CARD
700800 G = ASC (C$(I))
710810 G(I) = INT (G / M) + 1
720820 PRINT MID$ (FACE$,G(I),1) MID$ (SUIT$,G - (G(I) - 1) * M + 1,1)" ";
730830 D$(I) = MID$ (D$(I),2)
740840 C = C + (G(I) = U)
750850 IF G(I) > U THEN U = G(I):C = 1:A = I
760860 RETURN
REM IS GAME OVER?
800900 C = 0
810910 FOR I = 1 TO P
820920 IF LEN (D$(I)) THEN A = I:C = C + 1
830930 NEXT I
840940 IF C > 1 THEN RETURN
REM GAME OVER - WHO WON MESSAGE
850950 Q = 1
860960 IF C THEN PRINT "PLAYER "A" WINS THE GAME.";: RETURN
870970 PRINT "GAME ENDS AS A TIE.";: RETURN</syntaxhighlight>
<syntaxhighlight lang="autohotkey">CLEAR : R = RND ( - 558) : GOTO 110</syntaxhighlight>
{{out}}
<pre>SHUFFLING .............
ADJD QD9H PLAYER 1 TAKES THE CARDS2.
4C 5C PLAYER 2 TAKES 2.
4D 4H TIE!
2D 8C PLAYER 2 TAKES 2.
? ? CARDS ARE FACE DOWN. ▼ACTH TDAS PLAYER 12 TAKES THE CARDS2.
9C7D 5CQS PLAYER 12 TAKES THE CARDS2.
3H 4S 8H PLAYER 2 TAKES THE CARDS2.
8DAD TH7C PLAYER 21 TAKES THE CARDS2.
JS 2S PLAYER 1 TAKES 2.
QS QC TIE!
?3C 3S ?WAR! 2 CARDS AREPLACED FACE DOWN.
5STD QHKH PLAYER 2 TAKES THE CARDS6..
...
8C8D 2D PLAYER 1 TAKES THE CARDS2.
8CTD 3S7C PLAYER 1 TAKES THE CARDS2.
2D7S AS6C PLAYER 21 TAKES THE CARDS2.
8C9H 7C8H PLAYER 1 TAKES THE CARDS2.
3S3D KH8C PLAYER 2 TAKES THE CARDS2.
8CAD 5H3C PLAYER 1 TAKES THE CARDS2.
7C4H JD4C PLAYERWAR! 2 TAKESCARDS THEPLACED CARDSFACE DOWN.
▲ ?7D 7H ?WAR! 2 CARDS AREPLACED FACE DOWN.
8C 8D TIE!
JH 3D PLAYER 1 TAKES 10...
? ? CARDS ARE FACE DOWN.
9D 8C PLAYER 1 TAKES 2.
PLAYER 2 WINS THE GAME.
PLAYER 1 WINS THE GAME IN 959432 TURNS
</pre>
=={{header|AutoHotkey}}==
<syntaxhighlight lang="autohotkey">suits := ["♠", "♦", "♥", "♣"]
|