WARS =@=H=n$(x)=f$(x,3̯f$(x,1)):s$(x)=f$(x,f$(x,1)+1̯f$(x,2)):f$(x)=n$(x)+" of "+s$(x) [d$(x)=p$(x,3̯p$(x,2)):b$(x )=p$(x,p$(x,1)̯p$(x,2)) p()=((32 -z$)/2) n(x)=5-(a(x,2)/502):s(x)=10 -(a(x,3)/502):v$(x)=v$(n(x),2̯v$(n(x),1)):q$(x)=v$(s(x),2̯v$(s(x),1)):r(x)=1+(*x) c(y,x)=(((x>8x<20)+(2x<9 )+(3x>19x<28)+(4x>27))y>16)+(((5x>21)+(12 x<8)+(x>7x<22))(y<17y>11 ))+(((6x>24)+(7x>7x<25)+(11 x<8))(y<12 y>5))+(((11 x<8)+(10 x>7x<16)+(8x>15x<25)+(9 x>24))y<6) i(x)=(x=144)+(2x=148)+(3x=149)+(4(x=145x=147x=150x=151))+(5x=146) ]#;ڰ"7";;,ç;;ڰ"6";" ANY KEY TO CONTINUE ": װ".02","39":װ".02","40": (code=x$(y,x):code="32"code="153" :,ç;:"40" z$=code:i=̰"5":z$=z$+z$:i:٨i(code):ڰ"6":ç,ç;z$;"2",ç;z$:,ç;z$(̰"2");,"30";z$(̰"2");"4",ç;:ç:ڰ"7"   battle "75":i$=:i$"""10" "100" i$="""20"  z$=z$+".":prt="60200": ( p();z$: - battle .armies=ç:m="60000":z$=f$(char):#ç;ڰ"6";ç,ç,,ç,ç;p();z$'"Move(5-8) Armies(1) Options(0)":ڰ"7":ٰ"8":a(char,"5")-,a(char,"4")-;;;" ": 2 battle 3harmies=:ç:i=̰"70":u(i,"5")-,u(i,"4")-;°"154"u(i,):i 4a:i=̰"11":a(i,"5")-,a(i,"4")-;°"154"a(i,):i:ç 5"9" dMa(n,"2")=a(n,"2")+("20"a(n,"2")<"230"):n=n+(n<"12")-("11"n="12") fm=r("65"):u(m,) g2fk=u(m,):a(fk,)u(m,)=r("11"): nux=u(m,"4"):uy=u(m,"5"):vx=ux+(uxa(fk,"4")):u(m,"4")=vx:vy=uy+(uya(fk,"5")):u(m,"5")=vy st(uy,ux)=t(uy,ux)-u(m,):t(vy,vx)=t(vy,vx)+u(m,):armieschr=x$(uy,ux):ç;vy-,vx-;°"154";uy-,ux-;٨i(chr);x$(uy,ux)t(uy,ux) xvxa(fk,"4")vya(fk,"5") zarmiesz$=n$(fk)+" is under attack !!":#;;,ç,,,ç;p();z$:;vy-,vx-;;ٰ"8";;" ";°"8";:"300":ç;;ٰ"8";ç;" ":"9" }&ind=:"2005"-("5"fk=char) a(char,)  battle "20"  i$="0" %i$="1""50":"20":"45":"400" i$<"5"i$>"8""400" <a(char,"5")-,a(char,"4")-;ç;ް"1";" " Fnx=a(char,"4")+(i$="8")-(i$="5"):ny=a(char,"5")+(i$="6")-(i$="7") Ax$(ny,nx)=°"146"x$(a(char,"5"),a(char,"4"))°"152""480" fx$(ny,nx)=°"152"full=ç:i=̰"11":full=full+(a(i,"4")=nxa(i,"5")=ny):i:full"480" )x$(ny,nx)=°"144"Ũn(char)="5""480" ѧx$(ny,nx)=°"146"x$(ny,nx)=°"152":x$(a(char,"5"),a(char,"4"))=°"146":ny-1,nx-;ç;°"152";a(char,"5")-ç,a(char,"4")-;ٰ"5";°"146" a(char,"2")=a(char,"2")-"5"-("5"x$(a(char,"5"),a(char,"4"))=°"145")-(((x$(a(char,"5"),a(char,"4"))=°"147")(x$(a(char,"5"),a(char,"4")))=°"151")):a(char,"2")<ça(char,"2")=ç "a(char,"4")=nx:a(char,"5")=ny Na(char,"5")-,a(char,"4")-;;;" ":"400" @x=a(char,"4"):y=a(char,"5"):z$=f$(char):battle=ç:"15" da(char,)z$=f$(char)+" was slain in the Battle of "+s$(c(y,x)):"30":"9":"500": Oz$=n$(char)+" stands "+d$(code-143)+" in the domain of "+s$(c(y,x)) a(char,)z$=z$+". "+("He"charɰ"8")+("She"char="8")+" commands "+a(char,"1")+" warriors, who are "+q$(char)+". At this time they are "+v$(char) "30" !y="13"x="2"t(y,x)"6000" ft(y,x)z$=n$(char)+" is confronted by "+t(y,x)+" 'Riders of the Dark', eager to do battle":"30" ':z$="OPTIONS":"40"::"2";"1: Change character"'"2";"2: View map or Move Army "'"2";"3: Search the "+b$(code-"143") t(y,x)"2";"4: Attack!" Rcode="149"recr=c(y,x):a(recr,"6")recrɰ"12""2";"5: Greet "+f$(recr) !Pm$(y,x)>°"100"a(char,)<"2500""2";"6: Recruit ";m$(y,x);" men" "(a(char,"9")"2";"7: Eat and Rest." $K#;;ڰ"6";,ç;" Any other key to update play " &"20" 0 i$="1" 1i$="2""45":"400":"500" 2i$="3""1000":"500" 3 i$="4"t(y,x)ind=ç:"2000" 4/recri$="5"char=recr:a(recr,"6")= 5ri$="6"a(char,)<"2500"m$(y,x)>°"100"a(char,)=a(char,)+m$(y,x):m$(y,x)= :i$="7"a(char,"9")a(char,"2")=a(char,"2")+"50":a(char,"9")=a(char,"9")-:a(char,"2")>"249"a(char,"2")="249" W"500" z$=f$(char):"15" 7z$=n$(char)+" searches the "+b$(code-"143"):"30" rpres=ç:p("12"):i=̰"11":a(i,)a(i,"4")=xa(i,"5")=yicharpres=pres+:p(pres)=i i:pres"1100" 7end=("5"pres>"5")+(prespresǰ"5"):start= z$=("He"charɰ"8")+("She"char="8")+(" also"start="6")+" finds ":i=startend:z$=z$+f$(p(i))+" with "+a(p(i),)+" men"+(", "iend)+("and "end>i=end-):i:"30" 0pres>"5"start=end=pres:start="6" l"9":"500":"10":z$=f$(char):"15":z$=n$(char)+" continues to search the "+b$(code-"143"):"30" L*x$(y,x)°"148"x$(y,x)°"149""1200" Q)a(c(y,x),)m$(y,x)= V4a(c(y,x),"6")a(char,)<"2500"m$(y,x)m$(y,x)<°"100"m$(y,x)=("100"+r("155")):z$="Presently, "+m$(y,x)+" freemen of "+s$(c(y,x))+" arrive wishing to join the army. As a sign of good faith they offer food and water to the warriors.":"30":a(char,"9")=a(char,"9")+ afdtot<"75000"z$="A herd of wild deer is spotted and warriors are sent to catch them.":"30":fd=:a(char,"9")=a(char,"9")+:"9":ç:"10": bfltot<"70000"z$="A cache of hidden gold is discovered and distributed amongst the warriors.":"30":fl=:"9":ç:"10": cfgtot<"65000"z$="Off to the East can be seen a rabbit warren .... soon the warriors return with some freshly killed rabbits":"30":fg=ç:a(char,"9")=a(char,"9")+:"9":ç:"10": dfmtot<"60000"z$="Nothing of any importance is found, only the corpse of some dead animal.":"30":fm=:"9":ç:"10": efhtot<"55000"z$="During the search a pack of rats was disturbed and they ran off with some of the army's supplies":"30":fh=:a(char,"9")=a(char,"9")-:a(char,"9")<ça(char,"9")=ç:"9":ç:"10": ffrtot<"50000"z$="The remains of an Elfin scouting party is found and they are soon buried in shallow graves.":"30":fr=:"9":ç:"10": gfptot<"45000"z$="The search reveals a flock of wild birds roosting nearby. Before they can fly off they are quickly slaughtered.":"30":fp=:a(char,"9")=a(char,"9")+"2":"9":ç:"10": hfstot<"40000"z$="A hunting party of Orcs is discovered and soon put to flight.":"30":fs=:"9":ç:"10": ifatot<"35000"z$="A wolf pack is encountered and during the ensuing battle the wolves make off with some of the food.":"30":fa=:a(char,"9")=a(char,"9")-:a(char,"9")<ça(char,"9")=ç:"9":ç:"10": jfttot<"30000"z$="The remains of a small campfire still smoulder nearby but there is no sign of those who had lit it.":"30":ft=:"9":ç:"10": kfvtot<"27000"z$="A scouting party returns bearing the carcasses of some wild cattle that they have recently killed.":"30":fv=:a(char,"9")=a(char,"9")+:"9":ç:"10": lfqtot<"25000"z$="Some wild boar are spotted but they run off before they can be caught.":"30":fq=:"9":ç:"10": mfutot<"20000"z$="Much to the delight of all, a hidden hoard of supplies belonging to the 'Riders of the Dark' is discovered nearby.":"30":fu=:a(char,"9")=a(char,"9")+:"9":ç:"10": ?tutot<"15000"z$="An aged manuscript is discovered which tells of a secret passage through the mountains to the Keep of the Dark. Immediately couriers are sent to all existing armies ordering them to search the Dark Mountains for this passage.":"30":tu=:xtu="7":ytu="10"+r("6"):"9":ç:"10": $in=x<"5"y>"11"y<"15" tu((inx=xtuy=ytu)(inx="4"y="13"))a(char,"4")=("4"in)+(xtuin):a(char,"5")=("13"in)+(ytuin):z$=n$(char)+" discovers the secret passage and after many hours in the darkness, "+("he"charɰ"8")+("she"char="8")+" emerges into daylight":"30":in=in r"100":z$=("His"charɰ"8")+("Her"char="8")+" task complete, the search is brought to a halt":"30":"2090" :armies=ç:battle=:fk=char:vx=a(fk,"4"):vy=a(fk,"5"):z$="The Battle of "+s$(c(vy,vx)):"15":z$="The sounds of battle ring through the domain of "+s$(c(vy,vx)):"30"::indind=ç:"2003" Ii=̰"70":u(i,)u(i,"4")=vxu(i,"5")=vym=i:"2003" i Ӯz$="In the Battle of "+s$(c(vy,vx))+", "+n$(fk)+" and "+("his "fkɰ"8")+("her "fk="8")+a(fk,)+" men fought bravely against an army "+u(m,)+" strong"  "30": Քus=((a(fk,)*a(fk,"2")*a(fk,)/"62500")):them=(u(m,)*u(m,"2")/"300"):us=us*(+(x$(vy,vx)=°"149"vyɰ"13"vxɰ"2")) hsup=us-them:theirloss=r("100")+(supsup>):theirloss>u(m,)theirloss=u(m,) Wt(vy,vx)=t(vy,vx)-theirloss:u(m,)=u(m,)-theirloss:tot=tot-theirloss Qourloss=r("100")-(supsup<ç):ourloss>a(fk,)ourloss=a(fk,) 'a(fk,)=a(fk,)-ourloss Za(fk,)=a(fk,)-("50"ourloss>"100")+("50"ourloss<"40"):a(fk,)ça(fk,)=ç 0a(fk,"2")=(a(fk,"2")-"50")a(fk,"2")Ȱ"50" -u(m,"2")=(u(m,"2")-"50")u(m,"2")Ȱ"50" "a(fk,)>"248"a(fk,)="248"  fkchar a(fk,)z$=n$(fk)+" was slain in battle and soon the hooded crows will descend to pick clean the bones.":"30":"2090" z$=n$(fk)+"'s warriors slew "+theirloss+" of the enemy, and lost "+(ourloss ourloss)+("no"ourloss)+(" men"ourloss>)+(" man"ourloss=):"30" *"9":"500"::"10"  \:lives=:char=ç:z$="SELECT CHARACTER":code="154":"16":'':i=̰"11" la(i,"6")lives =lives+(a(i,)):"4";("2"a(i,));("64"+i);":";"7";f$(i) i lives"6500" Z'"4";"L: Key to map symbols"'"4";"M: Pause the Action."'"4";"N: Save/Load.":"10" "20":i$<"a"i$>"n""5020" i$="l""7500":"5000" @i$="m"#;,"13";"PAUSED":ç:"10":"5000" i$="n""7000":"5000" +a(i$-"96","6")char=i$-"96":"500"  "5000" pz$="The Dark Tower has been captured and the 'Riders of the Dark' put to the sword. Victory has gone to the Elves !!"::"30" z "6010" dz$="The last of the great Elfin warriors lies slain amidst the dust of battle. The 'Riders of the Dark' have triumphed !!!"::"30" n "6510" X$:z$="SELECT CHARACTER":"16":'' bI''"4";"R: Save Game Position."'"4";"S: Load Saved Position.":"10" v"20":i$<"r"i$>"s""7030" :a$="Wars "+i$ ]#;"Select ";"save"i$="r";"load"i$="s";" character (A TO Y)"'"9";"or Z to Exit." "20":i$<"a"i$>"z""7060"  i$ ="z" (a$("6")=i$:i$=a$("7"):a$=a$(̰"6") a:"65305",a$("6"):i$="r""10","8";"Saving ";a$:"65306":¾"65305"d$():"65358": K "10","8";"Loading ";a$:"150"::¾"65305"d$():"65358":"5000" L)code="149":z$="KEY TO SYMBOLS":"16" Q>i="144"̰"153":"7";٨i(i);i;"10";ç;b$(i-"143"):i V["7";°"154";"10";"Riders of the Dark"'"7";;°"154";ç;"10";"Elfin army" ["9":"500":"10": @"59999":ç,ç;:"MAP"x$():ç,ç;:"PRINT":ç,ç;:"boggit":ç,ç;:"UDGS":"23606","48":"23607","241":"7":ڰ"7":ç "ă:"65304",ç::m$("22","32"):f$("12","20"):p$("10","20"):v$("10","21"):a("12","9"):u("70","5"):t("22","32") "Fi=̰"12":x,y,f$(i,):f$(i,)=x:f$(i,"2")=y:i "آz$="THE ELFIN WARS":code=149:16:z$="Dark clouds gather in the West":7,0;:40(:z$="and beneath these clouds the":8,0;:40(:z$="'Riders of the Dark' take to":9 ,0;:40(:z$="their fearsome steeds.":10 ,0;:40(:502:z$=f$(1):12 ,0;:40(:z$="senses the danger and summons":13 ,0;:40(:z$="his warriors for battle.....":14,0;:40(:z$="Soon the land will resound to":16,0;:40(:z$="the clash of steel upon steel.":17,0;:40(:z$="Rodric Waits ...":19,0;:40( "Ei=̰"10":x,y,p$(i,):p$(i,1)=x:p$(i,"2")=y:i "ind=ç:fd=ç:fg=fd:fh=fd:fp=fd:fa=fd:fv=fd:fu=fd:fl=fd:fm=fd:fr=fd:fs=fd:ft=fd:fq=fd:tu=fd:xtu=fd:ytu=fd:in=fd:armies=fd:a(,"6")=:n=:battle=fd:char= "i=̰"12":a(i,"4"),a(i,"5"):a(i,"7")=a(i,"4"):a(i,"8")=a(i,"5"):a(i,)="1000"+r("1000"):a(i,"2")="249":a(i,)="249":i #7i=̰"10":x,v$(i,"2"):v$(i,)=x:i # i=̰"70":u(i,)="1000"+r("1000"):t("13","2")=t("13","2")+u(i,):u(i,"2")="200":u(i,)=r("11"):u(i,"4")="2":u(i,"5")="13":i:tot=t("13","2") # "9":ç #' "5000" #("8","17","RodricTalltress" #)"8","17","WilletMarshlans" #*"8","18","CradicCullwatter" #+"8","17","AlleynBorromist" #,"9","18","PelanorAllertonn" #-"8","17","SulricOakennway" #."8","17","TadeusKrottwood" #/ "10","18","MorgannaSaltmire" #0"7","16","UllarBlackways" #1"7","16","AndraWasslings" #2"6","15","RoagHeartland" #3"7","16","GoraxDarkheart" #d"3","10","mountain" #e!"8","20","upon rolling downs" #f"3","7","water" #g"6","13","in woodland" #h"8","14","in a village" #i"10","14","at the tower" #j"6","18","in green meadows" #k"8","18","in a dark forest" #l"12","15","on board ship" #m"8","17","on a flat plain" #n"14","20","4","20","23","21","30","21","25","14","31","11","10","9","17","5","28","3","15","2","2","2","2","13" #o"13","fit & strong" #p"17","in good strength" #q"15","slightly tired" #r"14","tired & weary" #s"17","weak & exhausted" #t"17","ready for battle" #u"16","in good spirits" #v"18","lacking in spirit" #w"11","despondent" #x"13","without hope" #"14","20","4","20","23","21","30","21","25","14","31","11","10","9","17","5","28","3","15","2","2","2","2","13" '|"WARS"8000@:"MAP"x$():"PRINT"60000`,370r:"boggit"620000,768:"UDGS"65306,150 -MAP  vPRINT r` t>k >*K\ >~2͚:#{{z{>>>>>ɐ*K\~Z8͸+#~2##"ʵ͒͵*[":G:2*~ B#":=2h:!ډ:2>*~ҥ{2#~ ¯ß++Ù>[K< > Dnboggit 0lllDH$JD0Hh0XL40```00 0T8|8T|<<00 0`8LTTd8088D |888 >|@xx<@xDD8|< 8D8DD88DD<x 0`0 ||0  0" ~~|vv|vv||trrrtrp|prrp|pp||ff~ff>>xv|x|vppppr||vv|pp|zvv|~r|||8888|z|8lFx88|~888888888p8888888||~~||88888zD8l|8|~8p @ 1IF b Zm8v"K\*K\<4vz8t8ff0l:n<~44Z~ffD(P88|<|~<UU;