arbatax U UU ARBATAX ]b(11 ):a(11 ):c(11 ):d(11 ):y(11 ):o=1:y(o)=1400x 2"Sir",4,"Baron",6,"Graf",5,"Marquis",9 ,"Herzog",7,"Grossherzog",12 ,"Prinz",6,"*HRH Koenig",12 <"Lady",5,"Baronesse",10 ,"Graefin",8,"Marquise",10 ,"Herzogin",9 ,"Grossherzogin",13 ,"Prinzesin",10 ,"*HRH Koenigin",14 F="Arbatax","Catania","Rocella","Portici","Mezzano","Scafati" dr:9 ,0;" *********************** ** ARBATAX ** ***********************" e'("a"+1)1709900& f7000X:62008 #::i=116:a$,aaa:i ?8,0;" Wieviele Mitspieler [ 1 - 6 ]":62008 a$<"1"a$>"6":180 f=a$:f1=f+1:g(f):h(f):i(f):j(f):o(f):k(f):l(f1):r(f):t(6):u(f1):n(f):p(f1):q(f):m(f):s(f):v(f):n$(f1,44,):t$(f1,8):a=1f t$(a)  28,0;"Wer ist der Regent von ";t$(a) "("Bis 32 Buchstaben"'n$(a):8000@ ,-k=32 1-1:n$(a,k)=" "k -+k=01,-10 ::280 .%z$=n$(a,k)+" von "+t$(a):n$(a)=z$ 6 @"Ist ";n$(a):8000@ A#"ein Mann oder eine Frau ? (M/F)" Jv(a)=0 T 62008 ha$"m"a$"f"330J ra$="f"v(a)=8 |g(a)=25 h(a)=10 i(a)=5 j(a)=2 o(a)=(*35#+1420) k(a)=1000 l(a)=10000' r(a)=5000 t(a)=1 u(a)=1 n(a)=4 p(a)=25 q(a)=5 m(a)=25 s(a)=2000 a t$(f1,15):a=1f & 0 b=v(a)+t(a) : c=1b Dt$(a),k:t$(a,15)=k Nc Xa b lG8,0;"Wuenschen Sie eine Einweisung ? (J/N)" v 62008 {Na$=7"Allgemeines Sterbealter:";k:n=1f:o(n)=1400x+k:n a$="n"670 a$"j"610b  6230V :2,0; K"1 - Anfaenger"''"2 - Fortgeschrittener"''"3 - Profi"''"4 - Grossmeister" %e=0:f1=f+1:62008 a$<"1"a$>"4"700 u(f1)=a$+5  e=e+1 t(e)=-1e=e+1 t(1)<1t(2)<1t(3)<1t(4)<1t(5)<1t(6)<16430  .e>fe=0:y(o)=y(o)+1:750 y(o)>o(e)750  y(o)=o(e)990 * 1360P 4 2070 > 2800 H 2430~ R 3540 \ 4890 f 5350 p 750 zb=e {&:t$(e,̯t$(e,15))'n$(e)'""'"Adelige";17;n(e)''"Klerus";17;q(e)''"Haendler";17;m(e)''"Soldaten";17;p(e)''"Sklaven";17;s(e)''"Land";17;l(e);" Hektar"''2*(k(e)<0);"Staatskasse";17;k(e);" Gulden" |$"" }/'"Druecke die Spielernummer zum Vergleich." ~-7000X:62008:a$=13 e=b: a$<"1"a$>"6"893} e=a$:e>f21,0;"Es spielen nur ";f;" Spieler mit.":k=1100d:k:21,0;" ":894~  891{  !:"Sehr schlechte Nachrichten." 7't$(e,̯t$(e,15))'n$(e)'"ist gerade gestorben." t(e)=-1 y=(*8) $Ny(o)>1450''"Nach langer Regentschaft und in hohem Alter":1120` .Ey<4''"An einer Lungenentzuendung nach einem kalten Winter." 8Cy=5''"An Typhus nach Genuss von schmutzigen Wasser" B/y=4''"Waehrend einer Trockenepedemie" LEy=6''"Nach einem Raubueberfall waehrend einer Reise" V#y>6"an Fleischvergiftung" W$''"Mit ";y(o)-1400x;" Jahren" ` j7000X:62008 tf=16430 ~ 3540  890z  750 iz=iz  cz=cz   sz=(sz)   k(e)=k(e)   z=*(a+1)*s(e)/100d zp=z zp=19000(# 6:zp;" Sklaven in diesem Jahr"'" geboren"  s(e)=s(e)+zp  #z=(*(a+1)*s(e)/100d) (&zp=z:s(e)=1gz2y=2 ry<.8Ly=.8L |l=l*y l=(l*10 ) l=l/10  z=6-w ;g=((z*3+(*5+*6))/5*y*20)  C:t$(e,̯t$(e,15))'n$(e)'"" M'"Ratten vernichten ";r;"% der"'"Getreidereserven."''w$''"(";hz;" Zentner)" 7000X:62008 k(e)<327661240 C:t$(e,̯t$(e,15))'n$(e)'"" &''"Getreide Reserve:";25;r(e) "[ Zentner ]" "'"Getreide Bedarf:";25;dz "[ Zentner ]" $'"Preis von Getreide:";25;g "[ 1000 Zentner ]"  '"Preis von Land:";25;l "[ Hektar ]"  '"Staatskasse:";25;k(e) "[ Gulden ]"  &j=((j(e)*300,-500)*t(e)) &(20*j(e)+1820) 0j$="Gerecht" : 1910v Dj$="Gemaessigt" N 1910v X j$="Streng" b 1910v lj$="Zuegellos" vy=150-g(e)-h(e)-i(e) y<1y=1 Ncz=(n(e)*180+q(e)*75K+m(e)*20)*(y/100d)+u(e)*100d Usz=(n(e)*502+m(e)*25+u(e)*10 )*(y/100d)*(5-j(e))/2 Diz=n(e)*250+u(e)*20+(10 *j(e)*n(e))*(y/100d) cz=cz*g(e)/100d cz<327601200 sz=sz*h(e)/100d sz<327601220 iz=iz*i(e)/100d iz<327601180 Q:"Staatseinnahmen: "''j+cz+sz+iz;" Gulden"''"" 9'"Zollgebuehren:";17;g(e);"%";22;cz;" G." %'"" 8'"Umsatzsteuer:";17;h(e);"%";22;sz;" G." %'"" 8'"Eink.-steuer:";17;i(e);"%";22;iz;" G." %'""  +'"Justiz:";10 ;j$;22;j;" G."  %'""     *6t$(e,̯t$(e,15));n$(e):k=1100d:k 4 1720 >\#0;0,0;"1:Getr.kauf 2:Getr.verk. 3:Land-kauf. 4:Landverk. ENTER=Weiter" \ 62008 fa$=13 pa$<"1"a$>"4"2120H ziz=a$ :(iz*60<+2120H) i8,0;"Wieviel Getreide moechtest Du kaufen ?" iz:8000@ +k(e)=k(e)-(iz*g/1000):r(e)=r(e)+iz :1760  2110> j8,0;"Wieviel Getreide moechtest Du verkaufen ?" 612 ,0;" " iz:8000@ Miz>r(e)12 ,0;"... soviel hast Du nicht":502:2240 k(e)=k(e)+(iz*g/1000) r(e)=r(e)-iz  2210 I8,0;"Wieviel Hektar moechtest Du kaufen ?" iz:8000@ l(e)=l(e)+iz k(e)=k(e)-(iz*l) $ 2210 8J8,0;"Wieviel Hektar moechtest Du verkaufen ?" =V12 ,0;" " Biz:8000@ Lwiz>(l(e)-5000)12 ,0;"... soviel kannst Du nicht verkaufen !":502:23608 Vl(e)=l(e)-iz `k(e)=k(e)+(iz*l) t 2210 ~ 1820 ]#0;0,0;"1:Zoll 2:Umsatzsteuer 3:Eink.- steuer 4:Justiz ENTER=Weiter" 62008 a$=13 2760 a$<"1"a$>"4"2500 i=a$ (i*502+2480 ) 0:8,0;"Zollgebuehren (0%-100%) ?" i:8000@ i>100di=100d i<0i=0 g(e)=i 2430~ .:8,0;"Umsatzsteuer (0%-50%) ?" i:8000@ (i>502i=502 2i<0i=0 7h(e)=i < 2430~ F2:8,0;"Einkommenssteuer (0%-25%) ?" Pi:8000@ Zi(e)=i di>25i=25 ii<0i=0 ki(e)=i n 2430~ x^:7,0;"JUSTIZ:"''"1 - Gerecht"''"2 - Gemaessigt"''"3 - Streng"''"4 - Zuegellos" '62008:a$<"1"a$>"4"2690 i=a$ j(e)=i 2430~ k(e)=(k(e)+cz+sz+iz+j) &k(e)<0k(e)=(k(e)*1.5@) 0k(e)<-8000@-(2000*t(e))5830  :"Vorrat:";r(e);" Zentner" '"Bedarf:";dz;" Zentner" ?''"Wieviel Getreide gibst Du fuer den Gebrauch frei ?" gz:8000@ 3gz>r(e)''"... soviel hast Du nicht":2823 `gz<(r(e)/5)''"Du must mindestens 20% Deiner Getreidereserven freigeben.":2823  2830 75K:2800 kgz>(r(e)-(r(e)/5))''"Du must mindestens 20% Deiner Getreidereserven zurueckhalten.":2832  2840  2823 r(e)=(r(e)-gz) " Jz=gz/dz-1 Tz>0z=z/2 ^%z>.25~z=z/10 +.25~ hzp=(502-g(e)-h(e)-i(e)) rzp<0zp=(zp*j(e)) |zp=(zp/10 ) #zp>0zp=(zp+3-j(e)) z=z+(zp/10 ) z>.5z=.5 gz<(dz-1)3270 a=7 1260 a=3 1310 1(g(e)+h(e))<35#m(e)=(m(e)+(*5)) Wi(e)<*21n(e)=(n(e)+(*3)-1):q(e)=(q(e)+(*4)-1) !gz<(dz+dz*.3)3210 zp=(s(e)/1000) z=(gz-dz)/dz*10 !z=z*zp*(*25+*41)) z>32000}z=32000} zp=z &z=(*(zp+5)) 0z=19005-# 1"'z;" Sklaven kamen in die Stadt" : s(e)=s(e)+z Du(e)=u(e)+.5 Nzp=(z/5) Xz=(*(zp+1)) bz>502z=502 l m(e)=m(e)+z vn(e)=n(e)+1 q(e)=q(e)+2 j(e)<33260 1jz=s(e)/100d*(j(e)-2)*(j(e)-2) jz=(*(jz+1)) s(e)=s(e)-jz jz=19007/# 8'jz;" Sklaven flohen vor hartem"'" Gericht" 3370* #x=((dz-gz)/dz*100d-9 ) xp=x .x>65Ax=65A:m(e)=(m(e)/2) "x<0xp=0:x=0 a=3 1260 a=xp+8 1310 "zp>1000u(e)=u(e)/2 3210 *7000X:62008: /Hpf=1:a(e)>0pf=m(e)/a(e)/4:pf>1pf=1 3z=a(e)*75K*pf 4 k(e)=k(e)+z >8z>0'"Dein Markt brachte ";z'"Gulden Pacht ein" H0s(e)<32766sz=s(e):1220:s(e)=sz R>z=(d(e)*(557+(*251))):d(e)=03430f S*zn=s(e)/d(e):zn100dzn=100d Tzn=zn/100d:z=(z*zn) \@z>0k(e)=k(e)+z:''"Deine Wollfabrik hatte":3422^ ] 3430f ^&z;" Gulden Gewinn zu "'"verzeichnen" fz=p(e)*3 p6''"Du hast Deiner Armee ";z'"Gulden Sold ausbezahlt" z k(e)=k(e)-z $(l(e)/1000)>p(e)6000p #(l(e)/500)(p(e)*2.4)6000p a 7000X:62008  23693\,0:0: "21,28;7;y(o) lp=(l(e)/1000) lp>44,lp=44, i=0lp/2 ,21-i,0;1;5;"LL" i Elp/2ɺ(lp/2)21-i,0;1;5;"L" 0,0;7;lp tz=s(e)-d(e)*100d ~z<1z=1 0z=z*5/l(e)*10 +1:z=z*5 z>42*z=42* z=z i=0z/2 ,21-i,4;1;4;"NN" i Cz/2ɺ(z/2)21-i,4;1;4;"N" 90,3;7;((z/42*)*100d);"%" .(p(e)-5)<(l(e)/1000)3860 i=021 ,21-i,8;1;2;"KK" %i:0,7;7;"100%"  3940d .(p(e)/2)<(l(e)/1000)3920P i=010 (,21-i,8;1;2;"KK" 2$i:0,8;7;"50%" F 3940d P*21,8;1;2;"KK" Z 0,8;7;"5%" dz=c(e)+1 nz>7z=7 x"6:(4040-10 *z) E7,22;"";6,22;"";5,23;"" E7,30;"";6,30;"";5,30;"" /3,24;"";2,24;"" /3,28;"";2,28;"" /4,26;"";3,26;"" ]7,28;"";6,28;"";5,28;"";4,28;"" ]7,24;"";6,24;"";5,24;"";4,24;"" F7,26;"";6,26;"";5,26;"" 1z=a(e):zz=z:xy=0:z=04050 z>88Xz=88X +i=0(z/4)-.25~.25~ ?21-i,xy+12 ;1;6;"M":xy=xy+1 xy=4xy=0 i !0,12 ;7;a(e) 1z=d(e):zz=z:xy=0:z=04070 z>88Xz=88X +i=0(z/4)-.25~.25~ ?21-i,xy+17;1;6;"W":xy=xy+1 xy=4xy=0 i !0,17;7;d(e) z=b(e)+1 z>8z=8 !1:(4135'-5*z) i13 ,23;"";13 ,28;"";14,23;"";14,30;"" 113 ,26;"";12 ,26;""  y17,30;"";16,30;"";15,30;"";14,29;"";14,29;"" y17,22;"";16,22;"";15,22;"";14,22;"";14,24;"" `17,29;"";16,28;"";15,28;"";14,28;"" `17,24;"";16,24;"";15,24;"";14,24;"" I16,26;"";15,26;"";14,26;"" " 0 ;7000X:62008:23693\,568:7::  8;"Staatsanschaffungen"''"" L!'"1 - Markt 1000 Gulden." V!'"2 - Wollfabrik 2000 Gulden." `!'"3 - Palast 3000 Gulden." j!'"4 - Kirche 5000 Gulden." ta'"5 - 20 Soldaten fuer 20 Sklaven 500 Gulden." ~%'"" F19,0;"HABEN";20-k(e);k(e);21;" Gulden." nk(e)<019,0;2;"SOLL";20-k(e);2;k(e);2;21;" Gulden." J#0;0,0;"6 - Zum Vergleich ENTER=Weiter"  62008 a$=13 a$="6"890z:4890 a$<"1"a$>"5"5050 i=a$ (i*40(+5070) a(e)=a(e)+1 m(e)=m(e)+5 k(e)=k(e)-1000  u(e)=u(e)+.1}L  4890 d(e)=d(e)+1 (k(e)=k(e)-2000 2u(e)=u(e)+.25~ < 4890 Fb(e)=b(e)+1 Kn(e)=n(e)+(*3) Pk(e)=k(e)-3000 Zu(e)=u(e)+.5 d 4890 nc(e)=c(e)+1 sq(e)=q(e)+(*7) xk(e)=k(e)-5000 u(e)=u(e)+1  4890 s(e)<204890 p(e)=p(e)+20 s(e)=s(e)-20 k(e)=k(e)-500  4890  z=0 a=a(e)  5720X a=b(e)  5720X a=c(e) " 5720X ,a=d(e) 6 5720X @a=k(e)/5000 J 5720X Ta=l(e)/6000p ^ 5720X ha=m(e)/502 r 5720X |a=n(e)/5  5720X a=p(e)/502  5720X a=q(e)/10  5720X a=s(e)/2000  5720X a=u(e)/5  5720X a=z/u(f1)-j(e)+1 a=a a>8a=8 ((y(o)+2)=o(e)t(e)=t(e)+1 t(e)a5710N t(e)=a  &b=1(t(e)+v(e)) 0t$(e),k:t$(e,15)=k :b Dt(e)=85760 N Xa>10 a=10 ba=a lz=z+a v   5"Das Spiel ist vorbei"'t$(e,̯t$(e,15))'n$(e) "hat gewonnen" $7000X:62008:3540  890z  64502 /:t$(e,̯t$(e,15))'n$(e)'"ist bankrott"  C"Glaeubiger haben das Meiste Deines Eigentums beschlagnahmt." 7000X:62008  ga(e)=0:b(e)=0:c(e)=0:d(e)=0:u(e)=1:k(e)=100d:r(e)=4000 n(e)>4n(e)=4  q(e)>5q(e)=5 *m(e)>25m(e)=25 4p(e)>25p(e)=25 >"s(e)>2000s(e)=2000 H"l(e)>6000pl(e)=6000p f p z=0 z a=1f a=e6060 p(a)p(f1)z=a a yz=0t$(f1)="Baron "+6:n$(f1)="Peppone von Magi":az=(*9001)#)+1000:z=f1:6090 !az=p(z)*1000-l(z)/3 4az>(l(e)-5000)az=(l(e)-5000)/2 Zaz=az::t$(z,̯t$(z,15)):'n$(z)'"hat angegriffen und erobert"'az;" Hektar Land" l(z)=l(z)+az l(e)=l(e)-az z=(*41)) $z>(p(e)-15)z=p(e)-15 J'''t$(e,̯t$(e,15))''n$(e)'z;" Soldaten in der"'"Sclacht gefallen"  p(e)=p(e)-z $7000X:62008 . 8a$= Ba$=""62008 L8000@: V&:"************ ARBATAX ***********" `?'" Du regierst einen italienischenStadtstaat aus dem 15. Jh." j3'" Regierst Du gut, so bekommst Duhoehere Titel." oC'" Der erste Spieler, der HRH Koenig wird, hat gewonnen." xQ'" Regierst Du schlecht, so wirst Du nicht lange genug leben, um zu gewinnen." {''" Auf der Uebersicht zeigt der erste Balken die Groesse Deines Landes (L), der Zweite die Land-nutzung (N) und Der dritte die Kampfkraft (K)" 7000X:62008 &:"************ ARBATAX ***********" a'" Die gelben M's stehen fuer Deine Maerkte und die weissen W's fuer Deine Wollfabriken." o''" Die Kirche (oben) und der Palast (unten) sind sin ihren verschieden Ausbaustufen danebenzu sehen." &7000X:62008:8000@:  2::"Das Spiel is vorbei."'''"N - Neues Spiel"''"S - Stop" F62008:a$="n" P a$="s" Q 6470F X.#0;1,9 ;"ENTER = Weiter": @.15~,5: #(5:zp;" Sklave in diesem Jahr"'" geboren" #) 1290  #*5'zp;" Sklave in diesem Jahr"'" gestorben" #+ 1340< #-'z;" Sklave kam in die Stadt" #. 3130: #/''jz;" Sklave floh vor hartem Gericht" #0 3260 % &39910&:n=0167:a:"a"+n,a:n: &J0,170,85U,170,85U,170,85U,0 &1,1,3,3,7,7,15,15,31,31,63?,63?,127,127,255,255 &ʡ128,128,192,192,224,224,240,240,248,248,252,252,254,254,255,255 &ԛ255,255,252,248,248,248,248,248,255,255,63?,31,31,31,31,31 &ޝ255,255,252,252,252,252,255,255,255,255,63?,63?,63?,63?,255,255 &1,3,7,15,31,63?,127,255,128,192,224,240,248,252,254,255 &255,255,240,240,240,240,255,255,255,255,15,15,15,15,255,255 &127,127,127,127,127,127,127,127,254,254,254,254,254,254,254,254 &126~,126~,66B,66B,66B,66B,126~,126~,24,24,60<,60<,126~,126~,255,255 '127,191,223,239,247,251,253,254,254,253,251,247,239,223,191,127 '127,126~,124|,120x,112p,96`,64@,0,254,126~,62>,30,14,6,2,0