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 EC1$="TROUSTIA" EC2$="JANETRIA" EC3$="DEANDEA" EL=0 ES=0 EB=0 ER=100 ER2=100 ER3=100 PRINT" WAR" PRINT"" PRINT"PRESS ENTER TO START" INPUT"";A CLS PRINT"NAME YOUR COUNTRY:" INPUT">";COUNTRY$ WAIT 1*60 IF COUNTRY$="" THEN COUNTRY$="CLOUDUA" PRINT"" PRINT"YOUR ENEMY COUNTRIES ARE:" PRINT""+EC1$+"" PRINT""+EC2$+"" PRINT""+EC3$+"" PRINT"" PRINT"PRESS ENTER TO START" INPUT">";A 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"" PRINT"" PRINT"ACTIONS:" PRINT"1)ATTACK" PRINT"2)RECRUIT" PRINT"3)BUILD" PRINT"4)COUNTRY" PRINT"5)LAND" PRINT"6)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 CONTRY IF A=5 THEN GOTO LAND IF A=6 THEN GOTO ENDTURN WAIT VBL LOOP ATTACK: SPRITE OFF CLS PRINT"WHO TO ATTACK?" PRINT"" PRINT"1)"+EC1$+"" PRINT"2)"+EC2$+"" PRINT"3)"+EC3$+"" PRINT"4)LEAVE" INPUT">";A IF A=1 THEN ER=ER-INT(RND*100) GOTO BATTLE END IF IF A=2 THEN ER2=ER2-INT(RND*100) GOTO BATTLE END IF IF A=3 THEN ER3=ER3-INT(RND*100) GOTO BATTLE END IF IF A=4 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" PRINT"" IF ER<=30 THEN PRINT"AT WAR WITH:"+EC1$+"" END IF IF ER2<=40 THEN PRINT"AT WAR WITH:"+EC2$+"" END IF IF ER3<=50 THEN PRINT"AT WAR WITH:"+EC3$+"" END IF 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: 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-EB SWORD=SWORD-INT(RND*EB) SWORD=SWORD-INT(RND*ES) END IF IF ES>0 THEN ES=ES-INT(RND*LANCE) ES=ES-BOW ES=ES-INT(RND*SWORD) ES=ES-INT(RND*BOW) END IF IF LANCE>0 THEN LANCE=LANCE-INT(RND*ES) LANCE=LANCE-ES LANCE=LANCE-INT(RND*EL) LANCE=LANCE-INT(RND*EB) END IF IF EL>0 THEN EL=EL-INT(RND*SWORD) EL=ES-SWORD EL=EL-INT(RND*LANCE) EL=EL-INT(RND*BOW) END IF IF BOW>0 THEN BOW=BOW-INT(RND*EL) BOW=BOW-EL BOW=BOW-INT(RND*ES) BOW=BOW-INT(RND*EB) END IF IF EB>0 THEN EB=EB-INT(RND*BOW) EB=EB-LANCE 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 ES=ES+INT(RND*100)+TURN EB=EB+INT(RND*100)+TURN EL=EL+INT(RND*100)+TURN 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) ER=ER+INT(RND*15) ER2=ER2+INT(RND*15) ER3=ER3+INT(RND*15) IF ER<=50 THEN GOTO BATTLE IF ER2<=50 THEN GOTO BATTLE IF ER3<=70 THEN GOTO BATTLE 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 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 CONTRY: CLS SPRITE OFF PRINT"ENEMIES:" IF ER>=100 THEN ER=100 IF ER2>=100 THEN ER2=100 IF ER3>=100 THEN ER3=100 PRINT"1)"+EC1$+"" PRINT"2)"+EC2$+"" PRINT"2)"+EC3$+"" PRINT"" PRINT"REPUTATIONS:" PRINT"1)"+STR$(ER)+"%" PRINT"2)"+STR$(ER2)+"%" PRINT"3)"+STR$(ER3)+"%" PRINT"" PRINT"PRESS ENTER" INPUT">";A GOTO MENU LAND: CLS SPRITE OFF BG COPY 0,0,32,32 TO 0,0 PRINT"PRESS ENTER" INPUT">";A GOTO MENU #1:MAIN PALETTES 06190C24003F0824003C0C00003F3F06 003C381500300C07003F1D30003F2A15 #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 0000000000183C7E3C7E7E7E3C183C7E 00000076DD7F76000000000822800800 0000000000000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00180EFFFF0E1800000000F8F8000000 001870FFFF7018000000001F1F000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 007E7E1818181800FF8181E7E7E7E7FF 0042667E7E5A4200FFFFFFFFFFFFFFFF 004242425A7E2400FFFFFFFFFFFFFFFF 0000444444281000FFFFFFFFFFFFFFFF #3:MAIN BG 000014101A001A001A001A001A001A00 1A001A001A001A001A001A001A001A00 1A001A001A001A001A001A001A001A00 1A001A001A001A001A001A001A001A00 1A001A001A001A001A001A001A001A00 1A001A001A001A001A001A001A001A00 1A001A001A001A001A001A001A002800 1A001A001A001A001A001A001A001A00 28002800280028002800280028002800 28001A001A001A001A0028001A001A00 1A001A0028001A002800280028002800 28002800280028001A00280028001A00 1A001A001A002B001A0028001A001A00 28002800280028002800280028002800 2800280028001A0028001A001A001A00 1A001A001A001A002800280028002800 2A052A052A052A052A05280028001A00 1A001A0028001A001A001A001A002800 28002A052A052A052A052A052A052A05 2A052800280028001A001A001A001A00 1A001A001A0028002A052A052A052A05 2A052A052A052A052900290028002800 1A001A001A001A001A001A001A002800 28002A052A052A052A052A052A052A05 290029002800280028001A001A001A00 28001A001A002800280028002A052A05 2A052A052A052A052900290029002800 28001A001A001A001A001A001A002800 28002800280029002900290029002A05 2A052900290028002800280028001A00 1A001A001A0028001A00280028002800 28002800280029002900290029002900 2900280028002800280028001A001A00 1A001A001A001A001A001A0028002800 28002800280028002900290029002900 2900280028001A001A001A001A001A00 28001A001A001A002800280028002800 280028002800280028001A001A001A00 1A0028001A001A001A001A001A001A00 1A001A001A001A002800280028002800 1A001A00