' CHURCH WARS: ' The Border Dispute ' A strategy-war game by Froware Software 1998 ' From the same folks who brought you COTILLION-A-ROO 98, Empire at 11:00, ' and Star Wars: Attack of the Rebels. ' Another game based on actual places and people from Elmwood Pk., NJ ' Part of the 'Summer of 98 Collection Series' from Froware Software ' http://members.aol.com/frostorm/index.html frostorm@aol.com ' Froware Software-Our name isn't redudant; we are. RANDOMIZE TIMER men% = 120 money% = 200 bikes% = 5 days% = 1 border% = -1 COLOR 15, 1 CLS LOCATE 12, 34 PRINT "--CHURCH WARS--" LOCATE 13, 14 PRINT "The Ulitmate Battle between St. Anne's and St. Leo's" LOCATE 23, 15 PRINT "Hit a key to continue..." SLEEP CLS PRINT "A dispute between two Roman Catholic Church's has developed into a" PRINT "small local war. St. Anne Church from Fair Lawn has a border in" PRINT "Elmwood Park dividing who is a parishoner of St. Anne's or St. Leo" PRINT "in Elmwood Park. The border was set at Falmouth Ave, but a battle" PRINT "broke out by St. Leo rebels on Gilbert Ave. Teenagers from both" PRINT "churchs have volunteered their time by bike raiding with rocks and" PRINT "water balloons, and others have made foot regiments with water guns" PRINT "filled with ammonia. Chief of State, Fr. James Nero, has given you" PRINT "an honorary position as Tactical War Advisor. You have 30 days to" PRINT "reclaim your land, and send St. Leo's back into its own territory!" PRINT "" PRINT "" PRINT "" PRINT "To win you must have one of the following:" PRINT "WIN-CONDITION 1-Reatain old border of Falmouth Ave." PRINT "WIN-CONDITION 2-Destroy St. Leo's army" PRINT "WIN-CONDTION 3-Have border set farther into Elmwood Park" SLEEP 2 CLS IF days% = 30 THEN GOTO 120 iffy% = INT(RND * 50 + 1): IF iffy% > 9 AND iffy% < 16 THEN PRINT "You are attacked!! A battle has broken out!": SLEEP: GOTO 30 IF men% < 1 THEN PRINT "You have lost all your soldiers in the battle!! You lose!!": END LOCATE 23, 65: PRINT "Linden Ave." LOCATE 22, 65: PRINT "Franklin Street" LOCATE 21, 65: PRINT "North Street" LOCATE 20, 65: PRINT "Grove Street" LOCATE 19, 65: PRINT "Orchard Ave." LOCATE 18, 65: PRINT "Lee Street" LOCATE 17, 65: PRINT "Miller Ave." LOCATE 16, 65: PRINT "Philip Ave." LOCATE 15, 65: PRINT "Falmouth Ave." LOCATE 14, 65: PRINT "Gilbert Ave." LOCATE 13, 65: PRINT "Washington Ave." LOCATE 12, 65: PRINT "Lincoln Ave." LOCATE 11, 65: PRINT "Godwin Ave." LOCATE 10, 65: PRINT "Elmwood Drive" IF border% = 0 THEN border$ = "Falmouth Ave.": LOCATE 15, 64: PRINT "x" IF border% = -1 THEN border$ = "Gilbert Ave.": LOCATE 14, 64: PRINT "x" IF border% = -2 THEN border$ = "Washington Ave.": LOCATE 13, 64: PRINT "x" IF border% = -3 THEN border$ = "Lincoln Ave.": LOCATE 12, 64: PRINT "x" IF border% = -4 THEN border$ = "Godwin Ave.": LOCATE 11, 64: PRINT "x" IF border% = -5 THEN border$ = "Elmwood Drive": LOCATE 10, 64: PRINT "x" IF border% = -6 THEN CLS : PRINT "You are forced to surrender due to their overwelming force! You lose!": END IF border% = 1 THEN border$ = "Philip Ave.": LOCATE 16, 64: PRINT "x" IF border% = 2 THEN border$ = "Miller Ave.": LOCATE 17, 64: PRINT "x" IF border% = 3 THEN border$ = "Lee Street": LOCATE 18, 64: PRINT "x" IF border% = 4 THEN border$ = "Orchard Ave.": LOCATE 19, 64: PRINT "x" IF border% = 5 THEN border$ = "Grove Street": LOCATE 20, 64: PRINT "x" IF border% = 6 THEN border$ = "North Street": LOCATE 21, 64: PRINT "x" IF border% = 7 THEN border$ = "Franklin Ave.": LOCATE 22, 64: PRINT "x" IF border% = 8 THEN border$ = "Linden Ave.": LOCATE 23, 64: PRINT "x" IF border% > 8 THEN PRINT "You cannot press any further than this!! They surrender!! You win!": END LOCATE 1, 1 PRINT "SOLDIERS:"; men% PRINT "BIKES:"; bikes% PRINT "MONEY:"; money% PRINT "DAY:"; days% IF border% = -6 THEN END IF border% = 8 THEN END PRINT "CURRENT BORDER:"; border$ IF men% < 1 THEN END PRINT "(1)Get more bikes (80 each)" PRINT "(2)Get more soldiers" PRINT "(3)Get more money" PRINT "(4)Bike Raid" PRINT "(5)Ground Attack" PRINT "(6)Quit Game" INPUT "Choose (1-6)"; choice% IF choice% < 1 OR choice% > 6 THEN GOTO 2 IF choice% = 6 THEN END IF choice% = 2 GOTO 10 IF choice% = 3 GOTO 12 IF choice% = 1 GOTO 14 IF choice% = 4 GOTO 20 IF choice% = 5 GOTO 30 10 fro% = INT(RND * 20 + 1) PRINT "You were able to enlist"; fro%; "soldiers today": men% = men% + fro%: days% = days% + 1: SLEEP: GOTO 2 12 cash% = INT(RND * 30 + 1) PRINT "You persuaded Fr. Jim to give you"; cash%; "more dollar(s)!!": money% = money% + cash%: days% = days% + 1: SLEEP: GOTO 2 14 IF money% < 80 THEN PRINT "The bike is 80 bucks. You don't have enough.": SLEEP: GOTO 2 PRINT "You buy a cheap, but useful bicycle for 80 bucks.": money% = money% - 80: bikes% = bikes% + 1: days% = days% + 1: SLEEP: GOTO 2 20 IF bikes% < 1 THEN PRINT "You don't have any bikes!": SLEEP: GOTO 2 CLS PRINT "--BIKE RAID--" PRINT "St. Anne's Raid on "; border$ PRINT "This block has"; froman%; "damage points already on it!!" PRINT "20 damage points and it will fall!!" PRINT "" typ% = INT(RND * 6 + 1) IF typ% = 1 THEN PRINT "You plan an early morning attack on houses." IF typ% = 2 THEN PRINT "You do a morning attack on their bases" IF typ% = 3 THEN PRINT "At noon, you attack their tree bases." IF typ% = 4 THEN PRINT "In the afternoon, you attack their supply house." IF typ% = 5 THEN PRINT "You use an evening attack of their bike house" IF typ% = 6 THEN PRINT "At night, you attack their sleeping quarters!" PRINT "You went in with this many bikes:"; bikes% PRINT "" 5 lost% = INT(RND * 5) IF lost% > bikes% THEN GOTO 5 IF lost% > 0 THEN PRINT "During the attack, the enemy fired and we lost"; lost%; "bikes!!": bikes% = bikes% - lost% IF lost% = 0 THEN PRINT "All bikers made it back successfully!!" damage% = INT(RND * 5) damage% = damage% + bikes% PRINT "You scored"; damage%; "points of damage on this block!!" damage% = froman% + damage% IF damage% > 19 THEN PRINT "Good work!! You won this battle and the block boundary has been pushed on up!": border% = border% + 1: damage% = 0 days% = days% + 1 froman% = damage% SLEEP GOTO 2 30 CLS PRINT "--Ground Attack--" PRINT "This is the battle of "; border$ PRINT "Your soldiers:"; men% enmy% = INT(RND * 11 + 1) IF enmy% = 1 THEN enemy% = 273 IF enmy% = 2 THEN enemy% = 100 IF enmy% = 3 THEN enemy% = 201 IF enmy% = 4 THEN enemy% = 94 IF enmy% = 5 THEN enemy% = 220 IF enmy% = 6 THEN enemy% = 315 IF enmy% = 7 THEN enemy% = 120 IF enmy% = 8 THEN enemy% = 206 IF enmy% = 9 THEN enemy% = 145 IF enmy% = 10 THEN enemy% = 122 IF enmy% = 11 THEN enemy% = 111 PRINT "St. Leo's soldiers:"; enemy% 34 dick% = INT(RND * 15 + 1) IF dick% > men% THEN GOTO 34 IF enemy% - men% > 100 THEN PRINT "They have too many soldiers!! You flee in fear!": PRINT "They take"; dick%; " soldiers as you turn away!": PRINT "They also take this block!!": border% = border% - 1: men% = men% - dick%: days% = days% + 1: SLEEP: GOTO 2 theylose% = INT(RND * 50 + 1) enemy% = enemy% - theylose% welose% = INT(RND * 50 + 1) men% = men% - welose% PRINT "We took out"; theylose%; "soldiers!" IF men% < 1 THEN SLEEP: GOTO 100 IF men% = enemy% THEN PRINT "No one can take it...Both sides leave the battle. Perhaps tomorrow we can": PRINT "take this street!!": days% = days% + 1: SLEEP: GOTO 2 IF men% > enemy% THEN PRINT "You won the battle!! You have taken this block!!": border% = border% + 1: days% = days% + 1: SLEEP: GOTO 2 IF enemy% > men% THEN PRINT "They kick your ass in this battle. You lose the battle!!": border% = border% - 1: days% = days% - 1: SLEEP: GOTO 2 100 CLS PRINT "You have to surrender!! You lost all your men!! You lose!": border% = -1: SLEEP: GOTO 120 120 CLS PRINT "The game is over!" IF border% < 0 THEN PRINT "You could not get the border back! Battles end, and at the Peace of Saddle": PRINT "Brook, the boundary is set at Lincoln Ave. in Elmwood Park. You are looked": PRINT "upon as a disgrace in the parish and your once hero and celebrity": PRINT "reputation has become a shameful one!!": END PRINT "Good job! You have won the war!! At the Peace of Saddle Brook, you get more": PRINT "land!! Good work commander!": END