'                        The Backyard Adventure   (version 1.0)
'                             By Armadillo Programming, 1999
'                       "We don't have a cool slogan yet"
'
'
'                      This game rated Kids-Adult
'                       Press Shift+F5 to play
'
'
'               You are an ant just trying to survive. Wait.. you're
'               not just trying to survive. You are at war with the
'               evil enemy ants. Destroy your enemies by breeding new
'               warriors and laying seige to the red colony!
'
'               (This is not based on anybody)
'
'               Send comments to: dijonsrup@aol.com
'               Visit the website: http://members.aol.com/dijonsyrup
'
COLOR 4, 0
CLS
LOCATE 12, 25
PRINT "The Backyard Adventure"
LOCATE 23, 21
PRINT "Press any key to be ant-ized"
1 key$ = INKEY$: IF key$ = "" THEN GOTO 1

2 CLS
LOCATE 5, 5
PRINT "You are an ant at war with the evil other ants. You must breed"
LOCATE 6, 5
PRINT "new warriors and make alliances so you can destroy your enemies."
LOCATE 7, 5
PRINT "You must be quick, however, or they'll destroy you first!"
LOCATE 8, 5
PRINT "Will you be the fierce RED ants or the industrious BLACK ants"
LOCATE 9, 5
INPUT "or get HELP"; choose$
IF LCASE$(choose$) = "red" THEN GOTO 20
IF LCASE$(choose$) = "black" THEN GOTO 2000
IF LCASE$(choose$) = "help" THEN GOTO 4
GOTO 2

4 CLS
LOCATE 5, 5
PRINT "(1) The Basics"
LOCATE 6, 5
PRINT "(2) The Red Ants"
LOCATE 7, 5
PRINT "(3) The Black Ants"
LOCATE 8, 5
PRINT "(4) The Other Ants"
LOCATE 9, 5
PRINT "(5) Return to main menu"
LOCATE 10, 5
INPUT "Make selection"; help
IF help = 1 THEN GOTO 5
IF help = 2 THEN GOTO 7
IF help = 3 THEN GOTO 9
IF help = 4 THEN GOTO 999999
IF help = 5 THEN GOTO 2

5 CLS
LOCATE 5, 5
PRINT "Your goal is to breed warrior ants to attack and destroy your enemies."
LOCATE 6, 5
PRINT "You have three different kinds of ants: Queens, Workers, and Warriors."
LOCATE 7, 5
PRINT "Queen ants enable you to breed more ants. For each extra Queen ant you"
LOCATE 8, 5
PRINT "have, you get bonus ants per turn. Note that you can only get bonus ants"
LOCATE 9, 5
PRINT "once per turn. Worker ants gather food for the colony."
LOCATE 10, 5
PRINT "You need food to breed ants. Warrior ants are the ants that go"
LOCATE 11, 5
PRINT "to the battlefield. Without warrior ants, you cannot fight!"
LOCATE 12, 5
PRINT "You have five enemies to destroy. They are: The Spider, Enemy Colony #1,"
LOCATE 13, 5
PRINT "Enemy Colony #2, The Lizard, and The Anteater. Good Luck!"
LOCATE 23, 21
PRINT "Press any key..."
6 key$ = INKEY$: IF key$ = "" THEN GOTO 6
GOTO 4

7 CLS
LOCATE 5, 5
PRINT "The Red Ants"
LOCATE 6, 5
PRINT "The Red Ants and Black Ants have differences that make each one unique."
LOCATE 7, 5
PRINT "The Red Ants are more hostile than the Black Ants. As a result, they"
LOCATE 8, 5
PRINT "cannot form alliances. To make up for this, each Red warrior ant is"
LOCATE 9, 5
PRINT "equal to 1.3 Black warriors in battle."
LOCATE 10, 5
PRINT "Queens cost 60 food - Workers cost 15 food - Warriors cost 40 food"
LOCATE 23, 21
PRINT "Press any key..."
8 key$ = INKEY$: IF key$ = "" THEN GOTO 8
GOTO 4

9 CLS
LOCATE 5, 5
PRINT "The Black Ants"
LOCATE 6, 5
PRINT "The Black Ants and Red Ants have differences that make each one unique."
LOCATE 7, 5
PRINT "The Black Ants are more industrious than the Red Ants. As a result, they"
LOCATE 8, 5
PRINT "can form alliances. The Army Ants will give them mercenaries for battle,"
LOCATE 9, 5
PRINT "and the Leafcutter Ants will give them extra food per turn."
LOCATE 10, 5
PRINT "Queens cost 60 food - Workers cost 20 food - Warriors cost 30 food"
LOCATE 23, 21
PRINT "Press any key..."
10 key$ = INKEY$: IF key$ = "" THEN GOTO 10
GOTO 4

20 CLS
spid = 100
col1 = 150
col2 = 300
liz = 500
eat = 1000
queen = 1
work = 0
war = 0
food = 100
turn = 1
GOTO 30

30 CLS
IF queen < 1 THEN queen = 1
IF work < 0 THEN work = 0
IF war < 0 THEN war = 0
IF food < 0 THEN food = 0
war2 = (war * 1.3)
exwo = 0
exwa = 0
chance = INT(RND * 10 + 1)
IF turn < 10 THEN GOTO 31
IF chance = 1 THEN GOTO 1000
IF chance = 2 THEN GOTO 1100
IF chance = 3 THEN GOTO 1200
IF chance = 4 THEN GOTO 1300
IF chance = 5 THEN GOTO 1400
IF chance = 6 THEN GOTO 1500
IF chance = 7 THEN GOTO 1600
IF chance = 8 THEN GOTO 1700
IF chance = 9 THEN GOTO 1800
IF chance = 10 THEN GOTO 1900
31 CLS
LOCATE 5, 50
PRINT "Turn #"; turn
LOCATE 6, 50
PRINT "Queens:"; queen
LOCATE 7, 50
PRINT "Workers:"; work
LOCATE 8, 50
PRINT "Warriors:"; war
LOCATE 9, 50
PRINT "Food:"; food
LOCATE 10, 50
PRINT "Force equivalancy:"; war2
LOCATE 5, 5
PRINT "(1) Breed Queens"
LOCATE 6, 5
PRINT "(2) Breed Workers"
LOCATE 7, 5
PRINT "(3) Breed Warriors"
LOCATE 8, 5
PRINT "(4) Attack"
LOCATE 9, 5
PRINT "(5) End Turn"
LOCATE 10, 5
PRINT "(6) Exit Game"
INPUT "What do you want to do?"; red
IF red = 1 THEN GOTO 40
IF red = 2 THEN GOTO 50
IF red = 3 THEN GOTO 60
IF red = 4 THEN GOTO 70
IF red = 5 THEN GOTO 80
IF red = 6 THEN END
IF red = 99 THEN GOTO 140
GOTO 31

40
LOCATE 15, 15
INPUT "Queens cost 60 each. How many do you want?"; buyqueen
qtot = (buyqueen * 60)
IF qtot > food THEN PRINT "You don't have enough food!": SLEEP: LOCATE 11, 1: PRINT "": LOCATE 12, 1: PRINT "": LOCATE 13, 1: PRINT "": LOCATE 11, 1: GOTO 50
food = (food - qtot)
queen = (queen + buyqueen)
LOCATE 16, 15
PRINT "You gained "; buyqueen; "more queens!"
GOTO 30

50
IF queen < 2 THEN GOTO 51
IF workey = 1 THEN GOTO 51
exwo = (INT(RND * 5 + 1) * queen)
51 LOCATE 15, 15
INPUT "Workers cost 15 each. How many do you want?"; buywork
wotot = (buywork * 15)
IF wotot > food THEN PRINT "You don't have enough food!": SLEEP: LOCATE 11, 1: PRINT "": LOCATE 12, 1: PRINT "": LOCATE 13, 1: PRINT "": LOCATE 11, 1: GOTO 50
LOCATE 16, 15
PRINT "You gained "; exwo; "extra workers!"
food = (food - wotot)
work = (work + buywork + exwo)
workey = 1
52 key$ = INKEY$: IF key$ = "" THEN GOTO 52
GOTO 30

60
IF queen < 2 THEN GOTO 61
IF warkey = 1 THEN GOTO 61
exwa = (INT(RND * 5 + 1) * queen)
61 LOCATE 15, 15
INPUT "Warriors cost 40 each. How many do you want?"; buywar
watot = (buywar * 40)
IF watot > food THEN PRINT "You don't have enough food!": SLEEP: LOCATE 11, 1: PRINT "": LOCATE 12, 1: PRINT "": LOCATE 13, 1: PRINT "": LOCATE 11, 1: GOTO 60
LOCATE 16, 15
PRINT "You gained "; exwa; "extra warriors!"
food = (food - watot)
war = (war + buywar + exwa)
warkey = 1
62 key$ = INKEY$: IF key$ = "" THEN GOTO 62
GOTO 30

70
LOCATE 15, 5
PRINT "(1) The Spider"
LOCATE 16, 5
PRINT "(2) Black Ant Colony #1"
LOCATE 17, 5
PRINT "(3) Black Ant Colony #2"
LOCATE 18, 5
PRINT "(4) The Lizard"
LOCATE 19, 5
PRINT "(5) The Anteater"
LOCATE 20, 5
PRINT "(6) Return to main menu"
LOCATE 21, 5
INPUT "Who do you want to fight?"; fight
IF fight = 1 THEN GOTO 90
IF fight = 2 THEN GOTO 100
IF fight = 3 THEN GOTO 110
IF fight = 4 THEN GOTO 120
IF fight = 5 THEN GOTO 130
IF fight = 6 THEN GOTO 30
GOTO 70

80
IF work < 1 THEN GOTO 82
addfood = (INT(RND * 20) + 10) * work
food = (addfood + food)
LOCATE 15, 15
PRINT "You gained "; addfood; "extra food today!"
81 key$ = INKEY$: IF key$ = "" THEN GOTO 81
82 turn = (turn + 1)
83 warkey = 0
84 workey = 0
GOTO 30

90
IF spid < 0 THEN CLS : LOCATE 15, 30: PRINT "You already killed The Spider!"
IF spid < 0 THEN SLEEP: GOTO 30
CLS : LOCATE 15, 30
PRINT "You are fighting The Spider!"
LOCATE 16, 30
PRINT "Your force equivalency is "; war2
LOCATE 17, 30
PRINT "The Spider's force equivalency is "; spid
lost = INT(RND * 10 + 1)
hiton = INT(RND * 10 + 1)
spid = spid - hiton
war2 = war2 - lost
IF war2 < 0 THEN PRINT "You have lost the colony!": END
IF spid < 0 THEN PRINT "You have killed The Spider!": war = INT(war2 / 1.3)
IF spid < 0 THEN SLEEP: GOTO 30
SLEEP
GOTO 90

100
IF col1 < 0 THEN CLS : LOCATE 15, 30: PRINT "You already eliminated Black Ant Colony #1!"
IF col1 < 0 THEN SLEEP: GOTO 30
col1 = (col1 + INT(RND * 100 + 1))
101
CLS : LOCATE 15, 30
PRINT "You are fighting Black Ant Colony #1!"
LOCATE 16, 30
PRINT "Your force equivalency is "; war2
LOCATE 17, 30
PRINT "Black Ant Colony #1's force equivalency is "; col1
lost = INT(RND * 10 + 1)
hiton = INT(RND * 10 + 1)
col1 = col1 - hiton
war2 = war2 - lost
IF war2 < 0 THEN PRINT "You have lost the colony!": END
IF col1 < 0 THEN PRINT "You have eliminated Black Ant Colony #1!": war = INT(war2 / 1.3)
IF col1 < 0 THEN SLEEP: GOTO 30
SLEEP
GOTO 101

110 CLS
IF col2 < 0 THEN CLS : LOCATE 15, 30: PRINT "You already eliminated Black Ant Colony #2!"
IF col2 < 0 THEN SLEEP: GOTO 30
col2 = (col2 + INT(RND * 100 + 1))
111
CLS : LOCATE 15, 30
PRINT "You are fighting Black Ant Colony #2!"
LOCATE 16, 30
PRINT "Your force equivalency is "; war2
LOCATE 17, 30
PRINT "Black Ant Colony #2's force equivalency is "; col2
lost = INT(RND * 10 + 1)
hiton = INT(RND * 10 + 1)
col2 = col2 - hiton
war2 = war2 - lost
IF war2 < 0 THEN PRINT "You have lost the colony!": END
IF col2 < 0 THEN PRINT "You have eliminated Black Ant Colony #2!": war = INT(war2 / 1.3)
IF col2 < 0 THEN SLEEP: GOTO 30
SLEEP
GOTO 111

120 CLS
IF liz < 0 THEN CLS : LOCATE 15, 30: PRINT "You already killed The Lizard!"
IF liz < 0 THEN SLEEP: GOTO 30
121
CLS : LOCATE 15, 30
PRINT "You are fighting The Lizard!"
LOCATE 16, 30
PRINT "Your force equivalency is "; war2
LOCATE 17, 30
PRINT "The Lizard's force equivalency is "; liz
lost = INT(RND * 10 + 1)
hiton = INT(RND * 10 + 1)
liz = liz - hiton
war2 = war2 - lost
IF war2 < 0 THEN PRINT "You have lost the colony!": END
IF liz < 0 THEN PRINT "You have killed The Lizard!": war = INT(war2 / 1.3)
IF liz < 0 THEN SLEEP: GOTO 30
SLEEP
GOTO 121

130 CLS
IF spid > 0 THEN GOTO 132
IF col1 > 0 THEN GOTO 132
IF col2 > 0 THEN GOTO 132
IF liz > 0 THEN GOTO 132
131
CLS : LOCATE 15, 30
PRINT "You are fighting The Anteater!"
LOCATE 16, 30
PRINT "Your force equivalency is "; war2
LOCATE 17, 30
PRINT "The Anteater's force equivalency is "; eat
lost = INT(RND * 10 + 1)
hiton = INT(RND * 10 + 1)
eat = eat - hiton
war2 = war2 - lost
IF war2 < 0 THEN PRINT "You have lost the colony!": END
IF eat < 0 THEN PRINT "You have killed The Anteater!": SLEEP: GOTO 140
SLEEP
GOTO 131

132
LOCATE 15, 30
PRINT "You must kill the other enemies before you can take on The Anteater!"
SLEEP: GOTO 30
GOTO 132

140 CLS
LOCATE 11, 15
PRINT "Congratulations! You have defeated all your enemies and brought honor"
LOCATE 13, 15
PRINT "to The Red Ants!!! "
LOCATE 23, 21
PRINT "Press any key..."
SLEEP
GOTO 999

999 CLS
LOCATE 1, 15
PRINT "The Backyard Adventure"
LOCATE 2, 15
PRINT "By Armadillo Programming"
PRINT ""
PRINT "Lead Programmer: CeJota"
PRINT "Bug Fixing: Frostorm, CeJota"
PRINT "Concept: DijonSyrup"
PRINT ""
PRINT "Play Testing: CeJota, DijonSyrup, Tammi Coley, Frostorm"
PRINT "Special Thanks To: Froware Software"
END
GOTO 999

1000 CLS
ev1 = INT(RND * 3)
queen = queen - ev1
IF queen < 2 THEN queen = queen + ev1: GOTO 31
LOCATE 5, 5
PRINT "Due to disease, you lost "; ev1; "Queen Ants"
SLEEP
GOTO 31

1100 CLS
ev2 = INT(RND * 150)
work = work - ev2
IF work < 0 THEN work = 0
LOCATE 5, 5
PRINT "Due to disease, you lost "; ev2; "Worker Ants"
SLEEP
GOTO 31

1200 CLS
ev3 = INT(RND * 150)
war = war - ev3
IF war < 0 THEN war = 0
LOCATE 5, 5
PRINT "Due to disease, you lost "; ev3; "Worker Ants"
SLEEP
GOTO 31

1300 CLS
ev4 = INT(RND * 400)
food = food + ev4
LOCATE 5, 5
PRINT "You found Funyuns in the backyard! You gained "; ev4; "food!"
SLEEP
GOTO 31

1400 CLS
ev5 = INT(RND * 400)
food = food - ev5
IF food < 0 THEN food = 0
LOCATE 5, 5
PRINT "Enemy ants raided your food cache! You lost"; ev4; "food!"
SLEEP
GOTO 31

1500 CLS
GOTO 31

1600 CLS
GOTO 31

1700 CLS
GOTO 31

1800 CLS
enem = INT(RND * 400 + 1)
1801
PRINT "You have been attacked by Black Ants!"
LOCATE 16, 30
PRINT "Your force equivalency is "; war2
LOCATE 17, 30
PRINT "The Black Ant's force equivalency is "; enem
lost = INT(RND * 10 + 1)
hiton = INT(RND * 10 + 1)
enem = enem - hiton
war2 = war2 - lost
IF war2 < 0 THEN PRINT "You have lost the colony!": END
IF enem < 0 THEN PRINT "You have defeated the attackers!       ": war = INT(war2 / 1.3):
IF enem < 0 THEN SLEEP: GOTO 31
SLEEP
GOTO 1801

1900 CLS
GOTO 31

2000
spid = 100
col1 = 150
col2 = 300
liz = 500
eat = 1000
army = 0
leaf = 0
queen = 1
work = 0
war = 0
merc = 0
food = 100
turn = 1

2100 CLS
IF queen < 1 THEN queen = 1
IF work < 0 THEN work = 0
IF war < 0 THEN war = 0
IF food < 0 THEN food = 0
war2 = (war + merc)
exwo = 0
exwa = 0
IF turn < 10 THEN GOTO 2101
chance = INT(RND * 10 + 1)
IF chance = 1 THEN GOTO 11000
IF chance = 2 THEN GOTO 11100
IF chance = 3 THEN GOTO 11200
IF chance = 4 THEN GOTO 11300
IF chance = 5 THEN GOTO 11400
IF chance = 6 THEN GOTO 11500
IF chance = 7 THEN GOTO 11600
IF chance = 8 THEN GOTO 11700
IF chance = 9 THEN GOTO 11800
IF chance = 10 THEN GOTO 11900
2101 CLS
LOCATE 5, 50
PRINT "Turn #"; turn
LOCATE 6, 50
PRINT "Queens:"; queen
LOCATE 7, 50
PRINT "Workers:"; work
LOCATE 8, 50
PRINT "Warriors:"; war
LOCATE 9, 50
PRINT "Mercinaries:"; merc
LOCATE 10, 50
PRINT "Food:"; food
LOCATE 11, 50
PRINT "Force equivalancy:"; war2
LOCATE 5, 5
PRINT "(1) Breed Queens"
LOCATE 6, 5
PRINT "(2) Breed Workers"
LOCATE 7, 5
PRINT "(3) Breed Warriors"
LOCATE 8, 5
PRINT "(4) Attack"
LOCATE 9, 5
PRINT "(5) Allies"
LOCATE 10, 5
PRINT "(6) End Turn"
LOCATE 11, 5
PRINT "(7) Exit Game"
INPUT "What do you want to do?"; black
IF black = 1 THEN GOTO 2140
IF black = 2 THEN GOTO 2150
IF black = 3 THEN GOTO 2160
IF black = 4 THEN GOTO 2170
IF black = 5 THEN GOTO 2180
IF black = 6 THEN GOTO 2190
IF black = 7 THEN END
IF black = 99 THEN GOTO 2333
GOTO 2101

2140
LOCATE 15, 15
INPUT "Queens cost 60 each. How many do you want?"; buyqueen
qtot = (buyqueen * 60)
IF qtot > food THEN PRINT "You don't have enough food!": SLEEP: LOCATE 11, 1: PRINT "": LOCATE 12, 1: PRINT "": LOCATE 13, 1: PRINT "": LOCATE 11, 1: GOTO 2140
food = (food - qtot)
queen = (queen + buyqueen)
GOTO 2100

2150
IF queen < 2 THEN GOTO 2151
IF workey = 1 THEN GOTO 2151
exwo = (INT(RND * 5 + 1) * queen)
2151 LOCATE 15, 15
INPUT "Workers cost 20 each. How many do you want?"; buywork
wotot = (buywork * 20)
IF wotot > food THEN PRINT "You don't have enough food!": SLEEP: LOCATE 11, 1: PRINT "": LOCATE 12, 1: PRINT "": LOCATE 13, 1: PRINT "": LOCATE 11, 1: GOTO 2150
LOCATE 16, 15
PRINT "You gained "; exwo; "extra workers!"
food = (food - wotot)
work = (work + buywork + exwo)
workey = 1
2152 key$ = INKEY$: IF key$ = "" THEN GOTO 2152
GOTO 2100

2160
IF queen < 2 THEN GOTO 2161
IF warkey = 1 THEN GOTO 2161
exwa = (INT(RND * 5 + 1) * queen)
2161 LOCATE 15, 15
INPUT "Warriors cost 30 each. How many do you want?"; buywar
watot = (buywar * 30)
IF watot > food THEN PRINT "You don't have enough food!": SLEEP: LOCATE 11, 1: PRINT "": LOCATE 12, 1: PRINT "": LOCATE 13, 1: PRINT "": LOCATE 11, 1: GOTO 2160
LOCATE 16, 15
PRINT "You gained "; exwa; "extra warriors!"
food = (food - watot)
war = (war + buywar + exwa)
warkey = 1
2162 key$ = INKEY$: IF key$ = "" THEN GOTO 2162
GOTO 2100

2170
LOCATE 15, 5
PRINT "(1) The Spider"
LOCATE 16, 5
PRINT "(2) Red Ant Colony #1"
LOCATE 17, 5
PRINT "(3) Red Ant Colony #2"
LOCATE 18, 5
PRINT "(4) The Lizard"
LOCATE 19, 5
PRINT "(5) The Anteater"
LOCATE 20, 5
PRINT "(6) Return to main menu"
LOCATE 21, 5
INPUT "Who do you want to fight?"; fight
IF fight = 1 THEN GOTO 2290
IF fight = 2 THEN GOTO 2300
IF fight = 3 THEN GOTO 2310
IF fight = 4 THEN GOTO 2320
IF fight = 5 THEN GOTO 2330
IF fight = 6 THEN GOTO 2100
GOTO 2170

2180
LOCATE 15, 5
PRINT "(1) Ally with Army Ants"
LOCATE 16, 5
PRINT "(2) Buy Mercinaries"
LOCATE 17, 5
PRINT "(3) Ally with Leafcutter Ants"
LOCATE 18, 5
PRINT "(4) Return to main menu"
LOCATE 19, 5
INPUT "What do you want to do?"; ally
IF ally = 1 THEN GOTO 20000
IF ally = 2 THEN GOTO 21000
IF ally = 3 THEN GOTO 22000
IF ally = 4 THEN GOTO 2100

2190
IF work < 1 THEN GOTO 2192
addfood = (INT(RND * 20) + 10) * work
food = (addfood + food)
LOCATE 15, 15
PRINT "You gained "; addfood; "extra food today!"
2191 key$ = INKEY$: IF key$ = "" THEN GOTO 2191
2192 turn = (turn + 1)
2193 warkey = 0
2194 workey = 0
LOCATE 16, 15
IF leaf = 1 THEN PRINT "You gained 400 food from The Leafcutter Ants!": food = (food + 400)
SLEEP
GOTO 2100

2290
IF spid < 0 THEN CLS : LOCATE 15, 30: PRINT "You already killed The Spider!"
IF spid < 0 THEN SLEEP: GOTO 2100
CLS : LOCATE 15, 30
PRINT "You are fighting The Spider!"
LOCATE 16, 30
PRINT "Your force equivalency is "; war2
LOCATE 17, 30
PRINT "The Spider's force equivalency is "; spid
lost = INT(RND * 10 + 1)
hiton = INT(RND * 10 + 1)
spid = spid - hiton
war2 = war2 - lost
IF war2 < 0 THEN PRINT "You have lost the colony!": END
IF spid < 0 THEN PRINT "You have killed The Spider!": war = INT(war2 - merc)
IF spid < 0 THEN SLEEP: GOTO 2100
SLEEP
GOTO 2290

2300
IF col1 < 0 THEN CLS : LOCATE 15, 30: PRINT "You already eliminated Red Ant Colony #1!"
IF col1 < 0 THEN SLEEP: GOTO 2100
col1 = (col1 + INT(RND * 100 + 1))
2301
CLS : LOCATE 15, 30
PRINT "You are fighting Red Ant Colony #1!"
LOCATE 16, 30
PRINT "Your force equivalency is "; war2
LOCATE 17, 30
PRINT "Red Ant Colony #1's force equivalency is "; col1
lost = INT(RND * 10 + 1)
hiton = INT(RND * 10 + 1)
col1 = col1 - hiton
war2 = war2 - lost
IF war2 < 0 THEN PRINT "You have lost the colony!": END
IF col1 < 0 THEN PRINT "You have eliminated Red Ant Colony #1!": war = INT(war2 - merc)
IF col1 < 0 THEN SLEEP: GOTO 2100
SLEEP
GOTO 2301

2310 CLS
IF col2 < 0 THEN CLS : LOCATE 15, 30: PRINT "You already eliminated Red Ant Colony #2!"
IF col2 < 0 THEN SLEEP: GOTO 2100
col2 = (col2 + INT(RND * 100 + 1))
2311
CLS : LOCATE 15, 30
PRINT "You are fighting Red Ant Colony #2!"
LOCATE 16, 30
PRINT "Your force equivalency is "; war2
LOCATE 17, 30
PRINT "Red Ant Colony #2's force equivalency is "; col2
lost = INT(RND * 10 + 1)
hiton = INT(RND * 10 + 1)
col2 = col2 - hiton
war2 = war2 - lost
IF war2 < 0 THEN PRINT "You have lost the colony!": END
IF col2 < 0 THEN PRINT "You have eliminated Red Ant Colony #2!": war = INT(war2 - merc)
IF col2 < 0 THEN SLEEP: GOTO 2100
SLEEP
GOTO 2311

2320 CLS
IF liz < 0 THEN CLS : LOCATE 15, 30: PRINT "You already killed The Lizard!"
IF liz < 0 THEN SLEEP: GOTO 2100
2321
CLS : LOCATE 15, 30
PRINT "You are fighting The Lizard!"
LOCATE 16, 30
PRINT "Your force equivalency is "; war2
LOCATE 17, 30
PRINT "The Lizard's force equivalency is "; liz
lost = INT(RND * 10 + 1)
hiton = INT(RND * 10 + 1)
liz = liz - hiton
war2 = war2 - lost
IF war2 < 0 THEN PRINT "You have lost the colony!": END
IF liz < 0 THEN PRINT "You have killed The Lizard!": war = INT(war2 - merc)
IF liz < 0 THEN SLEEP: GOTO 2100
SLEEP
GOTO 2321

2330 CLS
IF spid > 0 THEN GOTO 2332
IF col1 > 0 THEN GOTO 2332
IF col2 > 0 THEN GOTO 2332
IF liz > 0 THEN GOTO 2332
2331
CLS : LOCATE 15, 30
PRINT "You are fighting The Anteater!"
LOCATE 16, 30
PRINT "Your force equivalency is "; war2
LOCATE 17, 30
PRINT "The Anteater's force equivalency is "; eat
lost = INT(RND * 10 + 1)
hiton = INT(RND * 10 + 1)
eat = eat - hiton
war2 = war2 - lost
IF war2 < 0 THEN PRINT "You have lost the colony!": END
IF eat < 0 THEN PRINT "You have killed The Anteater!": SLEEP: GOTO 2333
SLEEP
GOTO 2331

2332
LOCATE 15, 30
PRINT "You must kill the other enemies before you can take on The Anteater!"
SLEEP: GOTO 2100
GOTO 2332

2333 CLS
LOCATE 11, 15
PRINT "Congratulations! You have defeated all your enemies and brought honor"
LOCATE 13, 15
PRINT "to The Black Ants!!! "
LOCATE 23, 21
PRINT "Press any key..."
SLEEP
GOTO 999

11000 CLS
ev1 = INT(RND * 3)
queen = queen - ev1
IF queen < 2 THEN queen = queen + ev1: GOTO 2101
LOCATE 5, 5
PRINT "Due to disease, you lost "; ev1; "Queen Ants"
SLEEP
GOTO 2101

11100 CLS
ev2 = INT(RND * 150)
work = work - ev2
IF work < 0 THEN work = 0
LOCATE 5, 5
PRINT "Due to disease, you lost "; ev2; "Worker Ants"
SLEEP
GOTO 2101

11200 CLS
ev3 = INT(RND * 150)
war = war - ev3
IF war < 0 THEN war = 0
LOCATE 5, 5
PRINT "Due to disease, you lost "; ev3; "Warrior Ants"
SLEEP
GOTO 2101

11300 CLS
ev4 = INT(RND * 400)
food = food + ev4
LOCATE 5, 5
PRINT "You found Funyuns in the backyard! You gained "; ev4; "food!"
SLEEP
GOTO 2101

11400 CLS
ev5 = INT(RND * 400)
food = food - ev5
IF food < 0 THEN food = 0
LOCATE 5, 5
PRINT "Enemy ants raided your food cache! You lost"; ev4; "food!"
SLEEP
GOTO 2101

11500 CLS
GOTO 2101

11600 CLS
GOTO 2101

11700 CLS
GOTO 2101

11800 CLS
enem = INT(RND * 400 + 1)
11801
PRINT "You have been attacked by Red Ants!"
LOCATE 16, 30
PRINT "Your force equivalency is "; war2
LOCATE 17, 30
PRINT "The Red Ant's force equivalency is "; enem
lost = INT(RND * 10 + 1)
hiton = INT(RND * 10 + 1)
enem = enem - hiton
war2 = war2 - lost
IF war2 < 0 THEN PRINT "You have lost the colony!": END
IF enem < 0 THEN PRINT "You have defeated the attackers!       ": war = (war2 - merc)
IF enem < 0 THEN SLEEP: GOTO 2101
SLEEP
GOTO 11801

11900 CLS
GOTO 2101

20000 CLS
IF army = 1 THEN PRINT "You are already allied!": SLEEP: GOTO 2101
PRINT "It will cost you 1000 food to ally"
INPUT "Do you want to ally (y/n)?"; army$
IF LCASE$(army$) = "y" THEN GOTO 20100
IF LCASE$(army$) = "n" THEN PRINT "Okay.": SLEEP: GOTO 2101

20100 CLS
IF food < 1000 THEN PRINT "You don't have enough food!": SLEEP: GOTO 2180
food = (food - 1000)
army = 1
PRINT "You can now hire mercinaries for 25 food each"
SLEEP: GOTO 2101

21000  CLS
IF army = 0 THEN PRINT "You are not allied yet!": SLEEP: GOTO 2101
INPUT "Mercinaries cost 25 each. How many do you want?"; buymer
metot = (buymer * 25)
metemp = merc + buymer
IF metot > food THEN PRINT "You don't have enough food!": SLEEP: LOCATE 11, 1: PRINT "": LOCATE 12, 1: PRINT "": LOCATE 13, 1: PRINT "": LOCATE 11, 1: GOTO 2180
IF metemp > 300 THEN PRINT "You cannot hire this many mercenaries."
CLS
LOCATE 16, 15
PRINT "You hired "; buymer; "more mercenaries."
merc = (merc + buymer)
LOCATE 17, 15
PRINT "You can hire up to "; 300 - merc; "more mercenaries."
food = (food - metot)
SLEEP: GOTO 2101

22000 CLS
IF leaf = 1 THEN PRINT "You are already allied!": SLEEP: GOTO 2101
PRINT "It will cost you 300 Warrior Ants to ally"
INPUT "Do you want to ally (y/n)?"; leaf$
IF LCASE$(leaf$) = "y" THEN GOTO 22100
IF LCASE$(leaf$) = "n" THEN PRINT "Okay.": SLEEP: GOTO 2101

22100 CLS
IF war < 300 THEN PRINT "You don't have enough Warrior Ants!": SLEEP: GOTO 2180
war = (war - 300)
leaf = 1
PRINT "The Leafcutter Ants will now give you food"
SLEEP: GOTO 2101

999999
LOCATE 5, 5
PRINT "The Other Ants"
LOCATE 6, 5
PRINT "The Black Ants can ally with The Army Ants and The Leafcutter Ants."
LOCATE 7, 5
PRINT "The Army Ants make mercenaries available to hire. If a mercenary dies"
LOCATE 8, 5
PRINT "in battle, it automatically comes back to life. There is a 300 limit on"
LOCATE 9, 5
PRINT "how many mercenaries you can hire. The Leafcutter Ants make more food"
LOCATE 10, 5
PRINT "available to your colony. They will add 400 units of extra food per turn."
LOCATE 23, 21
PRINT "Press any key..."
999000 key$ = INKEY$: IF key$ = "" THEN GOTO 999000
GOTO 4