TRIBE 4 7V67 Tribe 4  S.Robert Speel 1984 236099\,40( :9000(# d!2,10 ;"THE TRIBE"'' n" You have been elected Chief of a small tribe. You must make thetribe prosper and become wealthywithin 25 years.If you do not please the people, the will dispose of you." x 7500L 7:0:0: R1:5:1;6;"SITUATION REPORT: Start Year ";ye;32 ls2=ls1:ls1=ls ,f=14:c(f)=b(f):b(f)=a(f):f B2,3;"Workers:";15;3,3;15 $+"Hunters","Gatherers","Fishers","Farmers" .^1060$:f=14:b$:0;3;5;b$;13 ;a(f);15:f 8]2,20;5;"Treasury ";3,20;31;3,25;cash LN9 ,3;5;"Retirements "':ye=1c=0:1120` Vc=0:1060$:f=14:b$:a=:a4)*(b-4)-(b>a(f))*(a(f)-b):0;3;5;b;" ";b$(̱b$-(b=1));15:a(f)=a(f)-b:c=1 `f j/c5;10 ,3;"****NONE****" t[5,20;5;"Food stored";6,20;31;6,25;st ~[8,20;5;"Your hoard ";9 ,20;31;9 ,25;rs .tp=0:f=14:tp=tp+a(f):f np=(*tp/9 )+2 415,2;"Recruits needing work: ";np;" "  tp=tp+np #1060$:f=14:b$ `("new ";b$;"? ");a:a=a:a>np1,0:1,0:1,0:1310 (_np=np-a:a(f)=a(f)+a:f+3,13 ;a(f);15;15,25;np:np>0f 2np1300 4ƥ<.1}Lic<4.5,15:.5,10 :16,2;1;"BONUS";:" food prices increase!":ic=ic+1  4300 h a>sta=st r st=st-a |!17,24;st;28  a>casha=cash  cash=cash-a Y4,4;(cash<0);cash;0;10 ;4,23;rs;30  D7500L:7:5::1:1,12 ;"WAGES" ֆ3,2;"Treasury";4,2;" ";cash;10 ;3,20;"Yout hoard";4,20;" ";rs;30 wi=0:<.1}Lwi=1+(*3):.5,15:.5,10 :6,2;"The workers demand that ";7,2;"their wages be increased. " B8,2;"Wages currently cost ";s(3)*tp;28 l9 ,2;"A wage increase would make";10 ,2;"this ";tp*(s(3)+1);28  20,0;0;4;"Do you 1)Increase, 2)decrease or3)not change the wages?";32 :a$=:a$<"1"a$>"3"4350 820,0;5;31;" ";31;" " ka=a$:12 ,4;"Wages ";("Increased"a=1);("decreased"a=2);("unchanged"a=3) /s(3)=s(3)+(a=1)-(a=2) &cash=cash-s(3)*tp 0 4270 :Fa=10 -(cash<-189)*(-189-cash):a<1a=0 D cash=cash-a N?14,2;"You take your tithe.":rs=rs+a:4270 X&di=0:cash<14500 bP"How much of the treasury do you divert to your own funds? ";a:a>casha=cash lDacash=cash-a:rs=rs+a:a>(cash+a)/5ƥ<.5di=2 v 4270 8ls=0:f=13:ls=ls+s(f):f:z(ye)=ls cash>-2004600 16,2;"The treasury owes too much";17,2;"money to continue, and you";18,2;"are thrown out of office!":7300 4us=100d:f=14:a(f)4620  Uus=us-(a(f)/tp*100d*((b(f)>a(f))+(c(f)>b(f))*.75@+(b(f)=a(f))*.2~L))  f:sb=0 us>5575000  a16,2;"The guild fathers say that";17,2;"they will force an election." *W21,0;"Do you try to bribe them? (y/n) ":a$=:a$"y"a$"n"4650* 4121,0;31:a$"y"5000 >"How much? ";a:a>rsa=rs H^18,2;"You bribe them.":rs=rs-a:us=us+(a*10 /tp):<.3sb=1  7500L 2:1::7 %1,2;"LIVING STANDARDS" "food","housing","wages" .a=1:f=13:s(f)>aa=s(f) f ı5030:f=13:b$:3+f*2,5;b$;13 ;:g=1s(f):0;(143+f);:g:14+a;f*2+4,5;14+a:f p\sat=(ls-ls1)*2+ls-ls2+s(3)-(s(1)=0)*502-wi-di+(ls-ye)/2 zFsat=sat+(sat<-1)*(-1-sat)-(sat>3)*(sat-3)-sb us<0us=0 .12 ,2;" Guild support = ";us;"%" 4"rioting","annoyed","restless","satisfied","happy" #6110:f=-1sat:b$:f (14,2;"The people are ";b$ %sat<0us<5027000X ye=ye+1  7500L :(ye+1)/3=((ye+1)/3)8000@ $ 1000 X16,2;"The ";("guild"us<502);("people"sat<0us502);" force you to hold";30;17,2;"an election!";30 brs<50218,2;"You do not have enough";30;19,2;"ingots to fight an election.":7300 lP18,2;"You have to spend 50 ingots ";19,2;"to stand." vrs=rs-502:7500L vty=0:vtn=0 K1:4::7:1;1,5;" ELECTION " 24,2;"PEOPLE FOR YOU AGAINST YOU" =1060$:f=14:b$:a(f)=07190 )f*2+4,2;b$;13 vvt=502-40(*(s(1)=0)-5*(s(2)=0)-25*(s(3)=0)+5*s(1)+5*s(2)+8*s(3)+20*(ls>ls1)+10 *(ls1>ls2)-25*(lsb(f))+10 *(b(f)>c(f)) 'vt=vt+(ls-ye*4/5)*4 vo=0:g=1a(f) /vu=vt+(*10 )-(*10 )-wi*10 Tvo=vo+(24)*500:po=po+rs*2+(ye>24)*500 520,6;1;"TOTAL POINTS.....";po: Lm.5,-40(:21,2;2;7;"Press ";1;"ENTER";0;" to continue" V<17510V ` &7:3:1::2 #1,7;"ELECTORAL POLL" a=(*11 )+10 ή4,2;"Prices:";6,2;"1) Quick poll.....";a;7,2;"2) Large poll.....";a*2;8,2;"3) In-depth poll..";a*3;" ingots" E3,20;"Your Hoard";4,20;" ";rs;30 221,2;"PRESS 1,2,3 or 0 for no poll" !a$=:a$<"0"a$>"3"7660 >21,0;3;31;" ":a$="0"4000 Mf=13:5+f,2;3;4+(a$f)*27:f  rsls1)+10 *(ls1>ls2)-25*(lsb(f))+10 *(b(f)>c(f)) *vo=0:g=1a(f)/(4-a$) &vu=vt+(*10 )-(*10 )-wi 3vo=vo+(