RANDOMIZE TIMER TITLE: LANCE=0 SWORD=0 BOW=0 COUNTRY$="CLOUD" KEYBOARD ON GOLD=100 REP=100 ADDT=10 MILL=0 SHOP=0 ATTR(3) TURN=0 ARMY=0 EARMY=0 EL=0 ES=0 EB=0 PRINT" WAR" PRINT"" PRINT"PRESS ENTER TO START" INPUT"";A CLS PRINT"NAME YOUR COUNTRY:" INPUT">";COUNTRY$ MENU: DO CLS ATTR(3) PRINT"COUNTRY:"+COUNTRY$+"" PRINT"SOLDIERS:" SPRITE 1,1,15,3 SPRITE 2,1,25,19 SPRITE 3,2,33,35 SPRITE 4,1,40,5 SPRITE 5,1,48,21 SPRITE.A 1,(1) SPRITE.A 2,(1) SPRITE.A 3,(1) SPRITE.A 4,(4) SPRITE.A 5,(1) PRINT" "+STR$(SWORD)+"" PRINT" "+STR$(BOW)+"" PRINT" "+STR$(LANCE)+"" PRINT" "+STR$(GOLD)+"" PRINT" "+STR$(REP)+"%" PRINT"TURN:"+STR$(TURN)+"" PRINT"" PRINT"" PRINT"ACTIONS:" PRINT"1)ATTACK" PRINT"2)RECRUIT" PRINT"3)BUILD" PRINT"4)END TURN" IF REP<=20 THEN GOTO REVOLT IF REP>=100 THEN REP=100 INPUT">";A IF A=1 THEN GOTO ATTACK IF A=2 THEN GOTO REC IF A=3 THEN GOTO BUILD IF A=4 THEN GOTO ENDTURN WAIT VBL LOOP ATTACK: SPRITE OFF CLS PRINT"DO YOU WANT TO ATTACK (Y/N)" INPUT">";A$ IF A$="Y" OR A$="YES" THEN GOTO BATTLE IF A$="N" OR A$="NO" THEN GOTO MENU GOTO MENU REC: BY: DO CLS SPRITE OFF PRINT"GOLD:"+STR$(GOLD)+"" PRINT"" PRINT"BOW:"+STR$(BOW)+"" PRINT"SWORD:"+STR$(SWORD)+"" PRINT"LANCE:"+STR$(LANCE)+"" PRINT"" PRINT"RECRUIT:" PRINT"1)BOW - 10G" PRINT"2)SWORD - 10G" PRINT"3)LANCE - 10G" PRINT"" PRINT"4)BACK" INPUT">";B IF B=1 AND GOLD>=10 THEN BOW=BOW+1 GOLD=GOLD-10 END IF IF B=2 AND GOLD>=10 THEN SWORD=SWORD+1 GOLD=GOLD-10 END IF IF B=3 AND GOLD>=10 THEN LANCE=LANCE+1 GOLD=GOLD-10 END IF IF B=4 THEN GOTO MENU WAIT VBL LOOP BUILD: DO CLS SPRITE OFF PRINT"GOLD:"+STR$(GOLD)+"" PRINT"G PER TURN:"+STR$(ADDT)+"" PRINT"MILL:"+STR$(MILL)+"" PRINT"SHOP:"+STR$(SHOP)+"" PRINT"" PRINT"1)MILL - +5G - 15G" PRINT"2)SHOP - +20G - 30G" PRINT"3)BACK" INPUT ">";A IF A=1 AND GOLD>=15 THEN MILL=MILL+1 ADDT=ADDT+5 GOLD=GOLD-15 END IF IF A=2 AND GOLD>=30 THEN SHOP=SHOP+1 ADDT=ADDT+20 GOLD=GOLD-30 END IF IF A=3 THEN GOTO MENU WAIT VBL LOOP BATTLE: CLS SPRITE OFF REPEATS: ARMY=ARMY+SWORD+BOW+LANCE EARMY=EARMY+ES+EL+EB IF EB<=0 THEN EB=0 IF EL<=0 THEN EL=0 IF ES<=0 THEN ES=0 IF SWORD<=0 THEN SWORD=0 IF LANCE<=0 THEN LANCE=0 IF BOW<=0 THEN BOW=0 CLS ATTR(5) PRINT"ENEMY SWORDS:"+STR$(ES)+"" PRINT"ENEMY LANCE:"+STR$(EL)+"" PRINT"ENEMY BOW:"+STR$(EB)+"" PRINT"" PRINT"" ATTR(3) PRINT"SWORDS:"+STR$(SWORD)+"" PRINT"LANCE:"+STR$(LANCE)+"" PRINT"BOW:"+STR$(BOW)+"" PRINT"" PRINT"1)END BATTLE" PRINT"PRESS ENTER TO CONTINUE" INPUT">";A IF A=1 THEN GOTO WINYN IF SWORD>0 THEN SWORD=SWORD-INT(RND*EL) SWORD=SWORD-INT(RND*EB) SWORD=SWORD-INT(RND*ES) END IF IF ES>0 THEN ES=ES-INT(RND*LANCE) ES=ES-INT(RND*SWORD) ES=ES-INT(RND*BOW) END IF IF LANCE>0 THEN LANCE=LANCE-INT(RND*ES) LANCE=LANCE-INT(RND*EL) LANCE=LANCE-INT(RND*EB) END IF IF EL>0 THEN EL=EL-INT(RND*SWORD) EL=EL-INT(RND*LANCE) EL=EL-INT(RND*BOW) END IF IF BOW>0 THEN BOW=BOW-INT(RND*EL) BOW=BOW-INT(RND*ES) BOW=BOW-INT(RND*EB) END IF IF EB>0 THEN EB=EB-INT(RND*BOW) EB=EB-INT(RND*SWORD) EB=EB-INT(RND*LANCE) END IF GOTO REPEATS WINYN: CLS SPRITE OFF IF EB<=BOW AND ES<=SWORD AND EL<=LANCE THEN GOTO WIN ELSE GOTO LOSE WIN: CLS SPRITE OFF PRINT"YOU WIN THE BATTLE!" PRINT"+30G" PRINT"+20 REPUTATION" PRINT"" GOLD=GOLD+30 REP=REP+20 IF REP>100 THEN REP=100 PRINT"PRESS ENTER" INPUT">";A GOTO MENU LOSE: CLS SPRITE OFF PRINT"YOU LOSE THE BATTLE" PRINT"-30G" GOLD=GOLD-30 IF SHOP>0 THEN PRINT"-1 SHOP" SHOP=SHOP-1 END IF ES=ES-5-TURN EB=EB-5-TURN EL=EL-5-TURN REP=REP-INT(RND*30) IF MILL>0 THEN PRINT"-1 MILL" MILL=MILL-1 END IF PRINT"" PRINT"PRESS ENTER" INPUT">";A GOTO MENU ENDTURN: CLS SPRITE OFF EL=EL+INT(RND*3) ES=ES+INT(RND*3) EB=EB+INT(RND*3) B=INT(RND*20) IF B=5 THEN GOTO OUTBREAK IF B=10 THEN GOTO FAMINE IF LANCE>EL THEN EL=EL+TURN END IF IF SWORD>ES THEN ES=ES+TURN END IF IF BOW>EB THEN EB=EB+TURN END IF A=INT(RND*2) TURN=TURN+1 GOLD=GOLD+ADDT REP=REP+INT(RND*10) IF REP>100 THEN REP=100 IF TURN>5 THEN IF A=0 THEN EL=EL+INT(RND*2) IF A=1 AND ES>SWORD AND EL>LANCE AND EB>BOW THEN GOTO ENCOUNTER END IF PRINT" ENEMYS MOVE" WAIT 2*60 GOTO MENU ENCOUNTER: CLS SPRITE OFF ATTR(5) PRINT"THE ENEMY IS ATTACKING YOU" ATTR(1) WAIT 2*60 GOTO BATTLE REVOLT: CLS SPRITE OFF ATTR(5) PRINT" GAME OVER" ATTR(3) PRINT"YOU WERE KILLED DUE TO REVOLT" END OUTBREAK: CLS SPRITE OFF PRINT"THERES AN OUTBREAK!!" PRINT"" PRINT"-30 REPUTATION" REP=REP-30 WAIT 2*60 GOTO MENU FAMINE: CLS SPRITE OFF PRINT"THERES A FAMINE IN "+COUNTRY$+"" PRINT"" PRINT"WHAT DO YOU DO:" PRINT"1)BUY FROM ENEMY" PRINT"2)NOTHING" INPUT ">";A IF A=1 THEN GOTO OOPS PRINT"-10 REPUTATION" REP=REP-10 WAIT 1*60 GOTO MENU OOPS: CLS SPRITE OFF PRINT"THE TOWN IS HAPPY" PRINT"+20 REPUTATION" REP=REP+20 WAIT 2*60 GOTO MENU #1:MAIN PALETTES 0624082C003F0024003C0C00003F3F06 003C381500303006003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00001C3838440000183C200038383828 0000381C1C220000183C04001C1C1C14 00000010DFDF100000000020E0E02000 00000008FBFB08000000000407070400 003C66666666663C0000181818181800 00000000000000000000000000000000 00002020202000000030080404083000 00000000000000001008047C04081000 00000000DF00000000000020E0200000 00000000000000001008047C04081000 00000E070E000000000000F800000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 F0484442424448F0F0080402020408F0 0F1222424222120F0F1020404020100F 00183C7E181818180000000000000000 3C7EFF7E7E7E7E7E0000007E7E666666 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00180EFFFF0E1800000000F8F8000000 001870FFFF7018000000001F1F000000