# Five

Five adventurers for the horde.
Five battles, prove your worth.
Five palabras en cada oración!

### The Story 
With the country worsening from the influx monsters
at the Edge, Lord Cinco has create a virtual trial
in order to build a team of adventurers to seek out
and quell the horde.

The trial is simple.  Just battle your way through 
five encounters to escape the trial.  The first five 
adventurers to survive it will be assembled and 
dispatched to the Edge!  Lose any battle along the way 
and, unfortunately, the fate of the kingdom will rest
in the hands of others...

### The Trial
As you enter Lord Cinco's trial, your stats will
appear and you are dropped into your first encounter!
The numbers quickly flashing on your screen are
a BONUS that you get during that battle.  If you have
the right skills, you can press any key at the right
time to get large bonus.  If you aren't dextrous enough
you may get no bonus at all.

Your foes in the trial are random picked, but have a
chance to get stronger with each encounter you complete.
Since your stats won't change for the trial, make use
of the BONUS on each turn!

### Surviving the Trial
If you are victorious in all five encounters, you will
escape the trial and join the Five to save the kingdom!

### How to Run the Game
Five is a BASIC program on the disk.  Just LOAD and RUN.

```
]load five
]run
```

### Six Line Competition Code
This program was created for the PR#6 competition for the
Init Hello 2 competition at System Source Computer Museum.

The following BASIC code was cut and pasted into the Virtual II
emulator to ensure it could be type within the constraints
of an Apple II.  It took advantage of things like using
"?" for PRINT.

```
10 DEF FN RL(X)=INT(RND(1)*16)+X:DIM C$(2):C$(1)="+ Warrior":C$(2)="% Wizard":W=0:?CHR$(4);"PR#3":HOME:?"FIVE":S=FN RL(3):D=FN RL(3):I=FN RL(3):Z=FN RL(3):C=FN RL(3):L=FN RL(3):H=S+C+10:?"@ You: S:"S" D:"D" I:"I" W:"Z" C:"C" L:"L" HP:";H:?
20 CI=INT(RND(1)*2)+1:S1=FN RL(3+W):D1=FN RL(3+W):I1=FN RL(3):Z1=FN RL(3):C1=FN RL(3+W):L1=FN RL(3):H1=S1+C1+10:M1=S1+D1+I1+Z1+C1+L1+H1:?C$(CI)": S:"S1" D:"D1" I:"I1" W:"Z1" C:"C1" L:"L1" HP:"H1;" ":V=PEEK(37):V=V+1:M=S+D+I+Z+C+L+H
30 VTAB V:B = FN RL(0):? B" ":FOR F=1 to 50:NEXT F:K = PEEK( -16384 ):IF K <= 127 THEN GOTO 30
40 B=B+(K=192)*400:VTAB V:?"BONUS = ";B:IF M1>(M+B) THEN FOR F=1 TO 40:X=PEEK(-16336):FOR J=1 TO 2:NEXT J,F:?"Defeated.":END
50 POKE -16368, 0:W=W+1:IF W>=5 THEN A$=CHR$(7):?A$A$A$:? "YOU HAVE ESCAPED! CONGRATULATIONS!":END
60 B=0:?CHR$(7);"Player wins! POS=";W:GOTO 20
```
