ZXTape! 2 Tyrant of AthensMC Lothlorien Ltd1982EnglishStrategy: Management5.50NoneOriginal)TZXed by Andrew Barker For Chris ThompsonTA e ]g 32599W:"ATHENS UDG""A" ^0:6:0::8;"TYRANT OF ATHENS";5,0;" 1982 - M.C.Lothlorien";10 ,0;"PLEASE REFER TO THE WRITTEN NOTES.";18,0;"Press any key":.4L,-2:.5,-3:1.3&fff,-2:20:.4L,-2:.5,-3:.5,-1:1.7Y,-2:0: l1,50000P,16000>,0,150,75K,10000',60000`,0,0,0 y,p,t,al,ws,ms,ta,f,vi,de,di KE$(502):E$="Ionian Persian CorinthianTheban Spartan " KF$=" army approaching yourborders.":G$=" men.DO YOU WISH TO FIGHT?(y/n)" .LH$(557):H$="IONIANS PERSIANS CORINTHIANSTHEBANS SPARTANS " L 7500L M 7503O 502::6810  x=(*15001:)+5000 e=(*8)+1 e>59100# e>52510 (n=15 )@e=n:E$((e*10 )-9 e*10 );F$;x;G$:8000@ *n +b$ ,b$"y"b$"n"2603+ 2b$="y"3050 3 8100 <0150::8000@:100d:6800 A 5463W 7:"How many men do you wish to use?(500-";(t+al);")" m m<0m=0 m>t+alm<5003055 :4::n=815:.1}L,-4:l=1m/6000p:0:20,1;"ATHENIANS";20,20;H$((11 *e)-10 11 *e);l,n;"":l:l=(m/6000p)+1m/1500:0:l,n;"":l qh=1x/6000p:e:h,31-n;"":h:h=(x/6000p)+1x/1500:e:h,31-n;"":h  5:n=8150: n<15:n Q150:3:1::r=((*(19-e))*m/x):r>45440@ lp=(p-(m/12.5H)):t=(t-(m/12.5H)):al=(al*4/5):85004!:ta05455O 0:10 ,0;"DISASTER! Insufficient funds to pay tribute.Many of your PEOPLE are sold into slavery. Some of your FOOD supplies and WARSHIPS are taken." ;xdi=di+1:p=p*2/3:ws=ws*2/3:f=f/2:al=al/8:t=t*2/3:5454N @s3,4;"YOU ARE VICTORIOUS!":t=(t-(m/33!)):al=al+(x/10 ):p=(p-(m/33!)):8400 B 5463W N200::8401 O 6800 W=502::ag=(*2)+1:ag=11300 ^Oy=y+1:f=((f-p)+((p-t)*(*2.5 )+.5)):f05480h c:"DISASTER! FAMINE AND PLAGUE. POPULATION AND TROOPS REDUCED.":di=di+1:p=(p/((*2)+1)):t=(t/((*2)+1)):f=0:200 h!ws=ws+c:ws<0ws=0 m!ms=ms+d:ms<0ms=0 r*ta=ta+4000:ta<0ta=0 w1p=p*(103g/100d):p<0p=0 | 8000@ "al(p/3)-ttr=(p/3)-t:(p/3)-t<0tr=0 Q=14,0;" ?(0-";tr;")":b:b<0b=0 Sb>trb=tr TBta=ta-(2.5 *b):14,20;b:502:7500L VI15,0;" ?(0-";(ta/450);")":c:c<0c=0 X&c>(ta/450)c=(ta/450) YBta=ta-(c*450):15,20;c:502:7500L [I16,0;" ?(0-";(ta/300,);")":d:d<0d=0 ]&d>(ta/300,)d=(ta/300,) _Dta=ta-(d*300,):16,20;d:502:7500L jJ17,0;" ?(0-";(al/2);")":at:at<0at=0 l$at>(al/2)at=(al/2) oPal=(al-at):p=(p+at):t=(t+at):17,20;at:502:7500L ~Dz=(*2)+1:ta*10 /zms*250im=ms*250 .ms*250>ta*10 /zim=ta*10 /z @18,0;" imp?(0-";im;")":i:i<0i=0  i>imi=im Kta=ta-(i*z/10 ):f=f+i:18,20;i:502:7500L <o=((*2))+.5:fms*250ex=ms*250 ms*250>fex=f @19,0;" exp?(0-";ex;")":q:q<0q=0  q>exq=ex Kta=ta+(o*q/10 ):f=f-q:19,20;q:502:7500L x @10 ,20;" =";(t);11 ,20;" =";(al);12 ,20;" =";ws;13 ,20;" =";f;14,20;" =";ta:100d J :"THE ENEMY DEMANDS TRIBUTE OF 500TALENTS,2000 UNITS OF FOOD AND 3MERCHANT SHIPS.":ta=ta-500:ms=ms-3:f=f-2000:de=de+1:al=(al*4/5) 150:de=de+1:al=(al*75K/100d):ta<0"INSUFFICIENT FUNDS TO PAY TRIBUTE. ENEMY TAKES 2 WARSHIPS.":ws=ws-2  l)6:7:0::8000@ n vi=vi+1:ta=ta+250 "200:0:8300l : !4L3,4;"YOU HAVE BEEN DEFEATED!":de=de+1:ta=ta-750 !5"200:0:8300l : #lw$(30):g=(*201)+502:w$="Persian Ionian Corinthian" :p$=" fleet approaching. " #pw$(((e-5)*10 )-9 (e-5)*10 );p$;g;" ships.Do you wish to fight? (y/n)":8000@ $"v$ $,v$"y"v$"n"9250"$ $1v$="y"9800H& $2 8100 $J 8000@ $O150::6800 $T &H6:"How many ships do you wish to use?(20-";ws;")" &Mfs &Rfs<20fs>ws9805M& &f5:5::n=815:.2~L,0:l=1fs/15:0:20,0;"ATHENIAN FLEET";20,20;"ENEMY FLEET";l,n;"" &iYl:h=1g/15:e-5:h,31-n;"":h:5:n=8150 &kn<15:n &zR200:7:1::r=((*(24-e))*fs/g):r<59870& &u3,4;"YOU ARE VICTORIOUS!":ws=ws+((g/10 )-(fs/20)):al=(al*11 /10 ):8400 &200::6800 & &;WS=WS-(FS/4):al=(al*4/5):85004! &ta09890& &:10 ,0;"DISASTER! Insufficient funds to pay tribute. Some of your PEOPLEare sold into slavery.Many of your WARSHIPS & MERCHANT SHIPS are taken." &xdi=di+1:p=p*2/3:t=t*2/3:ws=ws*2/3:ms=ms/2:200::8000@ &150::6800 & 'X18,2;"Game over. Would you like to try again?(y/n)":C$:C$="y"1 ' ypPt>K'f`52Ionian Persian CorinthianTheban Spartan F army approaching yourborders.G men.DO YOU WISH TO FIGHT?(y/n):7IONIANS PERSIANS CORINTHIANSTHEBANS SPARTANS ATHENS UDGX]"J500HHH8(@`0 8'!!!$$$II**  8BB<DHpHDB@@@@@~$$ffBbRJFB