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)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 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-INT(RND*EB)-3 SWORD=SWORD-INT(RND*ES) END IF IF ES>0 THEN ES=ES-INT(RND*LANCE) ES=ES-INT(RND*SWORD)-3 ES=ES-INT(RND*BOW) END IF IF LANCE>0 THEN LANCE=LANCE-INT(RND*ES)-3 LANCE=LANCE-INT(RND*EL) LANCE=LANCE-INT(RND*EB) END IF IF EL>0 THEN EL=EL-INT(RND*SWORD)-3 EL=EL-INT(RND*LANCE) EL=EL-INT(RND*BOW) END IF IF BOW>0 THEN BOW=BOW-INT(RND*EL+3) 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+3) 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 #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