home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 4 / AUCD4.iso / arcade / arcgames / artex / _exodemo / _runimageo (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1998-02-17  |  415KB  |  20,713 lines
  1.  ><Planets$Dir>.!RunImage
  2.  > DEMO-Version 3
  3.   Hinzugef
  4.    -Bug beseitigt, nach Mission nicht geschafft
  5.    -Init-Hourglass bei BlendFont weg
  6.    -Fehler bei: Try a new game: weg??
  7.    -Mauswait vor Player-Arrive
  8.    -Evtl Fehler behoben: MP:Spieler werden von korrekten Alleys unterstuetzt
  9.    -1000MC bei Mehrspielermode ohne Gegner
  10.    -bei No Music auch Battle-Sounds ausgeschaltet
  11.    -Lautstaerke mit FrontEnd
  12.    -Codes auf Zahlen bis zu 50 begrenzt
  13.   Bugfixes, erledigt:
  14.    - Alley, Alleys ->Ally, Allies
  15.    - Info bei Lunar Battle kann Div by Zero geben; fixed? (glaub schon)
  16.    - Terra picture ist Sprite, kann nicht ge'picture't werden; fixed!
  17.    - Spionage: Unterster Lord auf Liste kann nicht gewaehlt werden; fixed!
  18.    - Multiplayer: Erster hat alle Erfind, zweiter kriegt keine mehr; fixed!
  19.    - flashnum war nicht 0 bei secretservice, select lord; fixed?
  20.    - Multip: Beide fliegen zur Spaceguild=Crash; fixed!
  21.    - Bomb Attacks werden angezeigt, kein Mouse-Wait; fixed?
  22.    - Keine Beschraenkung fuer Laden v.Robots auf Planet; fixed?
  23.    - Tippfehler...
  24.    - Alle Marker von Spieler 2 ploetzlich weg (ausser Marker 1); fixed!
  25.    - Kleiner Bug bei Hypershuttle Cost fixed.
  26.    - Absturz bei Rebel Attack nach "Spotted X units"; fixed! (aber unsauber)
  27.    - Monate nicht zurueckgesetzt nach Try a new game; fixed!
  28.   Bugfixes, zu erledigen:
  29.    - Nuclear Extermination zu oft: Crash ????
  30.    - SUBSCRIPT OUT OF RANGE nach Monat-Cal. nur manchmal, bei Mehrsp.
  31.    - Multip: 2. Spieler nie Kontakt mit Computer (Handel/Angriff) ? Nee!
  32.  ------------------------
  33.  TESTVERSION:
  34.  Aus-rem-en:
  35.         ON ERROR LOCAL PROCerror
  36.         switchoff=1
  37.  ------------------------
  38.  ------------------------
  39.  FINAL VERSION:
  40.  Folgendes aktivieren:
  41.         
  42.  SYS6,229,27
  43.         
  44. error
  45.         switchoff=0
  46. <M        
  47.  ON ERROR ON ERROR OFF:OSCLI"Alphabet Latin1":PRINT REPORT$:QUIT
  48.  ------------------------
  49. codde=0
  50. showorb=0
  51. showlogo
  52. initB
  53. hidelogo
  54. gload("pt1")
  55.  Quick Start fuer Tests:
  56.  Aus-rem-en:
  57.      sp$="st1":flen=1:fin%=0:PROCstartgame
  58.  REPEAT:PROCfilm_flyaway:G=GET:UNTIL FALSE
  59.  PROCmakingof
  60.  PROCfade(1,0,15)
  61. newintro
  62. f_wht
  63.  IF killintro THEN PROCentercode
  64. anim(1):
  65.             **** NICHT VERGESSEN, ESCAPE ABZUSCHALTEN! ****    -OK
  66.                    **** UND CHEATS RAUSNEHMEN! ****            -OK
  67.           **** UND CODES NACH ANLEITUNGSLAENGE KUERZEN! ****   -OK
  68.  PROCb_twoframe(2):END
  69.  PROCabspann
  70.  PROCgload("pt1"):MOUSE ON:PROCmus_load("ST3"):oldvar=1:PROCspaceguild
  71.  war%=250:bomb%=43:scout%=32:trans%=50
  72.  OSCLI"Cache Off":PROCr_init:PROCr_start(150,5,8):OSCLI"Alphabet latin1":END
  73.  PROCfilm_intro
  74. killintro=0
  75.  1:sp$="st3"
  76.  2:sp$="st8"
  77.  3:sp$="st9"
  78.  screentype=0
  79. startgame
  80. clearmemory
  81. makingof
  82. fillarray("MO1",14)
  83. 6,113,1
  84. 6,112,2
  85.  n=1 
  86. picture("mk"+
  87.  n>2 
  88.  n<15 
  89.  0,0,1279,56
  90. pixelswap
  91. 6,112,1
  92.   t=400
  93.  n>2 
  94.  n<15 
  95. codefadein(ar$(n)):t=600
  96.  n>2 
  97.  n<15 
  98. codefadeout(ar$(n))
  99. 6,112,2
  100. 6,112,1
  101. fade(1,0,15)
  102. swapscreen
  103.  I=1 
  104. 6,113,1
  105. 6,113,2
  106.  I=2 
  107. 6,112,1
  108. 6,112,2
  109.  I=3-I
  110. schoose(choice$)
  111.  spname$=choice$
  112. plot(kind,plotx,ploty)
  113.  plotx,ploty
  114.  &2E,256+28,Smem,spname$,,,kind 
  115.  r0,r1,r2,r3,r4,r5,r6
  116. sdelete(delete$)
  117.  &2E,256+25,Smem,delete$,0,0 
  118.  r0,r1,r2,r3,r4,r5,r6
  119. sget(sget$)
  120.  &2E,256+14,Smem,sget$ 
  121.  r0,r1,r2,r3,r4,r5,r6
  122. smerge(smerge$)
  123.  &2E,256+11,Smem,smerge$,0,0 
  124.  r0,r1,r2,r3,r4,r5,r6
  125. gmerge(gmerge$)
  126.  name$="Graphic."+gmerge$
  127. gmerge$,"br") 
  128. gmerge$,2)="pl" 
  129. gmerge$,2)="ct" 
  130.  name$="Graphic2."+gmerge$
  131.  &2E,256+11,Smem,name$,0,0 
  132.  r0,r1,r2,r3,r4,r5,r6
  133. sload(sload$)
  134.  &2E,256+10,Smem,sload$,0,0 
  135.  r0,r1,r2,r3,r4,r5,r6
  136. gload(gload$)
  137.  name$="Graphic."+gload$
  138. gload$,"br") 
  139. gload$,2)="pl" 
  140.  name$="Graphic2."+gload$
  141.  &2E,256+10,Smem,name$,0,0 
  142.  r0,r1,r2,r3,r4,r5,r6
  143.  &2E,256+9,Smem
  144. zoom(x%,y%,xx%,xy%,yy%,yx%,name$)
  145. = factor%!0=xx%:factor%!4=xy%:factor%!8=yy%:factor%!12=yx%
  146.  &2E,256+52,Smem,name$,x%,y%,8,factor%,-1
  147. newintro
  148. 6,112,1
  149. 6,113,1
  150. 6,112,2
  151. fillarray("it1",27)
  152. 5 readtime=0:readline=1:readfadein=1:readfadeout=0
  153.  signal=0
  154. gload("pt1")
  155. picture("ea1")
  156. 1279,1023:
  157. sget("back")
  158. 6,21,0
  159. 6,21,9
  160.  total=0:waiting=0
  161. 6,112,2
  162. schoose("back")
  163. plot(0,0,0)
  164. pixelswap
  165.  A,B,C
  166.  C=4 
  167.  I$=" " 
  168. (27) 
  169.  killintro=1:signal=1
  170. 6,112,2
  171. schoose("back")
  172. plot(0,0,0)
  173.   total+=1
  174.  waiting>10 
  175. introtalk 
  176.  waiting+=1
  177. 1279,1023:
  178. sget("b")
  179. 6,112,1
  180. schoose("b")
  181. plot(0,0,0)
  182.  signal
  183.  killintro 
  184.  signal=0
  185. sdelete("back")
  186. 6,112,2
  187. picture("ct1")
  188. sload("intro.sh1")
  189. 1279,1023:
  190. sget("back")
  191. pixelswap
  192. 6,113,1
  193. !4 zoom%=0:add%=0:count=0:offs=0:waiting=0:total=0
  194.   total+=1
  195. 6,112,2
  196.  waiting>40 
  197.  zoom%<1000 
  198.     zoom%+=8
  199.     add%+=0.5
  200.     offs=0
  201.     count+=1
  202.  count=21 
  203.  count=1
  204.  count<6 
  205.  offs=-4
  206. 4%    
  207.  count>5 
  208.  count<11 
  209.  offs=0
  210. 5%    
  211.  count>10 
  212.  count<16
  213.  offs=4
  214. 6&    
  215.  count>15 
  216.  count<21 
  217.  offs=0
  218.    waiting+=1
  219. schoose("back")
  220. plot(0,0,0)
  221.   xlen=175:ylen=119
  222. A@  a$="ship":
  223.  total=200 
  224.  total=202 
  225.  total=220 
  226.  a$="ship2"
  227.  PROCzoom(640-(xlen*2)*zoom%/1000,720-ylen*2+add%+offs,zoom%,zoom%,1000,1000,a$)
  228. zoom(640-(xlen*2)*zoom%/1000,720-ylen*2+add%,zoom%,zoom%,1000,1000,a$)
  229. introtalk
  230. 1279,1023:
  231. sget("b")
  232. 6,112,1
  233. schoose("b")
  234. plot(0,0,0)
  235.  signal
  236.  killintro 
  237.  signal=0
  238. 6,112,2
  239. picture("cn1")
  240. sload("intro.sh2")
  241. 1279,1023:
  242. sget("back")
  243. 6,113,1
  244. `/ zoom%=1000:add%=0:count=0:waiting=0:sub%=0
  245. 6,112,2
  246.  zoom%>0 zoom%-=8
  247.   add%-=0.5
  248.   sub%-=0.5
  249. schoose("back")
  250. plot(0,0,0)
  251.   xlen=65:ylen=48
  252.  zoom%>0 
  253. zoom(850-(xlen*2)*zoom%/1000+sub%,600-ylen*2+add%,zoom%,zoom%,1000,1000,"ship")
  254. introtalk
  255. 1279,1023:
  256. sget("b")
  257. 6,112,1
  258. schoose("b")
  259. plot(0,0,0)
  260.  signal
  261.  killintro 
  262.  signal=0
  263. 6,112,2
  264. picture("cr1")
  265. sload("intro.fi1")
  266. 1279,1023:
  267. sget("back")
  268.  count=0:waiting=0:wait=0
  269. 6,112,2
  270. schoose("back")
  271. plot(0,0,0)
  272.  count+=1
  273.  IF count>30 THEN count=1
  274.  IF count<16 THEN PROCschoose("fire1") ELSE PROCschoose("fire2")
  275.  PROCplot(8,676,284)
  276. schoose("fire1"):
  277. plot(0,937,323)
  278. introtalk
  279. 1279,1023:
  280. sget("b")
  281. 6,112,1
  282. schoose("b")
  283. plot(0,0,0)
  284.  signal
  285.  killintro 
  286.  signal=0
  287. 6,112,2
  288. picture("dr1")
  289. sload("intro.gu1")
  290. 1279,1023:
  291. sget("back")
  292.  total=0:waiting=0
  293. 6,112,2
  294. schoose("back")
  295. plot(0,0,0)
  296. schoose("guard")
  297. plot(0,475,131)
  298.   total+=1
  299.   waiting+=1
  300. 1279,1023:
  301. sget("b")
  302. 6,112,1
  303. schoose("b")
  304. plot(0,0,0)
  305.  waiting>20
  306.  killintro 
  307.  signal=0
  308. 6,112,2
  309. picture("cr1")
  310. sload("intro.fi1")
  311. 1279,1023:
  312. sget("back")
  313. - count=0:waiting=0:wait=0:cstep=1:fstep=0
  314. 6,112,2
  315. schoose("back")
  316. plot(0,0,0)
  317.   px=937:py=323
  318.   count+=1
  319.  count 
  320.  3:cstep=2:px=886:py=305
  321.  4:cstep=3:px=844:py=272
  322.  5:cstep=4:px=643:py=260
  323.  6:cstep=5:px=589:py=242
  324.  7:cstep=6:px=667:py=242
  325.  count 
  326.  10:fstep=1:fx=(136*4+4)-(136*0+4)
  327.  11:fstep=2:fx=(136*4+4)-(136*1+4)
  328.  12:fstep=3:fx=(136*4+4)-(136*2+4)
  329.  13:fstep=4:fx=(136*4+4)-(136*3+4)
  330.  14:fstep=5:fx=(136*4+4)-(136*4+4)
  331.  count>7 px=667:py=242
  332. schoose("fire"+
  333. (cstep))
  334. plot(0,px,py)
  335.  fstep 
  336. schoose("shot"+
  337. (fstep))
  338. plot(0,fx,606)
  339.  PROCintrotalk
  340. 1279,1023:
  341. sget("b")
  342. 6,112,1
  343. schoose("b")
  344. plot(0,0,0)
  345.  G=GET
  346.  count>13
  347.  killintro 
  348.  signal=0
  349. 6,112,2
  350. picture("dr1")
  351. sload("intro.bt1")
  352. 1279,1023:
  353. sget("back")
  354. % count=0:waiting=0:wait=0:cstep=1
  355. 6,112,2
  356. schoose("back")
  357. plot(0,0,0)
  358.   count+=1
  359.  count 
  360.  3:cstep=2
  361.  5:cstep=3
  362.  7:cstep=4
  363.  9:cstep=5
  364. 11:cstep=6
  365. 13:cstep=7
  366.  cstep 
  367.  1:px=477:py=92
  368.  2:px=397:py=83
  369.  3:px=382:py=77
  370.  4:px=364:py=56
  371.  cstep>4 px=316:py=56
  372. schoose("fall"+
  373. (cstep))
  374. plot(0,px,py)
  375. 1279,1023:
  376. sget("b")
  377. 6,112,1
  378. schoose("b")
  379. plot(0,0,0)
  380.  G=GET
  381.  count>20
  382.  killintro 
  383.  signal=0
  384. entercode
  385.  readline=22
  386. 6,112,2
  387. picture("dr1")
  388. sload("intro.od1")
  389. 1279,1023:
  390. sget("back")
  391. C% count=0:waiting=0:wait=0:cstep=1
  392.  openl=-8:openr=0
  393.  dtalk=0
  394. 6,112,2
  395. schoose("back")
  396. plot(0,0,0)
  397. schoose("behind"):
  398. plot(0,442,338)
  399. schoose("door_l"):
  400. plot(0,442-openl,342)
  401. schoose("door_r"):
  402. plot(0,640+openr,342)
  403. schoose("frame"):
  404. plot(8,208,335)
  405. schoose("sepp"):
  406. plot(8,493,60)
  407.   dtalk+=1
  408.  dtalk>7 
  409. schoose("off")
  410. Z    
  411.  dtalk>15 
  412. schoose("on")
  413. plot(0,268,764)
  414.  dtalk>20 
  415. introtalk
  416.  openl<172 
  417.     openl+=4
  418.     openr+=4
  419. 1279,1023:
  420. sget("b")
  421. 6,112,1
  422. schoose("b")
  423. plot(0,0,0)
  424.  signal
  425.  killintro 
  426.  signal=0
  427. 6,112,2
  428. picture("ho1")
  429. sload("intro.sh4")
  430. 1279,1023:
  431. sget("back")
  432. 6,113,1
  433. ~6 zoom%=1000:add%=0:count=0:waiting=0:blk=0:addy%=0
  434.   comeout=-10:height=600:sl=1
  435. 6,112,2
  436. schoose("back")
  437. plot(0,0,0)
  438.   blk+=1:
  439.  blk=10 
  440.    blk=0
  441. schoose("blink1"):
  442. plot(0,42,587)
  443. schoose("blink2"):
  444. plot(0,985,692)
  445. schoose("blink3"):
  446. plot(0,1060,512)
  447.   comeout+=1
  448.  comeout>0 
  449.    sl=1
  450.  comeout<19 
  451.  height+=8
  452.  comeout>18 
  453.  comeout<21 
  454.  height+=4
  455.  comeout>14 
  456.  sl=2
  457.  comeout>16 
  458.  sl=3
  459.  comeout>18 
  460.  sl=4
  461.    xlen=52:ylen=39
  462.  comeout>25 
  463.     sl=4
  464.  zoom%>0 zoom%-=8
  465.     add%+=8
  466.     addy%+=4
  467. o    
  468.  zoom%>0 
  469. zoom(660-(xlen*2)*zoom%/1000-add%,height-ylen*2+addy%,zoom%,zoom%,1000,1000,"shuttle"+
  470. (sl))
  471. e    
  472. zoom(660-(xlen*2)*zoom%/1000-add%,height-ylen*2+addy%,zoom%,zoom%,1000,1000,"shuttle"+
  473. (sl))
  474. schoose("moveout")
  475. plot(8,475,365)
  476. introtalk
  477. 1279,1023:
  478. sget("b")
  479. 6,112,1
  480. schoose("b")
  481. plot(0,0,0)
  482.  signal
  483.  killintro 
  484.  signal=0
  485. 6,112,2
  486. picture("js1")
  487. sload("intro.sh3")
  488. gmerge("hp1")
  489. 1279,1023:
  490. sget("back")
  491. 6,113,1
  492. < zoom%=1000:add%=0:count=0:waiting=0:addy%=0:zoomb%=1000
  493.  ladx%=0:lady%=0
  494.  apos=340:bpos=820
  495.  alen=104:blen=73
  496. ) hypw=280:hypc=0:hypx=0:hypy=0:hypa=1
  497.   count+=1
  498. 6,112,2
  499.  zoom%>0 zoom%-=8
  500.   add%+=4
  501.   addy%+=2
  502. schoose("back")
  503. plot(0,0,0)
  504.   a$="cruiser"
  505.  count>164 
  506.  a$="cruiser2"
  507.  count>166 
  508.  a$="cruiser1"
  509.  zoomb%>0 
  510. zoom(apos-(alen*2)*zoomb%/1000,bpos-(blen*2)*zoomb%/1000,zoomb%,zoomb%,1000,1000,a$)
  511.  PROCplot(8,apos,bpos)
  512.  zoom%=0 
  513.  count>180 
  514.    apos+=4
  515.    bpos-=3
  516.    zoomb%-=10
  517.   xlen=52:ylen=39
  518.  zoom%>0 
  519. zoom(900-(xlen*2)*zoom%/1000-add%,588-ylen*2+addy%,zoom%,zoom%,1000,1000,"shuttle")
  520.  hypc<10 
  521.  hypw=0 
  522.     hypc+=1
  523. ,    
  524.  hypc<6 
  525.  hypa+=hypa 
  526.  hypa-=hypa/2
  527. !    hypy+=1:
  528.  hypy>5 
  529.  hypy=1
  530.     hypx=hypa*100
  531. T    
  532. zoom(740-120*hypx/1000,524-120*hypx/1000,hypx,hypx,1000,1000,"hyp"+
  533. (hypy))
  534.     hypw-=1
  535. introtalk
  536. 1279,1023:
  537. sget("b")
  538. 6,112,1
  539. schoose("b")
  540. plot(0,0,0)
  541.  count>310 
  542.  signal>0
  543.  killintro 
  544.  signal=0
  545. fade(1,0,15)
  546. introtalk
  547.  ia,ib,ic
  548.  ia,ib,ic
  549.  I$=" " 
  550. (27) 
  551.  ic=4 
  552.  killintro=1:signal=1
  553.  readfadein 
  554. readfadein
  555.  readfadeout 
  556. readfadeout
  557. dspc(ar$(readline),25)
  558.  readtime+=1
  559.  readtime>30 
  560.  readfadeout=1
  561. readfadein
  562.  readfadein 
  563.  1:font_col=&40404000
  564.  2:font_col=&90909000
  565.  3:font_col=&c0c0c000
  566.  4:font_col=&fdfdfd00
  567.  CASE readfadein OF
  568.   WHEN 1:SYS 262291,,0,1,6,&00000000,&40404000
  569.   WHEN 2:SYS 262291,,0,1,6,&00000000,&90909000
  570.   WHEN 3:SYS 262291,,0,1,6,&00000000,&c0c0c000
  571.   WHEN 4:SYS 262291,,0,1,6,&00000000,&fdfdfd00
  572.  ENDCASE
  573. (. readfadein+=1:
  574.  readfadein=5 readfadein=0
  575. readfadeout
  576.  readtime=0
  577.  readfadeout 
  578.  1:font_col=&c0c0c000
  579.  2:font_col=&90909000
  580.  3:font_col=&40404000
  581.  4:font_col=&00000000
  582.  CASE readfadeout OF
  583.   WHEN 1:SYS 262291,,0,1,6,&00000000,&c0c0c000
  584.   WHEN 2:SYS 262291,,0,1,6,&00000000,&90909000
  585.   WHEN 3:SYS 262291,,0,1,6,&00000000,&40404000
  586.   WHEN 4:SYS 262291,,0,1,6,&00000000,&00000000
  587.  ENDCASE
  588.  IF INKEY$(0)="x" THEN signal=1
  589.  readfadeout+=1
  590.  readfadeout=5 
  591. <7  readfadeout=0:readline+=1:readtime=0:readfadein=1
  592.  readline=3 
  593.  readline=10 
  594.  readline=15 
  595.  readline=23 
  596.  readline=19 
  597.  readline=25 
  598.  signal=1
  599. decode(st,pl)
  600.  cx=1
  601.  cy=1
  602. E3   surf%(cx,cy)=
  603. surf$(st-1,pl-1,cx-1),cy,1))
  604. code(st,pl)
  605.  cx=1
  606.   surf$(st-1,pl-1,cx-1)=""
  607.  cy=1
  608. N-   surf$(st-1,pl-1,cx-1)+=
  609. (surf%(cx,cy))
  610.  insert after 'surf$(st-1,pl-1,cx-1)+=...' :
  611.  IF surf%(cx,cy)=255 THEN PROCwrong
  612. r_init
  613.  rock=20
  614.  wing(5,5,1),action(5,5,1),target(5,5,1),wingx(5,5,1),wingy(5,5,1)
  615.  rocket(rock),rocketx(rock),rockety(rock),rocketax(rock),rocketay(rock),rocketcount(rock)
  616. pl_stone(numba,a_stone,b_stone)
  617.  bu,hx,hy
  618.  IF free=0 PRINT"FREE=0!!":END
  619.  bu=1 
  620.  numba
  621. a7  A%=za-1:B%=zb-1:C%=a_stone:D%=b_stone:
  622.  position%
  623.   free-=1
  624. showlogo
  625. gload("lg1")
  626. mus_setvolume(64)
  627. mus_play(0,9):
  628. 6,113,1
  629. 6,112,2
  630.  C=0 
  631.  T=0 
  632.  192 
  633.  128+C 
  634. swapscreen
  635. 6,112,1
  636. 6,113,1
  637.  X=1 
  638. schoose("pic"+
  639. plot(0,32,400)
  640. hidelogo
  641. <300 
  642. >=300
  643.  X=5 
  644. schoose("pic"+
  645. plot(0,32,400)
  646. 6,113,1
  647. 6,112,2
  648.  C=63 
  649.  T=192 
  650.  128+C 
  651. swapscreen
  652. pixelswap
  653.  pixelswap
  654. fadeinstars
  655. 6,112,1
  656. 6,113,1
  657.  a=1 
  658.  snum
  659.   starx(a)=
  660. (1279)
  661.  stary(a)=
  662. (1023):
  663.  stary(a)<485 
  664.  stary(a)>551
  665.   starc(a)=
  666.   starf()=0
  667.  fade=1 
  668.  a=1 
  669.  snum
  670.    starf(a)+=starc(a)/16
  671.    f=
  672. (starf(a))
  673.  starx(a),stary(a)
  674.  A,B,C:
  675.  fa=flen:
  676. fade(1,0,15):killintro=1:
  677. C  I$=
  678.  I$<>"" 
  679.  fin% 
  680.  fa=flen:
  681. fade(1,0,15):killintro=1:
  682. wait(5)
  683.  fade
  684. 6,112,2
  685.  a=1 
  686.  snum
  687.  starc(a) 
  688.  starx(a),stary(a)
  689. 6,112,1
  690. flash(shallwait)
  691.  flashnum=0 
  692.  fx,fy,mx,my,mb,fok,col
  693.  mx,my,mb
  694.  fok=0
  695.  fx=1 
  696.  flashnum
  697.  my>=flashy(fx) 
  698.  my<flashy(fx)+40 
  699.  flashactual<>fx 
  700. f_wht
  701. I    
  702. sfp(flash$(flashactual),flashx(flashactual),flashy(flashactual))
  703.     flashactual=fx
  704.     fok=1
  705.     flashstate=6
  706.  flashactual=fx 
  707. 2    flashstate+=1:
  708.  flashstate>11 flashstate=1
  709.  flashstate 
  710.      
  711. 1:col=&ffffff00
  712.      
  713. 2:col=&fff0f000
  714.      
  715. 3:col=&ffe0e000
  716.      
  717. 4:col=&ffd0d000
  718.      
  719. 5:col=&ffc0c000
  720.      
  721. 6:col=&ffb0b000
  722.      
  723. 7:col=&ffa0a000
  724.      
  725. 8:col=&ffb0b000
  726.      
  727. 9:col=&ffc0c000
  728.      
  729. 10:col=&ffd0d000
  730.      
  731. 11:col=&ffe0e000
  732.      
  733. 12:col=&f0f0f000
  734.         
  735. )    
  736.  SYS 262291,,0,1,6,&00000000,col
  737.     font_col=col
  738. .    
  739. sfp(flash$(fx),flashx(fx),flashy(fx))
  740.     fok=1
  741.  shallwait 
  742. wait(4)
  743. f_wht
  744.  fok=0 
  745.  flashactual>0 
  746. sfp(flash$(flashactual),flashx(flashactual),flashy(flashactual))
  747.    flashactual=0:flashstate=0
  748. anim(anum)
  749.  IF killintro THEN ENDPROC
  750.  a,b,c:
  751. 6,112,1:
  752. 6,113,1:
  753. 6,112,2:
  754. 6,112,1
  755. 6,21,0
  756. 6,21,9
  757.  fin%
  758.  animshow=1
  759. " zbegin=0:
  760.  var for zoomin/out
  761. fillarray("Film.F"+
  762. (anum)+".fd",2)
  763.  flen=
  764. (ar$(1))+1
  765. fillarray("Film.F"+
  766. (anum)+".fd",flen)
  767.  animshow=0
  768.  flen
  769. *  H$=ar$(a):
  770. uppercase:ar$(a)=H$:a$=H$
  771. a$,"PICTURE")   
  772. cut("P",8)
  773. a$,"LOADMEM")   
  774. cut("M",8)
  775. a$,"MERGEMEM")  
  776. cut("H",9)
  777. a$,"PLOTMEM")   
  778. cut("T",8)
  779. a$,"WAIT")      
  780. cut("W",5)
  781. a$,"FADEOUT")   
  782. cut("F",8)
  783. a$,"KILLMEM")   
  784. cut("K",8)
  785. a$,"TERMINATE") 
  786. cut("X",10)
  787. a$,"ZOOMIN")    
  788. cut("Z",7)
  789. a$,"ZOOMOUT")   
  790. cut("O",8)
  791. a$,"REPAINT")   
  792. cut("R",8)
  793. a$,"PLOTBACK")  
  794. cut("B",9)
  795. a$,"SCRIBE")    
  796. cut("S",7)
  797. a$,"ZAPIN")     
  798. cut("I",6)
  799. a$,"ZAPOUT")    
  800. cut("U",7)
  801. a$,"GRAPHWIN")  
  802. cut("G",9)
  803. a$,"NOGRAPHWIN")
  804. cut("N",11)
  805. a$,"TEXTIN")    
  806. cut("A",7)
  807. a$,"TEXTOUT")   
  808. cut("C",8)
  809. a$,"ZOOMSTART") 
  810. cut("D",10)
  811. a$,"TEXT")      
  812. cut("E",5)
  813. a$,"PROCEDURE") 
  814. cut("1",10)
  815. a$,"REM")       ar$(a)=" "
  816. 6,113,1
  817. 6,112,1
  818. 6,21,9
  819.  fa=2 
  820.  flen
  821.  A,B,C:
  822.  fa=flen:
  823. fade(1,0,15)
  824. 75  I$=
  825.  I$<>"" 
  826.  fin% 
  827.  fa=flen:
  828. fade(1,0,15)
  829.   a$=ar$(fa)
  830.   b$=
  831. a$,1)
  832.   c$=
  833. (a$)-1)
  834.  b$="P" 
  835.  c$="VAR" 
  836.  c$=filmvar$
  837. 6,112,2
  838. picture(c$)
  839. 6,113,2
  840. 6,112,1
  841. picture(c$)
  842. 6,113,1
  843.  b$="M" 
  844. E&   
  845. sload("Film.F"+
  846. (anum)+"."+c$)
  847.  b$="1" 
  848. (c$) 
  849. fadeinstars
  850.  b$="H" 
  851. M'   
  852. smerge("Film.F"+
  853. (anum)+"."+c$)
  854.  b$="W" 
  855.    abuba=
  856.  FOR n=1TO VAL(c$)
  857.  WAIT
  858. T7    
  859.  A,B,C:
  860.  fin%=1 :abuba-=
  861. (c$):
  862. :n=VAL(c$)
  863. U;    I$=
  864.  I$<>"" 
  865.  fin%=1 :abuba-=
  866. (c$):
  867. :n=VAL(c$)
  868.  NEXT n
  869. -abuba>
  870.  b$="X" 
  871.    fa=flen
  872.  b$="F" 
  873. fade(1,0,15)
  874.  b$="K" 
  875.  b$="R" 
  876. 6,112,2
  877. 1279,1023
  878. sget("cop1")
  879. 6,112,1
  880. schoose("cop1")
  881. plot(0,0,0)
  882. sdelete("cop1")
  883.  b$="T" 
  884.    spname$=
  885. (c$)-10)
  886. n%   
  887. plot(8,
  888. c$,4)),
  889. c$,6,4)))
  890.  b$="B" 
  891.    slen=
  892. c$,11,4))*4
  893.    shgt=
  894. c$,16,4))*4
  895. 6,112,2
  896. t    p=
  897. c$,4)):q=
  898. c$,6,4))
  899. u*   
  900.  p,q:
  901.  p+slen,q+shgt:
  902. sget("cop1")
  903.    spname$=
  904. (c$)-20)
  905. w%   
  906. plot(8,
  907. c$,4)),
  908. c$,6,4)))
  909. x*   
  910.  p,q:
  911.  p+slen,q+shgt:
  912. sget("cop2")
  913. schoose("cop1")
  914. plot(0,p,q)
  915. 6,112,1
  916. schoose("cop2")
  917. plot(0,p,q)
  918. sdelete("cop1")
  919. sdelete("cop2")
  920.  b$="Z" 
  921.    slen=
  922. c$,16,4))*4
  923.    shgt=
  924. c$,21,4))*4
  925. .   p=
  926. c$,4))-slen/2:q=
  927. c$,6,4))-shgt/2
  928. .   r=
  929. c$,4))+slen/2:s=
  930. c$,6,4))+shgt/2
  931. 6,112,2
  932.  p,q:
  933.  r,s:
  934. sget("cop1")
  935.  zoom%=zbegin 
  936.  1000 
  937. c$,11,4))
  938. 6,112,2
  939. schoose("cop1")
  940. plot(0,p,q)
  941. l    
  942. zoom(
  943. c$,4))-slen/2*zoom%/1000,
  944. c$,6,4))-shgt/2*zoom%/1000,zoom%,zoom%,1000,1000,
  945. (c$)-25))
  946. !    
  947.  p,q:
  948.  r,s:
  949. sget("cop2")
  950. 6,112,1
  951. schoose("cop2")
  952. plot(0,p,q)
  953. %    
  954.  arm>2.5 
  955. wait(2) 
  956. wait(1)
  957. (    
  958.  A,B,C:
  959.  zoom%=1000:fin%=1
  960. ,    I$=
  961.  I$<>"" 
  962.  zoom%=1000:fin%=1
  963.  zoom%
  964. 6,112,2
  965. schoose("cop1")
  966. plot(0,p,q)
  967. 6,112,1
  968. sdelete("cop1")
  969. sdelete("cop2")
  970.  b$="G" 
  971.    x1=
  972. c$,4))
  973.    y1=
  974. c$,6,4))
  975.    x2=
  976. c$,11,4))
  977.    y2=
  978. c$,16,4))
  979. 24,x1;y1;x2;y2;
  980.  b$="A" 
  981. fadein(
  982. (c$)-10),
  983. c$,4)),
  984. c$,6,4)))
  985.  b$="C" 
  986. fadeout(
  987. (c$)-10),
  988. c$,4)),
  989. c$,6,4)))
  990.  b$="E" 
  991. (c$)-10),
  992. c$,4)),
  993. c$,6,4)))
  994.  b$="D" 
  995.    zbegin=
  996.  b$="N" 
  997.  b$="I" 
  998.    slen=
  999. c$,16,4))*4
  1000.    shgt=
  1001. c$,21,4))*4
  1002. '   p=
  1003. c$,4)):q=
  1004. c$,6,4))-shgt/2
  1005. ,   r=
  1006. c$,4))+slen:s=
  1007. c$,6,4))+shgt/2
  1008. 6,112,2
  1009.  p,q:
  1010.  r,s:
  1011. sget("cop1")
  1012.  zoom%=0 
  1013.  1000 
  1014. c$,11,4))
  1015. 6,112,2
  1016. schoose("cop1")
  1017. plot(0,p,q)
  1018. Y    
  1019. zoom(
  1020. c$,4)),
  1021. c$,6,4))-shgt/2*zoom%/1000,1000,zoom%,1000,1000,
  1022. (c$)-25))
  1023. !    
  1024.  p,q:
  1025.  r,s:
  1026. sget("cop2")
  1027. 6,112,1
  1028. schoose("cop2")
  1029. plot(0,p,q)
  1030. %    
  1031.  arm>2.5 
  1032. wait(2) 
  1033. wait(1)
  1034. (    
  1035.  A,B,C:
  1036.  zoom%=1000:fin%=1
  1037. ,    I$=
  1038.  I$<>"" 
  1039.  zoom%=1000:fin%=1
  1040.  zoom%
  1041. 6,112,2
  1042. schoose("cop1")
  1043. plot(0,p,q)
  1044. 6,112,1
  1045. sdelete("cop1")
  1046. sdelete("cop2")
  1047.  b$="U" 
  1048.    slen=
  1049. c$,16,4))*4
  1050.    shgt=
  1051. c$,21,4))*4
  1052. '   p=
  1053. c$,4)):q=
  1054. c$,6,4))-shgt/2
  1055. ,   r=
  1056. c$,4))+slen:s=
  1057. c$,6,4))+shgt/2
  1058. 6,112,2
  1059.  p,q:
  1060.  r,s:
  1061. sget("cop1")
  1062.  zoom%=1000 
  1063. c$,11,4))
  1064. 6,112,2
  1065. schoose("cop1")
  1066. plot(0,p,q)
  1067. Y    
  1068. zoom(
  1069. c$,4)),
  1070. c$,6,4))-shgt/2*zoom%/1000,1000,zoom%,1000,1000,
  1071. (c$)-25))
  1072. !    
  1073.  p,q:
  1074.  r,s:
  1075. sget("cop2")
  1076. 6,112,1
  1077. schoose("cop2")
  1078. plot(0,p,q)
  1079. %    
  1080.  arm>2.5 
  1081. wait(2) 
  1082. wait(1)
  1083. %    
  1084.  A,B,C:
  1085.  zoom%=0:fin%=1
  1086. )    I$=
  1087.  I$<>"" 
  1088.  zoom%=0:fin%=1
  1089.  zoom%
  1090. 6,112,2
  1091. schoose("cop1")
  1092. plot(0,p,q)
  1093. 6,112,1
  1094. sdelete("cop1")
  1095. sdelete("cop2")
  1096.  b$="O" 
  1097.    slen=
  1098. c$,16,4))*4
  1099.    shgt=
  1100. c$,21,4))*4
  1101. .   p=
  1102. c$,4))-slen/2:q=
  1103. c$,6,4))-shgt/2
  1104. .   r=
  1105. c$,4))+slen/2:s=
  1106. c$,6,4))+shgt/2
  1107. 6,112,2
  1108.  p,q:
  1109.  r,s:
  1110. sget("cop1")
  1111.  zoom%=1000 
  1112.  zbegin 
  1113. c$,11,4))
  1114. 6,112,2
  1115. schoose("cop1")
  1116. plot(0,p,q)
  1117. l    
  1118. zoom(
  1119. c$,4))-slen/2*zoom%/1000,
  1120. c$,6,4))-shgt/2*zoom%/1000,zoom%,zoom%,1000,1000,
  1121. (c$)-25))
  1122. !    
  1123.  p,q:
  1124.  r,s:
  1125. sget("cop2")
  1126. 6,112,1
  1127. schoose("cop2")
  1128. plot(0,p,q)
  1129. %    
  1130.  arm>2.5 
  1131. wait(2) 
  1132. wait(1)
  1133. %    
  1134.  A,B,C:
  1135.  zoom%=0:fin%=1
  1136. )    I$=
  1137.  I$<>"" 
  1138.  zoom%=0:fin%=1
  1139.  zoom%
  1140. 6,112,2
  1141. schoose("cop1")
  1142. plot(0,p,q)
  1143. 6,112,1
  1144. sdelete("cop1")
  1145. sdelete("cop2")
  1146.  b$="S" 
  1147.    sx=
  1148. c$,2,4))
  1149.    sy=
  1150. c$,6,4))
  1151.    s$=
  1152. (c$)-10)
  1153. s$,n),sx,sy)
  1154.      
  1155. s$,n,1)<>" " 
  1156. wait(5)
  1157. %    
  1158.  A,B,C:
  1159. (s$):fin%=1
  1160. '    I$=
  1161.  I$<>"" n=
  1162. (s$):fin%=1
  1163. g(glord)
  1164.  Hg(glord)=1 
  1165.  gn$="Lord" 
  1166.  gn$="Lady"
  1167. showhigh
  1168. schoose("picture"):
  1169. plot(0,gx,gy)
  1170. wait(50)
  1171. f_blu
  1172. dsplargeB("HIGH SCORES",gx+176,gy+500)
  1173. f_wht
  1174.  w=1 
  1175. dspB(
  1176. (w),280,10+w*2)
  1177. dspB(
  1178. (high(w)),788,10+w*2)
  1179. dspB(high$(w),372,10+w*2)
  1180. getMK
  1181. f_wht
  1182. sh_bonus
  1183.  centx=gx+bcx+68*bcz/1000
  1184.  centy=gy+bcy+68*bcz/1000
  1185.  csize=40*bcz/1000
  1186. zoom(gx+bcx,gy+bcy,bcz,bcz,1000,1000,"b"+
  1187. (bcnt))
  1188.  C=4 
  1189.  release=1 
  1190.  A>centx-csize 
  1191.  A<centx+csize 
  1192.  B>centy-csize 
  1193.  B<centy+csize 
  1194. givebonus:C=0:
  1195.  gx,gy,gx+800,gy+600:bonus=0
  1196.  bcnt+=1:
  1197.  bcnt=5 
  1198.  bcnt=1
  1199. ,3 bcz+=10+level*5:
  1200.  bcz>=1200 
  1201.  dead=0 
  1202.  bonus=0
  1203. playtri(level)
  1204.  nowshoot=0
  1205. 3# allkilled=0:deadexit=0:bonus=0
  1206. frame(gx-16,gy-16-60,gx+816,gy+616,42)
  1207. inframe(gx-4,gy-4-60,gx+804,gy+604,42)
  1208. schoose("exit"):
  1209. plot(0,gx+4,gy-56)
  1210. frame(gx+244,gy-56,gx+796,gy-8,42)
  1211. 6,113,1
  1212.   time_index=
  1213. (200)=1 
  1214.  bonus=0
  1215.  bonus=1:bcnt=
  1216. (4):bcx=
  1217. (750):bcy=
  1218. (550):bcz=200
  1219.   shc+=1:
  1220.  shc=5 
  1221.  shc=1
  1222. 6,112,2
  1223. schoose("picture"):
  1224. plot(0,gx,gy)
  1225.  arm>3 
  1226. tristars
  1227.  A,B,C
  1228.  C=4 
  1229.  B<gy 
  1230.  A<gx+232 
  1231.  nomore=1:demo=1:demodone=1:dead=1:C=0
  1232.  C=4 
  1233.  demo=1 
  1234.  demodone=1:C=0
  1235.  demo=1 
  1236.  announce=6:ancount=5
  1237.  dead=1 
  1238.  C=4 
  1239.  release=1 
  1240. G<   relnow=1:
  1241.  PROCschoose("shoot"):PROCplot(8,A-48,B-48)
  1242.    nowshoot=1
  1243. IB   ns_x1=gx+(A-gx)/3              :ns_b1=gx+800+(A-(gx+800))/3
  1244. J"   ns_y1=gy+(B-(gy+100))/3+100
  1245. LA   ns_x2=ns_x1+(A-gx)/3           :ns_b2=ns_b1+(A-(gx+800))/3
  1246. M!   ns_y2=ns_y1+(B-(gy+100))/3
  1247. OA   ns_x3=ns_x2+(A-gx)/3           :ns_b3=ns_b2+(A-(gx+800))/3
  1248. P!   ns_y3=ns_y2+(B-(gy+100))/3
  1249.  nowshoot=3 
  1250.  128: 
  1251.  ns_x2,ns_y2,ns_x3,ns_y3:nowshoot=0:
  1252.  ns_b2,ns_y2,ns_b3,ns_y3:     
  1253.  LINE ns_x2,ns_y2-4,ns_x3,ns_y3-4:       LINE ns_b2,ns_y2-4,ns_b3,ns_y3-4
  1254.  nowshoot=2 
  1255.  64: 
  1256.  ns_x1,ns_y1,ns_x2,ns_y2:nowshoot=3:
  1257.  ns_b1,ns_y1,ns_b2,ns_y2:     
  1258.  LINE ns_x1,ns_y1-4,ns_x2,ns_y2-4:       LINE ns_b1,ns_y1-4,ns_b2,ns_y2-4
  1259.  nowshoot=1 
  1260.  gx,gy+100,ns_x1,ns_y1:nowshoot=2:  
  1261.  gx+800,gy+100,ns_b1,ns_y1:   
  1262.  LINE gx,gy+100-4,ns_x1,ns_y1-4:         LINE gx+800,gy+100-4,ns_b1,ns_y1-4
  1263. 20,24);tokill;" "
  1264. (score)),24);score
  1265. 11,24);level
  1266.  C=0 
  1267.  release=1
  1268.  w=1 
  1269.  cr(w)<1 
  1270.  ck(w)>0 
  1271. `,    ck(w)+=1:
  1272.  ck(w)>6 
  1273. newtri:ck(w)=0
  1274. b#   centx=gx+cx(w)+68*cz(w)/1000
  1275. c#   centy=gy+cy(w)+68*cz(w)/1000
  1276.    csize=40*cz(w)/1000
  1277. e6   
  1278.  ck(w)=0 
  1279.  x$="t"+
  1280. (cnt(w)) 
  1281.  x$="xp"+
  1282. (ck(w))
  1283. f8   
  1284. zoom(gx+cx(w),gy+cy(w),cz(w),cz(w),1000,1000,x$)
  1285.  ck(w)>0 
  1286. h,    ck(w)+=1:
  1287.  ck(w)>6 
  1288. newtri:ck(w)=0
  1289.  C=4 
  1290.  release=1 
  1291.  A>centx-csize 
  1292.  A<centx+csize 
  1293.  B>centy-csize 
  1294.  B<centy+csize 
  1295.  ck(w)=0 
  1296.  ck(w)=1:score+=99:C=0:tokill-=1
  1297. kI   
  1298.  tokill=0 
  1299.  allkilled=1:score+=2000:
  1300.  gx,gy,800,600
  1301. l'   cnt(w)+=1:
  1302.  cnt(w)=13 
  1303.  cnt(w)=1
  1304. mg   cz(w)+=10+level*5:
  1305.  cz(w)>=1200 
  1306.  dead=0 
  1307. newtri:shield%-=1:
  1308.  gx,gy,gx+800,gy+600
  1309.  shield%=-1 
  1310.  dead=1
  1311.    cr(w)-=1
  1312. pW   
  1313.  cr(w)<-3 
  1314.  cr(w)>-6 
  1315.  level<5 
  1316. schoose("marknew"):
  1317. plot(8,gx+cx(w),gy+cy(w))
  1318. qa   
  1319.  cz(w)>1000 
  1320.  cr(w)/2=
  1321. (cr(w)/2) 
  1322. zoom(gx+cx(w),gy+cy(w),cz(w),cz(w),1000,1000,"tfire")
  1323.    cr(w)-=1
  1324. schoose("tokill"):
  1325. plot(8,gx+400,gy+28)
  1326.  bonus 
  1327. sh_bonus
  1328.  relnow=1 
  1329.  release=0:relnow=0
  1330.  announce 
  1331. announce
  1332.  arm>2.5 
  1333. wait(3) 
  1334.  dead=1 
  1335.  announce<>3 
  1336.  ancount=0 
  1337.  deadexit=0 
  1338.  ancount=20:announce=3
  1339.  demo=1 
  1340.  shield%=4
  1341. schoose("shield"+
  1342. (shield%))
  1343.  shield%>0 
  1344.  (shield%=0 
  1345.  shc>2) 
  1346. plot(8,gx+12,gy+12)
  1347.  gx,gy:
  1348. gx+800,gy+600:
  1349. sget("backg")
  1350. schoose("backg")
  1351. 6,112,1
  1352. plot(0,gx,gy)
  1353.  demo=1 
  1354.  deadexit=0:alkilled=0
  1355. -time_index<10 
  1356. -time_index>=10
  1357.  deadexit 
  1358.  allkilled 
  1359.  (demo=1 
  1360.  demodone=1)
  1361.  allkilled 
  1362.  announce=2:ancount=10
  1363. givebonus
  1364. (2)=1 
  1365. &  announce=4:ancount=10:score+=999
  1366. 2  announce=5:ancount=10:
  1367.  shield%<4 shield%+=1
  1368. announce
  1369.  ancount-=1:
  1370.  ancount=0 
  1371.  announce=3 
  1372.  deadexit=1
  1373.   announce=0:
  1374. / antype=3-antype:
  1375.  antype=1 
  1376.  announce<>6 
  1377.  announce=2 
  1378. schoose("stage"):
  1379. plot(8,gx+200,gy+200)
  1380. schoose("s"+
  1381. (level)):
  1382. plot(8,gx+500,gy+200)
  1383.  announce 
  1384. schoose("go"):
  1385. plot(8,gx+260,gy+200)
  1386. schoose("gameover"):
  1387. plot(8,gx+160,gy+160)
  1388. schoose("kbon"):
  1389. plot(8,gx+200,gy+200)
  1390. schoose("sbon"):
  1391. plot(8,gx+200,gy+200)
  1392. schoose("sheriff"):
  1393. plot(8,gx+100,gy+200)
  1394. newtri
  1395. A cnt(w)=
  1396. (12):cx(w)=
  1397. (600):cy(w)=
  1398. (400):cz(w)=200:cr(w)=
  1399. cut(c$,cnum)
  1400. & ar$(a)=c$+
  1401. ar$(a),
  1402. (ar$(a))-cnum)
  1403. sptest
  1404.  music=0
  1405.  PRINT "Speed test"
  1406. <800000 
  1407.  ram=1 
  1408.  ram=2
  1409.  PRINT HIMEM-LOMEM,ram:G=GET
  1410. 10000:a=a+2:
  1411.  howfast=t
  1412.  music=0 
  1413.  t<40 
  1414.  arm=3
  1415.  t<20 
  1416.  arm=6
  1417.  t<12  
  1418.  arm=7
  1419.  t<4   
  1420.  arm=9
  1421.  t>120 
  1422.  arm=2
  1423.  t>40 
  1424.  t<110 
  1425.  arm=2.5
  1426.  t<60 
  1427.  arm=3
  1428.  t<30 
  1429.  arm=6
  1430.  t<14 
  1431.  arm=7
  1432.  t<4  
  1433.  arm=9
  1434.  t>180 
  1435.  arm=2
  1436.  t>60 
  1437.  t<180 
  1438.  arm=2.5
  1439.  COLOUR 42 TINT 0
  1440.  PRINT "Speed index=";t
  1441.  PRINT "Your processor has rating ";arm
  1442.  G=GET
  1443.  ram=2 music=1
  1444.  ram=1 
  1445.  "RMAFree 260k Error RMA allocation error"
  1446. startgame
  1447.  verynew
  1448. gmerge("pt1")
  1449.  verynew=1
  1450. 6,112,2
  1451.  verynew=1 
  1452. 6,113,2
  1453. 6,112,1
  1454.   ok=1
  1455. picture(sp$)
  1456. f_yel
  1457. centerB("Please select.",1024-9*40)
  1458. f_wht
  1459. centerB("Conquer the stars",1024-12*40)
  1460. centerB("Load a game (disabled)",1024-14*40)
  1461. pixelswap
  1462.  verynew=1 
  1463.  verynew=0:
  1464.  640,350:
  1465. mouse_on
  1466.    row=0
  1467.  A,B,C
  1468.    I$=
  1469. -    
  1470.  A>369 
  1471. A<918 
  1472. B>533 
  1473. B<599 
  1474.  row=13
  1475. -    
  1476.  A>349 
  1477. A<937 
  1478. B>458 
  1479. B<515 
  1480.  row=15
  1481. mus_quit
  1482. 262274,bfnt%
  1483. 262274,sfnt%
  1484. 262274,mfnt%
  1485. 6,229,0
  1486. "Alphabet Latin1"
  1487. 262383,-1
  1488.  row=13 
  1489. fade(2,0,15)
  1490.    c=0
  1491. prepare
  1492.  c<>2 
  1493. selectgalaxy
  1494. mus_load("ST3")
  1495. mastermap
  1496.     ok=1
  1497.     flag()=0:flag=0
  1498.     ok=0
  1499.    PROCload
  1500.    IF ok THEN
  1501.     PROCmus_load("ST3")
  1502.     PROCmpart(12)
  1503.     SYS6,21,0
  1504.     PROCmastermap
  1505.     ok=1
  1506.    ENDIF
  1507. prepare
  1508.  genplan=0
  1509.  pp$="ey1"
  1510. 6,112,1:
  1511. 6,113,1
  1512. 6,112,2
  1513. fillarray("pr1",15)
  1514. prep(1,3)
  1515. f_wht
  1516.  b=2 p=600 
  1517. dspB(ar$(2+a+3*(b-1)),80+p,5+a+(b-1)*7.5)
  1518. pixelswap
  1519. 6,113,1:
  1520. 6,112,1
  1521.  r = 2
  1522.  CASE r OF
  1523.   WHEN 1: Sol=15
  1524.   WHEN 2: Sol=25
  1525.   WHEN 3: Sol=40
  1526.  ENDCASE
  1527.  Sol=25
  1528. _sunsinit
  1529. loadplans
  1530. genplan(1)
  1531. gmerge("br11")
  1532. 6,112,2
  1533.  players=1
  1534. picture("ey1")
  1535. inframe(529,483,597,548,42)
  1536.  548,497:
  1537. 592,533:
  1538. sget("rubber")
  1539. f_yel
  1540. dspcB("How many human players wish to play?",7)
  1541. f_wht
  1542. schoose("lr")
  1543. plot(8,384,488)
  1544. schoose("ok")
  1545. plot(8,616,488)
  1546. frame(529-8,483-8,597+8,548+8,42)
  1547. inframe(529,483,597,548,42)
  1548. (players),552,13)
  1549. front(0,0,1279,1023,1)
  1550. genplan(3)
  1551.  inc=0:exit=0
  1552.  a,b,c:
  1553. getInc(384,488)
  1554. F)   players+=inc:
  1555.  players<1 players=1
  1556.  players>5 players=5
  1557. getExit(616,488)
  1558. schoose("rubber")
  1559. plot(0,548,497)
  1560. (players),552,13)
  1561. genplan(1)
  1562. wait(20)
  1563.  exit
  1564. sdelete("rubber")
  1565.  Startkapital festlegen
  1566.  players>1 
  1567.  1=0 
  1568.  6,112,2
  1569. picture("ey1")
  1570. f_yel
  1571. dspcB("How much money do the players",7)
  1572. dspcB("wish to receive?",7)
  1573. pixelswap
  1574.   actualmenu=2
  1575.   credits=5000
  1576. getMC("Receive",150)
  1577. genplan(2)
  1578. gmerge("br13")
  1579.  n=1 
  1580.  players
  1581. 6,112,2
  1582. picture("ey1")
  1583.  players=1 
  1584.    a$="P"
  1585.  1: a$="One"
  1586.  2: a$="Two"
  1587.  3: a$="Three"
  1588.  4: a$="Four"
  1589.  5: a$="Five"
  1590.    a$="Player "+a$+", p"
  1591. dspcB(a$+"lease identify yourself.",7)
  1592. f_yel
  1593. dspB("Name:",440,11)
  1594. f_wht
  1595. frame(568,520+40,826,586+40,42)
  1596.   no_texture=1
  1597. inframe(572,524+40,822,582+40,42)
  1598.   no_texture=0
  1599. front(0,0,1279,1023,1)
  1600.   gflag=1
  1601. genplan(3)
  1602. inputname("",688,524+40,0)
  1603.   gflag=0
  1604.  n=1 
  1605.  PName$=pl$
  1606.   H$(n)=pl$
  1607.  n=1 
  1608.  pl$="" 
  1609.  PName$="Arthur"
  1610.  n=1 
  1611.  H$(n)=PName$
  1612. dspcB("You are...",14)
  1613. schoose("male"):
  1614. plot(0,346,320)
  1615. schoose("female"):
  1616. plot(0,690,320)
  1617.   ta$="":tb$=""
  1618.  A,B,C:
  1619.  C=4 
  1620.  B>=320 
  1621.  B<=368 
  1622. T    
  1623.  A>346 
  1624.  A<590 
  1625. button(346,320,590,368,1):ta$="Lord":tb$="Milord":Hg(n)=1
  1626. T    
  1627.  A>690 
  1628.  A<934 
  1629. button(690,320,934,368,1):ta$="Lady":tb$="Milady":Hg(n)=2
  1630.  ta$<>""
  1631. dspcB("Welcome, "+tb$+".",20)
  1632.   time_index=
  1633.  arm>=6 
  1634. -time_index>=80
  1635. genplan(3)
  1636. genplan(2)
  1637. sdelete("male"):
  1638. sdelete("female")
  1639.  n=1 
  1640.  players
  1641.   orbit(n)=-1
  1642.   selectedsys(n)=-1
  1643.   t%(n)=30
  1644.   hi%(n)=0
  1645.   md%(n)=511
  1646.   lo%(n)=0
  1647.  actualsys=orbit(1)
  1648.  selectedsys=orbit(1)
  1649.  n=players+1 
  1650.   orbit(n)=
  1651. (Sol)
  1652. gload("ts1")
  1653. gmerge("pt1")
  1654.  n=1 
  1655.  players
  1656. 6,112,2
  1657. picture(pp$)
  1658. exoframe((X-1)*428+104,Y*160-96,(X-1)*428+284,Y*160+4)
  1659. schoose("flag"+
  1660. ((Y-1)*3+X))
  1661. plot(0,(X-1)*428+100,Y*160-100)
  1662.  m=1 
  1663.  players
  1664. P    
  1665.  flag(m)=(Y-1)*3+X 
  1666. schoose("flag0"):
  1667. plot(8,(X-1)*428+100,Y*160-100)
  1668.  n>1 
  1669. front(0,0,1279,1023,1)
  1670. f_yel
  1671.  players=1 
  1672.  a$="P" 
  1673. g(n)+" "+H$(n)+", p"
  1674.  n>1 
  1675. genplan(1)
  1676. dspcB(a$+"lease choose one of the flags.",3)
  1677. f_wht
  1678.  n=1 
  1679. front(0,0,1279,1023,1)
  1680. genplan(3)
  1681.   flag=0
  1682. genplan(1)
  1683.  a,b,c
  1684. F     
  1685.  a>(X-1)*428+104 
  1686.  b>Y*160-96 
  1687.  a<(X-1)*428+284 
  1688. b<Y*160+4 
  1689.       flag=(Y-1)*3+X
  1690. 5      
  1691.  (X-1)*428+100,Y*160-100,188,108
  1692.       
  1693. wait(20)
  1694. 2      
  1695.  (X-1)*428+100,Y*160-100,188,108
  1696.       ok=1
  1697.       
  1698.  m=1 
  1699.  players
  1700. !       
  1701.  flag(m)= flag 
  1702.  ok=0
  1703.       
  1704.      
  1705.  flag>0 
  1706.  ok=1
  1707.   flag(n)=flag
  1708.  PROCfade(1,0,13)
  1709. genplan(2)
  1710.  a=players+1
  1711.    flag=
  1712. $    
  1713.  flag=flag(b) 
  1714.  b=15:flag=0
  1715.  flag
  1716.  flag 
  1717.  flag(a)=flag
  1718.  players=1 
  1719. 6,112,2
  1720. fillarray("pr2",15)
  1721. prep(3,3)
  1722.  b=2 p=600 
  1723. dspB(ar$(2+a+3*(b-1)),80+p,5+a+(b-1)*7.5)
  1724. front(0,0,1279,1023,1)
  1725. loadplans
  1726. genplan(3)
  1727.   PMission=1
  1728.  PROCfade(2,0,15)
  1729. genplan(2)
  1730.   PMission=0
  1731. 6,112,2
  1732.  players>1 
  1733. fillarray("pr4",12)
  1734. prep(7,3)
  1735. fillarray("pr3",12)
  1736. prep(5,3)
  1737. f_wht
  1738.  b=2 p=600 
  1739. dspB(ar$(2+a+3*(b-1)),80+p,5+a+(b-1)*7.5)
  1740. front(0,0,1279,1023,1)
  1741. loadplans
  1742. genplan(3)
  1743.  r=1 
  1744.  (r=2 
  1745.  players>1)
  1746.  PDifficult=r
  1747.  noraces=0
  1748.  players>1 
  1749. <  PDifficult-=1:
  1750.  PDifficult=0 
  1751.  noraces=1: PDifficult=1
  1752.  noraces=0 
  1753.  X=players+1
  1754. 0   credits(X)=300+
  1755. (5)*50+(PDifficult-1)*150
  1756. %   etrans%(X)+=(PDifficult-1)*100
  1757.  PDifficult=3 
  1758. (4)=1 
  1759.  evillord(X)=1
  1760.  players
  1761.   efreight(n,1)=0
  1762.  PDifficult 
  1763.  1: credits(n)=300:etrans%(n)=50:ewar%(n)=5:ebomb%(n)=0:escout%(n)=0:Hl(n)=0
  1764.  2: credits(n)=200:etrans%(n)=35:ewar%(n)=5:ebomb%(n)=0:escout%(n)=0:Hl(n)=0
  1765.  d   
  1766.  3: credits(n)=50:ewar%(n)=0:etrans%(n)=20:ebomb%(n)=0:escout%(n)=0:Hl(n)=0:efreight(n,1)=20
  1767.  noraces 
  1768.  players
  1769. %P   credits(n)=1000:etrans%(n)=50:ewar%(n)=5:ebomb%(n)=0:escout%(n)=0:Hl(n)=0
  1770. (a credits=credits(1):war%=ewar%(1):trans%=etrans%(1):scout%=0:bomb%=0:freight(1)=efreight(1,1)
  1771.  PROCfade(1,0,13)
  1772. genplan(2)
  1773. 6,112,2
  1774. picture("st1")
  1775. flagload(flag(1))
  1776. gload("ts1")
  1777. gmerge("pt1")
  1778.  PROCexoframe(552,112,732,212)
  1779.  532,100:
  1780.  752,235:
  1781. sget("flback")
  1782.  PROCschoose("flag"+STR$(flag(1)))
  1783.  PROCplot(0,548,108)
  1784. gmerge("br7")
  1785. schoose("e1")
  1786. plot(0,260,140)
  1787. schoose("e2")
  1788. plot(0,784,140)
  1789. f_yel:
  1790. dspcB("Let me repeat.",3)
  1791.  players=1 
  1792. =#  a$="You, "+ta$+" "+PName$+","
  1793.   a$="The lords "
  1794.  players
  1795.    a$+=H$(n)
  1796. C"    
  1797.  (players-1): a$+=" and "
  1798.  (players): a$+=""
  1799.  a$+=", "
  1800. f_wht:
  1801. dspcB(a$,7)
  1802.  Sol 
  1803.  15: a$="small"
  1804.  25: a$="medium"
  1805.  40: a$="large"
  1806. dspcB("arrived at a "+a$+" galaxy,",9)
  1807.  PMission 
  1808.  0: a$="show who is the best"
  1809.  1: a$="conquer the stars"
  1810.  2: a$="gain financial power"
  1811.  3: a$="build a great civilization"
  1812.  players>1 
  1813.  c$="and " 
  1814.  c$=""
  1815.  players=1 
  1816.  b$="mission" 
  1817.  b$="aim"
  1818. dspcB(c$+"have the "+b$+" to "+a$+".",11)
  1819.  PDifficult 
  1820.  1: a$="weak"
  1821.  2: a$="advanced"
  1822.  3: a$="strong"
  1823.  noraces=0 
  1824.  b$="Your enemies are "+a$+"." 
  1825.  b$="There are no other races."
  1826. dspcB(b$,13)
  1827. f_yel:
  1828. dspcB("Is this correct?",16)
  1829. f_wht
  1830. 6,113,2
  1831.   time_index=
  1832. flagstep(532,100)
  1833. genplan(1)
  1834. -time_index<1 
  1835. -time_index>=1
  1836. i      c=0
  1837.  A,B,C
  1838.  C=4 
  1839.  A>260 
  1840.  A<958 
  1841.  B>140 
  1842.  B<192 
  1843. l-   
  1844.  A<504 c=1:
  1845. button(262,141,502,189,1)
  1846. m.   
  1847.  A>784 c=2:
  1848. button(787,141,1024,189,1)
  1849.  noraces 
  1850.  n=players+1 
  1851.    existing(n)=0
  1852. fade(2,0,13)
  1853. 6,112,1
  1854. 6,112,2
  1855. genplan(2)
  1856.  c=2 
  1857.  Sol>genplan 
  1858. gload("ts1")
  1859. gmerge("pt1")
  1860.   actualmenu=1
  1861. masterredo
  1862. shortinfo
  1863. hour_on
  1864.  Sol-genplan<4 
  1865. wait(50) 
  1866. genplan(1):
  1867.  genplan=Sol
  1868. hour_off
  1869. mus_fadeout
  1870. snew:
  1871. gload("pt1")
  1872. selectgalaxy
  1873.  wantit,r
  1874. 6,21,0
  1875. 6,21,9
  1876. gload("ts1")
  1877. gmerge("br14")
  1878. gmerge("br15")
  1879. 6,113,1
  1880. 6,112,2
  1881. _sunpos
  1882. picture("st"+
  1883. (mappic))
  1884.  0,0,1279,200
  1885.   SunX(0)=wrx:SunY(0)=wry
  1886.  lp=1
  1887. schoose("sun"+
  1888. (lp))
  1889.  rX=1
  1890. 5    
  1891.  Sunsize(rX)=lp 
  1892. plot(8,SunX(rX),SunY(rX))
  1893. schoose("worm")
  1894. plot(8,wrx,wry)
  1895. pixelswap
  1896. 6,112,1
  1897.  r=1 
  1898. 0     
  1899.  SYS 262291,,0,1,6,&00000000,&40404000
  1900.      font_col=&40404000
  1901. 0     
  1902.  SYS 262291,,0,1,6,&00000000,&90909000
  1903.      font_col=&90909000
  1904. *     
  1905. schoose("fade1"):
  1906. plot(0,400,60)
  1907. 0     
  1908.  SYS 262291,,0,1,6,&00000000,&c0c0c000
  1909.      font_col=&c0c0c000
  1910. *     
  1911. schoose("fade2"):
  1912. plot(0,400,60)
  1913. 0     
  1914.  SYS 262291,,0,1,6,&00000000,&fdfdfd00
  1915.      font_col=&fdfdfd00
  1916. *     
  1917. schoose("fade3"):
  1918. plot(0,400,60)
  1919. dspc("Choose this galaxy?",22)
  1920.  REPEAT MOUSE A,B,C:UNTIL C=0
  1921.  REPEAT MOUSE A,B,C:UNTIL C<>0
  1922.   accepted=0
  1923. askmaster(400,60,0)
  1924.  accepted 
  1925.  wantit=1
  1926.  r=1 
  1927. 0     
  1928.  SYS 262291,,0,1,6,&00000000,&c0c0c000
  1929.      font_col=&c0c0c000
  1930. *     
  1931. schoose("fade3"):
  1932. plot(0,400,60)
  1933. 0     
  1934.  SYS 262291,,0,1,6,&00000000,&90909000
  1935.      font_col=&90909000
  1936. *     
  1937. schoose("fade2"):
  1938. plot(0,400,60)
  1939. 0     
  1940.  SYS 262291,,0,1,6,&00000000,&40404000
  1941.      font_col=&40404000
  1942. *     
  1943. schoose("fade1"):
  1944. plot(0,400,60)
  1945. $     
  1946.  0,0,1279,200
  1947.  r<4 
  1948. dspc("Choose this galaxy?",22)
  1949.  wantit=0 
  1950. 6,112,2
  1951. picture("st"+
  1952. (mappic))
  1953.  0,0,1279,200
  1954. pixelswap
  1955. wait(20)
  1956. sdelete("fade1"):
  1957. sdelete("fade2"):
  1958. sdelete("fade3")
  1959.  wantit
  1960. 6,113,1
  1961. 6,112,2
  1962. picture("st"+
  1963. (mappic))
  1964.  0,0,1279,200
  1965.  SunX(0)=wrx:SunY(0)=wry
  1966.  lp=1
  1967. schoose("sun"+
  1968. (lp))
  1969.  rX=1
  1970.  Sunsize(rX)=lp 
  1971. plot(8,SunX(rX),SunY(rX))
  1972. schoose("worm")
  1973. plot(8,wrx,wry)
  1974. f_wht
  1975. f_yel:
  1976. dsplargeB(ar$(1),40,900):
  1977. f_wht
  1978. domap
  1979. gmerge("br9")
  1980. picture("st"+
  1981. (mappic))
  1982. frame(0,0,1279,201,42)
  1983.  no_texture=1
  1984. inframe(15,15,381,186,42)
  1985.  no_texture=0
  1986. inframe(396,69,1261,186,42)
  1987. schoose("export")
  1988. plot(0,397,15)
  1989. sdelete("export")
  1990.  0,205,1279,205
  1991. genplan(num)
  1992.  nu=1 
  1993. >16900 
  1994. mus_play(5,9):
  1995. =-200000
  1996.  genplan=Sol 
  1997.  pl_num=0 
  1998.  nu=num
  1999.  genplan<Sol 
  2000.  pl_num<>0 
  2001. _planinit
  2002. prep(pn,pa)
  2003. "( pcount(1)=1:pcount(2)=1:pcount(3)=1
  2004. picture(pp$)
  2005. sload("StartGr.Gr"+
  2006. (pn))
  2007. gmerge("pt1")
  2008.  n=2 p=120 
  2009.  p=684
  2010. frame(p,984-300*n-60,p+428,1212-300*n-60,42)
  2011. inframe(p+8,992-300*n-60,p+8+412,1204-300*n-60,42)
  2012. schoose("piccy"+
  2013. plot(0,p+16,1000-300*n-60)
  2014. loadplans
  2015. 1+ g=
  2016. ("<Planets$Dir>.Data2.pld"+
  2017. (3)))
  2018.  f=1 
  2019. #g,ar$(f)
  2020.  A,B,C:
  2021.  A,B,C:
  2022.  B>80  
  2023.  B<320 r=3
  2024.  B>380 
  2025.  B<620 r=2
  2026.  B>680 
  2027.  B<920 r=1
  2028.      
  2029.  n=2 p=120 
  2030.  p=684
  2031.      
  2032.  n=r 
  2033.       
  2034. E&      
  2035.  p+12,996-300*n-60,404,204
  2036.       
  2037. wait(20)
  2038.       
  2039. H&      
  2040.  p+12,996-300*n-60,404,204
  2041.      
  2042.  C=0 
  2043. M    
  2044.  genplan>0 
  2045. genplan(1)
  2046. fadein(f$,fx,fy)
  2047.  RESTORE 8830
  2048.  READ col
  2049.  SYS 262291,,0,1,6,&00000000,fadetable(X-1)
  2050. Y"  font_col=fadetable(X-1)     
  2051. dsp(f$,fx,fy)
  2052. wait(2)
  2053. fadeout(f$,fx,fy)
  2054.  RESTORE 8830
  2055.  FOR X=1TO17
  2056.   READ col:ar$(X)=STR$(col)
  2057.  NEXT X
  2058.  X=17
  2059.  SYS 262291,,0,1,6,&00000000,fadetable(X-1)
  2060.   font_col=fadetable(X-1)
  2061. dsp(f$,fx,fy)
  2062. wait(2)
  2063.  0,1023-(fy*40)-12,1279,56
  2064. f_wht
  2065. front(fx1,fy1,fx2,fy2,fr)
  2066. 6,112,3-fr
  2067.  fx1,fy1
  2068.  fx2,fy2
  2069. sget("screen")
  2070. 6,112,fr
  2071. schoose("screen")
  2072. plot(0,fx1,fy1)
  2073. sdelete("screen")
  2074. b_glide(gn$,gx1,gy1,gx2,gy2)
  2075.  stp,g$,gl%,ga$
  2076.  g$=gn$
  2077.  gn$="1"
  2078. gn$="4" 
  2079.  ga$=gn$ 
  2080.  ga$=""
  2081.  ((gx2<gx1 
  2082.  gn$="2") 
  2083.  (gx2>gx1 
  2084.  gn$="5")) 
  2085.  b_speed=0 
  2086. b_ps(gn$+"-1",gx1,gy1)
  2087.  arm>=3 
  2088. wait(4) 
  2089. wait(2)
  2090. b_ps(gn$+"-2",gx1,gy1)
  2091.   g$=gn$+"-2"
  2092. 1279,1023:
  2093. sget("screen")
  2094. 6,113,1
  2095. 6,112,2
  2096. schoose("screen")
  2097. plot(0,0,0)
  2098.  gr%(gx1,gy1)>0 
  2099. schoose("part"+
  2100. (gx1-1)+
  2101. (gy1-1)):
  2102. plot(0,gx1*80-80,gy1*80-80)
  2103.  human=2
  2104. (human=1
  2105. gr%(gx1,gy1)<>19)
  2106. schoose("part"+
  2107. (gx1-1)+
  2108. (gy1-1))
  2109. plot(8,gx1*80-80,gy1*80-80)
  2110.  gr%(gx1,gy1)>0 
  2111. schoose(
  2112. (gr%(gx1,gy1))):
  2113. plot(8,gx1*80-80,gy1*80-80)
  2114. 1279,1023:
  2115. sget("screen")
  2116. gx1*80-160,gy1*80-160
  2117. gx1*80+80,gy1*80+80
  2118. sget("over")
  2119.  b_speed=0 
  2120.  gx1<>gx2 
  2121.  gx2>gx1 stp=4 
  2122.  stp=-4
  2123.  gl=gx1*80-80 
  2124.  gx2*80-80 
  2125. schoose("over")
  2126. &    
  2127. plot(0,gx1*80-160,gy1*80-160)
  2128. schoose(g$)
  2129.  ga$<>""
  2130.      gl%+=1
  2131. 4     
  2132.  gl%<=3 
  2133. schoose(ga$+"-2") 
  2134. schoose(ga$)
  2135.      
  2136.  gl%=6 
  2137.  gl%=0
  2138.         
  2139. plot(8,gl,gy1*80-80)
  2140. swapscreen
  2141.  arm>=3 
  2142. wait(1)
  2143.  gy2>gy1 stp=4 
  2144.  stp=-4
  2145.  gl=gy1*80-80 
  2146.  gy2*80-80 
  2147. schoose("over")
  2148. &    
  2149. plot(0,gx1*80-160,gy1*80-160)
  2150. schoose(gn$)
  2151.  ga$<>""
  2152.      gl%+=1
  2153. 4     
  2154.  gl%<=3 
  2155. schoose(ga$+"-2") 
  2156. schoose(ga$)
  2157.      
  2158.  gl%=6 
  2159.  gl%=0
  2160.         
  2161. plot(8,gx1*80-80,gl)
  2162. swapscreen
  2163.  arm>=3 
  2164. wait(1)
  2165. schoose("part"+
  2166. (gx1-1)+
  2167. (gy1-1)):
  2168. plot(0,gx1*80-80,gy1*80-80)
  2169.  gr%(gx1,gy1)>0 
  2170.  (human=2
  2171. (human=1
  2172. gr%(gx1,gy1)<>19))
  2173. schoose(
  2174. (gr%(gx1,gy1))):
  2175. plot(8,gx1*80-80,gy1*80-80)
  2176. schoose("part"+
  2177. (gx2-1)+
  2178. (gy2-1)):
  2179. plot(0,gx2*80-80,gy2*80-80)
  2180.  gr%(gx2,gy2)>0 
  2181.  (human=2
  2182. (human=1
  2183. gr%(gx2,gy2)<>19))
  2184. schoose(
  2185. (gr%(gx2,gy2))):
  2186. plot(8,gx2*80-80,gy2*80-80)
  2187. schoose(gn$):
  2188. plot(8,gx2*80-80,gy2*80-80)
  2189. gx1*80-160,gy1*80-160
  2190. gx1*80+80,gy1*80+80
  2191. sget("over")
  2192. 6,112,1
  2193.  ((gx2<gx1 
  2194.  gn$="2") 
  2195.  (gx2>gx1 
  2196.  gn$="5")) 
  2197.  b_speed=0 
  2198. b_ps(gn$+"-1",gx2,gy2)
  2199. wait(2)
  2200. b_ps(gn$,gx2,gy2)
  2201. wait(2)
  2202.  b_speed=1 
  2203. schoose("over")
  2204. plot(0,gx1*80-160,gy1*80-160)
  2205. getfree
  2206. X tfree%=trans%-(freight(0)+freight(1)+freight(2)+freight(3)+ship(1)+ship(2)+ship(3))
  2207. error
  2208. 6,112,1:
  2209. 6,113,1
  2210.  *fx 20
  2211. mus_quit
  2212.  "Thanks for playing the EXODUS demo."
  2213.  "The full version is available"
  2214.  "from all good dealers!"
  2215.  "More infos can be found on the Artex"
  2216.  "website:"
  2217.  192   
  2218.  "http://members.aol.com/artexsoft"
  2219.  0     
  2220. $;" at line ";
  2221. =134 
  2222.  "Sprite name: ";spname$
  2223. startup
  2224.  -100,-100,20,20
  2225.  MOUSE TO -99,-99
  2226.  a$=""
  2227.  n=32
  2228.   a$+=
  2229. (n+1)
  2230.  6,112,2
  2231.  SYS 6,113,2 :REM TEST!!!
  2232.  PROCpicture("st3")
  2233. f_wht
  2234. dspB(a$,100,10)
  2235. dsplargeB(a$,100,10)
  2236.  PROCcenterB(a$,100)
  2237.  G=GET
  2238.  6,112,1
  2239.  SYS 6,113,1 :REM TEST!!!
  2240.  0,0,1279,1023
  2241.  640,512
  2242. f_wht
  2243.  SYS 262291,,0,1,6,&00000000,&fdfdfd00
  2244.  font_col=&fdfdfd00
  2245.  font_back_col=0
  2246. f_red
  2247.  SYS 262291,,0,1,6,&00000000,&0000ee00
  2248.  font_col=&0000ee00
  2249.  font_back_col=0
  2250. f_yel
  2251.  SYS 262291,,0,1,6,&00000000,&99ffff00
  2252.  font_col=&99ffff00
  2253.  font_back_col=0
  2254. f_blu
  2255.  SYS 262291,,0,1,6,&00000000,&ff880000
  2256.  font_col=&ff880000
  2257.  font_back_col=0
  2258. f_grn
  2259.  SYS 262291,,0,1,6,&00000000,&00ee0000
  2260.  font_col=&00ee0000
  2261.  font_back_col=0
  2262. f_ora
  2263.  SYS 262291,,0,1,6,&00000000,&00aaff00
  2264.  font_col=&00aaff00
  2265.  font_back_col=0
  2266. fontcol(col%)
  2267.  SYS 262291,,0,1,6,&00000000,col%
  2268.  font_col=col%
  2269.  font_back_col=0
  2270. _initagain
  2271. ),3))
  2272.  Y$="!RunImage"
  2273.  music=0
  2274.  arm=0
  2275.  N$="sEt"+j$+
  2276.  "Font_CacheAddr" 
  2277.  version
  2278.  version<335 
  2279.  blend_feature=0 
  2280.  blend_feature=1
  2281.  262273,,"FutureFont.Normal",80*16,80*16 
  2282.  mfnt%
  2283.  262273,,"FutureFont.Normal",24*16,24*16 
  2284.  bfnt%
  2285.  262273,,"FutureFont.Normal",16*16,16*16 
  2286.  sfnt%
  2287.  SYS 262291,,0,1,6,&00000000,&ffffffff
  2288.  OSCLIN$+Y$+" FF"+"8"
  2289.  SYS 262290,bfnt%,0,1,6
  2290.  SYS 262290,sfnt%,0,1,6
  2291.  SYS 262290,mfnt%,0,1,6
  2292.  262282,bfnt%
  2293.  ar$(62),XY(10)
  2294. ass_position
  2295.  position% 6000
  2296.  rnd_table% 4096
  2297. 4095:rnd_table%?X=
  2298. (256)-1:
  2299.  pass%=0 
  2300.  P%=position%
  2301.  [OPT pass%
  2302.     ]    ; R0= za - Kleinstes Feld
  2303.     ^    ; R1= zb - Groesstes Feld
  2304.    ; R2= zu setzender Stein
  2305.     `1   ; R3= Stein, neben den gesetzt werden soll
  2306.  .begin
  2307.    CMP    R3,#0
  2308.     eK   BEQ    place_at_random      ; falls =0, gleich zu RandomPos springen
  2309.     g2   MOV    R4,#0                ; Schleifenwert
  2310.     h:   MOV    R6,#0                ; Flag, ob Stein da ist
  2311.  .checkforstone_loop
  2312.    ADR    R5,planetsurface
  2313.    LDR    R5,[R5]
  2314.     oJ   LDRB   R5,[R5,R4]           ;in R5 jetzt aktueller Stein auf Planet
  2315.     qF   CMP    R5,R3                ;aktuellen Stein mit B-Stein vergl.
  2316.     s:   
  2317. Q  R6,#1                ;Flag stezen, falls gleich
  2318.    ADD    R4,R4,#1
  2319.    CMP    R4,#256
  2320.     y    BNE    checkforstone_loop
  2321.  .go_on_here
  2322.     }1   CMP    R6,#1                ;Flag gesetzt?
  2323.     ~=   BNE    place_at_random      ;Falls nicht, Random-Place
  2324.  .tacticplace_prep
  2325. ,   MOV    R5,#0                ;Loop-Var
  2326. I   MOV    R11,#0               ;Flag,ob irgendwo neben Stein was frei
  2327.  .tp_loop
  2328.    ADR    R4,planetsurface
  2329.    LDR    R4,[R4]
  2330. J   LDRB   R4,[R4,R5]           ;in R4 jetzt aktueller Stein auf Planet
  2331. 7   CMP    R4,R3                ;ist es ein B-Stein?
  2332. 3   BEQ    foundone             ;ja=>analysieren
  2333.  .tploop_goon
  2334.    ADD    R5,R5,#1
  2335.    CMP    R5,#256
  2336.    BNE    tp_loop
  2337.  .auswerten
  2338.    CMP    R11,#1
  2339. B   BNE    place_at_random      ;falls keiner da =>zu RandPlace
  2340. 6   B      tactical_place       ;ansonsten 'weiter'
  2341.  .foundone
  2342.    ;Position steht in R5
  2343.     ;Umrechnen in Koordinaten
  2344. +   MOV    R9,R5,LSR#4          ;Y-Koord
  2345.    MOV    R8,R9,LSL#4
  2346. +   SUB    R8,R5,R8             ;X-Koord
  2347. ,   MOV    R10,#1               ;Loop-Var
  2348.  .cf_freB
  2349. /   MOV    R6,R8                ;R6=X-Backup
  2350. /   MOV    R7,R9                ;R7=Y-Backup
  2351.    CMP    R10,#1
  2352.    SUBEQ  R6,R6,#1
  2353.    ADDEQ  R7,R7,#1
  2354.    CMP    R10,#2
  2355.    ADDEQ  R7,R7,#1
  2356.    CMP    R10,#3
  2357.    ADDEQ  R6,R6,#1
  2358.    ADDEQ  R7,R7,#1
  2359.    CMP    R10,#4
  2360.    ADDEQ  R6,R6,#1
  2361.    CMP    R10,#5
  2362.    ADDEQ  R6,R6,#1
  2363.    SUBEQ  R7,R7,#1
  2364.    CMP    R10,#6
  2365.    SUBEQ  R7,R7,#1
  2366.    CMP    R10,#7
  2367.    SUBEQ  R6,R6,#1
  2368.    SUBEQ  R7,R7,#1
  2369.    CMP    R10,#8
  2370.    SUBEQ  R6,R6,#1
  2371.    ;'Range Check'
  2372.    CMP    R6,R0
  2373.    BLT    afterch
  2374.    CMP    R6,R1
  2375.    BGT    afterch
  2376.    CMP    R7,R0
  2377.    BLT    afterch
  2378.    CMP    R7,R1
  2379.    BGT    afterch
  2380.    ;check, ob was frei
  2381. -   ;dazu  wieder Adresse aus R6+R7 machen
  2382.    MOV    R12,R7,LSL#4
  2383.    ADD    R12,R12,R6
  2384.    ADR    R4,planetsurface
  2385.    LDR    R4,[R4]
  2386. J   LDRB   R4,[R4,R12]          ;in R4 jetzt aktueller Stein auf Planet
  2387.    CMP    R4,#0
  2388. Q  R11,#1               ;Falls Stein=0,Flag stez.
  2389.    CMP    R4,#9
  2390. Q  R11,#1               ;Falls Stein=9,Flag stez.
  2391.  .afterch
  2392.    ADD    R10,R10,#1
  2393.    CMP    R10,#9
  2394.    BNE    cf_freB
  2395.  .checkdone
  2396.    B      tploop_goon
  2397.  .tactical_place
  2398. 7   ;Zufallsnummer aussuchen, bis es ein B-Stein ist
  2399.  .tp_start
  2400.    ADR    R6,rnd_point%
  2401.    LDR    R6,[R6]
  2402.    ADR    R5,rndtab
  2403.    LDR    R5,[R5]
  2404.    LDRB   R5,[R5,R6]
  2405.    ADD    R6,R6,#1
  2406.    CMP    R6,#4096
  2407. Q  R6,#0
  2408.    ADR    R7,rnd_point%
  2409.    STR    R6,[R7]
  2410.    ADR    R4,planetsurface
  2411.    LDR    R4,[R4]
  2412. J   LDRB   R4,[R4,R5]           ;in R4 jetzt aktueller Stein auf Planet
  2413. 7   CMP    R4,R3                ;ist es ein B-Stein?
  2414. =   BNE    tp_start             ;falls nicht, suchen gehen
  2415.  .checkif_onefree
  2416. !   ;B-Stein-Offs. steht in R5
  2417.     ;Umrechnen in Koordinaten
  2418. +   MOV    R9,R5,LSR#4          ;Y-Koord
  2419.    MOV    R8,R9,LSL#4
  2420. +   SUB    R8,R5,R8             ;X-Koord
  2421. ,   MOV    R10,#1               ;Loop-Var
  2422. 5   MOV    R11,#0               ;Flag, ob was frei
  2423.  .cf_free
  2424. /   MOV    R6,R8                ;R6=X-Backup
  2425. /   MOV    R7,R9                ;R7=Y-Backup
  2426.    CMP    R10,#1
  2427.    SUBEQ  R6,R6,#1
  2428.    ADDEQ  R7,R7,#1
  2429.    CMP    R10,#2
  2430.    ADDEQ  R7,R7,#1
  2431.    CMP    R10,#3
  2432.    ADDEQ  R6,R6,#1
  2433.    ADDEQ  R7,R7,#1
  2434.    CMP    R10,#4
  2435.    ADDEQ  R6,R6,#1
  2436.    CMP    R10,#5
  2437.    ADDEQ  R6,R6,#1
  2438.    SUBEQ  R7,R7,#1
  2439.    CMP    R10,#6
  2440.    SUBEQ  R7,R7,#1
  2441.    CMP    R10,#7
  2442.    SUBEQ  R6,R6,#1
  2443.    SUBEQ  R7,R7,#1
  2444.    CMP    R10,#8
  2445.    SUBEQ  R6,R6,#1
  2446.    ;'Range Check'
  2447.    CMP    R6,R0
  2448.    BLT    after_rc
  2449.    CMP    R6,R1
  2450.    BGT    after_rc
  2451.    CMP    R7,R0
  2452.    BLT    after_rc
  2453.    CMP    R7,R1
  2454.    BGT    after_rc
  2455.    ;check, ob was frei
  2456. ;-   ;dazu  wieder Adresse aus R6+R7 machen
  2457.    MOV    R12,R7,LSL#4
  2458.    ADD    R12,R12,R6
  2459.    ADR    R4,planetsurface
  2460.    LDR    R4,[R4]
  2461. BJ   LDRB   R4,[R4,R12]          ;in R4 jetzt aktueller Stein auf Planet
  2462.    CMP    R4,#0
  2463. E9   
  2464. Q  R11,#1               ;Falls Stein=0,Flag stez.
  2465.    CMP    R4,#9
  2466. G9   
  2467. Q  R11,#1               ;Falls Stein=9,Flag stez.
  2468.  .after_rc
  2469.    ADD R10,R10,#1
  2470.    CMP R10,#9
  2471.    BNE cf_free
  2472.  .checkcomplete
  2473.   ; MOV R0,R11;TEST!!!
  2474.   ; MOV PC,R14;TEST!!!
  2475. U3   CMP R11,#1                  ;ist einer frei?
  2476. V3   BNE tactical_place          ;Nein=>von vorne
  2477.  .do_placing
  2478. ZA   MOV    R9,R5,LSR#4          ;nochmal Y-Koord aus R5 machen
  2479.    MOV    R8,R9,LSL#4
  2480. \7   SUB    R8,R5,R8             ;nochmal X-Koord ...
  2481.  .selecta_field
  2482. a=   ADR    R11,rnd_point%       ;Zufallszahl, welches Feld
  2483.    LDR    R11,[R11]
  2484.    ADR    R10,rndtab
  2485.    LDR    R10,[R10]
  2486.    LDRB   R10,[R10,R11]
  2487.    ADD    R11,R11,#1
  2488.    CMP    R11,#4096
  2489. Q  R11,#0
  2490.    ADR    R6,rnd_point%
  2491.    STR    R11,[R6]
  2492.    MOV    R10,R10,LSR#5
  2493. m,   ADD    R10,R10,#1           ;R10=
  2494. p/   MOV    R6,R8                ;R6=X-Backup
  2495. q/   MOV    R7,R9                ;R7=Y-Backup
  2496.    CMP    R10,#1
  2497.    SUBEQ  R6,R6,#1
  2498.    ADDEQ  R7,R7,#1
  2499.    CMP    R10,#2
  2500.    ADDEQ  R7,R7,#1
  2501.    CMP    R10,#3
  2502.    ADDEQ  R6,R6,#1
  2503.    ADDEQ  R7,R7,#1
  2504.    CMP    R10,#4
  2505.    ADDEQ  R6,R6,#1
  2506.    CMP    R10,#5
  2507.    ADDEQ  R6,R6,#1
  2508.    SUBEQ  R7,R7,#1
  2509.    CMP    R10,#6
  2510.    SUBEQ  R7,R7,#1
  2511.    CMP    R10,#7
  2512.    SUBEQ  R6,R6,#1
  2513.    SUBEQ  R7,R7,#1
  2514.    CMP    R10,#8
  2515.    SUBEQ  R6,R6,#1
  2516.    ;'Range Check'
  2517.    CMP    R6,R0
  2518.    BLT    selecta_field
  2519.    CMP    R6,R1
  2520.    BGT    selecta_field
  2521.    CMP    R7,R0
  2522.    BLT    selecta_field
  2523.    CMP    R7,R1
  2524.    BGT    selecta_field
  2525.    ;Check, ob Feld frei
  2526. -   ;dazu  wieder Adresse aus R6+R7 machen
  2527.    MOV    R12,R7,LSL#4
  2528.    ADD    R12,R12,R6
  2529.    ADR    R4,planetsurface
  2530.    LDR    R4,[R4]
  2531. J   LDRB   R4,[R4,R12]          ;in R4 jetzt aktueller Stein auf Planet
  2532.    CMP    R4,#0
  2533. =   BEQ    prepareset           ;Falls Stein=0,Stein stez.
  2534.    CMP    R4,#9
  2535. =   BEQ    prepareset           ;Falls Stein=9,Stein stez.
  2536. :   B      selecta_field        ;Nix frei=>Neuen suchen
  2537.  .prepareset
  2538.    MOV    R5,R12
  2539.    B      setstone
  2540.  .place_at_random
  2541. 2   ;zufaellig auf eine (freie) Position setzen
  2542.  .random_number
  2543.    ADR    R6,rnd_point%
  2544.    LDR    R6,[R6]
  2545.    ADR    R5,rndtab
  2546.    LDR    R5,[R5]
  2547.    LDRB   R5,[R5,R6]
  2548.    ADD    R6,R6,#1
  2549. 6   CMP    R6,#4096             ; ist Pointer=4096?
  2550. Q  R6,#0                ; ja -> wieder auf 0
  2551.    ADR    R7,rnd_point%
  2552. :   STR    R6,[R7]              ; neue Zahl abspeichern
  2553.  .findfreefield
  2554.    ;Zufallszahl steht in R5
  2555.     ;Umrechnen in Koordinaten
  2556. +   MOV    R9,R5,LSR#4          ;Y-Koord
  2557.    MOV    R8,R9,LSL#4
  2558. +   SUB    R8,R5,R8             ;X-Koord
  2559.    ;'Range Check'
  2560.    CMP    R8,R0
  2561.    BLT    random_number
  2562.    CMP    R8,R1
  2563.    BGT    random_number
  2564.    CMP    R9,R0
  2565.    BLT    random_number
  2566.    CMP    R9,R1
  2567.    BGT    random_number
  2568.    ADR    R4,planetsurface
  2569.    LDR    R4,[R4]
  2570. J   LDRB   R4,[R4,R5]           ;in R4 jetzt aktueller Stein auf Planet
  2571. '   ;Check, ob geplottet werden darf
  2572. D   MOV    R6,#0                ;Flag, 1=es darf geplottet werden
  2573.    CMP    R4,#0
  2574. Q  R6,#1                ;Falls Stein=0,darf gepl. werd.
  2575.    CMP    R4,#9
  2576. Q  R6,#1                ;Falls Stein=9,darf gepl. werd.
  2577. 1   CMP    R6,#1                ;Plot erlaubt?
  2578. @   BNE    random_number        ;Nein -> Nochmal zu random_n.
  2579. G   B      setstone             ;Ansonsten weiter bei 'Stein setzen'
  2580.  .setstone
  2581.    ADR    R4,planetsurface
  2582.    LDR    R4,[R4]
  2583. L   STRB   R2,[R4,R5]           ;aktueller Stein auf Planet =Inhalt v. R4
  2584.  .exitdaroutine
  2585.    MOV    PC,R14
  2586.  ;Felder, Variablen
  2587.  .rnd_point%
  2588.    EQUD 0
  2589.    ALIGN
  2590.  .planetsurface
  2591.    EQUD planfield%
  2592.    ALIGN
  2593.  .rndtab
  2594.    EQUD rnd_table%
  2595.    ALIGN
  2596.  .rotation
  2597.    EQUD 1
  2598.    ALIGN
  2599.  pass%
  2600. 0,0,1271,1023
  2601.  eorvalue=19
  2602.  animshow=0:j$="type"
  2603.  com$(15)
  2604. ("Graphic2.cm1")
  2605.  n=0 
  2606. #A,com$(n)
  2607. ("<Planets$Dir>.!Run.opt")
  2608.  max_volume=
  2609.  init sprites for init screen
  2610.  PROCinitlib(327680) :REM =320K
  2611. initlib(400000)
  2612. sload("<Planets$Dir>.Graphic.st1")
  2613. schoose("initspr")
  2614. plot(0,388,492)
  2615. 6,4,1
  2616. _initagain
  2617.  howfast=0
  2618.  blend_featue=0
  2619.  font_col=0
  2620.  font_back_col=0
  2621. f_wht
  2622. sptest
  2623.  ** all loading here **
  2624.  *<Planets$Dir>.Font.3x5
  2625. rmload(9)
  2626. patch_terrapicture
  2627. _InitMice
  2628. mus_load("ST1")
  2629.      PROCinitlib(500000) :REM TEST!!!!!!!!!!!!!!!!!!!!!!!
  2630. ass_swap
  2631. pswapinit
  2632. rmload(rm)
  2633.  5,com$(2)+"modules.md"+
  2634. initB
  2635.  planfield% 256
  2636.  t$(685)
  2637. ("Data.gt1")
  2638.   t$(b)=""
  2639.    b$=
  2640.  eorvalue)
  2641. P*   
  2642.  b$<>
  2643. (13) 
  2644.  b$<>
  2645. (10) 
  2646.  t$(b)+=b$
  2647. (13) 
  2648. fadeinit
  2649. b_init
  2650. r_init
  2651. init_tristars
  2652. spcode
  2653. spcodeblank
  2654. ass_position
  2655. fl_init
  2656.  normalfont=0
  2657.  SolarSystems=25
  2658.  Sol=SolarSystems
  2659.  killintro=0
  2660.  lastchoice=0
  2661.  fadetable(16)
  2662.  fadetable(00)=&00000000
  2663.  fadetable(01)=&10101000
  2664.  fadetable(02)=&20202000
  2665.  fadetable(03)=&30303000
  2666.  fadetable(04)=&40404000
  2667.  fadetable(05)=&50505000
  2668.  fadetable(06)=&60606000
  2669.  fadetable(07)=&70707000
  2670.  fadetable(08)=&80808000
  2671.  fadetable(09)=&90909000
  2672.  fadetable(10)=&a0a0a000
  2673.  fadetable(11)=&b0b0b000
  2674.  fadetable(12)=&c0c0c000
  2675.  fadetable(13)=&d0d0d000
  2676.  fadetable(14)=&e0e0e000
  2677.  fadetable(15)=&f0f0f000
  2678.  fadetable(16)=&ffffff00
  2679.  sh_addx(8),sh_addy(8),sh_slen(8),sh_shgt(8),sh_name$(8),sh_vx(8),sh_vy(8),sh_px(8),sh_py(8),sh_delay%(8),sh_ai(8),sh_iadd(8),sh_X(8),sh_type(8),sh_xl(8)                           :
  2680.  films
  2681.  cnt(5),cx(5),cy(5),cw(5),cz(5),cr(5),ck(5):
  2682.  StarSheriff
  2683.  high$(4),high(4)
  2684.  already(16)                    :
  2685.  benutzt beim Planetenmachen
  2686.  markX(15,8),markY(15,8)        :
  2687.  Marker x,y-Koord.
  2688.  mark$(15,8)                    :
  2689.  Marker-String
  2690.  pc%(8),pb%(8),av%(8)           :
  2691.  Trading
  2692.  tk$(4),tk(4)                   :
  2693.  SpaceCombat
  2694.  cb(3)
  2695.  stline$(20)                    :
  2696.  fuer Monthly Status
  2697.  spotcol%(63),spottint%(63)     :
  2698.  PROCframe
  2699.  num=30
  2700.  fontsizeB=10
  2701.  flash$(num),flashx(num),flashy(num)
  2702. * flashnum=0:flashstate=0:flashactual=0
  2703.  produce(3)                     :
  2704.  fuer CalcFly
  2705.  pcount(3)
  2706.  recall_max=20
  2707.  recall$(recall_max)            :
  2708.  letzte Infos
  2709.  var(30)                        :
  2710.  FREI VERFUEGBAR!            <----
  2711.  factor% 20                     :
  2712.  fuer PROCzoom
  2713.  snum=50
  2714.  starx(snum)
  2715.  stary(snum)
  2716.  starc(snum)
  2717.  starf(snum)
  2718. 3:high$(X)="Barkeeper":high(X)=X*10657
  2719.      xy=0
  2720.  fx=0:fxc=0
  2721.  watcher=0
  2722. @ claimed=0                          :
  2723.  benutzt bei PROCclaim
  2724. L actualMenu=1                       :
  2725.  bei1:Galax-Karte,sonst Plan-karte
  2726. I spaceport=0                        :
  2727.  benutzt bei PROCcheckspaceport
  2728.  firstplanet(15)                :
  2729.  ob schon ersten Plan. besiedelt
  2730.  findvar=0
  2731. : varfound=0                         :
  2732.  ob var gefunden
  2733.  window_open=0
  2734.  noplanet=0
  2735.  whichlord=0
  2736.  nomoney=0
  2737.  spotted=0
  2738.  aliens=0
  2739. D nonclick=0                         :
  2740.  ob MK-Confirm erlaubt ist
  2741.  xx%=0:yy%=0
  2742. I trans%=50                          :
  2743.  Anz.d.Spieler-Transportschiffe
  2744. 9 scout%=0                           :
  2745.  Spielerschiffe
  2746. , war%=3                             :
  2747. , bomb%=0                            :
  2748.  ckind=0
  2749.  useproc=0
  2750.      cr=0
  2751.  inc=0
  2752.  firm=0
  2753.  decision=0
  2754. 4 connum=0                           :
  2755.  Konferenz
  2756.  gflag=0
  2757.  fwn=0
  2758.  PMission=1
  2759.  PDifficult=1
  2760.  codde=0
  2761.  ftime=0
  2762.  hour=0
  2763.  flysys=0
  2764.  mappic=6
  2765.  usenova=0
  2766.  attacklord=0
  2767.  reput=3
  2768.  players=1
  2769.  usepattern=1
  2770.  hour_time=0
  2771.  nopirates=0
  2772. ) oldp=-1                :
  2773.  fuer Musik
  2774. , chold=0                :
  2775.  fuer Slavemap
  2776. * mousewait=0            :
  2777.  bei CalcFly
  2778.  pl_num=0
  2779.  pl_act=0
  2780. 0 old_c=0                :
  2781.  fuer Transfer etc
  2782. 5 jt=0                   :
  2783.  Lord zum Test auslesen
  2784. / san=0                  :
  2785.  fuer PROCsayanim
  2786. / sanc=0                 :
  2787.  fuer PROCsayanim
  2788.  lastsaveplace=0
  2789. : fght%=0                :
  2790.  ob gerade LunarBattle aktiv
  2791.  festival=0
  2792. 0 mustclear=0            :
  2793.  fuer PROCfillstat
  2794.  soonplay=0
  2795. ) atlord=0               :
  2796.  fuer Kampf
  2797.  old_C=0
  2798.  inventnow=0
  2799.  hyp=0:hypc=0
  2800.  ta$="Lord":tb$="Milord"
  2801.  rcd$="fl2"
  2802.  battlecom=0
  2803.  backtoslave=0
  2804.  quittalk=0:letexit=0
  2805.  lookagain=0
  2806.  rebelpeace=0
  2807.  donecode=0
  2808.  inmenu=0
  2809.  usemeteor=0
  2810.  recall_num=0
  2811.  usemark=0
  2812.  chcount=0
  2813. < actualplayer=1         :
  2814.  fuer Laden in Mehrspielermode
  2815.  useanim=0
  2816.  escpressed=0
  2817.  screentype=0
  2818.  noraces=0
  2819.  no_texture=0
  2820. R plralley=1             :
  2821.  unsaubere Reparatur des Rebel-MissingVariable-Fehl.
  2822.  track_x=640
  2823.  track_y=512
  2824.  track_lock=0
  2825.  stsh%(15,10)       :
  2826.  Schiff-Ausstattung (1=Spieler)
  2827.  t%(15)             :
  2828.  science(+control)-Werte(1=Sp)
  2829.  credits(15)        :
  2830.  Vermoegen der Feinde
  2831.  orbit(15)          :
  2832.  Wo Schiff der Feinde ist (Stern)
  2833.  tactic(15)         :
  2834.  Plan des Feindes
  2835.  flying(15)         :
  2836.  ob der Lord gerade fliegt
  2837.  TS(15)             :
  2838.  Zielstern fuer Feind-Aktionen
  2839.  TP(15)             :
  2840.  Zielplanet fuer Feind-Aktionen
  2841.  eship(15,3)        :
  2842.  Armeen auf Feind-Schiff
  2843.  efreight(15,3)     :
  2844.  Fracht auf Feind-Schiff
  2845.  flag(15)           :
  2846.  wer welche Flagge hat
  2847.  existing(15)       :
  2848.  ob der Feind noch lebt
  2849.  gmember(15)        :
  2850.  ob Mitglied in der Gilde
  2851.  firstcity%(15)     :
  2852.  ob schon 1. Stadt gebaut
  2853.  MI(15)             :
  2854.  Geheimauftrag
  2855.  MIs(15)            :
  2856.   " Ziel-Stern
  2857.  MIp(15)            :
  2858.   " Ziel-Planet
  2859.  evillord(15)       :
  2860.  welchen Feind Lord hat
  2861.  whichp(15)         :
  2862.  welcher Plan. gerade gebaut wird
  2863.  pphase(15)         :
  2864.  in welcher Bauphase WarPlanet
  2865.  psun(15,9)         :
  2866.  WarPlan-Standort
  2867.  ptarget(15,9)      :
  2868.   "     -Zielort
  2869.  invent%(15,14)     :
  2870.  Erfindungen
  2871.  etrans%(15)        :
  2872.  Feindflotte
  2873.  ewar%(15)          :
  2874.  escout%(15)        :
  2875.  ebomb%(15)         :
  2876.  hi%(15)            :
  2877.  Eigenschaften
  2878.  md%(15)            :
  2879.  lo%(15)            :
  2880.  v%(3,7)            :
  2881.  Benutzt bei Menugestaltg.
  2882.  rau_c(1),rau_x(1),rau_y(1),rau_l(1),rau_d(1),rau_t(1)
  2883. 4                        :
  2884.  Raumer bei PROCstatus
  2885.  b$(25)             :
  2886.  kann frei benutzt werden!              <----
  2887.  Ps%(15,5)          :
  2888.  Skill des Staffs
  2889.  Pm(5)              :
  2890.  monatl. MC d.S.
  2891.  veh(7,5)           :
  2892.  Vehikel
  2893.  reput(15)          :
  2894.  Ruf der Lords
  2895.  ftime(15)          :
  2896.  Flugzeit (nur f. andere Spieler)
  2897.  selectedsys(15)    :
  2898.  Auswahlsys (nur f. andere Spieler)
  2899.  trace%(20)         :
  2900.  Notiere, was Spieler so tut (fuer Ende)
  2901.  lordvar(15)        :
  2902.  spezielle Lord-Infos
  2903.  punish%(15,2)      :
  2904.  Guild-Akte
  2905.  rotphase%(5)       :
  2906.  Rotationsphase der Planeten
  2907.  verhalten(7,7)     :
  2908.  Mehrspieler: Verhalten zu anderen Lords
  2909.  pl$=""
  2910. #* PName$=""              :
  2911.  Spielername
  2912. $> ttl=0                  :
  2913.  hoechst. bisherig. Titel d. Sp.
  2914.  ship(3)            :
  2915.  Soldaten auf Schiff
  2916.  freight(3)         :
  2917.  Waren auf Schiff
  2918.  c(7),c$(7)         :
  2919.  nur fuer PROCscientists, ansonsten frei <----
  2920.  shift%(16)         :
  2921.  nur fuer PROCshowplanet, ansonsten frei <----
  2922.  ship(1)=0
  2923.  ship(2)=0
  2924.  ship(3)=0
  2925.  freight(0)=0
  2926.  freight(1)=0
  2927.  freight(2)=0
  2928.  freight(3)=0
  2929. 4N verhalten()=2          :
  2930.  anfangs alle Menschl.Spieler neutral zueinander
  2931.  radioX(15),radioY(15)
  2932.  surf%(17,17)
  2933.  price(16)
  2934.  price(1)=20
  2935.  price(2)=3
  2936.  price(3)=15
  2937.  price(4)=25
  2938.  price(5)=30
  2939.  price(6)=5
  2940.  price(7)=10
  2941.  price(8)=20
  2942.  price(9)=30
  2943.  price(10)=15
  2944.  price(11)=10
  2945.  price(12)=20
  2946.  price(13)=100
  2947.  price(14)=120
  2948.  price(15)=10
  2949.  prices(3,8,2)
  2950.  plandat(15,6)
  2951. L& A=
  2952. ("<Planets$Dir>.font.fontdat")
  2953.  z=1 
  2954.  x=1 
  2955. #A,prices(z,x,1)
  2956.  y=1 
  2957. #A,prices(z,y,2)
  2958. W& A=
  2959. ("<Planets$Dir>.font.plandat")
  2960.  y=1 
  2961.  x=1 
  2962. #A,plandat(y,x)
  2963.  partyAT=0
  2964.  partyPA=0
  2965.  flying=0
  2966.  accepted=0
  2967. f5 icon=0                 :
  2968.  Raumschifficon-Counter
  2969. g4 icond=1                :
  2970.  Counter-Zaehlrichtung
  2971. h4 credits=300            :
  2972.  Vermoegen d. Spielers
  2973. k7 row=0                  :
  2974.  fuer Kommunik. mit Feind
  2975. l8 won=0                  :
  2976.  ob eine Schlacht gewonnen
  2977. m9 attacker=0             :
  2978.  ob man der Angreifende ist
  2979.  rebels=0
  2980. o" sgr$="<Planets$Dir>.StartGr."
  2981.  radiocount=0
  2982.  title$(8)
  2983.  RESTORE
  2984.  n=1 
  2985.  7:title$(n)=t$(n):
  2986.  race$(4)
  2987.  n=0 
  2988.  4:race$(n)=t$(8+n):
  2989.  H$(15)             :
  2990.  Namen der 15 Herrscher (1=Spieler)
  2991.  Hl(15)             :
  2992.  Rasse der  "
  2993.  Ha(15)             :
  2994.  Anreden    "
  2995.  Hg(15)             :
  2996.  Geschlecht " (1=m,2=w)
  2997. 9 selected=0             :
  2998.  Planet, der gewaehlt wurde
  2999. 8 actual=2               :
  3000.  Planet, wo Raumschiff ist
  3001.  selectedsys=0
  3002.  allied(15,15)      :
  3003.  mit wem Buendnis geschlossen ist
  3004. ("Data.sb1")
  3005. #A,spotcol%(X),spottint%(X)
  3006. 15:Hl(X)=
  3007.  H$(1)=PName$
  3008. fillarray("ld"+
  3009. (Hl(X)),15)
  3010.    R=
  3011. !   H$(X)=
  3012. ar$(R),
  3013. (ar$(R))-2)
  3014. ar$(R),1)="m" 
  3015.  Hg(X)=1 
  3016.  Hg(X)=2
  3017.    ok=1
  3018. #    
  3019.  H$(Y)=H$(X) 
  3020.  Y<>X 
  3021.  ok=0
  3022.   reput(X)=3
  3023. (4)=1 
  3024.  evillord(X)=
  3025. (15): 
  3026.  evillord(X)<>X
  3027.   tactic(X)=0
  3028.   etrans%(X)=50
  3029.  Hl(X)=1 
  3030. %   hi%(X)=132         :
  3031.  bits 2 7
  3032. +   md%(X)=369         :
  3033.  bits 0 4 5 6 8
  3034. %   lo%(X)=10          :
  3035.  bits 1 3
  3036.  Hl(X)=2 
  3037. )   hi%(X)=394         :
  3038.  bits 1 3 7 8
  3039. #   md%(X)=4           :
  3040.  bits 2
  3041. )   lo%(X)=113         :
  3042.  bits 0 4 5 6
  3043.  Hl(X)=3 
  3044. +   hi%(X)=241         :
  3045.  bits 0 4 5 6 7
  3046. %   md%(X)=12          :
  3047.  bits 2 3
  3048. %   lo%(X)=258         :
  3049.  bits 1 8
  3050.  Hl(X)=4 
  3051. '   hi%(X)=289         :
  3052.  bits 0 5 8
  3053. )   md%(X)=90          :
  3054.  bits 1 3 4 6
  3055. %   lo%(X)=132         :
  3056.  bits 2 7
  3057.  Hl(X)=0 
  3058. &   md%(X)=511         :
  3059.  alle bits
  3060.  X=1 
  3061.   existing(X)=1
  3062.   stsh%(X,2)=1
  3063.   stsh%(X,4)=5
  3064.   t%(X)=30
  3065.  hi%(X) 
  3066.  t%(X)-=10
  3067.  hi%(X) 
  3068.  t%(X)+=10
  3069.  lo%(X) 
  3070.  t%(X)-=10
  3071. 2 mmbx=0                       :
  3072.  Sterne-Marker
  3073.  mmby=0
  3074.  MOVE 0,0:MOVE 4,4:PROCsget("mmb")
  3075.  FORX=1TO15:credits(X)=50000:invent%(X,7)=1:invent%(X,8)=1:NEXT:REM TEST!!!
  3076.  credits=1000:invent%(1,7)=1:invent%(1,8)=1
  3077.  Sol=40:
  3078. dim_sol
  3079. startup
  3080. dim_sol
  3081.  S=Sol
  3082.  SIs(S,5)         :
  3083.  Sold monatl.
  3084.  SIn$(S,5)        :
  3085.  Name
  3086.  SIi(S,5)         :
  3087.  Inhaber
  3088.  SIb(S,5)         :
  3089.  Lunar Base
  3090.  SIt(S,5)         :
  3091.  Tradingklasse
  3092.  SIk%(S,5,3)      :
  3093.  Krieger
  3094.  SIr(S,5)         :
  3095.  Zufriedenheit
  3096.  SIg%(S,5,3)      :
  3097.  Lager
  3098.  SIna(S,5)        :
  3099.  Nahrung-Anbau
  3100.  SIc(S,5)         :
  3101.  wie viele Staedte
  3102.  SIam(S,5)        :
  3103.  Geld fuer Army
  3104.  SId(S,5)         :
  3105.  Durchmesser
  3106.  SIv(S,5)         :
  3107.  Verteid.geschuetze
  3108.  SIrm(S,5)        :
  3109.  Rohmaterialien
  3110.  SIu(S,5)         :
  3111.  Kommunikation+AddTaxes -Flag
  3112.  SIgr(S,5)        :
  3113.  GuardRobots
  3114.  SIm%(S,5)        :
  3115.  Monde
  3116.  SIpo%(S,5)       :
  3117.  Population
  3118.  SIl%(S,5)        :
  3119.  LAW-Einstellungen
  3120.  SItb%(S,5)       :
  3121.  Statistik-Tabelle
  3122.  SunX(S),SunY(S),SunE(S,15),SunP(S),sunsel(S)
  3123.  Sunsize(S)
  3124.  SunName$(S)
  3125.  plan(S,5)
  3126.  planX(S,5),planY(S,5)   :
  3127.  Planetenkoordinaten
  3128.  pspeed(S,5)             :
  3129.  Rotationsgeschwindigkeit
  3130.  ps(S,5)                 :
  3131.  auch Rotation
  3132.  animate(S,5)            :
  3133.  welche Animationsstufe dran ist
  3134.  surf$(S-1,4,15)
  3135.  plan(X,5)=0 
  3136.    planX(X,5)=1100
  3137.    planY(X,5)=500
  3138.    pspeed(X,5)=10
  3139.  actualsys=-1
  3140.  selectedsys=-1
  3141.  showorb=1
  3142. slavemap
  3143.  plan(selectedsys,a) 
  3144.  chold=a
  3145.  s=selectedsys
  3146.  actualmenu=2
  3147. gload("ts2")
  3148.  plan(s,X)<>0 
  3149. schoose("sphere"+
  3150. (plan(s,X)))
  3151. plot(0,planX(s,X),planY(s,X))
  3152.  X+=1: 
  3153.  plan(s,X)
  3154.  actual=X:selected=X
  3155.  sunsel(s)>0 
  3156.  plan(s,sunsel(s))>0 
  3157.  selected=sunsel(s)
  3158.  actual=selected:X=selected
  3159. smerge("graphic2.pa"+
  3160. (plan(s,actual)))
  3161.  findvar=0 
  3162. showaplanet(0)
  3163. 6,113,1
  3164. slaveanimate
  3165. plannames
  3166.  p,i,sl,col1,tint1,col2,tint2
  3167.  p=1 
  3168.   sl=selectedsys
  3169.   i=SIi(sl,p)
  3170.  i>0 
  3171.  plan(sl,p)>0 
  3172.  plan(sl,p)<>7 
  3173. %O   
  3174.  i=1 
  3175.  col1=47:tint1=0:col2=5:tint2=192 
  3176.  col1=3:tint1=0:col2=2:tint2=0
  3177. &]   
  3178. pixel(SIn$(sl,p),planX(sl,p)+76-
  3179. (SIn$(sl,p))*8,planY(sl,p)-32,col1,tint1,col2,tint2)
  3180. mastermap
  3181. fillarray("JK1",6):cha$=ar$(1):chb$=ar$(2):chc$=ar$(3)
  3182. -( chd$=ar$(4):che$=ar$(5):chf$=ar$(6)
  3183. 6,4,1
  3184.  actualmenu=1
  3185.  X=players+1 
  3186.  Sol:SunE(Y,X)=1:
  3187. 6,113,2
  3188. 6,112,1
  3189. gload("ts1")
  3190. gmerge("pt1")
  3191.  plr=actualplayer
  3192. mredo
  3193. pixelswap
  3194. 6,112,2
  3195. mainloop
  3196. mredo
  3197.  lp,rett,sls
  3198. domap
  3199. shortinfo
  3200.  SunX(0)=wrx:SunY(0)=wry
  3201.  lp=1
  3202. schoose("sun"+
  3203. (lp))
  3204.  rX=1
  3205. D4   
  3206.  Sunsize(rX)=lp 
  3207. plot(8,SunX(rX),SunY(rX))
  3208.  rX=1
  3209.  Sunsize(rX)>4 
  3210. I%   
  3211. schoose("sun"+
  3212. (Sunsize(rX)))
  3213. J!   
  3214. plot(8,SunX(rX),SunY(rX))
  3215. schoose("worm")
  3216. plot(8,wrx,wry)
  3217.  rX=1
  3218.  markX(1,rX)<>0 
  3219. Q+   
  3220. markstar(markX(1,rX),markY(1,rX),2)
  3221. R@   
  3222. pixel(mark$(1,rX),markX(1,rX),markY(1,rX)-4,52,192,48,0)
  3223.  flying>0 
  3224. schoose("dest")
  3225.  flysys>0 
  3226. X-   
  3227. plot(8,SunX(flysys)-8,SunY(flysys)-8)
  3228. plot(8,wrx-8,wry-8)
  3229.  normalfont>1 
  3230.  flying=0 
  3231.  sls=selectedsys
  3232.  sls<>0 
  3233.  sls<>-1 
  3234.  mmbx=SunX(sls):mmby=SunY(sls) 
  3235.  mmbx=wrx:mmby=wry
  3236.  mmbx,mmby
  3237.  mmbx+56,mmby+56
  3238. sget("mmb")
  3239.  selectedsys<>0 
  3240.  normalfont>1 
  3241. f"  rX=selectedsys:
  3242. showastar(0)
  3243.  (selectedsys=actualsys 
  3244.  flying=0) 
  3245.  (flying=1 
  3246.  flysys=selectedsys) 
  3247. markstar(mmbx,mmby,3) 
  3248. markstar(mmbx,mmby,1)
  3249. info(text$,row)
  3250.  xk=404
  3251.  row=1 
  3252.  yk=148
  3253.  row=2 
  3254.  yk=112
  3255.  row=3 
  3256.  yk=76
  3257. sfpB(text$,xk,yk)
  3258. picture(pic$)
  3259.  5,com$(13)+"pictures."+pic$
  3260. shortinfo
  3261.  SIi(A,B)=1 
  3262.  c+=1
  3263.  m=normalfont-1:
  3264.  m<1 m=1
  3265. sfp(t$(13),24,108):
  3266. f_yel:
  3267. 166,110,156,37:
  3268. (m),176,108)
  3269. f_wht
  3270. sfp(t$(14),24,68):
  3271. f_yel:
  3272. 211,65,154,37:
  3273. (credits),216,68)
  3274. f_wht
  3275. sfp(t$(15),24,28):
  3276. f_yel:
  3277. 184,23,81,39:
  3278. (c),192,28)
  3279. f_wht
  3280.  players>1 
  3281. 22,142,243,40
  3282. sfp(PName$,24,148)
  3283. slaveanimate
  3284.  mcount,rwt,findleave
  3285.  rotphase%()=0
  3286. =0:mcount=1
  3287.  actualmenu=2
  3288.  s=selectedsys
  3289.  findvar=1 
  3290.    varfound=0
  3291. A    
  3292.  mcount=0 
  3293. cleartext:mcount=1 
  3294. info(t$(16),1):mcount=0
  3295.  1=0 
  3296.    s=selectedsys:X=selected
  3297. "   sx=planX(s,X):sy=planY(s,X)
  3298.  mcount=0 
  3299. markpl(sx,sy,SIi(s,X))
  3300.     mcount=1
  3301. '    
  3302. schoose("sphere"+
  3303. (plan(s,X)))
  3304. &    
  3305. plot(0,planX(s,X),planY(s,X))
  3306.     mcount=0
  3307. schoose("rot"+
  3308. (rotphase%(actual))):
  3309. plot(0,planX(s,actual),planY(s,actual))
  3310. G  rotphase%(actual)+=1:
  3311.  rotphase%(actual)=90 
  3312.  rotphase%(actual)=0
  3313.  FOR rwt=1 TO 9:WAIT:NEXT
  3314.   rwt=
  3315. >rwt+9
  3316. mouse
  3317.  actualmenu=1 
  3318.  varfound=1 
  3319.  waitnow=1 
  3320.  findleave=1
  3321.  findleave 
  3322. gload("ts1"):
  3323. gmerge("pt1")
  3324.   actualmenu=1
  3325.  findvar=0 
  3326.  sunsel(s)=selected
  3327.  varfound=0 
  3328.  backtoslave=0 
  3329. fade(1,1,15)
  3330. gload("ts1"):
  3331. gmerge("pt1")
  3332. masterredo
  3333. gload("ts1"):
  3334. gmerge("pt1")    
  3335. fade(1,0,15):actualmenu=1
  3336. masteranimate
  3337.  mcount,waitnow,sst
  3338. =0:mcount=0:ptnr=1
  3339.  actualmenu=1
  3340.  normalfont=0 
  3341. start_the_lords
  3342.  PROCcalculatefly
  3343.  PROCcalculatefly
  3344.  findvar=1 
  3345. A    
  3346.  mcount=0 
  3347. cleartext:mcount=1 
  3348. info(t$(17),1):mcount=0
  3349.  mcount=0 
  3350.      
  3351.  selectedsys>0 
  3352. ^      sst=1:
  3353.  (selectedsys=actualsys 
  3354.  flying=0) 
  3355.  (flying=1 
  3356.  selectedsys=flysys) 
  3357.  sst=3
  3358. <      
  3359. markstar(SunX(selectedsys),SunY(selectedsys),sst)
  3360.      
  3361. ^      sst=1:
  3362.  (selectedsys=actualsys 
  3363.  flying=0) 
  3364.  (flying=1 
  3365.  selectedsys=flysys) 
  3366.  sst=3
  3367.        
  3368. markstar(wrx,wry,sst)
  3369.      
  3370.      mcount=1
  3371.         
  3372.      
  3373. schoose ("mmb")
  3374.      
  3375. plot(0,mmbx,mmby)
  3376.      mcount=0
  3377.         
  3378. mastermouse
  3379.  waitnow=1 
  3380.  varfound=1 
  3381.  screentype=1
  3382.  PROCredo
  3383.  PROCcleartext
  3384. mouse
  3385.  ksel=0
  3386.  s=selectedsys:sel=s
  3387.  findvar=0 
  3388.  I$=" " 
  3389.    actualmenu=1:waitnow=1
  3390.  players<2 
  3391.  backtoslave=1
  3392.  IF (I$="s" OR I$="S") THEN
  3393.  IF lastsaveplace>0 THEN r=lastsaveplace:PROCsaveHD
  3394.  IF lastsaveplace=0 THEN PROCcounselor(16)
  3395.  ENDIF
  3396. (27) 
  3397.  grosse_ausnahme=1 
  3398.  varfound=0:findleave=1:
  3399.  a,b,c:
  3400.  c=0 
  3401.  c=2 
  3402.  findvar=0 
  3403. smlmenu
  3404.  ksel=6 
  3405.   actualmenu=1:waitnow=1
  3406.  players<2 
  3407.  backtoslave=1
  3408.  ksel=5 
  3409.   actualmenu=1
  3410. gload("ts1")
  3411. gmerge("pt1")
  3412. showdist(1)
  3413.  IF ksel=7 THEN
  3414.  IF lastsaveplace>0 THEN r=lastsaveplace:PROCsaveHD
  3415.  IF lastsaveplace=0 THEN PROCcounselor(16)
  3416.  ENDIF
  3417.  findvar=0 
  3418.  b>=13 
  3419.  b<=63 
  3420.  a>403 
  3421.  a<601 
  3422. cbutton(1)
  3423.  SIi(s,actual)=1 
  3424.      lookagain=0
  3425.      
  3426.       
  3427. showplanet(1)
  3428.      
  3429.  lookagain=0
  3430.      a=0:b=0:c=0
  3431.         
  3432.      
  3433. bombplan
  3434.         
  3435. +    
  3436.  festival=1 
  3437. celebrate:a=0:b=0:c=0
  3438.  (a>607 
  3439.  a<841) 
  3440.  (I$="I" 
  3441. I$="i") 
  3442.  selected<>0 
  3443. &    
  3444. cbutton(2):
  3445. status:
  3446. slaveredo
  3447.  a,b,c:
  3448.         
  3449.  a>847 
  3450.  a<1069 
  3451. cbutton(3)
  3452.  )    
  3453.  SIi(s,actual)<>0 
  3454. comm 
  3455. claim
  3456. "1   
  3457.  a>1075 
  3458.  a<1261 
  3459. cbutton(4):actualmenu=1
  3460.   s=selectedsys
  3461.  plan(s,X)>0 
  3462. 'Z    
  3463.  a>planX(s,X) 
  3464.  b>planY(s,X) 
  3465.  a<planX(s,X)+150 
  3466. b<planY(s,X)+150 
  3467.  selected<>X 
  3468. ($     
  3469.  findvar=0 
  3470. showaplanet(1)
  3471. )(     
  3472.  plan(s,X)<>plan(s,selected) 
  3473. *;      
  3474. gload("ts2"):
  3475. smerge("graphic2.pa"+
  3476. (plan(s,X)))
  3477.      
  3478.      selected=X
  3479.      actual=X
  3480. .        
  3481. 0[    
  3482.  a>planX(s,X) 
  3483.  b>planY(s,X)-66 
  3484.  a<planX(s,X)+150 
  3485. b<planY(s,X)-36 
  3486.  SIi(s,X)=1 
  3487.      sft=40:
  3488.  X=5 
  3489.  sft=68
  3490. 2=     
  3491. inputname(SIn$(s,X),planX(s,X)-sft,planY(s,X)-80,1)
  3492.      SIn$(s,X)=pl$
  3493.      
  3494. 5        
  3495.   varfound=0
  3496.  plan(s,X)>0 
  3497. =`     
  3498.  a>planX(s,X) 
  3499.  b>planY(s,X) 
  3500.  a<planX(s,X)+150 
  3501. b<planY(s,X)+150 
  3502.  fplan=X:varfound=1
  3503. celebrate
  3504.  festival=0
  3505. gmerge("ct4")
  3506. mpart(18)
  3507. 6,112,2
  3508. frame(0,209,1279,1023,42)
  3509. inframe(8,217,1271,1015,42)
  3510. schoose("export")
  3511. plot(0,12,221)
  3512. sdelete("export")
  3513.  SYS 262291,,0,1,6,&44000000,&ffffff00
  3514. N/ font_col=&ffffff00:font_back_col=&44000000
  3515. cdsB(t$(18)+SIn$(selectedsys,actual),32,2)
  3516. front(0,209,1279,1023,1)
  3517. getMK
  3518. bombplan
  3519.  exit,looked,empty
  3520.  SIi(s,actual)=0 
  3521.  empty=1
  3522.  s<>actualsys 
  3523. counselor(7):
  3524. fillarray("bm1",12)
  3525. 6,112,2
  3526. frame(372,242,908,881,42)
  3527. inframe(380,250,899,875,42)
  3528. f_yel
  3529. dspB(ar$(1),400,5)
  3530. dspB(ar$(3),400,9)
  3531. dspB("Exit",400,19)
  3532. f_wht
  3533. dspB(ar$(2),400,6)
  3534. dspB(ar$(12),400,7)
  3535.  empty=1 
  3536. f_gre
  3537. dspB(ar$(n),400,n+6)
  3538. f_wht
  3539. front(372,242,908,881,1)
  3540.  flashnum=0:flashactual=0
  3541.   d=0:e=0:h=-1:i=-1
  3542. pickrow
  3543.  row 
  3544.  7: e=1
  3545.  8: e=2
  3546.  11: d=2
  3547.  12: d=3
  3548.  13: d=4
  3549.  14: d=5
  3550.  15: d=11:h=12:i=13
  3551.  16: d=14:h=15:i=16
  3552.  17: d=17
  3553.  18: d=99
  3554.  20: exit=1
  3555.  d>0 
  3556.  empty=1 
  3557.  d>0 
  3558.  e>0 
  3559.  exit
  3560.  d>0 
  3561.  bomb%=0 
  3562. redo:
  3563. counselor(6):
  3564.  e>0 
  3565.  scout%=0 
  3566. redo:
  3567. counselor(8):
  3568.  d>0 
  3569. flybomb(d,h,i,1):SIr(s,actual)+=1:punish%(1,2)=1:trace%(9)+=1
  3570.  e>0 
  3571.  empty=0 
  3572. flyscout 
  3573.  X=sel:Y=actual:
  3574. showplanet(2)
  3575. gload("ts2"):
  3576. smerge("graphic2.pa"+
  3577. (plan(sel,actual)))
  3578. enemybomb
  3579.  looked
  3580.  X=xx:Y=yy
  3581.  mousewait 
  3582.  mousewait=0:
  3583. getMK
  3584. donotice(X,Y,t$(19))
  3585. cms(t$(20),5,1)
  3586. playsoon(8)
  3587. cms(H$(lord)+t$(21),7,1)
  3588. decode(X,Y)
  3589.  a=0:b=0
  3590.  A=1 
  3591.  B=1 
  3592.    su=surf%(A,B)
  3593.  su=11 
  3594. su=12 
  3595. su=13 
  3596.  b+=1
  3597.  su=4 
  3598.  a+=1
  3599.  d=4:h=-1:i=-1
  3600.  a=0 
  3601. (4)=1 
  3602.  SIc(X,Y)>0 
  3603.  (hi%(lord) 
  3604.  ((lo%(lord) 
  3605.  1)=0) 
  3606. (3)=1 
  3607.  b>0 
  3608.  d=11:h=12:i=13
  3609. flybomb(d,h,i,lord)
  3610.  looked 
  3611. redo:mousewait=0
  3612. flyscout
  3613.  att,def,vds
  3614. 8 allied(1,SIi(s,actual))=0:allied(SIi(s,actual),1)=0
  3615. 6,112,2
  3616. picture("ws"+
  3617. (plan(s,actual)))
  3618. f_yel
  3619. dspB(t$(22),400,5)
  3620. f_wht
  3621.  SIv(s,actual)>0 
  3622.  SIv(s,actual)
  3623. (4)=1 
  3624.  def+=1
  3625.  e=2 
  3626.  bomb%>0 
  3627.  bomb%
  3628. (25)=1 
  3629.  att+=1
  3630.  e=2 
  3631. (def/2)
  3632.   c=d:
  3633.  c>20 
  3634.  c=20
  3635.  c>scout% 
  3636.  c=scout%
  3637.  d>bomb% d=bomb%
  3638.   bomb%-=d
  3639. !  c=def:
  3640.  c>scout% 
  3641.  c=scout%
  3642.  att>SIv(s,actual) att=SIv(s,actual)
  3643.  SIv(s,actual)-=att
  3644.  scout%-=c
  3645. dspB(t$(23),400,7)
  3646. dspB("hit "+
  3647. (c)+" scouts.",400,8)
  3648.  vds=10
  3649.  e=2 
  3650. dspB(
  3651. (att)+t$(24),400,10)
  3652. dspB(t$(26),400,11)
  3653. dspB(
  3654. (d)+t$(25),400,13)
  3655. dspB(t$(27),400,14)
  3656.   vds=16
  3657.  scout%>0 
  3658. dspB(t$(28),400,vds)
  3659. front(380,250,899,875,1)
  3660. getMK
  3661.   X=selectedsys:Y=actual
  3662. showplanet(2)
  3663. getMK
  3664. flybomb(bk,h,i,lord)
  3665.  att,def,count,bm,alvil,look,sko
  3666.  lord=1 
  3667.   X=selectedsys:Y=actual
  3668.   actual=Y
  3669.  sel=X:s=X
  3670. > allied(lord,SIi(s,actual))=0:allied(SIi(s,actual),lord)=0
  3671.  (lo%(SIi(s,actual)) 
  3672.  1)=0 
  3673.  evillord(SIi(s,actual))=lord
  3674.  lord=1 
  3675. 6,112,2
  3676.  bk=5 
  3677.  SIr(X,Y)+=2
  3678.  lord=1 
  3679. picture("ws"+
  3680. (plan(s,actual)))
  3681. f_yel
  3682. dspB(t$(29),400,5)
  3683. f_wht
  3684.  SIv(s,actual)>0 
  3685.  SIv(s,actual)
  3686.  bk=99 
  3687.  R=3 
  3688. (R)=1 
  3689.  def+=1
  3690.  lord=1 
  3691.  bm=bomb% 
  3692.  bm=ebomb%(lord)
  3693. (6)=1 
  3694.  att+=1
  3695.  def>bm def=bm
  3696.  bm-=def
  3697.  bk=99 
  3698.  att>SIv(s,actual) att=SIv(s,actual)
  3699.   SIv(s,actual)-=att
  3700. decode(sel,actual)
  3701.  count=0
  3702.  alvil=0
  3703.  A=1 
  3704.  B=1 
  3705.    sko=surf%(A,B)
  3706.  sko=bk 
  3707. sko=h 
  3708. sko=i 
  3709.  count+=1
  3710.  sko=22 alvil+=1
  3711.  bk<>99 
  3712.  att>count 
  3713.  att=count
  3714.  count>att 
  3715.  count=att
  3716.  lord=1 
  3717.  bomb%=bm 
  3718.  ebomb%(lord)=bm
  3719. bombdsp(t$(23),7)
  3720. bombdsp("hit "+
  3721. (def)+" bombers.",8)
  3722. bombdsp(
  3723. (att)+t$(24),10)
  3724. bombdsp(t$(26),11)
  3725.  lord<=players 
  3726. bombdsp(t$(28),13)
  3727.  lord<=players 
  3728. front(380,250,899,875,1):
  3729. getMK
  3730.  lord>players 
  3731.  SIi(sel,actual)<=players 
  3732. getMK 
  3733. getMKw
  3734.   window_open=0
  3735.  count=0 
  3736.  lord<=players 
  3737. showplanet(2)
  3738.  lord=1 
  3739.  SIi(X,Y)<=players look=1:looked=1: 
  3740. showplanet(3)
  3741.  planet=actual
  3742.  bk<>99 
  3743.  look 
  3744. dspB(t$(30),1000,13)
  3745. dspB(t$(31),1000,14)
  3746. dspB(t$(32),1000,15)
  3747.   watcher=1
  3748.  count
  3749.  dx=16
  3750.  dy=1
  3751.      sko=surf%(dx,dy)
  3752. !"     
  3753.  sko=bk 
  3754.  sko=h 
  3755. sko=i 
  3756. ",      
  3757.  look 
  3758.  count<4 
  3759. premark(dx,dy)
  3760. #7      watcher=1:
  3761.  lord<>1 
  3762.  SIi(X,Y)<>1 
  3763.  watcher=0
  3764.       
  3765. smash(dx,dy)
  3766.       dx=1:dy=16
  3767.      
  3768.   watcher=0
  3769.  f=1:m=normalfont
  3770.  m>3 f=5
  3771.  m>10 f=10
  3772.  m>25 f=15
  3773.  m>40 f=20
  3774. 1  SIpo%(X,Y)=SIc(X,Y)*f+alvil
  3775. code(sel,actual)
  3776.  look 
  3777. getMK:
  3778. srfdel
  3779. bombdsp(a$,dsr)
  3780.  lord=1 
  3781. dspB(a$,400,dsr)
  3782. cms(a$,dsr+2,1)
  3783. showaplanet(modus)
  3784.  findvar 
  3785.  mcount=1:
  3786. B  sx=planX(s,X):sy=planY(s,X)
  3787.  PROCschoose("sphere"+STR$(plan(s,chold)))
  3788.  PROCplot(0,planX(s,chold),planY(s,chold))
  3789.  chold=X
  3790.  PROCmarkpl(sx,sy,SIi(s,chold))
  3791.  modus 
  3792. 6,112,2
  3793. cleartext
  3794.  SIn$(s,X)<>"" 
  3795. info(t$(46)+SIn$(s,X)+", System "+SunName$(selectedsys)+".",1) 
  3796. info(t$(33),1)
  3797. M: b$=
  3798. g(SIi(s,X))+" "+H$(SIi(s,X))+title$(Ha(SIi(s,X)))
  3799.  SIi(s,X)=1 
  3800.  b$=t$(34)
  3801.  SIi(s,X)=0 
  3802.  b$=t$(35)
  3803. info(t$(36)+b$+".",2)
  3804.  plan(s,X) 
  3805. 1:b$=t$(37)
  3806. 2:b$=t$(38)
  3807. 3:b$=t$(39)
  3808. 4:b$=t$(40)
  3809. 5:b$=t$(41)
  3810. 6:b$=t$(42)
  3811. 7:b$=t$(43)
  3812. 8:b$=t$(44)
  3813. info(t$(45)+b$,3)
  3814.  modus 
  3815. front(407,72,1258,182,1)
  3816.  SIi(s,X)<>1 
  3817. schoose("m2_1") 
  3818. schoose("m2_2")
  3819. plot(0,403,18)
  3820.  actual=X
  3821. markpl(sx,sy,inh)
  3822.  i=1:
  3823.  inh>1 i=2
  3824.  a$="m"+
  3825. schoose(a$+"3"):
  3826. plot(0,sx,sy)
  3827. schoose(a$+"1"):
  3828. plot(0,sx,sy+128)
  3829. schoose(a$+"4"):
  3830. plot(0,sx+128,sy)
  3831. schoose(a$+"2"):
  3832. plot(0,sx+128,sy+128)
  3833. vessel
  3834.  say$,f,ok,id$,vtype,vs,vr,out,didcom,disp
  3835. mpart(4)
  3836. mpart(14)
  3837. mpart(16)
  3838.  R<4          
  3839.  vtype=1
  3840.  R>3  
  3841. R<8  
  3842.  vtype=2
  3843.  R>7  
  3844. R<13 
  3845.  vtype=3
  3846.  R>12 
  3847. R<15 
  3848.  vtype=4
  3849.  R>14 
  3850. R<18 
  3851.  vtype=5
  3852.  R>17 
  3853. R<20 
  3854.  vtype=6
  3855.  R>19 
  3856. R<22 
  3857.  vtype=7
  3858.  R=22         
  3859.  vtype=8
  3860.  R=23         
  3861.  vtype=9
  3862.  i$=""
  3863.  vtype 
  3864.  1:i$=t$(47):vs=0:vr=0:disp=3
  3865.  2:i$=t$(48):vs=1:vr=1:disp=3
  3866.  3:i$=t$(49):vs=0:vr=1:disp=1
  3867.  4:i$=t$(50):vs=0:vr=1:disp=1
  3868.  5:i$=t$(51):vs=0:vr=1:disp=6
  3869.  6:i$=t$(52):vs=0:vr=1:disp=4
  3870.  7:i$=t$(53):vs=0:vr=1:disp=1
  3871.  8:i$=t$(54):vs=1:vr=1:disp=2
  3872.  9:i$=t$(55):vs=0:vr=0:disp=5
  3873.  a$=""
  3874.  vtype>2 
  3875.  1:a$=t$(56)
  3876.  2:a$=t$(57)
  3877.  3:a$=t$(58)
  3878.  4:a$=t$(59)
  3879.  5:a$=t$(60)
  3880.  6:a$=t$(61)
  3881.  7:a$=t$(62)
  3882.  8:a$=t$(63)
  3883.  9:a$=t$(64)
  3884. 10:a$=t$(65)
  3885. 11:a$=t$(66)
  3886. 12:a$=t$(67)
  3887. 13:a$=t$(68)
  3888.  a$="" 
  3889.  a$=i$:i$=""
  3890. gmerge("vs0")
  3891. gmerge("vs"+
  3892. (disp))
  3893. 6,112,1
  3894. frame(0,209,1279,1023,42)
  3895. inframe(8,217,1271,1015,42)
  3896. schoose("vpic")
  3897. plot(0,12,221)
  3898. dspB(t$(69),40,2)
  3899. dspB(t$(70),40,3)
  3900. front(0,209,1279,1023,2)
  3901.  420,452:
  3902.  860,762:
  3903. sget("vback")
  3904.  n=1 
  3905.  1000 
  3906. 6,112,1
  3907. schoose("vback")
  3908. plot(0,420,452)
  3909. zoom(640-220*n/1000,612-160*n/1000,n,n,1000,1000,"vessel")
  3910. 420,452:
  3911.  860,762:
  3912. sget("v2")
  3913. 6,112,2
  3914. schoose("v2")
  3915. plot(0,420,452)
  3916.  A,B,C:I$=
  3917.  C>0 
  3918.  I$<>"" 
  3919.  n=975
  3920. ves_mark
  3921. wait(20)
  3922. pixel(t$(71),912,654+140,61,128,20,192)
  3923. pixel(t$(72),912,626+140,61,128,20,192)
  3924. pixel(a$,912,580+140,61,128,20,192)
  3925. pixel(i$,912,548+140,61,128,20,192)
  3926.  out=0:didcom=0
  3927.  A,B,C:
  3928.   ok=0
  3929.  A,B,C
  3930.  C=4 
  3931.  B>=226 
  3932.  B<=274 
  3933. 9    
  3934.  A>205 
  3935.  A<421 
  3936.  ok=1:
  3937. button(205,226,417,274,1)
  3938. 9    
  3939.  A>421 
  3940.  A<637 
  3941.  ok=2:
  3942. button(425,226,633,274,1)
  3943. 9    
  3944.  A>637 
  3945.  A<853 
  3946.  ok=4:
  3947. button(641,226,849,274,1)
  3948. :    
  3949.  A>853 
  3950.  A<1070
  3951.  ok=3:
  3952. button(857,226,1066,274,1)
  3953.  ok=1 
  3954.  vr=1 
  3955. ves_com
  3956.     didcom=1
  3957. ves_redo
  3958. dspB(t$(73),40,2)
  3959.  ok=4 
  3960.  invent%(1,14)>0 
  3961.     out=1
  3962. ves_redo
  3963. dspB(t$(678),40,2)
  3964.  ok=3 
  3965.  vs=1 
  3966.  didcom=0 
  3967. ves_com
  3968.     didcom=1
  3969.     out=1
  3970.  vtype=1 
  3971.  out=1:ok=2
  3972.  ok=2 
  3973.  out=1
  3974. f_wht
  3975.  ok=2 
  3976. ves_redo
  3977. dspB("Space combat disabled in the demo version. You're lucky.",40,2)
  3978.  vtype<>3 
  3979.  vtype<>8 
  3980. ves_del
  3981. getMK
  3982.  screentype=0 
  3983. ves_del
  3984. sdelete("vpic")
  3985. sdelete("vback")
  3986. sdelete("v2")
  3987. sdelete("vessel")
  3988. ves_giveup(gt)
  3989. ves_redo
  3990. dspB(t$(74),40,2)
  3991.  gt=1 
  3992.  a$=t$(75):scout%+=1 
  3993.  a$=t$(76):trans%+=1
  3994. dspB(t$(77)+a$+" ship.",40,4)
  3995.  gt=2 
  3996.  IF trans%>500 THEN trans%=500 ELSE freight(RND(3))+=1
  3997.   freight(
  3998. (3))+=1
  3999.  IF scout%>100 scout%=100
  4000. getMK
  4001. ves_del
  4002. ves_mark
  4003. schoose("m27"):
  4004. plot(8,420,452)
  4005. schoose("m25"):
  4006. plot(8,420,762)
  4007. schoose("m28"):
  4008. plot(8,860,452)
  4009. schoose("m26"):
  4010. plot(8,860,762)
  4011. ves_com
  4012. fillarray("vs"+
  4013. (vtype),11)
  4014. ves_redo
  4015. dspB(t$(78),40,2)
  4016. f_yel
  4017.  n=1 
  4018. scribe(ar$(n),60,3+n)
  4019. f_wht
  4020. ves_redo
  4021. 6,112,1
  4022. schoose("vpic")
  4023. plot(0,12,221)
  4024. schoose("v2")
  4025. plot(0,420,452)
  4026. ves_mark
  4027. front(12,225,1267,1011,2)
  4028. scribe(say$,rx,ry)
  4029.  sa,sb,sc
  4030.  f=1 
  4031. (say$)
  4032. say$,f),rx,ry)
  4033.  sa,sb,sc
  4034. (0)<>"" 
  4035.  sc<>0) 
  4036.  useanim=1 
  4037. (say$):killanim=1
  4038. wait(3)
  4039. mastermouse
  4040.  ksel,chok
  4041.  backtoslave=1 
  4042.  backtoslave=0:selected=1:actual=1:
  4043. slavemap
  4044.  findvar=0 
  4045.   I$=
  4046.  I$=" " waitnow=1:
  4047.  I$="E" 
  4048. I$="e" 
  4049. equip:
  4050.   IF I$=CHR$(27) THEN
  4051.    PROCquitgame
  4052.    IF screentype=0 PROCredo
  4053.   ENDIF
  4054.  IF I$="1" THEN PROCfilm_shiplands("Depp","Outland",6):PROCredo
  4055.  IF I$="1" THEN REPEAT MOUSE A,B,C:VDU30:PRINT  A,B:UNTIL C
  4056.  IF I$="2" THEN players=2    :REM }
  4057.  IF I$="3" THEN players=3    :REM } TEST!!!
  4058.  IF I$="4" THEN PMission=3   :REM }
  4059.  IF I$="5" THEN credits+=1000:REM }
  4060.  IF I$="6" THEN SunE()=1     :REM }
  4061.  IF I$="7" THEN PROCplayerwon(2)
  4062.  I$="0" 
  4063.  switchoff=1 
  4064. "ESC":
  4065. mus_quit:
  4066. 6,20:
  4067. "Alphabet Latin1":
  4068.  IF I$="x" OR I$="X" THEN INPUT n:evillord(n)=1 :REM TEST!!!
  4069.  IF I$="y" OR I$="Y" THEN INPUT n:evillord(n)=0 :REM TEST!!!
  4070.  IF I$="u" ORI$="U" THEN VDU30:INPUT p:PROCmpart(p)
  4071.  IF I$="g" ORI$="g" THEN VDU30:INPUT jt
  4072.  IF I$="v" ORI$="V" THEN PROCvessel
  4073.  I$="m" 
  4074. I$="M" 
  4075.  flashnum=0:flashactual=0:
  4076. setmarkers(1)
  4077.  I$="d" 
  4078.  I$="D" 
  4079. showdist(0)
  4080.  I$="r" 
  4081. I$="R" 
  4082. shownotice
  4083.  IF (I$="s" OR I$="S") THEN
  4084.  IF lastsaveplace>0 THEN r=lastsaveplace:PROCsaveHD
  4085.  IF lastsaveplace=0 THEN PROCcounselor(16)
  4086.  ENDIF
  4087.   chok=0
  4088.  chcount 
  4089. `/    
  4090.  I$=cha$ 
  4091.  I$=chb$ 
  4092.  chcount+=1:chok=1
  4093. b/    
  4094.  I$=chc$ 
  4095.  I$=chd$ 
  4096.  chcount+=1:chok=1
  4097. d/    
  4098.  I$=che$ 
  4099.  I$=chf$ 
  4100.  chcount+=1:chok=1
  4101. f$    credits=10:chcount+=1:chok=1
  4102.     chcount+=1
  4103. j        
  4104.     credits=credits*100
  4105.     chok=1
  4106.  I$<>"" 
  4107.  chok=0 
  4108.  chcount<>5 
  4109.  chcount=0
  4110.   I$=
  4111.   escpressed=0
  4112. (27) 
  4113.  varfound=1:escpressed=1
  4114.  a,b,c
  4115. trackmouse
  4116.  c=0 
  4117.  ksel=0
  4118.  c=2 
  4119.  findvar=0 
  4120. smlmenu
  4121.  IF ksel=7 THEN
  4122.  IF lastsaveplace>0 THEN r=lastsaveplace:PROCsaveHD
  4123.  IF lastsaveplace=0 THEN PROCcounselor(16)
  4124.  ENDIF
  4125.  ksel=6 
  4126.  waitnow=1:
  4127.  ksel=5 
  4128. showdist(0)
  4129.  findvar=0 
  4130.  I$="F" 
  4131. I$="f" ksel=1
  4132.  I$="C" 
  4133. I$="c" ksel=2
  4134.  I$="S" 
  4135. I$="s" ksel=3 :
  4136.  Zweimal S ?????????????????????????????????
  4137.  b>=13 
  4138.  b<=63 
  4139.  (a>403 
  4140.  a<601)  ksel=1
  4141.  (a>607 
  4142.  a<841)  ksel=2
  4143.  (a>847 
  4144.  a<1069) ksel=3
  4145.  a>1075 
  4146.  a<1261 
  4147. 8    
  4148.  selectedsys>0 
  4149.  SunE(selectedsys,1)>0 ksel=4
  4150. 7    
  4151.  selectedsys=actualsys 
  4152.  actualsys=-1 
  4153.  ksel=4
  4154.  ksel 
  4155. cbutton(1):
  4156. cbutton(2):
  4157. menu:
  4158. cbutton(3):
  4159. s_info:
  4160. cbutton(4):selected=1:actual=1:
  4161. pushzoom:
  4162.  a>SunX(X) 
  4163.  b>SunY(X) 
  4164.  a<SunX(X)+50 
  4165. b<SunY(X)+50 
  4166.  selectedsys<>X 
  4167.  rX=X:selectedsys=X:
  4168. showastar(1):
  4169.  g,h,C:
  4170.  C=0:X=Sol
  4171.  a>wrx 
  4172.  b>wry 
  4173.  a<wrx+50 
  4174. b<wry+50 
  4175.  selectedsys>-1 selectedsys=-1:
  4176. wormhole
  4177.   varfound=0
  4178.  a>SunX(X) 
  4179.  b>SunY(X) 
  4180.  a<SunX(X)+50 
  4181. b<SunY(X)+50 
  4182.  SunE(X,1)=1 
  4183.  fsys=X:varfound=1
  4184. smlmenu
  4185.  mx,my,mok
  4186.  mx=a-116:my=b-74
  4187.  mx<0 mx=0
  4188.  my<0 my=0
  4189.  mx>1055 mx=1055
  4190.  my>867 my=867
  4191.  mx,my:
  4192.  mx+232,my+164:
  4193. sget("sml_back")
  4194. schoose("sml_menu")
  4195. plot(0,mx+4,my+4)
  4196.  mx,my,228,160
  4197.  a,b,c:
  4198.  a,b,c
  4199.  a<mx 
  4200.  a>mx+224 
  4201.  b<my 
  4202.  b>my+156 
  4203.    mok=1
  4204. B    
  4205.  b<my+56 
  4206.  mok=1:ksel=7:
  4207. button(mx+4,my+4,mx+224,my+52,1)
  4208. O    
  4209.  b>my+56 
  4210.  b<my+108 
  4211.  mok=1:ksel=6:
  4212. button(mx+4,my+56,mx+224,my+104,1)
  4213. Q    
  4214.  b>my+108 
  4215.  b<my+160 
  4216.  mok=1:ksel=5:
  4217. button(mx+4,my+108,mx+224,my+156,1)
  4218. schoose("sml_back")
  4219. plot(0,mx,my)
  4220. sdelete("sml_back")
  4221.  c=0:a=0:b=0
  4222. pushzoom
  4223.  selectedsys>0 
  4224. fade(2,1,15):
  4225. slavemap
  4226.  flying=0 
  4227. fade(2,0,15):
  4228. spaceguild
  4229. trackmouse
  4230. showastar(shw)
  4231.  findvar 
  4232.  rX<1 
  4233.  kill,cv,rY,sst
  4234. =0:mcount=1
  4235. schoose("mmb")
  4236. plot(0,mmbx,mmby)
  4237.  SunX(rX),SunY(rX)
  4238.  SunX(rX)+56,SunY(rX)+56
  4239. sget("mmb")
  4240.   mmbx=SunX(rX):mmby=SunY(rX)
  4241. Y sst=1:
  4242.  (selectedsys=actualsys 
  4243.  flying=0) 
  4244.  (flying=1 
  4245.  selectedsys=flysys) 
  4246.  sst=3
  4247. markstar(SunX(rX),SunY(rX),sst)
  4248.  shw 
  4249. 6,112,1
  4250. cleartext
  4251. info(t$(79)+SunName$(rX)+". ",1)
  4252.  SunE(rX,1) 
  4253.   a=0:b=0
  4254.   kill=0
  4255. schoose("shicon")
  4256.  rY=2
  4257.  existing(rY)>0 
  4258. A    
  4259.  orbit(rY)=rX 
  4260.  flying(rY)=0 
  4261. plot(8,404+b*88,76):b+=1
  4262.  b>6 
  4263.  rY=15
  4264.   cv=40
  4265.  rY=1
  4266. 5   p=plan(rX,6-rY):
  4267.  rY>1 
  4268.  q=plan(rX,7-rY) 
  4269.  p>0 
  4270. "    
  4271.  p<>q 
  4272. schoose("st"+
  4273. plot(0,1246-cv,132)
  4274.     cv+=40
  4275.   cv=40
  4276.  rY=1
  4277.  plan(rX,6-rY)>0 
  4278.     I=SIi(rX,6-rY):
  4279.  I>0 
  4280. 2     
  4281.  I>1 
  4282. schoose("id2") 
  4283. schoose("id1")
  4284.      
  4285. plot(0,1254-cv,104)
  4286.         
  4287.    cv+=40
  4288. schoose("qmark")
  4289. plot(0,1188,116)
  4290.  shw 
  4291. front(406,72,1257,182,2)
  4292. spaceguild
  4293. 6,112,1
  4294.  ok,pin,rum1,rum2
  4295. sgr_pl
  4296. sgr_def
  4297. sgr_sto
  4298. sgr_pop
  4299. sgr_rep
  4300.  w=players+1 
  4301.  existing(w) 
  4302.  ok=1
  4303.  w=1 
  4304. (15-players)+players:
  4305.  existing(l)
  4306.    s=
  4307. (30000)
  4308. (5)=1 
  4309. (30000)
  4310.  g=1 
  4311.  high(g)<s 
  4312.      
  4313.  h=3 
  4314. /      high(h+1)=high(h):high$(h+1)=high$(h)
  4315.      
  4316. +     high(g)=s:high$(g)=
  4317. g(l)+" "+H$(l)
  4318.      g=3
  4319.          
  4320.  pin=
  4321.  rum1=
  4322.  rum2=
  4323.  rum2<>rum1
  4324. mpart(19)
  4325. sg_mainloop
  4326.  I$=""
  4327. sg_robot
  4328. wait(30)
  4329. 6,112,2
  4330. schoose("ins2"):
  4331. plot(0,0,0):
  4332. wait(15)
  4333. schoose("ins3"):
  4334. plot(0,0,0):
  4335. wait(15)
  4336. 6,112,1
  4337. sg_fr
  4338. f_yel
  4339. dspB(t$(80),592,3)
  4340. dspB(t$(81),592,4)
  4341. f_wht
  4342. inst(t$(82),592,8,1)
  4343.  gmember(1)=0 
  4344.  a$=t$(83) 
  4345.  a$=t$(84)
  4346. inst(a$,592,10,2)
  4347. inst(t$(85),592,12,3)
  4348. inst(t$(86),592,15,4)
  4349. sg_front
  4350.  flashnum=4
  4351.  A,B,C:
  4352. pickrow
  4353.  row 
  4354. sg_mission:row=15
  4355. sg_member:row=15
  4356. H    
  4357. sg_reputation:row=15
  4358.  row=15
  4359. 6,112,1
  4360. schoose("ins1"):
  4361. plot(0,0,0)
  4362. schoose("ins3"):
  4363. plot(0,0,0)
  4364. front(0,0,1279,1023,2):
  4365. wait(30)
  4366. schoose("ins2"):
  4367. plot(0,0,0):
  4368. wait(15)
  4369. schoose("ins1"):
  4370. plot(0,0,0)
  4371. sg_mainloop
  4372.  PRINT "SUCK4"
  4373.  lights,docktrans,dockx,docky,dockz,ufox,ufoy,inf$,inf,but,ufbx,ufby
  4374. gmerge("sg1")
  4375.  lights=0:docktrans=0
  4376. Y# dockx=628:docky=180:dockz=1000
  4377.  ufox=400:ufoy=600
  4378.  ufbx=480:ufby=560
  4379. f_yel
  4380. 6,112,1
  4381. 6,113,2
  4382. a$  lights+=1:
  4383.  lights>15 lights=1
  4384. schoose("guild")
  4385. plot(0,0,0)
  4386.  lights<>1 
  4387. e(   
  4388. schoose("lght1"):
  4389. plot(8,12,908)
  4390. f*   
  4391. schoose("lght2"):
  4392. plot(8,1112,944)
  4393.  lights<>3 
  4394. i)   
  4395. schoose("lght3"):
  4396. plot(8,376,472)
  4397. j)   
  4398. schoose("lght4"):
  4399. plot(8,924,280)
  4400.   d=docktrans
  4401.  d<30 
  4402.  d<20 
  4403. schoose("trans1")
  4404.  d>19 
  4405.  d<24 
  4406. schoose("trans3")
  4407.  d>23 
  4408. schoose("trans2")
  4409. plot(8,dockx,docky-4)
  4410.  d>29 
  4411. z$   dockx+=1:docky-=0.2:dockz-=20
  4412. {C   
  4413.  dockz>10 
  4414. zoom(dockx,docky,dockz,dockz,1000,1000,"trans2")
  4415. }%  ufox+=4:ufoy-=2:ufbx+=6:ufby-=3
  4416.  ufox>1400 
  4417.  ufox=-112:ufoy=900
  4418.  ufbx>1400 
  4419.  ufbx=-112:ufby=700
  4420. schoose("ufo1"):
  4421. plot(8,ufox,ufoy)
  4422. schoose("ufo2"):
  4423. plot(8,ufbx,ufby)
  4424.   docktrans+=1
  4425.  A,B,but
  4426.   inf=0
  4427.  A>424 
  4428.  A<700 
  4429.  B>245 
  4430.  B<332 
  4431.  inf=1
  4432.  A>415 
  4433.  A<733 
  4434.  B>353 
  4435.  B<429 
  4436.  inf=2
  4437.  A>628 
  4438.  A<757 
  4439.  B>845 
  4440.  B<922 
  4441.  inf=3
  4442.  inf 
  4443.  1:inf$=t$(87)
  4444.  2:inf$=t$(88)
  4445.  3:inf$=t$(89)
  4446.  inf$=" "
  4447.  but>0 
  4448.  inf=2 
  4449. sg_stardust
  4450.  but>0 
  4451.  inf=3 
  4452. sg_theguild
  4453. f_yel
  4454.  but=0 
  4455. sfpB(inf$,60,40)
  4456. front(0,0,1279,1023,2)
  4457.  inf=1 
  4458.  but>0
  4459. fade(2,0,15)
  4460. gload("ts1"):
  4461. gmerge("pt1")
  4462. sg_theguild
  4463.  ex,count,inf$,oldinf$
  4464. 6,112,1
  4465. gload("sg2"):
  4466. gmerge("pt1")
  4467. schoose("ins1"):
  4468. plot(0,0,0)
  4469. 489,96:
  4470. sget("bakpiece")
  4471. front(0,0,1279,1023,2)
  4472.      ex=0
  4473.  count=17
  4474. !  count+=1:
  4475.  count>50 count=1
  4476.  count=1 
  4477. schoose("eyes"):
  4478. plot(0,346,544):
  4479. schoose("eyes2"):
  4480. plot(0,336,114)
  4481.  count=5 
  4482. schoose("ins1"):
  4483. plot(0,0,0)
  4484.  A,B,C
  4485.  C=0 
  4486.    inf$=""
  4487.  A>193 
  4488.  B>324 
  4489.  A<406 
  4490.  B<576 
  4491.  inf$=t$(90)
  4492.  A>412 
  4493.  B>414 
  4494.  A<640 
  4495.  B<693 
  4496.  inf$=t$(91)
  4497.  A>1100 
  4498.  inf$=t$(92)
  4499.  inf$<>"" 
  4500.  inf$<>oldinf$ 
  4501. )    
  4502. schoose("bakpiece"):
  4503. plot(0,0,0)
  4504. f_yel
  4505. sfpB(inf$,60,40)
  4506. f_wht
  4507.     oldinf$=inf$
  4508.  inf$="" 
  4509.  oldinf$<>"" 
  4510. )    
  4511. schoose("bakpiece"):
  4512. plot(0,0,0)
  4513.     oldinf$=""
  4514.    flashactual=0
  4515.  A>193 
  4516.  B>324 
  4517.  A<406 
  4518.  B<576 
  4519. sg_robot
  4520.  A>412 
  4521.  B>414 
  4522.  A<640 
  4523.  B<693 
  4524. sg_claimmaster:
  4525.  A>1100 
  4526.  ex=1
  4527. wait(8)
  4528. gload("sg1"):
  4529. gmerge("pt1")
  4530. sg_stardust
  4531.  ex,count,sher,jw,talk,inf$,oldinf$
  4532. 6,112,1
  4533. mpart(18)
  4534. gload("sg3"):
  4535. gmerge("pt1")
  4536. schoose("dust"):
  4537. plot(0,0,0)
  4538. 489,96:
  4539. sget("bakpiece")
  4540. front(0,0,1279,1023,2)
  4541.      ex=0
  4542.  count=7
  4543.  sher=1:talk=1
  4544. !  count+=1:
  4545.  count>64 count=1
  4546.  count=11 
  4547. schoose("lamp0"):
  4548. plot(8,1036,640)
  4549.  count=13 
  4550. schoose("lamp1"):
  4551. plot(8,1036,640)
  4552. schoose("screen"+
  4553. (sher)):
  4554. plot(0,814,500)
  4555.  count/16=
  4556. (count/16) 
  4557.    sher+=1:
  4558.  sher>4 sher=1
  4559.  count/3=
  4560. (count/3) 
  4561.    m=0
  4562.    talk+=1:
  4563.  talk>22 talk=1
  4564.  talk 
  4565.  1:t=1
  4566.  2:t=2
  4567.  3:t=3
  4568.  4:t=2
  4569.  5:t=1
  4570.  6:t=2
  4571.  7:t=1
  4572.  8:t=2
  4573.  9:t=3
  4574. 10:t=4:m=1
  4575. 11:t=3
  4576. 12:t=2
  4577. 13:t=1
  4578. 14:t=6:m=3
  4579. 15:t=3
  4580. 16:t=2
  4581. 17:t=1
  4582. 18:t=2
  4583. 19:t=3
  4584. 20:t=5:m=2
  4585. 21:t=3
  4586. 22:t=6:m=3
  4587. schoose("talk"+
  4588. (t)):
  4589. plot(0,424,508)
  4590. schoose("mirr"+
  4591. (m)):
  4592. plot(0,444,388)
  4593.  A,B,C
  4594.  C=0 
  4595.    inf$=""
  4596.  A>370 
  4597.  B>425 
  4598.  A<460 
  4599.  B<551 
  4600.  inf$=t$(93)
  4601.  A>1192 
  4602.  B>524 
  4603.  A<1279 
  4604.  B<638 
  4605.  inf$=t$(94)
  4606.  A>766 
  4607.  B>452 
  4608. A<910 
  4609. B<554 
  4610.  inf$=t$(95)
  4611.  A>966 
  4612.  B>479 
  4613. A<1081 
  4614. B<578 
  4615.  inf$=t$(96)
  4616.  inf$<>"" 
  4617.  inf$<>oldinf$ 
  4618. )    
  4619. schoose("bakpiece"):
  4620. plot(0,0,0)
  4621. f_yel
  4622. sfpB(inf$,60,40)
  4623. f_wht
  4624.     oldinf$=inf$
  4625.  inf$="" 
  4626.  oldinf$<>"" 
  4627. )    
  4628. schoose("bakpiece"):
  4629. plot(0,0,0)
  4630.     oldinf$=""
  4631.    jw=0
  4632.  A>370 
  4633.  B>425 
  4634.  A<541 
  4635.  B<551 
  4636. sg_rumors:
  4637.  jw=0 
  4638.  A>1192 
  4639.  B>524 
  4640.  A<1279 
  4641.  B<638 
  4642. sg_pinboard:
  4643.  IF jw=0 AND A>766 AND B>452 ANDA<910 ANDB<554 THEN PROCsheriff:PROCgload("sg3"):PROCgmerge("pt1"):PROCsdre:PROCnewbak
  4644.  jw=0 
  4645.  A>986 
  4646.  B>479 
  4647. A<1061 
  4648. B<578 
  4649.  ex=1
  4650. wait(8)
  4651. mpart(19)
  4652. gload("sg1"):
  4653. gmerge("pt1")
  4654. newbak
  4655. 489,96:
  4656. sget("bakpiece")
  4657.      jw=1
  4658. schoose("dust"):
  4659. plot(0,0,0)
  4660. schoose("screen"+
  4661. (sher)):
  4662. plot(0,814,500)
  4663.  A,B,C:
  4664. schoose("ins1"):
  4665. plot(0,0,0)
  4666. sg_pinboard
  4667.  px,py,sx,sy,qual,q,r,s
  4668.  qual=0
  4669. fillarray("pins",60)
  4670.  px=1 
  4671.  Sol:
  4672.  py=1 
  4673.  SIi(px,py)=0 
  4674.    q=1
  4675.  plan(px,py) 
  4676.  1:q=5
  4677.  2:q=2
  4678.  3:q=1
  4679.  4:q=4
  4680.  5:q=1
  4681.  6:q=5
  4682.  8:q=10
  4683.  SIn$(px,py)<>"" 
  4684.  q+=2
  4685.    s=0
  4686.  r=1 
  4687.  SIi(px,r)>0 
  4688.    q+=s
  4689. :$   
  4690.  q>qual 
  4691.  qual=q:sx=px:sy=py
  4692.  py,px
  4693. sg_fr
  4694. f_yel:
  4695. dspB(t$(97),592,3)
  4696. f_wht
  4697. dspB(t$(98),592,6)
  4698.  players=1 
  4699. dspB(t$(99),592,8)
  4700. dspB(t$(100),592,9)
  4701.  SIn$(sx,sy)="" 
  4702.  x$=t$(105)+
  4703. (sy) 
  4704.  x$=SIn$(sx,sy)
  4705. dspB("is "+x$+" at "+SunName$(sx)+".",592,10)
  4706. dspB(t$(101),592,8)
  4707. dspB(t$(102),592,9)
  4708. dspB(t$(103),592,10)
  4709. dspB(ar$((pin-1)*3+1),612,13)
  4710. dspB(ar$((pin-1)*3+2),612,14)
  4711. dspB(ar$((pin-1)*3+3),612,15)
  4712. getMK
  4713. sg_rumors
  4714.  l,n,p,sgn
  4715. fillarray("rum",5)
  4716. sg_fr
  4717. f_yel:
  4718. dspB(t$(104),592,3)
  4719. f_wht
  4720. dspB(ar$(
  4721. (5)),592,6)
  4722. dspB(b$((rum1-1)*2+1),592,7)
  4723. dspB(b$((rum1-1)*2+2),592,8)
  4724. dspB(ar$(
  4725. (5)),592,11)
  4726. dspB(b$((rum2-1)*2+1),592,12)
  4727. dspB(b$((rum2-1)*2+2),592,13)
  4728. getMK
  4729. sgr_pl
  4730.  x,y,a$
  4731. (15):
  4732.  existing(l)>0
  4733.  x=1 
  4734.  y=1 
  4735.  SIi(x,y)=l 
  4736.  p+=1
  4737. (3)=1 
  4738.  a$="":
  4739.  p<>1 
  4740.  a$="s"
  4741. j/ b$(1)=H$(l)+" owns "+
  4742. (p)+" planet"+a$+"."
  4743.  b$(2)=""
  4744. sgr_rep
  4745.  r,a$
  4746. (15):
  4747.  existing(l)>0
  4748.  r=reput(l)
  4749. (3)=1 
  4750.  a$="a":
  4751.  r<3 a$="no"
  4752. t# b$(3)=H$(l)+" has "+a$+" good"
  4753.  b$(4)="reputation."
  4754. sgr_def
  4755.  x,y,def,lx,ly,a$
  4756.  p=10000
  4757. (3)=1 
  4758.  p=100:lx=1:ly=1
  4759.  x=1 
  4760.  y=1 
  4761.  SIi(x,y)<>0 
  4762. ~/    def=SIk%(x,y,1)+SIk%(x,y,2)+SIk%(x,y,3)
  4763. !    
  4764.  def<p 
  4765.  p=def:lx=x:ly=y
  4766. ) a$=SIn$(lx,ly):
  4767.  a$="" 
  4768.  a$="Utopia"
  4769. ) b$(5)=t$(105)+a$+" at "+SunName$(lx)
  4770.  b$(6)=t$(106)
  4771. sgr_sto
  4772.  x,y,st,lx,ly,a$
  4773. (3)=1 
  4774. (200):lx=1:ly=1
  4775.  x=1 
  4776.  y=1 
  4777. -   st=SIg%(x,y,1)+SIg%(x,y,2)+SIg%(x,y,3)
  4778.  st>p 
  4779.  p=st:lx=x:ly=y
  4780. ) a$=SIn$(lx,ly):
  4781.  a$="" 
  4782.  a$="Utopia"
  4783. ) b$(7)=t$(105)+a$+" at "+SunName$(lx)
  4784.  b$(8)=t$(107)
  4785. sgr_pop
  4786.  x,y,ci,lx,ly,a$
  4787. (3)=1 
  4788. (20):lx=1:ly=1
  4789.  x=1 
  4790.  y=1 
  4791.    ci=SIc(x,y)
  4792.  ci>p 
  4793.  p=ci:lx=x:ly=y
  4794. ) a$=SIn$(lx,ly):
  4795.  a$="" 
  4796.  a$="Utopia"
  4797. ) b$(9)=t$(105)+a$+" at "+SunName$(lx)
  4798.  b$(10)=t$(108)
  4799. sg_mission
  4800. fillarray("gm"+
  4801. (PMission),15)
  4802. sg_fr
  4803. f_yel:
  4804. dspB(t$(109),592,3)
  4805. f_wht
  4806. dspB(ar$(X),592,4+X)
  4807. getMK
  4808. sg_member
  4809.  gmember(1)=0 
  4810. sg_fr
  4811. f_yel:
  4812. dspB(t$(110),592,3)
  4813. f_wht
  4814. dspB(t$(111),592,5)
  4815. dspB(t$(112),592,6)
  4816. dspB(t$(113),592,7)
  4817.  credits>=5000 
  4818. dspB(t$(114),592,9)
  4819. dspB(t$(115),592,10)
  4820. dspB(t$(116),592,9)
  4821. dspB(t$(117),592,10)
  4822. frame(1071,340,1211,388,42)
  4823. askmaster(594,342,1)
  4824.  accepted=0 
  4825.  accepted=1 
  4826.  credits<5000 
  4827. dspB(t$(118),592,12):
  4828. getMK:
  4829.   credits-=5000
  4830. sg_fr
  4831.   gmember(1)=1
  4832. f_yel:
  4833. dspB(t$(119),592,3)
  4834. f_wht:
  4835. dspB(t$(120),592,5)
  4836. dspB(t$(112),592,8)
  4837. dspB(t$(113),592,10)
  4838. getMK
  4839. sg_fr
  4840. f_yel:
  4841. dspB(t$(121),592,3)
  4842. f_wht:
  4843. dspB(t$(122),592,6)
  4844. dspB(t$(123),592,7)
  4845. frame(1071,340,1211,388,42)
  4846. askmaster(594,342,2)
  4847. sg_fr
  4848. f_yel:
  4849. dspB(t$(121),592,3)
  4850. f_wht
  4851.  accepted=0 
  4852. dspB(t$(124),592,6)
  4853. dspB(t$(125)+ta$+" "+PName$+".",592,6)
  4854.    gmember(1)=0
  4855. getMK
  4856. sg_fr
  4857. frame(574,322,1231,954,42)
  4858. inframe(582,330,1223,946,42)
  4859. sg_front
  4860. front(574,322,1231,954,2)
  4861. sg_reputation
  4862.  ro,p,cst
  4863. inframe(582,330,1223,946,42)
  4864. f_yel
  4865. dspB(t$(126),592,3)
  4866. dspB(t$(127),592,7)
  4867.  r=reput
  4868.  a$=""
  4869.  r>=3 a$="very good"
  4870.  r=3  a$="good"
  4871.  r<3  a$="bad"
  4872.  r<=1 a$="very bad"
  4873. f_wht
  4874. dspB(t$(128)+a$+".",592,5)
  4875.      ro=8
  4876. - p=punish%(1,0)+punish%(1,1)+punish%(1,2)
  4877.  a$=""
  4878.  punish%(1,0)=1 
  4879.  a$=t$(129):ro+=1
  4880.  p=0 
  4881.  a$=t$(130):ro+=1
  4882. dspB(" "+a$,592,ro)
  4883.  punish%(1,1) 
  4884.  ro+=1:
  4885. dspB(t$(131),592,ro)
  4886.  punish%(1,2) 
  4887.  ro+=1:
  4888. dspB(t$(132),592,ro)
  4889.  p>0 
  4890. <  cst=punish%(1,0)*200+punish%(1,1)*500+punish%(1,2)*300
  4891. .  ro+=2:
  4892. dspB(t$(133)+
  4893. (cst)+" MC",592,ro)
  4894.  credits>=cst 
  4895. "   ro+=1:
  4896. dspB(t$(134),592,ro)
  4897. frame(1071,340,1211,388,42)
  4898. askmaster(594,342,2)
  4899.  accepted=0 
  4900.     a$=t$(135)
  4901. U    a$=t$(136):punish%(1,0)=0:punish%(1,1)=0:punish%(1,2)=0:reput+=1:credits-=cst
  4902.    ro+=1:
  4903. dspB(a$,592,ro)
  4904. getMK
  4905. sg_claimmaster
  4906.  fickdich=1:REM TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  4907.  PRINT "SUCK1"
  4908.  mok=1
  4909.  PMission=1 
  4910. *    
  4911.  SIi(X,Y)>0 
  4912.  SIi(X,Y)<>1 
  4913.  mok=0
  4914.  PMission=2 
  4915.   a=0:b=0:c=0
  4916.  X=1 
  4917.  Y=1 
  4918. A     
  4919.  SIi(X,Y)=1 
  4920.  a+=1: b+=SIs(X,Y)+SIc(X,Y)*2:c+=SIam(X,Y)
  4921.   p=(b-c)/100
  4922. (p*t%(1))
  4923.   n=b-c-s
  4924.  n<1000 mok=0
  4925.  PMission=3 
  4926.   mok=1
  4927. '      Y=0
  4928.  psun(1,X)>0 Y=1
  4929.  Y=0 
  4930.  mok=0
  4931.  invent%(1,X)=0 
  4932.  mok=0
  4933. 1      u=0
  4934.  pa=1
  4935.  pb=1
  4936.  SIi(pa,pb)=1 
  4937.  u+=1
  4938.  pb,pa
  4939.  u<30 
  4940.  mok=0
  4941.  ENDIF
  4942. sg_fr
  4943. f_yel
  4944.  mok 
  4945. A      p=8
  4946. dspB(t$(137),592,3)
  4947. f_wht
  4948. dspB(t$(138),592,6)
  4949.  gmember(1)=0 
  4950. dspB(t$(139),592,8):p+=2
  4951.  chcount=5 
  4952. dspB(t$(677),592,p):p+=2
  4953.  punish%(1,0)+punish%(1,1)+punish%(1,2)>0 
  4954. dspB(t$(140),592,p)
  4955. getMK
  4956.  IF fickdich=1 THEN gmember(1)=1:punish%(1,0)=0:punish%(1,1)=0:punish%(1,2)=0:chcount=1
  4957.  gmember(1)>0 
  4958.  punish%(1,0)+punish%(1,1)+punish%(1,2)=0 
  4959.  chcount<>5 
  4960. fade(1,0,15):
  4961. abspann
  4962. dspB(t$(137),592,3)
  4963. f_wht
  4964. dspB(t$(141),592,6)
  4965. O      p=8
  4966.  gmember(1)=0 
  4967. dspB(t$(142),592,8):p+=2
  4968.  punish%(1,0)+punish%(1,1)+punish%(1,2)>0 
  4969. dspB(t$(140),592,p)
  4970. getMK
  4971.  A,B,C:
  4972. wormhole
  4973. =0:mcount=1
  4974. cleartext
  4975. schoose("mmb")
  4976. plot(0,mmbx,mmby)
  4977.  wrx,wry
  4978.  wrx+56,wry+56
  4979. sget("mmb")
  4980.  mmbx=wrx:mmby=wry
  4981. aY sst=1:
  4982.  (selectedsys=actualsys 
  4983.  flying=0) 
  4984.  (flying=1 
  4985.  selectedsys=flysys) 
  4986.  sst=3
  4987. markstar(wrx,wry,sst)
  4988. info(t$(143),1)
  4989.  a=0:b=0:c=0
  4990. inst(string$,coordx,row,in)
  4991. f_wht
  4992. cds(string$,coordx,row)
  4993. j@ flash$(in)=string$:flashx(in)=coordx:flashy(in)=1051-row*40
  4994. install(string$,coordx,coordy,in)
  4995. f_wht
  4996. sfp(string$,coordx,coordy)
  4997. p; flash$(in)=string$:flashx(in)=coordx:flashy(in)=coordy
  4998. counselor(21)
  4999. diplomacy
  5000.  d$,n,wahl
  5001. 6,112,1
  5002. re_mh
  5003. f_yel
  5004.  players=2 
  5005.  d$=t$(157) 
  5006.  d$=t$(158)
  5007. cdsB(t$(156)+d$,210,6)
  5008. f_wht
  5009.  n=2 
  5010.  players
  5011. cdsB(
  5012. g(n)+" "+H$(n)+":",210,7+n)
  5013.  verhalten(1,n) 
  5014.      
  5015.  1: d$="Friendly"
  5016.      
  5017.  2: d$="Normal"
  5018.      
  5019.  3: d$="Hostile"
  5020.         
  5021. cdsB(d$,600,7+n)
  5022. inst(t$(92),210,20,1)
  5023.   flashnum=1:flashactual=0
  5024. mfront
  5025.  A,B,C:
  5026. pickrow
  5027.  (r>8 
  5028.  r<=7+players) 
  5029.  r=20
  5030.  r<>20 
  5031.    wahl=r-7
  5032. G   verhalten(1,wahl)+=1:
  5033.  verhalten(1,wahl)>3 
  5034.  verhalten(1,wahl)=1
  5035.  r=20
  5036. quitgame
  5037. counselor(9)
  5038.  accepted 
  5039. mus_fadeout
  5040. fade(2,0,15)
  5041. adjust(1)
  5042.  I$=""
  5043. showdist(rdo)
  5044.  sa,sb,ft,retts
  5045.  selectedsys=0 
  5046.  retts=selectedsys
  5047.  selectedsys=-1 
  5048.  selectedsys=0:SunX(0)=wrx:SunY(0)=wry
  5049.  rdo 
  5050.  0,209:
  5051. 1279,1023:
  5052. sget("bgnd")
  5053. 24,0;209;1279;1023;
  5054.  a=1 
  5055.  (4-a)*64
  5056. -  x=SunX(selectedsys):y=SunY(selectedsys)
  5057.  x+32,y+32,300*a
  5058.  invent%(1,8)=0 
  5059. (a+1) 
  5060.  x$="1"
  5061. pixel(x$,x+300*a+44,y+40,47,(4-a)*64,26,64)
  5062. pixel(x$,x-300*a+12,y+40,47,(4-a)*64,26,64)
  5063.  s=selectedsys
  5064.  a<>s 
  5065. (   sa=
  5066. ((SunX(s)+32-(SunX(a)+32))^2)
  5067. (   sb=
  5068. ((SunY(s)+32-(SunY(a)+32))^2)
  5069.    diff=
  5070. (sa^2+sb^2))
  5071.    ft=
  5072. (diff/300)+1
  5073.  invent%(1,8)>0 
  5074. (ft/3):
  5075.  ft<1 
  5076.  ft=1
  5077.  PROCpixel(STR$(ftime),SunX(a)+56,SunY(a)+48,12,196)
  5078.  selectedsys=retts
  5079. getMK
  5080. schoose("bgnd")
  5081. plot(0,0,209)
  5082. sdelete("bgnd")
  5083. mfront
  5084. front(193,222,1087,1000,2)
  5085. service
  5086.  s_ex,s_ok,cr_ok,s_lord
  5087. 6,112,1
  5088. re_mh
  5089. fillarray("ss1",52)
  5090. f_yel:
  5091. cdsB(ar$(1),210,6)
  5092. cdsB(ar$(9),210,20):
  5093. f_wht
  5094.  n>4 
  5095. inst(ar$(n),210,n+5,n-4) 
  5096. cds(ar$(n),210,n+5)
  5097.   flashnum=4
  5098. mfront
  5099.  A,B,C:
  5100. pickrow
  5101.  row 
  5102. )    
  5103.  10: flashnum=0:
  5104. sec_info:s_ok=1
  5105. *    
  5106.  11: flashnum=0:
  5107. sec_PFile:s_ok=1
  5108. (    
  5109.  12: flashnum=0:
  5110. sec_att:s_ok=1
  5111. )    
  5112.  13: flashnum=0:
  5113. sec_bomb:s_ok=1
  5114. &    
  5115.  20: flashnum=0:s_ok=1:s_ex=1
  5116.  s_ok
  5117.  s_ex
  5118.  rw=20
  5119. sec_info
  5120.  u_ok
  5121. sec_dsp(11,5)
  5122.  A,B,C:
  5123. pickrow
  5124.  row 
  5125.  10: 
  5126. svm(20):
  5127. sec_lords:
  5128. sec_give(t$(159)+
  5129. ((credits(s_lord)>0)*-credits(s_lord)+
  5130. (3)-1)+" MCredits.")
  5131.  11: 
  5132. svm(20):
  5133. sec_lords:
  5134. sec_alleys
  5135.  12: 
  5136. svm(20):
  5137. sec_lords:
  5138. sec_pl
  5139.  13: 
  5140. svm(50):
  5141. sec_lords:
  5142. sec_in
  5143.  14: 
  5144. svm(100):
  5145.  cr_ok 
  5146. whp:X=fsys:Y=fplan:
  5147. showplanet(2):s_ex=1:u_ok=1
  5148.  20: u_ok=1
  5149.  u_ok
  5150. sec_att
  5151.  u_ok
  5152.  MI(1)>0 
  5153. re_mh
  5154. cdsB(ar$(50),210,7)
  5155. cdsB("Sorry.",210,8)
  5156. getMK
  5157. sec_dsp(19,7)
  5158.  A,B,C:
  5159. pickrow
  5160.  row 
  5161. svm(200):
  5162. sec_mi(1)
  5163. svm(200):
  5164. sec_mi(2)
  5165. svm(150):
  5166. sec_mi(3)
  5167. svm(70) :
  5168. sec_mi(4)
  5169.         
  5170. svm(100):
  5171. sec_mi(5)
  5172. svm(100):
  5173. sec_mi(8)
  5174. svm(50) :
  5175. sec_mi(9)
  5176. 20: u_ok=1
  5177.  u_ok
  5178. sec_mi(smi)
  5179.  cr_ok=0 
  5180. whp:MIs(1)=fsys:MIp(1)=fplan:MI(1)=smi
  5181.  s_ex=1
  5182. sec_bomb
  5183.  u_ok
  5184.  invent%(1,6)=0 
  5185. re_mh
  5186. cdsB(ar$(10),210,7)
  5187. cdsB(ar$(18),210,8)
  5188. getMK
  5189.  MI(1)>0 
  5190. re_mh
  5191. cdsB(ar$(50),210,7)
  5192. cdsB("Sorry.",210,8)
  5193. getMK
  5194. sec_dsp(29,2)
  5195.  A,B,C:
  5196. pickrow
  5197.  row 
  5198. ,/    
  5199.  10: 
  5200. svm(500):
  5201. sec_mi(6):trace%(9)+=1
  5202. -0    
  5203.  11: 
  5204. svm(1000):
  5205. sec_mi(7):trace%(8)+=1
  5206.  20: u_ok=1
  5207.  u_ok
  5208. sec_PFile
  5209. svm(100)
  5210. sec_lords
  5211.  cr_ok 
  5212. re_mh:
  5213. f_yel
  5214. cdsB(ar$(37),210,6)
  5215. f_wht
  5216.  n=38 
  5217. cdsB(ar$(n),240,n-30)
  5218. cdsB(ar$(43),240,14)
  5219. f_yel
  5220. cdsB(H$(s_lord),440,8)
  5221. cdsB(race$(Hl(s_lord)),440,10)
  5222.  Ha(s_lord)>0 
  5223.    a$=title$(Ha(s_lord))
  5224.    a$=
  5225. (a$)-5)
  5226.    a$="None"
  5227. cdsB(a$,440,11)
  5228.   a=0:b=0
  5229.  SIi(X,Y)=s_lord 
  5230.      a+=1
  5231.      b+=SIr(X,Y)
  5232. O        
  5233. cdsB(
  5234. (a),440,12)
  5235. f_wht
  5236. cdsB(
  5237. g(s_lord)+" "+H$(s_lord)+" "+ar$(43+Hl(s_lord)),240,16)
  5238.  a>0 b=
  5239. (b/a)
  5240. U7  c$=" him":of=48:
  5241.  Hg(s_lord)<>1 
  5242.  c$=" her":of=52
  5243.  b>8 a$=" hate"+c$
  5244.  b>7 a$=" do not like"+c$
  5245.  b>5 a$=" are not pleased"
  5246.  b<6 a$=" accept"+c$
  5247.  b<3 a$=" are content"
  5248.  b=1 a$=" love"+c$
  5249.  b=0 a$=" adore"+c$
  5250. cdsB(ar$(of)+a$+". Amongst the",240,17)
  5251.   b=reput(s_lord)
  5252.  b>=3 a$="a good"
  5253.  b=3  a$="no special"
  5254.  b<3  a$="a bad"
  5255.  b<=1 a$="a very bad"
  5256.  Hg(s_lord)=2 
  5257.  x$="s" 
  5258.  x$=""
  5259. cdsB("lords, "+x$+"he has "+a$+" reputation.",240,18)
  5260. f_yel:
  5261. cdsB(ar$(49),210,20):
  5262. f_wht
  5263. getMK
  5264. sec_pl
  5265. n!   
  5266.  SIi(X,Y)=s_lord 
  5267.  sca+=1
  5268.  sca>1 a$="s." 
  5269.  a$="."
  5270. sec_give(t$(159)+
  5271. (sca)+" planet"+a$)
  5272. sec_in
  5273.  cr_ok=0 
  5274. 6,112,1
  5275. re_mh
  5276. fillarray("se1",14)
  5277. f_yel:
  5278. cdsB(t$(160),210,6)
  5279. f_wht
  5280.  invent%(s_lord,X) 
  5281.  sca+=1:
  5282. cdsB(
  5283. ar$(X),
  5284. (ar$(X))-6),210,sca+6)
  5285.  sca=0 
  5286. cdsB("None",210,8)
  5287. mfront
  5288. getMK
  5289. fillarray("ss1",50)
  5290. sec_alleys
  5291.  acnt
  5292.  cr_ok=0 
  5293. 6,112,1
  5294. re_mh:
  5295. f_yel
  5296. cdsB("The allies of "+
  5297. g(s_lord)+" "+H$(s_lord)+" are:",210,6)
  5298. f_wht
  5299.  allied(s_lord,n) 
  5300. cdsB(H$(n),210,8+acnt):acnt+=1
  5301.  acnt=0 
  5302. cdsB("None.",210,8)
  5303. mfront
  5304. getMK
  5305. sec_give(sec$)
  5306.  cr_ok=0 
  5307. 6,112,1
  5308. re_mh:
  5309. f_yel
  5310. cdsB(t$(161)+
  5311. g(s_lord)+" "+H$(s_lord),210,6)
  5312. f_wht
  5313. cdsB(t$(162),210,8)
  5314. cdsB(sec$,210,9)
  5315. mfront
  5316. getMK
  5317. svm(vmon)
  5318.  credits<vmon 
  5319.  cr_ok=0 
  5320.  cr_ok=1:credits-=vmon:u_ok=1
  5321. shortinfo
  5322. sec_dsp(snum,num)
  5323. 6,112,1
  5324. re_mh
  5325. f_yel:
  5326. cdsB(ar$(snum),210,6)
  5327. cdsB(ar$(9),210,20):
  5328. f_wht
  5329.  n=2 
  5330.  num+1
  5331. inst(ar$(n+snum),210,n+8,n-1)
  5332.  flashnum=num:flashactual=0
  5333. mfront
  5334.  A,B,C:
  5335. pickrow
  5336.  row=8 
  5337.  row=9 
  5338.  row=8 
  5339.  t%(1)<100 
  5340.  t%(1)+=1:
  5341.  row=9 
  5342.  t%(1)>0 
  5343.  t%(1)-=1:
  5344.  row>=14 
  5345.  row<=18 
  5346. newoff:
  5347. stdraw:A=0:B=0:C=0
  5348.  row=20 
  5349.  ok=1
  5350. staff
  5351.  A,B,C:
  5352. stdraw
  5353.      ok=0
  5354.  A,B,C,D
  5355.  old_C=0 
  5356.     delay=D
  5357.  D-delay>50 
  5358.      
  5359.      
  5360.  arm>=2 
  5361.         
  5362.   old_C=C
  5363.  row=0
  5364. sdelete("scr2")
  5365. stdraw
  5366. 6,112,1
  5367. re_mh
  5368.  427,677:
  5369.  589,769:
  5370. sget("scr2")
  5371. fillarray("sf1",25)
  5372. f_yel
  5373. cdsB(t$(163),210,6)
  5374. cdsB(t$(164),600,8)
  5375. cdsB(t$(164),600,9)
  5376. f_wht
  5377. cdsB(
  5378. (t%(1))+" %",440,8)
  5379. cdsB(
  5380. (100-t%(1))+" %",440,9)
  5381. cdsB(ar$(n),210,7+n)
  5382. cdsB("Rating",642,12)
  5383. cdsB("Cost",822,12)
  5384.  n=14
  5385. f_yel
  5386. cdsB("New",952,n)
  5387.   pm=0
  5388.  Ps%(1,n-13) 
  5389.  0:a$="poor":pm=0
  5390.  1:a$="average":pm=4
  5391.  2:a$="good":pm=8
  5392. f_wht
  5393. cdsB(a$,650,n)
  5394. cdsB(
  5395. (pm),830,n)
  5396. f_yel
  5397. cdsB(t$(92),210,20)
  5398. f_wht
  5399. mfront
  5400. 6,112,1
  5401. re_mh
  5402. 6,112,2
  5403. 6,112,1
  5404. schoose("scr2")
  5405. plot(0,427,677)
  5406. cdsB(
  5407. (t%(1))+" %",440,8)
  5408. cdsB(
  5409. (100-t%(1))+" %",440,9)
  5410.  427,677:
  5411.  589,769:
  5412. sget("screen")
  5413. 6,112,2
  5414. schoose("screen")
  5415. plot(0,427,677)
  5416. newoff
  5417. gmerge("br8")
  5418.  no,nok,bn,x$
  5419.  bn=1 
  5420.   b$(bn)=ar$(bn)
  5421.  no=1
  5422. 6,112,1
  5423. re_mh
  5424.   x$="nc"+
  5425. (no-1)
  5426.  no=1 
  5427.  x$="nc0"
  5428. fillarray(x$,9)
  5429. schoose("export")
  5430. plot(0,280,236)
  5431. frame(208,236,272,286,42)
  5432. frame(1000,236,1069,286,42)
  5433.   r=row-13
  5434. f_yel
  5435. cdsB("New "+b$(r+6),210,6)
  5436. f_wht
  5437.  1: a$="poor":p=2
  5438.  2: a$="average":p=4
  5439.  3: a$="good":p=8
  5440. cdsB(b$(12),210,9)
  5441. cdsB(b$(13),210,10)
  5442. cdsB(b$(14),210,11)
  5443. f_yel
  5444. cdsB(a$,680,9)
  5445. cdsB(
  5446. (p*50),680,10)
  5447. cdsB(
  5448. (p),680,11)
  5449. f_wht
  5450.  bn=1 
  5451. cdsB(ar$(bn),222,13+bn)
  5452.   nok=0
  5453. mfront
  5454.  A,B,C:
  5455.  A,B,C
  5456. 6    
  5457.  C>0 
  5458.  B>=236 
  5459.  B<=286 
  5460. 7A    
  5461.  A>280 
  5462.  A<517 
  5463. button(280,236,280+232,286,1):
  5464. takeoff
  5465. 8E    
  5466.  A>517 
  5467.  A<757 
  5468. button(521,236,521+232,286,1):
  5469.  no<3 nok=1
  5470. 9C    
  5471.  A>757 
  5472.  A<997 
  5473. button(761,236,761+232,286,1):nok=1:no=3
  5474.  bn=1 
  5475.   ar$(bn)=b$(bn)
  5476. sdelete("export")
  5477. takeoff
  5478.  credits<p*50 
  5479.  nok=1
  5480.  credits-=p*50
  5481.  Ps%(1,r)=no-1
  5482. K     no=3
  5483. 6,112,1
  5484. re_mh
  5485. cdsB(b$(15),210,6)
  5486. cdsB("old "+b$(r+6)+"?",210,7)
  5487.  n=1 
  5488.  credits<50 
  5489. f_gre 
  5490. f_yel
  5491. cdsB(b$(16+n),210,n+9)
  5492. f_wht
  5493. U     na=0
  5494. mfront
  5495. pickrow
  5496.  row=11 
  5497.  row=12 na=1:reput-=1
  5498.  row=10 
  5499.  credits>=50 na=1:credits-=50:reput+=1
  5500. ^*   
  5501.  row=12 
  5502.  SIi(a,b)=1 
  5503.  SIr(a,b)+=1
  5504. _B   
  5505.  row=10 
  5506.  SIi(a,b)=1 
  5507.  SIr(a,b)-=1:
  5508.  SIr(a,b)<0 SIr(a,b)=0
  5509.  rw=(row-10)*2+20
  5510. re_mh
  5511. cdsB(b$(rw),210,6)
  5512. cdsB(b$(rw+1),210,7)
  5513. getMK
  5514.  A=0:B=0:C=0
  5515.  IF plr<>1 ENDPROC
  5516. 6,112,1
  5517. gmerge("me2")
  5518. schoose("menu")
  5519. plot(0,204,232)
  5520. f_yel
  5521. cdsB(t$(165),210,6)
  5522. mfront
  5523.  A,B,C:
  5524.  flashnum=11:flashactual=0
  5525. pickrow
  5526.  r>7 
  5527. r<21 
  5528.  r<>19
  5529.  flashnum=0
  5530.  IF r<20 THEN
  5531.  r-=7
  5532.  lastsaveplace=r
  5533.  PROCre_mh
  5534.  PROCf_yel
  5535.  PROCcdsB(t$(166),560,12)
  5536.  PROCf_wht
  5537.  PROCsaveHD
  5538.  ENDIF
  5539. gmerge("me1")
  5540. f_gre
  5541. cdsB("Month",650,6)
  5542. cdsB("Planets",850,6)
  5543. f_wht
  5544.  X=1b$=" "
  5545.  b$=""
  5546.       B=0
  5547. ("Saved.sv"+
  5548.       B=A
  5549.  B<>0 
  5550. #A,a$
  5551. inst(a$,280,7+X,X)
  5552. cdsB(
  5553. (b-1),650,7+X)
  5554. cdsB(
  5555. (c),850,7+X)
  5556.    ar$(X)=a$
  5557. f_gre
  5558. cdsB("Empty",280,7+X)
  5559. inst("",0,0,X)
  5560.    ar$(X)=""
  5561.  A>0 
  5562. f_wht
  5563. cdsB(b$+
  5564. (X),210,7+X)
  5565. f_yel
  5566. cdsB(t$(155),210,20)
  5567. f_wht
  5568. s_info
  5569. counselor(21)
  5570. ststat
  5571.  strx,stry
  5572.  strx=688
  5573.  stry=240
  5574. gmerge("sp1")
  5575. 6,112,1
  5576. re_mh
  5577. schoose("ship1")
  5578. plot(8,strx,stry)
  5579.  PROCsdelete("ship1")
  5580. f_yel
  5581. cdsB(t$(178),210,6)
  5582. cdsB(t$(179),210,10)
  5583. f_wht
  5584.  stsh%(1,8)+stsh%(1,9)+stsh%(1,10)>0 a$="Damaged" 
  5585.  a$="OK"
  5586. cdsB(t$(180)+a$,210,8)
  5587.  X=12
  5588. 12:a$=t$(181)
  5589. 13:a$=t$(182)
  5590. 14:a$=t$(183)
  5591. 15:a$=t$(184)
  5592. 16:a$=t$(185)
  5593. 17:a$=t$(186)
  5594. 18:a$=t$(187)
  5595. f_wht
  5596. cdsB(a$,210,X)
  5597. f_yel
  5598.  X<17 a$=
  5599. (stsh%(1,X-11))
  5600.  X>16 
  5601.  stsh%(1,X-11)=1 
  5602.  a$="Yes" 
  5603.  a$="No"
  5604. cdsB(a$,588,X)
  5605. mfront
  5606. getMK
  5607. stdam
  5608.  strx,stry
  5609.  strx=688
  5610.  stry=240
  5611. gmerge("sp1")
  5612. 6,112,1
  5613. re_mh
  5614. schoose("ship1")
  5615. plot(8,strx,stry)
  5616. sdelete("ship1")
  5617. f_yel
  5618. cdsB(t$(178),210,6)
  5619. cdsB(t$(188),210,10)
  5620. f_wht
  5621.  stsh%(1,8)+stsh%(1,9)+stsh%(1,10)>0 a$="Damaged" 
  5622.  a$="OK"
  5623. cdsB(t$(180)+a$,210,8)
  5624.  X=12
  5625.  12:a$=t$(189)
  5626.  13:a$=t$(190)
  5627.  14:a$=t$(191)
  5628. f_wht
  5629. cdsB(a$,210,X)
  5630. f_yel
  5631. cdsB(
  5632. (100-stsh%(1,X-4))+" %",568,X)
  5633. mfront
  5634. getMK
  5635. gp(gc,ga,gb)
  5636. schoose("shp"+
  5637. (gc))
  5638. plot(8,strx+ga,stry+gb)
  5639. gd(gc,ga,gb)
  5640. schoose("dmg"+
  5641. (gc))
  5642. plot(8,strx+ga,stry+gb)
  5643.  stsh%(1,1)>0 
  5644. gp(1,117,21)
  5645.  stsh%(1,1)>1 
  5646. gp(1,210,21)
  5647.  stsh%(1,2)>0 
  5648. gp(2,20,20)
  5649.  stsh%(1,2)>1 
  5650. gp(2,308,20)
  5651.  stsh%(1,2)>2 
  5652. gp(2,69,354)
  5653.  stsh%(1,2)>3 
  5654. gp(2,272,354)
  5655.  stsh%(1,3)>0 
  5656. gp(3,69,189)
  5657.  stsh%(1,3)>1 
  5658. gp(3,270,189)
  5659.  stsh%(1,3)>2 
  5660. gp(3,114,441)
  5661.  stsh%(1,3)>3 
  5662. gp(3,225,441)
  5663.  stsh%(1,3)>4 
  5664. gp(3,114,405)
  5665.  stsh%(1,3)>5 
  5666. gp(3,225,405)
  5667.  stsh%(1,3)>6 
  5668. gp(3,69+44,354)
  5669.  stsh%(1,3)>7 
  5670. gp(3,270-44,354)
  5671.  stsh%(1,3)>8 
  5672. gp(3,69,306)
  5673.  stsh%(1,3)>9 
  5674. gp(3,279,306)
  5675.  stsh%(1,6) 
  5676. gp(4,168,120)
  5677.  stsh%(1,7) 
  5678. gp(5,153,0)
  5679.  stsh%(1,8) 
  5680. gd(1,31,0)
  5681.  stsh%(1,8)>50 
  5682. gd(1,247,0)
  5683.  stsh%(1,9) 
  5684. gd(2,97,311)
  5685.  stsh%(1,9)>50 
  5686. gd(2,199,311)
  5687.  s=stsh%(1,10)
  5688.  s>0 
  5689. gd(3,106,482)
  5690.  s>10 
  5691. gd(4,193,410)
  5692.  s>20 
  5693. gd(5,40,173)
  5694.  s>30 
  5695. gd(6,241,311)
  5696.  s>50 
  5697. gd(7,97,98)
  5698.  s>80 
  5699. gd(8,142,470)
  5700.   PROCsdelete("dmg"+STR$(n))
  5701.   IF n<6 PROCsdelete("shp"+STR$(n))
  5702. setmarkers(set)
  5703.  markX=0
  5704.  markY=0
  5705.  mark$=""
  5706. 6,112,1
  5707.  set=0 
  5708. re_mh 
  5709. f_yel
  5710. cdsB(t$(192),210,6)
  5711. f_wht
  5712. cdsB("M"+
  5713. (X),210,7+X)
  5714. f_red
  5715. cdsB(mark$(1,X),280,7+X)
  5716. f_wht
  5717. f_yel
  5718. cdsB(t$(155),210,20)
  5719. f_wht
  5720. mfront
  5721.  a,b,c:
  5722. pickrow
  5723.  (r>7 
  5724.  r<16) 
  5725.  r=20
  5726.  r<>20 
  5727.   mkn=r-7
  5728.  PROCdsp(t$(193),550,11)
  5729.  PROCinputname(mark$(1,mkn),688,400,1)
  5730.   usemark=1
  5731. inputname(mark$(1,mkn),288,1031-r*40,1)
  5732.   usemark=0
  5733.   mark$(1,mkn)=pl$
  5734.  pl$<>"" 
  5735.    findvar=1
  5736.    varfound=0
  5737. masteranimate
  5738.  escpressed=0 
  5739.     mark$(1,mkn)=pl$
  5740.     markX(1,mkn)=SunX(fsys)
  5741.     markY(1,mkn)=SunY(fsys)
  5742.     escpressed=0
  5743.    findvar=0
  5744.    varfound=0
  5745. T$   markX(1,mkn)=0:markY(1,mkn)=0
  5746.  rw=18
  5747.  set=1 
  5748. listinv
  5749. fillarray("se1",14)
  5750. 6,112,1
  5751. re_mh
  5752. f_yel
  5753. cdsB(t$(194),210,6)
  5754.  invent%(1,X)=1 
  5755. f_wht 
  5756. f_gre
  5757. cdsB(
  5758. ar$(X),
  5759. (ar$(X))-6),210,X+6)
  5760. f_wht
  5761. mfront
  5762.  A,B,C:
  5763.  A,B,C:
  5764.  C<>0
  5765.  C<>1 
  5766. pickrow
  5767.  (r>6 
  5768.  r<21)
  5769. p     r-=6
  5770.  ab$=ar$(r)
  5771. ab$,1)
  5772.  ab$=
  5773. (ab$)-6)
  5774.  "p": vb$=t$(195)
  5775.  "m": vb$=t$(196)
  5776.  "e": vb$=t$(197)
  5777.  "i": vb$=t$(198)
  5778.  "w": vb$=t$(199)
  5779. fillarray("sc"+
  5780. (r),6)
  5781. 6,112,1
  5782. re_mh
  5783. f_yel
  5784. cdsB(vb$+t$(200),210,6)
  5785. cdsB(t$(201)+ab$,210,7)
  5786. f_wht
  5787.  invent%(1,r)=0 a$=t$(202) 
  5788.  a$=t$(203)
  5789. cdsB(a$,210,8)
  5790. cdsB(ar$(n),210,n+6)
  5791. f_yel
  5792.  r>5 
  5793. cdsB(t$(204),210,14)
  5794. f_wht
  5795.    a$=""
  5796.  ar$(X) 
  5797.  "1": a$=t$(205)
  5798.  "2": a$=t$(206)
  5799.  "3": a$=t$(207)
  5800.  "4": a$=t$(208)
  5801.  "5": a$=t$(209)
  5802.  ar$(X)="0" 
  5803.  X=1 a$="None"
  5804. cdsB(a$,210,15+X)
  5805. cdsB(t$(210),210,14)
  5806. f_wht
  5807. mfront
  5808. getMK
  5809. listali
  5810. 6,112,1
  5811. re_mh
  5812. f_yel
  5813. cdsB(t$(211),210,6)
  5814. f_wht
  5815.   a$=""
  5816.  allied(1,X) 
  5817.  a$="Trade"
  5818.  allied(1,X) 
  5819.  a$<>"" 
  5820.  a$+=" /No Att" 
  5821.  a$="No Att"
  5822.  allied(1,X) 
  5823.  a$<>"" 
  5824.  a$+=" /War ally" 
  5825.  a$="War ally"
  5826.  evillord(X)=1 
  5827.  a$="" 
  5828.  a$="Hostile"
  5829.  X<=players 
  5830.  verhalten(X,1)=1 
  5831.  a$="" 
  5832.  a$="Friendly"
  5833.  verhalten(X,1)=3 
  5834.  a$="" 
  5835.  a$="Hostile"
  5836.  a$="" a$="None"
  5837.  existing(X) 
  5838. f_wht 
  5839. f_gre
  5840. cdsB(
  5841. g(X)+" "+H$(X),210,5+X)
  5842. f_yel
  5843.  X<=players 
  5844.  allied(1,X)=0 
  5845.  verhalten(X,1)=3 
  5846. f_red
  5847.  allied(1,X)=0 
  5848.  evillord(X)=1 
  5849. f_red
  5850.  a$="None" 
  5851. f_wht
  5852.  existing(X)=0 
  5853. f_gre
  5854. cdsB(a$,550,5+X)
  5855. f_wht
  5856. mfront
  5857. getMK
  5858. sec_lords
  5859.  cr_ok=0 
  5860.  A,B,C:
  5861. 6,112,1
  5862. re_mh
  5863. f_yel
  5864. cdsB(t$(212),210,6)
  5865. f_wht
  5866.  existing(X) 
  5867. f_wht 
  5868. f_gre
  5869. cdsB(
  5870. g(X)+" "+H$(X),210,5+X)
  5871. f_wht
  5872. mfront
  5873.      ok=0
  5874.  flashnum=0
  5875. pickrow
  5876.   s_lord=row-5
  5877.  s_lord<2 
  5878.  s_lord>15 
  5879.  s_lord=0
  5880.   existing(0)=0
  5881.  existing(s_lord) 
  5882.  ok=1
  5883. listpln
  5884. 6,112,1
  5885. re_mh
  5886. f_yel
  5887. cdsB(t$(213),210,6)
  5888. cdsB("Inf",750,6)
  5889. cdsB("Gli",850,6)
  5890. cdsB("Art",950,6)
  5891. f_wht
  5892.  a=0:p=0
  5893.  SIi(X,Y)=1 
  5894. 3    
  5895. cdsB(SIn$(X,Y)+" at "+SunName$(X),210,8+a)
  5896. %    
  5897. cdsB(
  5898. (SIk%(X,Y,1)),750,8+a)
  5899. %    
  5900. cdsB(
  5901. (SIk%(X,Y,2)),850,8+a)
  5902. %    
  5903. cdsB(
  5904. (SIk%(X,Y,3)),950,8+a)
  5905.     a+=1:p=1
  5906.  a>10 
  5907. f_yel
  5908. cdsB(t$(214),210,20)
  5909. mfront
  5910. getMK
  5911. 6,112,1
  5912. re_mh
  5913. cdsB(t$(215),210,6)
  5914. f_wht
  5915.     a=0
  5916.  a=0 
  5917.  p>0 
  5918. cdsB(t$(216),210,8)
  5919.  p=0 
  5920. cdsB(t$(217),210,8)
  5921. f_wht
  5922. mfront
  5923. getMK
  5924.  6,112,2
  5925.  192,859:
  5926.  1087,1000:
  5927. sget("hold")
  5928.  6,112,1
  5929. schoose("hold"):
  5930. plot(0,192,859):
  5931. sdelete("hold")
  5932. gmerge("me1")
  5933. cframe
  5934. schoose("flag"+
  5935.  flag(1))
  5936. plot(0,548,876)
  5937. schoose("menu")
  5938. plot(0,204,232)
  5939. f_wht
  5940. re_mh
  5941. schoose("menu")
  5942. plot(0,204,232)
  5943. pickrow
  5944. flash(1)
  5945.  a,b,c
  5946.  c=4 
  5947.    row=0:r=0
  5948. #"   
  5949.  n=1044
  5950. (1044-24*40) 
  5951.     row+=1
  5952.  a>192 
  5953.  a<1087 
  5954. &/     
  5955.  b>=n-40 
  5956.  b<n 
  5957.  r=row:n=(1044-24*40)
  5958. '        
  5959.  r<>0 
  5960.  (inmenu=1 
  5961.  c>0)
  5962. cplanet
  5963.  phase,panim,number
  5964. re_mh
  5965. f_yel
  5966. cdsB(t$(218),210,6)
  5967.  pphase(1)<3 
  5968. gmerge("pp"+
  5969. (pphase(1)+1))
  5970. schoose("const"):
  5971. plot(8,244,600)
  5972. sdelete("const")
  5973. f_wht
  5974.  number=0
  5975.  psun(1,a)=0 number=a
  5976.  pphase(1)=0 whichp(1)=number 
  5977.  number=whichp(1)
  5978.  pphase(1)=3 
  5979.  phase=pphase(1)
  5980.  pphase(1)+=1
  5981.  s=selected
  5982.  sel=selectedsys
  5983.  pphase(1)=2 
  5984.  b$="_8" 
  5985.  b$=""
  5986.  pphase(1)=1 b$=t$(219)
  5987.  pphase(1)=2 b$=t$(220)
  5988.  pphase(1)=3 b$=t$(221)
  5989. cdsB(t$(222)+
  5990. (pphase(1))+".",450,9)
  5991. cdsB(t$(223)+b$+".",450,10)
  5992.  pphase(1) 
  5993.  1:a$=t$(224)
  5994.  2:a$=t$(225)
  5995.  3:a$=t$(226)
  5996. cdsB(a$,250,13)
  5997.  pphase(1)=1 
  5998. sfpB(t$(227),250,432)
  5999. inputname("Genesis",688,420,1)
  6000. cdsB(t$(228),250,18)
  6001.  pphase(1)=2 
  6002. cdsB(t$(229),250,15)
  6003. cdsB(t$(230),250,16)
  6004.  pphase(1)=3 
  6005. cdsB(t$(231),250,15)
  6006. cdsB(t$(232),250,16)
  6007.  phase>1 
  6008. dowp(1,number)
  6009. getMK
  6010.  pphase(1)=1 
  6011.     escpressed=0
  6012.     findvar=1
  6013.     varfound=0
  6014. masteranimate
  6015.  escpressed=0
  6016.    psun(1,number)=fsys
  6017. f!   SIn$(psun(1,number),5)=pl$
  6018.    findvar=0
  6019.    varfound=0
  6020. i'   
  6021.  plan(fsys,5)>0 
  6022. counselor(5)
  6023.  plan(fsys,5)=0
  6024. dowp(lord,num)
  6025.  p=psun(lord,num)
  6026.  SIs(p,5)=0
  6027.  lord>1 
  6028.  SIn$(p,5)="Genesis"
  6029.  SIi(p,5)=lord
  6030.  SIb(p,5)=1
  6031.  SIt(p,5)=0
  6032.  SIr(p,5)=0
  6033.  SIna(p,5)=6
  6034.  SIc(p,5)=0
  6035.  SIam(p,5)=2
  6036.  SId(p,5)=12000
  6037.  SIv(p,5)=10
  6038.  SIc(p,5)=1
  6039.  SIrm(p,5)=0
  6040.  SIm%(p,5)=2
  6041.  surf%()=0
  6042.  XX=3
  6043.  YY=3
  6044.    R=
  6045.  R=1 surf%(XX,YY)=8
  6046.  R>1 surf%(XX,YY)=9
  6047.  R=2 
  6048. (3)=1 surf%(XX,YY)=29
  6049.  R>3 surf%(XX,YY)=0
  6050.  surf%(12,12)=2
  6051.  surf%(11,12)=2
  6052.  surf%(12,11)=2
  6053.  surf%(11,11)=2
  6054.  surf%(8,8)=5
  6055.  surf%(9,8)=1
  6056.  surf%(7,8)=1
  6057.  surf%(8,9)=1
  6058.  surf%(8,7)=1
  6059.  surf%(4,11)=12
  6060.  IF invent%(lord,14)=0 surf%(4,9)=4
  6061.  codde=1:
  6062. code(p,5):codde=0
  6063.  planX(p,5)=1100
  6064.  planY(p,5)=500
  6065.  pspeed(p,5)=10
  6066. 3:SIk%(p,5,a)=15:
  6067. movewp(num)
  6068.  alright,abort
  6069.  actualMenu=1
  6070. gload("ts1"):
  6071. gmerge("pt1")
  6072.   alright=1
  6073.   abort=0
  6074.   findvar=1
  6075.   varfound=0
  6076. masterredo
  6077. masteranimate
  6078.   findvar=0
  6079.   varfound=0
  6080.  escpressed 
  6081.    abort=1
  6082.    alright=0
  6083.    escpressed=0
  6084. ,     
  6085.  ptarget(a,b)=fsys 
  6086.  alright=0:m=4
  6087. )     
  6088.  psun(a,b)=fsys 
  6089.  alright=0:m=5
  6090.  plan(fsys,5)>0 
  6091.  alright=0:m=5
  6092.  alright=0 
  6093. counselor(m):
  6094.  accepted=0 
  6095.  abort=1
  6096.  alright 
  6097.  abort
  6098.  alright ptarget(1,num)=fsys
  6099. arrivewp(lord,num)
  6100.  ops,p,k
  6101.  plan(psun(lord,num),5)=0
  6102.   plan(ptarget(lord,num),5)=8
  6103.  p=ptarget(lord,num)
  6104.  ops=psun(lord,num)
  6105. + SIs(p,5)  =SIs(ops,5)  :SIs(ops,5)  =0
  6106. , SIn$(p,5) =SIn$(ops,5) :SIn$(ops,5) =""
  6107. + SIi(p,5)  =SIi(ops,5)  :SIi(ops,5)  =0
  6108. + SIb(p,5)  =1           :SIb(ops,5)  =0
  6109. + SIt(p,5)  =SIt(ops,5)  :SIt(ops,5)  =0
  6110. + SIr(p,5)  =SIr(ops,5)  :SIr(ops,5)  =0
  6111. + SIna(p,5) =SIna(ops,5) :SIna(ops,5) =0
  6112. + SIc(p,5)  =SIc(ops,5)  :SIc(ops,5)  =0
  6113. + SIam(p,5) =SIam(ops,5) :SIam(ops,5) =0
  6114. + SId(p,5)  =SId(ops,5)  :SId(ops,5)  =0
  6115. + SIv(p,5)  =SIv(ops,5)  :SIv(ops,5)  =0
  6116. + SIrm(p,5) =0           :SIrm(ops,5) =0
  6117. + SIu(p,5)  =SIu(ops,5)  :SIu(ops,5)  =0
  6118. + SIgr(p,5) =SIgr(ops,5) :SIgr(ops,5) =0
  6119. + SIm%(p,5) =2           :SIm%(ops,5) =0
  6120. + SIpo%(p,5)=SIpo%(ops,5):SIpo%(ops,5)=0
  6121. + SIl%(p,5) =SIl%(ops,5) :SIl%(ops,5) =0
  6122. /  SIk%(p,5,k)=SIk%(ops,5,k):SIk%(ops,5,k)=0
  6123. /  SIg%(p,5,k)=SIg%(ops,5,k):SIg%(ops,5,k)=0
  6124.  planX(p,5)=1100
  6125.  planY(p,5)=500
  6126.  pspeed(p,5)=10
  6127. decode(ops,5)
  6128. code(p,5)
  6129. % psun(lord,num)=ptarget(lord,num)
  6130.  ptarget(lord,num)=0
  6131. mainstat
  6132. 6,112,1
  6133. re_mh
  6134. f_yel
  6135. cdsB(t$(233)+
  6136. (normalfont-1),210,6)
  6137. cdsB(t$(234),210,10)
  6138. f_wht
  6139. cdsB(t$(235),210,8)
  6140. cdsB(
  6141. (credits)+t$(236),500,8)
  6142.  a=0:b=0:c=0
  6143.  X=1 
  6144.  Y=1 
  6145. @    
  6146.  SIi(X,Y)=1 
  6147.  a+=1: b+=SIs(X,Y)+SIc(X,Y)*2:c+=SIam(X,Y)
  6148.  p=(b-c)/100
  6149. (p*t%(1))
  6150.  n=b-c-s
  6151. cdsB(t$(237),210,12)
  6152. cdsB(t$(238),210,13)
  6153. cdsB(t$(239),210,14)
  6154. cdsB(t$(240),210,16)
  6155. cdsB(t$(241),210,17)
  6156.  X=12
  6157. cdsB("MC",600,X):
  6158. cdsB(t$(242),600,17)
  6159. f_yel
  6160. cdsB(
  6161. (n),500,12)
  6162. cdsB(
  6163. (s),500,13)
  6164. cdsB(
  6165. (c),500,14)
  6166. cdsB(
  6167. (a),500,16)
  6168. cdsB(
  6169. (war%+scout%+trans%+bomb%),500,17)
  6170.  flying 
  6171.  flysys>0 
  6172.  a$="star "+SunName$(flysys)+"." 
  6173.  a$=t$(243)
  6174. cdsB(t$(244)+a$,210,19)
  6175. f_wht
  6176. mfront
  6177. getMK
  6178. flinfo
  6179. 6,112,1
  6180. re_mh
  6181. %X tfree%=trans%-(freight(0)+freight(1)+freight(2)+freight(3)+ship(1)+ship(2)+ship(3))
  6182. f_yel
  6183. cdsB(t$(245),210,6)
  6184. cdsB(t$(246),210,13)
  6185. f_wht
  6186. cdsB(t$(247),210,8)
  6187. cdsB(t$(248),210,9)
  6188. cdsB(t$(249),210,10)
  6189. cdsB(t$(250),210,11)
  6190. f_yel
  6191. cdsB(
  6192. (scout%),500,8)
  6193. cdsB(
  6194. (trans%),500,9)
  6195. cdsB(
  6196. (war%),500,10)
  6197. cdsB(
  6198. (bomb%),500,11)
  6199. f_wht
  6200. cdsB(t$(251),210,15)
  6201. cdsB(t$(252),210,16)
  6202. cdsB(t$(253),210,17)
  6203. cdsB(t$(254),210,18)
  6204. cdsB(t$(255),620,15)
  6205. cdsB(t$(256),620,16)
  6206. cdsB(t$(257),620,17)
  6207. cdsB(t$(258)+
  6208. (tfree%)+t$(259),620,9)
  6209. f_yel
  6210. cdsB(
  6211. (freight(1)),500,15)
  6212. cdsB(
  6213. (freight(2)),500,16)
  6214. cdsB(
  6215. (freight(3)),500,17)
  6216. cdsB(
  6217. (freight(0)),500,18)
  6218. cdsB(
  6219. (ship(1)),870,15)
  6220. cdsB(
  6221. (ship(2)),870,16)
  6222. cdsB(
  6223. (ship(3)),870,17)
  6224. f_wht
  6225. mfront
  6226. getMK
  6227. statistics
  6228. 6,112,1
  6229. re_mh
  6230. f_yel
  6231. cdsB(t$(260),210,6)
  6232. f_wht
  6233. cdsB(t$(261),210,9)
  6234. cdsB(t$(262),210,10)
  6235. cdsB(t$(263),210,11)
  6236. cdsB(t$(264),210,12)
  6237. cdsB(t$(265),210,13)
  6238. cdsB(t$(266),210,14)
  6239. mfront
  6240. 15:already(X)=0:
  6241.  b=0:c=0
  6242.  lord=1 
  6243. Y      a=0
  6244.  X=1 
  6245.  Y=1 
  6246. \1    
  6247.  SIi(X,Y)=lord 
  6248.  existing(lord)=1 
  6249.  a+=1
  6250.  a>=b 
  6251.  b=a :c=lord
  6252.  lord
  6253. whichlord(c,700,9)
  6254.  already(c)+=1
  6255.  credits(1)=credits
  6256.  a=0:c=0
  6257.  lord=1 
  6258.  credits(lord)>=a 
  6259.  existing(lord)=1 
  6260.  a=credits(lord):c=lord
  6261.  lord
  6262. whichlord(c,700,10)
  6263.  already(c)+=1
  6264.  b=0:c=0
  6265.  lord=1 
  6266. l      a=0
  6267.  X=1 
  6268.  Y=1 
  6269. oT    
  6270.  SIi(X,Y)=lord 
  6271.  existing(lord)=1 
  6272.  a+= SIk%(X,Y,1)+SIk%(X,Y,2)+SIk%(X,Y,3)
  6273.  a>=b 
  6274.  b=a :c=lord
  6275.  lord
  6276. whichlord(c,700,11)
  6277.  already(c)+=1
  6278.  c=0:b=0
  6279.  lord=1 
  6280. x      a=0
  6281.  existing(lord) 
  6282.     n=allied(lord,X)
  6283.  a+=1
  6284.  a+=1
  6285.  a+=1
  6286.  a>=b 
  6287.  a>0 
  6288.  b=a:c=lord
  6289.  lord
  6290. whichlord(c,700,12)
  6291.  already(c)+=1
  6292.  a=0:c=0:b=0
  6293.  lord=1 
  6294.       a=0
  6295.  existing(lord) 
  6296.      
  6297.  invent%(lord,i) 
  6298.  a+=1
  6299.  a>=b 
  6300.  b=a:c=lord
  6301.  lord
  6302. whichlord(c,700,13)
  6303.  already(c)+=1
  6304.  lord=15 
  6305.       a=0
  6306.  existing(lord) 
  6307. =   a=escout%(lord)+ewar%(lord)+ebomb%(lord)+etrans%(lord)
  6308.  lord=1 
  6309.  a=scout%+war%+bomb%+trans%
  6310.  a>=b 
  6311.  b=a:c=lord
  6312.  lord
  6313. whichlord(c,700,14)
  6314.  already(c)+=1
  6315. f_yel
  6316. cdsB(t$(267),210,16)
  6317.  b=0:a=0:c=0
  6318.  lord=1 
  6319.  already(lord)>=b 
  6320.  b=already(lord):c=lord
  6321.  lord
  6322. whichlord(c,700,16)
  6323. f_wht
  6324. getMK
  6325. whichlord(lord,X,Y)
  6326. g(lord)+" "+H$(lord)
  6327.  lord=0 
  6328.  b$=t$(268)
  6329. cdsB(b$,X,Y)
  6330. wait(time)
  6331.  time<1 
  6332.  wait=1
  6333.  time:
  6334. dsplarge(txt$,x%,y%)
  6335.  262282,bfnt%
  6336.  "Font_SetPalette",,0,1,6,font_back_col,font_col
  6337.  262278,,txt$,%10000,x%,y%
  6338. sfp(txt$,x%,y%)
  6339.  262282,sfnt%
  6340.  "Font_SetPalette",,0,1,6,font_back_col,font_col
  6341.  262278,,txt$,%10000,x%,y%
  6342. dsp(txt$,x%,row)
  6343. y%=1023-(row*40)
  6344.  262282,sfnt%
  6345.  "Font_SetPalette",,0,1,6,font_back_col,font_col
  6346.  262278,,txt$,%10000,x%,y%
  6347. dspr(txt$,x%,row,rubx1,ruby1,rubx2,ruby2)
  6348. y%=1023-(row*40)
  6349.  262282,sfnt%
  6350.  "Font_SetPalette",,0,1,6,font_back_col,font_col
  6351.  rubx1,ruby1:
  6352. rubx2,ruby2
  6353.  262278,,txt$,%10010,x%,y%
  6354. sfpr(txt$,x%,y%,rubx1,ruby1,rubx2,ruby2)
  6355.  262282,sfnt%
  6356.  "Font_SetPalette",,0,1,6,font_back_col,font_col
  6357.  rubx1,ruby1:
  6358. rubx2,ruby2
  6359.  262278,,txt$,%10010,x%,y%
  6360. dspc(txt$,row)
  6361. y%=1023-(row*40)
  6362.  262282,sfnt%
  6363.  "Font_SetPalette",,0,1,6,font_back_col,font_col
  6364.  262281,,1280 
  6365.  ,box%
  6366.  262277,,txt$,box%,,32,
  6367. (txt$) 
  6368.  ,,box%
  6369.  262280,,box% 
  6370.  ,box%
  6371.  262278,,txt$,%10000,640-(box%/2),y%
  6372. cds(txt$,x%,row)
  6373. y%=1051-(row*40)
  6374.  262282,sfnt%
  6375.  "Font_SetPalette",,0,1,6,font_back_col,font_col
  6376.  262278,,txt$,%10000,x%,y%
  6377. center(txt$,y%)
  6378.  262282,bfnt%
  6379.  "Font_SetPalette",,0,1,6,font_back_col,font_col
  6380.  262281,,1280 
  6381.  ,box%
  6382.  262277,,txt$,box%,,32,
  6383. (txt$) 
  6384.  ,,box%
  6385.  262280,,box% 
  6386.  ,box%
  6387.  262278,,txt$,%10000,640-(box%/2),y%
  6388. dsplargeB(txt$,x%,y%)
  6389.  262282,bfnt%
  6390.  blend_feature=0 
  6391.  "Font_SetPalette",,0,1,6,font_back_col,font_col 
  6392.  "ColourTrans_SetFontColours",bfnt%,font_back_col,font_col,1
  6393.  262278,,txt$,(%000000010000 
  6394.  (blend_feature*2048)),x%,y%
  6395. sfpB(txt$,x%,y%)
  6396.  262282,sfnt%
  6397.  blend_feature=0 
  6398.  "Font_SetPalette",,0,1,6,font_back_col,font_col 
  6399.  "ColourTrans_SetFontColours",sfnt%,font_back_col,font_col,1
  6400.  262278,,txt$,(%000000010000 
  6401.  (blend_feature*2048)),x%,y%
  6402. dspB(txt$,x%,row)
  6403. y%=1023-(row*40)
  6404.  262282,sfnt%
  6405.  blend_feature=0 
  6406.  "Font_SetPalette",,0,1,6,font_back_col,font_col 
  6407.  "ColourTrans_SetFontColours",sfnt%,font_back_col,font_col,1
  6408.  262278,,txt$,(%000000010000 
  6409.  (blend_feature*2048)),x%,y%
  6410. dsprB(txt$,x%,row,rubx1,ruby1,rubx2,ruby2)
  6411. y%=1023-(row*40)
  6412.  262282,sfnt%
  6413.  blend_feature=0 
  6414.  "Font_SetPalette",,0,1,6,font_back_col,font_col 
  6415.  "ColourTrans_SetFontColours",sfnt%,font_back_col,font_col,1
  6416.  rubx1,ruby1:
  6417. rubx2,ruby2
  6418.  262278,,txt$,(%000000010010 
  6419.  (blend_feature*2048)),x%,y%
  6420. sfprB(txt$,x%,y%,rubx1,ruby1,rubx2,ruby2)
  6421.  262282,sfnt%
  6422.  blend_feature=0 
  6423.  "Font_SetPalette",,0,1,6,font_back_col,font_col 
  6424.  "ColourTrans_SetFontColours",sfnt%,font_back_col,font_col,1
  6425.  rubx1,ruby1:
  6426. rubx2,ruby2
  6427.  262278,,txt$,(%000000010010 
  6428.  (blend_feature*2048)),x%,y%
  6429. dspcB(txt$,row)
  6430. y%=1023-(row*40)
  6431.  262282,sfnt%
  6432.  blend_feature=0 
  6433.  "Font_SetPalette",,0,1,6,font_back_col,font_col 
  6434.  "ColourTrans_SetFontColours",sfnt%,font_back_col,font_col,1
  6435.  262281,,1280 
  6436.  ,box%
  6437.  262277,,txt$,box%,,32,
  6438. (txt$) 
  6439.  ,,box%
  6440.  262280,,box% 
  6441.  ,box%
  6442.  262278,,txt$,(%000000010000 
  6443.  (blend_feature*2048)),640-(box%/2),y%
  6444. cdsB(txt$,x%,row)
  6445. y%=1051-(row*40)
  6446.  262282,sfnt%
  6447.  blend_feature=0 
  6448.  "Font_SetPalette",,0,1,6,font_back_col,font_col 
  6449.  "ColourTrans_SetFontColours",sfnt%,font_back_col,font_col,1
  6450.  262278,,txt$,(%000000010000 
  6451.  (blend_feature*2048)),x%,y%
  6452. centerB(txt$,y%)
  6453.  262282,bfnt%
  6454.  blend_feature=0 
  6455.  "Font_SetPalette",,0,1,6,font_back_col,font_col 
  6456.  "ColourTrans_SetFontColours",bfnt%,font_back_col,font_col,1
  6457.  262281,,1280 
  6458.  ,box%
  6459.  262277,,txt$,box%,,32,
  6460. (txt$) 
  6461.  ,,box%
  6462.  262280,,box% 
  6463.  ,box%
  6464.  262278,,txt$,(%000000010000 
  6465.  (blend_feature*2048)),640-(box%/2),y%
  6466. cleartext
  6467. inframe(396,69,1261,186,42)
  6468.  sa,sb,xa,ay,sx,sy,nu
  6469.  flying 
  6470.  selectedsys=0 
  6471.  selectedsys=actualsys 
  6472.  s=selectedsys
  6473.  nu=actualsys
  6474.  stsh%(1,8)>50 
  6475. counselor(10):
  6476.  s>0 
  6477.  sx=SunX(s)+32:sy=SunY(s)+32 
  6478.  sx=wrx:sy=wry
  6479.  nu>0 
  6480.  ax=SunX(nu)+32:ay=SunY(nu)+32 
  6481.  ax=wrx:ay=wry
  6482. ((sx-ax)^2)
  6483. ((sy-ay)^2)
  6484.  diff=
  6485. (sa^2+sb^2))
  6486.  ftime=
  6487. (diff/300)+1
  6488.  ftime>1 
  6489.  invent%(1,8)>0 
  6490.  ftime=
  6491. (ftime/3)
  6492.  ftime<1 
  6493.  ftime=1
  6494. counselor(1)
  6495.  flying=0
  6496.  accepted=0 
  6497. redo:
  6498.  normalfont<7 
  6499.  nopirates=0
  6500.  nu>0 
  6501.  SunP(nu) 
  6502.  0:R=4
  6503.  1:R=3
  6504.  2:R=2
  6505.  3:R=2
  6506. (R)=1 
  6507.  normalfont>5) 
  6508.  nopirates>5) 
  6509.  nu>0 
  6510.  SunP(nu)=0
  6511.   nopirates=0
  6512. redo:
  6513. vessel
  6514.   flying=1
  6515.   nopirates+=1
  6516.  screentype=0 
  6517.   flying=1
  6518.   flysys=selectedsys
  6519. mpart(13)
  6520. film_flyaway
  6521. status
  6522.  ofs,sz,rofs,f,m,alvil,tab
  6523.  a,b,c: 
  6524. 6,112,2
  6525. kJ rau_c(0)=1:rau_x(0)=120:rau_y(0)=196:rau_l(0)=0:rau_d(0)=0:rau_t(0)=0
  6526. lK rau_c(1)=1:rau_x(1)=1000:rau_y(1)=172:rau_l(1)=0:rau_d(1)=1:rau_t(1)=0
  6527.  s=selected
  6528.  sel=selectedsys
  6529.  SIi(sel,s)=0 
  6530.  tab=160
  6531. pD rofs=0:
  6532.  plan(sel,s)=1 
  6533.  plan(sel,s)=3 
  6534. plan(sel,s)=5 
  6535.  rofs=15
  6536. picture("ws"+
  6537. (plan(sel,s)))
  6538.  0,140:
  6539.  1279,260:
  6540. sget("back1")
  6541. frame(0,869,1279,1023,42)
  6542. inframe(8,877,1271,1015,42)
  6543.  f=1:m=normalfont
  6544.  m>3 f=5
  6545.  m>10 f=10
  6546.  m>25 f=15
  6547.  m>40 f=20
  6548. decode(sel,s)
  6549.  alvil=0
  6550.  A=1 
  6551.  B=1 
  6552.  surf%(A,B)=2 alvil+=1
  6553. $ SIpo%(sel,s)=SIc(sel,s)*f+alvil
  6554.  0,865,1279,865
  6555.  SIi(sel,s)>0 
  6556. flagload(flag(SIi(sel,s)))
  6557. 12,660:
  6558.  232,795:
  6559. sget("flback")
  6560.  SIi(sel,s)=1 
  6561.  (scout%>=40 
  6562.  actualsys=selectedsys) 
  6563. (SId(sel,s)/200)
  6564.   up=100-d*2
  6565.  45,500+up,30,d*2
  6566.  93,500+up,30,d*2
  6567.  141,500+up,30,d*2
  6568.  SIg%(sel,s,1)>0 
  6569. frame(45,500+up,75,up+500+(SIg%(sel,s,1))*2,3)
  6570.  SIg%(sel,s,2)>0 
  6571. frame(93,500+up,123,up+500+(SIg%(sel,s,2))*2,3)
  6572.  SIg%(sel,s,3)>0 
  6573. frame(141,500+up,171,up+500+(SIg%(sel,s,3))*2,3)
  6574. pixel("M",54,492+up,47,192,26,64)
  6575. pixel("F",104,492+up,47,192,26,64)
  6576. pixel("P",154,492+up,47,192,26,64)
  6577.  SIn$(sel,s)="" 
  6578.  a$=t$(269) 
  6579.  a$=SIn$(sel,s)
  6580.  SIn$(sel,s)="" 
  6581.  b$=t$(270) 
  6582.  b$=t$(46)+SIn$(sel,s)
  6583.  plan(sel,s)=3 
  6584.  ofs=3
  6585.  plan(sel,s)=2 
  6586.  ofs=6
  6587. centerB(b$,924)
  6588. D b$=
  6589. g(SIi(sel,s))+" "+H$(SIi(sel,s))+title$(Ha(SIi(sel,s)))+"."
  6590.  SIi(sel,s)=1 
  6591.  b$=t$(34)
  6592.  SIi(sel,s)=0 
  6593.  b$=t$(35)
  6594. f_yel
  6595. dspB(a$+t$(271)+b$,250-tab,6)
  6596.  plan(sel,s) 
  6597. 1:b$=t$(272)
  6598. 2:b$=t$(273)
  6599. 3:b$=t$(274)
  6600. 4:b$=t$(275)
  6601. 5:b$=t$(276)
  6602. 6:b$=t$(277)
  6603. 7:b$=t$(278)
  6604. 8:b$=t$(279)
  6605.  c$="Medium ":sz=100
  6606. (SId(sel,s)/1000)<10 c$="Small ":sz=90
  6607. (SId(sel,s)/1000)>12 c$="Large ":sz=110
  6608.  b$=c$+b$
  6609.  SIi(sel,s)=0 b$+=", cost "+
  6610. (sz)+" MC"
  6611.  c$="O "+
  6612. (SId(sel,s))
  6613. dspB("/",256-tab,7)
  6614. dspB(c$+" km ("+b$+")",250-tab,7)
  6615. f_wht
  6616. dspB(t$(280)+
  6617. (SIpo%(sel,s))+t$(281),250-tab,9)
  6618. dspB(t$(282)+
  6619. (pspeed(sel,s)*4)+t$(283),250-tab,10)
  6620. dspB(t$(284),250-tab,11)
  6621. f_yel
  6622.  n=SIs(sel,s)+SIc(sel,s)*2
  6623.  SIi(sel,s)=1 
  6624. (n-SIam(sel,s))+"/"+
  6625.  a$="?"
  6626. dspB(a$,620-tab,11)
  6627. f_wht
  6628. dspB(t$(285),250-tab,13)
  6629. f_yel
  6630.  SIc(sel,s)>0 a$=
  6631. (SIc(sel,s)) 
  6632.  a$=t$(286)
  6633. dspB(a$,570-tab,13)
  6634. f_wht
  6635.  SIna(sel,s)<SIc(sel,s)*3+1 b$=t$(287) 
  6636.  b$=t$(288)
  6637.  SIna(sel,s)=0 b$=t$(286)
  6638. dspB(t$(289),250-tab,14)
  6639. f_yel
  6640. dspB(b$,570-tab,14)
  6641. f_wht
  6642.  SIi(sel,s)<>1 
  6643.  (scout%<20 
  6644.  actualsys<>selectedsys) 
  6645.   a$="?":b$=""
  6646. "  a$=
  6647. (SIrm(sel,s)):b$=t$(296)
  6648.  SIrm(sel,s)=0 
  6649. 7   b$="":
  6650.  plan(sel,s)<>8 
  6651.  a$=t$(290) 
  6652.  a$=t$(286)
  6653. dspB(t$(291),250-tab,15)
  6654. f_yel
  6655. dspB(a$,570-tab,15)
  6656. f_wht
  6657. dspB(b$,670-tab,15)
  6658.  SIb(sel,s) a$="Yes" 
  6659.  a$="No"
  6660. dspB(t$(292),250-tab,16)
  6661. f_yel
  6662. dspB(a$,570-tab,16)
  6663.  SIi(sel,s)>1 
  6664.  (scout%<10 
  6665.  actualsys<>selectedsys) a$="?" 
  6666. (SIv(sel,s))
  6667. f_wht
  6668. dspB(t$(293),250-tab,17)
  6669. f_yel
  6670. dspB(a$,570-tab,17)
  6671. f_wht
  6672. dspB(t$(294),250-tab,18)
  6673. f_yel
  6674.  SIi(sel,s)>1 
  6675.  (scout%<10 
  6676.  actualsys<>selectedsys) a$="?" 
  6677. (SIgr(sel,s))
  6678. dspB(a$,570-tab,18)
  6679. f_wht
  6680. (SId(sel,s)/200)
  6681. dspB("(max "+
  6682. (p)+")",670-tab,17)
  6683. dspB(t$(295),250-tab,20)
  6684. dspB(t$(255),250-tab,22)
  6685. dspB(t$(256),250-tab,23)
  6686. dspB(t$(257),250-tab,24)
  6687. f_yel
  6688. dspB(
  6689. (SIk%(sel,s,1)),570-tab,22)
  6690. dspB(
  6691. (SIk%(sel,s,2)),570-tab,23)
  6692. dspB(
  6693. (SIk%(sel,s,3)),570-tab,24)
  6694. f_wht
  6695.  n=22
  6696. dspB(t$(296),670-tab,n)
  6697. dspB("(max "+
  6698. (p)+")",800-tab,22)
  6699. 6,113,2
  6700.  a,b,c
  6701.  SIi(sel,s)>0 
  6702.    time_index=
  6703. flagstep(12,660)
  6704. -time_index<1 
  6705. -time_index>=1
  6706.  c<>0
  6707. sdelete("back1")
  6708.  s=selectedsys
  6709.  SIi(s,actual)<>1 
  6710.  selectedsys<>actualsys 
  6711. cleartext
  6712. info(t$(297),1)
  6713.  stsh%(1,9)>50 
  6714. counselor(11):
  6715.  SIi(s,actual)=0 
  6716.  selectedsys=actualsys 
  6717. claim:
  6718.  SIi(s,actual)<>1 
  6719. _comm_enemy 
  6720. _comm_allied(4)
  6721. slaveredo
  6722. f_wht
  6723.  actual=selected
  6724.  rotphase%()=0
  6725.  actualmenu=2 
  6726.  1279,1023
  6727. sget("sbu")
  6728. 6,112,2
  6729. schoose("sbu")
  6730. plot(0,0,0)
  6731. sdelete("sbu")
  6732.  actualmenu=2
  6733.  plan(s,X)<>0 
  6734. &&   
  6735. schoose("sphere"+
  6736. (plan(s,X)))
  6737. '%   
  6738. plot(0,planX(s,X),planY(s,X))
  6739. *) X=actual:
  6740.  findvar=0 
  6741. showaplanet(0)
  6742. 6,113,1
  6743. 6,113,2
  6744. 6,112,1
  6745. picture("mp2")
  6746.  no_texture=1
  6747. inframe(15,15,381,186,42)
  6748.  no_texture=0
  6749. inframe(396,69,1261,186,42)
  6750. shortinfo
  6751. plannames
  6752.  s=selectedsys
  6753. fleetpos
  6754. fleetpos
  6755.  var()=0
  6756. schoose("shicon")
  6757.  f=1 
  6758.  plan(s,f)>0 
  6759.    i=SIi(s,f)
  6760. C@   
  6761.  IF i>1 AND orbit(i)=s AND flying(i)=0 AND var(i)=0 THEN
  6762. DQ   
  6763.  (orbit(i)=s 
  6764.  flying(i)=0 
  6765.  var(i)=0) 
  6766.  (i=1 
  6767.  actualsys=s 
  6768.  var(i)=0) 
  6769. E-    
  6770. plot(8,planX(s,f)+36,planY(s,f)-184)
  6771.     var(i)=1
  6772. masterredo
  6773. f_wht
  6774.  actualmenu=1 
  6775.  1279,1023
  6776. sget("sbu")
  6777. 6,112,1
  6778. schoose("sbu")
  6779. plot(0,0,0)
  6780. sdelete("sbu")
  6781.  actualmenu=1
  6782. 6,113,1
  6783. 6,112,2
  6784. mredo
  6785. 6,113,2
  6786.  p=plr:
  6787.  p=0 p=1
  6788. schoose("icon"+
  6789.  actualsys>0 
  6790. plot(8,SunX(actualsys)-8,SunY(actualsys)-8)
  6791. plot(8,wrx-8,wry-8)
  6792. arrived
  6793.  noplanet=1
  6794.  lord=1
  6795.  fwn=1
  6796.  X=0:Y=0:SIi(0,0)=1
  6797.  players>1 
  6798.  ab$=PName$+t$(298) 
  6799.  ab$=""
  6800.  flysys>0 
  6801.   ab$+=SunName$(flysys)+"."
  6802.  players=1 
  6803.  ab$+=t$(299) 
  6804.  ab$+=t$(300)
  6805. hour_off
  6806. film_arrive
  6807.  window_open=0
  6808.  SIi(0,0)=0
  6809.  fwn=0
  6810.  flying=0
  6811.  actualsys=flysys
  6812.  PROCcleartext
  6813.  X=actualsys
  6814.  X>0 SunE(X,1)=1
  6815.  noplanet=0
  6816. plrarrived
  6817.  noplanet=1
  6818.  lord=an
  6819.  fwn=1
  6820.  X=0:Y=0:SIi(0,0)=an
  6821.  ab$=H$(an)+t$(298)
  6822.  TS(an)>0 
  6823.   ab$+=SunName$(TS(an))+"."
  6824.   ab$+=t$(300)
  6825.  mousewait 
  6826.  mousewait=0:
  6827. getMK
  6828. hour_off
  6829. film_arrive
  6830.  window_open=0
  6831.  SIi(0,0)=0
  6832.  fwn=0
  6833.  flying(an)=0
  6834.  orbit(an)=TS(an)
  6835.  PROCcleartext
  6836.  X=orbit(an)
  6837.  X>0 SunE(X,an)=1
  6838.  noplanet=0
  6839. counselor(kind)
  6840.  asknot,alvil,s,za,zb,buildings,freespace
  6841.  accepted=0
  6842.  sel=selectedsys
  6843.  useproc=1
  6844.  kind 
  6845.  1:k=1
  6846.  3:k=1
  6847.  kind>3 
  6848.  kind<>2 
  6849. _comm_allied(k):
  6850. cns_pic
  6851.  useproc=0
  6852.  kind=21 
  6853. c("This function is not available",1)
  6854. c("in the demo version.",2)
  6855. c("Sorry.",4)
  6856.  kind=1 
  6857.  selectedsys>0 a$="star" 
  6858.  a$="space"
  6859. c(t$(301)+a$,1)
  6860.  selectedsys>0 
  6861. 6   a$=SunName$(sel)+", we need "+
  6862. (ftime)+" month"
  6863. -   a$="guild, we need "+
  6864. (ftime)+" month"
  6865.  ftime>1 a$+="s." 
  6866.  a$+="."
  6867. c(a$,2)
  6868.  SunP(actual) 
  6869.  0:a$="unlikely"
  6870.  1:a$="possible"
  6871.  2:a$="likely"
  6872.  3:a$="very likely"
  6873. c(t$(302)+a$+".",3)
  6874. c(t$(303),5)
  6875.  kind=2 
  6876. D  a=SIk%(sel,actual,1)+SIk%(sel,actual,2)*2+SIk%(sel,actual,3)*3
  6877.  SIb(sel,actual) 
  6878.  a+=20
  6879. #  b=ship(1)+ship(2)*2+ship(3)*3
  6880.  b=0 
  6881. 4   useproc=1:
  6882. _comm_allied(2):useproc=0:
  6883. cns_pic
  6884. c(t$(304),1)
  6885.    useproc=1
  6886.  b>a 
  6887. _comm_allied(3) 
  6888. _comm_allied(2)
  6889. cns_pic
  6890.    useproc=0
  6891. c("Attack "+SIn$(sel,actual),1)
  6892. c(t$(305),2)
  6893.  b>a a$="good."
  6894.  a>=b a$="not good."
  6895.  b>a*2 a$="very good."
  6896.  a>b*2 a$="extremely bad."
  6897. c(a$,3)
  6898.  SIb(sel,actual) 
  6899.  b$=SIn$(sel,actual)+t$(306) 
  6900.  b$=t$(307)
  6901. c(b$,4)
  6902. c(t$(308),6)
  6903.  kind=3 
  6904.       r=0
  6905.  psun(1,a)=0 
  6906.  r=0 
  6907.  plan(sel,actual)=8 
  6908. c(t$(109),1)
  6909. c(t$(310),2)
  6910.     s=
  6911. (SId(sel,actual)/1000)
  6912.    c$="medium ":cr=100
  6913.  s<10 c$="small ":cr=90
  6914.  s>12 c$="large ":cr=110
  6915.  credits>=cr 
  6916.  stsh%(1,5)>0 
  6917.      
  6918. c(t$(311),1)
  6919.      
  6920. askmaster(490,270,0)
  6921.      
  6922.  accepted 
  6923.       stsh%(1,5)-=1
  6924.       X=sel:Y=actual
  6925.       
  6926. showplanet(2)
  6927.       
  6928. gload("ts2")
  6929. 4      
  6930. smerge("graphic2.pa"+
  6931. (plan(sel,actual)))
  6932.       
  6933.       
  6934. gmerge("br1")
  6935. !      freespace=0:buildings=0
  6936.       
  6937. decode(sel,actual)
  6938. #      s=
  6939. (SId(sel,actual)/1000)
  6940.       za=2:zb=15
  6941.       
  6942.  s<10 za=3:zb=14
  6943.       
  6944.  s>12 za=1:zb=16
  6945.       
  6946.  A=za 
  6947.        
  6948.  B=za 
  6949.         s=surf%(A,B)
  6950.     $        
  6951.  s=0 
  6952.  s=9 freespace+=1
  6953. e        
  6954.  s=1 
  6955. s=11 
  6956. s=12 
  6957. s=13 
  6958. s=14 
  6959. s=15 
  6960. s=16 
  6961. s=17 
  6962. s=22 
  6963. s=23 
  6964.  buildings+=1
  6965.        
  6966.       
  6967.       useproc=1
  6968.       
  6969. _comm_allied(1)
  6970.       
  6971. schoose("export")
  6972.       
  6973. plot(0,490,270)
  6974. %      
  6975. frame(967,270,1195,317,42)
  6976.        
  6977. sfpB(t$(312),494,628)
  6978.       useproc=0
  6979. '      
  6980. c("Bionic Probe Results:",1)
  6981. 0      
  6982. c("Minerals: "+
  6983. (SIrm(sel,actual)),3)
  6984. *      
  6985. c("Buildings: "+
  6986. (buildings),4)
  6987. +      
  6988. c("Free space: "+
  6989. (freespace),5)
  6990.       
  6991. askmaster(490,270,0)
  6992.       
  6993. gmerge("br1")
  6994.       
  6995. 6,112,2
  6996. "'      
  6997. inframe(480,260,1200,588,42)
  6998. #$      
  6999. front(480,320,1200,588,1)
  7000.      
  7001.       
  7002. gmerge("br1")
  7003. ''      
  7004. inframe(480,260,1200,588,42)
  7005.       
  7006. schoose("export")
  7007.       
  7008. plot(0,490,270)
  7009. *%      
  7010. frame(967,270,1195,317,42)
  7011.      
  7012. ,        
  7013. decode(sel,actual)
  7014. /!    s=
  7015. (SId(sel,actual)/1000)
  7016.     za=2:zb=15
  7017.  s<10 za=3:zb=14
  7018.  s>12 za=1:zb=16
  7019.     SIna(sel,actual)=0
  7020.  A=za 
  7021.      
  7022.  B=za 
  7023. 6"      
  7024.  surf%(A,B)=22 alvil+=1
  7025. 7,      
  7026.  surf%(A,B)=2 SIna(sel,actual)+=1
  7027.      
  7028.     accepted=1
  7029.  alvil>0 
  7030.      
  7031. fillarray("Co14",5)
  7032.      
  7033.       
  7034. c(ar$(n),n)
  7035.      
  7036.      
  7037. askmaster(490,270,0)
  7038. C        
  7039.  accepted 
  7040.      
  7041. gmerge("br1")
  7042. G&     
  7043. inframe(480,260,1200,588,42)
  7044.      
  7045. schoose("export")
  7046.      
  7047. plot(0,490,270)
  7048. J$     
  7049. frame(967,270,1195,317,42)
  7050.      
  7051.  plan(sel,actual) 
  7052.       
  7053. 1:b$=t$(313)
  7054.       
  7055. 2:b$=t$(314)
  7056.       
  7057. 3:b$=t$(315)
  7058.       
  7059. 4:b$=t$(316)
  7060.       
  7061. 5:b$=t$(317)
  7062.       
  7063. 6:b$=t$(318)
  7064.       
  7065. 7:b$=t$(319)
  7066.       
  7067. 8:b$=t$(320)
  7068.      
  7069. VV     
  7070.  SIn$(sel,actual)="" a$="this "+b$+" planet" 
  7071.  a$="planet "+SIn$(sel,actual)
  7072.      
  7073. c(t$(321)+a$+"?",1)
  7074. X5     
  7075. c("  Size: "+c$+" 
  7076. > Cost: "+
  7077. (cr)+" MC",2)
  7078.      
  7079. c(t$(322),3)
  7080.      a$="":b$="":c$=""
  7081.      d$=t$(323)
  7082.      e$=t$(324)
  7083.      f$=t$(325)
  7084.      
  7085.  plan(sel,actual) 
  7086.       
  7087.  1:a$=d$
  7088.       
  7089.  2:a$=f$:b$=e$
  7090.       
  7091.  3:a$=t$(326):b$=e$
  7092.       
  7093.  4:a$=t$(327)
  7094.       
  7095.  5:a$=f$:b$=e$
  7096.       
  7097.  6:a$=d$
  7098. e#      
  7099.  8:a$=t$(328):b$=t$(329)
  7100.      
  7101. g!     
  7102.  SIn$(sel,actual)<>"" 
  7103.       e$=t$(330)
  7104. i!      
  7105.  b$="" 
  7106.  b$=e$ 
  7107.  c$=e$
  7108.      
  7109.      
  7110. c("  "+a$,4)
  7111.      
  7112. c("  "+b$,5)
  7113.      
  7114. c("  "+c$,6)
  7115. o        
  7116.      asknot=1
  7117. q        
  7118. c(t$(331),1)
  7119. c(t$(332),2)
  7120. v"    
  7121. c(t$(333)+
  7122. (cr)+" MC)",4)
  7123.  kind<20 
  7124.  kind>3 
  7125. explain(kind)
  7126.  asknot=0 
  7127. askmaster(490,270,0)
  7128.  kind=1 
  7129.  accepted=1 
  7130.  flying=1
  7131.  kind<>3 
  7132.  kind<>1 
  7133. cns_pic
  7134. gmerge("br1")
  7135. schoose("export")
  7136. plot(0,490,270)
  7137. frame(967,270,1195,317,42)
  7138. sfpB(t$(334),494,628)
  7139. explain(num)
  7140. fillarray("Co"+
  7141. (num),5)
  7142. c(ar$(n),n)
  7143. c(str$,stc)
  7144. dspB(str$,494,stc+11)
  7145. backmusic
  7146.  chcount<>5 
  7147.  chcount=0
  7148.  actualmenu=1 
  7149. masterredo 
  7150. slaveredo
  7151. claim
  7152.  kn,zm,killanim ,dbg
  7153.  s=selectedsys
  7154.  SIi(s,actual)<>0 
  7155.  s<> actualsys 
  7156.  SIi(s,actual)<>1 
  7157.  selectedsys<>actualsys 
  7158. cleartext
  7159. info(t$(297),1)
  7160.      cr=0
  7161. counselor(3)
  7162.  s=selectedsys
  7163.  accepted=0 
  7164.  credits<cr 
  7165. slaveredo:
  7166.  psun(1,a)=0 
  7167.  r=0 
  7168.  plan(s,actual)=8 
  7169. slaveredo:
  7170.  claimed=1
  7171.  credits-=cr
  7172. cleararea
  7173.  SIn$(s,actual)="" 
  7174. c(t$(335),-1)
  7175. c(t$(336),1)
  7176. fillarray("pn"+
  7177. (plan(s,actual)),30)
  7178.    R=
  7179.  ar$(R)<>""
  7180. inputname(ar$(R),688,440,1)
  7181.  pl$<>""
  7182.   kn=5
  7183.   pl$=SIn$(s,actual)
  7184.   kn=1
  7185. c(pl$+t$(337),kn)
  7186.  firstplanet(1)=1
  7187.  SIi(s,actual)=1
  7188.  SIn$(s,actual)=pl$
  7189.  SIr(s,actual)=0
  7190.  trace%(10)+=1
  7191.  arm>2.5 
  7192. wait(50)
  7193. decode(s,actual)
  7194.  surf%(8,8)=1
  7195.  surf%(9,8)=1
  7196.  IF surf%(9,9)<>2 surf%(9,9)=2:SIna(s,actual)+=1
  7197. code(s,actual)
  7198.  r=1 
  7199.  plan(sel,actual)=8 
  7200.       r=0
  7201.  psun(1,a)=0 
  7202.   psun(1,r)=s
  7203. mpart(10)
  7204. wait(30)
  7205. fade(1,0,15)
  7206. 6,112,2
  7207. picture("js1")
  7208. gload("pl"+
  7209. (plan(sel,actual)))
  7210. schoose("planet"+
  7211. (plan(sel,actual)))
  7212. plot(0,200,200)
  7213. 6,113,2
  7214. wait(80)
  7215.  useanim=1
  7216. scribe(t$(46)+SIn$(sel,actual)+".",10,22)
  7217.  killanim=0 
  7218. wait(30):
  7219. scribe(t$(338),10,24)
  7220.  A,B,C:
  7221.  C=0 
  7222.  killanim=0 
  7223. wait(150)
  7224. 6,112,1
  7225. picture("sl1")
  7226. gload("op1")
  7227. pixelswap
  7228. 6,112,2
  7229. wait(50)
  7230. scribe(t$(339),10,24)
  7231.  A,B,C:
  7232.  C=0 
  7233.  killanim=0 
  7234. wait(150)
  7235.  zm=1 
  7236. schoose("open"+
  7237. (zm))
  7238. plot(0,540,520)
  7239.  A,B,C:
  7240.  C<>0 
  7241.  zm=6
  7242. wait(15)
  7243.      dbg=1
  7244.  C=0 
  7245.  killanim=0 
  7246. wait(100)
  7247.       dbg=2
  7248. cl_rep
  7249. gload("sc1")
  7250.       dbg=3
  7251. 4    
  7252. 6,112,2:
  7253. picture("pl"+
  7254. (plan(sel,actual)))
  7255.     &    
  7256. 1279,1023:
  7257. sget("ppart")
  7258.       dbg=4
  7259. (    
  7260. schoose("picture"):
  7261. plot(0,0,0)
  7262. =    
  7263. schoose("ppart"):
  7264. plot(0,200,-700):
  7265. sdelete("ppart")
  7266.       dbg=5
  7267. %    
  7268. 1279,1023:
  7269. sget("back")
  7270.     ships=1:hypc=11:I=1
  7271.       dbg=6
  7272. E    
  7273. doship(1,5,-2,98,63,"shuttle",640,512,0,0,10,1.5,1.5,0,1200)
  7274.     killintro=0
  7275.       dbg=7
  7276. %    
  7277. moveships(1290,"back",1,0,0)
  7278. T    
  7279. 6,112,3-I:
  7280.  0,0:
  7281. 1279,1023:
  7282. sget("b"):
  7283. 6,112,I:
  7284. schoose("b"):
  7285. plot(0,0,0)
  7286.       dbg=8
  7287. cl_rep
  7288. cl_rep
  7289. cl_rep
  7290.  useanim=0
  7291. gload("pt1")
  7292. showplanet(1):
  7293. gload("ts2"):
  7294. smerge("graphic2.pa"+
  7295. (plan(sel,actual)))
  7296. cl_rep
  7297. 1279,1023:
  7298. sget("a")
  7299. 6,112,1:
  7300. schoose("a"):
  7301. plot(0,0,0)
  7302. 6,113,1
  7303. getMK
  7304.  nonclick 
  7305. 6,21,9
  7306.  A,B,C: 
  7307.  C=0 
  7308. (0)=""
  7309.  A,B,C: 
  7310.  C<>0 
  7311. (0)<>""
  7312. getMKt
  7313.  nonclick 
  7314. 6,21,9
  7315.  A,B,C: 
  7316.  C<>0 
  7317. (0)<>""
  7318. getMKw
  7319.  nonclick>0 
  7320.  window_open=0 
  7321.  PROCgetMK
  7322.  window_open 
  7323.  mousewait=1
  7324.  PROCcllt
  7325.  window_open=0
  7326. b_comme
  7327.  ok,lord,flicker,dlord,a,b,c
  7328.  battlecom=1
  7329. b_comdo
  7330. front(49,240,1222,693,1)
  7331.  justtalked=0 
  7332.   a$=t$(340)
  7333.   justtalked=1
  7334.   a$=t$(341)
  7335. escribe(a$+PName$+"?")
  7336.  human=1 
  7337.   tk$(1)=ar$(15)
  7338.   tk$(2)=ar$(16)
  7339.   tk$(3)=ar$(17)
  7340.   tk$(4)=ar$(5)
  7341. tquest
  7342.  row=1 
  7343. U-   
  7344.  credits(lord)>=100 
  7345.  aat%*2>adf%*3 
  7346.     geb=0
  7347.  stx%=1 
  7348.      
  7349.  sty%=1
  7350. Y(      
  7351.  SIi(stx%,sty%)=lord 
  7352.  geb+=1
  7353.  sty%,stx%
  7354.  geb>1 
  7355.      
  7356. elast(6)
  7357. ]        
  7358.      
  7359. elast(7)
  7360. _(     credits(lord)-=100:credits+=100
  7361.      giveup=1
  7362.      letwin=1
  7363.      b_won=2
  7364.      
  7365.       a_army(n)=0
  7366.      
  7367.      
  7368.  stx%=1
  7369.       
  7370.  sty%=1
  7371.        geb=bf%(stx%,sty%)
  7372. i8       
  7373.  geb>0 
  7374.  geb<4 
  7375.  a_army(geb)+=bn%(stx%,sty%)
  7376.       
  7377.  sty%
  7378.      
  7379.  stx%
  7380.      
  7381.       ship(n)=a_army(n)
  7382.      
  7383. o        
  7384. elast(6)
  7385.  row=2 
  7386.    e=18
  7387.  adf%*3>=aat%*2 e=21
  7388. w/   
  7389.  adf%*3<aat%*2 
  7390.  lo%(lord) 
  7391.  e=19
  7392. x/   
  7393.  adf%*3<aat%*2 
  7394.  hi%(lord) 
  7395.  e=20
  7396. y%   
  7397.  e=18 
  7398.  e=20 evillord(lord)=1
  7399. elast(e)
  7400.  row=3 
  7401.    e=18
  7402.  adf%*3>=aat%*2 e=12
  7403.  adf%*3<aat%*2 
  7404.  (md%(lord) 
  7405.  (lo%(lord) 
  7406.  e=13
  7407.  adf%*3<aat%*2 
  7408.  hi%(lord) 
  7409.  e=22
  7410.  e=18 
  7411.  e=22 
  7412.  evillord(lord)=1
  7413. elast(e)
  7414.  row=4 
  7415. elast(23)
  7416.   tk$(1)=t$(342)
  7417.   tk$(2)=ar$(3)
  7418.   tk$(3)=ar$(4)
  7419.   tk$(4)=ar$(5)
  7420.  credits<1 tk(1)=0
  7421. tquest
  7422.  row=1 
  7423.  evillord(lord)=1 
  7424. elast(6)
  7425. esay(24)
  7426.     cred=0
  7427. $    
  7428. getMC(t$(343),
  7429. (credits/2))
  7430. 6,113,1:
  7431. 6,112,1
  7432.  cred>normalfont*2 
  7433.      credits-=cred
  7434.      
  7435. elast(7)
  7436.      
  7437.       a_army(n)=0
  7438.      
  7439.      
  7440.  stx%=1
  7441.       
  7442.  sty%=1
  7443.        geb=bf%(stx%,sty%)
  7444. Z       
  7445.  geb>0 
  7446.  geb<4 
  7447.  a_army(geb)+=bn%(stx%,sty%):bn%(stx%,sty%)=0:bf%(stx%,sty%)=0
  7448.       
  7449.  sty%
  7450.      
  7451.  stx%
  7452.      
  7453. !      eship(lord,n)=a_army(n)
  7454.      
  7455.      giveup=1
  7456.         
  7457. 1     
  7458.  hi%(lord) 
  7459. elast(6) 
  7460. elast(25)
  7461.         
  7462.  row=2 
  7463.  adf%>aat%*3 
  7464.  credits(lord)<20 
  7465.      
  7466. elast(9)
  7467.         
  7468.      
  7469. elast(11)
  7470.      credits+=20
  7471.      credits(lord)-=20
  7472.      
  7473.       a_army(n)=0
  7474.      
  7475.      
  7476.  stx%=1
  7477.       
  7478.  sty%=1
  7479.        geb=bf%(stx%,sty%)
  7480. Z       
  7481.  geb>0 
  7482.  geb<4 
  7483.  a_army(geb)+=bn%(stx%,sty%):bn%(stx%,sty%)=0:bf%(stx%,sty%)=0
  7484.       
  7485.  sty%
  7486.      
  7487.  stx%
  7488.      
  7489.       ship(n)=a_army(n)
  7490.      
  7491.      
  7492. b_checkdead
  7493.         
  7494. .    
  7495.  hi%(lord)
  7496. elast(10) 
  7497. elast(8)
  7498.  row=3 
  7499.  aat%>=adf% e=12
  7500.  aat%<adf% e=14
  7501. (3)=1 e=13
  7502. elast(e)
  7503.  row=4 
  7504. elast(23)
  7505.  battlecom=0
  7506. b_aftcom
  7507. b_ecomm(reason)
  7508.  ok,lord,flicker,dlord,a,b,c,s,need
  7509.  battlecom=1
  7510. b_comdo
  7511.  reason=2 
  7512.  reason=1+
  7513.  reason 
  7514.  1:a$=ar$(2)
  7515.  2:a$=ar$(16)
  7516.  3:a$=ar$(17)
  7517.  4:a$=ar$(
  7518. (4)+27)
  7519. dsp(a$,494,10)
  7520. front(49,240,1222,693,1)
  7521.  reason=1 
  7522.   tk$(1)=ar$(6)
  7523.   tk$(2)=ar$(25)
  7524.   tk$(3)=ar$(7)
  7525. tquest
  7526.  row=1 
  7527. elast(14)
  7528.  row=2 
  7529. elast(26)
  7530.  row=3 
  7531. elast(27)
  7532. &   credits(lord)-=100:credits+=100
  7533.    giveup=1
  7534.    letwin=1
  7535.    b_won=2
  7536.     a_army(n)=0
  7537.  stx%=1
  7538.  sty%=1
  7539.      geb=bf%(stx%,sty%)
  7540. 6     
  7541.  geb>0 
  7542.  geb<4 
  7543.  a_army(geb)+=bn%(stx%,sty%)
  7544.  sty%
  7545.  stx%
  7546.     ship(n)=a_army(n)
  7547.  reason=2 
  7548.   tk$(1)=ar$(21)
  7549.   tk$(2)=ar$(19)
  7550.   tk$(3)=ar$(20)
  7551.   tk$(4)=ar$(18)
  7552. tquest
  7553. elast(26)
  7554.  reason=3 
  7555.   tk$(1)=ar$(18)
  7556.   tk$(2)=ar$(13)
  7557.   tk$(3)=ar$(22)
  7558.   tk$(4)=ar$(12)
  7559. tquest
  7560. elast(26)
  7561.  reason=4 
  7562.   tk$(1)=ar$(32)
  7563.   tk$(2)=ar$(33)
  7564.   tk$(3)=ar$(34)
  7565.   tk$(4)=ar$(35)
  7566. tquest
  7567.  row=1 
  7568. elast(36)
  7569.  row=2 
  7570. esay(37)
  7571.     tk$(1)=ar$(38)
  7572.     tk$(2)=ar$(39)
  7573.     tk$(3)=ar$(40)
  7574.     tk$(4)=ar$(41)
  7575.  credits<1 
  7576.  tk(4)=0
  7577. tquest
  7578.  row<>4 
  7579.      
  7580. elast(41+
  7581.          
  7582.      need=SIc(stkx,stky)*5
  7583. ",     
  7584. escribe("We want "+
  7585. (need)+" MC!")
  7586.      cred=0
  7587.      c=
  7588. (credits/2)
  7589.      
  7590.  c<1 
  7591.      
  7592. getMC("I offer",c)
  7593.      
  7594. 6,113,1:
  7595. 6,112,1
  7596. (      
  7597.  cred<need-
  7598. (need/4) 
  7599.       
  7600. elast(46)
  7601.      
  7602.       
  7603. elast(44)
  7604.       credits-=cred
  7605.       rebelpeace=1
  7606.       giveup=1
  7607.       letwin=1
  7608.       b_won=2
  7609.       
  7610.        a_army(n)=0
  7611.       
  7612.      
  7613. 5        
  7614. elast(27+
  7615.  battlecom=0
  7616. b_aftcom
  7617. b_aftcom
  7618. schoose("lba")
  7619. 6,112,1
  7620. plot(0,50,240)
  7621. 6,112,2
  7622. plot(0,50,240)
  7623. 6,112,1
  7624. sdelete("lba")
  7625. b_comdo
  7626. 50,240:
  7627. 1220,694:
  7628. sget("lba")
  7629.  ckind=1
  7630. N! tk$()="":tk()=1:row=0:cred=0
  7631. fillarray("tk2",46)
  7632.  flicker=500
  7633.  lord=eplayer
  7634.  stx%,sty%,geb,aat%,adf%
  7635.  aat%=0:adf%=0
  7636.  stx%=1
  7637.  sty%=1
  7638.    geb=bf%(stx%,sty%)
  7639.  geb 
  7640. X     
  7641.  1:aat%+=bn%(stx%,sty%)
  7642. Y"    
  7643.  2:aat%+=bn%(stx%,sty%)*2
  7644. Z"    
  7645.  3:aat%+=bn%(stx%,sty%)*3
  7646. [     
  7647.  4:adf%+=bn%(stx%,sty%)
  7648. \"    
  7649.  5:adf%+=bn%(stx%,sty%)*2
  7650. ]"    
  7651.  6:adf%+=bn%(stx%,sty%)*3
  7652. ^"    
  7653. 21:adf%+=bn%(stx%,sty%)*4
  7654.  sty%,stx%
  7655.  la$="ld"+
  7656. (Hl(lord))
  7657.  rebels% 
  7658.  la$="ld5"
  7659. gmerge(la$)
  7660. 6,112,2
  7661. comframe
  7662. schoose(la$)
  7663. plot(0,74,264)
  7664. makecop
  7665. cominfo
  7666.  l=lord
  7667. fontcol(&fff00fff)
  7668. _comm_enemy
  7669.  ok,lord,flicker,dlord,quittalk,letexit
  7670.  ckind=1
  7671.  sel=selectedsys
  7672. u# attacker=1:
  7673.  in case of battle
  7674. w! tk$()="":tk()=1:row=0:cred=0
  7675. fillarray("tk1",60)
  7676.  flicker=500
  7677.  lord=SIi(sel,actual)
  7678. gmerge("ld"+
  7679. (Hl(lord)))
  7680.  lord<=players 
  7681.  verhalten(lord,1)=3 
  7682. mpart(8)
  7683.    evillord(lord)=1
  7684.    evillord(lord)=0
  7685.  verhalten(lord,1)=2 
  7686. mpart(4)
  7687.  verhalten(lord,1)=1 
  7688. mpart(13)
  7689.  evillord(lord)=1 
  7690.  allied(lord,1)=0 
  7691. mpart(8)
  7692.  evillord(lord)<>1 
  7693.  allied(lord,1)=0 
  7694. mpart(4)
  7695.  allied(lord,1) 
  7696. mpart(13)
  7697. 6,112,2
  7698. comframe
  7699. schoose("ld"+
  7700. (Hl(lord)))
  7701. plot(0,74,264)
  7702. makecop
  7703. cominfo
  7704.  l=lord
  7705. front(49,240,1222,693,1)
  7706.  letexit=1
  7707.  allied(1,l) 
  7708.  allied(l,1) 
  7709. escribe(t$(344)+SIn$(sel,actual)+", "+PName$+"!") 
  7710. escribe(t$(340)+PName$+"...?")
  7711.  quittalk=1 
  7712.  quittalk=0:
  7713. redo:
  7714. ( tk$(1)=t$(345)+SIn$(sel,actual)+"."
  7715.  tk$(2)=ar$(32)
  7716.  tk$(3)=ar$(33)
  7717.  tk$(4)=ar$(34)
  7718.  allied(lord,1)=7 
  7719.  tk(3)=0
  7720.  SIt(sel,actual)>=10 tk(2)=0
  7721.  psun(1,a)=0 
  7722.  plan(sel,actual)=8 
  7723.  r=0 
  7724.  tk(1)=0
  7725.  (SIu(sel,actual)
  7726.  1)>0 
  7727.  tk(1)=0
  7728. tquest
  7729.  letexit=0
  7730.  quittalk=1 
  7731.   quittalk=0
  7732.  row=1 
  7733.  (allied(lord,1) 
  7734.  (allied(1,lord) 
  7735. esay(
  7736. (2)+15)
  7737. ,   cred=
  7738. (credits/3):
  7739.  cred>200 cred=200
  7740.  cred<50 cred=credits
  7741. $   tk$(1)=t$(346)+
  7742. (cred)+" MC!"
  7743.    tk$(2)=ar$(57)
  7744.    tk$(3)=ar$(58)
  7745.    tk$(4)=ar$(59)
  7746.  cred=0 
  7747.  tk(1)=0
  7748. tquest
  7749.  row=1 
  7750.     credits-=cred
  7751.     R=
  7752.  hi%(lord) 
  7753. G    
  7754.  R=1 
  7755.  allied(lord,1)=0:allied(1,lord)=0:
  7756. esay(19) 
  7757. esay(18)
  7758. elast(0)
  7759.  row=2 
  7760.     R=
  7761.  hi%(lord) 
  7762. G    
  7763.  R=1 
  7764.  allied(lord,1)=0:allied(1,lord)=0:
  7765. esay(19) 
  7766. esay(18)
  7767. elast(0)
  7768.  row>2 
  7769. )    allied(lord,1)=0:allied(1,lord)=0
  7770.     reput-=1
  7771.     trace%(2)+=1
  7772.     R=
  7773. $    
  7774.  R=2 
  7775.  hi%(lord) 
  7776. (     
  7777. elast(20):evillord(lord)=1
  7778.      
  7779. elast(1)
  7780. (     
  7781. elast(21):evillord(lord)=1
  7782.         
  7783. attack
  7784. (   allied(lord,1)=0:allied(1,lord)=0
  7785.  (hi%(lord) 
  7786.  evillord(lord)=1
  7787.    cnt=0
  7788.      
  7789.  SIi(m,n)=lord cnt+=1
  7790.  ship(1)+ship(2)+ship(3)>30 
  7791. (5)=1 
  7792.  credits(SIi(sel,actual))>=50 
  7793.  cnt<2 
  7794. esay(2)
  7795.     tk$(1)=ar$(35)
  7796.     tk$(2)=ar$(25)
  7797.     tk$(3)=ar$(37)
  7798. tquest
  7799.  row=1 
  7800.      
  7801. (3)=1 
  7802.       tk$(1)=ar$(60)
  7803.       tk$(2)=ar$(37)
  7804.       
  7805. esay(14)
  7806.       
  7807. tquest
  7808.        
  7809.  row=1 
  7810.         credits+=cred
  7811.         credits(lord)-=cred
  7812.        
  7813.         
  7814. elast(0)
  7815.         
  7816. attack
  7817.        
  7818.      
  7819.       
  7820. elast(15)
  7821.       
  7822. attack
  7823.      
  7824.         
  7825.  row=2 
  7826.      credits+=cred
  7827.      credits(lord)-=cred
  7828. ,     SIu(sel,actual)=SIu(sel,actual) 
  7829.         
  7830.  row=3 
  7831.      
  7832. elast(0)
  7833.      
  7834. attack
  7835.         
  7836.     R=
  7837.      
  7838. esay(1)
  7839.      
  7840. esay(3)
  7841.         
  7842.  R=3 
  7843. 2     
  7844.  ((hi%(lord) 
  7845.  1)=0) 
  7846. esay(4) 
  7847. esay(1)
  7848.         
  7849. elast(0)
  7850. #    R=4:
  7851.  (hi%(lord) 
  7852. #    
  7853. (R)=1 
  7854.  evillord(lord)=1
  7855. attack
  7856.   row=0
  7857.  row=2 
  7858.  allied(lord,1)
  7859. elast(7)
  7860. trade
  7861.    SIt(sel,actual)+=10
  7862.  evillord(lord)=1 
  7863.  hi%(lord) 
  7864.      tk$(1)=ar$(42)
  7865.      tk$(2)=ar$(43)
  7866.      tk$(3)=ar$(44)
  7867.      
  7868. esay(8)
  7869.      
  7870. tquest
  7871.      
  7872.  row=1 
  7873.       
  7874.  hi%(lord) 
  7875.        
  7876. esay(30)
  7877. $$       
  7878. (3)=1 evillord(lord)=1
  7879.       
  7880.        
  7881. esay(23)
  7882.       
  7883.       
  7884. elast(0)
  7885.      
  7886.       
  7887. elast(-2)
  7888.      
  7889. ,        
  7890.      
  7891. elast(6)
  7892. .        
  7893.     tk$(1)=ar$(25)
  7894.     tk$(2)=ar$(45)
  7895. esay(5)
  7896. 3     
  7897.  credits<cred 
  7898.  tk(1)=0
  7899. tquest
  7900.  row=1 
  7901.      credits-=cred
  7902.      credits(lord)+=cred
  7903.      
  7904. elast(-2)
  7905.      
  7906. trade
  7907.      SIt(sel,actual)+=10
  7908. ;        
  7909.      
  7910. elast(-2)
  7911. =        
  7912.   row=0
  7913.  row=3 
  7914.   tk$(1)=ar$(38)
  7915.   tk$(2)=ar$(39)
  7916.   tk$(3)=ar$(40)
  7917.   tk$(4)=ar$(41)
  7918.  allied(lord,1) 
  7919.  tk(1)=0
  7920.  allied(lord,1) 
  7921.  tk(2)=0
  7922.  allied(lord,1) 
  7923.  tk(3)=0
  7924. esay(8+
  7925. tquest
  7926.  row<4 
  7927. M%   
  7928.  evillord(lord)=1 
  7929.  reput<1 
  7930. elast(22)
  7931.  lo%(lord) 
  7932.      
  7933. elast(24)
  7934. R        
  7935.      rw=row
  7936.      tk$(1)=t$(347)
  7937.      tk$(2)=ar$(47)
  7938.      tk$(3)=ar$(48)
  7939.      
  7940.  credits=0 tk(1)=0
  7941.      
  7942. esay(23)
  7943.      
  7944. tquest
  7945.      
  7946.  row=1 
  7947.       
  7948. esay(29)
  7949. \&      
  7950. getMC(t$(343),
  7951. (credits/2))
  7952.       row=1
  7953.      
  7954.      
  7955.  row 
  7956.       
  7957.  1: I=2
  7958.       
  7959.  2: I=3
  7960.       
  7961.  3: I=5
  7962.      
  7963. d6     
  7964.  row=1 
  7965.  cred>=5 
  7966.  cred>=normalfont/2 
  7967.  I-=2
  7968. e      
  7969.  row=1 
  7970.  cred<5 
  7971.  I=20
  7972. f%     
  7973.  row=3 
  7974.  Ha(1)>Ha(lord) I=1
  7975. g&     
  7976.  row=3 
  7977.  (hi%(lord) 
  7978.  2) I=2
  7979. h      
  7980.  firstplanet(1)=0 I=99
  7981.      
  7982.  lord<=players 
  7983. j%      
  7984.  verhalten(lord,1)=1 
  7985.      
  7986.      
  7987.  I>1 
  7988.      
  7989.  R=1 
  7990. n!      
  7991.  row=1 
  7992.  credits-=cred
  7993.       
  7994. esay(25)
  7995.       
  7996.        
  7997.  1:n=1
  7998.        
  7999.  2:n=2
  8000.        
  8001.  3:n=4
  8002.       
  8003. uI      allied(lord,1)=allied(lord,1) 
  8004.  n:allied(1,lord)=allied(lord,1)
  8005.       trace%(11)+=1
  8006.       san=1
  8007.      
  8008.       
  8009. esay(22)
  8010.      
  8011.      
  8012. elast(0)
  8013. |        
  8014.  ship(1)+ship(2)+ship(3)*2>SIk%(sel,actual,1)+SIk%(sel,actual,2)+SIk%(sel,actual,3) 
  8015.  (lo%(lord) 
  8016.  8=0) 
  8017. esay(16)
  8018. G    allied(lord,1)=allied(lord,1) 
  8019.  7:allied(1,lord)=allied(lord,1)
  8020.     trace%(11)+=1
  8021. 5    
  8022. (4)=1 
  8023.  (hi%(lord) 
  8024.  evillord(lord)=1
  8025. esay(3)
  8026. elast(0)
  8027. attack
  8028.   row=0
  8029.  row=4 
  8030.   tk$(1)=ar$(49)
  8031.   tk$(2)=ar$(52)
  8032. +  tk$(3)="The "+race$(Hl(lord))+t$(348)
  8033.   tk$(4)=ar$(50)
  8034. esay(
  8035. (2)+27)
  8036. tquest
  8037.  row=1 
  8038.  evillord(lord)<>1 
  8039.  (hi%(lord) 
  8040.  16)=0 
  8041. elast(11)
  8042.  lo%(lord) 
  8043.      
  8044. elast(12)
  8045.         
  8046.      
  8047. esay(13)
  8048.      cr=
  8049. (cred/1.5)
  8050.       
  8051.  cr>credits cr=credits
  8052. $     tk$(1)=t$(349)+
  8053. (cr)+" MC."
  8054.      tk$(2)=ar$(55)
  8055.      tk$(3)=ar$(54)
  8056. !     
  8057.  cred>credits 
  8058.  tk(3)=0
  8059.      
  8060. tquest
  8061.      
  8062.  row=1 
  8063. &      
  8064.  (hi%(lord) 
  8065.  16) 
  8066.  cr<50 
  8067.        
  8068. elast(24)
  8069.       
  8070.        credits-=cr
  8071.        credits(lord)+=cr
  8072.        evillord(lord)=0
  8073.        
  8074. elast(25)
  8075.       
  8076.       row=0
  8077.      
  8078.      
  8079.  row=2 
  8080.       
  8081. elast(12)
  8082.      
  8083.      
  8084.  row=3 
  8085.       evillord(lord)=0
  8086.       credits-=cred
  8087.       credits(lord)+=cred
  8088.       
  8089. elast(25)
  8090.      
  8091.         
  8092.  row=2 
  8093. ,    
  8094.  (lo%(lord) 
  8095.  evillord(lord)=0
  8096. G    
  8097.  evillord(lord)=1 
  8098.  allied(1,lord)=0 
  8099. elast(12) 
  8100. elast(36)
  8101.  row 
  8102.      
  8103.  3: I=1
  8104.      
  8105.  4: I=3
  8106.         
  8107. !    
  8108.  (lo%(lord) 
  8109.  1)=0 
  8110.  I>1 
  8111.  R=1 
  8112.      
  8113. esay((
  8114. (2)-1)*7+20)
  8115. *     allied(lord,1)=0:allied(1,lord)=0
  8116.      evillord(lord)=1
  8117.         
  8118. *     allied(lord,1)=0:allied(1,lord)=0
  8119.      
  8120. esay(30)
  8121.         
  8122. elast(0)
  8123. gload("ts2"):
  8124. smerge("graphic2.pa"+
  8125. (plan(selectedsys,actual)))
  8126. comframe
  8127. frame(50,240,1220,694,42)
  8128. inframe(480,260,1200,588,42)
  8129. inframe(480,604,1200,676,42)
  8130. inframe(70,260,462,676,42)
  8131. tquest
  8132.  flashnum=0:flashactual=0
  8133.  tk$(t)="" 
  8134.  tk(t)=0
  8135.  tk(t)=0 
  8136. f_gre
  8137. dsp(tk$(t),494,10+t*2)
  8138. f_wht
  8139. dsp(tk$(t),494,10+t*2)
  8140. a   flashnum+=1:flash$(flashnum)=tk$(t):flashx(flashnum)=494:flashy(flashnum)=1023-(10+t*2)*40
  8141.  row=0
  8142. askrow
  8143.  tk(row)>0
  8144.  tk$()=""
  8145.  tk()=1
  8146. f_wht
  8147.  flashnum=0:flashactual=0
  8148. esay(say)
  8149.  A,B,C
  8150. edecode(say)
  8151. escribe(ar$(say))
  8152. edecode(d)
  8153.  cred=0
  8154.  I$=""
  8155. ar$(d),"*") 
  8156. "  a$=
  8157. ar$(d),
  8158. ar$(d),"*")+1,1)
  8159.  a$="P" 
  8160.  I$=SIn$(sel,actual)
  8161.  a$="N" 
  8162.  I$=PName$
  8163.  a$="R" 
  8164.  I$=race$(Hl(lord))
  8165.  a$="L" 
  8166.  I$=race$(0)
  8167.  a$="T" 
  8168.  I$=SIn$(sst,spl)
  8169.  a$="M" 
  8170. -   cred=credits(lord):
  8171.  cred>100 cred=100
  8172.  credits(lord)<50 cred=credits(lord)
  8173.  cred>5 cred-=5
  8174.  a$="A" 
  8175.    R=
  8176. (10)*20
  8177. 1   cred=credits(lord):
  8178.  cred>100+R cred=100+R
  8179.  credits(lord)<50 cred=credits(lord)
  8180.  a$="V" 
  8181. ,   R=normalfont*3: 
  8182.  R>100 R=100-
  8183. (3)*10
  8184.  R>credits R=credits
  8185.    cred=R
  8186.  a$="C" 
  8187.  cred=
  8188. (3)*10
  8189.  a$="G" 
  8190. *   cred=
  8191. (5)*100:
  8192. (3)=1 
  8193.  cred+=cred
  8194.  cred>0 I$=
  8195. (cred)+" MC"
  8196. ar$(d),"*")
  8197.   b$=ar$(d)
  8198. '  ar$(d)=
  8199. b$,I-1)+I$+
  8200. (b$)-I-1)
  8201. escribe(say$)
  8202.  f,n,b$
  8203. cleararea
  8204. fontcol(&fff00fff)
  8205.  f=1 
  8206. (say$)
  8207. say$,f),494,10)
  8208. say$,f,1)<>" "
  8209. sayanim(1)
  8210. &;  b$=
  8211. (27) 
  8212.  letexit=1 
  8213.  quittalk=1:f=
  8214. (say$)
  8215. f_wht
  8216. elast(say)
  8217.  ld$="ld"+
  8218. (Hl(lord))
  8219.  fght% 
  8220.  rebels% 
  8221.  ld$="ld5"
  8222.  A,B,C
  8223.  say>0 
  8224. edecode(say)
  8225. escribe(ar$(say))
  8226.  say> -1 
  8227.  A,B,C: 
  8228.  C=0 
  8229. (0)=""
  8230.  A,B,C
  8231. sayanim(2)
  8232.  C<>0 
  8233. (0)<>""
  8234. schoose(ld$)
  8235. plot(0,74,264)
  8236.  say=-1
  8237. schoose("c") 
  8238. schoose(ld$)
  8239. plot(0,74,264)
  8240. wait(3)
  8241.  say<>-1 
  8242.  c$="ld"+
  8243. (Hl(lord)) 
  8244.  c$="c"
  8245.  fght% 
  8246.  rebels% 
  8247.  c$="ld5"
  8248. termicom(c$)
  8249.  fght% 
  8250.  rebels% 
  8251. sdelete("ld5"):
  8252.  say<>-1 
  8253. sdelete("ld"+
  8254. (Hl(lord)))
  8255. sdelete("ld"+
  8256. (Hl(lord))+"-"+
  8257. (g)):
  8258. sdelete("c")
  8259. comshowal
  8260.  allied(lord,1) 
  8261. schoose("all1"):
  8262. plot(8,80,604):g+=72
  8263.  allied(lord,1) 
  8264. schoose("all2"):
  8265. plot(8,80+g,604):g+=72
  8266.  allied(lord,1) 
  8267. schoose("all3"):
  8268. plot(8,80+g,604)
  8269. sayanim(type)
  8270.  fx,fy,f,g,sca,scb,rebpro
  8271.  actualmenu=1 
  8272.  sca=2:scb=1 
  8273.  sca=1:scb=2
  8274.  battlecom=1 
  8275.  sca=1:scb=2
  8276.  rebpro=0
  8277.  battlecom=1 
  8278.  rebels%>0 
  8279.  rebpro=1
  8280.  ckind<>2 
  8281. (100)=1 
  8282.  san=0 
  8283.  fght%=0 
  8284.  rebpro=0 
  8285.  san=1
  8286.  san>0 
  8287.  ckind<>2 
  8288. m      f=0
  8289.  san 
  8290.  1:f=1
  8291.  2:f=2
  8292.  3:f=3
  8293.  4:f=2
  8294.  5:f=1
  8295.   a$="ld"+
  8296. (Hl(lord))
  8297.  san<6 a$+="-"+
  8298. schoose(a$)
  8299. 6,112,scb
  8300. plot(0,74,264)
  8301. cominfo
  8302. comshowal
  8303. front(74,264,458,672,sca)
  8304.   san+=1
  8305.  san=7 
  8306.  san=0
  8307. comshowal
  8308.  sanc+=1
  8309.  A,B,C:
  8310.  type<>1 
  8311.  C=0 
  8312. wait(6)
  8313.  sanc/2=
  8314. (sanc/2) 
  8315. &  flicker+=1:
  8316.  flicker>9 flicker=1
  8317. 6,112,scb
  8318. schoose("commcop"):
  8319. plot(0,364,272)
  8320. schoose("clogo"+
  8321. (flicker)):
  8322. plot(8,364,272)
  8323. 364,272:
  8324.  444,352:
  8325. sget("cc2")
  8326. 6,112,sca
  8327. schoose("cc2")
  8328. plot(0,364,272)
  8329. sdelete("cc2")
  8330. makecop
  8331.  364,272:
  8332.  444,352:
  8333. sget("commcop")
  8334. termicom(sp$)
  8335.  X,Y,p,q,r,s,zoom%,zx,c,t,pga,pgb
  8336.  actualmenu=2 
  8337.  pga=1:pgb=2 
  8338.  pga=2:pgb=1
  8339.  fght% 
  8340.  pga=1:pgb=2
  8341.  p=76:q=268
  8342.  r=454:s=668
  8343. 6,112,pgb
  8344.  zx=1050
  8345.  zoom%=1000 
  8346.  -100
  8347.   zx-=50
  8348. 6,112,pgb
  8349.  76,268,378,400
  8350. zoom(265-189*zx/1000,468-200*zoom%/1000,zx,zoom%,1000,1000,sp$)
  8351.  p,q:
  8352.  r,s:
  8353. sget("cop2")
  8354. 6,112,pga
  8355. schoose("cop2")
  8356. plot(0,p,q)
  8357.  arm>2.5 
  8358. wait(2) 
  8359. wait(1)
  8360.  zoom%
  8361. 6,112,pga
  8362. sdelete("cop2")
  8363.  X=1 
  8364.  1:c=63:t=192
  8365.  2:c=63:t=64
  8366.  3:c=48:t=192
  8367.  4:c=48:t=128
  8368.  5:c=48:t=64
  8369.  6:c=48:t=0
  8370.  7:c=32:t=192
  8371.  8:c=32:t=128
  8372.  9:c=32:t=64
  8373. 10:c=32:t=0
  8374. 11:c= 0:t=0
  8375.  76,468,454,468
  8376. wait(3)
  8377. askrow
  8378.  A,B,C
  8379. 6,21,9
  8380. wait(3)
  8381.  A,B,C: 
  8382.  C=0 
  8383. (0)=""
  8384.      ok=0
  8385.  A,B,C
  8386.   b$=
  8387. (27) 
  8388.  letexit=1 
  8389. $   quittalk=1:row=1:tk(1)=1:ok=1
  8390.  C=4 
  8391.  A>520 
  8392. A<1240 
  8393. "    
  8394.  B>=540
  8395. B<570 row=1: ok=1
  8396. "    
  8397.  B>=462
  8398. B<488 row=2: ok=1
  8399. "    
  8400.  B>=382
  8401. B<410 row=3: ok=1
  8402. "    
  8403.  B>=300
  8404. B<326 row=4: ok=1
  8405. flash(0)
  8406. sayanim(2)
  8407. cominfo
  8408.  ckind=1 
  8409.  fght% 
  8410.  rebels% 
  8411. pixel(t$(350),80,300,47,192,26,64):
  8412. pixel(
  8413. g(lord)+" "+H$(lord),80,328,47,192,26,64)
  8414. pixel(t$(351)+race$(Hl(lord)),80,300,47,192,26,64)
  8415.  ckind=2 
  8416. pixel(t$(352),80,300,47,192,26,64)
  8417.  ckind=3 
  8418. pixel(t$(353),80,300,47,192,26,64)
  8419. fleet
  8420.  mex=1:inc=0
  8421.  sel=selectedsys
  8422.  X=selectedsys:Y=actual
  8423. M ar$(9)="FLEET":ar$(10)="Own":ar$(11)="Cost":ar$(12)="Produce":ar$(13)=""
  8424.  v%(0,0)=scout%
  8425.  v%(0,1)=trans%
  8426.  v%(0,2)=war%
  8427.  v%(0,3)=bomb%
  8428.  v%(0,5)=SIv(X,Y)
  8429.  v%(0,6)=SIgr(X,Y)
  8430.  v%(1,0)=10
  8431.  v%(1,1)=15
  8432.  v%(1,2)=20
  8433.  v%(1,3)=25
  8434.  v%(1,5)=5
  8435.  v%(1,6)=6
  8436. 6:v%(2,n)=0:
  8437.  ar$(5)=""
  8438. t_menu("js1","fl1",7,3,t$(247),t$(248),t$(249),t$(250),"","AirDef guns",t$(254),"Mega Credits:",credits)
  8439.  exit=0
  8440. t_row(7,3)
  8441.  row<>0 
  8442.  inc>0 
  8443.  credits>=v%(1,row-1)
  8444.     l=0
  8445.  row 
  8446.      
  8447.  1:l=100
  8448.      
  8449.  2:l=500
  8450.      
  8451.  3:l=250
  8452.      
  8453.  4:l=250
  8454. %     
  8455.  6:l=
  8456. (SId(sel,actual)/200)
  8457. %     
  8458.  7:l=
  8459. (SId(sel,actual)/100)
  8460.         
  8461. M    
  8462.  row<6 
  8463.  l=10000:
  8464.  billige moeglichkeit, limit rauszulassen. unfein!
  8465. `    
  8466.  v%(0,row-1)+v%(2,row-1)<l 
  8467.  v%(2,row-1)+=1:credits-=v%(1,row-1):
  8468. t_re(row,7,3,credits)
  8469.  inc<0 
  8470.  v%(2,row-1)>0 
  8471. B    v%(2,row-1)-=1:credits+=v%(1,row-1):
  8472. t_re(row,7,3,credits)
  8473.  exit
  8474.  scout%+=v%(2,0)
  8475.  trans%+=v%(2,1)
  8476.  war%+=v%(2,2)
  8477.  bomb%+=v%(2,3)
  8478.  SIv(sel,actual)+=v%(2,5)
  8479.  SIgr(sel,actual)+=v%(2,6)
  8480.  PROCt_clear(7)
  8481. gload("ts2"):
  8482. smerge("graphic2.pa"+
  8483. (plan(selectedsys,actual)))
  8484. _enemy_comm(ekn,lord,sst,spl)
  8485.  ok,flicker,dlord,add,cred
  8486.  ekn=1: Angriff
  8487.      2: Handel
  8488.      3: Allianz
  8489.  decision=0
  8490.  on exit
  8491.      =0: Nix weiter.
  8492.      =1: Angriff
  8493.      =2: Handel
  8494.  ekn 
  8495. mpart(8)
  8496. mpart(6)
  8497. mpart(13)
  8498.  ckind=1
  8499.  <! tk$()="":tk()=1:row=0:cred=0
  8500. fillarray("tk1",60)
  8501.  flicker=1
  8502. gmerge("ld"+
  8503. (Hl(lord)))
  8504. comframe
  8505. schoose("ld"+
  8506. (Hl(lord)))
  8507. 6,112,1
  8508. plot(0,74,264)
  8509. makecop
  8510. 6,112,2
  8511.  n=412-412/16 
  8512.  -412/16
  8513. 6,112,1
  8514.  74,264+n
  8515.  74+384,260+n+412/16
  8516. sget("tpr")
  8517. schoose("tpr")
  8518. 6,112,2
  8519. plot(0,74,264+n)
  8520. wait(2)
  8521. schoose("ld"+
  8522. (Hl(lord)))
  8523. pixel(
  8524. g(lord)+" "+H$(lord),80,328,47,192,26,64)
  8525. pixel(t$(351)+race$(Hl(lord)),80,300,47,192,26,64)
  8526.  l=lord
  8527.  ekn=1 
  8528.  U1  
  8529.  (allied(lord,1)
  8530.  (allied(lord,1)
  8531.    tk$(1)=ar$(16)
  8532.    tk$(2)=ar$(17)
  8533. esay(31):
  8534. tquest
  8535.    tk$(1)=ar$(20)
  8536.    tk$(2)=t$(354)
  8537.  [)   tk$(3)=race$(Hl(lord))+" bastard."
  8538. esay(
  8539. (2)+57):
  8540. tquest
  8541.  ](   allied(lord,1)=0:allied(1,lord)=0
  8542.    reput(lord)-=1
  8543.    decision=1
  8544.    tk$(1)=t$(355)
  8545.    tk$(2)=t$(356)
  8546.    tk$(3)=ar$(3)
  8547.    tk$(4)=ar$(4)
  8548.    tk()=1
  8549.  credits=0 tk(2)=0
  8550. esay(31)
  8551. tquest
  8552.  row=2 
  8553.     cred=0
  8554. esay(29)
  8555.  l$    
  8556. getMC(t$(343),
  8557. (credits/2))
  8558.     a=0
  8559.  n&    
  8560.  cred<80 
  8561.  cred<credits/3 a=0
  8562.  o!    
  8563.  cred>normalfont*2.5 a=1
  8564.  cred<15 a=0
  8565.  hi%(lord) 
  8566.      credits-=cred
  8567.      
  8568. elast(25)
  8569.  u        
  8570.      
  8571. elast(37)
  8572.      decision=1
  8573.  x*     allied(lord,1)=0:allied(1,lord)=0
  8574.  y        
  8575.     decision=1
  8576.  |)    allied(lord,1)=0:allied(1,lord)=0
  8577.  ekn=2 
  8578.   tk$(1)=t$(357)
  8579.   tk$(2)=ar$(6)
  8580.   tk$(3)=ar$(7)
  8581. (  tk$(4)=t$(358)+race$(Hl(lord))+"."
  8582. esay(32)
  8583. tquest
  8584.  row=3 decision=2
  8585.  row=2 decision=0
  8586.  row=1 
  8587.  allied(lord,1) 
  8588.     decision=0
  8589. elast(45)
  8590. esay(29)
  8591. getMC(t$(359),10)
  8592. *    
  8593.  cred<=10 
  8594.  credits(lord)>=10 d=1
  8595. 6    
  8596.  cred>=20 
  8597.  credits(lord)>cred 
  8598. (3)=1 
  8599.  cred>=30 d=0
  8600. !    
  8601.  cred>=15 
  8602. (4)=1 
  8603. @     decision=2:credits(lord)-=cred:credits+=cred:
  8604. elast(25)
  8605.         
  8606.      decision=0:
  8607. elast(45)
  8608.         
  8609.  row=4 
  8610.  allied(lord,1) 
  8611.  allied(lord,1)=0:allied(1,lord)=0
  8612.    R=
  8613. (3)+41
  8614.  R=44 
  8615.  (hi%(lord)
  8616.  R=42
  8617.  R=42 
  8618. %    tk$(1)=ar$(30):tk$(2)=ar$(23)
  8619. $    tk$(1)=ar$(23):tk$(2)=ar$(6)
  8620.  R<44 
  8621. esay(R):
  8622. tquest 
  8623. elast(R)
  8624.  ekn=3 
  8625. "  tk$(1)=ar$(9):tk$(2)=ar$(10)
  8626. esay(33):
  8627. tquest
  8628. (3): 
  8629.  (allied(lord,1)
  8630.  2^(d-1))=0
  8631.   R=d+37
  8632. ;  a=1:
  8633.  eship(lord,1)+eship(lord,2)+eship(lord,3)=0 a=0
  8634.  (((hi%(lord)
  8635. (3)=1) 
  8636. (10)=1) 
  8637.  a=1 
  8638. #   tk$(1)=ar$(3):tk$(2)=ar$(26)
  8639. esay(41):
  8640. tquest
  8641.  row=1 decision=1 
  8642.  allied(lord,1)=7:allied(1,lord)=7
  8643.    cred=0
  8644. B   tk$(1)=ar$(22):tk$(2)=ar$(23):tk$(3)=ar$(24):tk$(4)=ar$(25)
  8645. esay(R)
  8646. tquest
  8647.  row=2 
  8648. %    tk$(1)=ar$(25):tk$(2)=ar$(22)
  8649. *    
  8650.  (lo%(lord)
  8651.  s=46 
  8652. (2)+46
  8653. esay(s):
  8654. tquest
  8655. U    
  8656.  row=1 
  8657.  allied(lord,1)=allied(lord,1)
  8658. 2^(d-1):allied(1,lord)=allied(lord,1)
  8659.  cred>0 credits+=cred
  8660.  row=4 
  8661. K    allied(lord,1)=allied(lord,1)
  8662. 2^(d-1):allied(1,lord)=allied(lord,1)
  8663. getMC(mct$,crd)
  8664.  pga,pgb
  8665.  actualmenu=2 
  8666.  pga=1:pgb=2 
  8667.  pga=2:pgb=1
  8668. gmerge("br4"):
  8669. gmerge("br6")
  8670.  636,492,160,44
  8671. dsp(mct$+"               MC.",494,13)
  8672. schoose("export3")
  8673. plot(8,940,488)
  8674. schoose("ok")
  8675. plot(0,1078,488)
  8676. sdelete("export3")
  8677. sdelete("ok")
  8678.  mex=1
  8679.  cred=crd
  8680. (cred),640,13)
  8681.      ok=0
  8682.  A,B,C,D
  8683.  old_C=0 
  8684.     delay=D
  8685. gm_do
  8686.  D-delay>50 
  8687.      
  8688. gm_do
  8689.      
  8690.  arm>=2 
  8691.         
  8692.   old_C=C
  8693.  A,B,C:
  8694.  actualmenu=2 
  8695. 6,112,pga
  8696. 6,113,pga
  8697. gm_do
  8698.  C>0 
  8699.  A>1078 
  8700.  A<1156 
  8701.  B>488 
  8702.  B<539 
  8703.  ok=1:C=0:
  8704. button(1078,488,1156,539,1)
  8705.  C>0 
  8706. getInc(940,488)
  8707.   cred+=inc:
  8708.  cred<0 cred=0
  8709.  mct$=t$(359) 
  8710.  cred>1000 cred=1000
  8711.  cred>credits cred=credits
  8712. 6,112,pgb
  8713.  636,492,160,44
  8714. (cred),640,13)
  8715.  636,492:
  8716. 796,536:
  8717. sget("screen")
  8718. schoose("screen")
  8719. 6,112,pga
  8720. plot(0,636,492)
  8721. equip
  8722. 1279,1023:
  8723. sget("scr")
  8724. 6,112,1
  8725. schoose("scr")
  8726. plot(0,0,0)
  8727. 6,113,1
  8728. sdelete("scr")
  8729.  v%()=0
  8730.  mex=1:inc=0
  8731. T ar$(9)="Equipment":ar$(10)="Own":ar$(11)="Max":ar$(12)="Cost":ar$(13)="Produce"
  8732. 7:v%(0,n-1)=stsh%(1,n):
  8733.  v%(1,0)=2
  8734.  v%(1,1)=4
  8735.  v%(1,2)=10
  8736.  v%(1,3)=100
  8737.  v%(1,4)=8
  8738.  v%(1,5)=1
  8739.  v%(1,6)=1
  8740.  v%(2,0)=40
  8741.  v%(2,1)=100
  8742.  v%(2,2)=30
  8743.  v%(2,3)=5
  8744.  v%(2,4)=50
  8745.  v%(2,5)=200
  8746.  v%(2,6)=300
  8747. t_menu("js1","eq1",7,4,"Shield generator","Laser gun","Missile Launcher","Crew","Bionic probe","Escape Capsule","Repair Hangar","Mega Credits:",credits)
  8748.  exit=0
  8749. t_row(7,4)
  8750.   I$=
  8751. (27) 
  8752.  exit=1
  8753.  row<>0 
  8754.  inc>0 
  8755.  credits>=v%(2,row-1) 
  8756.  v%(0,row-1)+v%(3,row-1)<v%(1,row-1)
  8757. ! B    v%(3,row-1)+=1:credits-=v%(2,row-1):
  8758. t_re(row,7,4,credits)
  8759. !"    
  8760.  inc<0 
  8761.  v%(3,row-1)>0 
  8762. !#B    v%(3,row-1)-=1:credits+=v%(2,row-1):
  8763. t_re(row,7,4,credits)
  8764.  exit
  8765. 7:stsh%(1,n)+=v%(3,n-1):
  8766. t_clear(7)
  8767. transfer
  8768.  sel=selectedsys
  8769. (SId(sel,actual)/200)
  8770.  mex=1:inc=0
  8771.  X=sel:Y=actual
  8772. !05 ar$(9)="Item":ar$(10)="Planet":ar$(11)="Freight"
  8773.  ar$(12)="":ar$(13)=""
  8774.  v%(1,0)=freight(1)
  8775.  v%(1,1)=freight(2)
  8776.  v%(1,2)=freight(3)
  8777.  v%(1,3)=ship(1)
  8778.  v%(1,4)=ship(2)
  8779.  v%(1,5)=ship(3)
  8780.  v%(1,6)=freight(0)
  8781.  v%(0,0)=SIg%(X,Y,1)
  8782.  v%(0,1)=SIg%(X,Y,2)
  8783.  v%(0,2)=SIg%(X,Y,3)
  8784.  v%(0,3)=SIk%(X,Y,1)
  8785.  v%(0,4)=SIk%(X,Y,2)
  8786.  v%(0,5)=SIk%(X,Y,3)
  8787.  v%(0,6)=SIgr(X,Y)
  8788. !@X tfree%=trans%-(freight(0)+freight(1)+freight(2)+freight(3)+ship(1)+ship(2)+ship(3))
  8789. t_menu("ps1","td2",7,2,"Minerals","Food","Plutonium","Infantry","Gliders","Artillery","Robots","Cargo space:",tfree%)
  8790.  exit=0
  8791. t_row(7,2)
  8792.  row<>0 
  8793. !G<   
  8794.  inc<0 
  8795.  (v%(0,row-1)<pd 
  8796.  (row=7 
  8797.  v%(0,6)<pd*2)) 
  8798. !HX    
  8799.  v%(1,row-1)>0 
  8800.  v%(1,row-1)-=1:v%(0,row-1)+=1:tfree%+=1: 
  8801. t_re(row,7,2,tfree%)
  8802.  inc>0 
  8803.  tfree%>0 
  8804. !KY    
  8805.  v%(0,row-1)>0 
  8806.  v%(0,row-1)-=1: v%(1,row-1)+=1:tfree%-=1: 
  8807. t_re(row,7,2,tfree%)
  8808.  exit
  8809.  X=sel:Y=actual
  8810.  freight(1)=v%(1,0)
  8811.  freight(2)=v%(1,1)
  8812.  freight(3)=v%(1,2)
  8813.  ship(1)   =v%(1,3)
  8814.  ship(2)   =v%(1,4)
  8815.  ship(3)   =v%(1,5)
  8816.  freight(0)=v%(1,6)
  8817.  SIg%(X,Y,1)=v%(0,0)
  8818.  SIg%(X,Y,2)=v%(0,1)
  8819.  SIg%(X,Y,3)=v%(0,2)
  8820.  SIk%(X,Y,1)=v%(0,3)
  8821.  SIk%(X,Y,2)=v%(0,4)
  8822.  SIk%(X,Y,3)=v%(0,5)
  8823.  SIgr(X,Y)  =v%(0,6)
  8824.  PROCt_clear(7)
  8825. gload("ts2"):
  8826. smerge("graphic2.pa"+
  8827. (plan(selectedsys,actual)))
  8828. t_re(slc,rnum,cnum,red)
  8829. f_wht
  8830.  n=1023-(slc*2+3)*40
  8831. dspr(
  8832. (v%(cnum-2,row-1)),(cnum+1)*150+40,slc*2+3,(cnum+1)*150+36,n,(cnum+1)*150+120,n+32)
  8833. dspr(
  8834. (v%(cnum-1,row-1)),(cnum+2)*150+40,slc*2+3,(cnum+2)*150+36,n,(cnum+2)*150+120,n+32)
  8835. f_yel
  8836. dspr(
  8837. (red),320,21,320,183,472,215)
  8838. t_clear(rnum)
  8839.  PROCgmerge("ts1")
  8840. gload("ts1"):
  8841. gmerge("pt1")
  8842. t_menu(tpn$,tsp$,rnum,cnum,b$(1),b$(2),b$(3),b$(4),b$(5),b$(6),b$(7),dsp$,dsp)
  8843. 7:ar$(n)=b$(n):
  8844. gmerge("br5")
  8845. gmerge("br4")
  8846. gmerge(tsp$)
  8847. 6,112,2
  8848. picture(tpn$)
  8849. schoose("export4")
  8850. plot(0,50,50)
  8851. frame(0,50,42,96,42)
  8852. frame(289,50,1279,96,42)
  8853. sdelete("export4")
  8854. f_yel
  8855. dspB(ar$(9),140,3):
  8856. dsp(ar$(10),450,3):
  8857. dsp(ar$(11),600,3):
  8858. dsp(ar$(12),750,3):
  8859. dsp(ar$(13),900,3)
  8860. f_wht
  8861.  n=1 
  8862.  rnum
  8863.  ar$(n)<>"" 
  8864. schoose("tr"+
  8865. plot(0,12,1023-((n*2+4)*40-20))
  8866. dspB(ar$(n),140,n*2+3)
  8867.  cnum
  8868. 0    
  8869. dspB(
  8870. (v%(m-1,n-1)),(m+2)*150+40,n*2+3)
  8871. schoose("export3")
  8872. plot(8,(cnum+3)*150+40,1023-((n*2+4)*40-32))
  8873. f_wht
  8874. dspB(dsp$,4,21)
  8875. f_yel
  8876. dspB(
  8877. (dsp),320,21)
  8878. 6,112,1
  8879. 6,113,2
  8880. picture(tpn$)
  8881.  FORx=1TOrnum
  8882.   n=1023-(x*2+3)*40
  8883.   MOVE (cnum+1)*150+36,n:MOVE(cnum+1)*150+120,n+32:PROCsget("trb"+STR$(x))
  8884.   MOVE (cnum+2)*150+36,n:MOVE(cnum+2)*150+120,n+32:PROCsget("trb"+STR$(x+rnum))
  8885.  NEXTx
  8886.  MOVE 320,183:MOVE 400,215:PROCsget("trb"+STR$(rnum*2+1))
  8887. 6,112,2
  8888. t_row(rnum,cnum)
  8889.  row=0
  8890.  A,B,C,D
  8891.  old_C=0 
  8892.    delay=D
  8893. t_row_action
  8894.  D-delay>50 
  8895. t_row_action
  8896.  arm>=2 
  8897.  old_C=C
  8898. t_row_action
  8899. getex(50,50)
  8900.  rnum
  8901. getI((cnum+3)*150+40,1023-((X*2+4)*40-32))
  8902.  inc<>0 
  8903.  ar$(X)<>"" row=X:X=rnum
  8904. getExit(exa,exb)
  8905.  A,B,C:
  8906. getex(exa,exb)
  8907. getex(exa,exb)
  8908.  exit=0
  8909.  A>=exa 
  8910. B>=exb 
  8911.  A<=exa+236 
  8912.  B<=exb+52 exit=1:
  8913. button(exa,exb,exa+232,exb+48,1)
  8914. getInc(inca,incb)
  8915.  A,B,C
  8916. getI(inca,incb)
  8917. getI(inca,incb)
  8918.  inc=0
  8919.  B>=incb 
  8920.  B<=incb+52 
  8921.  A>=inca 
  8922.  A<inca+64 inc=-1
  8923.  A>inca+64 
  8924.  A<inca+128 inc=1
  8925. trade
  8926. mpart(6)
  8927.  exit,tfree%,taa,tab,tac,tga
  8928. gmerge("td1")
  8929. gmerge("td2")
  8930. gmerge("br2")
  8931.  exit=0
  8932. X tfree%=trans%-(freight(0)+freight(1)+freight(2)+freight(3)+ship(1)+ship(2)+ship(3))
  8933.  a=SIt(sel,actual)
  8934.  CASE a OF
  8935.   WHEN 1:RESTORE 27391
  8936.   WHEN 2:RESTORE 27400
  8937.   WHEN 3:RESTORE 27409
  8938.  ENDCASE
  8939.  FOR X=1TO8:READ pc%(X):NEXT
  8940.  FOR X=1TO8:READ pb%(X):NEXT
  8941. 8:pc%(X)=prices(a,X,1):
  8942. 8:pb%(X)=prices(a,X,2):
  8943.  av%(1)=
  8944. (10)+10
  8945.  av%(2)=
  8946. (20)+20
  8947.  av%(3)=
  8948. (20)+15
  8949.  av%(4)=
  8950.  av%(5)=
  8951.  av%(6)=
  8952.  av%(7)=
  8953.  av%(8)=
  8954.  allied(1,SIi(sel,actual))=0 
  8955. 8:av%(X)=0:
  8956.  SIna(sel,actual)<SIc(sel,actual)*3+1 pb%(2)+=1:pc%(2)+=2
  8957.  IF invent%(SIi(sel,actual),14)=1 THEN pb%(3)=1:pc%(3)=2
  8958. 6,112,2
  8959. picture("pl"+
  8960. (plan(sel,actual)))
  8961. dspB(t$(360),4,21)
  8962. dspB(t$(361),600,21)
  8963. f_yel
  8964. dspB(
  8965. (tfree%),420,21)
  8966. dspB(
  8967. (credits),800,21)
  8968. dspB("Item",140,3):
  8969. dspB("Cost",450,3):
  8970. dspB("Buy",600,3):
  8971. dspB("Stock",750,3):
  8972. dspB("Freight",1000,3)
  8973. f_wht
  8974. schoose("tr"+
  8975. plot(0,12,1023-((X*2+4)*40-20))
  8976.  av%(X)=0 
  8977. schoose("tr0")
  8978. plot(8,12,1023-((X*2+4)*40-20))
  8979. 1:i$=t$(251)
  8980. 2:i$=t$(252)
  8981. 3:i$=t$(253)
  8982. 4:i$=t$(255)
  8983. 5:i$=t$(256)
  8984. 6:i$=t$(257)
  8985. 7:i$=t$(254)
  8986. 8:i$=t$(248)
  8987. dspB(i$,140,X*2+3)
  8988. dspB(
  8989. (pc%(X)),490,X*2+3)
  8990. dspB(
  8991. (pb%(X)),640,X*2+3)
  8992. dspB(
  8993. (av%(X)),790,X*2+3)
  8994.  X<4 
  8995.  s=freight(X)
  8996.  X>3 
  8997.  X<7 
  8998.  s=ship(X-3)
  8999.  X=7 
  9000.  s=freight(0)
  9001.  X=8 
  9002.  s=trans%
  9003. dspB(
  9004. (s),1040,X*2+3)
  9005. schoose("export")
  9006. plot(8,50,50)
  9007. frame(0,50,42,96,42)
  9008. frame(1010,50,1279,96,42)
  9009. 6,113,2
  9010. 6,112,1
  9011. picture("pl"+
  9012. (plan(sel,actual)))
  9013. 6,112,2
  9014.  slc=1
  9015.  n=1023-((slc*2+4)*40-20)
  9016.  120,n:
  9017.  1220,n:
  9018. sget("mnu1")
  9019.  120,n:
  9020.  120,n+72:
  9021. sget("mnu2")
  9022.  1220,n:
  9023.  1220,n+72:
  9024. sget("mnu3")
  9025.  120,n+72:
  9026.  1220,n+72:
  9027. sget("mnu4")
  9028.  196: 
  9029.  120,1023-((slc*2+4)*40-20),1100,72
  9030. 6,112,1
  9031.   n=1023-(X*2+3)*40
  9032. "3)  
  9033.  790,n:
  9034. 870,n+32:
  9035. sget("trb"+
  9036. "4-  
  9037.  1040,n:
  9038. 1120,n+32:
  9039. sget("trb"+
  9040. (X+8))
  9041. "6(  
  9042.  420,183:
  9043.  500,215:
  9044. sget("trb17")
  9045. "7(  
  9046.  800,183:
  9047.  950,215:
  9048. sget("trb18")
  9049. 6,112,2
  9050.  a,b,c: 
  9051.   ok=0
  9052.  a,b,c
  9053.  c=4 
  9054. "?;    
  9055.  b>1023-((X*2+4)*40-20) 
  9056. b< 1023-((X*2+4)*40-92) 
  9057.      
  9058.  X<> slc 
  9059. "A"      n=1023-((slc*2+4)*40-20)
  9060.       
  9061. schoose("mnu1")
  9062.       
  9063. plot(0,120,n)
  9064.       
  9065. schoose("mnu2")
  9066.       
  9067. plot(0,120,n)
  9068.       
  9069. schoose("mnu3")
  9070.       
  9071. plot(0,1220,n)
  9072.       
  9073. schoose("mnu4")
  9074.       
  9075. plot(0,120,n+72)
  9076.       slc=X
  9077. "K       n=1023-((X*2+4)*40-20)
  9078. "L(      
  9079.  120,n:
  9080.  1220,n:
  9081. sget("mnu1")
  9082. "M*      
  9083.  120,n:
  9084.  120,n+72:
  9085. sget("mnu2")
  9086. "N,      
  9087.  1220,n:
  9088.  1220,n+72:
  9089. sget("mnu3")
  9090. "O.      
  9091.  120,n+72:
  9092.  1220,n+72:
  9093. sget("mnu4")
  9094. "P9      
  9095.  196: 
  9096.  120,1023-((X*2+4)*40-20),1100,72
  9097.       
  9098. wait(3)
  9099.      
  9100. "S        
  9101.  c=4 
  9102.  b>50 
  9103. b<100 
  9104.  slc<>0 
  9105. "XA    
  9106.           a>50  
  9107.  a<298 
  9108. button(50,50,282,98,1):
  9109. buyinfo
  9110. "ZN    
  9111.  ok=0 
  9112.  a>306 
  9113.  a<538 
  9114. button(290,50,522,98,1):
  9115. buysell(1):
  9116. buyupdate
  9117. "\N    
  9118.  ok=0 
  9119.  a>544 
  9120.  a<776 
  9121. button(528,50,762,98,1):
  9122. buysell(2):
  9123. buyupdate
  9124. "_E    
  9125.  ok=0 
  9126.  a>784 
  9127.  a<1018 
  9128. button(768,50,1002,98,1):exit=1:ok=1
  9129.   I$=
  9130.  I$="B" 
  9131.  I$="b" 
  9132. "c6   
  9133. button(290,50,522,98,1):
  9134. buysell(1):
  9135. buyupdate
  9136.  a,b,c:
  9137.  I$="S" 
  9138.  I$="s" 
  9139. "g6   
  9140. button(528,50,762,98,1):
  9141. buysell(2):
  9142. buyupdate
  9143.  a,b,c:
  9144. "l"  
  9145.  X>0 
  9146. sdelete("trade"+
  9147. sdelete("tr"+
  9148. sdelete("trb"+
  9149. "q   
  9150.  X<5 
  9151. sdelete("mnu"+
  9152. sdelete("tradeback")
  9153. lordbuy(sel,actual,tga,taa,tab,tac)
  9154. lordbuy(px,py,tga,taa,tab,tac)
  9155.  lord
  9156.  ** Lord kauft ein **
  9157.  lord=SIi(px,py)
  9158.  lord<>1 
  9159. "|,  
  9160.  tga>0 
  9161.  SIna(px,py)<SIc(px,py)*3+1 
  9162.    cost=
  9163. (3)+2
  9164.  credits(lord)>=cost 
  9165. ?    b=tga:
  9166.  tga*cost>credits(lord)
  9167. (credits(lord)/cost)
  9168.  b>30 b=30
  9169. .    SIg%(px,py,2)+=b:credits(lord)-=b*cost
  9170.  taa>0 
  9171. (3)=1 
  9172.    cost=
  9173. (2)+4
  9174.  credits(lord)>=cost 
  9175. ?    b=taa:
  9176.  taa*cost>credits(lord)
  9177. (credits(lord)/cost)
  9178.  b>10 b=10
  9179. .    SIk%(px,py,1)+=b:credits(lord)-=b*cost
  9180.  tab>0 
  9181. (5)=1 
  9182.    cost=
  9183. (2)+6
  9184.  credits(lord)>=cost 
  9185. ?    b=tab:
  9186.  tab*cost>credits(lord)
  9187. (credits(lord)/cost)
  9188.  b>10 b=10
  9189. .    SIk%(px,py,2)+=b:credits(lord)-=b*cost
  9190.  tac>0 
  9191. (7)=1 
  9192.    cost=
  9193. (2)+8
  9194.  credits(lord)>=cost 
  9195. ?    b=tac:
  9196.  tac*cost>credits(lord)
  9197. (credits(lord)/cost)
  9198.  b>10 b=10
  9199. .    SIk%(px,py,3)+=b:credits(lord)-=b*cost
  9200. fillarray("in1",25)
  9201. '  a$=t$(362)+SIn$(px,py)+ar$(
  9202. (25))
  9203. (3)=1 
  9204.    R=
  9205.      
  9206.  1: a$+=" Interstellar"
  9207.  2: a$+=" Inc."
  9208.  3: a$+=" Worldwide"
  9209.  4: a$+=" Starwide"
  9210.  5: a$+=" Ltd."
  9211.   a$+=":"
  9212.   pd=
  9213. (SId(px,py)/200)
  9214. io(a$)
  9215.  IF tga>0 AND SIg%(px,py,2)<pd PROCio(a$,"food",tga,RND(3)+2,4)
  9216.  IF taa>0 AND SIk%(px,py,1)<pd PROCio(a$,"infantry",taa,RND(4)+2,1)
  9217.  IF tab>0 AND SIk%(px,py,2)<pd PROCio(a$,"glider",tab,RND(6)+2,2)
  9218.  IF tac>0 AND SIk%(px,py,3)<pd PROCio(a$,"artillery",tac,RND(6)+2,3)
  9219. io(ia$)
  9220.  iox,ia,iok
  9221. shortinfo
  9222.  X=px:Y=py
  9223.  xx=X:yy=Y
  9224.  noplanet=1
  9225. < pc%(1)=
  9226. (2)+1:pc%(2)=
  9227. (4)+2:pc%(3)=
  9228. (6)+2:pc%(4)=
  9229. (6)+2
  9230. 0 av%(1)=tga:av%(2)=taa:av%(3)=tab:av%(4)=tac
  9231. X c(1)=SIg%(px,py,1):c(2)=SIk%(px,py,1):c(3)=SIk%(px,py,2):c(4)=SIk%(px,py,3):pb%()=0
  9232. (SId(px,py)/200)
  9233. gmerge("br5"):
  9234. gmerge("br4"):
  9235. gmerge("td2")
  9236. cms("",1,1)
  9237. frame(208,237,272,285,42):
  9238. frame(521,237,1069,285,42)
  9239. schoose("export4")
  9240. plot(0,280,237)
  9241. sdelete("export4")
  9242.  firm=1
  9243. cms(ia$,1,1)
  9244.  firm=0
  9245. cms(t$(363),2,1)
  9246. cms(t$(364),3,1)
  9247. sfp(t$(365),380,660)
  9248. sfp(t$(366),520,660)
  9249. sfp(t$(367),660,660)
  9250. sfp(t$(368),800,660)
  9251. io_upd
  9252.  A,B,C,D
  9253.  old_C=0 
  9254.     delay=D
  9255. io_act
  9256.  D-delay>50 
  9257.      
  9258. io_act
  9259.      
  9260.  arm>=3 
  9261.         
  9262.   old_C=C
  9263.  SIg%(px,py,2)+=pb%(1)
  9264.  SIk%(px,py,1)+=pb%(2)
  9265.  SIk%(px,py,2)+=pb%(3)
  9266.  SIk%(px,py,3)+=pb%(4)
  9267.  window_open=0
  9268.  noplanet=0
  9269. io_upd
  9270.  iox=1 
  9271. schoose("export3")
  9272. plot(8,900,260+iox*80)
  9273.  iox 
  9274.  1:ia=2
  9275.  2:ia=4
  9276.  3:ia=5
  9277.  4:ia=6
  9278. schoose("tr"+
  9279. (ia))
  9280. plot(0,220,244+iox*80)
  9281.  av%(iox)=0 
  9282. schoose("tr0"):
  9283. plot(8,220,240+iox*80)
  9284.  iox=1 
  9285.  iox 
  9286.  1:ia=2
  9287.  2:ia=4
  9288.  3:ia=5
  9289.  4:ia=6
  9290.   f=272+iox*80
  9291. sfpr(
  9292. (av%(iox)),380,f,380,f,500,f+40)
  9293. sfpr(
  9294. (pc%(iox)),520,f,520,f,640,f+40)
  9295. sfpr(
  9296. (  c(iox)),660,f,660,f,780,f+40)
  9297. sfpr(
  9298. (pb%(iox)),800,f,800,f,880,f+40)
  9299. io_act
  9300. getex(280,237):
  9301.  exit=1 
  9302.  iok=1
  9303.  fcn=1 
  9304. getI(900,260+fcn*80)
  9305.  inc>0 
  9306.  av%(fcn)>0 
  9307.  credits>=pc%(fcn) 
  9308. C   credits-=pc%(fcn):av%(fcn)-=1:pb%(fcn)+=1:
  9309. io_upd:
  9310. shortinfo
  9311.  inc<0 
  9312.  pb%(fcn)>0 
  9313. C   av%(fcn)+=1:pb%(fcn)-=1:credits+=pc%(fcn):
  9314. io_upd:
  9315. shortinfo
  9316. buyupdate
  9317.  n=1023-(slc*2+3)*40
  9318. schoose("trb"+
  9319. (slc))
  9320. plot(0,790,n)
  9321. schoose("trb"+
  9322. (slc+8))
  9323. plot(0,1040,n)
  9324. dspB(
  9325. (av%(slc)),790,slc*2+3)
  9326.  slc<4 
  9327.  s=freight(slc)
  9328.  slc>3 
  9329.  slc<7 
  9330.  s=ship(slc-3)
  9331.  slc=7 
  9332.  s=freight(0)
  9333.  slc=8 s=trans%
  9334. dspB(
  9335. (s),1040,slc*2+3)
  9336. schoose("trb17")
  9337. plot(0,420,183)
  9338. schoose("trb18")
  9339. plot(0,800,183)
  9340. f_yel
  9341. dspB(
  9342. (tfree%),420,21)
  9343. dspB(
  9344. (credits),800,21)
  9345.  av%(slc)=0 
  9346. schoose("tr0")
  9347. schoose("tr"+
  9348. (slc))
  9349. plot(8,12,1023-((slc*2+4)*40-20))
  9350.  A,B,C:
  9351. buyinfo
  9352.  296,296:
  9353.  983,727:
  9354. sget("screen")
  9355. 6,112,1
  9356.  slc=1 i$=t$(251):s=freight(1)
  9357.  slc=2 i$=t$(252):s=freight(2)
  9358.  slc=3 i$=t$(253):s=freight(3)
  9359.  slc=4 i$=t$(255):s=ship(1)
  9360.  slc=5 i$=t$(256):s=ship(2)
  9361.  slc=6 i$=t$(257):s=ship(3)
  9362.  slc=7 i$=t$(254):s=0
  9363.  slc=8 i$=t$(248):s=0
  9364. 296,296,687,431
  9365. frame(300,300,979,723,42)
  9366. inframe(308,308,971,715,42)
  9367. schoose("trade"+
  9368. (slc)):
  9369. plot(0,700,480)
  9370. f_yel
  9371. dspB(i$,332,9)
  9372. f_wht
  9373. dspB("Available:",332,10):
  9374. (av%(slc)),550,10)
  9375. dspB("Freight:",332,11):
  9376. (s),550,11)
  9377. dspB("Cost:",332,13):
  9378. (pc%(slc)),550,13)
  9379. dspB("Buy price:",332,14):
  9380. (pb%(slc)),550,14)
  9381. f_yel
  9382. dspB(t$(373),332,16)
  9383.  SIt(sel,actual) 
  9384.  1:a$=t$(369)
  9385.  2:a$=t$(370)
  9386.  3:a$=t$(371)
  9387.  Ps%(1,5)=0 a$=t$(372)
  9388.  SIna(sel,actual)<SIc(sel,actual)*3+1 
  9389.  slc=2 a$="The planet needs food."
  9390.  IF invent%(SIi(sel,actual),14)=1 AND slc=3 THEN a$="This is needed no more."
  9391.  allied(1,SIi(sel,actual))=0 
  9392.  slc>=4 
  9393.  slc<=6 a$="Arms are not offered."
  9394. dspB(
  9395. (34)+a$+
  9396. (34),332,17)
  9397.  296,296:
  9398.  983,727:
  9399. sget("screen2")
  9400. 6,112,2
  9401. schoose("screen2")
  9402. plot(0,296,296)
  9403. f_wht
  9404. getMK
  9405. schoose("screen")
  9406. plot(0,296,296)
  9407.  A,B,C:
  9408. buysell(kind)
  9409.  num,check,mex
  9410.  mex=1
  9411.  slc=1 i$=t$(251):s=freight(1)
  9412.  slc=2 i$=t$(252):s=freight(2)
  9413.  slc=3 i$=t$(253):s=freight(3)
  9414.  slc=4 i$=t$(255):s=ship(1)
  9415.  slc=5 i$=t$(256):s=ship(2)
  9416.  slc=6 i$=t$(257):s=ship(3)
  9417.  slc=7 i$=t$(254):s=freight(0)
  9418.  slc=8 i$=t$(248):s=trans%
  9419.  296,296:
  9420.  983,727:
  9421. sget("screen")
  9422. 6,112,1
  9423. 296,296,687,431
  9424. frame(300,300,979,723,42)
  9425. inframe(308,308,971,715,42)
  9426. schoose("tradeback"):
  9427. plot(0,312,312)
  9428. schoose("trade"+
  9429. (slc)):
  9430. plot(0,744,472)
  9431.  kind=1 a$="Buy" 
  9432.  a$="Sell"
  9433. f_wht
  9434. sfp(a$,804,656)
  9435. sfp("Available:",332,636):
  9436. f_yel:
  9437. (av%(slc)),550,636)
  9438.  kind=1 a=pc%(slc) 
  9439.  a=pb%(slc)
  9440. f_wht:
  9441. dsp("Price:",332,11):
  9442. f_yel:
  9443. (a),550,11)
  9444. f_wht:
  9445. dsp("Freight:",332,14):
  9446. f_red:
  9447. (s),550,14)
  9448. f_wht
  9449. sfp(t$(361),332,404):
  9450. f_red:
  9451. (credits),550,404)
  9452.  296,296:
  9453.  983,727:
  9454. sget("screen2")
  9455. 6,112,2
  9456. schoose("screen2")
  9457. plot(0,296,296)
  9458. f_wht
  9459. #{     ok=0
  9460. 6,112,1
  9461. #~!  
  9462.  538,372,140,120
  9463.  538,572,140,100
  9464. f_yel
  9465. (av%(slc)),550,636)
  9466.  kind=1 a=pc%(slc) 
  9467.  a=pb%(slc)
  9468. (a),550,11)
  9469. f_red
  9470. (s),550,14)
  9471.  kind=1 b=credits-num*a 
  9472.  b=credits+num*a
  9473. (b),550,404)
  9474. f_wht
  9475. 538,372:
  9476. 723,672:
  9477. sget("screen2")
  9478. 6,112,2
  9479. schoose("screen2")
  9480. plot(0,538,372)
  9481.   row=0
  9482.  A,B,C,D
  9483.  old_C=0 
  9484.     delay=D
  9485. buysellact
  9486.  D-delay>50 
  9487.      
  9488. buysellact
  9489.      
  9490.  arm>=2.5 
  9491.         
  9492.   old_C=C
  9493.  kind=1 
  9494.   credits-=num*pc%(slc)
  9495.  slc=X 
  9496.  freight(X)+=num
  9497.  slc=X+3 
  9498.  ship(X)+=num
  9499.  slc=7 
  9500.  freight(0)+=num
  9501.  slc=8 
  9502.  trans%+=num:
  9503.  tfree%+=num
  9504.   credits+=num*pb%(slc)
  9505.  slc=X 
  9506.  freight(X)-=num
  9507.  slc=X+3 
  9508.  ship(X)-=num
  9509.  slc 
  9510.  7:freight(0)-=num
  9511.  8:trans%-=num:
  9512.  tfree%-=num
  9513.  1:trace%(13)+=num
  9514.  2:trace%(14)+=num
  9515.  3:trace%(7)+=num
  9516.      ok=0
  9517. schoose("screen")
  9518. plot(0,296,296)
  9519. f_wht
  9520. buysellact
  9521.  A>728 
  9522. A<964 
  9523. B>318 
  9524. B<370 ok=1
  9525.  B>373 
  9526.  B<421 
  9527.  A>729 
  9528. A<843 
  9529.  num>0 
  9530.  kind=1 
  9531. =    num-=1:av%(slc)+=1:s-=1:
  9532.  slc<8 tfree%+=1 
  9533.  tfree%-=1
  9534.  num>0 
  9535. >     num-=1:av%(slc)-=1:s+=1:
  9536.  slc<8 tfree%-=1 
  9537.  tfree%+=1
  9538.         
  9539.  A>849 
  9540. A<963 
  9541.  kind=1 
  9542.     check=0
  9543. $    
  9544.  (tfree%>0 
  9545.  slc=8) check=1
  9546. ,    
  9547.  (num+1)*pc%(slc)>credits 
  9548.  check=0
  9549.  av%(slc)=0 check=0
  9550.  check 
  9551. ?     num+=1 :av%(slc)-=1:s+=1:
  9552.  slc<8 tfree%-=1 
  9553.  tfree%+=1
  9554.         
  9555.  s>0 
  9556.      
  9557.  slc<>8 
  9558.  tfree%>0 
  9559. ?      num+=1:av%(slc)+=1:s-=1:
  9560.  slc<8 tfree%+=1 
  9561.  tfree%-=1
  9562.       
  9563.  slc 
  9564.        
  9565.  2:tga+=1
  9566.        
  9567.  4:taa+=1
  9568.        
  9569.  5:tab+=1
  9570.        
  9571.  6:tac+=1
  9572.       
  9573.      
  9574.         
  9575. cleararea
  9576. inframe(480,260,1200,588,42)
  9577. inframe(480,604,1200,676,42)
  9578. p_shift(sdir)
  9579.  ga,gb
  9580.  za*56,za*56:
  9581. zb*56+56,zb*56+56:
  9582. sget("zone")
  9583.  sdir=0 
  9584.  za*56,za*56:
  9585. za*56+52,zb*56+56:
  9586. sget("zhelp")
  9587.  zb*56,za*56:
  9588. zb*56+52,zb*56+56:
  9589. sget("zhelp")
  9590. 6,112,1
  9591. schoose("zone")
  9592.  sdir=0 
  9593. plot(0,za*56,za*56) 
  9594. plot(0,za*56+56,za*56)
  9595. schoose("zhelp")
  9596.  sdir=0 
  9597. plot(0,zb*56+56,za*56) 
  9598. plot(0,za*56,za*56)
  9599.  za*56,za*56:
  9600.  (zb+1)*56+56,zb*56+56: 
  9601. sget("zone")
  9602. 6,112,2
  9603.  24,za*56;za*56;zb*56+52;zb*56+52;
  9604. schoose("zone")
  9605.  n=1 
  9606.  sdir=0 
  9607. plot(0,za*56-n*4,za*56)
  9608.  sdir=1 
  9609. plot(0,za*56-56+n*4,za*56)
  9610.  arm>2.5 
  9611. wait(3) 
  9612. wait(1)
  9613. sdelete("zhelp")
  9614. sdelete("zone")
  9615.  sdir=0 
  9616.  gx=za 
  9617.  gy=za 
  9618. )    
  9619.  gx=za 
  9620.  shift%(gy)=surf%(za,gy)
  9621. -    
  9622.  gx<zb 
  9623.  surf%(gx,gy)=surf%(gx+1,gy)
  9624. )    
  9625.  gx=zb 
  9626.  surf%(zb,gy)=shift%(gy)
  9627.  gx=zb 
  9628.  gy=za 
  9629. )    
  9630.  gx=zb 
  9631.  shift%(gy)=surf%(zb,gy)
  9632. -    
  9633.  gx>za 
  9634.  surf%(gx,gy)=surf%(gx-1,gy)
  9635. )    
  9636.  gx=za 
  9637.  surf%(za,gy)=shift%(gy)
  9638.  I$=""
  9639. spcodeblank
  9640.  buildmain% 200
  9641.  pass%=0 
  9642.  P%=buildmain%
  9643.  [OPT pass%
  9644. ( MOV   R7,R0          ; Loopx-Anfang
  9645. ( MOV   R8,R0          ; Loopy-Anfang
  9646. - MOV   R9,R0          ;Loop-Anfang (Save)
  9647. - MOV   R10,R1         ;Loop-Ende   (Save)
  9648. ( ADD   R9,R9,#1       ;Ende 1 hoeher
  9649. ( ADD   R10,R10,#1     ;Ende 1 hoeher
  9650. , MOV   R1,R2          ; in R1 jetzt Smem
  9651. $!: MOV   R5,#0          ; in R5 jetzt Plotten ohne Maske
  9652.  MOV   R0,#255        ;
  9653. $#8 ADD   R0,R0,#35      ; in R0 jetzt Sprite-Operation
  9654.  .schleifey
  9655.   MOV   R7,R9
  9656.   SUB   R7,R7,#1
  9657.   .schleifex
  9658.    MOV   R6,#56
  9659.    MUL   R3,R7,R6
  9660.    MUL   R4,R8,R6
  9661. $,D   ADR   R2,sname%      ; in R2 jetzt Speicheradr von Spritename
  9662. $-2   ADD   R2,R2,#5       ; ->6. Char. in Sprite
  9663. $.=   ADD   R12,R7,#47     ; R12=Char, der in 6. Stelle soll
  9664. $/C   STRB  R12,[R2]       ; Char an 6.Stelle des Namens schreiben
  9665. $0=   ADD   R12,R8,#47     ; R12=Char, der in 7. Stelle soll
  9666. $1C   STRB  R12,[R2,#1]    ; Char an 7.Stelle des Namens schreiben
  9667. $34   ADR   R2,sname%      ; in R2 jetzt Spritename
  9668.    SWI   &2E  ; aufrufen
  9669.    ADD   R7,R7,#1
  9670.    CMP   R7,R10
  9671.   BNE   schleifex
  9672.   ADD   R8,R8,#1
  9673.   CMP   R8,R10
  9674.  BNE   schleifey
  9675. $<  MOV   PC,R14         ; Ende
  9676.  .spriteid
  9677.  EQUS"stone0      "
  9678.  ALIGN
  9679.  pass%
  9680. spcode
  9681.  buildup% 200
  9682.  sname% 16
  9683.  pass%=0 
  9684.  P%=buildup%
  9685.  [OPT pass%
  9686. $V0 MOV   R11,R3           ; Nummer des Steines
  9687. $X7 MOV   R7,R0            ; Loopx-Anfang(R7=Counterx)
  9688. $Y7 MOV   R8,R0            ; Loopy-Anfang(R8=Countery)
  9689. $[0 MOV   R9,R0            ; Loop-Anfang (Save)
  9690. $\0 MOV   R10,R1           ; Loop-Ende   (Save)
  9691. $^+ ADD   R9,R9,#1         ; Anf. 1 hoeher
  9692. $_+ ADD   R10,R10,#1       ; Ende 1 hoeher
  9693. $a. MOV   R1,R2            ; in R1 jetzt Smem
  9694. $c4 ADR   R2,sname%        ; in R2 jetzt Spritename
  9695. $e; MOV   R5,#8            ; in R5 jetzt Plotten mit Maske
  9696.  MOV   R0,#255          ;
  9697. $h: ADD   R0,R0,#35        ; in R0 jetzt Sprite-Operation
  9698.  .schleifey
  9699.   MOV   R7,R9
  9700.   SUB   R7,R7,#1
  9701.   .schleifex
  9702.    MOV   R6,#16
  9703.    SUB   R7,R7,#1
  9704.    MUL   R12,R7,R6
  9705.    ADD   R7,R7,#1
  9706.    SUB   R8,R8,#1
  9707. $}*   ADD   R12,R12,R8     ; R12=16*R7+R8
  9708.    ADD   R8,R8,#1
  9709. +   ADR   R6,plansurf    ;old=planfield%
  9710. )   LDR   R6,[R6]        ;old=wegdamit
  9711. C   LDRB  R6,[R6,R12]    ; In R6 jetzt Zahl bei planfield+Offset
  9712. @   CMP   R6,R11         ; ist hier das entsprechende Objekt?
  9713. >   BNE   nachswi        ; Wenn nein, Plotten ueberspringen
  9714.    MOV   R6,#56
  9715.    MUL   R3,R7,R6
  9716.    MUL   R4,R8,R6
  9717.    SWI   &2E  ; aufrufen
  9718.    .nachswi
  9719.    ADD   R7,R7,#1
  9720.    CMP   R7,R10
  9721.   BNE   schleifex
  9722.   ADD   R8,R8,#1
  9723.   CMP   R8,R10
  9724.  BNE   schleifey
  9725. " MOV   PC,R14           ; Ende
  9726.  .spriteid
  9727.  EQUS"stone0      "
  9728.  ALIGN
  9729.  .plansurf
  9730.  EQUD planfield%
  9731.  ALIGN
  9732.  pass%
  9733. entercode
  9734.  LOCAL new$
  9735.  donecode=1 
  9736. fillarray("it1",27)
  9737. 6,112,2
  9738. picture("ts1")
  9739. sload("intro.ph1")
  9740. 0,60:
  9741. 1279,1023:
  9742. sget("back")
  9743.  a=0:b=0:c=0:R=0:T=0
  9744. readcodes
  9745. mouse_on
  9746.      ok=0
  9747.  donecode=1
  9748.  X=1 
  9749. 6,113,2
  9750. 6,112,1
  9751. schoose("back")
  9752. plot(0,0,60)
  9753. 6,113,1
  9754. (  a$=ar$(19)+" "+
  9755. (R)+" / "+
  9756. (T)+"."
  9757. codefadein(a$)
  9758.   input=0
  9759. 6,21,0
  9760. 6,21,9
  9761.  new$=""
  9762.  A,B,C
  9763.    I$=
  9764.  REPEAT I$=INKEY$(0):UNTIL I$<>new$
  9765.  I$>="1" 
  9766.  I$<="9" 
  9767. pushkey(
  9768. (I$))
  9769.  new$=I$
  9770. mus_quit
  9771. 262274,bfnt%
  9772. 262274,sfnt%
  9773. 262274,mfnt%
  9774. 6,229,0
  9775. "Alphabet Latin1"
  9776. 262383,-1
  9777. 9    
  9778.  A>=427 
  9779.  B>=671 
  9780.  A<=571 
  9781.  B<=785 
  9782. pushkey(1)
  9783. 9    
  9784.  A>=592 
  9785.  B>=662 
  9786.  A<=736 
  9787.  B<=767 
  9788. pushkey(2)
  9789. 9    
  9790.  A>=772 
  9791.  B>=647 
  9792.  A<=916 
  9793.  B<=761 
  9794. pushkey(3)
  9795. 9    
  9796.  A>=385 
  9797.  B>=506 
  9798.  A<=535 
  9799.  B<=629 
  9800. pushkey(4)
  9801. 9    
  9802.  A>=562 
  9803.  B>=482 
  9804.  A<=718 
  9805.  B<=608 
  9806. pushkey(5)
  9807. 9    
  9808.  A>=742 
  9809.  B>=464 
  9810.  A<=904 
  9811.  B<=593 
  9812. pushkey(6)
  9813. 9    
  9814.  A>=343 
  9815.  B>=317 
  9816.  A<=505 
  9817.  B<=449 
  9818. pushkey(7)
  9819. 9    
  9820.  A>=526 
  9821.  B>=293 
  9822.  A<=688 
  9823.  B<=425 
  9824. pushkey(8)
  9825. 9    
  9826.  A>=721 
  9827.  B>=269 
  9828.  A<=886 
  9829.  B<=404 
  9830. pushkey(9)
  9831.  input=3
  9832. codefadeout(a$)
  9833.  var(1)=a 
  9834.  var(2)=b 
  9835.  var(3)=c 
  9836.  ok=1:X=3 
  9837.  X=3:ok=1
  9838.  ok=0 
  9839. codefadein(ar$(20))
  9840. wait(50)
  9841. codefadeout(ar$(20))
  9842. codefadein(ar$(21))
  9843. wait(50)
  9844. codefadeout(ar$(21))
  9845. f_wht
  9846. 6,21,0
  9847. 6,21,9
  9848.  ok=0 
  9849. codequit
  9850. fade(1,0,15)
  9851. codequit
  9852. 6,112,2
  9853. picture("go1")
  9854. 1279,1023:
  9855. sget("back")
  9856. pixelswap
  9857. 6,112,1
  9858. codefadein(t$(374))
  9859. wait(400)
  9860. codefadeout(t$(374))
  9861. codefadein(t$(375))
  9862. wait(400)
  9863. codefadeout(t$(375))
  9864. wait(100)
  9865. mus_quit
  9866. fade(1,0,15)
  9867. "Alphabet Latin1"
  9868. 262383,-1
  9869. codefadein(f$)
  9870.  r=1 
  9871.   CASE r OF
  9872.    WHEN 1:SYS 262291,,0,1,6,&00000000,&40404000
  9873.    WHEN 2:SYS 262291,,0,1,6,&00000000,&90909000
  9874.    WHEN 3:SYS 262291,,0,1,6,&00000000,&c0c0c000
  9875.    WHEN 4:SYS 262291,,0,1,6,&00000000,&fdfdfd00
  9876.   ENDCASE
  9877.  1:font_col=&40404000
  9878.  2:font_col=&90909000
  9879.  3:font_col=&c0c0c000
  9880.  4:font_col=&fdfdfd00
  9881. dspc(f$,25)
  9882. codefadeout(f$)
  9883.  r=1 
  9884.  1:font_col=&c0c0c000
  9885.  2:font_col=&90909000
  9886.  3:font_col=&40404000
  9887. %/%   
  9888.  0,0,1279,56
  9889.  r<4 
  9890. dspc(f$,25)
  9891. pushkey(key)
  9892.  key 
  9893.  1:pa=376:pb=650
  9894.  2:pa=571:pb=626
  9895.  3:pa=748:pb=605
  9896.  4:pa=352:pb=479
  9897.  5:pa=547:pb=455
  9898.  6:pa=733:pb=431
  9899.  7:pa=301:pb=281
  9900.  8:pa=508:pb=251
  9901.  9:pa=709:pb=218
  9902. schoose("push_"+
  9903. (key))
  9904. plot(0,pa,pb)
  9905. wait(20)
  9906. schoose("back")
  9907. plot(0,0,60)
  9908.  input+=1:var(input)=key
  9909.  A,B,C:
  9910.  A=0:B=0
  9911. showplanet(mode)
  9912.  mode=1 bebauen
  9913.  mode=2 ansehen
  9914.  mode=3 bomben
  9915.  mode>1 sel=X:actual=Y
  9916.  thru,tool,produce,pluton,anm,dd,tt,za,zb,X,Y,pcost,begin,oldtool,tcenter,sf,canim,ct,anywat,base,isthereaport,click_hold,click_hold_timer
  9917. %V' begin=1:canima=1:canimb=9:anyway=0
  9918.  mode=3 
  9919. %Y$  
  9920.  0,0:
  9921.  1279,1023:
  9922. sget("bsc")
  9923. 6,112,1
  9924. schoose("bsc")
  9925. plot(0,0,0)
  9926. sdelete("bsc")
  9927. 6,113,1
  9928.  mode=1 sel=selectedsys
  9929. gload("su1")
  9930. gmerge("sf"+
  9931. (plan(sel,actual)))
  9932. gmerge("pt1")
  9933. 6,113,1
  9934. 6,112,2
  9935. picture("pl"+
  9936. (plan(sel,actual)))
  9937.  a=plan(sel,actual)
  9938.  produce=0:pluton=0
  9939.  SIna(sel,actual)=50 - TEST!
  9940.  SIc(sel,actual)=14  - TEST!
  9941. decode(sel,actual)
  9942.  a=6 
  9943.  X=1 
  9944.  Y=1 
  9945.    sf=surf%(X,Y)
  9946.  sf=8 
  9947.  sf=24 
  9948.  sf=25 
  9949. %v#    R=
  9950.  R=1 
  9951.  surf%(X,Y)=8
  9952.  R=2 
  9953.  surf%(X,Y)=24
  9954.  R=3 
  9955.  surf%(X,Y)=25
  9956.  a<>6 
  9957.  X=1 
  9958.  Y=1 
  9959. %~3   sf=surf%(X,Y):
  9960.  sf=24 
  9961.  sf=25 
  9962.  surf%(X,Y)=8
  9963.  X=0 
  9964.  Y=0 
  9965. (  planfield%?(X*16+Y)=surf%(X+1,Y+1)
  9966.  a=3 
  9967.  a=5 
  9968.  a>6 
  9969. gmerge("su2")
  9970. =0:pp=0
  9971. (SId(sel,actual)/1000)
  9972.  za=2:zb=15
  9973.  s<10 za=3:zb=14
  9974.  s>12 za=1:zb=16
  9975.  za*56-4,za*56-4,(zb-za)*56+60,(zb-za)*56+60
  9976.  sname%?0=
  9977. ("s"):sname%?1=
  9978. ("p"):sname%?2=
  9979. ("a"):sname%?3=
  9980. ("r"):sname%?4=
  9981. ("t"):sname%?5=
  9982. ("0"):sname%?6=0:sname%?7=0:sname%?8=0:sname%?9=0:sname%?10=0:sname%?11=0:sname%?12=0
  9983. % A%=za:B%=zb:C%=Smem:
  9984.  buildmain%
  9985.  sname%?0=
  9986. ("s"):sname%?1=
  9987. ("t"):sname%?2=
  9988. ("o"):sname%?3=
  9989. ("n"):sname%?4=
  9990. ("e"):sname%?5=0:sname%?6=0:sname%?7=0:sname%?8=0:sname%?9=0:sname%?10=0:sname%?11=0:sname%?12=0
  9991.  Z=1 
  9992. 7  A%=za:B%=zb:C%=Smem:D%=Z:sname%?5=48+Z:
  9993.  buildup%
  9994.  Z=10 
  9995. F  A%=za:B%=zb:C%=Smem:D%=Z:sname%?5=49:sname%?6=48+Z-10:
  9996.  buildup%
  9997. A A%=za:B%=zb:C%=Smem:D%=29:sname%?5=50:sname%?6=57:
  9998.  buildup%
  9999. A A%=za:B%=zb:C%=Smem:D%=20:sname%?5=50:sname%?6=48:
  10000.  buildup%
  10001. A A%=za:B%=zb:C%=Smem:D%=22:sname%?5=50:sname%?6=50:
  10002.  buildup%
  10003. A A%=za:B%=zb:C%=Smem:D%=23:sname%?5=50:sname%?6=51:
  10004.  buildup%
  10005. A A%=za:B%=zb:C%=Smem:D%=24:sname%?5=50:sname%?6=52:
  10006.  buildup%
  10007. A A%=za:B%=zb:C%=Smem:D%=25:sname%?5=50:sname%?6=53:
  10008.  buildup%
  10009. O a$=SIn$(sel,actual):
  10010.  a$="" 
  10011.  a$="Unexplored planet" 
  10012.  a$="The planet "+a$
  10013. sfpB(a$,60,972)
  10014.  mode>1 
  10015. dspB("Class:",1000,3)
  10016. ws(plan(sel,actual))
  10017. dspB(A$,1000,4)
  10018. dspB("Population",1000,7)
  10019. dspB(
  10020. (SIpo%(sel,actual))+" m.",1000,8)
  10021. 6,113,2
  10022. srfmus
  10023.  mode=2 
  10024. srfdel
  10025.  mode<3 
  10026. getMK
  10027. . pcost=0:sp_first=0:sp_second=0:sp_third=0
  10028.  X=za 
  10029.  Y=za 
  10030.  surf%(X,Y) 
  10031.  1: base+=1
  10032.  4: pluton+=1
  10033.  3: produce+=1
  10034.  17:tcenter+=1
  10035.  14:sp_first=1
  10036.  15:sp_second=1
  10037.  16:sp_third=1
  10038.  sp_first+sp_second+sp_third=3 
  10039.  isthereaport=1 
  10040.  isthereaport=0
  10041.  surf%(X,Y)>10 
  10042.  surf%(X,Y)<14 produce+=1:pcost+=surf%(X,Y)-10
  10043. frame(980,496,1230,556,42)
  10044. frame(980,56,1230,492,42)
  10045. inframe(988,500,1222,552,42)
  10046. schoose("tri")
  10047. plot(0,988,176)
  10048. schoose("people")
  10049. plot(0,988,120)
  10050. schoose("export")
  10051. plot(0,988,66)
  10052. schoose("ctrl"+
  10053. (X+1))
  10054. plot(0,998+X*80,508)
  10055.  SIna(sel,actual)<SIc(sel,actual)*3+1 b$="cta" 
  10056.  b$="ctb"
  10057. schoose(b$)
  10058. plot(0,1040,508)
  10059.  plan(sel,actual)=3 
  10060.  pluton*2>=produce b$="ctb" 
  10061.  b$="cta"
  10062.  pluton>=produce b$="ctb" 
  10063.  b$="cta"
  10064.  IF invent%(1,14)=1 THEN b$="ctb"
  10065. schoose(b$)
  10066. plot(0,1120,508)
  10067.  s=SIr(sel,actual)
  10068.  s<4 b$="ctb"
  10069.  s>=4 
  10070.  s<8 b$="ctc"
  10071.  s>=8 b$="cta"
  10072. schoose(b$)
  10073. plot(0,1200,508)
  10074. schoose("spart00")
  10075.  X=1 
  10076.  Y=0 
  10077. plot(0,920+X*80,878-Y*76)
  10078. schoose("menu")
  10079. plot(8,982,563)
  10080. schoose("stone2")
  10081. plot(8,1080,879)
  10082.  SIb(sel,actual) 
  10083. schoose("stonexx")
  10084. plot(8,1080,574)
  10085.      ok=0
  10086.  tool=2
  10087.  oldtool=2
  10088. 1076,874,60,60
  10089. mouse_on
  10090. 6,21,9
  10091.  begin=0 
  10092. 6,112,1
  10093. inframe(984,352,1226,488,42)
  10094. inframe(984,292,1226,348,42)
  10095. inframe(984,232,1226,288,42)
  10096. sfpB("MC: "+
  10097. (credits),996,309)
  10098.  SIam(sel,actual)<pcost 
  10099. f_red
  10100. sfpB("Ar: "+
  10101. (SIam(sel,actual))+"/"+
  10102. (SIs(sel,actual)+SIc(sel,actual)*2),996,249)
  10103. f_yel
  10104. sfpB("Cost: "+
  10105. (price(tool)),996,365)
  10106.   b$=""
  10107.  tool 
  10108.   1:a$="Command":b$="base"
  10109.   2:a$="Cultivate"
  10110.   3:a$="Mining":b$=""
  10111.   4:a$="Plutonium":b$="production"
  10112.   5:a$="City"
  10113.   6:a$="Clear":b$="ground"
  10114.   7:a$="Infantry":b$="production"
  10115.   8:a$="Glider":b$="production"
  10116.   9:a$="Artillery":b$="production"
  10117.  10:a$="Spaceport,":b$="Control"
  10118.  11:a$="Spaceport,":b$="Landing"
  10119.  12:a$="Power":b$="plant"
  10120.  13:a$="Trading":b$="centre"
  10121.  14:a$="Lunar":b$="battle base"
  10122.  15:a$="Park"
  10123. sfpB(a$,996,453)
  10124. sfpB(b$,996,413)
  10125. f_wht
  10126.  begin=0 
  10127. front(984,232,1226,488,2) 
  10128.  begin=0:
  10129. 6,113,2:
  10130. srfmus
  10131.  click_hold=0 
  10132.  A,B,C,D: 
  10133. 6,4,1
  10134.  A,B,C,D
  10135.    I$=
  10136. &)#   
  10137.  I$="j" 
  10138.  I$="J" 
  10139.  anyway=1
  10140. (136) 
  10141. p_shift(1)
  10142. (137) 
  10143. p_shift(0)
  10144. f_wht
  10145. >150 
  10146.  anm=0 
  10147.      anm=1
  10148.      
  10149. schoose("stone29b")
  10150. &2        
  10151.      anm=0
  10152.      
  10153. schoose("stone29")
  10154. &5        
  10155.  X=za 
  10156.  Y=za 
  10157. &7-     
  10158.  surf%(X,Y)=29 
  10159. plot(8,X*56,Y*56)
  10160.  D-dd>80 
  10161.     dd=D
  10162. &<C    
  10163.  tt=0 
  10164. schoose("stone4b"):tt=1 
  10165. schoose("stone4"):tt=0
  10166.  X=za 
  10167.  Y=za 
  10168. &>*     
  10169.  surf%(X,Y)=4 
  10170. plot(8,X*56,Y*56)
  10171. &@;    
  10172.  tt=0 
  10173. schoose("stone16") 
  10174. schoose("stone16b")
  10175.  X=za 
  10176.  Y=za 
  10177. &B+     
  10178.  surf%(X,Y)=16 
  10179. plot(8,X*56,Y*56)
  10180. &E)   
  10181.  D-ct>15 
  10182.  (arm>2.5 
  10183.  anyway=1) 
  10184.     ct=D
  10185. &G&    canima+=1:
  10186.  canima>18 canima=1
  10187. &H&    canimb+=1:
  10188.  canimb>18 canimb=1
  10189. &I%    
  10190. schoose("stone5a"+
  10191. (canima))
  10192.  X=za 
  10193. &K'     
  10194.  X/2=
  10195. (X/2) 
  10196.  ra=za 
  10197.  ra=za+1
  10198.      
  10199.  Y=ra 
  10200. &M*     
  10201.  surf%(X,Y)=5 
  10202. plot(8,X*56,Y*56)
  10203. &O%    
  10204. schoose("stone5a"+
  10205. (canimb))
  10206.  X=za 
  10207. &Q'     
  10208.  X/2=
  10209. (X/2) 
  10210.  ra=za+1 
  10211.  ra=za
  10212.      
  10213.  Y=ra 
  10214. &S*     
  10215.  surf%(X,Y)=5 
  10216. plot(8,X*56,Y*56)
  10217.  C=0 
  10218.  click_hold=0
  10219.  C<>0
  10220. 6,4,1
  10221. &Z4  
  10222.  tool<>14 
  10223. schoose("people"):
  10224. plot(0,988,120)
  10225.   oldtool=tool
  10226.     t=tool
  10227. &`r    
  10228.  A>920+X*80 
  10229.  B>878-Y*76 
  10230.  A<920+X*80+60 
  10231.  B< 878-Y*76+60 
  10232.  tool=X+Y*3:
  10233. 916+X*80,874-Y*76,60,60
  10234. &aN    
  10235.  plan(sel,actual)>7 
  10236.  tool=3 
  10237.  tool=t:
  10238. 916+X*80,874-Y*76,60,60
  10239. &c      
  10240.  oldtool<>tool 
  10241. &h9    
  10242.  oldtool=X+Y*3 
  10243. 916+X*80,874-Y*76,60,60
  10244. &l4  
  10245.  tool=14 
  10246.  credits>=120 
  10247.  SIb(sel,actual)=0 
  10248. schoose("build")
  10249. plot(0,988,120)
  10250. &q,  
  10251.  A>=1151 
  10252.  A<=1220 
  10253.  B>=177 
  10254. B<=225 
  10255. &r#   
  10256. button(1151,177,1220,225,1)
  10257. givehelp
  10258.  B>=506 
  10259.  B<=548 
  10260. &w(   
  10261.  A>=944 
  10262.  A<=1057 
  10263. status_food
  10264. &x.   
  10265.  A>=1072 
  10266.  A<=1138 
  10267. status_plutonium
  10268. &y+   
  10269.  A>=1153 
  10270.  A<=1219 
  10271. status_people
  10272. &|;  
  10273.  click_hold=0 
  10274.  A>=989 
  10275.  A<=1139 
  10276.  B>=177 
  10277.  B<=225 
  10278.    click_hold=1
  10279.    click_hold_timer=D
  10280. showplanet_armybuttons
  10281.  click_hold=1 
  10282.  D>click_hold_timer+50 
  10283. showplanet_armybuttons    
  10284.  A>=989 
  10285.  A<=1223 
  10286.  B>=120 
  10287.  B<=168 
  10288. button(989,120,1223,168,1)
  10289.  tool=14 
  10290.  credits>=120 
  10291.  SIb(sel,actual)=0 
  10292. #    
  10293. button(989,121,1220,169,1)
  10294. schoose("stonexx")
  10295. &    
  10296. plot(8,1000+(tool-13)*80,574)
  10297. &    credits-=120:SIb(sel,actual)=1
  10298. +    
  10299. schoose("people"):
  10300. plot(0,988,120)
  10301. planetlaw
  10302.  A>988 
  10303. A<1224 
  10304. B<118 
  10305. button(991,66,1222,114,1):ok=1
  10306.  A>za*56 
  10307. B>za*56 
  10308.  A<(zb+1)*56 
  10309.  B<(zb+1)*56 
  10310.  price(tool)<=credits 
  10311.  tool<>14
  10312.  surf%(
  10313. (A/56),
  10314. (B/56))=0 
  10315.  surf%(
  10316. (A/56),
  10317. (B/56))=9 
  10318.  tool=6 
  10319.     XX=
  10320. (A/56):YY=
  10321. (B/56)
  10322.  tool<>6 
  10323.      
  10324.  tool<6  t=tool
  10325.      
  10326.  tool>6  t=tool+4
  10327.      
  10328.  tool=15 t=23
  10329. 0     
  10330.  t<>19 surf%(XX,YY)=t 
  10331.  surf%(XX,YY)=9
  10332. ,     
  10333. schoose("spart"+
  10334. (47+XX)+
  10335. (47+YY))
  10336.      
  10337. plot(0,XX*56,YY*56)
  10338.      
  10339.       
  10340.  1:n=3
  10341.       
  10342.  2:n=0
  10343.       
  10344.  3:n=2
  10345.       
  10346.  4:n=3
  10347.       
  10348.  5:n=5
  10349.       
  10350. 11:n=3
  10351.       
  10352. 12:n=3
  10353.       
  10354. 13:n=3
  10355.       
  10356. 14:n=2
  10357.       
  10358. 15:n=2
  10359.       
  10360. 16:n=1
  10361.       
  10362. 17:n=1
  10363.       
  10364. 23:n=3
  10365.      
  10366.      
  10367.  a=0 
  10368. )      
  10369. schoose("stone"+
  10370. (t)+"-"+
  10371.       
  10372. plot(8,XX*56,YY*56)
  10373.       
  10374. wait(10)
  10375.      
  10376.      
  10377. schoose("stone"+
  10378.      
  10379. plot(8,XX*56,YY*56)
  10380.      credits-=price(tool)
  10381.      
  10382.  tool=5 
  10383. *      SIc(sel,actual)+=1:trace%(12)+=1
  10384. C      
  10385.  (firstcity%(1) 
  10386.  1)=0 
  10387.  firstcity%(1)=firstcity%(1) 
  10388.      
  10389. '     
  10390.  tool=2 
  10391.  SIna(sel,actual)+=1
  10392.      
  10393.  tool=1 
  10394.  base+=1
  10395.         
  10396. .     
  10397.  surf%(XX,YY)<>6 
  10398.  surf%(XX,YY)<>0 
  10399.       suf=surf%(XX,YY)
  10400. F      
  10401.  suf=5 
  10402.  SIc(sel,actual)-=1:SIr(sel,actual)+=3:trace%(5)+=1
  10403. 3      
  10404.  suf=22
  10405.  SIr(sel,actual)+=2:trace%(6)+=1
  10406. '      
  10407.  suf=2 
  10408.  SIna(sel,actual)-=1
  10409. ?      
  10410.  suf>=11 
  10411.  suf<=13 produce-=1:pcost-=surf%(XX,YY)-10
  10412.       
  10413.  suf=3 
  10414.  produce-=1
  10415.       
  10416.  suf=4 pluton-=1
  10417.       surf%(XX,YY)=0
  10418. -      
  10419. schoose("spart"+
  10420. (47+XX)+
  10421. (47+YY))
  10422.       
  10423. plot(0,XX*56,YY*56)
  10424.       credits-=5
  10425.      
  10426.         
  10427.  tool=4 pluton+=1
  10428. .    
  10429. (tool>=7 
  10430. tool<=9) 
  10431. tool=3 produce+=1
  10432. (    
  10433.  tool>=7 
  10434. tool<=9 pcost+=tool-6
  10435. re_am
  10436.  SIna(sel,actual)<SIc(sel,actual)*3+1 b$="cta" 
  10437.  b$="ctb"
  10438. schoose(b$)
  10439. plot(0,1040,508)
  10440.  plan(sel,actual)=3 
  10441.  pluton*2>=produce b$="ctb" 
  10442.  b$="cta"
  10443.  pluton>=produce b$="ctb" 
  10444.  b$="cta"
  10445.  IF invent%(1,14)=1 THEN b$="ctb"
  10446. schoose(b$)
  10447. plot(0,1120,508)
  10448.  isthereaport=0 
  10449. '  sp_first=0:sp_second=0:sp_third=0
  10450.  X=za 
  10451.  Y=za 
  10452.  surf%(X,Y) 
  10453.  14:sp_first=1
  10454.  15:sp_second=1
  10455.  16:sp_third=1
  10456.  sp_first+sp_second+sp_third=3 
  10457.  isthereaport=0 
  10458. A    
  10459.  (firstcity%(1) 
  10460.  4)=0 
  10461.  firstcity%(1)=firstcity%(1) 
  10462.  PROCsrfdel
  10463. gload("ts2"):
  10464. smerge("graphic2.pa"+
  10465. (plan(selectedsys,actual)))
  10466.  l=SIl%(sel,actual) 
  10467.  lok=0
  10468.  8+64+128      :lok=1
  10469.  8+16+64+128   :lok=1
  10470.  8+64+128+32   :lok=0
  10471.  8+16+64+128+32:lok=0
  10472.  128           :lok=1
  10473.  128+16        :lok=1
  10474.  128+32        :lok=1
  10475.  128+16+32     :lok=1
  10476.  32            :lok=1
  10477.  32+16         :lok=1
  10478.  8)>0 
  10479.  64)=0 
  10480.  lok=0
  10481.  8)=0 
  10482.  64)>0 
  10483.  lok=0
  10484.  256 
  10485.  lok=0
  10486.  lookagain=0
  10487.  lok=0 
  10488. (3)=1 
  10489. counselor(15)
  10490.  accepted 
  10491.  lookagain=1
  10492.  base=0 
  10493.  (base=1 
  10494.  SIna(sel,actual)=0 
  10495.  SIc(sel,actual)=0) 
  10496. counselor(17)
  10497.  accepted 
  10498.  lookagain=1
  10499.  claimed=0
  10500. code(sel,actual)
  10501. showplanet_armybuttons
  10502.  A>=989 
  10503.  A<=1058 
  10504.  B>=177 
  10505.  B<=225 
  10506.  SIam(sel,actual)>0 
  10507.     SIam(sel,actual)-=1
  10508. re_am
  10509.  PROCbutton(989,177,1058,225,1)
  10510.  A>=1070 
  10511.  A<=1139 
  10512.  B>=177 
  10513.  B<=225 
  10514.  SIam(sel,actual)<SIs(sel,actual)+SIc(sel,actual)*2 
  10515.     SIam(sel,actual)+=1
  10516. re_am
  10517.  PROCbutton(1070,177,1139,225,1)
  10518. srfmus
  10519.  mode 
  10520.    s=SIr(sel,actual)
  10521.  s<4 
  10522. mpart(13)
  10523.  s>=4 
  10524.  s<8 
  10525. mpart(20)
  10526.  s>=8 
  10527. mpart(21)
  10528. mpart(4)
  10529. mpart(8)
  10530. re_am
  10531. 6,112,1
  10532. inframe(984,232,1226,288,42)
  10533. f_wht
  10534.  SIam(sel,actual)<pcost 
  10535. f_red
  10536. sfpB("Ar: "+
  10537. (SIam(sel,actual))+"/"+
  10538. (SIs(sel,actual)+SIc(sel,actual)*2),996,249)
  10539. f_wht
  10540. front(984,232,1226,288,2)
  10541. givehelp
  10542.  188,220:
  10543. 1083,856:
  10544. sget("sback")
  10545. 6,112,1
  10546. picture("ws"+
  10547. (plan(sel,actual)))
  10548. fillarray("ti"+
  10549. (tool),10)
  10550. f_yel
  10551. cdsB(ar$(1),210,7)
  10552. f_wht
  10553. cdsB(ar$(X),230,7+X)
  10554.  200,232:
  10555.  1071,844:
  10556. sget("sfront")
  10557. 6,112,2
  10558. frame(188,220,1083,856,42)
  10559. inframe(196,228,1075,848,42)
  10560. schoose("sfront")
  10561. plot(0,200,232)
  10562. sdelete("sfront")
  10563. getMK
  10564. schoose("sback")
  10565. plot(0,188,220)
  10566. sdelete("sback")
  10567.  A,B,C:
  10568.  A=0:B=0
  10569. status_food
  10570. status_frame
  10571. f_yel
  10572. cdsB(t$(376),210,7)
  10573. f_wht
  10574. cdsB(t$(377),230,10)
  10575. cdsB(t$(378),230,14)
  10576. cdsB(t$(379),230,12)
  10577. f_yel
  10578.  n=SIna(sel,actual)
  10579.  g=SIg%(sel,actual,2)
  10580.  c=SIc(sel,actual)*3+1
  10581. cdsB(
  10582. (n),700,10)
  10583. cdsB(
  10584. (g),700,14)
  10585. cdsB(
  10586. (c),700,12)
  10587. status_counselor
  10588. status_frametwo
  10589. status_plutonium
  10590.  n,g,c,h$,k$
  10591. status_frame
  10592. f_yel
  10593. cdsB(t$(380),210,7)
  10594. f_wht
  10595. cdsB(t$(381),230,10)
  10596. cdsB(t$(378),230,14)
  10597. cdsB(t$(382),230,12)
  10598. f_yel
  10599.  n=pluton
  10600.  plan(sel,actual)=3 
  10601.  n=n*2
  10602.  g=SIg%(sel,actual,3)
  10603.  c=produce
  10604.  IF invent%(1,14)=1 THEN c=0
  10605. cdsB(
  10606. (n),720,10)
  10607. cdsB(
  10608. (g),720,14)
  10609. cdsB(
  10610. (c),720,12)
  10611. status_counselor
  10612. status_frametwo
  10613. status_counselor
  10614.  h$=t$(383)
  10615.  c>n 
  10616. '~#  k$="s are":
  10617.  c-n=1 
  10618.  k$=" is"
  10619. '  h$=
  10620. (c-n)+" more unit"+k$+t$(384)
  10621.  n>c 
  10622.   k$="s":
  10623.  n-c=1 
  10624.  k$=""
  10625. &  h$=t$(385)+
  10626. (n-c)+" unit"+k$+"."
  10627. cdsB(t$(386),210,17)
  10628. cdsB(
  10629. (34)+h$+
  10630. (34),210,18)
  10631. f_wht
  10632. status_people
  10633.  v,p$,n,tb,k,pro%,pg
  10634.  tb=SItb%(sel,actual)
  10635.  VDU30
  10636.  n=1 
  10637.   k=tb 
  10638.  15<<(n-1)*4
  10639.   var(n)=k>>(n-1)*4
  10640.  PRINT var(n)
  10641.  var(8)=SIr(sel,actual)
  10642.  pro%=0
  10643.  v=1 
  10644.  v>4 
  10645.  pro%+=var(v)
  10646.  var(v)>10 
  10647.  var(v)=10
  10648.   var(v)=10-var(v)
  10649.  pro%=
  10650. (pro%/5)
  10651.  pro%>SIr(sel,actual) 
  10652.  pg=1
  10653.  pro%<SIr(sel,actual) 
  10654.  pg=2
  10655.  pro%=SIr(sel,actual) 
  10656.  pg=3
  10657.  1:p$=t$(387)
  10658.  2:p$=t$(388)
  10659.  3:p$=t$(389)
  10660. status_frame
  10661. f_yel
  10662. cdsB(t$(390),210,7)
  10663. cdsB(t$(391)+p$,210,19)
  10664. f_wht
  10665.  354,550,945,550
  10666.  354,625,945,625
  10667.  354,475,945,475
  10668.  n=2 
  10669.  350+(n-1)*85,400,350+(n-1)*85,700
  10670.  n=1 
  10671.  normalfont-(10-n)>0 
  10672. pixel(
  10673. (normalfont-(10-n)),342+(n-1)*85,388,42,0,21,0)
  10674.  350,400,595,300
  10675. pixel(t$(392),220,700+20,42,0,21,0)
  10676. pixel(t$(393),220,550+20,42,0,21,0)
  10677. pixel(t$(394),220,400+20,42,0,21,0)
  10678.  v=2 
  10679.  350+(v-2)*85, 400+var(v-1)*30, 350+(v-1)*85, 400+var(v)*30
  10680.  350+(v-2)*85, 400+var(v-1)*30-4, 350+(v-1)*85, 400+var(v)*30-4
  10681.  350+(v-2)*85, 400+var(v-1)*30+4, 350+(v-1)*85, 400+var(v)*30+4
  10682.  PROCpixel(STR$(var(v-1)),350+(v-2)*75,380,63,192)
  10683. status_frametwo
  10684. status_frame
  10685.  188,220:
  10686. 1083,856:
  10687. sget("sback")
  10688. 6,112,1
  10689. frame(188,220,1083,856,42)
  10690. inframe(196,228,1075,848,42)
  10691. status_frametwo
  10692. front(188,220,1083,856,2)
  10693. getMK
  10694. schoose("sback")
  10695. plot(0,188,220)
  10696. sdelete("sback")
  10697.  A,B,C:
  10698.  A=0:B=0
  10699. planetlaw
  10700. gmerge("pt2")
  10701.  188,188:
  10702. 1083,868:
  10703. sget("sback")
  10704. 6,112,1
  10705. frame(338,270,933,776,42)
  10706. inframe(346,278,925,768,42)
  10707. f_yel
  10708. cdsB(t$(395),360,8)
  10709. f_wht
  10710. inst(t$(396),380,10,1)
  10711. inst(t$(397),380,12,2)
  10712. inst(t$(398),380,16,3)
  10713. inst(t$(92),380,18,4)
  10714.  a$=t$(399)
  10715.  flashnum=4
  10716.  (SIu(sel,actual)
  10717.  2)=0 
  10718. #  flashnum=5:
  10719. inst(a$,380,14,5)
  10720. f_gre
  10721. cds(a$,380,14)
  10722. f_wht
  10723.  flashactual=0
  10724. front(338,270,933,776,2)
  10725.      xt=0
  10726. pickrow
  10727.  row 
  10728. pl_justice:xt=1
  10729. pl_tcenter:xt=1
  10730. 1    
  10731.  (SIu(sel,actual)
  10732.  2)=0 
  10733. pl_taxes:xt=1
  10734. pl_festival:xt=1
  10735.  18:xt=1
  10736. schoose("sback")
  10737. plot(0,188,188)
  10738. sdelete("sback")
  10739.  A,B,C:
  10740.  A=0:B=0
  10741. gmerge("pt1")
  10742.  cla,clb,clc
  10743.  cla,clb,clc:
  10744.  clc=0
  10745. pl_festival
  10746.  right,fls
  10747. 6,112,1
  10748. frame(338,270,933,776,42)
  10749. inframe(346,278,925,768,42)
  10750. f_yel
  10751. cdsB(t$(400),360,8)
  10752. f_wht
  10753. cdsB(t$(401),360,10)
  10754. cdsB(t$(402),360,11)
  10755. inst(t$(92),380,18,1)
  10756.  fls=1
  10757.  credits>19 
  10758. (4#  
  10759. inst(t$(403),380,13,2):fls=2
  10760. (6!  
  10761. f_gre:
  10762. cds(t$(403),380,13)
  10763.  credits>99 
  10764. (9(  
  10765. inst(t$(404),380,15,fls+1):fls+=1
  10766. (;!  
  10767. f_gre:
  10768. cds(t$(404),380,15)
  10769. f_wht
  10770.  flashnum=fls:flashactual=0
  10771. front(338,270,933,776,2)
  10772.  right=0
  10773. pickrow
  10774. (C?  
  10775.  row=13 
  10776.  credits>=20 
  10777. festival(1):right=1:credits-=20
  10778. (DA  
  10779.  row=15 
  10780.  credits>=100 
  10781. festival(2):right=1:credits-=100
  10782.  row=18 right=1
  10783.  right
  10784. festival(fnu)
  10785. (J? SIr(sel,actual)-=fnu:
  10786.  SIr(sel,actual)<0 SIr(sel,actual)=0
  10787.  festival=1
  10788. inframe(346,278,925,768,42)
  10789. cdsB(t$(405),420,12)
  10790. cdsB(t$(406),520,13)
  10791. getMK
  10792. pl_tcenter
  10793. 6,112,1
  10794. frame(338,270,933,776,42)
  10795. inframe(346,278,925,768,42)
  10796. f_yel
  10797. cdsB(t$(407),360,8)
  10798. f_wht
  10799. cds(t$(408),360,10)
  10800. cds(t$(409),360,11)
  10801. cds(t$(410),360,12)
  10802. inst(t$(411),380,14,1)
  10803. inst(t$(412),380,15,2)
  10804. inst(t$(413),380,16,3)
  10805. inst(t$(92),380,18,4)
  10806.  kj=SIl%(sel,actual)
  10807.  flashnum=4:flashactual=0
  10808. front(338,270,933,776,2)
  10809. pickrow
  10810.  row 
  10811. (i3   
  10812.  14:kj=kj 
  10813.  1:SIl%(sel,actual)=kj:
  10814. (j3   
  10815.  15:kj=kj 
  10816.  2:SIl%(sel,actual)=kj:
  10817. (k3   
  10818.  16:kj=kj 
  10819.  4:SIl%(sel,actual)=kj:
  10820.  row=18
  10821. pl_justice
  10822.  kj,n
  10823. 6,112,1
  10824. frame(268,190,1003,868,42)
  10825. inframe(276,198,995,860,42)
  10826. f_yel
  10827. centerB(t$(414),796)
  10828. f_wht
  10829.  n=1 
  10830. schoose("paragraph")
  10831. ({"  
  10832. plot(8,304,1040-(6+n*2)*40)
  10833. (n),340,6+n*2)
  10834. inst(t$(415),392,8,1)
  10835. inst(t$(416),392,10,2)
  10836. inst(t$(417),392,12,3)
  10837. inst(t$(418),392,14,4)
  10838. inst(t$(419),392,16,5)
  10839. inst(t$(420),392,18,6)
  10840. inst(t$(92),304,20,7)
  10841.  kj=SIl%(sel,actual)
  10842.  flashnum=7:flashactual=0
  10843. front(268,190,1003,868,2)
  10844. pickrow
  10845.  row 
  10846.  8 :kj=kj 
  10847.   8:SIl%(sel,actual)=kj:
  10848.  10:kj=kj 
  10849.  16:SIl%(sel,actual)=kj:
  10850.  12:kj=kj 
  10851.  32:SIl%(sel,actual)=kj:
  10852.  14:kj=kj 
  10853.  64:SIl%(sel,actual)=kj:
  10854.  16:kj=kj 
  10855. 128:SIl%(sel,actual)=kj:
  10856.  18:kj=kj 
  10857. 256:SIl%(sel,actual)=kj:
  10858.  row=20
  10859.  ral=1 
  10860.  1<<(ral+2) 
  10861. schoose("allow1") 
  10862. schoose("allow0")
  10863. plot(8,880,1040-(6+ral*2)*40)
  10864. pl_taxes
  10865. gmerge("br14")
  10866. 6,112,1
  10867. frame(338,270,933,776,42)
  10868. inframe(346,278,925,768,42)
  10869. f_yel
  10870. cdsB(t$(421),360,8)
  10871. f_wht
  10872. 0 am=
  10873. ((SIc(sel,actual)*2+SIs(sel,actual))/2)
  10874. dspB(t$(422)+
  10875. (am)+" MC",380,10)
  10876. dspB(t$(423),380,12)
  10877. dspB(t$(424),380,13)
  10878. schoose("export"):
  10879. plot(0,396,286)
  10880. frame(352,286,391,334,42):
  10881. frame(874,286,916,334,42)
  10882. front(338,270,933,776,2)
  10883. askmaster(396,286,0)
  10884.  accepted 
  10885.  credits+=am:SIr(sel,actual)+=4:SIu(sel,actual)=SIu(sel,actual) 
  10886.  ral=1 
  10887.  1<<(ral-1) 
  10888. schoose("allow1") 
  10889. schoose("allow0")
  10890. plot(8,700,1004-(12+ral)*40)
  10891. srfdel
  10892. gload("ts1")
  10893. gmerge("pt1")
  10894. _comm_allied(cfs)
  10895.  ok,lord,flicker,jd,sp,scn,quittalk,letexit
  10896.  useproc=1 
  10897.  actualmenu=1 
  10898.  sp=1 
  10899.  sp=2
  10900.  scn=3-actualmenu
  10901.  tk$()="":tk()=1
  10902.  ckind=2
  10903.  flicker=1
  10904.      jd=1
  10905. gmerge("cs"+
  10906. (cfs))
  10907. 6,112,3-scn
  10908. comframe
  10909. schoose("c")
  10910. plot(0,74,264)
  10911. makecop
  10912. cominfo
  10913.  useproc=1 
  10914. sdelete("c")
  10915. front(49,240,1222,693,scn)
  10916. fontcol(&fff00fff)
  10917. dsp(t$(425),494,10)
  10918. front(49,240,1222,693,scn)
  10919. f_wht
  10920.  X=selectedsys:Y=actual
  10921. decode(X,Y)
  10922. checkspaceport
  10923.  tk$(1)=t$(426)
  10924.  tk$(2)=t$(427)
  10925.  tk$(4)=t$(428)
  10926.  plan(selectedsys,actual)<7 
  10927.  invent%(1,9)=0 
  10928.  credits<500 tk(3)=0
  10929.   tk$(3)=t$(429)
  10930.       b=0
  10931.  psun(1,a)=X 
  10932.  b=a:a=9
  10933.  ptarget(1,b)<>0 
  10934.  invent%(1,8)=0 tk(3)=0
  10935.   tk$(3)=t$(430)
  10936.  selectedsys<>actualsys 
  10937.  spaceport=0 tk(1)=0:tk(2)=0
  10938.  letexit=1
  10939. tquest
  10940.  quittalk=1 
  10941.  quittalk=0:letexit=0:
  10942. redo:
  10943.  row=3 
  10944.  plan(X,Y)<7 
  10945.  jd=0
  10946. elast(-1)
  10947.  row 
  10948. transfer
  10949. fleet:
  10950.  row=3 
  10951.  plan(X,Y)<7 
  10952. ghchange
  10953. movewp(b)
  10954. ghchange
  10955.  credits-=500
  10956. cleararea
  10957. fontcol(&fff00fff)
  10958. dspB(t$(431),494,10)
  10959.  p=plan(X,Y):q=0
  10960.  1: q=6
  10961.  2: q=4
  10962.  3: q=2
  10963.  4: q=6
  10964.  5: q=4
  10965.  6: q=1
  10966.  plan(X,Y)=q
  10967. f_wht
  10968. getMK
  10969. f_gre
  10970. fontcol(&777777FF)
  10971.  rightplanet
  10972.  grosse_ausnahme=1
  10973.    findvar=1
  10974.    varfound=0
  10975. masteranimate
  10976.  escpressed=0
  10977.   selectedsys=fsys
  10978.   actualmenu=2
  10979.   findvar=1
  10980.   varfound=0
  10981. slavemap
  10982. )90  
  10983.  varfound 
  10984.  rightplanet=1 
  10985.  rightplanet=0
  10986.   findvar=0
  10987.   varfound=0
  10988.  rightplanet
  10989.  grosse_ausnahme=0
  10990. bombing(sel,planet,par)
  10991.  dx,dy
  10992.  watcher=1 
  10993. showplanet(3)
  10994.  par=1 
  10995.  par=4 
  10996.    R=
  10997. (7)+1
  10998.  par=1 
  10999.  R+=8
  11000. )J    s=
  11001. (SId(sel,planet)/1000)
  11002.    za=2:zb=15
  11003.  s<10 za=3:zb=14
  11004.  s>12 za=1:zb=16
  11005. dspB("Replay",1000,13)
  11006. )O"   
  11007. dspB(
  11008. (R)+" hits",1000,15)
  11009.     dx=
  11010. (zb-za+1)+za-1
  11011.     dy=
  11012. (zb-za+1)+za-1
  11013. smash(dx,dy)
  11014.  par=2 
  11015. premark(V,U)
  11016. dspB(t$(432),1000,13)
  11017. dspB(t$(433),1000,14)
  11018. dspB(t$(434),1000,15)
  11019.    dx=V:dy=U
  11020. smash(dx,dy)
  11021.  par=3 
  11022.    sci=SIc(sel,planet)
  11023. )`    s=
  11024. (SId(sel,planet)/1000)
  11025.    za=2:zb=15
  11026.  s<10 za=3:zb=14
  11027.  s>12 za=1:zb=16
  11028. dspB(t$(435),1000,13)
  11029. dspB(t$(436),1000,14)
  11030.     ra=
  11031. (zb-za+1)+za-1
  11032.     rb=
  11033. (zb-za+1)+za-1
  11034.     s=surf%(ra,rb)
  11035. )j#    
  11036.  s<>6 
  11037. pollutefield(ra,rb)
  11038.  c<50 
  11039. wait(5)
  11040.    plan(sel,planet)=2
  11041. code(sel,planet)
  11042. showplanet(3)
  11043. dspB(t$(437),1000,13)
  11044. dspB(t$(436),1000,14)
  11045. getMK
  11046. srfdel
  11047.  par<>0 
  11048.  par<>1 
  11049.  par=1 
  11050.  par=4 
  11051. )|$   
  11052.  par=1 
  11053. (7)+9 
  11054. (7)+1
  11055. )}&   
  11056. cms(t$(438)+
  11057. (R)+" hits.",7,1)
  11058.     dx=
  11059. (16):dy=
  11060. smash(dx,dy)
  11061. getMKw
  11062.  par=2 
  11063.  window_open 
  11064. cms(t$(439),7,1)
  11065.    dx=V:dy=U
  11066. smash(dx,dy)
  11067. getMKw
  11068. code(sel,planet)
  11069. premark(pmx,pmy)
  11070.  pmx*56,pmy*56:
  11071.  pmx*56+56,pmy*56+56:
  11072. sget("p_ms")
  11073.  pX=1
  11074. schoose("mark")
  11075. plot(8,pmx*56,pmy*56)
  11076. wait(9)
  11077. schoose("p_ms")
  11078. plot(0,pmx*56,pmy*56)
  11079. wait(9)
  11080. sdelete("p_ms")
  11081. smash(ax,ay)
  11082.  radiocount,za,zb
  11083. (SId(sel,actual)/1000)
  11084.  za=2:zb=15
  11085.  s<10 za=3:zb=14
  11086.  s>12 za=1:zb=16
  11087.   su= surf%(ax,ay)
  11088.  radiocount 
  11089.  ax=radioX(radiocount):ay=radioY(radiocount):radiocount-=1:surf%(ax,ay)=4:su= surf%(ax,ay)
  11090.  su=4 
  11091.    surf%(ax,ay)=6
  11092. bombfield(ax,ay,1)
  11093.  p=1 
  11094.  q=1 
  11095. X     
  11096.  ax-2+p>=za 
  11097.  ay-2+q>=za 
  11098.  ax-2+p<=zb 
  11099. ay-2+q<=zb 
  11100. pollutefield(ax-2+p,ay-2+q)
  11101.  ax=za 
  11102. ;     
  11103.  ay-2+q>=za 
  11104.  ay-2+q<=zb 
  11105. pollutefield(zb,ay-2+q)
  11106.  ax=zb 
  11107. ;     
  11108.  ay-2+q>=za 
  11109.  ay-2+q<=zb 
  11110. pollutefield(za,ay-2+q)
  11111.  su<>4 
  11112.  su<>16 
  11113. bombfield(ax,ay,0)
  11114.  su=16 
  11115. bombfield(ax,ay,1)
  11116.  p=1 
  11117.  q=1 
  11118. g     
  11119.  ax-2+p>=za 
  11120.  ay-2+q>=za 
  11121.  ax-2+p<=zb 
  11122. ay-2+q<=zb 
  11123.  (p<>2 
  11124.  q<>2) 
  11125. bombfield(ax-2+p,ay-2+q,0)
  11126.  ax=za 
  11127. :     
  11128.  ay-2+q>=za 
  11129.  ay-2+q<=zb 
  11130. bombfield(zb,ay-2+q,0)
  11131.  ax=zb 
  11132. :     
  11133.  ay-2+q>=za 
  11134.  ay-2+q<=zb 
  11135. bombfield(za,ay-2+q,0)
  11136.  radiocount=0
  11137. bombfield(fx,fy,rad)
  11138.  su=surf%(fx,fy)
  11139.  su=2 
  11140.  SIna(sel,planet)-=1
  11141.  su=5 
  11142.  SIc(sel,planet)-=1
  11143.  su=4 
  11144.  radiocount<15 radiocount+=1:radioX(radiocount)=fx:radioY(radiocount)=fy
  11145.  su<>6 
  11146.  su=2 
  11147. su=7 
  11148. su=8 
  11149. su=9 
  11150. su=10 
  11151. su=29 
  11152.  surf%(fx,fy)=10 
  11153.  surf%(fx,fy)=20
  11154.  rad 
  11155.  surf%(fx,fy)=6
  11156.  watcher=1 
  11157.   exx=fx:exy=fy
  11158.  exx*56-16,exy*56-16:
  11159.  exx*56+72,exy*56+72:
  11160. sget("ex_sp")
  11161. 6,112,1
  11162. schoose("ex_sp")
  11163. plot(0,0,0)
  11164. schoose("dead"+
  11165. plot(8,8,8)
  11166.  0,0:
  11167. 88,88:
  11168. sget("sh_sp")
  11169. 6,112,2
  11170. schoose("sh_sp")
  11171. plot(0,exx*56-16,exy*56-16)
  11172. wait(4)
  11173. 6,112,1
  11174. schoose("ex_sp")
  11175. plot(0,0,0)
  11176. schoose("spart"+
  11177. (47+fx)+
  11178. (47+fy))
  11179. plot(0,16,16)
  11180. schoose("stone"+
  11181. (surf%(fx,fy)))
  11182. plot(8,16,16)
  11183. 88,88:
  11184. sget("ex_sp")
  11185. 6,112,1
  11186. schoose("ex_sp")
  11187. plot(0,0,0)
  11188.  n<11 
  11189. schoose("dead"+
  11190. (n)):
  11191. plot(8,8,8)
  11192.  0,0:
  11193. 88,88:
  11194. sget("sh_sp")
  11195. 6,112,2
  11196. schoose("sh_sp")
  11197. plot(0,exx*56-16,exy*56-16)
  11198. wait(4)
  11199. sdelete("ex_sp")
  11200. sdelete("sh_sp")
  11201. pollutefield(fx,fy)
  11202.  surf%(fx,fy)=2 
  11203.  SIna(sel,planet)-=1
  11204.  surf%(fx,fy)=5 
  11205.  SIc(sel,planet)-=1
  11206.  surf%(fx,fy)=4 
  11207.  radiocount<15 radiocount+=1:radioX(radiocount)=fx:radioY(radiocount)=fy
  11208.  surf%(fx,fy)<>6 
  11209.   surf%(fx,fy)=6
  11210.  watcher=1 
  11211. schoose("spart"+
  11212. (47+fx)+
  11213. (47+fy))
  11214. plot(0,fx*56,fy*56)
  11215. schoose("stone6")
  11216. plot(8,fx*56,fy*56)
  11217. attack
  11218. counselor(2)
  11219. " m=ship(1):n=ship(2):o=ship(3)
  11220.  m+n+o=0 
  11221.  accepted=0 
  11222.  trace%(1)+=1
  11223.  partyAT=1
  11224.  partyPA=SIi(sel,actual)
  11225. " ship(1)=0:ship(2)=0:ship(3)=0
  11226. b_start(m,n,o,SIk%(sel,actual,1),SIk%(sel,actual,2),SIk%(sel,actual,3),SIb(sel,actual),0,0,1,0,SIn$(sel,actual),1,Ps%(1,3)+1,Ps%(SIi(sel,actual),3)+1,1,sel,actual,partyPA)
  11227. (SId(sel,actual)/200)
  11228.  b_won=1 
  11229. *!#   SIk%(sel,actual,W)=a_army(W)
  11230.    k=SIk%(sel,actual,W)
  11231. *#4   
  11232.  k>d 
  11233.  a=k-d:SIk%(sel,actual,W)=d:ship(W)+=a
  11234.   SIi(sel,actual)=1
  11235.   firstplanet(1)=1
  11236.  plan(sel,actual)=8 
  11237.    r=0
  11238.  psun(1,a)=0 
  11239.    psun(1,r)=sel
  11240. *.#    
  11241.  psun(partyPA,a)=sel 
  11242.    psun(partyPA,r)=0
  11243. *4#   SIk%(sel,actual,X)=d_army(X)
  11244. *52   
  11245.  SIk%(sel,actual,X)>d SIk%(sel,actual,X)=d
  11246. _sunsinit
  11247. fillarray("sf2",50)
  11248.  wry= (8+
  11249. (2))*43+200
  11250.  wrx= (13+
  11251. (2))*43
  11252. _sunpos
  11253.    ok=1
  11254.    SunName$(X)=ar$(
  11255. (50))
  11256.  Y=1 
  11257. *L/    
  11258.  SunName$(X)=SunName$(Y) 
  11259.  X<>Y 
  11260.  ok=0
  11261.  X=1 
  11262.   SunY(X)+=(
  11263. (2)-1)*4
  11264.   SunX(X)+=(
  11265. (2)-1)*4
  11266.  Y=1 
  11267.    SIl%(X,Y)=1+2+16+128
  11268. *V      
  11269. _sunpos
  11270. *`)  
  11271.  create the suns and their planets
  11272.   ok=0
  11273.    SunY(X)= 
  11274. (18)*43+200
  11275.    SunX(X)= 
  11276. (28)*43
  11277.    ok=1
  11278. *h9    
  11279.  SunY(Y)=SunY(X) 
  11280.  SunX(Y)=SunX(X) 
  11281.  X<>Y 
  11282.  ok=0
  11283. *j'   
  11284.  SunY(X)=wry 
  11285.  SunX(X)=wrx ok=0
  11286.  SunY(X)>953 
  11287.  ok=0
  11288.   Sunsize(X)=
  11289. _planinit
  11290.  ljump
  11291.  create planets
  11292.  X=genplan
  11293.  pl_num=0 
  11294.   genplan+=1:X=genplan
  11295.   RN=
  11296.  creating 1-5 planets for the specific sun
  11297.  Wald, Eis etc...
  11298.  RESTORE 35626
  11299.    ljump=0
  11300.  Z=1 
  11301.  W=1 
  11302.      ljump+=1
  11303.      
  11304.  READ A,A,A,A,A,A
  11305.      
  11306.  READ already(W)
  11307. &     already(W)=plandat(1+ljump,W)
  11308. "   R=
  11309. (6):plan(X,Y)=already(R)
  11310. /   planX(X,Y)=Y*170+Y^2*10   :
  11311.  coordinates
  11312. /   planY(X,Y)=450            :
  11313.  coordinates
  11314.  Y/2<>
  11315. (Y/2) planY(X,Y)=550
  11316. 0   pspeed(X,Y)=
  11317. (5)+5      :
  11318.  rotation speed
  11319. +   R=
  11320.  R>3 SIt(X,Y)=1 
  11321.  SIt(X,Y)=R
  11322. )   SId(X,Y)=
  11323. (8)*1000+7*1000+
  11324. (9)*100
  11325. "   SIrm(X,Y)=
  11326. (SId(X,Y)/40))
  11327.  plan(X,Y)=3 
  11328.  plan(X,Y)=5 SIrm(X,Y)+=SIrm(X,Y)
  11329.  plan(X,Y) 
  11330. 1:SIs(X,Y)=12
  11331. 2:SIs(X,Y)=4
  11332. 3:SIs(X,Y)=2
  11333. 4:SIs(X,Y)=6
  11334. 5:SIs(X,Y)=6
  11335. 6:SIs(X,Y)=10
  11336.   pl_num=RN
  11337.   pl_act=0
  11338.   pl_act+=1
  11339.   Y=pl_act
  11340. (SId(X,Y)/1000)
  11341.   a=2:b=15
  11342.  I<10 a=3:b=14:SIs(X,Y)-=1
  11343.  I>12 a=1:b=16:SIs(X,Y)+=1
  11344.   pl=plan(X,Y)
  11345. (5)-1
  11346.   a$=ar$((pl*10-9)+R*2)
  11347.   b$=ar$((pl*10-9)+R*2+1)
  11348.  cx=0 
  11349. (   surf$(X-1,Y-1,cx)=
  11350. a$,cx*16+1,16)
  11351.  cx=0 
  11352. *   surf$(X-1,Y-1,cx+8)=
  11353. b$,cx*16+1,16)
  11354.  Monde
  11355.   SIm%(X,Y)=0
  11356.       c=0
  11357.    c+=1:
  11358.  R>=c 
  11359.     b=1:
  11360. (3)=1 b=2
  11361. (6)=1 b=3
  11362.     SIm%(X,Y)+=b<<d
  11363.  pl_act=pl_num 
  11364.  pl_num=0
  11365. inputname(string$,posx,height,appear)
  11366. 6,21,0
  11367.  check,cursor,cstate,l
  11368.  cursor=0:cstate=1
  11369.  XX=posx:
  11370.  XX=688
  11371.  YY=height+18
  11372.  gflag 
  11373.  XX=580
  11374.  appear 
  11375. frame(XX-12,height-4,XX+246,height+62,42)
  11376.   no_texture=1
  11377. inframe(XX-8,height,XX+242,height+58,42)
  11378.   no_texture=0
  11379.  XX-4,height+4,242,50
  11380. sfp(string$,XX,YY)
  11381.  A,B,C:
  11382.      ok=0
  11383. (0): 
  11384.  A,B,C: 
  11385. cursor:
  11386.  I$<>"" 
  11387.  (I$=
  11388. (127) 
  11389. (8)) 
  11390. (string$)>0 
  11391. %   string$=
  11392. string$,
  11393. (string$)-1)
  11394.  XX-4,height+4,242,50
  11395. sfp(string$,XX,YY)
  11396.  (I$=
  11397. (13) 
  11398.  C=4) 
  11399.  (string$<>"" 
  11400.  usemark=1) 
  11401.  ok=1
  11402. (31) 
  11403. (127) 
  11404.    check=0
  11405.  l=height+4 
  11406.  height+54
  11407. !    
  11408. XX+202,l)<>0 
  11409.  check=1
  11410. !    
  11411. XX+206,l)<>0 
  11412.  check=1
  11413.  check=0 
  11414. :    
  11415. 262277,0,string$,200000,200000,-1,200000 
  11416.  a,b,c
  11417. 262280,0,c 
  11418. +    +    
  11419.  XX+b+4,YY-4,XX+b+4,YY+28
  11420.     string$+=I$
  11421. sfp(string$,XX,YY)
  11422.  ok>0 
  11423.  ((string$<>"MANY" 
  11424.  string$<>"") 
  11425.  usemark=1)
  11426.  pl$=string$
  11427. mouse_on
  11428. cursor
  11429.  cursor+=1:
  11430.  cursor=30 
  11431.   cursor=1
  11432.   cstate=3-cstate
  11433. 262277,0,string$,200000,200000,-1,200000 
  11434.  a,b,c
  11435. 262280,0,c 
  11436.  cstate=1 
  11437.  196:
  11438.  XX+b+4,YY-4,XX+b+4,YY+28
  11439.  XX+b+4,YY-4:
  11440.  XX+b+4,YY+28
  11441.  XX+b+4,YY-4,XX+b+4,YY+28
  11442. mainloop
  11443.  plr,xyz,anotherstarted
  11444.  players=1 
  11445.    plr=1
  11446. masteranimate
  11447. +)+   
  11448.  IF backtoslave=1 THEN actualmenu=2
  11449. +*#   
  11450.  screentype=0 
  11451. calculatefly
  11452. +++   
  11453.  IF backtoslave=1 THEN actualmenu=1
  11454.  screentype
  11455.    anotherstarted=0
  11456.  actualplayer>1 
  11457.     anotherstarted=1
  11458.     plr=actualplayer
  11459.     actualplayer=1
  11460. +7,    
  11461.  ** Lord 1 normal spielen lassen **
  11462.     plr=1
  11463. masteranimate
  11464.  screentype 
  11465.  plr>1 
  11466.     xyz=plr+1
  11467.     xyz=2
  11468. +C1   
  11469.  ** alle weiteren Lords spielen lassen **
  11470. +E9   
  11471.  anotherstarted=1 
  11472. plrshow:
  11473. redo:
  11474. masteranimate
  11475.  screentype 
  11476.  xyz<=players 
  11477.  plr=xyz 
  11478.  players
  11479.      
  11480.  Sol:
  11481. +N$      
  11482.  SIt(X,Y)>10 SIt(X,Y)-=10
  11483.      
  11484. +QC     
  11485. plrswap               :
  11486.  aktuellen Spieler nach 1 swappen
  11487.      
  11488.  existing(plr) 
  11489.       
  11490. plrshow
  11491. +V7      
  11492.  normalfont=2 
  11493. introduce:
  11494. introd_talk:
  11495. getMK
  11496. +W@      
  11497. redo                  :
  11498.  Bild dementspr. neu aufbauen
  11499. +X>      
  11500. masteranimate         :
  11501.  den Spieler spielen lassen
  11502.       
  11503.  screentype 
  11504.      
  11505. +b6   
  11506.  ** Alle durch, jetzt wieder zurueckswappen **
  11507.  plr=players 
  11508. plrswap
  11509.  ** Monat vergeht **
  11510.    plr=1
  11511. +i+   
  11512.  IF backtoslave=1 THEN actualmenu=2
  11513. calculatefly
  11514. +k+   
  11515.  IF backtoslave=1 THEN actualmenu=1
  11516.  screentype=0 
  11517. plrshow
  11518.  screentype
  11519. plrshow
  11520.  ** anzeigen, welcher Spieler dran ist **
  11521.  246,576:
  11522. 1054,684:
  11523. sget("spr1")
  11524.  SYS 262291,,0,1,6,&33333300,&FFFFFF00
  11525. +x/ font_col=&FFFFFF00:font_back_col=&33333300
  11526. frame(250,580,1050,680,21)
  11527.  246,576,808,108
  11528. dspc(ta$+" "+PName$+t$(440),10)
  11529.  font_back_col=0
  11530. f_wht
  11531. getMK
  11532. schoose("spr1")
  11533. plot(0,246,576)
  11534. sdelete("spr1")
  11535. plrswap
  11536.  *** Lord 1 und aktuellen Lord tauschen ***
  11537.  H$(1),H$(plr)
  11538.  PName$=H$(1)
  11539.  firstplanet(1),firstplanet(plr)
  11540.  credits,credits(plr)
  11541.  flying(plr),flying
  11542.  flysys,TS(plr)
  11543.  SWAP TP(1),TP(plr)
  11544.  eship(plr,1),ship(1)
  11545.  eship(plr,2),ship(2)
  11546.  eship(plr,3),ship(3)
  11547.  efreight(plr,1),freight(1)
  11548.  efreight(plr,2),freight(2)
  11549.  efreight(plr,3),freight(3)
  11550.  efreight(plr,0),freight(0)
  11551.  flag(plr),flag(1)
  11552.  existing(plr),existing(1)
  11553.  MI(plr),MI(1)
  11554.  MIs(plr),MIs(1)
  11555.  MIp(plr),MIp(1)
  11556.  firstcity%(1),firstcity%(plr)
  11557.   SWAP evillord(plr),evillord(1)
  11558. M      evillord(plr)=0:evillord(1)=0 :
  11559.  weil durch verhalten() uebernommen
  11560.  Y=1 
  11561.  verhalten(1,Y),verhalten(plr,Y): 
  11562.  X=1 
  11563.  verhalten(X,1),verhalten(X,plr): 
  11564.  pphase(plr),pphase(1)
  11565.  radioX(plr),radioX(1)
  11566.  radioY(plr),radioY(1)
  11567.  whichp(plr),whichp(1)
  11568.  etrans%(plr),trans%
  11569.  ewar%(plr),war%
  11570.  escout%(plr),scout%
  11571.  ebomb%(plr),bomb%
  11572.  hi%(plr),hi%(1)
  11573.  md%(plr),md%(1)
  11574.  lo%(plr),lo%(1)
  11575.  gmember(plr),gmember(1)
  11576.  Y=0 
  11577.  punish%(plr,Y),punish%(1,Y)
  11578.  SWAP H$(plr),H$(1)
  11579.  Hl(plr),Hl(1)
  11580.  Ha(plr),Ha(1)
  11581.  Hg(plr),Hg(1)
  11582.  Hg(1)=1 
  11583.  ta$="Lord":tb$="Milord" 
  11584.  ta$="Lady":tb$="Milady"
  11585.  t%(plr),t%(1)
  11586.  reput(plr),reput
  11587.  Ps%(plr,Y)    ,Ps%(1,Y)     :
  11588.  allied(plr,Y) ,allied(1,Y)  :
  11589.  allied(Y,plr) ,allied(Y,1)  :
  11590.  invent%(plr,Y),invent%(1,Y) :
  11591.  stsh%(plr,Y)  ,stsh%(1,Y)   :
  11592.  markX(plr,Y),markX(1,Y)
  11593.  markY(plr,Y),markY(1,Y)
  11594.  mark$(plr,Y),mark$(1,Y)
  11595.  Sol:
  11596.  SunE(Y,plr)   ,SunE(Y,1)    :
  11597.  psun(plr,Y),psun(1,Y)
  11598.  ptarget(plr,Y),ptarget(1,Y)
  11599.  ftime,ftime(plr)
  11600.  selectedsys,selectedsys(plr)
  11601.  actualsys,orbit(plr)
  11602.  SIi(X,Y) 
  11603.    1: SIi(X,Y)=plr:b=1
  11604.  plr: SIi(X,Y)=1
  11605. askmasterb
  11606. 208,236:
  11607.  1069,284:
  11608. sget("rett")
  11609. frame(208,237,394,285,42):
  11610. frame(877,237,1069,285,42)
  11611. askmaster(400,236,2)
  11612. schoose("rett"):
  11613. plot(0,208,236)
  11614. sdelete("rett")
  11615. wait(20)
  11616. clearnotice
  11617.  recall_num=0
  11618. donotice(nsys,nplan,nmessage$)
  11619.  recall_num=recall_max 
  11620.  players
  11621.  SunE(nsys,t) 
  11622.  l=0 
  11623.  recall_num+=1
  11624.  recall$(recall_num)=""
  11625.  SIi(nsys,nplan)<=players 
  11626.  recall$(recall_num)="X" 
  11627.  recall$(recall_num)=" "
  11628.  nsys+nplan>0 
  11629. P  recall$(recall_num)+=SIn$(nsys,nplan)+" at "+SunName$(nsys)+": "+nmessage$
  11630. $  recall$(recall_num)+=nmessage$
  11631. shownotice
  11632.  m,n,space
  11633. 6,112,1
  11634. picture("nb1")
  11635. frame(0,869,1279,1023,42)
  11636. inframe(8,877,1271,1015,42)
  11637.  m=normalfont-2:
  11638.  m<1 m=1
  11639. centerB(t$(441)+
  11640. (m),924)
  11641.  recall_num=0 
  11642. dspB(t$(442),12,6)
  11643.  recall_num>10 
  11644.  space=1 
  11645.  space=2
  11646.  n=1 
  11647.  recall_num
  11648. recall$(n),1)="X" 
  11649. f_yel
  11650. dspB(
  11651. recall$(n),
  11652. (recall$(n))-1),12,5+n*space)
  11653. f_wht
  11654. 6,113,1
  11655.  PROCfront(0,0,1279,1023,2)
  11656. getMK
  11657. 6,113,2
  11658. 6,112,2
  11659.  PROCredo
  11660. calculatefly
  11661. ) SunE(0,1)=1:window_open=0:noplanet=0
  11662. clearnotice
  11663.  credits(1)=credits
  11664.  needed,pluton,mining,stations,tcenter,erttx,retty,kx,ky,nx,ny,htime,madd,acl,alvil,changed,trees,fst,radio,parks,didcalc
  11665. ,$2  
  11666.  stsh%(n,8)>0 
  11667.  stsh%(n,8)-=
  11668. (stsh%(n,4)/5)
  11669. ,%2  
  11670.  stsh%(n,9)>0 
  11671.  stsh%(n,9)-=
  11672. (stsh%(n,4)/5)
  11673. ,&4  
  11674.  stsh%(n,10)>0 
  11675.  stsh%(n,10)-=
  11676. (stsh%(n,4)/3)
  11677. ,'-  
  11678.  normalfont>fontsizeB 
  11679. changestyle:
  11680. ,)$   
  11681.  stsh%(n,b)<0 
  11682.  stsh%(n,b)=0
  11683. ,*      
  11684.  reput(1)=reput
  11685.  n=1 
  11686. ,/*  
  11687.  reput(n)<3 
  11688. (20)=1 
  11689.  reput(n)+=1
  11690.  reput=reput(1)
  11691.  normalfont+=1
  11692.  SYS 262291,,0,1,6,&33333300,&FFFFFF00
  11693. ,7/ font_col=&FFFFFF00:font_back_col=&33333300
  11694.  mousewait=0 
  11695. hour_on
  11696.  normalfont<3 
  11697.  nonclick=1 
  11698.  nonclick=0
  11699.  normalfont=2 
  11700. introduce:
  11701. introd_talk
  11702. hour_on
  11703.   nonclick=1
  11704.  normalfont>2 
  11705. ,E"   
  11706. frame(250,580,1050,680,21)
  11707. ,F#   
  11708.  246,576,808,108
  11709. dsp(t$(443),390,10)
  11710. f_wht
  11711.  sX=1
  11712. ,M6  
  11713.  Sunsize(sX)>4 
  11714.  Sunsize(sX)<9 
  11715.  Sunsize(sX)+=1
  11716. ,N2  
  11717.  Sunsize(sX)<5 
  11718. (2000)=1 
  11719.  Sunsize(sX)+=1
  11720. ,O   
  11721.  Sunsize(sX)>4 
  11722. sunexpand
  11723. getmouse
  11724. ,W'   
  11725.  ptarget(a,b)<>0 
  11726. arrivewp(a,b)
  11727. ,X      
  11728.  VDU30:PRINT"ENEMY THINKS"
  11729. enemythinks
  11730.  VDU30:PRINT"            "
  11731.  normalfont>2 
  11732. fillstatus
  11733.  VDU30:PRINT"ENEMY TACTICS"
  11734.  X=1 
  11735.  Y=1 
  11736.  SIi(X,Y)>players 
  11737. decode(X,Y)
  11738. ,i      
  11739. enemytactics(SIi(X,Y))
  11740. code(X,Y)
  11741. ,l      
  11742.  VDU30:PRINT"             "
  11743. getmouse
  11744.  htime=0
  11745. ,v      c=0
  11746.  SIi(X,Y) 
  11747.  c+=1
  11748. ,y      
  11749.  c=0 
  11750.  SunP(X)=
  11751. ,{   
  11752.  c>0 
  11753.  c<3 
  11754.  SunP(X)=
  11755.  c>=3 
  11756.  SunP(X)=2
  11757.  c=5 
  11758.  SunP(X)=3
  11759.  Y=1 
  11760. getmouse
  11761.    htime+=1
  11762.  SIt(X,Y)>10 SIt(X,Y)-=10
  11763.    SIu(X,Y)=0
  11764.  SIr(X,Y)>0 
  11765. (7)=1 
  11766.  SIr(X,Y)-=1
  11767.  plan(X,Y)<>0 
  11768.  SIi(X,Y)=0 
  11769. (250)=1 
  11770. surfchange(0)
  11771.    acl=0
  11772.    didcalc=0
  11773.  plan(X,Y)<>0 
  11774.  SIn$(X,Y)<>"" 
  11775.  SIi(X,Y)<>0 
  11776. cal_plan:didcalc=1
  11777.    f=1:m=normalfont
  11778.  m>3 f=5
  11779.  m>10 f=10
  11780.  m>25 f=15
  11781.  m>40 f=20
  11782.  didcalc=1 
  11783.  SIpo%(X,Y)=SIc(X,Y)*f+alvil
  11784.  IF X=INT(Sol/2) AND fst=0 THEN PROCfillstatus:fst=1
  11785.  htime>1 
  11786.  hour=1 
  11787.      htime=0
  11788.         
  11789.      
  11790.  mousewait=0 
  11791. hour_on
  11792.         
  11793. hour_off
  11794. getmouse
  11795.  lord=players+1 
  11796.  flying(lord)=1 
  11797.    flying(lord)=0
  11798.  tactic(lord)>0 tactic(lord)+=1
  11799.    orbit(lord)=TS(lord)
  11800.  lord
  11801.  lord=1 
  11802.   X=MIs(lord):Y=MIp(lord)
  11803.  SIi(X,Y)=0 
  11804.  MI(lord)=0
  11805.  MI(lord)<>0 
  11806. domission
  11807.  lord
  11808. getmouse
  11809.  credits(1)=credits
  11810.  an=1 
  11811.  players
  11812.    b=0
  11813.  Ps%(an,n) 
  11814.  1:b=4
  11815.  2:b=8
  11816.  credits(an)>=b 
  11817.  b=0 
  11818.  credits(an)-=b 
  11819. payoff(an,n)
  11820.  credits=credits(1)
  11821. newtitle
  11822. checkalive
  11823.  screentype=0 
  11824.  players>1 
  11825.  an=2 
  11826.  players
  11827.  flying(an) 
  11828.      ftime(an)-=1
  11829.      
  11830.  ftime(an)=0 
  11831.       
  11832. plrarrived
  11833.       
  11834.      
  11835.         
  11836.  mousewait=1 
  11837. getMKt:mousewait=0
  11838.  flying 
  11839.    ftime-=1
  11840.  ftime=0 
  11841. arrived
  11842.  hour=1 
  11843. hour_off
  11844.   nonclick=0
  11845. 6,21,0
  11846. 6,21,9
  11847. domission
  11848.  MI(lord)<6 
  11849.  MI(lord)>7 
  11850. spyspot
  11851.  MI(lord)=6 
  11852. -  H$=SIn$(MIs(lord),MIp(lord)):
  11853. uppercase
  11854. cms(t$(444)+H$,7,1):window_open=1
  11855.  SIi(MIs(lord),MIp(lord))=1 watcher=1:
  11856. getMK 
  11857.  watcher=0
  11858. bombing(MIs(lord),MIp(lord),1)
  11859.  MI(lord)=7 
  11860. -  H$=SIn$(MIs(lord),MIp(lord)):
  11861. uppercase
  11862. playsoon(9)
  11863. cms(t$(445)+H$,7,1)
  11864. getMKw
  11865.   watcher=1
  11866. bombing(MIs(lord),MIp(lord),3)
  11867.  MI(lord)=0
  11868.  f=1:m=normalfont
  11869.  m>3 f=5
  11870.  m>10 f=10
  11871.  m>25 f=15
  11872.  m>40 f=20
  11873.   SIpo%(X,Y)=SIc(X,Y)*f+alvil
  11874. sunexpand
  11875.  Sunsize(sX)>4 
  11876.  Sunsize(sX)<8 
  11877.   X=0:Y=0:noplanet=1
  11878.    H$=SunName$(sX):
  11879. uppercase
  11880. fillarray("SN"+
  11881. (Sunsize(sX)-4),9)
  11882.   usenova=1
  11883. cms("SUN "+H$+t$(446),1,1)
  11884.   usenova=0
  11885. cms(ar$(a-2),a,1)
  11886. getMKw
  11887.  Sunsize(sX)=5 plan(sX,1)=2
  11888.  Sunsize(sX)=6 plan(sX,1)=3:
  11889.  plan(sX,2)>0 plan(sX,2)=2
  11890.  Sunsize(sX)=7 plan(sX,1)=0:SIi(sX,1)=0:
  11891.  plan(sX,2)>0 plan(sX,2)=3
  11892.  Sunsize(sX)=8 
  11893.   X=0:Y=0:noplanet=1
  11894.    H$=SunName$(sX):
  11895. uppercase
  11896. fillarray("SN4",9)
  11897. -!!  
  11898. cms("SUN "+H$+t$(447),1,1)
  11899. cms(ar$(a-2),a,1)
  11900. -$      
  11901. getMKw
  11902. -&*  
  11903. 3:plan(sX,n)=0:SIi(sX,n)=0:
  11904. -("   
  11905.  plan(sX,n)>0 plan(sX,n)=5
  11906. -)      
  11907.  plan(sX,1)+plan(sX,2)+plan(sX,3)+plan(sX,4)+plan(sX,5)=0 
  11908. -,6  SunX(sX)=-100:SunY(sX)=-100 :
  11909.  weg mit dem Stern
  11910. --$  
  11911.  selectedsys=sX selectedsys=0
  11912.  flysys=sX flysys=1
  11913. -/   
  11914.  actualsys=sX actualsys=1
  11915.  players>1 
  11916.  k=2 
  11917.  players
  11918. -2,    
  11919.  selectedsys(k)=sX selectedsys(k)=0
  11920. -3     
  11921.  orbit(k)=sX orbit(k)=1
  11922.  TS(k)=sX TS(k)=1
  11923.  noplanet=0
  11924. cal_plan_rock
  11925.  A=1 
  11926.  B=1 
  11927.  surf%(A,B)=3 
  11928.     c=0
  11929. -A&    
  11930.  A>1 
  11931.   surf%(A-1,B)=29 c=1
  11932. -B&    
  11933.  A<16 
  11934.  surf%(A+1,B)=29 c=1
  11935. -C&    
  11936.  B>1 
  11937.   surf%(A,B-1)=29 c=1
  11938. -D&    
  11939.  B<16 
  11940.  surf%(A,B+1)=29 c=1
  11941. -E%    
  11942.  A=1 
  11943.   surf%(16,B)=29 c=1
  11944. -F$    
  11945.  A=16 
  11946.  surf%(1,B)=29 c=1
  11947.  madd+=1
  11948. -I      
  11949. cal_plan
  11950. -S%    
  11951.  VDU30:PRINT "";X;",";Y;"  "
  11952.  acl=0 
  11953. decode(X,Y)
  11954. (7)=1 
  11955. -X-     R=
  11956.  R>3 SIt(X,Y)=1 
  11957.  SIt(X,Y)=R
  11958. -Y        
  11959.     pd=
  11960. (SId(X,Y)/200)
  11961.     lord=SIi(X,Y)
  11962. -_O    
  11963.  (firstcity%(lord) 
  11964.  1)=1 
  11965.  lord<=players 
  11966.  (firstcity%(lord) 
  11967.  2)=0 
  11968. -`9     
  11969. firstcity:firstcity%(lord)=firstcity%(lord) 
  11970. -a        
  11971. -bO    
  11972.  (firstcity%(lord) 
  11973.  4)=4 
  11974.  lord<=players 
  11975.  (firstcity%(lord) 
  11976.  8)=0 
  11977. -c>     
  11978. firstspaceport:firstcity%(lord)=firstcity%(lord) 
  11979. -d        
  11980. -f%    
  11981.  SIc(X,Y)>0 
  11982.  normalfont>2 
  11983. -g-     e=1+(Ps%(lord,1)*2-2)+
  11984. (t%(lord)/20)
  11985. -hL     
  11986. (40)<=e 
  11987.  lord<=players 
  11988. scimoney:
  11989.  accepted 
  11990. scientists(lord)
  11991. -i6     
  11992. (40)<=e 
  11993.  lord>players 
  11994. scientists(lord)
  11995. -j        
  11996. -nC    
  11997. (200)=1 
  11998. meteor:
  11999.  IF SIi(X,Y)<=players PROCcms("",0,1)
  12000.     changed=0
  12001. (90)=1 
  12002. armykilled
  12003. -t,    
  12004. (250)=1
  12005. surfchange(1):changed=1
  12006. -u:    
  12007. (150)=1 
  12008.  invent%(SIi(X,Y),11)=0 
  12009. epidemic(1)
  12010. -v9    
  12011. (200)=1 
  12012.  rtx=X:rty=Y:
  12013. alienattack:X=rtx:Y=rty
  12014. -x%    
  12015.  SIc(X,Y)>0 
  12016.  normalfont>2 
  12017. -y_     
  12018.  inventnow=SIi(X,Y) 
  12019.  lord<=players 
  12020.  inventnow=0:
  12021. scimoney:
  12022.  accepted 
  12023. scientists(1)
  12024. -z        
  12025. -|%    
  12026.  SIc(X,Y)>0 
  12027.  normalfont>2 
  12028. -}>     
  12029. (50)<=e 
  12030.  plan(X,Y)<7 
  12031.  SIrm(X,Y)>0 
  12032. newexplored
  12033. -~I     
  12034. (150)=1 
  12035.  invent%(SIi(X,Y),10)=0 
  12036.  SIc(X,Y)>0 
  12037. cityepidemic
  12038. 2     
  12039.  SIc(X,Y)>0 
  12040.  plan(X,Y)<8 
  12041.  SIr(X,Y)>9 
  12042. V      
  12043. (4)=1 
  12044.  SIgr(X,Y)<SIc(X,Y)*3 rettx=X:retty=Y:
  12045. rebelattack:X=rettx:Y=retty
  12046.      
  12047.         
  12048.     xy=0
  12049.  SIi(X,Y)<=players 
  12050.      
  12051. cms("",0,1)
  12052.         
  12053.     l=SIl%(X,Y) 
  12054.     lok=0
  12055.      
  12056.  8+64+128      :lok=1
  12057.      
  12058.  8+16+64+128   :lok=1
  12059.      
  12060.  8+64+128+32   :lok=0
  12061.      
  12062.  8+16+64+128+32:lok=0
  12063.      
  12064.  128           :lok=1
  12065.      
  12066.  128+16        :lok=1
  12067.      
  12068.  128+32        :lok=1
  12069.      
  12070.  128+16+32     :lok=1
  12071.      
  12072.  32            :lok=1
  12073.      
  12074.  32+16         :lok=1
  12075.         
  12076. (    
  12077.  8)>0 
  12078.  64)=0 
  12079.  lok=0
  12080. (    
  12081.  8)=0 
  12082.  64)>0 
  12083.  lok=0
  12084.  256 
  12085.  lok=0
  12086.  lok=0 
  12087.  SIr(X,Y)+=1
  12088.  window_open=0 
  12089.      xy=0
  12090.      
  12091.  SIi(X,Y)<=players 
  12092.       
  12093. cms("",0,1)
  12094.      
  12095.         
  12096.  ** Planet scannen, rechnen ***
  12097.     needed=0:pluton=0:mining=0:stations=0:produce(1)=0:produce(2)=0:produce(3)=0:tcenter=0:food=0:madd=0:radio=0:alvil=0:trees=0:parks=0
  12098.     s=
  12099. (SId(X,Y)/1000)
  12100.     za=2:zb=15
  12101.  s<10 za=3:zb=14
  12102.  s>12 za=1:zb=16
  12103.     var()=0
  12104. 6    
  12105.  A=1 
  12106.  B=1 
  12107.  16:var(surf%(A,B))+=1:
  12108. K    free=var(0):stations=var(1):food=var(2):mining=var(3):parks=var(23)
  12109. B    pluton=var(4):radio=var(6):trees=var(8):produce(1)=var(11)
  12110. K    produce(2)=var(12):produce(3)=var(13):tcenter=var(17):alvil=var(22)
  12111.     SIna(X,Y)=food
  12112. %    
  12113.  parks>SIc(X,Y)/3 
  12114. (2)=1 
  12115. #     
  12116.  SIr(X,Y)>0 
  12117.  SIr(X,Y)-=1
  12118.         
  12119.  radio>0 
  12120.      
  12121.  A=1 
  12122.       
  12123.  B=1 
  12124. 5       
  12125.  surf%(A,B)=6 
  12126. (10)=1 
  12127.  surf%(A,B)=10
  12128.      
  12129.         
  12130. 1    
  12131.  plan(X,Y)=4 
  12132.  mining>0 
  12133. cal_plan_rock
  12134. E    
  12135. (200)=1 
  12136.  pluton>0 
  12137.  SIi(X,Y)<=players 
  12138. cms("",0,1)
  12139.  *** Heat Change durch Kultivierung ******
  12140. 3    
  12141.  (plan(X,Y)=2 
  12142.  plan(X,Y)=4) 
  12143.  changed=0 
  12144.      s=
  12145. (SId(X,Y)/1000)
  12146.      d=117
  12147.      
  12148.  s<10 d=86
  12149.      
  12150.  s>12 d=153
  12151. $     
  12152.  food>=d 
  12153. cs_cultivation
  12154.         
  12155.  *** Heat Change durch Rodung ******
  12156. #    
  12157.  plan(X,Y)=1 
  12158.  changed=0 
  12159.      s=
  12160. (SId(X,Y)/1000)
  12161.      d=40
  12162.      
  12163.  s<10 d=30
  12164.      
  12165.  s>12 d=51
  12166. !     
  12167.  trees<d 
  12168. cs_clearing
  12169.         
  12170.     xy=5
  12171.  ** Planet verlassen **
  12172. (    
  12173.  stations=0 
  12174. cs_commdestroyed
  12175.  ** MCredits ausrechnen ******************
  12176. '    v=SIc(X,Y)*2+SIs(X,Y)-SIam(X,Y)
  12177. !    
  12178.  v=1 
  12179.  t%(SIi(X,Y))<50 
  12180.      v=1
  12181.         
  12182. (     v=
  12183. (v*((100-t%(SIi(X,Y)))/100))
  12184.         
  12185. 8    
  12186.  SIi(X,Y)=1 
  12187.  credits+=v 
  12188.  credits(SIi(X,Y))+=v
  12189.  ** Produktionen ausrechnen **************
  12190. D    
  12191.  plan(X,Y)<>3 
  12192.  SIg%(X,Y,3)+=pluton 
  12193.  SIg%(X,Y,3)+=pluton*2
  12194. H    
  12195.  IF invent%(SIi(X,Y),14) THEN upd=SIg%(X,Y,3):SIg%(X,Y,3)+=9000
  12196.  ** Army **
  12197. 9    no_pl=0:noroom=0:nomoney=0:prod=0:usep=0:canpay=0
  12198.     m=SIam(X,Y)
  12199.  a=1 
  12200.      
  12201.  produce(a)>0 
  12202. (      new=produce(a):usep=produce(a)
  12203. M      
  12204.  produce(a)>SIg%(X,Y,3) 
  12205.  new=SIg%(X,Y,3):usep=SIg%(X,Y,3):no_pl=1
  12206. W      
  12207.  SIk%(X,Y,a)+new>pd 
  12208.  usep-=(new+SIk%(X,Y,a)-pd):new=pd-SIk%(X,Y,a):noroom=1
  12209. \      
  12210.  new*a<=m 
  12211.  m-=new*a 
  12212.  canpay=
  12213. (m/a):m-=canpay*a:usep=canpay:new=canpay:nomoney=1
  12214.       prod+=new
  12215.       SIg%(X,Y,3)-=usep
  12216.       SIk%(X,Y,a)+=new
  12217.      
  12218. +    
  12219.  prod>0 
  12220. cms(t$(448)+
  12221. (prod),xy,0)
  12222. *    a=produce(1)+produce(2)+produce(3)
  12223.     b=0:
  12224.  a>prod 
  12225.  b=a-prod
  12226.  b>0 
  12227. &     a$="":b$="":c$="":d$="":e$=""
  12228. "     
  12229.  nomoney 
  12230.  a$="No money"
  12231. .    "     
  12232.  noroom  
  12233.  b$="No space"
  12234. &     
  12235.  no_pl   
  12236.  c$="No plutonium"
  12237. %     
  12238.  b$<>"" 
  12239.  a$<>"" 
  12240.  d$=" / "
  12241. 0     
  12242.  c$<>"" 
  12243.  (a$<>"" 
  12244.  b$<>"" )
  12245.  e$=" / "
  12246. ,     x$="":y$="s":
  12247.  b>1 
  12248.  x$="s":y$="ve"
  12249. ;     
  12250. (b)+" battle unit"+x$+" ha"+y$+t$(449),xy,0)
  12251. "     
  12252. cms(a$+d$+b$+e$+c$,xy,0)
  12253.         
  12254.  ** Mining **
  12255.  SIrm(X,Y)>0 
  12256.      a=mining
  12257. (     
  12258.  SIg%(X,Y,3)<a 
  12259.  a=SIg%(X,Y,3)
  12260.      a+=madd
  12261. $     
  12262.  a>SIrm(X,Y) 
  12263.  a=SIrm(X,Y)
  12264. 7     SIg%(X,Y,1)+=a:
  12265.  SIg%(X,Y,1)>pd SIg%(X,Y,1)=pd
  12266. :     
  12267.  IF invent%(SIi(X,Y),14)=0 SIg%(X,Y,3)-=(a-madd)
  12268.      SIg%(X,Y,3)-=(a-madd)
  12269.      SIrm(X,Y)-=a
  12270. .$        
  12271. .(6    
  12272.  IF invent%(SIi(X,Y),14) THEN SIg%(X,Y,3)=upd
  12273. .,#  
  12274.  ** Sehen, ob zuviel Pluton.
  12275. .-)    
  12276.  SIg%(X,Y,3)>pd 
  12277.  SIg%(X,Y,3)=pd
  12278. .01  
  12279.  ** Armyproduktion hoert auf *************
  12280.     RN=0
  12281. .2>    
  12282.  normalfont>10 
  12283.  produce(1)+produce(2)+produce(3)>0 
  12284.      co=0
  12285. .40     
  12286.  produce(1)+produce(2)+produce(3)
  12287.       
  12288. (50)=1 
  12289.  co+=1
  12290.      
  12291.      
  12292.  co>0 
  12293. cs_repair
  12294.      
  12295.  co>0 
  12296. .90      a$="unit has":
  12297.  co>1 
  12298.  a$="units have"
  12299. .:8      
  12300. (co)+" production "+a$+" stopped.",xy,0)
  12301.      
  12302. .<        
  12303. .?1  
  12304.  ** Trading Center-Aktivitaeten **********
  12305. .@!    
  12306.  tcenter>0 
  12307. cs_tcenter
  12308. .B$  
  12309.  ** Gute Aliens auf Planet **
  12310.  alvil>2 
  12311. (25)=1 
  12312.      e=
  12313. (alvil)
  12314. .F-     credits(lord)+=e:
  12315.  lord=1 credits+=e
  12316.      
  12317. cms(t$(450),xy,0)
  12318. .H'     
  12319. cms(t$(451)+
  12320. (e)+" MC.",xy,0)
  12321. .I5     
  12322.  SIi(X,Y)<=players 
  12323. donotice(X,Y,t$(452))
  12324. .J        
  12325. .L1  
  12326.  ** Nahrungsproduktion ausrechnen ********
  12327. .M1    SIg%(X,Y,2)-=
  12328. (SIg%(X,Y,2)/6) :
  12329.  verdorrt
  12330. .N3    SIg%(X,Y,2)+=SIna(X,Y)          :
  12331.  neu dazu
  12332. .P1  
  12333.  ** Ob Nahrungsfelder eingehen ***********
  12334.     S=0
  12335.  plan(X,Y) 
  12336.      
  12337.  1:R=1:S=1
  12338.      
  12339.  2:R=4:S=1
  12340.      
  12341.  3:R=5
  12342.      
  12343.  4:R=3
  12344.      
  12345.  5:R=5
  12346.      
  12347.  6:R=2:S=1
  12348.      
  12349.  8:R=-5
  12350. .Z        
  12351. .\"    
  12352. (10-R)=1 
  12353. cs_collapse
  12354. .^1  
  12355.  ** Ob Stadt expandiert ******************
  12356.     e=0:exp=0
  12357.  SIc(X,Y)>0 
  12358.      nx=0:ny=0
  12359.      
  12360.  SIc(X,Y)
  12361.       
  12362. (20)=1 
  12363.  exp+=1
  12364.      
  12365. .f        
  12366.  exp>0 
  12367. cityexpand
  12368. .i5  
  12369.  ** Ob Aliendorf expandiert ******************
  12370. .k     
  12371.  alvil>0 
  12372. cs_alexpand
  12373. .m1  
  12374.  ** Nahrungsverbrauch ********************
  12375.     needed=SIc(X,Y)*3+1
  12376.  needed>SIg%(X,Y,2) 
  12377.      
  12378. cms(t$(453),xy,0)
  12379. .t5     
  12380.  SIi(X,Y)<=players 
  12381. donotice(X,Y,t$(454))
  12382.      SIr(X,Y)+=3
  12383. .w@     SIg%(X,Y,2)-=needed:needed=SIg%(X,Y,2)*-1:SIg%(X,Y,2)=0
  12384.      closedown=0
  12385.      
  12386.  SIc(X,Y)>0 
  12387. .|       
  12388.  SIc(X,Y)*3<=needed 
  12389.        needed-=SIc(X,Y)*3
  12390.        closedown=SIc(X,Y)
  12391.        SIc(X,Y)=0
  12392.       
  12393.         SIc(X,Y)-=
  12394. (needed/3)
  12395.         closedown=
  12396. (needed/3)
  12397.        needed=0
  12398.       
  12399.       
  12400.  closedown>0 
  12401. 7       a$="cities have":
  12402.  closedown=1 a$="city has"
  12403. R       
  12404.  closedown>0 
  12405. (closedown)+" "+a$+t$(455),xy,0):
  12406. cms(t$(456),xy,0)
  12407.       
  12408.       
  12409.        
  12410. 7        
  12411.  surf%(A,B)=5 
  12412.  surf%(A,B)=20:closedown-=1
  12413. #        
  12414.  closedown=0 A=16:B=16
  12415.        
  12416.       
  12417.      
  12418.      
  12419.  needed>0 
  12420.       
  12421.        
  12422. 6        
  12423.  surf%(A,B)=1 
  12424.  surf%(A,B)=10:stations-=1
  12425. "        
  12426.  stations=0 A=16:B=16
  12427.        
  12428.       
  12429.       
  12430.        
  12431. donotice(X,Y,t$(460))
  12432.       
  12433. cms(t$(457),xy,1)
  12434.       
  12435.  SIi(X,Y)<=players 
  12436.        
  12437. cms(t$(458),xy,1)
  12438.       
  12439.        b$= H$(SIi(X,Y))
  12440. 1       
  12441. g(SIi(X,Y))+" "+b$+t$(459),xy,1)
  12442.       
  12443. ,      SIi(X,Y)=0:
  12444. 3:SIk%(X,Y,a)=0:
  12445.        SIr(X,Y)=0:SIam(X,Y)=0
  12446.      
  12447. (     
  12448.  SIg%(X,Y,2)>pd SIg%(X,Y,2)=pd
  12449.         
  12450.      SIg%(X,Y,2)-=needed
  12451. (     
  12452.  SIg%(X,Y,2)>pd SIg%(X,Y,2)=pd
  12453.         
  12454.  IF xy<>7 xy+=1
  12455.      
  12456.  xy>15 xy=0
  12457.  Zufriedenheitstabelle
  12458.      tb=SItb%(X,Y)
  12459.      
  12460.  n=1 
  12461.       k=tb 
  12462.  15<<(n-1)*4
  12463.       var(n)=k>>(n-1)*4
  12464.      
  12465.      
  12466.  n=1 
  12467.       var(n)=var(n+1)
  12468.      
  12469.      var(7)=SIr(X,Y)
  12470.      
  12471.  var(7)>15 var(7)=15
  12472.      
  12473.  var(7)<0 var(7)=0
  12474.      SItb%(X,Y)=0
  12475.      
  12476.  n=1 
  12477. 1      SItb%(X,Y)=SItb%(X,Y) 
  12478.  var(n)<<(n-1)*4
  12479.      
  12480. N    
  12481.  window_open 
  12482.  SIi(X,Y)<=players 
  12483. cms("Report ends.",xy,0):
  12484. shortinfo
  12485. getMKw
  12486. G    
  12487.  SIam(X,Y)>SIc(X,Y)*2+SIs(X,Y) 
  12488.  SIam(X,Y)=SIc(X,Y)*2+SIs(X,Y)
  12489. code(X,Y)
  12490. cs_cultivation
  12491. playsoon(5)
  12492. donotice(X,Y,t$(461))
  12493. cms(t$(462),5,1)
  12494. cms(t$(463),7,1)
  12495. cms(t$(464),8,1)
  12496. cms(t$(465),9,1)
  12497. getMKw
  12498.  plan(X,Y)=6
  12499.  SIs(X,Y)=10
  12500.  s<10 SIs(X,Y)-=1
  12501.  s>12 SIs(X,Y)+=1
  12502.  SIi(X,Y)<=players 
  12503. cms("",0,0)
  12504.      xy=0
  12505. cs_clearing
  12506. playsoon(9)
  12507. donotice(X,Y,t$(466))
  12508. cms(t$(467),5,1)
  12509. cms(t$(468),7,1)
  12510. cms(t$(469),8,1)
  12511. cms(t$(470),9,1)
  12512. getMKw
  12513.  plan(X,Y)=4
  12514.  SIs(X,Y)=6
  12515.  s<10 SIs(X,Y)-=1
  12516.  s>12 SIs(X,Y)+=1
  12517.  SIi(X,Y)<=players 
  12518. cms("",0,0)
  12519.      xy=0
  12520. cityexpand
  12521.  A=1 
  12522.       B=0
  12523.  kx=1
  12524.  ky=1
  12525. ?    
  12526.  surf%(kx,ky)=5 
  12527.  nx=kx: ny=ky: B+=1:
  12528.  B=A kx=16:ky=16
  12529.   kx=0:ky=0:av=0
  12530.  nx>0 
  12531.  ny>0 
  12532.  nx<zb 
  12533.  surf%(nx+1,ny)=0 
  12534.  surf%(nx+1,ny)=9 
  12535.  av=1:kx=nx+1:ky=ny
  12536.  nx>za 
  12537.  surf%(nx-1,ny)=0 
  12538.  surf%(nx-1,ny)=9 
  12539.  av=1:kx=nx-1:ky=ny
  12540.  ny<zb 
  12541.  surf%(nx,ny+1)=0 
  12542.  surf%(nx,ny+1)=9 
  12543.  av=1:kx=nx:ky=ny+1
  12544.  ny>za 
  12545.  surf%(nx,ny-1)=0 
  12546.  surf%(nx,ny-1)=9 
  12547.  av=1:kx=nx:ky=ny-1
  12548.     surf%(kx,ky)=5
  12549.     SIc(X,Y)+=1
  12550.     e=1
  12551. cms(t$(471)+".",xy,0)
  12552.  SIi(X,Y)<=players 
  12553. donotice(X,Y,t$(471))
  12554. changestyle
  12555. adjust(7):screentype=1
  12556. cs_alexpand
  12557.  nx=0:ny=0:exp=0
  12558.  alvil
  12559. (18)=1 
  12560.  exp+=1
  12561.  exp=0 
  12562.       B=0
  12563.  kx=1
  12564.  ky=1
  12565. @    
  12566.  surf%(kx,ky)=22 
  12567.  nx=kx: ny=ky: B+=1:
  12568.  B=A kx=16:ky=16
  12569.   kx=0:ky=0:av=0
  12570.  nx>0 
  12571.  ny>0 
  12572. /$G   
  12573.  nx<zb 
  12574.  s=surf%(nx+1,ny): 
  12575.  s=0 
  12576.  av=1:kx=nx+1:ky=ny
  12577. /%H   
  12578.  nx>za  
  12579.  s=surf%(nx-1,ny): 
  12580.  s=0 
  12581.  av=1:kx=nx-1:ky=ny
  12582. /&G   
  12583.  ny<zb 
  12584.  s=surf%(nx,ny+1): 
  12585.  s=0 
  12586.  av=1:kx=nx:ky=ny+1
  12587. /'H   
  12588.  ny>za  
  12589.  s=surf%(nx,ny-1): 
  12590.  s=0 
  12591.  av=1:kx=nx:ky=ny-1
  12592.     surf%(kx,ky)=22
  12593. cs_commdestroyed
  12594. playsoon(9)
  12595. cms(t$(472),xy,1)
  12596.  SIi(X,Y)<=players 
  12597. cms(t$(458),xy,1)
  12598.   b$= H$(SIi(X,Y))
  12599. /6,  
  12600. g(SIi(X,Y))+" "+b$+t$(459),xy,1)
  12601. /8' SIi(X,Y)=0:
  12602. 3:SIk%(X,Y,a)=0:
  12603.  SIr(X,Y)=0:SIam(X,Y)=0
  12604. cs_repair
  12605.  SIi(X,Y)=1 
  12606.  players=1 
  12607. shortinfo
  12608.  B$="":C$=" needs"
  12609.  co>1 B$="s":C$=" need"
  12610. (co)+t$(473)+B$+C$+t$(474),xy,0)
  12611. cms(t$(475)+
  12612. (co*5)+t$(476),xy,0)
  12613.  accepted=0
  12614.  SIi(X,Y)<=players 
  12615. askmasterb 
  12616.  credits(SIi(X,Y))-=co*5:co=0
  12617.  accepted 
  12618.   lord=SIi(X,Y)
  12619.  lord<=players 
  12620.  players=1 
  12621. /IV    
  12622.  credits>co*5 
  12623.  credits-=co*5:co=0 
  12624.  co-=
  12625. (credits/5):credits-=
  12626. (credits/5)*5
  12627. /Kt    
  12628.  credits(lord)>co*5 
  12629.  credits(lord)-=co*5:co=0 
  12630.  co-=
  12631. (credits(lord)/5):credits(lord)-=
  12632. (credits(lord)/5)*5
  12633.  cox=co
  12634.  cox>0 
  12635.    R=
  12636. /U?     
  12637.  surf%(A,B)=10+R 
  12638.  surf%(A,B)=20:cox-=1:RN+=1:A=1:B=1
  12639.  cox=0
  12640. cs_tcenter
  12641.  R=0:S=0:T=0
  12642. /^1 A=SIg%(X,Y,1): 
  12643.  A>50*tcenter 
  12644.  A=50*tcenter
  12645. /_3 B=SIg%(X,Y,2): 
  12646.  B>100*tcenter 
  12647.  B=100*tcenter
  12648. /`1 C=SIg%(X,Y,3): 
  12649.  C>50*tcenter 
  12650.  C=50*tcenter
  12651.  A>1 
  12652.  (SIl%(X,Y) 
  12653.  1)>0 
  12654.  B>5 
  12655.  (SIl%(X,Y) 
  12656.  2)>0 
  12657. (B-4)
  12658.  C>1 
  12659.  (SIl%(X,Y) 
  12660.  4)>0 
  12661.  SIg%(X,Y,1)-=R:c+=R*2
  12662. /f3 SIg%(X,Y,2)-=S:c+=
  12663. (S/2):
  12664. (S/2)<1 
  12665.  S>0 c+=1
  12666.  SIg%(X,Y,3)-=T:c+=T*2
  12667. cms(t$(477),xy,0)
  12668. cms("Mi: "+
  12669. (R)+" / Fd: "+
  12670. (S)+" / Pl: "+
  12671. (T)+" => "+
  12672. (c)+" MC",xy,0)
  12673.  SIi(X,Y)<=players 
  12674.  T>0 
  12675.  punish%(SIi(X,Y),0)=1
  12676.  SIi(X,Y)=1 
  12677.   trace%(13)+=R
  12678.   trace%(14)+=S
  12679.   trace%(7)+=T
  12680. /p1 credits(SIi(X,Y))+=c:
  12681.  SIi(X,Y)=1 credits+=c
  12682. cs_collapse
  12683.  invent%(SIi(X,Y),11)>0 
  12684. (R*2)
  12685.    x=1
  12686.  surf%(A,B)=2 
  12687.  RN>0 
  12688.  n=A-1 
  12689.      
  12690.  m=B-1 
  12691. K      
  12692.  n>0 
  12693.  m>0 
  12694.  n<17 
  12695.  m<17 
  12696.  surf%(n,m)=29 
  12697.  S=1 
  12698.  x=0:n=A+1:m=B+1
  12699.  x=1 
  12700.       surf%(A,B)=10:RN-=1:c=1
  12701. 6     SIna(X,Y)-=1:
  12702.  SIna(X,Y)<0 
  12703.  SIna(X,Y)=0:RN=0
  12704.         
  12705.  RN=0 A=16:B=16
  12706.  c>0 
  12707. cms(t$(478),xy,0)
  12708. getmouse
  12709.  mx,my,mb
  12710.  mx,my,mb
  12711.   mousewait=0:
  12712.  PROCcllt
  12713.  GCOL 0 TINT 0
  12714.  PROCif_slave(200,228,1079,851,42)
  12715.  PROCif_slave(416,865,1078,983,42)
  12716.  PROCif_slave(202,865,397,983,42)
  12717. introduce
  12718. mpart(12)
  12719. fillarray("sw1",15)
  12720.  0,0:
  12721. 1279,1023:
  12722. sget("scrn")
  12723. schoose("scrn")
  12724. 6,112,1
  12725. plot(0,0,0)
  12726. sdelete("scrn")
  12727. gmerge("ct2")
  12728. frame(0,209,1279,1023,42)
  12729. inframe(8,217,1271,1015,42)
  12730. schoose("export")
  12731. plot(0,12,221)
  12732. sdelete("export")
  12733. 6,112,2
  12734. pixelswap
  12735. introd_talk
  12736.  irow,sl
  12737.  sl=1 
  12738.   b$(sl)=ar$(sl)
  12739.  Hg(1)<>1 
  12740.  b$(13)=ar$(15)
  12741.   irow+=1
  12742. wait(30)
  12743.  irow=14
  12744. payoff(splr,off)
  12745.  noplanet=1:X=0:Y=0
  12746. cms("",0,1)
  12747. cms(t$(479),1,1)
  12748. g(splr)+" "+H$(splr)+",",3,1)
  12749. cms(t$(480),4,1)
  12750. (6)=1 
  12751. cms(t$(481),5,1)
  12752.   Ps%(splr,off)=0
  12753. getMKw
  12754.  noplanet=0
  12755. rebelattack
  12756.  rebelx,rebely,hum,nt
  12757. ( SIr(X,Y)-=3:
  12758.  SIr(X,Y)<0 SIr(X,Y)=0
  12759.  H$=SIn$(X,Y):
  12760. uppercase
  12761. playsoon(8)
  12762. cms(t$(482)+H$,5,1)
  12763. cms(t$(483)+SIn$(X,Y)+" has sent",7,1)
  12764. cms(t$(484),8,1)
  12765. cms(t$(485)+
  12766. g(SIi(X,Y))+" "+H$(SIi(X,Y))+".",9,1)
  12767.  SIi(X,Y)=1 
  12768.  trace%(3)+=1
  12769. getMKw:
  12770.  SIi(X,Y)<=players 
  12771. getMK
  12772.  rebelx=X
  12773.  rebely=Y
  12774.  SIi(X,Y)<=players hum=1 
  12775.  hum=0
  12776. (10*SIc(X,Y))
  12777.  SIk%(X,Y,1)+SIk%(X,Y,2)+SIk%(X,Y,3)>z*3 
  12778.  z+=z
  12779.  rebelpeace=0
  12780. b_start(z,0,0,SIk%(X,Y,1),SIk%(X,Y,2),SIk%(X,Y,3),SIb(X,Y),0,1,2,0,SIn$(X,Y),4,2,2,hum,X,Y,1)
  12781.  hum 
  12782. redo:mousewait=0
  12783.  X=rebelx
  12784.  Y=rebely
  12785.  window_open=0
  12786. cms(t$(486)+SIn$(rebelx,rebely),5,1)
  12787.  b_won=1 
  12788. (15): 
  12789.  SunE(rebelx,R)>0
  12790.  R<>SIi(rebelx,rebely) 
  12791.  existing(R)>0
  12792.   SIi(rebelx,rebely)=R
  12793.   existing(R)=1
  12794.  R<>1 a$=
  12795. g(R)+" "+H$(R) 
  12796.  a$="YOU"
  12797. donotice(X,Y,t$(487))
  12798. cms(t$(488),7,1)
  12799. cms(t$(489),8,1)
  12800. cms(t$(490)+a$+t$(491),9,1)
  12801.   nt=
  12802. (SId(X,Y)/200)
  12803. !  SIk%(X,Y,2)=0:SIk%(X,Y,3)=0
  12804. =  SIk%(X,Y,1)=a_army(1):
  12805.  SIk%(X,Y,1)>nt 
  12806.  SIk%(X,Y,1)=nt
  12807.   SIr(X,Y)=0
  12808.   nt=
  12809. (SId(X,Y)/200)
  12810.    SIk%(X,Y,n)=d_army(n)
  12811.  SIk%(X,Y,n)>nt SIk%(X,Y,n)=nt
  12812. donotice(X,Y,t$(492))
  12813. cms(t$(493),7,1)
  12814. cms(t$(494)+
  12815. g(SIi(rebelx,rebely))+" "+H$(SIi(rebelx,rebely))+"'s hand.",8,1)
  12816. (2)=1 
  12817.  rebelpeace=0 
  12818. cms(t$(495),10,0)
  12819.  invent%(1,12)=0 
  12820. cms(t$(496),11,0)
  12821. cms(t$(497),12,0)
  12822. 0    5     
  12823.  SIg%(X,Y,n)>1 
  12824.  SIg%(X,Y,n)=
  12825. (SIg%(X,Y,n))
  12826.     SIr(X,Y)+=1
  12827. cms(t$(498),11,0)
  12828. cms(t$(499),12,0)
  12829. getMKw
  12830. firstcity
  12831.  gn$,rettX,rettY,n
  12832. fillarray("ct1",10)
  12833.  rettX=X:rettY=Y
  12834.  X=0:Y=0
  12835.  noplanet=1
  12836.  H$=H$(lord):
  12837. uppercase
  12838. playsoon(5)
  12839. cms(H$+t$(500),1,1)
  12840.  n=1 
  12841. cms(ar$(n),2+n,1)
  12842.  noplanet=0
  12843.  X=rettX:Y=rettY
  12844. gmerge("ct1")
  12845. 6,112,1
  12846. frame(0,209,1279,1023,42)
  12847. inframe(8,217,1271,1015,42)
  12848. schoose("export")
  12849. plot(0,12,221)
  12850. sdelete("export")
  12851. getMK
  12852. front(0,209,1279,1023,2)
  12853. getMK
  12854.  window_open=0
  12855. firstspaceport
  12856. hour_off
  12857.  mousewait 
  12858.  mousewait=0:
  12859. getMK
  12860. mpart(10)
  12861.  0,0:
  12862. 1279,204:
  12863. sget("fsp1")
  12864. 6,112,1
  12865. schoose("fsp1"):
  12866. plot(0,0,0)
  12867. frame(0,209,1279,1023,42)
  12868. inframe(8,217,1271,1015,42)
  12869.  0,209:
  12870. 1279,218:
  12871. sget("frame1")
  12872.  0,221:
  12873. 9,1023:
  12874. sget("frame2")
  12875.  0,1014:
  12876. 1279,1023:
  12877. sget("frame3")
  12878.  1268,222:
  12879. 1279,1023:
  12880. sget("frame4")
  12881. f_wht
  12882. showharbour(plan(X,Y),SIn$(X,Y)+" has built a space harbour!")
  12883.  window_open=0
  12884. showharbour(hnum,hstr$)
  12885.  firstframes
  12886. 6,112,1
  12887. smerge("graphic2.hf"+
  12888. (hnum))
  12889.  MOVE 0,0:MOVE1279,1023:PROCsget("shb1")
  12890.  SYS6,112,2:PROCschoose("shb1"):PROCplot(0,0,0):PROCsdelete("shb1")
  12891.  SYS6,112,1
  12892. picture("sh"+
  12893. (hnum))
  12894. 1279,1023:
  12895. sget("picture")
  12896. 6,112,2
  12897. 1279,1023:
  12898. sget("shb1")
  12899. 6,112,1:
  12900. schoose("shb1"):
  12901. plot(0,0,0):
  12902. sdelete("shb1")    
  12903. 24,8+4;217+4;1271-4;1015-4;
  12904.  hnum 
  12905. 0c2  
  12906. smerge("graphic2.hs1"):
  12907. active_harbour6
  12908. 0d2  
  12909. smerge("graphic2.hs1"):
  12910. active_harbour1
  12911. 0e2  
  12912. smerge("graphic2.hs1"):
  12913. active_harbour2
  12914. 0f2  
  12915. smerge("graphic2.hs2"):
  12916. active_harbour3
  12917. 0g2  
  12918. smerge("graphic2.hs3"):
  12919. active_harbour4
  12920. 0h2  
  12921. smerge("graphic2.hs1"):
  12922. active_harbour5
  12923. 0i2  
  12924. smerge("graphic2.hs4"):
  12925. active_harbour8
  12926.  I=2 
  12927. 0m-  
  12928.  6,112,1:
  12929. 1279,1023:
  12930. sget("cop")
  12931. 0n-  
  12932.  6,112,2:
  12933. schoose("cop"):
  12934. plot(0,0,0)
  12935.  6,113,2
  12936. 0q-  
  12937.  6,112,2:
  12938. 1279,1023:
  12939. sget("cop")
  12940. 0r-  
  12941.  6,112,1:
  12942. schoose("cop"):
  12943. plot(0,0,0)
  12944.  6,113,1
  12945. gload("TS1")
  12946. gmerge("PT1")
  12947. ah_one
  12948.  I$=""
  12949.  A,B,C:
  12950. ah_two
  12951. schoose("picture")
  12952. plot(0,0,0)
  12953. ah_three(ppos)
  12954. dspB(hstr$,40,19)
  12955. schoose("picture2")
  12956. plot(8,0,ppos)
  12957.  firstframes <2 
  12958. 24,0;205;1279;1023;
  12959. schoose("frame1"):
  12960. plot(0,0,209)
  12961. schoose("frame2"):
  12962. plot(0,0,221)
  12963. schoose("frame3"):
  12964. plot(0,0,1014)
  12965. schoose("frame4"):
  12966. plot(0,1268,222)
  12967. 24,8+4;217+4;1271-4;1015-4;
  12968.   firstframes+=1
  12969. swapscreen
  12970.  twait=15
  12971. -tcount<twait 
  12972. -tcount>=twait
  12973.  A,B,C
  12974. active_harbour8
  12975.  tcount,twait,goy,gstep,roy,rstep,gwait,rwait
  12976.  tcount=
  12977.  goy=500:gstep=1
  12978.  roy=470:rstep=1
  12979.  gwait%=0:rwait%=0
  12980. ah_one
  12981.   tcount=
  12982. ah_two
  12983.  gwait%=0 
  12984.    goy+=4
  12985.  goy>600 
  12986.     gstep+=1
  12987. .    
  12988.  gstep>15 
  12989.  gstep=1:goy=500:gwait%=20
  12990. schoose("l"+
  12991. (gstep)):
  12992. plot(8,900,goy)
  12993.    gwait%-=1
  12994.  rwait%=0 
  12995.    roy+=4
  12996.  roy>540 
  12997.     rstep+=1
  12998. .    
  12999.  rstep>15 
  13000.  rstep=1:roy=470:rwait%=50
  13001. schoose("l"+
  13002. (rstep)):
  13003. plot(8,420,roy)
  13004.    rwait%-=1
  13005. ah_three(480)
  13006.  I$<>"" 
  13007.  C<>0
  13008. active_harbour5
  13009.  tcount,addx,climb,fcount,fc,arrivex,arrivecount,arrivey,leavex,leavey,leavecount,lander,landed,twait
  13010.  tcount=
  13011. # addx=0:climb=420:fcount=1:fc=0
  13012. * arrivex=200:arrivecount=0:arrivey=500
  13013. ' leavex=532:leavey=400:leavecount=0
  13014.  lander=800:landed=0
  13015. ah_one
  13016.   tcount=
  13017.  climb>496 
  13018.  climb<568 
  13019.    fc+=1:
  13020.  fc>1 
  13021. (     fcount+=1:
  13022.  fcount>5 
  13023.  fcount=5
  13024.     fc=0
  13025.  climb>568 
  13026. =   fcount+=1:
  13027.  fcount>11 
  13028.  climb=384:addx=0:fcount=1:fc=0
  13029.    addx+=12
  13030. ah_two
  13031. schoose("f"+
  13032. (fcount))
  13033. plot(8,1004+addx,climb+64)
  13034.  arrivex<540 
  13035.  arrivex<520 
  13036.  arrivex+=4 
  13037.  arrivex+=2
  13038. schoose("s0")
  13039. plot(8,arrivex+124,arrivey+64)
  13040.    arrivecount+=1
  13041.  arrivecount>8 
  13042.  arrivecount=8
  13043. schoose("s"+
  13044. (arrivecount))
  13045. plot(8,arrivex+124,arrivey+64)
  13046.  arrivecount=8 
  13047.  arrivey-=2
  13048.  arrivey<400 
  13049.  arrivex=-160:arrivey=500:arrivecount=0
  13050.  leavecount=0 
  13051. schoose("p8")
  13052. plot(8,leavex+140,leavey+64)
  13053. '   leavey+=1:
  13054.  leavey<548 leavey+=1
  13055.  leavey<500 leavey+=2
  13056.  leavey>560 
  13057.  leavecount+=1
  13058. schoose("p"+
  13059. (8-leavecount))
  13060. plot(8,leavex+140,leavey+64)
  13061. 2   leavecount+=1:
  13062.  leavecount>8 
  13063.  leavecount=8
  13064.  leavecount=8 
  13065.  leavex-=4
  13066.  leavex<-208 
  13067.  leavex=532:leavey=400:leavecount=0
  13068. %  climb+=1:
  13069.  climb>400 
  13070.  climb+=3
  13071. ah_three(440)
  13072.  I$<>"" 
  13073.  C<>0 
  13074.  landed=1
  13075. active_harbour4
  13076.  tcount,twait,gox,goy,rix,riy
  13077.  tcount=
  13078.  gox=660
  13079.  rix=300
  13080. ah_one
  13081.   tcount=
  13082. ah_two
  13083. .  gox-=4:goy-=0:
  13084.  gox<-80 
  13085.  gox=1300:goy=0
  13086. schoose("s1"):
  13087. plot(8,gox,712+goy)
  13088.   rix+=4:
  13089.  rix>1300 
  13090.  rix=0
  13091. schoose("g1"):
  13092. plot(8,rix,600)
  13093. ah_three(560)
  13094.  I$<>"" 
  13095.  C<>0
  13096. active_harbour3
  13097.  tcount,addx,climb,fcount,fc,arrivex,arrivecount,arrivey,leavex,leavey,leavecount,twait,gox,goy
  13098.  tcount=
  13099. # addx=0:climb=420:fcount=1:fc=0
  13100.  gox=660
  13101. ah_one
  13102.   tcount=
  13103.  climb>480 
  13104. (   fcount+=1:
  13105.  fcount>10 
  13106.  fcount=10
  13107. 1    4    
  13108.  climb>700 
  13109.  climb=412:addx=0:fcount=1:fc=0
  13110. %   addx+=4:
  13111.  climb>500 
  13112.  addx+=12
  13113. ah_two
  13114. -  gox-=4:goy-=0:
  13115.  gox<-80 
  13116.  gox=660:goy=0
  13117. schoose("s"):
  13118. plot(8,gox,712+goy)
  13119. schoose("c"+
  13120. (fcount))
  13121. plot(8,900+addx,climb+300)
  13122. ah_three(680)
  13123. %  climb+=2:
  13124.  climb>460 
  13125.  climb+=2
  13126.  I$<>"" 
  13127.  C<>0
  13128. active_harbour2
  13129.  tcount,addx,climb,fcount,fc,arrivex,arrivecount,arrivey,leavex,leavey,leavecount,lander,landed,twait
  13130.  tcount=
  13131. # addx=0:climb=420:fcount=1:fc=0
  13132. * arrivex=200:arrivecount=0:arrivey=500
  13133. ' leavex=532:leavey=400:leavecount=0
  13134.  lander=800:landed=0
  13135. ah_one
  13136.   tcount=
  13137.  climb>496 
  13138.  climb<568 
  13139.    fc+=1:
  13140.  fc>1 
  13141. 1"(     fcount+=1:
  13142.  fcount>5 
  13143.  fcount=5
  13144.     fc=0
  13145.  climb>568 
  13146. 1'D   fcount+=1:
  13147.  fcount>11 
  13148.  climb=384:addx=
  13149. (40)-40:fcount=1:fc=0
  13150.    addx-=4
  13151. ah_two
  13152. schoose("f"+
  13153. (fcount))
  13154. 1,   
  13155. plot(8,592+addx,climb+64)
  13156.  arrivex<540 
  13157. 1..   
  13158.  arrivex<520 
  13159.  arrivex+=4 
  13160.  arrivex+=2
  13161. schoose("s0")
  13162. 10"   
  13163. plot(8,arrivex,arrivey+64)
  13164.    arrivecount+=1
  13165. 13&   
  13166.  arrivecount>8 
  13167.  arrivecount=8
  13168. 14#   
  13169. schoose("s"+
  13170. (arrivecount))
  13171. 15"   
  13172. plot(8,arrivex,arrivey+64)
  13173. 16#   
  13174.  arrivecount=8 
  13175.  arrivey-=2
  13176. 17<   
  13177.  arrivey<400 
  13178.  arrivex=-48:arrivey=500:arrivecount=0
  13179.  leavecount=0 
  13180. schoose("p8")
  13181. 1;    
  13182. plot(8,leavex,leavey+64)
  13183. 1<'   leavey+=1:
  13184.  leavey<548 leavey+=1
  13185.  leavey<500 leavey+=2
  13186. 1>#   
  13187.  leavey>560 
  13188.  leavecount+=1
  13189. 1@$   
  13190. schoose("p"+
  13191. (8-leavecount))
  13192. 1A    
  13193. plot(8,leavex,leavey+64)
  13194. 1B2   leavecount+=1:
  13195.  leavecount>8 
  13196.  leavecount=8
  13197. 1C!   
  13198.  leavecount=8 
  13199.  leavex-=4
  13200. 1D8   
  13201.  leavex<-48 
  13202.  leavex=532:leavey=400:leavecount=0
  13203. ah_three(440)
  13204. 1G%  climb+=1:
  13205.  climb>400 
  13206.  climb+=3
  13207.  I$<>"" 
  13208.  C<>0 
  13209.  landed=1
  13210. active_harbour1
  13211.  tcount,addx,climb,fcount,fc,arrivex,arrivecount,arrivey,leavex,leavey,leavecount,lander,landed,twait
  13212.  tcount=
  13213. 1N# addx=0:climb=420:fcount=1:fc=0
  13214. 1O* arrivex=200:arrivecount=0:arrivey=500
  13215. 1P' leavex=532:leavey=400:leavecount=0
  13216.  lander=800:landed=0
  13217. ah_one
  13218.   tcount=
  13219.  climb>496 
  13220.  climb<568 
  13221.    fc+=1:
  13222.  fc>1 
  13223. 1W(     fcount+=1:
  13224.  fcount>5 
  13225.  fcount=5
  13226.     fc=0
  13227.  climb>568 
  13228. 1\D   fcount+=1:
  13229.  fcount>11 
  13230.  climb=384:addx=
  13231. (40)-40:fcount=1:fc=0
  13232.    addx-=4
  13233. ah_two
  13234. schoose("f"+
  13235. (fcount))
  13236. 1a   
  13237. plot(8,692+addx,climb+64)
  13238.  arrivex<540 
  13239. 1c.   
  13240.  arrivex<520 
  13241.  arrivex+=4 
  13242.  arrivex+=2
  13243. schoose("s0")
  13244. 1e"   
  13245. plot(8,arrivex,arrivey+64)
  13246.    arrivecount+=1
  13247. 1h&   
  13248.  arrivecount>8 
  13249.  arrivecount=8
  13250. 1i#   
  13251. schoose("s"+
  13252. (arrivecount))
  13253. 1j"   
  13254. plot(8,arrivex,arrivey+64)
  13255. 1k#   
  13256.  arrivecount=8 
  13257.  arrivey-=2
  13258. 1l<   
  13259.  arrivey<400 
  13260.  arrivex=-48:arrivey=500:arrivecount=0
  13261.  leavecount=0 
  13262. schoose("p8")
  13263. 1p    
  13264. plot(8,leavex,leavey+64)
  13265. 1q'   leavey+=1:
  13266.  leavey<548 leavey+=1
  13267.  leavey<500 leavey+=2
  13268. 1s#   
  13269.  leavey>560 
  13270.  leavecount+=1
  13271. 1u$   
  13272. schoose("p"+
  13273. (8-leavecount))
  13274. 1v    
  13275. plot(8,leavex,leavey+64)
  13276. 1w2   leavecount+=1:
  13277.  leavecount>8 
  13278.  leavecount=8
  13279. 1x!   
  13280.  leavecount=8 
  13281.  leavex-=4
  13282. 1y8   
  13283.  leavex<-48 
  13284.  leavex=532:leavey=400:leavecount=0
  13285. ah_three(460)
  13286. 1|%  climb+=1:
  13287.  climb>400 
  13288.  climb+=3
  13289.  I$<>"" 
  13290.  C<>0 
  13291.  landed=1
  13292. active_harbour6
  13293.  tcount,addx,climb,fcount,fc,arrivex,arrivecount,arrivey,leavex,leavey,leavecount,lander,landed,twait
  13294.  tcount=
  13295. # addx=0:climb=420:fcount=1:fc=0
  13296. * arrivex=200:arrivecount=0:arrivey=500
  13297. ' leavex=532:leavey=400:leavecount=0
  13298.  lander=800:landed=0
  13299. ah_one
  13300.   tcount=
  13301.  climb>496 
  13302.  climb<568 
  13303.    fc+=1:
  13304.  fc>1 
  13305. (     fcount+=1:
  13306.  fcount>5 
  13307.  fcount=5
  13308.     fc=0
  13309.  climb>568 
  13310. D   fcount+=1:
  13311.  fcount>11 
  13312.  climb=384:addx=
  13313. (40)-40:fcount=1:fc=0
  13314.    addx-=4
  13315. ah_two
  13316. schoose("f"+
  13317. (fcount))
  13318. plot(8,692+addx,climb+64)
  13319.  arrivex<540 
  13320.  arrivex<520 
  13321.  arrivex+=4 
  13322.  arrivex+=2
  13323. schoose("s0")
  13324. plot(8,arrivex,arrivey+64)
  13325.    arrivecount+=1
  13326.  arrivecount>8 
  13327.  arrivecount=8
  13328. schoose("s"+
  13329. (arrivecount))
  13330. plot(8,arrivex,arrivey+64)
  13331.  arrivecount=8 
  13332.  arrivey-=2
  13333.  arrivey<400 
  13334.  arrivex=-48:arrivey=500:arrivecount=0
  13335.  leavecount=0 
  13336. schoose("p8")
  13337. plot(8,leavex,leavey+64)
  13338. '   leavey+=1:
  13339.  leavey<548 leavey+=1
  13340.  leavey<500 leavey+=2
  13341.  leavey>560 
  13342.  leavecount+=1
  13343. schoose("p"+
  13344. (8-leavecount))
  13345. plot(8,leavex,leavey+64)
  13346. 2   leavecount+=1:
  13347.  leavecount>8 
  13348.  leavecount=8
  13349.  leavecount=8 
  13350.  leavex-=4
  13351.  leavex<-48 
  13352.  leavex=532:leavey=400:leavecount=0
  13353. ah_three(464)
  13354. %  climb+=1:
  13355.  climb>400 
  13356.  climb+=3
  13357.  I$<>"" 
  13358.  C<>0 
  13359.  landed=1
  13360. alienattack
  13361.  ck,nd
  13362.  normalfont<10 
  13363.  H$=SIn$(X,Y):
  13364. uppercase
  13365. playsoon(8)
  13366. donotice(X,Y,t$(501))
  13367. cms(t$(502)+H$,5,1)
  13368. cms(t$(503),7,1)
  13369. cms("storm "+SIn$(X,Y)+t$(504),8,1)
  13370.  SIi(X,Y)<=players 
  13371. getMK:hum=1 
  13372. getMKw:hum=0
  13373. (normalfont*3/2):
  13374.  m>70 m=70
  13375. b_start(
  13376. (m/2)),0,
  13377. (m),SIk%(X,Y,1),SIk%(X,Y,2),SIk%(X,Y,3),SIb(X,Y),1,0,2,0,SIn$(X,Y),4,2,2,hum,X,Y,1)
  13378.  hum 
  13379.  window_open=0
  13380.  X=rtx:Y=rty
  13381. cms("Aliens at "+SIn$(rtx,rty),5,1)
  13382.  b_won=1 
  13383. cms(t$(505),7,1)
  13384. cms(t$(506),8,1)
  13385. cms(t$(507),9,1)
  13386. 3:SIg%(rtx,rty,n)=0:SIk%(rtx,rty,n)=0:
  13387. 2  SIg%(rtx,rty,2)=2:
  13388.  2 Food Units als Reserve
  13389.  rX=1
  13390.  rY=1
  13391.     s=surf%(rX,rY)
  13392. 9    
  13393.  s=2 
  13394. (2)=1 
  13395.  surf%(rX,rY)=10:SIna(rtx,rty)-=1
  13396. 8    
  13397.  s=5 
  13398. (2)=1 
  13399.  surf%(rX,rY)=20:SIc(rtx,rty)-=1
  13400. g(SIi(rtx,rty))+" "+H$(SIi(rtx,rty))+t$(508),7,1)
  13401. cms(t$(509),8,1)
  13402.   nd=
  13403. (SId(X,Y)/200)
  13404.    SIk%(X,Y,n)=d_army(n)
  13405.  SIk%(X,Y,n)>nd 
  13406.  SIk%(X,Y,n)=nd
  13407. getMKw
  13408. enemyattack
  13409.  eax,eay,savlord,le,lf,pl,pt,pr,rfutt,plralley
  13410.  X=xx:Y=yy
  13411.  SIr(X,Y)+=1
  13412.  SIi(X,Y)<=players 
  13413.  players>1 
  13414.    plr=SIi(X,Y):savlord=plr
  13415.    plralley=plr
  13416. plrswap
  13417.    plralley=1
  13418. enemyplayerattack
  13419.  players>1 
  13420.    plr=savlord
  13421. plrswap
  13422.  pr=1 
  13423.  players
  13424.  allied(pr,SIi(X,Y)) 
  13425.    eax=0:eay=0
  13426.    b=0
  13427.      
  13428.  SIi(x,y)=pr 
  13429. /      a=SIk%(x,y,1)+SIk%(x,y,2)+SIk%(x,y,3)
  13430. !      
  13431.  a>b 
  13432.  b=a:eax=x:eay=y
  13433.      
  13434.  b>1 
  13435. 6,112,1
  13436. gmerge("br4")
  13437. gmerge("br5")
  13438. gmerge("td2")
  13439. fillarray("wa1",6)
  13440.     noplanet=1
  13441.     rX=X:rY=Y
  13442.     X=0:Y=0
  13443.     l=SIi(rX,rY)
  13444. )    
  13445.  Hg(l)=1 
  13446.  le=1:lf=3 
  13447.  le=2:lf=6
  13448. cms("",1,1)
  13449. 6,112,1
  13450. 5    
  13451. schoose("flag"+
  13452. (flag(pr))):
  13453. plot(0,548,876)
  13454. 2!)    
  13455. g(l)+" "+H$(l)+t$(510),1,1)
  13456. cms(ar$(le),3,1)
  13457. 2#'    c=
  13458. (4)*2: 
  13459.  c>credits c=credits
  13460.  c<1 c=1
  13461.     cb()=0
  13462. 2&/    
  13463. cms(ar$(lf)+" "+SIn$(eax,eay)+".",4,1)
  13464. 2'(    
  13465. cms(ar$(4)+" "+
  13466. (c)+" MC.",5,1)
  13467. cms(ar$(5),7,1)
  13468. 2*,     
  13469. (SIk%(eax,eay,n)),330,12+n*2)
  13470.      
  13471. cds("0",440,12+n*2)
  13472.      
  13473. schoose("export3")
  13474.      
  13475. plot(8,600,556-80*n)
  13476.      
  13477. schoose("tr"+
  13478. (3+n))
  13479.      
  13480. plot(0,220,548-80*n)
  13481.      
  13482.  SIk%(eax,eay,n)=0 
  13483.       
  13484. schoose("tr0")
  13485.       
  13486. plot(8,220,548-80*n)
  13487.      
  13488. 24        
  13489. schoose("export4")
  13490. plot(0,800,400)
  13491.     noplanet=0
  13492. mfront
  13493.     exit=0
  13494. 2<        
  13495.      
  13496.  A,B,C:
  13497.       
  13498. 2?        
  13499. getInc(600,556-80*n)
  13500. 2@B       
  13501.  inc=1 
  13502.  SIk%(eax,eay,n)>0 cb(n)+=1:SIk%(eax,eay,n)-=1
  13503. 2A8       
  13504.  inc=-1
  13505.  cb(n)>0 cb(n)-=1:SIk%(eax,eay,n)+=1
  13506.       
  13507.       
  13508. 6,112,1
  13509. 2D%      
  13510.  214,287,372,244
  13511.       
  13512. 2F.       
  13513. (SIk%(eax,eay,n)),330,12+n*2)
  13514. 2G$       
  13515. (cb(n)),440,12+n*2)
  13516. 2H        
  13517. schoose("tr"+
  13518. (3+n))
  13519. 2I        
  13520. plot(0,220,548-80*n)
  13521. 2J        
  13522.  SIk%(eax,eay,n)=0 
  13523.         
  13524. schoose("tr0")
  13525. 2L!        
  13526. plot(8,220,548-80*n)
  13527.        
  13528.       
  13529. 2O#      
  13530. front(214,287,586,521,2)
  13531.       
  13532. wait(10)
  13533.       
  13534. getExit(800,400)
  13535.      
  13536.  exit
  13537.     X=rX:Y=rY
  13538.     SIi(0,0)=0
  13539. sdelete("export3")
  13540. sdelete("export4")
  13541. 2X%    
  13542. sdelete("tr"+
  13543. (n)):
  13544.     noplanet=0
  13545.  cb(1)+cb(2)+cb(3)>3 
  13546.      credits-=c
  13547. 2\'     
  13548. 3:SIk%(X,Y,n)+=cb(n):
  13549.      trace%(15)+=1
  13550. 2^        
  13551. 2_/     
  13552. (2)=1 allied(l,pr)=0:allied(pr,l)=0
  13553. 2`        
  13554. 2g%  R=4:
  13555.  (hi%(SIi(X,Y)) 
  13556. 2h(  
  13557. (R)=1 
  13558.  evillord(SIi(X,Y))=lord
  13559.   window_open=0
  13560. b_start(eship(lord,1),eship(lord,2),eship(lord,3),SIk%(X,Y,1),SIk%(X,Y,2),SIk%(X,Y,3),SIb(X,Y),0,0,1,0,SIn$(X,Y),2,2,2,0,X,Y,lord)
  13561.   pl=0
  13562.  pt=1
  13563.  players
  13564.  SunE(X,pt) 
  13565.  pl=1
  13566. mpart(8)
  13567. gmerge("bt1")
  13568. 6,112,1
  13569. 2v!   
  13570. frame(0,209,1279,1023,42)
  13571. 2w#   
  13572. inframe(8,217,1271,1015,42)
  13573. schoose("export")
  13574. plot(0,12,221)
  13575. sdelete("export")
  13576. 2{/   
  13577. dspB(t$(105)+SIn$(xx,yy)+t$(511),23,19)
  13578. 2|    
  13579. front(0,209,1279,1023,2)
  13580. getMK
  13581. cms("",0,1)
  13582. cms(SIn$(xx,yy)+t$(512),5,1)
  13583. #  b$= H$(lord)+title$(Ha(lord))
  13584. cms(t$(513)+b$+".",6,1)
  13585. (SId(xx,yy)/200)
  13586.  b_won=1 
  13587. cms(H$(lord)+t$(514),7,1)
  13588. g(SIi(xx,yy))+" "+H$(SIi(xx,yy))+".",8,1)
  13589. donotice(xx,yy,H$(lord)+t$(515)+H$(SIi(xx,yy))+t$(516))
  13590. /    SIk%(xx,yy,W)=a_army(W):eship(lord,W)=0
  13591.     k=SIk%(xx,yy,W)
  13592. 5    
  13593.  k>d 
  13594.  a=k-d:SIk%(xx,yy,W)=d:eship(lord,W)=a
  13595.  plan(xx,yy)=8 
  13596.     r=0
  13597.      
  13598.  psun(lord,a)=0 
  13599.     psun(lord,r)=xx
  13600. *     
  13601.  psun(SIi(xx,yy),a)=xx 
  13602.  rfutt=a
  13603. 1    ptarget(lord,r)=ptarget(SIi(xx,yy),rfutt)
  13604. #    ptarget(SIi(xx,yy),rfutt)=0
  13605.     psun(SIi(xx,yy),r)=0
  13606.    SIi(xx,yy)=lord
  13607. g(SIi(xx,yy))+" "+H$(SIi(xx,yy))+t$(517),7,1)
  13608. cms(H$(lord)+t$(518),8,1)
  13609. donotice(xx,yy,H$(lord)+t$(519)+H$(SIi(xx,yy))+t$(516))
  13610.     SIk%(xx,yy,W)=d_army(W)
  13611. )    
  13612.  SIk%(xx,yy,W)>d SIk%(xx,yy,W)=d
  13613. getMKw
  13614.  PROCcllt
  13615.  window_open=0
  13616. spyspot
  13617.  spotted=0
  13618.  a=MIs(lord):b=MIp(lord)
  13619.  X=a:Y=b
  13620. (10):
  13621.  invent%(SIi(a,b),12)=1 
  13622.  R+=Ps%(lord,4)*2
  13623.  H$=SIn$(a,b):
  13624. uppercase
  13625.  R<4 
  13626. playsoon(9)
  13627.  SIi(a,b)<=players 
  13628.  mousewait 
  13629.  mousewait=0:
  13630. getMK
  13631. gmerge("ct3")
  13632. 6,112,1
  13633. frame(0,209,1279,1023,42)
  13634. inframe(8,217,1271,1015,42)
  13635. schoose("export")
  13636. plot(0,12,221)
  13637. sdelete("export")
  13638. f_wht
  13639. dspB(t$(520)+SIn$(a,b),40,19)
  13640.  0,209:
  13641. 1279,1023:
  13642. sget("spr")
  13643. 6,112,2
  13644. schoose("spr")
  13645. plot(0,0,209)
  13646. sdelete("spr")
  13647. getMK
  13648.   a=MIs(lord):b=MIp(lord)
  13649. cms(t$(521)+H$,5,1)
  13650. cms(t$(522),7,1)
  13651. cms(t$(523)+SIn$(a,b)+".",8,1)
  13652. donotice(a,b,t$(533))
  13653.  R<>1 
  13654.  invent%(SIi(a,b),13)=0 
  13655. cms(t$(524),9,1)
  13656. cms(t$(525),9,1)
  13657.  SIi(a,b)=1 
  13658. cms(t$(526),10,1)
  13659. askmasterb
  13660.     window_open=0
  13661.  accepted=1 
  13662.      
  13663. cms(t$(527),5,1)
  13664.         
  13665.      
  13666. cms(t$(528),5,1)
  13667.      
  13668. cms(t$(529),6,1)
  13669. 4     
  13670. cms(t$(530)+
  13671. g(lord)+" "+H$(lord)+".",8,1)
  13672. =     
  13673. cms(H$(lord)+" owns "+
  13674. (credits(lord))+t$(531),9,1)
  13675.      c=0
  13676.      
  13677.  m=1 
  13678.       
  13679.  n=1 
  13680. !       
  13681.  SIi(m,n)=lord 
  13682.  c+=1
  13683.       
  13684.      
  13685.      
  13686.  c<>1 B$="s" 
  13687.  B$=""
  13688. 6     
  13689. cms("and rules "+
  13690. (c)+" planet"+B$+".",10,1)
  13691. ?     f=etrans%(lord)+ewar%(lord)+ebomb%(lord)+escout%(lord)
  13692. )     
  13693. cms(H$(lord)+t$(532)+
  13694. (f),11,1)
  13695.      
  13696. cms("ships.",12,1)
  13697.         
  13698.     evillord(SIi(a,b))=lord
  13699. getMKw
  13700.   spotted=1
  13701.   H$=SIn$(a,b):
  13702. uppercase
  13703. decode(a,b)
  13704. playsoon(9)
  13705.  MI(lord)<>2 
  13706. cms(t$(534)+H$,5,1)
  13707. donotice(a,b,t$(535))
  13708.  VDU30:PRINT MI(lord)
  13709.  MI(lord) 
  13710. attempt(1):SIr(a,b)+=1
  13711. epidemic(2)
  13712. attempt(4):SIr(a,b)+=2
  13713. attempt(
  13714. (3)+10):SIr(a,b)+=1
  13715. attempt(16):SIr(a,b)+=1
  13716. attempt(17):SIr(a,b)+=2
  13717. attempt(3):SIr(a,b)+=1
  13718. code(MIs(lord),MIp(lord))
  13719.   spotted=0
  13720.  window_open=0
  13721. attempt(atm)
  13722.  x=0:y=0:c=0
  13723.  surf%(V,U)=atm 
  13724.     c=1
  13725. U    
  13726.  SIi(MIs(lord),MIp(lord))=1 
  13727.  watcher=1:
  13728. cms(t$(536),9,1):
  13729. getMK 
  13730.  watcher=0
  13731. bombing(a,b,2)
  13732.     V=16:U=16
  13733.  watcher=0 
  13734. getMKw
  13735. playsoon(8)
  13736.  rx,ry
  13737.  rx=X:ry=Y
  13738.  H$=SIn$(X,Y):
  13739. uppercase
  13740. cms(t$(537)+H$,5,1)
  13741.  x=0:y=0:c=0
  13742.  surf%(V,U)=4 
  13743. cms(t$(538),8,1)
  13744. 3%'    
  13745. cms(t$(539)+SIn$(X,Y)+".",9,1)
  13746.  SIi(X,Y)<=players 
  13747.      watcher=1:
  13748. getMK
  13749. 3(        
  13750.      watcher=0
  13751. 3*        
  13752. 3+%    c=1:
  13753. bombing(X,Y,2):V=16:U=16
  13754. 3-      
  13755.  X=rx:Y=ry
  13756.  watcher=0 
  13757. getMKw
  13758.  window_open=0
  13759.  watcher=0
  13760. meteor
  13761. playsoon(8)
  13762.  rx,ry,t,l
  13763.  rx=X:ry=Y
  13764.  H$=SIn$(X,Y):
  13765. uppercase
  13766. donotice(X,Y,t$(540))
  13767.  usemeteor=1
  13768. cms(t$(541)+H$,1,1)
  13769.  usemeteor=0
  13770.  invent%(SIi(X,Y),14)=0 
  13771. 3A%  
  13772. cms(t$(542)+SIn$(X,Y)+",",3,1)
  13773. cms(t$(543),4,1)
  13774. cms(t$(544),5,1)
  13775.   x=0:y=0:c=0
  13776.  V=RND(zb-za+1)+za-1
  13777.  U=RND(zb-za+1)+za-1
  13778.  SIi(X,Y)<=players 
  13779. cms(t$(536),7,0)
  13780.    watcher=1:
  13781. getMK
  13782.    watcher=0
  13783.   c=1:
  13784. bombing(X,Y,4)
  13785.   X=rx:Y=ry
  13786.  watcher=0 
  13787. getMKw
  13788.   window_open=0
  13789.   watcher=0
  13790. 3S1  
  13791. cms("The Radar Extension System made",3,1)
  13792. 3T6  
  13793. cms("an early destroying of the dangerous",4,1)
  13794. 3U%  
  13795. cms("fragments possible.",5,1)
  13796. getMKw
  13797.  normalfont<3 
  13798.  window_open=0 
  13799.  PROCexoframe(552,880,732,980)
  13800.  PROCif_slave(200,228,1079,851,42)
  13801.  PROCif_slave(416,865,1078,983,42)
  13802.  PROCif_slave(202,865,397,983,42)
  13803. cms(message$,row,pri)
  13804.  normalfont<3 
  13805.  fwn=0:
  13806.  players
  13807.  SunE(X,t) 
  13808.  l=0 
  13809.  soonplay=0:
  13810.  row>15 
  13811. getMK:window_open=0:row=11
  13812.  row=0 
  13813.  (window_open=0 
  13814.  pri=1) 
  13815. combuild
  13816.  fx=0 
  13817. f_wht 
  13818. fontcol(fxc)
  13819.  row=1 
  13820. sprow
  13821.  firm 
  13822. f_grn
  13823.  SIi(X,Y)<=players 
  13824.  pri=1 
  13825. cdsB(message$,210,row+5):xy+=1
  13826. f_wht
  13827.  noplanet=0
  13828. readcodes
  13829. ("graphic."+rcd$)
  13830. (50):T=
  13831. #A,b$
  13832. #A,b$
  13833.  n=1 
  13834.  m=1 
  13835. #A,a,b,c
  13836.  n=R 
  13837.  m=T 
  13838.  n=50:m=2
  13839. sprow
  13840.  usenova=1 
  13841.  normalfont>2 
  13842. comnova
  13843.  usemeteor=1 
  13844.  normalfont>2 
  13845. commeteor
  13846.  SIi(X,Y)>players 
  13847. f_red
  13848.  SIi(X,Y)<=players 
  13849. f_yel
  13850.  SIi(X,Y)=0 
  13851. f_ora
  13852. comnova
  13853. gmerge("me4")
  13854. schoose("menu")
  13855. plot(0,204,232)
  13856. sdelete("menu")
  13857. commeteor
  13858. gmerge("me5")
  13859. schoose("menu")
  13860. plot(0,204,232)
  13861. sdelete("menu")
  13862. combuild
  13863.  hour=1 
  13864. hour_off
  13865.  mousewait 
  13866. getMKt:mousewait=0
  13867.  A,B,C:I$=
  13868.  I$="" 
  13869.  mustclear=1 
  13870.  mustclear=0:
  13871.  soonplay 
  13872. mpart(soonplay):soonplay=0
  13873.  (row=1 
  13874.  row=0 
  13875.  window_open=0)
  13876. SIi(X,Y)>players 
  13877. f_red
  13878.  (row=1 
  13879.  row=0 
  13880.  window_open=0)
  13881. SIi(X,Y)<=players 
  13882. f_yel
  13883.   window_open=1
  13884. 406,854)<>42 
  13885.  6,112,2
  13886.  192,859:
  13887.  1087,1000:
  13888. sget("hold")
  13889.  6,112,1
  13890. schoose("hold"):
  13891. plot(0,192,859)
  13892. sdelete("hold")
  13893. cframe
  13894. mfront
  13895.  SIi(X,Y)<>0 
  13896. schoose("flag"+
  13897.  flag((SIi(X,Y)))) 
  13898. schoose("flag16")
  13899. plot(0,548,876)
  13900.  noplanet=0 
  13901.  plan(X,Y)<>0 
  13902.  usemeteor=0 
  13903. gmerge("pl"+
  13904. (plan(X,Y)))
  13905. 6,112,1
  13906. schoose("planet"+
  13907. (plan(X,Y)))
  13908. plot(0,204,232)
  13909. sdelete("planet"+
  13910. (plan(X,Y)))
  13911.  cy=843 
  13912.  243 
  13913. 6,112,1
  13914.  204,cy-8:
  13915.  1075,cy
  13916. sget("trs")
  13917. 6,112,2
  13918. )    
  13919. schoose("trs"):
  13920. plot(0,204,cy-8)
  13921. 5    
  13922.  cy>243 
  13923.  196:
  13924.  204,cy-12,1075,cy-12
  13925. sdelete("trs")
  13926. if_slave(200,228,1079,851,42)
  13927.  usemeteor=0 
  13928. <   b$=
  13929. g(SIi(X,Y))+" "+H$(SIi(X,Y))+title$(Ha(SIi(X,Y)))
  13930.  SIi(X,Y)=0 b$=t$(545)
  13931.  noplanet=0 
  13932. cdsB(t$(105)+SIn$(X,Y)+", System "+SunName$(X),210,6):
  13933. cdsB(b$,210,7)
  13934. cframe
  13935. frame(192,220,1087,859,42)
  13936. schoose("header")
  13937. plot(0,308,867):
  13938. plot(0,756,867)
  13939.  PROCschoose("header1")
  13940.  PROCplot(8,364,863)
  13941.  PROCschoose("header2")
  13942.  PROCplot(8,756,863)
  13943. if_slave(200,228,1079,851,42)
  13944. exoframe(552,880,732,980)
  13945. slt(numba)
  13946.  IF numba=1 PRINT"LORD ";lord;" BUILDS"
  13947.  IF numba=0 PRINT"                    "
  13948. enemytactics(lord)
  13949.  tactexit,action,oc,hunger,possfree,dirt,am
  13950.  lord=0 
  13951. slt(1)
  13952. " am=
  13953. ((SIc(X,Y)*2+SIs(X,Y))/2)
  13954.  SIr(X,Y)=0 
  13955.  SIr(X,Y)=4:credits(lord)+=am
  13956.  SIna(X,Y)<SIc(X,Y)*3+1 
  13957.  normalfont>2 hunger=1
  13958.  credits(lord)<30 
  13959.  hunger=0 
  13960. slt(0):
  13961.  SIi(m,n)=lord 
  13962.  l+=1
  13963.  l>2 
  13964. (l-1)<>1 
  13965.  credits<200 
  13966.  hunger=0 
  13967. slt(0):
  13968.  tactic(lord)>=7 
  13969.  (plan(X,Y)<>8 
  13970.  hunger=0) 
  13971. slt(0):
  13972.  PRINT"Lord has a plan. Saves money."
  13973.  hx=0
  13974.  hy=0
  13975. 15:planfield%?(hx+hy*16)=surf%(hx+1,hy+1):
  13976.  hy,hx
  13977.  p=plan(X,Y)
  13978.  invent%(lord,9)=1 
  13979.  (((p=2 
  13980.  p=3 
  13981.  p=5) 
  13982. (10)=1) 
  13983.  (p=4 
  13984. (20)=1)) 
  13985.  credits(lord)>500 
  13986.       q=0
  13987.  2: q=5
  13988.  3: q=2
  13989.  4: q=6
  13990.  5: q=4
  13991.   plan(X,Y)=q
  13992.   credits(lord)-=500
  13993. r stations=0:mining=0:pluton=0:produce(1)=0:produce(2)=0:produce(3)=0:tcenter=0:free=0:possfree=0:food=0:dirt=0
  13994. (SId(X,Y)/1000)
  13995.  za=2:zb=15
  13996.  s<10 za=3:zb=14
  13997.  s>12 za=1:zb=16
  13998.  sa=0:sb=0:sc=0
  13999.  spaceport=0
  14000.  var()=0
  14001.  A=za 
  14002.  B=za 
  14003. zb:var(planfield%?((A-1)+(B-1)*16))+=1:
  14004. A free=var(0)+var(9):stations=var(1):food=var(2):mining=var(3)
  14005. J pluton=var(4):possfree=var(8):dirt=var(10)+var(20):produce(1)=var(11)
  14006. @ produce(2)=var(12):produce(3)=var(13):sa=var(14):sb=var(15)
  14007.  sc=var(16):tcenter=var(17)
  14008.  action=0
  14009.  actions:
  14010.   1=Cities     2=Army       3=Spaceport    4=Mining
  14011.   5=TCenter    6=LunarBase  7=Food         8=Clear
  14012.   9=AirDef    10=Station   11=GuardRobots 12=ClearDirt
  14013.  13=Plutonium
  14014.  sa+sb+sc=3 
  14015.  spaceport=1
  14016.  cl=credits(lord)
  14017.    * PRIORITY LIST * (last=first executed)
  14018.  SIc(X,Y)*3+5<food                                       action=7
  14019.  possfree+free>6 
  14020.  SIc(X,Y)<40                         action=1
  14021.  SIgr(X,Y)<=SIc(X,Y)*2 
  14022.                               action=11
  14023.  SIrm(X,Y)>150 
  14024.  cl>40 
  14025.  mining<3 
  14026.  normalfont>5       action=4
  14027. (3)=1                                                action=9
  14028.  SIna(X,Y)>60 
  14029.  cl>=100 
  14030.  tcenter=0                  action=5
  14031.  SIg%(X,Y,1)>40 
  14032.  cl>=100 
  14033.  tcenter=0                action=5
  14034.  dirt>20 
  14035.  normalfont>30 
  14036.                               action=12
  14037.  cl>120 
  14038.  normalfont>10 
  14039.  plan(X,Y)<>8                   action=6
  14040.  SIc(X,Y)<4                                              action=1
  14041.  SIk%(X,Y,1)+SIk%(X,Y,2)+SIk%(X,Y,3)<120 
  14042.  normalfont>10   action=2
  14043.  spaceport=0                                             action=3
  14044.  produce(1)+produce(2)+produce(3)<2 
  14045.  SIc(X,Y)>2 
  14046.   action=2
  14047.  produce(1)+produce(2)+produce(3)>SIc(X,Y) 
  14048.           action=1
  14049.  SIc(X,Y)=0 
  14050.                                          action=1
  14051.  produce(1)+produce(2)+produce(3)=0 
  14052.                  action=2
  14053.  plan(X,Y)=8 
  14054.  SIc(X,Y)<5 
  14055.                          action=1
  14056.  pluton<produce(1)+produce(2)+produce(3)+mining 
  14057.      action=13
  14058.  stations<2                                              action=10
  14059.  free<=7 
  14060.  (free<=10 
  14061.  normalfont>50) 
  14062.                 action=8
  14063.  SIc(X,Y)*3+1>SIna(X,Y) 
  14064.  hunger=1:                   action=7
  14065.  SIna(X,Y)<1 
  14066.  hunger=1 
  14067.  hunger=1:                  action=7
  14068.  VDU30:PRINTSIn$(X,Y);": ";action;"    "
  14069.  lord=jt 
  14070.  "BUILD-TACT:",action
  14071.  action=0 
  14072. slt(0):tactexit=1
  14073.  oc=credits(lord)
  14074.  action 
  14075. eta10
  14076. eta11
  14077. eta12
  14078. eta13
  14079.  normalfont>2 
  14080.  credits(lord)<30 
  14081.  free<5 
  14082. (5)=1 
  14083.  tactexit=1
  14084. 4_3 SIam(X,Y)=produce(1)+produce(2)*2+produce(3)*3
  14085.  SIam(X,Y)>=SIc(X,Y)*2+SIs(X,Y) 
  14086.  SIam(X,Y)=
  14087. ((SIc(X,Y)*2+SIs(X,Y))*3/4)
  14088.  (hi%(lord) 
  14089.  16)>0 
  14090.  SIl%(X,Y)=32
  14091.  (md%(lord) 
  14092.  16)>0 
  14093.  SIl%(X,Y)=128+16
  14094.  (lo%(lord) 
  14095.  16)>0 
  14096.  SIl%(X,Y)=8+16+64+128
  14097.  SIl%(X,Y)=SIl%(X,Y) 
  14098.  (lo%(lord) 
  14099.  16)=0 
  14100.  SIl%(X,Y)=SIl%(X,Y) 
  14101.  hx=0
  14102.  hy=0
  14103. 15:surf%(hx+1,hy+1)=planfield%?(hx+hy*16):
  14104.  hy,hx
  14105. slt(0)
  14106.  free>0 
  14107. 4q*  credits(lord)-=100:
  14108. pl_stone(1,17,5)
  14109.  SIb(X,Y)=0 
  14110.  credits(lord)-=120:SIb(X,Y)=1 
  14111.  action=2
  14112. 4z* N=4:
  14113.  plan(X,Y)=2 
  14114.  plan(X,Y)=3 
  14115.  Z=1 
  14116. 4|'  
  14117.  credits(lord)>=42 
  14118.  free>=N+1 
  14119. pl_stone(1,5,5)
  14120. pl_stone(N,2,2)
  14121. 1   credits(lord)-=45:SIna(X,Y)+=N:SIc(X,Y)+=1
  14122.  hunger=1 
  14123.  free<5 
  14124.  free>0 
  14125.       n=0
  14126.  hunger=1 
  14127.  free+possfree<5 
  14128.    n=2
  14129.  A=za 
  14130.  B=za 
  14131. '     s= planfield%?((A-1)+(B-1)*16)
  14132. c     
  14133.  s=5 
  14134.  n>0 
  14135.  n-=1:planfield%?((A-1)+(B-1)*16)=2:credits(lord)-=8:SIc(X,Y)-=1:SIna(X,Y)+=1
  14136.      
  14137.  n=0 
  14138.  A=zb:B=zb
  14139. (5)+5
  14140.  R>free 
  14141. (10): 
  14142.  R<=free
  14143. pl_stone(R,2,2)
  14144.   SIna(X,Y)+=R
  14145.   credits(lord)-=R*3
  14146. % ab=20:
  14147.  (hi%(lord) 
  14148.  16) 
  14149.  ab=22
  14150.  ac=20:
  14151.  SIrm(X,Y)=0 
  14152.  ac=3
  14153. (zb+1-za)+za-1 
  14154. (zb+1-za)+za-1 
  14155. %    s=planfield%?((A-1)+(B-1)*16)
  14156. p    
  14157.  s=10 
  14158.  s=8 
  14159.  s=29 
  14160.  s=20 
  14161.  s=ab 
  14162.  s=ac 
  14163.  planfield%?((A-1)+(B-1)*16)=0:credits(lord)-=5:A=zb:B=zb:ok=1
  14164. eta12
  14165. (zb+1-za)+za-1 
  14166. (zb+1-za)+za-1 
  14167. %    s=planfield%?((A-1)+(B-1)*16)
  14168. U    
  14169.  s=10 
  14170.  s=20 
  14171.  planfield%?((A-1)+(B-1)*16)=0:credits(lord)-=5:A=zb:B=zb:ok=1
  14172. (SId(X,Y)/200)
  14173.  SIv(X,Y)<p 
  14174.  R*5>credits(lord) 
  14175. (credits(lord)/5)
  14176.  R+SIv(X,Y)>p 
  14177.  R=p-SIv(X,Y)
  14178. $  credits(lord)-=R*5:SIv(X,Y)+=R
  14179.  Z=1 
  14180.  free>1 
  14181.  credits(lord)>=R*10+25 
  14182. pl_stone(1,10+R,10+
  14183. (   credits(lord)-=R*10:produce(R)+=1
  14184.  IF invent%(lord,14)=0 THEN
  14185. pl_stone(1,4,8)
  14186.     credits(lord)-=25
  14187.  ENDIF
  14188. eta13
  14189.  tobuild,crd
  14190.  IF invent%(lord,14) THEN ENDPROC
  14191. ; tobuild=produce(1)+produce(2)+produce(3)+mining-pluton
  14192. $ crd=credits(lord):
  14193.  crd<0 crd=0
  14194.  tobuild>
  14195. (crd/25)+3 
  14196.  tobuild=
  14197. (crd/25)+1
  14198.  VDU30:PRINT"BUILDING ";tobuild;" PLUTONIUM UNITS"
  14199.  PRINT"AT "+SIn$(X,Y)
  14200.  Z=1 
  14201.  tobuild
  14202. pl_stone(1,4,8)
  14203.   credits(lord)-=25
  14204.  Z=1 
  14205.  free>1 
  14206.  credits(lord)>=40 
  14207. pl_stone(1,3,3)
  14208.    credits(lord)-=15
  14209.  IF invent%(lord,14)=0 THEN
  14210. pl_stone(1,4,8)
  14211.     credits(lord)-=25
  14212.  ENDIF
  14213.  free>=3 
  14214.  credits(lord)>=45 
  14215. pl_stone(1,14,1)
  14216. pl_stone(1,15,14)
  14217. pl_stone(1,16,15)
  14218.   credits(lord)-=45
  14219. eta10
  14220. ' credits(lord)-=20:
  14221. pl_stone(1,1,1)
  14222. eta11
  14223. $ SIgr(X,Y)+=R:credits(lord)-=R*6
  14224. givestation(A,B)
  14225.  station%
  14226. decode(A,B)
  14227.  surf%(m,n)=1 station%=1
  14228. (SId(A,B)/1000)
  14229.  za=2:zb=15
  14230.  s<10 za=3:zb=14
  14231.  s>12 za=1:zb=16
  14232.  SIna(A,B)=0
  14233.  kA=za 
  14234.  kB=za 
  14235.  surf%(kA,kB)=2 SIna(A,B)+=1
  14236.  station%=0 
  14237.     a=
  14238. (zb+1-za)+za-1
  14239.     b=
  14240. (zb+1-za)+za-1
  14241.     s=surf%(a,b)
  14242. :    
  14243.  s=0 
  14244.  s=9 
  14245.  s=6 
  14246.  s=10 
  14247.  s=20 
  14248.  surf%(a,b)=1:c=1
  14249.       c=0
  14250.    a=
  14251. (zb+1-za)+za-1
  14252.    b=
  14253. (zb+1-za)+za-1
  14254.    s=surf%(a,b)
  14255. 5!(   
  14256.  s=0 
  14257.  s=9 
  14258.  s=6 
  14259.  s=10 
  14260.  s=20 
  14261. 5"$    surf%(a,b)=5:c=1:SIc(A,B)+=1
  14262. 5$      
  14263. 5%      c=0
  14264.    a=
  14265. (zb+1-za)+za-1
  14266.    b=
  14267. (zb+1-za)+za-1
  14268.    s=surf%(a,b)
  14269. 5*(   
  14270.  s=0 
  14271.  s=9 
  14272.  s=6 
  14273.  s=10 
  14274.  s=20 
  14275. 5+.    I=
  14276. (3):surf%(a,b)=I+10:c=1:SIam(A,B)=I
  14277. 5-      
  14278. 5.      c=0
  14279.    a=
  14280. (zb+1-za)+za-1
  14281.    b=
  14282. (zb+1-za)+za-1
  14283.    s=surf%(a,b)
  14284. 53(   
  14285.  s=0 
  14286.  s=9 
  14287.  s=6 
  14288.  s=10 
  14289.  s=20 
  14290.     surf%(a,b)=4:c=1
  14291. 56      
  14292. 57-  
  14293.  plan(A,B)=2 
  14294.  plan(A,B)=3 
  14295.  n=2 
  14296. 58*  
  14297.  IF SIna(A,B)>0 AND SIc(A,B)<3 THEN
  14298.     ok=0
  14299. 5<        
  14300.      R=
  14301.      
  14302.  R=1 a=za+1:b=za+1
  14303.      
  14304.  R=2 a=zb-4:b=zb-4
  14305.      
  14306.  R=3 a=za+1:b=zb-4
  14307.      
  14308.  R=4 a=zb-4:b=za+1
  14309.      
  14310.  x=a 
  14311.       
  14312.  y= b 
  14313.       s=surf%(x,y)
  14314. 5EE      
  14315.  s=6 
  14316. s=10 
  14317. s=20 surf%(x,y)=2:ok+=1:SIna(A,B)+=1
  14318.       
  14319.      
  14320.  ok>3
  14321.  ENDIF
  14322.   ok=0
  14323.    a=
  14324. (zb+1-za)+za-1
  14325.    b=
  14326. (zb+1-za)+za-1
  14327.    s=surf%(a,b)
  14328. 5RD   
  14329.  s=0 
  14330. s=10 
  14331. s=20 
  14332.  surf%(a,b)=2:ok+=1:SIna(A,B)+=1
  14333.  ok>3 
  14334. (30)=1
  14335. code(A,B)
  14336. checkspaceport
  14337.  sa,sb,sc
  14338.  spaceport=0
  14339.    s= surf%(A,B)
  14340.  s=14 sa=1
  14341.  s=15 sb=1
  14342.  s=16 sc=1
  14343. 5b      
  14344.  sa+sb+sc=3 
  14345.  spaceport=1
  14346. audience(lord,xx,yy)
  14347.  X=xx:Y=yy
  14348.  PROCcms(FNg(lord)+" "+H$(lord)+t$(546)+SIn$(xx,yy),5,1)
  14349.  PROCcms(t$(547),6,1)
  14350.  PROCgetMK
  14351.  mousewait 
  14352. getMK:mousewait=0
  14353.  window_open=0
  14354. film_shiplands(H$(lord),SIn$(xx,yy),plan(xx,yy),H$(SIi(xx,yy)))
  14355. lordreturn
  14356.  lcc,lok
  14357.  lcc=players+1 
  14358.  existing(lcc) 
  14359.  lok=1
  14360.  lok=0 
  14361. 5~     ok=0
  14362.  Y=1 
  14363.  SIi(X,Y)=0 
  14364.  plan(X,Y)>0 ok=1
  14365.   debug=1
  14366.   existing(lord)=1
  14367.   firstplanet(lord)=0
  14368. (  credits(lord)=
  14369. (300)+normalfont*50
  14370.   tactic(lord)=9
  14371.   orbit(lord)=
  14372. (Sol)
  14373.   flying(lord)=0
  14374. $   eship(lord,a)=
  14375. (normalfont/2)
  14376.    efreight(lord,a)=0
  14377.   X=0:Y=0:SunE(0,1)=1
  14378.   noplanet=1
  14379. playsoon(8)
  14380.   H$=H$(lord):
  14381. uppercase
  14382. cms(H$+t$(548),1,1)
  14383. cms(t$(549),3,1)
  14384. g(lord)+" "+H$(lord)+t$(550),4,1)
  14385. cms(t$(551),6,1)
  14386.  window_open 
  14387.  mousewait=1
  14388.   window_open=0
  14389.   noplanet=0
  14390. lorddies
  14391.  f$,e$
  14392.  old$=H$(lord)
  14393.  Hg(lord)=1 
  14394.  f$="Lord":e$="his" 
  14395.  f$="Lady":e$="her"
  14396. fillarray("ld"+
  14397. (Hl(lord)),15)
  14398. #  H$(lord)=
  14399. ar$(R),
  14400. (ar$(R))-2)
  14401. ar$(R),1)="m" 
  14402.  Hg(lord)=1 
  14403.  Hg(lord)=2
  14404.   ok=1
  14405.  H$(lord)=old$ ok=0
  14406.  H$(Y)=H$(lord) 
  14407.  Y<>lord 
  14408.  ok=0
  14409. ' credits(lord)+=200:
  14410.  kleine Spende
  14411.  evillord(lord)=0
  14412. 15:allied(lord,Y)=0:allied(Y,lord)=0:
  14413.  X=0:Y=0
  14414.  noplanet=1
  14415.  H$=old$:
  14416. uppercase
  14417. playsoon(9)
  14418. cms(H$+t$(552),1,1)
  14419. cms(t$(553)+f$,3,1)
  14420. cms(old$+t$(554),4,1)
  14421. cms(t$(555)+e$,6,1)
  14422. cms(t$(556)+
  14423. g(lord)+" "+H$(lord)+".",7,1)
  14424.  window_open 
  14425.  mousewait=1
  14426.  window_open=0
  14427.  noplanet=0
  14428. lordbwp
  14429. dowp(lord,whichp(lord))
  14430. " X=psun(lord,whichp(lord)):Y=5
  14431. decode(X,Y)
  14432.  plan(X,Y)=8
  14433. enemytactics(lord)
  14434.  plan(X,Y)=0
  14435.  codde=3:
  14436. code(X,Y):codde=0
  14437. lorddwp
  14438.  psun(lord,a)=0 
  14439.      ok=0
  14440.  f>0 
  14441.  plan(a,5)=0 
  14442.     ok=1:c=0
  14443.  b=1 
  14444.      
  14445.  d=1 
  14446. /      
  14447.  psun(b,d)=a 
  14448.  ptarget(b,d)=a 
  14449.  ok=0
  14450.      
  14451.  psun(lord,f)=a
  14452.  psun(lord,f)>0 
  14453.    credits(lord)-=1000
  14454.    pphase(lord)=1
  14455.    whichp(lord)=f
  14456. enemythinks
  14457.  quality,s_offs,btm,earn,mostk,k
  14458.  debug=0
  14459.  lord=players+1 
  14460.  existing(lord)=0 
  14461. (400)=1 
  14462. lordreturn
  14463.  existing(lord)=1 
  14464. (1000)=1 
  14465.  normalfont>50 
  14466. lorddies
  14467.  lord=jt 
  14468. "MC",credits(lord)
  14469.  lord=jt 
  14470.  flying(lord)=1 
  14471. "FLYING."
  14472.  flying(lord)=0 
  14473.  existing(lord)>0 
  14474. et_main
  14475.  flying(lord)=1 
  14476.  TS(lord)=0 
  14477.  VDU30:PRINT:PRINT"FLY TO NOWHERE! "
  14478.  PRINT"LORD= ";lord
  14479.  PRINT"DEBUG= ";debug
  14480.  G=GET
  14481.  lord
  14482. et_main
  14483.  evillord(lord)=0 
  14484. (40)=1 
  14485.  evillord(lord)=
  14486. (15):
  14487.  evillord(lord)<>lord 
  14488.  existing(evillord(lord))>0
  14489.  evillord(lord)>0 
  14490. (40)=1 
  14491.  evillord(lord)=0
  14492.  ** Buendnisse knuepfen, brechen, Terror **
  14493.  flying=0 
  14494.     X=0:Y=0
  14495.  hi%(lord)
  14496.  md%(lord)
  14497.  lo%(lord)
  14498.  R=10
  14499.     a=0
  14500.  ha=1 
  14501. #     
  14502.  allied(lord,ha)>0 
  14503.  a+=1
  14504.  a>2 
  14505.  R=20
  14506. (R)=1 
  14507.      
  14508. et_alliances
  14509.         
  14510.     m=0
  14511.  *** Wissenschaft ***
  14512.  normalfont<25 
  14513.     t%(lord)=0
  14514.  tactic(lord)<>6 
  14515.      t%(lord)=30
  14516. 6%(     
  14517.  hi%(lord) 
  14518.  t%(lord)-=10
  14519. 6&(     
  14520.  hi%(lord) 
  14521.  t%(lord)+=10
  14522. 6'(     
  14523.  lo%(lord) 
  14524.  t%(lord)-=10
  14525. 6(        
  14526.  *** Terror ***
  14527. 6-W   
  14528.  evillord(lord)<>0 
  14529. (20)=1 
  14530.  MI(lord)=0 
  14531.  normalfont>15 
  14532.  credits(lord)>=70 
  14533. et_terror
  14534.  ** Flotte **
  14535. 63<   
  14536.  credits(lord)>10 
  14537.  tactic(lord)<>6 
  14538.  normalfont>8 
  14539.      R=
  14540. 66N     
  14541. (3)=1 
  14542.  credits(lord)>=10 
  14543.  escout%(lord)+=1:credits(lord)-=10
  14544.      
  14545. 68F      
  14546. credits(lord)>=15 
  14547.  etrans%(lord)+=1:credits(lord)-=15
  14548.      
  14549. 6:A     
  14550. credits(lord)>=20 ewar%(lord)+=1:credits(lord)-=20
  14551. 6;P     
  14552. credits(lord)>=25 
  14553.  Hl(lord)<>2 ebomb%(lord)+=1:credits(lord)-=25
  14554. 6>(   
  14555.  jt=lord 
  14556. "TRANS:",etrans%(lord)
  14557.  *** Neue Offiziere ***
  14558.    c=0
  14559. 6C!   
  14560.  normalfont>20 
  14561. (2)=1 
  14562.      
  14563.  a=1 b=3
  14564.      
  14565.  a=2 b=1
  14566.      
  14567.  a=3 b=4
  14568. 6Hg     
  14569.  credits(lord)>800 
  14570.  Ps%(lord,b)<2 
  14571.  Ps%(lord,b)=2:credits(lord)-=800:c=1:
  14572.  jt=lord 
  14573. "NEWOFF"
  14574. 6Ig     
  14575.  credits(lord)>400 
  14576.  Ps%(lord,b)<1 
  14577.  Ps%(lord,b)=1:credits(lord)-=400:c=1:
  14578.  jt=lord 
  14579. "NEWOFF"
  14580.      
  14581.  c=1 
  14582.  ** War Planet bauen **
  14583.  pphase(lord)>0 
  14584.  pphase(lord)<3 
  14585.  ((pphase(lord)=2 
  14586.  credits(lord)>=1500)
  14587. (pphase(lord)=1 
  14588.  credits(lord)>=1000)) 
  14589.  pphase(lord)+=1:credits(lord)-=1000
  14590. 6R"   
  14591.  pphase(lord)=3 
  14592. lordbwp
  14593. 6TU   
  14594.  credits(lord)>=1000 
  14595.  invent%(lord,7)=1 
  14596.  pphase(lord)=0 
  14597. (5)=1 
  14598. lorddwp
  14599.  ** WP bewegen **
  14600.    w=0
  14601. 6Z/    
  14602.  psun(lord,f)>0 
  14603.  pphase(lord)=0 
  14604. et_movewar
  14605.  ** Taktik... **
  14606.    earn=0:mostk=0
  14607.  firstplanet(lord) 
  14608.      
  14609.       
  14610.  SIi(a,b)=lord 
  14611. 6e.       earn+=SIs(a,b)+SIc(a,b)*2-SIam(a,b)
  14612. 6f0       k=SIk%(a,b,1)+SIk%(a,b,2)+SIk%(a,b,3)
  14613. 6gB       
  14614. (SId(a,b)/200)*3 
  14615.  tactic(lord)=0 
  14616.  tactic(lord)=1
  14617.        
  14618.  k>mostk 
  14619.  mostk=k
  14620.       
  14621. 6ju       
  14622.  SIi(a,b)<>0 
  14623.  (tactic(lord)=0 
  14624.  tactic(lord)=1) 
  14625.  normalfont>9 
  14626. (5)=1 
  14627.  (allied(SIi(a,b),lord)
  14628.  4)=0 
  14629. 6k1        k=SIk%(a,b,1)+SIk%(a,b,2)+SIk%(a,b,3)
  14630. 6l@        
  14631.  mostk/3>=k 
  14632.  tactic(lord)=1:lordvar(lord)=a 
  14633.  b<<8
  14634.        
  14635.       
  14636.      
  14637.  ** Neue Taktik? **
  14638. 6u"   
  14639.  tactic(lord)=0 
  14640. (3)=1 
  14641. et_newtact
  14642.  ** Taktik ausfuehren **
  14643. 6{(   
  14644.  lord=jt 
  14645. "TACTIC:",tactic(lord)
  14646.  tactic(lord)=0 
  14647.  tactic(lord)=6 
  14648.  t%(lord)=0
  14649.  tactic(lord)<>6 
  14650.  normalfont>25 
  14651.     t%(lord)=30
  14652. '    
  14653.  hi%(lord) 
  14654.  t%(lord)-=10
  14655. '    
  14656.  hi%(lord) 
  14657.  t%(lord)+=10
  14658. '    
  14659.  lo%(lord) 
  14660.  t%(lord)-=10
  14661.  tactic(lord)=6 
  14662.  credits(lord)>190 
  14663.  tactic(lord)=7
  14664.  ^ wenn genug Geld gespart,naechster Schritt
  14665.  tactic(lord)=7 
  14666.  tactic(lord)=1 
  14667. e_tact1
  14668.  (tactic(lord)=8 
  14669.  tactic(lord)=2) 
  14670. flying(lord)=0 
  14671. e_tact2
  14672.  tactic(lord)=9 
  14673.  flying(lord)=0 
  14674. e_tact3
  14675.  IF tactic(lord)=10 AND TS(lord)=0 THEN PRINT"DEBUG: ";debug: PRINT"TS(lord)=0!!":SYS6,20:END
  14676.  tactic(lord)=3 
  14677.  flying(lord)=0 
  14678. e_tact4
  14679.  tactic(lord)=10 
  14680.  flying(lord)=0 
  14681. e_tact5
  14682.  tactic(lord)=5 
  14683.  flying(lord)=0 
  14684. e_tact6
  14685.  tactic(lord)=20 
  14686. e_tact7
  14687.  tactic(lord)=21 
  14688.  flying(lord)=0 
  14689. e_tact8
  14690.  tactic(lord)=22 
  14691. e_tact9
  14692.  tactic(lord)=22 
  14693.  flying(lord)=0 
  14694. e_tact10
  14695.  tactic(lord)=23 
  14696.  flying(lord)=0 
  14697. e_tact11
  14698.  tactic(lord)=0 
  14699. e_tact12
  14700. et_alliances
  14701.  al,orb,ha
  14702.  ha=1 
  14703.   orb=orbit(lord)
  14704.  SIi(orb,ha)>0 
  14705.  SIi(orb,ha)<>lord 
  14706.  SIi(orb,ha)>players 
  14707. (16)=1 
  14708.  allied(lord,SIi(orb,ha))=0 
  14709.  allied(SIi(orb,ha),lord)=0 
  14710.  evillord(lord)<>SIi(orb,ha) 
  14711.  reput(lord)>0 
  14712. =    allied(lord,SIi(orb,ha))=7:allied(SIi(orb,ha),lord)=7
  14713.  SIi(orb,ha)=1 
  14714. (10)=1 
  14715.  allied(lord,1)<>7 
  14716.  allied(1,lord)<>7 
  14717.  evillord(lord)<>1 
  14718.  reput>0 
  14719.  al=1
  14720. audience(lord,orb,ha)
  14721. #    
  14722. _enemy_comm(3,lord,orb,ha)
  14723. >    
  14724.  decision=1 xx=orb:yy=ha:X=xx:Y=yy:
  14725. enemyplayerattack
  14726.     al=0
  14727.   R=50:
  14728.  md%(lord) 
  14729.  R=20
  14730.  lo%(lord) 
  14731.  R=10
  14732.  a=1 
  14733. (R)=1 
  14734.  allied(lord,a)<>0 
  14735.  a<>lord 
  14736. (   allied(lord,a)=0:allied(a,lord)=0
  14737. et_newtact
  14738.   debug=3
  14739.  hi%(lord) 
  14740.  R<4 t=1
  14741.  R=4 t=3
  14742.  R>4 t=2
  14743.  md%(lord) 
  14744.    R=
  14745.  1:t=1
  14746.  2:t=2
  14747.  3:t=3
  14748.  lo%(lord) 
  14749.    R=
  14750.  R<5  t=2
  14751.  R>=5 t=3
  14752.  R=8  t=1
  14753.  normalfont<12 
  14754.  t=2 t=0
  14755.  normalfont<40 
  14756.  t=1 
  14757. (3)<>1 
  14758.  IF normalfont>40 AND normalfont<110 AND RND(3)=1 t=2
  14759.  normalfont>110 
  14760. (3)=1 t=1
  14761.  credits(lord)>2000 t=2
  14762.  t=3 
  14763.  tactic(lord)=20
  14764.       n=0
  14765.  t=2 
  14766.  earn>=9 
  14767.  credits(lord)>=130 
  14768. C    
  14769.  (credits(lord)>60 
  14770.  (credits(lord)>30 
  14771.  normalfont>30)) 
  14772. -     tactic(lord)=6:TS(lord)=0:TP(lord)=0
  14773.         
  14774.      n=1
  14775.         
  14776.     n=1
  14777.  tactic(lord)=20
  14778.  t=1 
  14779.  tactic(lord)=1:TS(lord)=0:TP(lord)=0
  14780.  Y=1 
  14781. ~    
  14782.  SIi(X,Y)<>lord 
  14783.  SIi(X,Y)<>0 
  14784.  SIk%(X,Y,1)+SIk%(X,Y,2)+SIk%(X,Y,3)=0 
  14785.  eship(lord,1)+eship(lord,2)+eship(lord,3)>0 
  14786. <     tactic(lord)=4:TS(lord)=X:TP(lord)=Y:flying(lord)=1
  14787.      X=Sol
  14788.      Y=5
  14789.         
  14790.  firstplanet(lord)=0 
  14791.  tactic(lord)=9
  14792.  IF normalfont<7 THEN
  14793.   IF RND(4)>1 THEN tactic(lord)=0 ELSE tactic(lord)=6
  14794.  ENDIF
  14795.  tactic(lord)=6 
  14796.    ok=0
  14797.  X=1 
  14798.  Y=1 
  14799. +     
  14800.  plan(X,Y)<>0 
  14801.  SIi(X,Y)=0 
  14802.  ok=1
  14803.  ok=0 
  14804.  tactic(lord)=1
  14805. et_terror
  14806.  MIs(lord)=0:MIp(lord)=0
  14807.  Y=1 
  14808.  SIi(X,Y)=evillord(lord) 
  14809.  MIs(lord)=X:MIp(lord)=Y:X=Sol:Y=5
  14810.  MIs(lord)<>0 
  14811.   debug=2
  14812.   m=4:a=70
  14813.   c=credits(lord)
  14814.  c>=1500 
  14815.  normalfont>50 
  14816.  invent%(lord,6)=1 
  14817.  m=7:a=1000
  14818.  c>200 m=2:a=200
  14819.  c>150 m=3:a=150
  14820.  c>100 m=5:a=100
  14821.  credits(lord)>=a credits(lord)-=a:MI(lord)=m:
  14822.  jt=lord 
  14823. "TERR."
  14824.   evillord(lord)=0
  14825. et_movewar
  14826.  psun(lord,f)>0 
  14827.  pphase(lord)=0 
  14828.  invent%(lord,8)=1 
  14829. (10)=1 
  14830.  plan(a,5)=0 
  14831.      ok=1:c=0
  14832.      
  14833.  b=1 
  14834.       
  14835.  c=1 
  14836. 7 C       
  14837.  (psun(b,c)=a 
  14838.  ptarget(b,c)=a) 
  14839.  b<>lord 
  14840.  c<>f 
  14841.  ok=0
  14842.       
  14843.      
  14844. 7#'     
  14845.  ptarget(lord,f)=a:a=Sol
  14846. 7$        
  14847. e_tact1
  14848.  debug=4
  14849.  Sucht eigenen Planeten mit den meisten Armeen
  14850.  quality=0:xx=0:yy=0:a=0
  14851.  Y=1 
  14852. 72a   
  14853.  SIi(X,Y)=lord 
  14854.  a= SIk%(X,Y,1)+SIk%(X,Y,2)+SIk%(X,Y,3):
  14855.  a>quality 
  14856.  quality=a:xx=X:yy=Y
  14857. 73      
  14858.  TS(lord)=xx:TP(lord)=yy
  14859.  TS(lord)<>orbit(lord) 
  14860. 77$  
  14861.  invent%(lord,8)=0 
  14862. (2)=1 
  14863.    flying(lord)=1
  14864. 7:6   tactic(lord)+=1:orbit(lord)=TS(lord):TS(lord)=0
  14865.   tactic(lord)+=1
  14866.  tactic(lord)=1 
  14867.   X=TS(lord):Y=TP(lord)
  14868. 7A/  
  14869.  SIk%(X,Y,1)+SIk%(X,Y,2)+SIk%(X,Y,3)<4 
  14870. 7BF   tactic(lord)=0: 
  14871.  kiene eigenen Armeen, also auch keine Attacke
  14872.    flying(lord)=0
  14873. e_tact2
  14874.  debug=5
  14875.  Armeen von Planet auf Schiff laden
  14876.  SIi(TS(lord),TP(lord))=lord 
  14877. loadarmies
  14878.   stnum=0
  14879. stnum(lord)
  14880. 7OQ  
  14881. (2)=1 
  14882.  stnum>1) 
  14883. (5)=1 
  14884.  stnum=1) tactic(lord)-=1 
  14885.  tactic(lord)+=1
  14886.   tactic(lord)-=1
  14887. e_tact3
  14888.  debug=6
  14889.  sucht sich den besten leeren Planeten raus
  14890. 7Z     ok=0
  14891. 7]#   
  14892.  plan(X,Y)>0 
  14893.  SIi(X,Y)=0 
  14894.     a=1
  14895. 7`-     
  14896.   X=TS(b) 
  14897.  Y=TP(b) 
  14898.  lord<>b 
  14899.  ok=1
  14900. 7d      
  14901.  ok=1 
  14902.    quality=0
  14903.  X= 1 
  14904.  Y=1 
  14905. 7k&     
  14906.  plan(X,Y)<>0 
  14907.  SIi(X,Y)=0 
  14908.       p= plan(X,Y)
  14909.       
  14910.  p=1 a=4
  14911.       
  14912.  p=2 a=2
  14913.       
  14914.  p=3 a=1
  14915.       
  14916.  p=4 a=3
  14917.       
  14918.  p=5 a=2
  14919.       
  14920.  p=6 a=4
  14921. 7s!      
  14922.  a>quality 
  14923. (7)<>1 
  14924.        ok=1
  14925.        
  14926. 7v1        
  14927.   X=TS(b) 
  14928.  Y=TP(b) 
  14929.  lord<>b 
  14930.  ok=0
  14931.        
  14932. 7x>       
  14933.  quality=a:TS(lord)=X:TP(lord)=Y 
  14934.   quality=0
  14935.       
  14936.      
  14937. 7~"  
  14938.  plan(TS(lord),TP(lord))<>0
  14939.  TS(lord)=0 
  14940.  *Error TS()=0
  14941.  TS(lord)<>orbit(lord)
  14942.  invent%(lord,8)=0 
  14943. (2)=1 
  14944.     flying(lord)=1
  14945. ,    tactic(lord)+=1:orbit(lord)=TS(lord)
  14946.    tactic(lord)=10
  14947.   tactic(lord)=3
  14948. e_tact4
  14949.     debug=7
  14950. -    
  14951.  sucht sich einen Feind-Planeten aus
  14952.     l=lordvar(lord)
  14953. 1     TS(lord)=l 
  14954.  255:TP(lord)=(l 
  14955.  65280)>>8
  14956.      lordvar(lord)=0
  14957. 4     s=SIi(TS(lord),TP(lord)):
  14958.  s<>lord 
  14959.  s<>0 
  14960.       tactic(lord)+=1
  14961. C      
  14962.  TS(lord)<>orbit(lord) 
  14963.  flying(lord)=1 
  14964.  tactic(lord)=5
  14965.       
  14966.      
  14967.         
  14968.     a=0
  14969. 6    strongdef=0:weakdef=10000:nodef=0:mostcities=0
  14970.     strx=0:stry=0
  14971.     wdfx=0:wdfy=0
  14972.     ndfx=0:ndfy=0
  14973.     mctx=0:mcty=0
  14974. 5    e=eship(lord,1)+eship(lord,2)+eship(lord,3)*2
  14975.     ok=0
  14976.      
  14977.       
  14978.  Y=1 
  14979. M       
  14980.  SIi(X,Y)<>lord 
  14981.  SIi(X,Y)<>0 
  14982.  (j=2 
  14983.  evillord(lord)=SIi(X,Y)) 
  14984. 3        d=SIk%(X,Y,1)+SIk%(X,Y,2)+SIk%(X,Y,3)*2
  14985.         i=SIi(X,Y)
  14986.         
  14987.  d*3<e*2 
  14988.          ok=1
  14989. M         
  14990.  (hi%(lord) 
  14991.  (allied(lord,i)=2 
  14992.  allied(lord,i)=4) 
  14993.  ok=0
  14994. V         
  14995.  (md%(lord) 
  14996.  (allied(lord,i)=2 
  14997.  allied(lord,i)=4) 
  14998. (2)=1 
  14999.  ok=0
  15000.          
  15001. A          
  15002.  d<weakdef 
  15003. (2)=1   
  15004.  weakdef=d   :wdfx=X:wdfy=Y
  15005. A          
  15006.  d>strongdef 
  15007. (2)=1 
  15008.  strongdef=d :strx=X:stry=Y
  15009. E          
  15010.  d=0                      
  15011.  nodef=1:    :ndfx=X:ndfy=Y
  15012. #          c=SIc(X,Y)*2+SIs(X,Y)
  15013. A          
  15014.  c>mostcities 
  15015. (2)=1 
  15016.  mostcities=c:mctx=X:mcty=Y
  15017.          
  15018.         
  15019.        
  15020.       
  15021.      
  15022. "     
  15023.  j=1 
  15024.  wdfx+wdfy>0 
  15025. !    
  15026.  wdfx+strx+mctx=0 
  15027.  ok=0
  15028.  ok=1 
  15029. 4     
  15030.  IF wdfx+wdfy=0 PRINT"NO PLANET CHOSEN!!!"
  15031. :     TS(lord)=wdfx:TP(lord)=wdfy:
  15032.  PRINT"WEAKEST",lord
  15033. .     
  15034.  nodef 
  15035.  TS(lord)=ndfx:TP(lord)=ndfy
  15036. ]     
  15037. (3)=1 
  15038.  wdfx=0) 
  15039.  mctx+mcty>0 
  15040.  TS(lord)=mctx:TP(lord)=mcty:
  15041.  PRINT"CITIES",lord
  15042. p     
  15043. (3)=1 
  15044.  wdfx=0 
  15045.  (wdfx+strx=0)) 
  15046.  strx+stry>0 
  15047.  TS(lord)=strx:TP(lord)=stry:
  15048.  PRINT"STRONGEST",lord
  15049.      tactic(lord)+=1
  15050. B     
  15051.  TS(lord)<>orbit(lord) 
  15052.  flying(lord)=1 
  15053.  tactic(lord)=5
  15054.         
  15055. %     
  15056.  PRINT"FOUND NO ENEMY",lord
  15057. 2     
  15058. (5)<>1 tactic(lord)=1 
  15059.  tactic(lord)=0
  15060.         
  15061. e_tact5
  15062.  ka,kb,kok
  15063.     debug=8
  15064.     xx=TS(lord):yy=TP(lord)
  15065.  SIi(xx,yy)<>0
  15066. #     
  15067.  PRINT"He came too late!"
  15068.         
  15069.      SIi(xx,yy)=lord
  15070.      SIr(xx,yy)=0
  15071.      
  15072. givestation(xx,yy)
  15073.      firstplanet(lord)=1
  15074.      credits(lord)-=190
  15075.      
  15076.  SIn$(xx,yy)="" 
  15077. ,      
  15078. fillarray("pn"+
  15079. (plan(xx,yy)),30)
  15080.       
  15081.        R=
  15082.       
  15083.  ar$(R)<>""
  15084.       SIn$(xx,yy)=ar$(R)
  15085.       kok=0
  15086.       
  15087.  ka=1 
  15088.        
  15089.  kb=1 
  15090. A        
  15091.  SIn$(ka,kb)=SIn$(xx,yy) 
  15092.  (ka<>xx 
  15093.  kb<>yy) 
  15094.  kok=1
  15095. 2        
  15096.  SIn$(ka,kb)=SIn$(xx,yy)+" 2" 
  15097.  kok=2
  15098.        
  15099.       
  15100. %      
  15101.  kok=1 
  15102.  SIn$(xx,yy)+=" 2"
  15103. %      
  15104.  kok=2 
  15105.  SIn$(xx,yy)+=" 3"
  15106.      
  15107.      d=
  15108. (SId(xx,yy)/200)
  15109.      
  15110. %      SIk%(xx,yy,R)=eship(lord,R)
  15111.       eship(lord,R)=0
  15112. I      
  15113.  SIk%(xx,yy,R)>d eship(lord,R)=SIk%(xx,yy,R)-d:SIk%(xx,yy,R)=d
  15114.      
  15115. "     
  15116.  normalfont>2 
  15117. npmessage
  15118.      tactic(lord)=0
  15119.      X=xx:Y=yy
  15120.      
  15121. decode(X,Y)
  15122.      
  15123. enemytactics(lord)
  15124.      
  15125. code(X,Y)
  15126.         
  15127. ,    tactic(lord)=0:TS(lord)=0:TP(lord)=0
  15128. e_tact6
  15129.     debug=9
  15130.     xx=TS(lord):yy=TP(lord)
  15131.  SIi(xx,yy)=lord 
  15132. 1     
  15133.  PRINT"ERROR: ATTACKER=ATTACKED!":G=GET
  15134.         
  15135. (    
  15136.  SIi(xx,yy)=0 
  15137.  plan(xx,yy)=0 
  15138. &     
  15139.  PRINT"Oops! No enemy here!"
  15140. 8         
  15141. 8!`     
  15142.  SIk%(xx,yy,1)+SIk%(xx,yy,2)+SIk%(xx,yy,3)>eship(lord,1)+eship(lord,2)+eship(lord,3) 
  15143. 8#$      
  15144.  PRINT"ENEMY TOO STRONG!"
  15145.       tactic(lord)=1
  15146.      
  15147.       r=1
  15148.       
  15149.  plan(xx,yy)=8 
  15150.        r=0
  15151.        
  15152. 8,!       
  15153.  psun(lord,r)=0 
  15154.       
  15155.       
  15156.        b_won=1
  15157.        friendly=0
  15158.        
  15159. enemyattack
  15160.        
  15161.  friendly=0 
  15162.         
  15163.  b_won=1 
  15164.          SIi(xx,yy)=lord
  15165.         
  15166. 868         
  15167.  SIv(xx,yy)<ebomb%(lord)*2 
  15168.  Hl(lord)<>2 
  15169.           ob=ebomb%(lord)
  15170. 88&          j=0:
  15171.  SIv(xx,yy)<4 
  15172.           btm=2+
  15173. (3)+j
  15174.           
  15175.  ebm=1 
  15176.            
  15177. enemybomb
  15178.            
  15179.  SIv(xx,yy)>0 
  15180. 8=@            
  15181.  ebomb%(lord)*3<ob 
  15182.  ebomb%(lord)<btm 
  15183.  ebm=btm
  15184.            
  15185.           
  15186.          
  15187.         
  15188.        
  15189.        friendly=0
  15190.       
  15191.      
  15192. 8F        
  15193. 8G,    tactic(lord)=0:TS(lord)=0:TP(lord)=0
  15194. e_tact7
  15195.     debug=20
  15196. 8M8    
  15197.  Sucht eigenen Planeten mit den meisten Guetern
  15198.     quality=0:xx=0:yy=0:a=0
  15199.      
  15200.  Y=1 
  15201. 8Qc      
  15202.  SIi(X,Y)=lord 
  15203.  a=SIg%(X,Y,1)+SIg%(X,Y,2)+SIg%(X,Y,3):
  15204.  a>quality 
  15205.  quality=a:xx=X:yy=Y
  15206.      
  15207.  quality>3 
  15208. 8U      TS(lord)=xx:TP(lord)=yy
  15209. 8V"     
  15210.  TS(lord)<>orbit(lord) 
  15211.       flying(lord)=1
  15212.      
  15213.       tactic(lord)+=1
  15214.      
  15215. 8[        
  15216.      tactic(lord)=0
  15217. 8]'     
  15218.  keine Ware auf den Planeten.
  15219. 8^        
  15220. e_tact8
  15221.     debug=21
  15222. 8e,    
  15223.  Gueter von Planet auf Schiff laden
  15224. 8f'    
  15225.  SIi(TS(lord),TP(lord))=lord 
  15226.      
  15227. loadgoods
  15228.      stnum=0
  15229.      
  15230. stnum(lord)
  15231. 8jK     
  15232. (2)=1 
  15233.  stnum>1) 
  15234.  (stnum=1) tactic(lord)+=1 
  15235.  tactic(lord)-=1
  15236. 8k        
  15237.      tactic(lord)-=1
  15238. 8m        
  15239. e_tact9
  15240.     c=0
  15241.      
  15242. 8t.      
  15243.  SIi(a,b)<>0 
  15244.  SIi(a,b)<>lord 
  15245.  c=0 
  15246.  tactic(lord)=0
  15247. e_tact10
  15248.     debug=22
  15249. 8{.    
  15250.  sucht sich einen Freund-Planeten aus
  15251. 8|        
  15252.     a=0
  15253.      
  15254.  Y=1 
  15255. 9      
  15256.  plan(X,Y)<>0 
  15257.  SIi(X,Y)<>lord 
  15258.  SIi(X,Y)<>0 
  15259.        s=SIi(X,Y)
  15260. %       
  15261.  allied(lord,s) 
  15262. 8       
  15263.  evillord(lord)<>s 
  15264.  evillord(s)<>lord 
  15265. @       
  15266.  evillord(lord)=s 
  15267.  evillord(s)=lord 
  15268. (40)=1 
  15269.         
  15270.  a=1 
  15271. (10)>1 
  15272. 0       
  15273.  TS(lord)=X:TP(lord)=Y:X=Sol:Y=5
  15274.       
  15275.      
  15276. !    
  15277.  TS(lord)<>orbit(lord) 
  15278. '     
  15279.  invent%(lord,8)=0 
  15280. (2)=1 
  15281.       flying(lord)=1
  15282.      
  15283. D      tactic(lord)+=1:orbit(lord)=TS(lord):TS(lord)=0:TP(lord)=0
  15284.      
  15285.         
  15286.      tactic(lord)+=1
  15287.         
  15288. e_tact11
  15289.     debug=23
  15290.     X= TS(lord)
  15291.     Y= TP(lord)
  15292.  SIt(X,Y) 
  15293.      
  15294.  1: a=4:b=1:c=3:n=20
  15295.      
  15296.  2: a=3:b=1:c=2:n=10
  15297.      
  15298.  3: a=3:b=1:c=1:n=30
  15299.         
  15300.     xx=X:yy=Y
  15301.     i=SIi(X,Y)
  15302. @    
  15303.  i=1 
  15304. redo:
  15305. audience(lord,X,Y):
  15306. _enemy_comm(2,lord,X,Y)
  15307. &    
  15308.  (i>1) 
  15309.  (i=1 
  15310.  decision>0) 
  15311. <     
  15312.  i<>1 
  15313.  (allied(lord,i) 
  15314.  1) =0 
  15315.  credits(lord)-=n
  15316.      e=efreight(lord,1)
  15317.      f=efreight(lord,2)
  15318.      g=efreight(lord,3)
  15319. .     credits(lord)+=e*a:efreight(lord,1)=0
  15320. .     credits(lord)+=f*b:efreight(lord,2)=0
  15321. .     credits(lord)+=g*c:efreight(lord,3)=0
  15322.      tactic(lord)=0
  15323.      X=xx:Y=yy
  15324. -     
  15325. lordbuy(X,Y,f,
  15326. (6)-1,
  15327. (5)-1,
  15328. (4)-1)
  15329.         
  15330.      tactic(lord)=22
  15331.         
  15332. e_tact12
  15333.     debug=24
  15334. >    
  15335.  Schiff zu eigenem Planeten mit besten Armeen fliegen
  15336.     quality=0:xx=0:yy=0:a=0
  15337.      
  15338.  Y=1 
  15339. c      
  15340.  SIi(X,Y)=lord 
  15341.  a=SIk%(X,Y,1)+SIk%(X,Y,2)+SIk%(X,Y,3):
  15342.  a>quality 
  15343.  quality=a:xx=X:yy=Y
  15344.      
  15345.     TS(lord)=xx:TP(lord)=yy
  15346. +    
  15347.  TS(lord)<>orbit(lord) 
  15348.  xx+yy>0 
  15349.      flying(lord)=1
  15350.         
  15351.  sl=1 
  15352.  1:font_col=&40404000
  15353.  2:font_col=&90909000
  15354.  3:font_col=&c0c0c000
  15355.  4:font_col=&fdfdfd00
  15356.   CASE sl OF
  15357.    WHEN 1:SYS 262291,,0,1,6,&00000000,&40404000
  15358.    WHEN 2:SYS 262291,,0,1,6,&00000000,&90909000
  15359.    WHEN 3:SYS 262291,,0,1,6,&00000000,&c0c0c000
  15360.    WHEN 4:SYS 262291,,0,1,6,&00000000,&fdfdfd00
  15361.   ENDCASE
  15362. dsp(b$(irow),40,irow+1)
  15363. wait(4)
  15364. start_the_lords
  15365.  sl,irow
  15366. introduce
  15367.  nonclick=1
  15368.  sl=1 
  15369.   b$(sl)=ar$(sl)
  15370.  Hg(1)<>1 
  15371.  b$(13)=ar$(15)
  15372.  ** Planeten aussuchen **
  15373.  noraces=0 
  15374.  lord=players+1 
  15375.  irow+=1
  15376.    quality=0
  15377.  X= 1 
  15378.  Y=1 
  15379. &     
  15380.  plan(X,Y)<>0 
  15381.  SIi(X,Y)=0 
  15382.       p= plan(X,Y)
  15383.       
  15384.  p=1 a=4
  15385.       
  15386.  p=2 a=2
  15387.       
  15388.  p=3 a=1
  15389.       
  15390.  p=4 a=3
  15391.       
  15392.  p=5 a=2
  15393.       
  15394.  p=6 a=5
  15395. !      
  15396.  a>quality 
  15397. (7)<>1 
  15398.        ok=1
  15399.        
  15400. 1        
  15401.   X=TS(b) 
  15402.  Y=TP(b) 
  15403.  lord<>b 
  15404.  ok=0
  15405.        
  15406. >       
  15407.  quality=a:TS(lord)=X:TP(lord)=Y 
  15408.   quality=0
  15409.       
  15410.      
  15411.  plan(TS(lord),TP(lord))<>0
  15412.  ** besiedeln+bebauen **
  15413.   xx=TS(lord):yy=TP(lord)
  15414.   SIi(xx,yy)=lord
  15415.   SIr(xx,yy)=0
  15416. givestation(xx,yy)
  15417.   firstplanet(lord)=1
  15418.   credits(lord)-=190
  15419. fillarray("pn"+
  15420. (plan(xx,yy)),30)
  15421.    R=
  15422.  ar$(R)<>""
  15423.   SIn$(xx,yy)=ar$(R)
  15424. (SId(xx,yy)/200)
  15425.   X=xx:Y=yy
  15426. decode(X,Y)
  15427. enemytactics(lord)
  15428. code(X,Y)
  15429.   TS(lord)=0:TP(lord)=0
  15430.  lord
  15431.  players>1 
  15432.  noraces=1 
  15433.    irow+=1
  15434. wait(20)
  15435.  irow=14
  15436. 6,21,9
  15437. 6,21,0
  15438.  nonclick=0
  15439. getMK
  15440.  normalfont=2
  15441. npmessage
  15442.  X=xx:Y=yy
  15443.  noplanet=1
  15444. cms("",0,1)
  15445. cms(t$(557),1,1)
  15446. g(SIi(X,Y))+" "+H$(SIi(X,Y))+t$(558),3,1)
  15447. cms(t$(559)+SIn$(xx,yy)+".",4,1)
  15448. schoose("sphere"+
  15449. (plan(xx,yy)))
  15450.  window_open 
  15451. plot(0,570,430)
  15452. getMK
  15453.  window_open=0
  15454.  noplanet=0
  15455.  lord=1
  15456.  pphase(lord)=3 
  15457.    X=0:Y=0
  15458.    noplanet=1
  15459. cms("",0,1)
  15460. cms(t$(560),1,1)
  15461. 9V.   
  15462. g(lord)+" "+H$(lord)+t$(561),3,1)
  15463. cms(t$(562),4,1)
  15464. 9X$   
  15465. gmerge("pp"+
  15466. (pphase(lord)))
  15467. 9Y(   
  15468.  window_open 
  15469. schoose("const")
  15470. plot(8,570,430)
  15471. getMKw
  15472. sdelete("const")
  15473. 9]8   pphase(lord)=0 :plan(psun(lord,whichp(lord)),5)=8
  15474.    noplanet=0
  15475.  lord
  15476. loadarmies
  15477.  load
  15478. 9fv load=etrans%(lord)-(eship(lord,1)+eship(lord,2)+eship(lord,3)+efreight(lord,1)+efreight(lord,2)+efreight(lord,3))
  15479.  load=0 
  15480.  R=3 
  15481.  load>0 
  15482. 9j'   a=
  15483. (SIk%(TS(lord),TP(lord),R)/3)
  15484.  a>load 
  15485.  a=load
  15486.    eship(lord,R)+=a:load-=a
  15487. 9m#   SIk%(TS(lord),TP(lord),R)-=a
  15488.  ts=TS(lord)
  15489.  tp=TP(lord)
  15490. loadgoods
  15491.  load
  15492. 9wv load=etrans%(lord)-(eship(lord,1)+eship(lord,2)+eship(lord,3)+efreight(lord,1)+efreight(lord,2)+efreight(lord,3))
  15493.  load=0 
  15494.  R=1 
  15495.  load>0 
  15496. 9{'   a=
  15497. (SIg%(TS(lord),TP(lord),R)/2)
  15498.  a>load 
  15499.  a=load
  15500. 9}"   efreight(lord,R)+=a:load-=a
  15501. 9~#   SIg%(TS(lord),TP(lord),R)-=a
  15502.  ts=TS(lord)
  15503.  tp=TP(lord)
  15504. stnum(lord)
  15505.  stnum=0
  15506.  SIi(X,Y)=lord 
  15507.  stnum+=1
  15508. enemyplayerattack
  15509.  rfutt
  15510.  X=xx:Y=yy
  15511. audience(lord,X,Y)
  15512. _enemy_comm(1,lord,xx,yy)
  15513.  X=xx:Y=yy
  15514.  decision=0 
  15515.   b_won=0
  15516.   friendly=1
  15517. fontcol(&0000ff00)
  15518. cms(t$(563),5,1)
  15519. cms(t$(564)+
  15520. g(lord),7,1)
  15521. ! b$=H$(lord)+title$(Ha(lord))
  15522. cms(b$+".",8,1)
  15523. getMK
  15524.  window_open=0
  15525.  actual=yy
  15526.  sel=xx
  15527.  attacklord=lord
  15528. b_start(eship(lord,1),eship(lord,2),eship(lord,3),SIk%(xx,yy,1),SIk%(xx,yy,2),SIk%(xx,yy,3),SIb(xx,yy),0,0,2,0,SIn$(xx,yy),2,2,2,1,xx,yy,lord)
  15529. 3:eship(lord,X)=0:
  15530. (SId(sel,actual)/200)
  15531.  b_won=1 
  15532.   SIi(sel,actual)=lord
  15533. 3   SIk%(sel,actual,W)=a_army(W):eship(lord,W)=0
  15534.    k=SIk%(sel,actual,W)
  15535.  k>d 
  15536.  a=k-d:SIk%(sel,actual,W)=d:eship(lord,W)=a
  15537.  plan(sel,actual)=8 
  15538.    r=0
  15539.  psun(lord,a)=0 
  15540.    psun(lord,r)=sel
  15541. !    
  15542.  psun(1,a)=sel 
  15543.  rfutt=a
  15544. '   ptarget(lord,r)=ptarget(1,rfutt)
  15545.    psun(1,rfutt)=0
  15546.    ptarget(1,rfutt)=0
  15547. #   SIk%(sel,actual,X)=d_army(X)
  15548.  SIk%(sel,actual,X)>d SIk%(sel,actual,X)=d
  15549.  X=sel
  15550.  Y=actual
  15551.  xx=X:yy=Y
  15552.  window_open=0
  15553. newtitle
  15554.  ab,ac,length
  15555.  lord=1
  15556.       a=0
  15557.  X=1 
  15558.  Y=1 
  15559.  SIi(X,Y)=lord 
  15560.  a+=1
  15561.   ab=2+
  15562. (Sol/20)
  15563.   ac=
  15564. (a/ab)
  15565.  ac<8 
  15566.  lord<=players 
  15567.  ac>Ha(1) 
  15568.  ac>ttl 
  15569. playsoon(5)
  15570.     X=0:Y=0
  15571. fillarray("t"+
  15572. (ac),5)
  15573.     noplanet=1
  15574.     H$=H$(lord):
  15575. uppercase
  15576. cms(t$(565)+H$,1,1)
  15577. cms(t$(566),3,1)
  15578. ;    
  15579. (34)+ta$+" "+PName$+" "+title$(ac)+
  15580. (34),5,1)
  15581.      
  15582. cms(ar$(a),6+a,1)
  15583. getMK
  15584. gmerge("me6")
  15585. schoose("menu")
  15586. plot(0,204,232)
  15587. sdelete("menu")
  15588. !    
  15589. fillarray("sgc"+
  15590. (ac),6)
  15591. -    
  15592. cms("MESSAGE FROM SPACE GUILD ",1,1)
  15593.     length=0
  15594.      
  15595. cms(ar$(a),2+a,1)
  15596. !     
  15597.  ar$(a)<>"" 
  15598.  length+=1
  15599. f    
  15600.  punish%(1,0)+punish%(1,1)+punish%(1,2)>0 
  15601. cms(t$(567),length+4,1):
  15602. cms(t$(568),length+5,1)
  15603. getMKw
  15604.     ttl=ac
  15605.    Ha(lord)=ac
  15606.  lord
  15607.  noplanet=0
  15608. checkalive
  15609.  plrd
  15610.   ar$(a)=""
  15611.  plrd=0
  15612.  lord=1
  15613.  X=1 
  15614.  Y=1 
  15615. :    =    
  15616.  SIi(X,Y)=lord 
  15617.  firstplanet(lord)=0 
  15618.  ar$(lord)="x"
  15619.  SIi(X,Y)=1 
  15620.  plrd=1
  15621.  lord
  15622.  plrd=0 
  15623.  players=1 
  15624.  firstplanet(1)=0
  15625.      ok=0
  15626.  a=1 
  15627.  ar$(a)="x" 
  15628.  ok+=1
  15629.  ar$(a)="" 
  15630.  existing(a)<>0 
  15631.  firstplanet(a)=1 
  15632.  (players>1 
  15633.  a>players)
  15634. '    
  15635.  credits(a)>=150 
  15636.  a>players 
  15637.      tactic(a)=9
  15638.      flying(a)=0
  15639.      firstplanet(a)=0
  15640.         
  15641.      
  15642. playsoon(9)
  15643.      X=0:Y=0
  15644.      noplanet=1
  15645.      H$=H$(a):
  15646. uppercase
  15647.      
  15648. cms(H$+t$(569),1,1)
  15649. :"*     
  15650. g(a)+" "+H$(a)+t$(570),3,1)
  15651.      
  15652. cms(t$(571),4,1)
  15653. :$%     
  15654. donotice(0,0,H$(a)+t$(572))
  15655.      noplanet=0
  15656.      
  15657. getMK
  15658.      window_open=0
  15659.      existing(a)=0
  15660.      orbit(a)=0
  15661. :+        
  15662.  players=1 
  15663. :2>  
  15664.  IF ar$(1)="" AND firstplanet(1)<>0 THEN PROCplayerdead
  15665. :3#  
  15666.  IF ok=1 AND ar$(1)="x" THEN
  15667.   PROCgamedone
  15668.  ENDIF
  15669.   firstplanet=0
  15670.   ok=0
  15671.  a=1 
  15672.  players
  15673.  ar$(a)="x" 
  15674.  ok+=1
  15675. :;      
  15676.  ok=0 
  15677. allplayersdead
  15678.  ok=1 
  15679.  a=1 
  15680.  players
  15681. :A%     
  15682.  ar$(a)="x" 
  15683. playerwon(a)
  15684. fillstatus
  15685.  players>1 
  15686.  firstplanet(1)=0 
  15687. hour_off
  15688.  normalfont<7 
  15689. :O7   
  15690.  normalfont<5 
  15691. counselor(12) 
  15692. counselor(13)
  15693. hour_on
  15694.  mousewait 
  15695. getMKt:mousewait=0
  15696.  mousewait=1
  15697. masterredo
  15698.  fr,pa,pb,ho,riots,rpl$
  15699.  rettx=X:retty=Y
  15700.  X=0:Y=0
  15701.  ar$(1)="Diplomacy"
  15702.  ar$(2)="Army"
  15703.  ar$(3)="Science"
  15704.  ar$(4)="Population"
  15705.  200,300:
  15706.  1080,920:
  15707. sget("abc")
  15708. 6,112,1
  15709. schoose("abc"):
  15710. plot(0,200,300)
  15711. sdelete("abc")
  15712.  fr=0 
  15713. :d.  
  15714. frame(200,300+fr*128,500,420+fr*128,42)
  15715. :e/  
  15716. frame(508,300+fr*128,1080,420+fr*128,42)
  15717. :f0  
  15718. inframe(208,308+fr*128,492,412+fr*128,42)
  15719. :g1  
  15720. inframe(516,308+fr*128,1072,412+fr*128,42)
  15721. :h%  
  15722. sfpB(ar$(4-fr),228,352+fr*128)
  15723. fillarray("mst",61)
  15724. frame(200,820,1080,920,42)
  15725. inframe(208,828,1072,912,42)
  15726. sfpB("STATUS REPORT, MONTH "+
  15727. (normalfont-1),356,860)
  15728.  X=rettx:Y=retty
  15729.  X=0:Y=0
  15730.  a=0:b=0
  15731.  existing(n) 
  15732.  allied(1,n) 
  15733.  a+=1
  15734.  evillord(n)=1 
  15735.  b+=1
  15736.  a$=" ally":
  15737.  a<>1 a$+="s"
  15738. :x' b$="  enemy":
  15739.  b<>1 b$="  enemies"
  15740.  a=0 c$="no"
  15741.  b=0 d$="no"
  15742. fms("  We have "+c$+a$+" and "+d$,4,1)
  15743.  a*2<b*3 
  15744.  a$=ar$(4) 
  15745.  a$=ar$(3)
  15746. fms(b$+". "+a$,5,1)
  15747.  a=1:h=0:u=0
  15748.  pa=1
  15749.  pb=1
  15750.  SIi(pa,pb)=1 
  15751.     u+=1
  15752. 3    c=SIk%(pa,pb,1)+SIk%(pa,pb,2)+SIk%(pa,pb,3)
  15753.  c<normalfont 
  15754.     h+=SIr(pa,pb)
  15755. 1    
  15756.  SIr(pa,pb)>8 
  15757.  riots=1:rpl$=SIn$(pa,pb)
  15758.  pb,pa
  15759.  u>1 b$="s" 
  15760.  b$=""
  15761.  Ps%(1,5) 
  15762. fms(ar$(8-2*a),7,1)
  15763. fms(ar$(7)+b$+".",8,1)
  15764. fms(ar$(22),7,1)
  15765. fms(ar$(23),8,1)
  15766.  invent%(1,n) 
  15767.  a+=1
  15768.      b=10
  15769.  t%(1)<5 
  15770.  b=12
  15771.  a=14 
  15772.  b=14
  15773.  b=10 
  15774.  1:b=10
  15775.  2:b=24
  15776.  3:b=26
  15777. fms(ar$(b),10,1)
  15778. fms(ar$(b+1),11,1)
  15779.  u>0 
  15780. (h/u) 
  15781.      ho=0
  15782.  b<2  ho=30
  15783.  b>=2 ho=40
  15784.  b>5 ho=50
  15785.  b>7 ho=16
  15786. (5)-1:
  15787.  b>7 R=
  15788. (3)-1
  15789.  riots 
  15790. fms(ar$(60),13,1)
  15791. fms("  "+rpl$+"!",14,1)
  15792. fms(ar$(ho+R*2),13,1)
  15793. fms(ar$(ho+R*2+1),14,1)
  15794.  ar$(ho+R*2+1)="" 
  15795. fms("  a "+PName$+" monument!",14,1)
  15796. front(200,300,1080,920,2)
  15797.  window_open=0
  15798.  mustclear=1
  15799. fms(f$,fl,fn)
  15800.  stline$(fl)<>f$ 
  15801. f_yel 
  15802. f_wht
  15803.  stline$(fl)=f$
  15804. sfpB(f$,500,932-fl*43)
  15805. playerwon(player)
  15806. mus_load("ST2")
  15807. gload("en1")
  15808. mus_play(0,13)
  15809. fade(2,0,15)
  15810. 6,112,1
  15811. 6,113,1
  15812. fadeinstars
  15813. exfade(t$(679))
  15814. exfade(t$(680))
  15815. exfade(t$(681))
  15816. exfade(t$(682))
  15817. exfade("Emperor "+H$(player)+".")
  15818. 6,112,2
  15819. picture("ST"+
  15820. (2)))
  15821. flagload(flag(player))
  15822.  524,456:
  15823.  756,608:
  15824. sget("flback")
  15825. gmerge("wd1")
  15826. schoose("well"):
  15827. plot(8,40,484)
  15828. schoose("done"):
  15829. plot(8,772,484)
  15830.  A,B,C:I$=
  15831.  C=0 
  15832.  I$=""
  15833. 6,113,2
  15834.   time_index=
  15835. flagstep(524,456)
  15836. -time_index<1 
  15837. -time_index>=1
  15838.  A,B,C
  15839.   I$=
  15840.  C>0 
  15841.  I$<>""
  15842. fade(2,0,15)
  15843. wait(50)
  15844. againornot
  15845. allplayersdead
  15846. adjust(3)
  15847. pixel(p$,x,y,pcl1,ptnt1,pcl2,ptnt2)
  15848.  l,fuck,fnum,pia,pib
  15849.  H$=p$
  15850. uppercase
  15851.  p$=H$
  15852.  l=1 
  15853.   pia=x+(l-1)*16+4
  15854.  pia,y
  15855. p$,l,1)
  15856.  FOR pix=0TO1
  15857.  pix=1
  15858.  IF pix=0 GCOL 0 TINT 0
  15859.  fuck=1 
  15860.  IF pix>0 THEN
  15861. 4    
  15862.  fuck=1 
  15863.  pcl1 
  15864.  ptnt1 
  15865.  pcl2 
  15866.  ptnt2
  15867.  ENDIF
  15868.     pia=x+(l-1)*16
  15869.  IF pix=0 THEN pia+=4
  15870.  pia,y
  15871. 2    
  15872.  fuck=1 
  15873. p$,l,1) 
  15874. p$,l,1))+128)
  15875.  fuck
  15876.  NEXT pix
  15877. uppercase
  15878. H$,m,1))>96
  15879. H$,m,1))<123 
  15880. H$,m,1)= 
  15881. H$,m,1))-32)
  15882. markstar(sx,sy,c)
  15883. schoose("mk"+
  15884. plot(8,sx,sy)
  15885. newexplored
  15886.  SIi(X,Y)<=players 
  15887. playsoon(10)
  15888. (2)=1 
  15889. fillarray("an1",20)
  15890. donotice(X,Y,t$(575))
  15891. cms(t$(573),5,1)
  15892. cms(t$(574),7,1)
  15893.   a$=""
  15894. (2)+1
  15895.   a$+=ar$(
  15896. (20))
  15897. (4)=1 
  15898.  a$+="-"
  15899. ;       
  15900. ;!$  
  15901. a$,1)="-" 
  15902. (a$)-1)
  15903.   H$=
  15904. a$,1):
  15905. uppercase
  15906. a$,1)=H$
  15907. (34)+a$+
  15908. (34),8,1)
  15909. fillarray("an2",20)
  15910.   c$=ar$(
  15911. (20))
  15912. fillarray("an6",10)
  15913.   d$=ar$(
  15914. (10))
  15915. ;)8  
  15916. cms("This is a "+c$+" "+d$+" creature that",10,1)
  15917. fillarray("an3",10)
  15918.   c$=ar$(
  15919. (10))
  15920. fillarray("an7",5)
  15921. ;-7  
  15922. cms("lives "+c$+" and eats "+ar$(
  15923. (5))+".",11,1)
  15924. (5)*5
  15925. ;//  
  15926. cms(t$(576)+SIn$(X,Y)+" therefore",13,1)
  15927. ;0.  
  15928. cms("gets "+
  15929. (R)+" Mega Credits.",14,1)
  15930. ;14  credits(SIi(X,Y))+=R:
  15931.  SIi(X,Y)=1 
  15932.  credits+=R
  15933. getMKw
  15934. fillarray("an8",20)
  15935. cms(t$(577),5,1)
  15936. donotice(X,Y,t$(578))
  15937. cms(t$(579),7,1)
  15938.   a$=""
  15939. (2)+1
  15940.   a$+=ar$(
  15941. (20))
  15942. (4)=1 
  15943.  a$+="-"
  15944. ;<      
  15945. ;=$  
  15946. a$,1)="-" 
  15947. (a$)-1)
  15948.   H$=
  15949. a$,1):
  15950. uppercase
  15951. a$,1)=H$
  15952. (34)+a$+
  15953. (34),8,1)
  15954. fillarray("an5",10)
  15955.   c$=ar$(
  15956. (10))
  15957. fillarray("an6",10)
  15958.   d$=ar$(
  15959. (10))
  15960. ;E2  
  15961. cms("This is a "+c$+" plant with "+d$,10,1)
  15962. fillarray("an4",10)
  15963. ;G7  
  15964. cms("flowers. It lives in "+ar$(
  15965. (10))+".",11,1)
  15966. (4)*5
  15967. ;I/  
  15968. cms(t$(576)+SIn$(X,Y)+" therefore",13,1)
  15969. ;J.  
  15970. cms("gets "+
  15971. (R)+" Mega Credits.",14,1)
  15972. ;K4  credits(SIi(X,Y))+=R:
  15973.  SIi(X,Y)=1 
  15974.  credits+=R
  15975. getMKw
  15976. fillarray(a$,n)
  15977.  animshow=0 A=
  15978. ("Data."+a$) 
  15979.  A=0 
  15980. ("Data2."+a$)
  15981.   ar$(b)=""
  15982.    b$=
  15983.  eorvalue)
  15984. ;X+   
  15985.  b$<>
  15986. (13) 
  15987.  b$<>
  15988. (10) 
  15989.  ar$(b)+=b$
  15990. (13) 
  15991. scientists(lord)
  15992. ;_     ok=0
  15993.  invent%(lord,a)=0 ok=1
  15994.  ok=0 
  15995. newexplored:
  15996.  la,ab$,vb$
  15997. fillarray("se1",14)
  15998. ;g     R=14
  15999. ;h     ok=0
  16000.   la=
  16001.  invent%(lord,la)=0 
  16002.    ab$=ar$(la)
  16003.    b$=
  16004. ab$,1)
  16005.    c=
  16006. ab$,3,1))
  16007.    d=
  16008. ab$,4,1))
  16009.    e=
  16010. ab$,5,1))
  16011.    ab$=
  16012. (ab$)-6)
  16013.    ok=0
  16014. ;s&   
  16015.  invent%(lord,c)=1 
  16016.  c=0 ok+=1
  16017. ;t&   
  16018.  invent%(lord,d)=1 
  16019.  d=0 ok+=1
  16020. ;u&   
  16021.  invent%(lord,e)=1 
  16022.  e=0 ok+=1
  16023.  ok=3 ok=1 
  16024.  ok=0
  16025.  "p": vb$="Physical"
  16026.  "m": vb$="Mechanical"
  16027.  "e": vb$="Electronical"
  16028.  "i": vb$="Medical"
  16029.  "w": vb$="Weapon"
  16030.  la<=5 
  16031. fillarray("sc"+
  16032. (la),13)
  16033.    c(a)=
  16034. (ar$(a+6))
  16035. fillarray("se1",14)
  16036. &  c$(1)=
  16037. ar$(c(1)),
  16038. (ar$(c(1)))-6)
  16039.  c(a)>0 c$(a)=
  16040. ar$(c(a)),
  16041. (ar$(c(a)))-6) 
  16042.  c$(a)=""
  16043.  SIi(X,Y)<=players 
  16044.   lord=SIi(X,Y)
  16045. playsoon(5)
  16046. fillarray("sc"+
  16047. (la),6)
  16048.   fx=1:fxc=&fff00fff
  16049.   noplanet=1
  16050.  window_open=0 
  16051. cms("",0,1)
  16052.  window_open 
  16053. gmerge("me7")
  16054. schoose("menu")
  16055. plot(0,208,232)
  16056. sdelete("menu")
  16057. cms(t$(580)+ab$,1,0)
  16058.  SIi(X,Y)<=players 
  16059. donotice(X,Y,t$(580)+ab$)
  16060. cms("("+vb$+" Research)",2,0)
  16061.   fx=0
  16062. cms(ar$(n),n,0)
  16063.  la<=5 
  16064. cms(t$(581),8,0)
  16065.    fx=1:fxc=&fff00fff
  16066. cms(c$(n),9+n,0)
  16067.    fx=0
  16068.    R=
  16069. (10)*10
  16070. cms(t$(576)+SIn$(X,Y)+" earns",8,0)
  16071. cms("therefore "+
  16072. (R)+" Mega Credits.",9,0)
  16073. 5   credits(SIi(X,Y))+=R:
  16074.  SIi(X,Y)=1 
  16075.  credits+=R
  16076. getMKw
  16077.   invent%(lord,la)=1
  16078.   noplanet=0
  16079.   invent%(lord,la)=1
  16080. !  credits(SIi(X,Y))+=
  16081. (10)*10
  16082. scimoney
  16083.  lord=SIi(X,Y)
  16084.  credits(1)=credits
  16085. (credits(lord))/50)*10
  16086.  R<20 R=20
  16087.  credits(lord)<R 
  16088. cms(t$(582),5,1)
  16089. cms(t$(583)+SIn$(X,Y)+" demand",7,1)
  16090. (R)+t$(584),8,1)
  16091. cms(t$(585),9,1)
  16092. cms(t$(586),10,1)
  16093. askmasterb
  16094.  accepted=1 
  16095.  credits(lord)-=R
  16096.  credits=credits(1)
  16097.  PROCcllt
  16098.  window_open=0
  16099. askmaster(ax,ay,ld)
  16100.  accepted=0
  16101.  ld=1 
  16102. gmerge("br1") 
  16103. gmerge("br14")
  16104. schoose("export")
  16105. plot(0,ax,ay)
  16106. sdelete("export")
  16107. 6,21,9
  16108.      ok=0
  16109.  A,B,C: 
  16110.  C<>0
  16111.  B>ay 
  16112.  B<ay+40 
  16113.  A>ax+12  
  16114.  A<ax+254 
  16115. button(ax,ay,ax+240,ay+48,1):accepted=1:ok=1
  16116.  B>ay 
  16117.  B<ay+40 
  16118.  A>ax+258 
  16119.  A<ax+482 
  16120. button(ax+248,ay,ax+468,ay+48,1):accepted=0:ok=1
  16121. epidemic(fact)
  16122.  normalfont<10 
  16123.  fact<>2 
  16124.  H$=SIn$(X,Y)
  16125.  fact=1 SIr(X,Y)+=2 
  16126.  SIr(X,Y)+=1
  16127. uppercase
  16128. playsoon(9)
  16129.  fact=1 
  16130. cms(t$(587)+H$,5,1):
  16131. donotice(X,Y,t$(589))
  16132.  fact=2 
  16133. cms(t$(588)+H$,5,1):
  16134. donotice(X,Y,t$(590))
  16135. cms(t$(591),7,1)
  16136. cms(t$(592),8,1)
  16137. % RN=
  16138. (15):
  16139.  SIna(X,Y)<15 
  16140. . SIna(X,Y)-=RN:
  16141.  SIna(X,Y)<0 
  16142.  SIna(X,Y)=0
  16143.  surf%(A,B)=2 
  16144.  RN>0 
  16145.  surf%(A,B)=10:RN-=1
  16146.  RN=0 A=16:B=16
  16147. getMKw
  16148. cityepidemic
  16149.  normalfont<10 
  16150.  closedown=
  16151.  closedown>SIc(X,Y) closedown=SIc(X,Y)
  16152.  SIc(X,Y)-=closedown
  16153.  H$=SIn$(X,Y)
  16154. uppercase
  16155. playsoon(8)
  16156. cms(t$(593)+H$,5,1):
  16157. donotice(X,Y,t$(594))
  16158. ( a$=t$(595):
  16159.  closedown=1 a$=t$(596)
  16160. (closedown)+" "+a$+t$(597),7,1)
  16161. cms(t$(598)+a$+t$(599),8,1)
  16162. cms(t$(600),9,1)
  16163.  surf%(A,B)=5 
  16164.  surf%(A,B)=20:closedown-=1
  16165.  closedown=0 
  16166.  A=16:B=16
  16167.  IF closedown>0 THEN PRINT"'ERROR':NOT ENOUGH CLOSED DOWN"'"MISSING: ";closedown
  16168. getMKw
  16169. armykilled
  16170.  window_open=0
  16171.  fx=0:fxc=0
  16172. (10):S=
  16173. (10):T=
  16174.  R>SIk%(X,Y,1) 
  16175.  R=SIk%(X,Y,1)
  16176.  S>SIk%(X,Y,2) 
  16177.  S=SIk%(X,Y,2)
  16178.  T>SIk%(X,Y,3) 
  16179.  T=SIk%(X,Y,3)
  16180.  R+S+T=0 
  16181.  noplanet=0:
  16182.  SIi(X,Y)<=players 
  16183. cms("",0,0)
  16184. cms(t$(601),5,0)
  16185. cms(t$(602)+SIn$(X,Y)+t$(603),7,0)
  16186. cms(t$(604),8,0)
  16187.  SIi(X,Y)<=players 
  16188. donotice(X,Y,t$(605))
  16189.  SIk%(X,Y,1)-=R
  16190.  SIk%(X,Y,2)-=S
  16191.  SIk%(X,Y,3)-=T
  16192.  IF SIi(X,Y)<=players mousewait=1
  16193. getMKw
  16194.  window_open=0
  16195.  noplanet=0
  16196. surfchange(see)
  16197.  gc,blan
  16198.  window_open=0
  16199.  plan(X,Y)>6 
  16200.  H$=SIn$(X,Y):
  16201. uppercase
  16202. ws(plan(X,Y)):C$=A$
  16203.  a=plan(X,Y)
  16204.  R=1 
  16205.  1: b=2
  16206.  2: b=6
  16207.  3: b=5
  16208.  4: b=2
  16209.  5: b=4
  16210.  6: b=1
  16211.  1: b=2
  16212.  2: b=3
  16213.  3: b=5
  16214.  4: b=5
  16215.  5: b=3
  16216.  6: b=4
  16217.  blan=b
  16218. ws(blan):B$=A$
  16219.  gc=plan(X,Y)
  16220.  see 
  16221. donotice(X,Y,t$(606))
  16222. cms(t$(607)+H$,5,1)
  16223. cms(t$(608),7,1)
  16224. cms(t$(609),8,1)
  16225. <I"  
  16226. cms(C$+" into "+B$+".",9,1)
  16227. getMKw
  16228.  plan(X,Y)=blan
  16229.  blan 
  16230. 1:SIs(X,Y)=12
  16231. 2:SIs(X,Y)=4
  16232. 3:SIs(X,Y)=2
  16233. 4:SIs(X,Y)=6
  16234. 5:SIs(X,Y)=6
  16235. 6:SIs(X,Y)=10
  16236. (SId(X,Y)/1000)
  16237.  I<10 SIs(X,Y)-=1
  16238.  I>12 SIs(X,Y)+=1
  16239.  window_open=0
  16240. ws(k)
  16241. 1:A$="forest"
  16242. 2:A$="desert"
  16243. 3:A$="volcano"
  16244. 4:A$="rock"
  16245. 5:A$="ice"
  16246. 6:A$="terra-class"
  16247. 7:A$="gas"
  16248. 8:A$="techic"
  16249. frame(x1,y1,x2,y2,col)
  16250.  fcol,ftint
  16251. x1,y1)=42 
  16252. (x1,y1)=0 
  16253. x2,y2)=42 
  16254. (x2,y2)=0 
  16255. x2-1,y2)=42 
  16256. (x2-1,y2)=192 
  16257.  fcol=spotcol%(col)
  16258.  ftint=spottint%(col)
  16259.  col 
  16260.  x1,y1,x2-x1,y2-y1
  16261.  col 
  16262.  x1,y1,x1,y2
  16263.  x1,y2,x2,y2
  16264.  col 
  16265.  x1,y1,x2,y1
  16266.  x2,y1,x2,y2
  16267.  col 
  16268.  x1,y1
  16269.  x2,y2
  16270.  fcol 
  16271.  ftint
  16272.  x1,y2
  16273.  col 
  16274.  x1+4<x2 
  16275.  x1+4,y2
  16276.  x1+8<x2 
  16277.  x1+8,y2
  16278.  y2-4>y1 
  16279.  x1,y2-4
  16280.  y2-8>y1 
  16281.  x1,y2-8
  16282. button(x1,y1,x2,y2,wtt)
  16283.  flg1,flg2
  16284. (x1,y1+8)<>192 flg1=
  16285. (x1,y1+8)
  16286. (x2,y1+8)<>192 flg2=
  16287. (x2,y1+8)
  16288. bp(0,192,1)
  16289.  wtt 
  16290. wait(8)
  16291. bp(192,0,0)
  16292. bp(a,b,push)
  16293.  x1,y2,x2,y2
  16294.  flg1>0 
  16295.  b=0 
  16296.  flg1
  16297.  x1,y1,x1,y2
  16298.  x1,y1,x2,y1
  16299.  flg2>0 
  16300.  b=0 
  16301.  flg2
  16302.  x2,y1,x2,y2
  16303.  push=1 
  16304.  x1+8,y1+8,(x2-x1)-16,(y2-y1)-16 
  16305.  x1+12,y1+4
  16306.  spotcol%(42) 
  16307.  spottint%(42)
  16308.  x2,y1
  16309.  x2-4>x1 
  16310.  x2-4,y1
  16311.  x2-8>x1 
  16312.  x2-8,y1
  16313.  y1+4<y2 
  16314.  x2,y1+4
  16315.  y1+8<y2 
  16316.  x2,y1+8
  16317.  x1+12,y1+4,(x2-x1)-16,(y2-y1)-16 
  16318.  x1+8,y1+8
  16319.  spotcol%(42) 
  16320.  spottint%(42)
  16321.  x1,y2
  16322.  x1+4<x2 
  16323.  x1+4,y2
  16324.  x1+8<x2 
  16325.  x1+8,y2
  16326.  y2-4>y1 
  16327.  x1,y2-4
  16328.  y2-8>y1 
  16329.  x1,y2-8
  16330.  x1+4,y1+4,x2-4,y1+4
  16331.  x1,y1
  16332.  x2,y2
  16333. inframe(x1,y1,x2,y2,col)
  16334. if_slave(x1,y1,x2,y2,col)
  16335.  usepattern>0 
  16336.  no_texture=0 
  16337. 24,x1+4;y1+4;x2-4;y2-4;
  16338. schoose("pattern")
  16339.  plotx=1
  16340. ((x2-x1)/344)+1
  16341.  ploty=1
  16342. ((y2-y1)/344)+1
  16343. plot(0,x1+(plotx-1)*344,y1+(ploty-1)*344)
  16344. if_slave(x1,y1,x2,y2,col)
  16345.  fcol,ftint
  16346.  fcol=spotcol%(col)
  16347.  ftint=spottint%(col)
  16348.  x1+4,y1+4,x2-x1-8,y2-y1-8
  16349.  col 
  16350.  x1,y1,x1,y2
  16351.  x1,y2,x2,y2
  16352.  col 
  16353.  x1,y1,x2,y1
  16354.  x2,y1,x2,y2
  16355.  col 
  16356.  x1,y1
  16357.  x2,y2
  16358.  fcol 
  16359.  ftint
  16360.  x2,y1
  16361.  col 
  16362.  x2-4>x1 
  16363.  x2-4,y1
  16364.  x2-8>x1 
  16365.  x2-8,y1
  16366.  y1+4<y2 
  16367.  x2,y1+4
  16368.  y1+8<y2 
  16369.  x2,y1+8
  16370. exoframe(ex1,ey1,ex2,ey2)
  16371. frame(ex1-16,ey1-16,ex2+16,ey2+16,42)
  16372. inframe(ex1-8,ey1-8,ex2+8,ey2+8,42)
  16373. b_start(a,b,c,d,e,f,station%,aliens%,rebels%,human,mines,moonof$,reason,generalAT,generalDF,hbat,stkx,stky,eplayer)
  16374. L a_army(1)=a:a_army(2)=b:a_army(3)=c:d_army(1)=d:d_army(2)=e:d_army(3)=f
  16375.  ice,giveup,letwin,lord,justtalked
  16376.  a+b+c=0 
  16377.  human=2 
  16378.  a+b+c=0 b_won=2:
  16379.  d+e+f=0 d=1:d_army(1)=1     :
  16380.  b_won=1:ENDPROC
  16381. b_ready
  16382.  hbat 
  16383.   window_open=0
  16384.  fght%=1 
  16385. b_ground
  16386.  pos%=0 
  16387.     cre%=1
  16388. b_paint
  16389. _DoMouse(2)
  16390. b_place
  16391. mus_fadeout
  16392. mus_quit
  16393.     cre%=0
  16394. b_esetup
  16395.  pos%=1 
  16396.     human=3-human
  16397. b_esetup
  16398.     human=3-human
  16399. mus_fadeout
  16400. mus_quit
  16401.  music>0 
  16402.      
  16403. rmload(n)
  16404.     *channelvoice 1 1
  16405.     *channelvoice 2 1
  16406. b_correct
  16407. b_paint
  16408.     player=human
  16409. b_rplay
  16410. b_checkdakeyz
  16411. b_maytalk
  16412.  giveup=0 
  16413.      player=3-player
  16414.      
  16415. b_enemy
  16416.      
  16417. b_newround
  16418.         
  16419.  b_won
  16420. b_actual
  16421. b_end
  16422. _DoMouse(1)
  16423. b_stare
  16424.  fght% 
  16425.  hbat 
  16426. gload("ts1")
  16427. gmerge("pt1")
  16428. mouse_on
  16429.  fght%=0
  16430.  0,0,1279,1023
  16431. b_maytalk
  16432.  aat%,adf%
  16433.  aliens% 
  16434.  lord=eplayer
  16435.  rebels% 
  16436. (40)=1 
  16437. b_ecomm(4)
  16438. (40)=1 
  16439. =.A   
  16440.  human=2 
  16441. (hi%(lord) 
  16442. (hi%(lord) 
  16443.  16) 
  16444. b_ecomm(2)
  16445. =/'   
  16446.  human=1 
  16447.  credits(lord)>=100 
  16448.  x%=1
  16449.      
  16450.  y%=1
  16451.       g=bf%(x%,y%)
  16452.       
  16453.        
  16454.  1:aat%+=bn%(x%,y%)
  16455. =5!       
  16456.  2:aat%+=bn%(x%,y%)*2
  16457. =6!       
  16458.  3:aat%+=bn%(x%,y%)*3
  16459.        
  16460.  4:adf%+=bn%(x%,y%)
  16461. =8!       
  16462.  5:adf%+=bn%(x%,y%)*2
  16463. =9!       
  16464.  6:adf%+=bn%(x%,y%)*3
  16465. =:!       
  16466. 21:adf%+=bn%(x%,y%)*4
  16467.       
  16468.  y%,x%
  16469.  aat%*2>adf%*3 
  16470.      g=0
  16471.      
  16472.  x%=1 
  16473.       
  16474.  y%=1
  16475. =A#       
  16476.  SIi(x%,y%)=lord 
  16477.  g+=1
  16478.      
  16479.  y%,x%
  16480.      
  16481.  g=1 
  16482.       
  16483. b_ecomm(1)
  16484.      
  16485. =F        
  16486. b_init
  16487.  bf%(16,11),gr%(16,11),bs%(16,11),bn%(16,11),bd%(16,11)
  16488.  ba$(25),stx(4),sty(4),pl%(4)
  16489.  a_army(3),d_army(3),a_corr%(3),d_corr%(3)
  16490. b_gpr
  16491.  c>500 pr=25
  16492.  c<=500 pr=20
  16493.  c<200 pr=15
  16494.  c<100 pr=10
  16495.  c<60 pr=8
  16496.  c<30 pr=5
  16497.  m=normalfont
  16498.  m>=100 cn=12
  16499.  m<100 cn=10
  16500.  m<50 cn=8
  16501.  m<20 cn=5
  16502. b_ready
  16503.  grw,cok,sup
  16504. =e$ bf%()=0:gr%()=0:bs%()=0:bn%()=0
  16505. =fI I=1:a=0:b=0:killed=0:b_won=0:cre%=0:b_speed=0:xtr%=0:chn%=1:player=1
  16506. =g" ssh%=0:move%=0:pos%=0:fght%=1
  16507.  hbat=0 
  16508. b_calc:
  16509. mpart(16)
  16510. =k* acat%=(a_army(1)+a_army(2)+a_army(3))
  16511. =l* acdf%=(d_army(1)+d_army(2)+d_army(3))
  16512.  human=1 
  16513. =o-  
  16514.  credits(SIi(stkx,stky))>=3 
  16515. (3)=1 
  16516.    lord=SIi(stkx,stky)
  16517. =q+   c=credits(lord):R=0:cn=0:pr=0:
  16518. b_gpr
  16519.     S=
  16520. (R)+3:
  16521.  S>R S=R
  16522. =t(   
  16523.  S*pr<=credits(lord)+6 
  16524. (30)=1
  16525. =u"   credits(lord)-=S*pr:mines=S
  16526.  gmember(lord)=1 
  16527. =x-   d_army(1)+=5:d_army(2)+=5:d_army(3)+=5
  16528.  actualmenu=1 
  16529.   I=1:
  16530. 6,112,1
  16531. 6,113,2
  16532.   I=1:
  16533. 6,112,2
  16534. 6,113,1
  16535.  actualmenu=2 
  16536. picture("ms1")
  16537. 6,113,2
  16538. 6,112,1
  16539. picture("ms1")
  16540. 6,113,1
  16541. wait(30)
  16542.  300,440:
  16543.  979,723:
  16544. sget("scr2")
  16545. frame(300,440,979,723,42)
  16546.  human=2 
  16547. inframe(308,448,971,715,42)
  16548. sfpB(t$(610),324,660)
  16549.    i=
  16550. (acat%/10)*10:
  16551.  i<5 i=5
  16552. sfpB(
  16553. (i)+t$(611),324,620)
  16554. sfpB(
  16555. (acdf%)+t$(612),324,540)
  16556. sfpB(t$(613),324,500)
  16557. getMK
  16558.   m=normalfont
  16559.  m>100 s=11
  16560.  m<100 s=9
  16561.  m<50  s=6
  16562.  m<30  s=4
  16563.    a$=H$(n)
  16564.  (allied(n,plralley)
  16565. 4)>0 
  16566.  existing(n)>0 
  16567.     sup1=0:sup2=0:sup3=0
  16568. 1    
  16569.  (hi%(n)
  16570. 16)=0 
  16571.  evillord(n)<>plralley 
  16572.      
  16573.       
  16574.        
  16575.  SIi(a,b)=n 
  16576. ?        
  16577.  SIk%(a,b,1)>s*2 
  16578. (s-1):sup1+=d:SIk%(a,b,1)-=d
  16579. ?        
  16580.  SIk%(a,b,2)>s*3 
  16581. (s-1):sup2+=d:SIk%(a,b,2)-=d
  16582. ?        
  16583.  SIk%(a,b,3)>s*4 
  16584. (s-1):sup3+=d:SIk%(a,b,3)-=d
  16585.          
  16586. (3)>1 
  16587.  a=Sol:b=5
  16588.        
  16589.       
  16590.      
  16591.         
  16592. $    
  16593. inframe(308,448,971,715,42)
  16594.  sup1+sup2+sup3>0 
  16595.      
  16596. sfpB(t$(614),324,660)
  16597. >     
  16598. sfpB(
  16599. g(n)+" "+a$+t$(615)+
  16600. (sup1+sup2+sup3),324,620)
  16601.      
  16602. sfpB(t$(616),324,580)
  16603.      acdf%+=sup1+sup2+sup3
  16604. 8     d_army(1)+=sup1:d_army(2)+=sup2:d_army(3)+=sup3
  16605.         
  16606. ,     
  16607. sfpB(t$(617)+
  16608. g(n)+" "+a$,324,660)
  16609.      
  16610. sfpB(t$(618),324,620)
  16611.         
  16612. getMK
  16613.  gmember(1) 
  16614. inframe(308,448,971,715,42)
  16615. sfpB(t$(619),324,660)
  16616. sfpB(t$(620),324,620)
  16617. getMK
  16618. .   d_army(1)+=5:d_army(2)+=5:d_army(3)+=10
  16619. * acat%=(a_army(1)+a_army(2)+a_army(3))
  16620. * acdf%=(d_army(1)+d_army(2)+d_army(3))
  16621.  arm=2 
  16622.  b_speed=1
  16623.  station% 
  16624.  acdf%+=24
  16625.  acat%>200 size_AT=12
  16626.  acat%<=200size_AT=8
  16627.  acat%<=90 size_AT=5
  16628.  acat%<=30 size_AT=3
  16629.  acdf%>200 size_DF=12
  16630.  acdf%<=200size_DF=8
  16631.  acdf%<=90 size_DF=5
  16632.  acdf%<=30 size_DF=3
  16633.  credits>4 
  16634. (3)=1 
  16635.  human=2 
  16636. $  c=credits:R=0:cn=0:pr=0:
  16637. b_gpr
  16638. 6,112,2
  16639. inframe(308,448,971,715,42)
  16640. sfp(t$(621),324,660)
  16641. (R)+t$(622),324,620)
  16642. (pr)+t$(623),324,580)
  16643.   cn=R
  16644.   ch=0
  16645. gmerge("br3")
  16646. schoose("export2")
  16647. plot(0,724,460)
  16648. sdelete("export2")
  16649. sfp("Buy:",324,500)
  16650. f_yel
  16651. 572,500,60,30
  16652. (ch),572,500)
  16653. front(308,448,971,715,1)
  16654.  A,B,C:
  16655.  A,B,C
  16656.  C>0 
  16657. A>724 
  16658. A<960 
  16659. B>460 
  16660. B<568 
  16661.  B<504 
  16662.      cok=1
  16663.         
  16664.      
  16665.  A>832 
  16666. *      
  16667.  ch<cn 
  16668.  ch*pr<=credits 
  16669.  ch+=1
  16670.      
  16671.       
  16672.  ch>0 ch-=1
  16673.      
  16674.         
  16675.      
  16676. 572,500,60,30
  16677. (ch),572,500)
  16678.  A,B,C:
  16679. f_wht
  16680.  ch>0 
  16681.  credits-=ch*pr:mines=ch
  16682.  credits<0 
  16683.  credits=0
  16684. inframe(308,448,971,715,42)
  16685. sfpB(t$(624),324,660)
  16686. install(t$(625),324,580,1)
  16687. install(t$(626),324,540,2)
  16688. * flashnum=2:flashactual=0:flashstate=0
  16689.  grw=0
  16690. b_getrow
  16691.  j=grw
  16692.  j=1 
  16693. inframe(308,448,971,715,42)
  16694. sfpB(t$(627),324,660)
  16695. >    !  
  16696. install(t$(628),324,580,1)
  16697. install(t$(629),324,540,2)
  16698.   flashnum=2:flashactual=0
  16699.   grw=0
  16700. b_getrow
  16701.  grw=2 
  16702.  human=1 s=size_AT 
  16703.  s=size_DF
  16704.    ch=s
  16705. gmerge("br3")
  16706. inframe(308,448,971,715,42)
  16707. schoose("export2")
  16708. plot(0,724,460)
  16709. sdelete("export2")
  16710. sfp(t$(630)+
  16711. (s),324,660)
  16712. sfp(t$(631),324,580)
  16713. sfp("(Min: 2 Max: 20)",324,500)
  16714. f_yel
  16715. 572,580,60,30
  16716. (ch),572,580)
  16717.  A,B,C:
  16718.    cok=0
  16719.  A,B,C
  16720. > +    
  16721.  C>0 
  16722. A>724 
  16723. A<960 
  16724. B>460 
  16725. B<568 
  16726.      
  16727.  B<504 
  16728.       cok=1
  16729.      
  16730.       
  16731.  A>832 
  16732.        
  16733.  ch<20 ch+=1
  16734.       
  16735.        
  16736.  ch>2  ch-=1
  16737.       
  16738.      
  16739. >*!     
  16740. 572,580,60,30
  16741.      
  16742. (ch),572,580)
  16743.      
  16744.  A,B,C:
  16745. >-        
  16746. >/(   
  16747.  human=1 size_AT=ch 
  16748.  size_DF=ch
  16749. f_wht
  16750. >2"  
  16751. inframe(308,448,971,715,42)
  16752. sfpB(t$(627),324,660)
  16753. >4!  
  16754. install(t$(632),324,580,1)
  16755. >5!  
  16756. install(t$(633),324,540,2)
  16757.   flashnum=2:flashactual=0
  16758.   grw=0
  16759. b_getrow
  16760.  grw=1 pos%=0 
  16761.  pos%=1
  16762.   fght%=0
  16763. schoose("scr2")
  16764. plot(0,300,440)
  16765. sdelete("scr2")
  16766.  j=1 
  16767. gload("gf4")
  16768. gmerge("pt1")
  16769. >D'  
  16770.  aliens% 
  16771. gmerge("al"+
  16772. (2)))
  16773. >E   
  16774.  rebels% 
  16775. gmerge("rf1")
  16776. >F      c=0
  16777.    a=SIm%(stkx,stky)
  16778.  1:a=(a 
  16779.  3  )
  16780.  2:a=(a 
  16781.  12 ) >>2
  16782.  3:a=(a 
  16783.  48 ) >>4
  16784.  4:a=(a 
  16785.  192) >>6
  16786. >O#   bf%(0,n)=a:
  16787.  bf%(0,n)>0 c+=1
  16788. >P      
  16789.  c>1 
  16790. gmerge("gf"+
  16791. (bf%(0,R)))
  16792.  bf%(0,R)=2 ice=1
  16793. >T1  bf%(0,1)=0:bf%(0,2)=0:bf%(0,3)=0:bf%(0,4)=0
  16794.  fght% 
  16795.    a=a_army(n)
  16796.    a_army(n)=a 
  16797.  size_AT
  16798. >[U   
  16799.  size_AT>0 
  16800.  a_army(n)+=1:a_corr%(n)=size_AT-(a 
  16801.  size_AT) 
  16802.  a_corr%(n)=0
  16803.    a=d_army(n)
  16804.    d_army(n)=a 
  16805.  size_DF
  16806. >^U   
  16807.  size_DF>0 
  16808.  d_army(n)+=1:d_corr%(n)=size_DF-(a 
  16809.  size_DF) 
  16810.  d_corr%(n)=0
  16811. >_      
  16812.  flashnum=0:flashactual=0
  16813. b_getrow
  16814.  bbok%
  16815.  bbok%=0
  16816.  A,B,C:
  16817.   grw=0
  16818. flash(1)
  16819.  A,B,C
  16820.  C>0 
  16821.  A>330 
  16822. A<979 
  16823. >o%   
  16824.  B<=616 
  16825. B>=576 grw=1:bbok%=1
  16826. >p%   
  16827.  B<=576 
  16828. B>=536 grw=2:bbok%=1
  16829.  bbok%
  16830. b_paint
  16831.  ofs%,sta%,stb%
  16832. 6,112,2
  16833. >{%   
  16834. schoose("part"+
  16835. (X-1)+
  16836. (Y-1))
  16837. plot(0,X*80-80,Y*80-80)
  16838. >}g   
  16839.  gr%(X,Y)>0 
  16840.  (human=2 
  16841.  (human=1
  16842. gr%(X,Y)<>19)) 
  16843. schoose(
  16844. (gr%(X,Y))):
  16845. plot(8,X*80-80,Y*80-80)
  16846. >~      
  16847.  bf%(X,Y)<>0 
  16848. schoose(
  16849. (bf%(X,Y)))
  16850.      
  16851. plot(8,X*80-80,Y*80-80)
  16852. frame(0,884,1279,1023,42)
  16853.  cre%=0 
  16854. inframe(20,896,332,1003,42)
  16855. sfpB("The battle",32,966)
  16856. sfpB("of "+moonof$,32,927)
  16857. inframe(348,900,440,996,42)
  16858. inframe(462,896,880,1000,42)
  16859. schoose("hmenu1")
  16860. plot(0,900,952)
  16861. schoose("hmenu5")
  16862. plot(0,900,896)
  16863. schoose("hmenu2")
  16864. plot(0,1100,952)
  16865. schoose("hmenu4")
  16866. plot(0,1100,896)
  16867.  human=1 
  16868.  sta%=8:stb%=16 
  16869.  sta%=1:stb%=8
  16870. schoose("shade")
  16871.  X=sta% 
  16872.  stb%
  16873.      
  16874. plot(8,X*80-80,Y*80-80)
  16875.  human=1 
  16876.  ofs%=0 
  16877.  ofs%=3
  16878. inframe(n*192+12,908,n*192+104,1000,42)
  16879. inframe(n*192+117,921,n*192+186,966,42)
  16880. schoose("part00")
  16881. plot(0,(n-1)*192+20,916)
  16882. schoose(
  16883. (n+ofs%))
  16884. plot(8,(n-1)*192+20,916)
  16885. inframe(820,908,1260,1000,42)
  16886. schoose("part00")
  16887. plot(0,3*192+20,916)
  16888.  human=1 
  16889. schoose("25") 
  16890. schoose("19")
  16891. plot(8,3*192+20,916)
  16892.  human=2 a=d_army(1):b=d_army(2):c=d_army(3)
  16893.  human=1 a=a_army(1):b=a_army(2):c=a_army(3)
  16894.   ssh%=1
  16895. b_show(4,2,a):
  16896. b_show(10,2,b):
  16897. b_show(16,2,c)
  16898.  human=1 
  16899. b_show(22,2,3) 
  16900. b_show(22,2,mines)
  16901.   ssh%=0
  16902.  0,0:
  16903. 1279,1023:
  16904. sget("screen")
  16905. schoose("screen")
  16906. 6,112,1
  16907. plot(0,0,0)
  16908. b_ground
  16909.  FOR a=1TO20:gr%(RND(16),RND(11))=-1:NEXT
  16910.  FOR a=1TO10:gr%(RND(16),RND(11))=-2:NEXT
  16911.  FOR a=1TO10:gr%(RND(16),RND(11))=-3:NEXT
  16912.  FOR a=1TO20:gr%(RND(16),RND(11))=-4:NEXT
  16913.  FOR a=1TO20:gr%(RND(16),RND(11))=-5:NEXT
  16914.  ****** station *********
  16915.  station%=1 
  16916.   bf%(14,5)=21:bn%(14,5)=6
  16917.   bf%(14,6)=21:bn%(14,6)=6
  16918.   bf%(14,7)=21:bn%(14,7)=6
  16919.   bf%(15,6)=20:bn%(15,6)=10
  16920.   bf%(13,6)=21:bn%(13,6)=6
  16921.  A=1 
  16922. (10):gr%(
  16923. (16),
  16924. (11))=
  16925. (2)+29:
  16926. b_info
  16927.  ba$(0)="Ground"
  16928.  ba$(1)="Infantry"
  16929.  ba$(2)="Gliders"
  16930.  ba$(3)="Artillery"
  16931.  ba$(20)="Base, Control"
  16932.  ba$(21)="Base, Gun"
  16933.  ba$(25)="Rescue Beam"
  16934.  ba$(19)="Mine"
  16935.   ba$(X+3)=ba$(X)
  16936.  eb=bf%(a,b)
  16937.  342,896:
  16938.  896,1014:
  16939. sget("screen")
  16940. schoose("screen")
  16941. 6,112,2
  16942. plot(0,342,896)
  16943.  eb<4 
  16944. f_grn 
  16945. f_blu
  16946. inframe(348,900,440,996,42)
  16947. inframe(462,896,880,1000,42)
  16948. sfpB(ba$(eb),480,966)
  16949. f_wht
  16950.  eb>0 
  16951. schoose("part00")
  16952. plot(0,356,912)
  16953. plot(0,356,908)
  16954. schoose(
  16955. (eb))
  16956. plot(8,356,908)
  16957. 15,0)
  16958.  gr%(a,b)>0 
  16959.  gr%(a,b)<>19 
  16960.  (eb=1 
  16961. eb=4) 
  16962. schoose("cover"):
  16963. plot(8,480,904)
  16964.  (eb>0 
  16965.  eb<4 
  16966.  human=1) 
  16967.  (((eb>3 
  16968.  eb<7) 
  16969.  (eb=20 
  16970.  eb=21)) 
  16971.  human=2) 
  16972. schoose("sbr")
  16973.  bn%(a,b):
  16974. plot(0,460+X*20,932):
  16975.  342,896:
  16976.  896,1014:
  16977. sget("screen")
  16978. 6,112,1
  16979. schoose("screen")
  16980. plot(0,342,896)
  16981. b_fire
  16982.  fx,fy,fired,retta,rettb,range,x1,y1,x2,y2,notshoot,rx1,ry1,rx2,ry2,pok
  16983.  ((eb<1 
  16984.  eb>3) 
  16985.  player=1) 
  16986.  ((eb<4 
  16987.  eb>6) 
  16988.  eb<>21 
  16989.  player=2) 
  16990.  bs%(a,b)=3
  16991.  retta=a:rettb=b
  16992.  eb=1 
  16993.  eb=4 
  16994.  range=3
  16995.  eb=2 
  16996.  eb=5 
  16997.  range=4
  16998.  eb=3 
  16999.  eb=6 
  17000.  range=7
  17001.  (eb=3 
  17002.  eb=6) 
  17003.  xtr%=1 
  17004.  range=16
  17005.  eb=21 
  17006.  range=16
  17007.  x1=a-range
  17008.  y1=b-range
  17009.  player=1 
  17010.  eb=3 x1=a
  17011.  x2=x1+range*2
  17012.  y2=y1+range*2
  17013.  player=1 
  17014.  eb=3 x2=x1+range
  17015.  player=2 
  17016.  eb=6 x2=a
  17017.  x1<1 
  17018.  x1=1
  17019.  y1<1 
  17020.  y1=1
  17021.  x2>16 
  17022.  x2=16
  17023.  y2>11 
  17024.  y2=11
  17025.  pok=0
  17026.  sx = x1 
  17027.  sy = y1 
  17028.    ab=bf%(sx,sy)
  17029. ?"d   
  17030.  (((ab<1 
  17031.  ab>3) 
  17032.  player=1) 
  17033.  ((ab<4 
  17034.  ab>6) 
  17035.  ab<>21 
  17036.  ab<>20 
  17037.  player=2)) 
  17038.  ab<>0 
  17039.  pok=1
  17040.  pok=0 
  17041.  bs%(a,b)=bs%(a,b) 
  17042.  w=5:
  17043.  arm>=3 w=8
  17044. b_ps(
  17045. (eb),a,b)
  17046. wait(w)
  17047. ?-!  
  17048.  ice 
  17049. b_box
  17050. wait(w)
  17051.  x1=a*80-40-range*80
  17052.  y1=b*80-40-range*80
  17053.  player=1 
  17054.  eb=3 x1=a*80-40
  17055.  x2=x1+range*80*2
  17056.  y2=y1+range*80*2
  17057.  player=1 
  17058.  eb=3 x2=x1+range*80
  17059.  player=2 
  17060.  eb=6 x2=a*80-40
  17061.  x1<0 
  17062.  x1=0
  17063.  y1<0 
  17064.  y1=0
  17065.  x2>1271 
  17066.  x2=1271
  17067.  y2>876 
  17068.  y2=876
  17069. ?=& rx1=x1:ry1=y1:rx2=x2-x1:ry2=y2-y1
  17070.  rx1,ry1,rx2,ry2
  17071.  oa=1:ob=1
  17072.  oa,ob
  17073.  oa+80,ob+80
  17074. sget("hspr")
  17075.  a,b,c
  17076. ((a+80)/80)
  17077. ((b+80)/80)
  17078. ?H   
  17079.  (a<>oa 
  17080.  b<>ob) 
  17081.  b<12 
  17082. schoose("hspr")
  17083. ?J!   
  17084. plot(0,oa*80-80,ob*80-80)
  17085.  a*80-80,b*80-80
  17086.  a*80,b*80
  17087. sget("hspr")
  17088.    oa=a:ob=b
  17089. ?O    
  17090.  ice 
  17091. b_box
  17092. b_info
  17093.   I$=
  17094. ?T,  
  17095.  I$="i" 
  17096. I$="I" 
  17097. b_but(1):
  17098. b_stat:c=0
  17099. ?U,  
  17100.  I$="f" 
  17101. I$="F" 
  17102. b_but(2):
  17103. b_spsl:c=0
  17104. ?Vn  
  17105.  I$="t" 
  17106. I$="T" 
  17107. b_but(3):
  17108.  0,0,1271,1023:
  17109. b_talk:c=0:
  17110.  rx1,ry1,rx2,ry2:
  17111.  giveup 
  17112. b_checkdead:
  17113. ?WR  
  17114.  I$="q" 
  17115. I$="Q" 
  17116. b_but(4):
  17117. querybattle:
  17118.  accepted 
  17119.  giveup=1:
  17120. b_checkdead:
  17121. ?X,  
  17122.  c=4 
  17123.  (a<>retta 
  17124.  b<>rettb) 
  17125. b_shoot
  17126. ?Y2  
  17127.  c=4 
  17128.  a=retta 
  17129.  b=rettb notshoot=1:fired=1
  17130.  rx1,ry1,rx2,ry2
  17131.  b_won 
  17132.  fired
  17133.  a=retta:b=rettb
  17134.  oa=a:ob=b
  17135. sdelete("hspr")
  17136. b_ps(
  17137. (bf%(a,b)),a,b)
  17138.  a*80-80,b*80-80:
  17139.  a*80,b*80
  17140. sget("hspr")
  17141.  a*80-60,b*80-60
  17142.  notshoot=0 bs%(a,b)=bs%(a,b) 
  17143. b_info
  17144.  A,B,C:
  17145.  0,0,1271,1023
  17146. b_shoot
  17147.  hit,power,offset,ra,rb,rn$,w,alienhit
  17148.  bf%(a,b)=0 
  17149.  rett=bf%(a,b)
  17150.  player=human 
  17151. ?q0  
  17152.  human=1 
  17153.  (rett=1 
  17154.  rett=2 
  17155.  rett=3) 
  17156. ?rD  
  17157.  human=2 
  17158.  (rett=4 
  17159.  rett=5 
  17160.  rett=6 
  17161.  rett=20 
  17162.  rett=21) 
  17163.  bf%(retta,rettb)>3 
  17164.  offset=16 
  17165.  offset=0
  17166. b_ps(
  17167. (bf%(a,b)),a,b)
  17168. b_ps(
  17169. (bf%(retta,rettb)),retta,rettb)
  17170.  retta*80-80-offset,rettb*80-80
  17171.  retta*80+16-offset,rettb*80
  17172. sget("shspr")
  17173.  ********* auf Screen2 feuernde Kanone erstellen *********
  17174. ?}B  
  17175.  bf%(retta,rettb)<>21 rn$=
  17176. (bf%(retta,rettb)+12) 
  17177.  rn$="24"
  17178.   ra=retta:rb=rettb
  17179. 6,112,2
  17180. schoose("shspr"):
  17181.  hspr
  17182. plot(0,ra*80-80-offset,rb*80-80)
  17183. schoose("part"+
  17184. (ra-1)+
  17185. (rb-1)):
  17186. plot(0,ra*80-80,rb*80-80)
  17187.   g=gr%(ra,rb)
  17188.  g>0 
  17189.  (human=2 
  17190.  (human=1
  17191. g<>19)) 
  17192. schoose(
  17193. (gr%(ra,rb))):
  17194. plot(8,ra*80-80,rb*80-80)
  17195.  ra>1 
  17196. schoose("part"+
  17197. (ra-2)+
  17198. (rb-1)):
  17199. plot(0,(ra-1)*80-80,rb*80-80)
  17200.    g=gr%(ra-1,rb)
  17201.  g>0 
  17202.  (human=2 
  17203.  (human=1
  17204. g<>19)) 
  17205. schoose(
  17206. (gr%(ra-1,rb))):
  17207. plot(8,(ra-1)*80-80,rb*80-80)
  17208.  bf%(ra-1,rb)>0 
  17209. schoose(
  17210. (bf%(ra-1,rb))):
  17211. plot(8,(ra-1)*80-80,rb*80-80)
  17212.  ra<16 
  17213. schoose("part"+
  17214. (ra)+
  17215. (rb-1)):
  17216. plot(0,(ra+1)*80-80,rb*80-80)
  17217.    g=gr%(ra+1,rb)
  17218.  g>0 
  17219. (human=2 
  17220.  (human=1
  17221. g<>19)) 
  17222. schoose(
  17223. (gr%(ra+1,rb))):
  17224. plot(8,(ra+1)*80-80,rb*80-80)
  17225.  bf%(ra+1,rb)>0 
  17226. schoose(
  17227. (bf%(ra+1,rb))):
  17228. plot(8,(ra+1)*80-80,rb*80-80)
  17229. schoose(rn$):
  17230. plot(8,ra*80-80-offset,rb*80-80)
  17231. ra*80-80-offset,rb*80-80
  17232. ra*80+16-offset,rb*80-4
  17233. sget("over")
  17234. 6,112,1
  17235.  **********
  17236.  arm>3 wt=2 
  17237.  wt=1
  17238.  bn%(retta,rettb)
  17239.   f=bf%(retta,rettb)
  17240.  f=3 
  17241. f=21 w=8:
  17242. b_sound(3) 
  17243.  w=5:
  17244. b_sound(1)
  17245.  bn%(retta,rettb)>8 
  17246.  b_speed=1 w=1
  17247. schoose("over")
  17248. plot(0,ra*80-80-offset,rb*80-80)
  17249. wait(w+wt)
  17250. schoose("shspr")
  17251. plot(0,ra*80-80-offset,rb*80-80)
  17252.  bn%(retta,rettb)>8 
  17253.  b_speed=1 
  17254. wait(1+wt) 
  17255. wait(5)
  17256.  hit=0:alienhit=0
  17257.  r=bf%(retta,rettb)
  17258.  r=1 
  17259.  r=4 power=1
  17260.  r=2 
  17261.  r=5 power=2
  17262.  r=3 
  17263.  r=6 power=3
  17264.  r=21 power=4
  17265.  human<>player 
  17266.  power+=1
  17267.  rebels%=1 
  17268.  human<>player 
  17269.  power=1
  17270.  gr%(a,b)>0 
  17271.  gr%(a,b)<19 
  17272.  (bf%(a,b)=1
  17273. bf%(a,b)=4) 
  17274.  power-=3
  17275.  player=1 
  17276.  power+=generalAT-2 
  17277.  power+=generalDF-2
  17278.  power>4 power=4
  17279.  power<0 power=0
  17280.  aliens%=1 
  17281.  human<>player 
  17282.  gr%(a,b)>0 
  17283.  gr%(a,b)<19 
  17284.  (bf%(a,b)=1
  17285. bf%(a,b)=4) 
  17286.  power=1:alienhit=0 
  17287.  alienhit=1
  17288.  sh=1
  17289.  bn%(retta,rettb)
  17290. (6-power)=1 
  17291.  alienhit=1 
  17292.  b_speed=1 
  17293.     bn%(a,b)-=1
  17294. b_kill(a,b):
  17295. b_info
  17296.    hit=1
  17297.  bn%(a,b)=0 
  17298.  sh=bn%(retta,rettb)
  17299.  b_speed=1 
  17300.  hit=1 
  17301.  bn%(a,b)+=1:
  17302. b_kill(a,b):
  17303. b_info
  17304.  hit=0 
  17305. b_ps(
  17306. (bf%(a,b)),a,b)
  17307.  hit>0 
  17308.  gr%(a,b)=22 
  17309.   rett=21
  17310.   SIb(stkx,stky)=0
  17311.    gr%(14,5)=19:
  17312. b_kill(14,5)
  17313.    gr%(14,7)=19:
  17314. b_kill(14,7)
  17315.    gr%(14,6)=19:
  17316. b_kill(14,6)
  17317.    gr%(13,6)=19:
  17318. b_kill(13,6)
  17319.  fired=1
  17320. sdelete("shspr")
  17321. b_box
  17322.  al=a*80:bl=b*80
  17323.  al-80+4,bl-80,al-80+4,bl-80+16
  17324.  al-80+4,bl-80,al-80+20,bl-80
  17325.  al-80+4,bl-8 ,al-80+20,bl-8
  17326.  al-80+4,bl-24,al-80+4,bl-8
  17327.  al-8,bl-80,al-8,bl-80+16
  17328.  al-8,bl-80,al-24,bl-80
  17329.  al-8,bl-8,al-24,bl-8
  17330.  al-8,bl-8,al-8,bl-24
  17331. b_kill(kx,ky)
  17332.  bf%(kx,ky)=0 
  17333.  gr%(kx,ky)<>19 
  17334. 1279,1023:
  17335. sget("screen")
  17336. schoose("screen")
  17337. plot(0,0,0)
  17338. swapscreen
  17339. b_sound(2)
  17340. kx*80-160,ky*80-160
  17341. kx*80+80,ky*80+80
  17342. sget("over")
  17343. schoose("over")
  17344. plot(0,kx*80-160,ky*80-160)
  17345. schoose("xp"+
  17346. plot(8,kx*80-80,ky*80-80)
  17347. swapscreen
  17348. wait(1):
  17349.  arm>=3 
  17350. wait(2)
  17351. schoose("over")
  17352. plot(0,kx*80-160,ky*80-160)
  17353. swapscreen
  17354. 6,112,1
  17355.  gr%(kx,ky)=19 
  17356.  rett=2 
  17357.  rett=5 
  17358.  rett=2 a$="26" 
  17359.  a$="27"
  17360. b_ps(a$,kx,ky)
  17361. wait(5)
  17362.  rett<>20 
  17363.  rett<>21 gr%(kx,ky)=rett+6 
  17364.  gr%(kx,ky)=rett+2
  17365.   bf%(kx,ky)=0
  17366.   bs%(kx,ky)=0
  17367. schoose("part"+
  17368. (kx-1)+
  17369. (ky-1))
  17370. plot(0,kx*80-80,ky*80-80)
  17371.  human=2 
  17372. (human=1
  17373. gr%(kx,ky)<>19)
  17374. schoose(
  17375. (gr%(kx,ky)))
  17376. plot(8,kx*80-80,ky*80-80)
  17377. b_checkdead
  17378.   bn%(kx,ky)-=1
  17379.  bn%(kx,ky)=0 
  17380.  rett=2 
  17381.  rett=5 
  17382. "    
  17383.  rett=2 a$="26" 
  17384.  a$="27"
  17385. b_ps(a$,kx,ky)
  17386. wait(5)
  17387.  rett<>20 
  17388.  rett<>21 gr%(kx,ky)=rett+6 
  17389.  gr%(kx,ky)=rett+2
  17390.    bf%(kx,ky)=0
  17391.    bs%(kx,ky)=0
  17392. schoose("part"+
  17393. (kx-1)+
  17394. (ky-1))
  17395. plot(0,kx*80-80,ky*80-80)
  17396.  human=2
  17397. (human=1
  17398. gr%(kx,ky)<>19)
  17399. schoose(
  17400. (gr%(kx,ky)))
  17401. plot(8,kx*80-80,ky*80-80)
  17402. b_checkdead
  17403. @ !   
  17404. b_ps(
  17405. (bf%(kx,ky)),kx,ky)
  17406. b_newround
  17407. b_loadship
  17408. wait(20)
  17409. schoose("beam"+
  17410. plot(8,x*80-80,y*80-80)
  17411. wait(5)
  17412. b_ps("beam3",x,y)
  17413. b_ps("beam"+
  17414. (n),x,y)
  17415. wait(5)
  17416. b_ps("25",x,y)
  17417. wait(20)
  17418.  eb=rett
  17419.  eb=1
  17420. eb=4 
  17421.  ld=1
  17422.  eb=2
  17423. eb=5 
  17424.  ld=2
  17425.  eb=3
  17426. eb=6 
  17427.  ld=3
  17428.  human=1 ship(ld)+=rettn
  17429.  bf%(x,y)=0
  17430. b_enemy
  17431.  ex,ey,fb,retta,rettb,cx1,cy1,cx2,cy2,fired,rng,rettf,retts,rettn,killed,dir,moved,s_end,move,mv0,efnd,cna,cnb,killbase
  17432.  x,y,c:
  17433. @B7  
  17434.  x>=900 
  17435. x<1072 
  17436. y>=952
  17437. y<1004 
  17438. b_but(1):
  17439. b_stat
  17440. @C6  
  17441.  x>=900 
  17442. x<1072 
  17443. y>=896
  17444. y<944 
  17445. b_but(2):
  17446. b_spsl
  17447.  I$="i" 
  17448. I$="I" 
  17449. b_but(1):
  17450. b_stat
  17451.  I$="f" 
  17452. I$="F" 
  17453. b_but(2):
  17454. b_spsl
  17455.  cna=1:cnb=1
  17456.  na=1
  17457.  nb=1
  17458.    eb=bf%(na,nb)
  17459.  eb>0 
  17460.  bs%(na,nb)=0 
  17461.  eb<4 cna=0
  17462. @O'    
  17463.  ((eb>3 
  17464.  eb<7) 
  17465.  eb=21) cnb=0
  17466.  (cna=1 
  17467.  player=1) 
  17468.  (cnb=1 
  17469.  player=2) 
  17470.    eb=bf%(a,b)
  17471. @YY   
  17472.  ((player=2 
  17473.  ((eb>3 
  17474.  eb<7) 
  17475.  eb=21)) 
  17476.  (player=1 
  17477.  eb>0 
  17478.  eb<4)) 
  17479.  bs%(a,b)=0 
  17480.     move%+=1
  17481.     bs%(a,b)=3
  17482. b_info
  17483.     enfd=1
  17484.     rtta=a:rttb=b:rett=eb
  17485. @_#    
  17486.  player=2 
  17487.  eb<>21 
  17488.  eb-=3
  17489.  eb<3 
  17490.      s_end=0:killed=0
  17491.      ok=0
  17492. @c6     
  17493.  a<16 
  17494.  bf%(a+1,b)=0 
  17495.  gr%(a+1,b)<>25 ok=1
  17496. @d6     
  17497.  a>1  
  17498.  bf%(a-1,b)=0 
  17499.  gr%(a-1,b)<>25 ok=1
  17500. @e6     
  17501.  b<11 
  17502.  bf%(a,b+1)=0 
  17503.  gr%(a,b+1)<>25 ok=1
  17504. @f6     
  17505.  b>1  
  17506.  bf%(a,b-1)=0 
  17507.  gr%(a,b-1)<>25 ok=1
  17508.      
  17509. @h)      
  17510.  player=1 ta=4:tb=5:tc=6:td=21
  17511. @i)      
  17512.  player=2 ta=1:tb=2:tc=3:td=99
  17513. @j$      
  17514.  eb=1 
  17515.  steps=3 
  17516.  steps=4
  17517.       
  17518.        mv0=0
  17519. @m%       
  17520.  player=1 
  17521.  dir=1 
  17522.  dir=2
  17523.        mup=0:mdn=0
  17524.        y1=0:y2=0
  17525. @p-       
  17526.  (dir=1 
  17527.  a<16) 
  17528.  (dir=2 
  17529.  a>1) 
  17530.         ok=0
  17531. @r9        
  17532.  dir=1 
  17533.  bf%(a+1,b)>0 
  17534.  gr%(a+1,b)=25 ok=1
  17535. @s9        
  17536.  dir=2 
  17537.  bf%(a-1,b)>0 
  17538.  gr%(a-1,b)=25 ok=1
  17539.         
  17540.  player=2 
  17541.  eb=2 
  17542. @u+         
  17543.  dir=1 
  17544.  gr%(a+1,b)=19 ok=1
  17545. @v+         
  17546.  dir=2 
  17547.  gr%(a-1,b)=19 ok=1
  17548.         
  17549.         
  17550.          
  17551.  b>1 
  17552.           y1=bf%(a,b-1)
  17553. @{"          
  17554.  gr%(a,b-1)=25 y1=1
  17555. @|4          
  17556.  gr%(a,b-1)=19 
  17557.  player=2 
  17558.  eb=2 y1=1
  17559.          
  17560.  y1=1
  17561.          
  17562.          
  17563.  b<11 
  17564.           y2=bf%(a,b+1)
  17565. "          
  17566.  gr%(a,b+1)=25 y2=1
  17567. 4          
  17568.  gr%(a,b+1)=19 
  17569.  player=2 
  17570.  eb=2 y2=1
  17571.          
  17572.  y2=1
  17573.          
  17574.          
  17575.  y2>0 
  17576.  y1>0 
  17577.           s_end=1
  17578.          
  17579. #          
  17580.  y2=0 
  17581.  y1>0 
  17582.  mup=1
  17583. #          
  17584.  y2>0 
  17585.  y1=0 
  17586.  mdn=1
  17587.           
  17588.  y2=0 
  17589.  y1=0 
  17590. )           R=
  17591.  R=1 mdn=1 
  17592.  mup=1
  17593.           
  17594.          
  17595.         
  17596.        
  17597.        
  17598.  s_end=0 
  17599.         move=1
  17600. A        
  17601.  **** wenn jemand hinter ihm: nicht bewegen ********
  17602. E        
  17603.  **** Bei Bildschirmende: Ist jmd. auf seiner Spalte? **
  17604.         
  17605.  yy=1
  17606.          
  17607.  dir=1 
  17608. 1          
  17609.  a>1 
  17610.  f=bf%(a-1,yy) 
  17611.  f=bf%(a,yy)
  17612.          
  17613. 2          
  17614.  a<16 
  17615.  f=bf%(a+1,yy) 
  17616.  f=bf%(a,yy)
  17617.          
  17618. %         
  17619.  a=1 
  17620.  a=16 f=bf%(a,yy)
  17621. /         
  17622.  f=ta 
  17623.  f=tb 
  17624.  f=tc 
  17625.  f=td move=0
  17626.         
  17627. A        
  17628.  *** ist VOR oder HINTER dem Spieler noch jemand? **
  17629.         
  17630.  move 
  17631.          
  17632.  dir=1 
  17633.           
  17634.  a>1 
  17635.            c=0
  17636.            
  17637.  xx=a 
  17638.             
  17639.  yy=1 
  17640.              f=bf%(xx,yy)
  17641. 0             
  17642.  f=ta 
  17643.  f=tb 
  17644.  f=tc 
  17645.  f=td c=1
  17646.             
  17647.            
  17648. "           
  17649.  c=1 dir=1 
  17650.  dir=2
  17651.           
  17652.          
  17653.           
  17654.  a<16 
  17655.            c=0
  17656.            
  17657.  xx=a 
  17658.             
  17659.  yy=1 
  17660.              f=bf%(xx,yy)
  17661. 0             
  17662.  f=ta 
  17663.  f=tb 
  17664.  f=tc 
  17665.  f=td c=1
  17666.             
  17667.            
  17668. "           
  17669.  c=1 dir=2 
  17670.  dir=1
  17671.           
  17672.          
  17673.         
  17674. B        
  17675.  ** WENN jemand direkt hinter ihm: oben od. unten? **
  17676.         
  17677.  move=0 
  17678.          
  17679.  yy=1
  17680.           
  17681.  dir=1 
  17682. 3           
  17683.  a<16 
  17684.  f=bf%(a-1,yy) 
  17685.  f=bf%(a,yy)
  17686.           
  17687. 2           
  17688.  a>1 
  17689.  f=bf%(a+1,yy) 
  17690.  f=bf%(a,yy)
  17691.           
  17692. +          
  17693.  f=ta 
  17694.  f=tb 
  17695.  f=tc 
  17696.  f=td 
  17697.            
  17698.  yy>b 
  17699.  mup=0 
  17700.             
  17701.  b<11 
  17702. 8             
  17703.  bf%(a,b+1)=0 
  17704.  gr%(a,b+1)<>25 
  17705.  mup=1
  17706. 1             
  17707.  player=2 
  17708.  gr%(a,b+1)=19 mup=0
  17709.             
  17710.            
  17711.            
  17712.  yy<b 
  17713.  mdn=0 
  17714.             
  17715.  b>1  
  17716. 8             
  17717.  bf%(a,b-1)=0 
  17718.  gr%(a,b-1)<>25 
  17719.  mdn=1
  17720. 1             
  17721.  player=2 
  17722.  gr%(a,b-1)=19 mdn=0
  17723.             
  17724.            
  17725.           
  17726.          
  17727. #         
  17728.  mup=1 
  17729.  mdn=1 move=1
  17730.         
  17731. '        
  17732.  *** Stand auf Schrott ***
  17733. B         
  17734.  gr%(a,b)>0 
  17735. (2)=1 
  17736.  (eb=1 
  17737. eb=4) 
  17738.  move=0:s_end=1
  17739. B        
  17740.  ******** letzte Sicherheitsabfrage *****************
  17741.         
  17742.  move 
  17743. K         
  17744.  dir=1 
  17745.  a<16 
  17746.  bf%(a+1,b)>0 
  17747.  mup=0 
  17748.  mdn=0 s_end=1:move=0
  17749. K         
  17750.  dir=2 
  17751.  a>1  
  17752.  bf%(a-1,b)>0 
  17753.  mup=0 
  17754.  mdn=0 s_end=1:move=0
  17755. :         
  17756.  dir=1 
  17757.  a=16 
  17758.  mup=0 
  17759.  mdn=0 s_end=1:move=0
  17760. :         
  17761.  dir=2 
  17762.  a=1  
  17763.  mup=0 
  17764.  mdn=0 s_end=1:move=0
  17765. ,         
  17766.  b=11 
  17767.  mup>0 
  17768.  s_end=0:move=0
  17769. +         
  17770.  b=1 
  17771.  mdn>0 
  17772.  s_end=0:move=0
  17773. M         
  17774.  move 
  17775.  mdn 
  17776.  (bf%(a,b-1)>0 
  17777.  bf%(a,b-1)=25) 
  17778.  s_end=0:move=0
  17779. M         
  17780.  move 
  17781.  mup 
  17782.  (bf%(a,b+1)>0 
  17783.  bf%(a,b+1)=25) 
  17784.  s_end=0:move=0
  17785.         
  17786.         
  17787.  move 
  17788.          mv0=1
  17789. 2         
  17790.  killed=0 
  17791.  (eb=2 
  17792. eb=5) 
  17793. b_sound(4)
  17794. 7         
  17795.  killed=0 
  17796.  (eb=1 
  17797. eb=4) 
  17798. b_sound(
  17799. (3)+4)
  17800. C         
  17801.  dir=1 
  17802.  mup=0 
  17803.  mdn=0 
  17804. b_go(a,b,a+1,b):steps-=1:a+=1
  17805. C         
  17806.  dir=2 
  17807.  mup=0 
  17808.  mdn=0 
  17809. b_go(a,b,a-1,b):steps-=1:a-=1
  17810. ;         
  17811.  mup=1 
  17812.  mdn=0 
  17813. b_go(a,b,a,b+1):steps-=1:b+=1
  17814. 1         
  17815.  mdn 
  17816. b_go(a,b,a,b-1):steps-=1:b-=1
  17817.          
  17818.  killed 
  17819.  s_end=1
  17820.         
  17821.  s_end=1
  17822.         
  17823.        
  17824. #      
  17825.  steps=0 
  17826.  s_end 
  17827.  mv0=0
  17828.      
  17829.         
  17830.     killbase=0
  17831. 0    
  17832.  bf%(15,6)=20 
  17833.  bn%(15,6)>0 
  17834.  human=2 
  17835.      aat%=0:adf%=0
  17836.      
  17837.  stx%=1
  17838.       
  17839.  sty%=1
  17840.        geb=bf%(stx%,sty%)
  17841.        
  17842.  geb 
  17843. $        
  17844.  1:aat%+=bn%(stx%,sty%)
  17845. &        
  17846.  2:aat%+=bn%(stx%,sty%)*2
  17847. &        
  17848.  3:aat%+=bn%(stx%,sty%)*3
  17849. $        
  17850.  4:adf%+=bn%(stx%,sty%)
  17851. &        
  17852.  5:adf%+=bn%(stx%,sty%)*2
  17853. &        
  17854.  6:adf%+=bn%(stx%,sty%)*3
  17855. &        
  17856. 21:adf%+=bn%(stx%,sty%)*4
  17857.        
  17858.      
  17859.  sty%,stx%
  17860. %     
  17861.  aat%*1.7<adf% 
  17862.  killbase=1
  17863.         
  17864. -    eb=bf%(a,b):
  17865.  player=2 
  17866.  eb<>21 eb-=3
  17867.  killed=0 
  17868.      
  17869.  eb=1  rng=3
  17870.      
  17871.  eb=2  rng=4
  17872.      
  17873.  eb=3  rng=7
  17874.      
  17875.  eb=3 
  17876.  xtr%=1 rng=16
  17877.      
  17878.  eb=21 rng=16
  17879. "     cx1=a-rng:
  17880.  cx1<1 
  17881.  cx1=1
  17882. !     
  17883.  player=1 
  17884. eb=3 
  17885.  cx1=a
  17886. #     cx2=a+rng:
  17887.  cx2>16
  17888.  cx2=16
  17889. !     
  17890.  player=2 
  17891. eb=3 
  17892.  cx2=a
  17893. "     cy1=b-rng:
  17894.  cy1<1 
  17895.  cy1=1
  17896. #     cy2=b+rng:
  17897.  cy2>11
  17898.  cy2=11
  17899.      stp=1
  17900. D     
  17901.  player=2 
  17902.  R=cx1:cx1=cx2:cx2=R:R=cy1:cy1=cy2:cy2=R:stp=-1
  17903.      fired=0
  17904. =     
  17905.  killbase=1 
  17906.  cx1<=15 
  17907.  cx2>=15 
  17908.  cy1<=6 
  17909.  cy2>=6 
  17910. "      retta=a:rettb=b:a=15:b=6
  17911.       
  17912. b_shoot:fired=1
  17913.       a=retta:b=rettb
  17914.      
  17915. S      
  17916.  human=2 
  17917.  (bf%(14,5)=21 
  17918.  bf%(14,6)=21 
  17919.  bf%(14,7)=21 
  17920.  bf%(13,6)=21) 
  17921.        
  17922.  ex=cx1 
  17923.  cx2 
  17924.          
  17925.  ey=cy1 
  17926.  cy2 
  17927.          fb=bf%(ex,ey)
  17928.          
  17929.  fb=21 
  17930. A"'          retta=a:rettb=b:a=ex:b=ey
  17931.           
  17932. b_shoot:fired=1
  17933.           a=retta:b=rettb
  17934.          
  17935. A&$         
  17936.  fired 
  17937.  ex=cx2:ey=cy2
  17938.         
  17939.        
  17940.       
  17941.       
  17942.  fired=0 
  17943.        
  17944.  ex=cx1 
  17945.  cx2 
  17946. A-         
  17947.  ey=cy1 
  17948.  cy2 
  17949.          fb=bf%(ex,ey)
  17950. A/R         
  17951.  ((player=1 
  17952.  ((fb>3 
  17953.  fb<7) 
  17954.  fb=21)) 
  17955.  (player=2 
  17956.  fb>0 
  17957.  fb<4)) 
  17958. A0'          retta=a:rettb=b:a=ex:b=ey
  17959.           
  17960. b_shoot:fired=1
  17961.           a=retta:b=rettb
  17962.          
  17963. A4$         
  17964.  fired 
  17965.  ex=cx2:ey=cy2
  17966.         
  17967.        
  17968.       
  17969.      
  17970. A;&     
  17971.  fired 
  17972.  bs%(a,b)=bs%(a,b)
  17973. A<        
  17974.     a=rtta:b=rttb
  17975.     enfd=0
  17976.  b_won 
  17977.  a=16:b=11
  17978.  enfd 
  17979.  b_won
  17980. b_hitmine
  17981.  ht=1
  17982.  ht>1 
  17983. wait(5)
  17984. b_sound(8)
  17985. b_go(mx1,my1,mx2,my2)
  17986.  rettf=bf%(mx1,my1)
  17987.  retts=bs%(mx1,my1)
  17988.  rettn=bn%(mx1,my1)
  17989.  bf%(mx1,my1)=0
  17990.  bs%(mx1,my1)=0
  17991.  bn%(mx1,my1)=0
  17992. b_glide(
  17993. (rettf),mx1,my1,mx2,my2)
  17994.  mx1=mx2:my1=my2
  17995.  gr%(mx1,my1)=19 
  17996.  (eb=2 
  17997.  eb=5) 
  17998. b_hitmine:
  17999. b_kill(mx1,my1):killed=1
  18000.  gr%(mx1,my1)=19 
  18001.  aliens%=1 
  18002. b_hitmine:
  18003. b_kill(mx1,my1):killed=1
  18004.  killed=0 
  18005.   bf%(mx1,my1)=rettf
  18006.   bs%(mx1,my1)=retts
  18007.   bn%(mx1,my1)=rettn
  18008. b_ps(sn$,spa,spb)
  18009. spa*80-80,spb*80-80
  18010. spa*80,spb*80
  18011. sget("over")
  18012. 6,112,2
  18013. schoose("over")
  18014. plot(0,spa*80-80,spb*80-80)
  18015.                            "0"
  18016.  g=gr%(spa,spb)
  18017. schoose("part"+
  18018. (spa-1)+
  18019. (spb-1)):
  18020. plot(0,spa*80-80,spb*80-80)
  18021.  g>0 
  18022.  (g<>19 
  18023.  (g=19 
  18024.  human=2)) 
  18025. schoose(
  18026. (gr%(spa,spb))):
  18027. plot(8,spa*80-80,spb*80-80)
  18028. schoose(sn$):
  18029. plot(8,spa*80-80,spb*80-80)
  18030. spa*80-80,spb*80-80
  18031. spa*80,spb*80
  18032. sget("over")
  18033. 6,112,1
  18034. schoose("over")
  18035. plot(0,spa*80-80,spb*80-80)
  18036. b_newround
  18037.  newa,newb,na,nb
  18038.  newa=1:newb=1
  18039.  na=1
  18040.  nb=1
  18041.    eb=bf%(na,nb)
  18042.  eb>0 
  18043.  bs%(na,nb)=0 
  18044.  eb<4 newa=0
  18045. (    
  18046.  ((eb>3 
  18047.  eb<7) 
  18048.  eb=21) newb=0
  18049.  newa 
  18050.  newb 
  18051.  bs%()=0
  18052. b_checkdead
  18053.  b_won>0 
  18054.  ok1,ok2,cr1,cr2,cr3
  18055.    eb=bf%(X,Y)
  18056.  eb>0 
  18057.  eb<4 
  18058.  ok1=1
  18059.  (eb>3 
  18060.  eb<7) 
  18061.  (eb=21) ok2=1
  18062.  ok1=1 
  18063.  ok2=1 
  18064.   cr1=0:cr2=0
  18065.     eb=bf%(X,Y)
  18066.  eb=3 cr1=1
  18067.  eb=6 cr2=1
  18068. 3    
  18069.  eb=1 
  18070.  eb=2 
  18071.  eb=4 
  18072.  eb=5 
  18073.  eb=21 
  18074.  cr3=1
  18075.  cr1=1 
  18076.  cr2=1 
  18077.  cr3=0 
  18078.   xtr%=0
  18079.   cr1=0:cr2=0
  18080.   cr1=1
  18081.     eb=bf%(X,Y)
  18082. 0    
  18083.  eb<>0 
  18084.  eb<>3 
  18085.  eb<>6 
  18086.  eb<>20 
  18087.  cr1=0
  18088.  cr1=1 
  18089.  xtr%=1
  18090.  giveup 
  18091.  human=1 
  18092.  ok1=0 
  18093.  ok2=0
  18094.  VDU30:PRINT cr1,cr2,cr3
  18095.  ok1=1 
  18096.  ok2=1 
  18097.  ok2=0 b_won=1
  18098.  ok1=0 b_won=2
  18099. b_place
  18100.  oa,ob,select%,pok%
  18101.  human=1 
  18102.   pl%(1)=a_army(1)
  18103.   pl%(2)=a_army(2)
  18104.   pl%(3)=a_army(3)
  18105.   pl%(4)=3
  18106.   pl%(1)=d_army(1)
  18107.   pl%(2)=d_army(2)
  18108.   pl%(3)=d_army(3)
  18109.   pl%(4)=mines
  18110. " select%=1:
  18111.  human=2 select%=4
  18112. b_cinfo
  18113.  oa=1:ob=1
  18114.  oa,ob
  18115.  oa+80,ob+80
  18116. sget("hspr")
  18117.  a,b,c
  18118. @    
  18119.  a>=(n-1)*192+20 
  18120.  b>=916 
  18121.  a<=(n-1)*192+100 
  18122.  b<=996 
  18123. *     
  18124.  human=1 select%=n 
  18125.  select%=n+3
  18126.      
  18127. b_cinfo
  18128.         
  18129. -    
  18130.  a>=596 
  18131.  b>=916 
  18132.  a<=676 
  18133.  b<=996 
  18134. *     
  18135.  human=1 select%=25 
  18136.  select%=19
  18137.      
  18138. b_cinfo
  18139.         
  18140. ((a+80)/80)
  18141. ((b+80)/80)
  18142.  (a<>oa 
  18143.  b<>ob) 
  18144.  b<12 
  18145. schoose("hspr")
  18146. plot(0,oa*80-80,ob*80-80)
  18147.  a*80-80,b*80-80
  18148.  a*80,b*80
  18149. sget("hspr")
  18150.    oa=a:ob=b
  18151. 196:pok%=1
  18152.  (human=1 
  18153.  a>7) 
  18154.  (human=2 
  18155.  a<9) 
  18156.  196:pok%=0
  18157.  b<12 
  18158.  bf%(a,b)>0 
  18159.  196:pok%=0
  18160. b_box
  18161.  c>0 
  18162.  b<12 
  18163.  pok%=1 
  18164.  select%<19 
  18165.  human=1 
  18166.  n=pl%(select%) 
  18167.  n=pl%(select%-3)
  18168.  bf%(a,b)=0 
  18169.  gr%(a,b)<1 
  18170.  n>0 
  18171. '    
  18172.  human=1 s=size_AT 
  18173.  s=size_DF
  18174.  select%<19 
  18175. $     bf%(a,b)=select%:bn%(a,b)=s
  18176.      
  18177. b_red(select%)
  18178.         
  18179. b_ps(
  18180. (select%),a,b)
  18181. sdelete("hspr")
  18182. 2    
  18183.  a*80-80,b*80-80:
  18184. a*80,b*80:
  18185. sget("hspr")
  18186. b_box
  18187.  a,b,c:
  18188.  c>0 
  18189.  b<12 
  18190.  pok%=1 
  18191.  select%>=19 
  18192.  bf%(a,b)=0 
  18193.  gr%(a,b)<1 
  18194.  pl%(4)>0 
  18195.     gr%(a,b)=select%
  18196.     pl%(4)-=1
  18197. b_show(22,2,pl%(4))
  18198. &    
  18199. schoose("part"+
  18200. (a-1)+
  18201. (b-1))
  18202.      
  18203. plot(0,a*80-80,b*80-80)
  18204. schoose(
  18205. (select%))
  18206.      
  18207. plot(8,a*80-80,b*80-80)
  18208. sdelete("hspr")
  18209. 2    
  18210.  a*80-80,b*80-80:
  18211. a*80,b*80:
  18212. sget("hspr")
  18213. b_box
  18214.  a,b,c:
  18215.  c>0 
  18216.  b<12 
  18217.  ((human=1 
  18218. a<9) 
  18219.  (human=2 
  18220.  a>8))
  18221.  bf%(a,b)>0 
  18222.  bf%(a,b)<20 
  18223.  bf%(a,b)<19 
  18224.      
  18225. b_add(bf%(a,b))
  18226.      bf%(a,b)=0:bn%(a,b)=0
  18227.         
  18228. L    
  18229.  gr%(a,b)>0 
  18230. schoose("part"+
  18231. (a-1)+
  18232. (b-1)):
  18233. plot(0,a*80-80,b*80-80)
  18234. ?    
  18235. schoose("part"+
  18236. (a-1)+
  18237. (b-1)):
  18238. plot(8,a*80-80,b*80-80)
  18239. sdelete("hspr")
  18240. 2    
  18241.  a*80-80,b*80-80:
  18242. a*80,b*80:
  18243. sget("hspr")
  18244. b_box
  18245.  A,B,C:
  18246.  pl%(1)+pl%(2)+pl%(3)+pl%(4)=0
  18247. wait(10)
  18248. b_btext
  18249. b_show(wx,wy,wn)
  18250.  ssh%=0 
  18251. 6,112,2
  18252.  wx=wx*32
  18253.  wy=1023-((wy+1)*32)+4
  18254.  wx-4,wy,56,32
  18255. sfpB(
  18256. (wn),wx,wy)
  18257.  wx-4,wy:
  18258. wx+56,wy+32
  18259.  ssh%=0 
  18260. sget("screen")
  18261. 6,112,1
  18262. schoose("screen")
  18263. plot(0,wx-4,wy)
  18264. b_spsl
  18265.  b_speed=0 
  18266. schoose("hmenu3")
  18267.   b_speed=1
  18268. schoose("hmenu5")
  18269.   b_speed=0
  18270. plot(0,900,896)
  18271.  A,B,C:
  18272. b_cinfo
  18273. 6,112,2
  18274. schoose("part00")
  18275. plot(0,828,918)
  18276. schoose(
  18277. (select%))
  18278. plot(8,828,918)
  18279.  select% 
  18280.  1: a$="Infantry"
  18281.  2: a$="Gliders"
  18282.  3: a$="Artillery"
  18283.  4: a$="Infantry"
  18284.  5: a$="Gliders"
  18285.  6: a$="Artillery"
  18286.  19: a$="AntiGrav Mine"
  18287.  25: a$="Rescue Beam"
  18288. 928,920-4,320,72+4
  18289. f_yel
  18290. sfpB(a$,928,964)
  18291. f_wht
  18292.  select%=n x=a_army(n)
  18293.  select%=n x=d_army(n-3)
  18294.  human=1 size=size_AT 
  18295.  size=size_DF
  18296.  select%<19 a$="(max "+
  18297. (size)+"/group)" 
  18298.  a$="NO REMOVE"
  18299. sfpB(a$,928,924)
  18300.  826,914:
  18301.  1270,1023:
  18302. sget("screen")
  18303. 6,112,1
  18304. schoose("screen")
  18305. plot(0,826,914)
  18306.  a,b,c:
  18307. b_red(red%)
  18308.  human=1 x=0 
  18309.   pl%(red%-x)-=1
  18310. Bb+  
  18311. b_show(4+(red%-x-1)*6,2,pl%(red%-x))
  18312. b_add(add%)
  18313.  human=1 x=0 
  18314.   pl%(add%-x)+=1
  18315. Bh+  
  18316. b_show(4+(add%-x-1)*6,2,pl%(add%-x))
  18317. b_rplay
  18318.  r_ok%,cna,cnb
  18319.  cna=1:cnb=1
  18320.  na=1
  18321.  nb=1
  18322.    eb=bf%(na,nb)
  18323.  eb>0 
  18324.  bs%(na,nb)=0 
  18325.  eb<4 cna=0
  18326. Bu'    
  18327.  ((eb>3 
  18328.  eb<7) 
  18329.  eb=21) cnb=0
  18330.  (cna=1 
  18331.  human=1) 
  18332.  (cnb=1 
  18333.  human=2) 
  18334. (16):b=
  18335.   eb=bf%(a,b)
  18336. B~=  
  18337. (player=1 
  18338. eb<4)
  18339. (player=2 
  18340. (eb>3 
  18341. eb<7 
  18342. eb=21))
  18343.  bs%(a,b)=0 
  18344.     r_ok%=1:move%+=1
  18345. b_info
  18346. <    
  18347.  eb<>3 
  18348. eb<>6
  18349. eb<>21 
  18350.  a*80-40,b*80-40:
  18351. b_walk
  18352.  giveup=0 
  18353.      
  18354.  bf%(a,b)<>0 
  18355.       
  18356. b_fire
  18357.      
  18358.         
  18359.  r_ok%>0 
  18360.  giveup>0
  18361. b_but(but)
  18362.  but 
  18363. button(900,952,1068,1000,1)
  18364. button(900,896,1068,944,1)
  18365. button(1100,952,1268,1000,1)
  18366. button(1100,896,1268,944,1)
  18367. b_paintarr
  18368.  a*80-160,b*80-160:
  18369. a*80+80,b*80+80:
  18370. sget("underarrow")
  18371. schoose("ma1"):
  18372. plot(8,a*80-60,(b+1)*80-60)
  18373. schoose("ma4"):
  18374. plot(8,(a+1)*80-60,b*80-60)
  18375. schoose("ma3"):
  18376. plot(8,(a-1)*80-60,b*80-60)
  18377. schoose("ma2"):
  18378. plot(8,a*80-60,(b-1)*80-60)
  18379. b_checkdakeyz
  18380.  I$="i" 
  18381. I$="I" 
  18382. b_but(1):
  18383. b_stat
  18384.  I$="f" 
  18385. I$="F" 
  18386. b_but(2):
  18387. b_spsl
  18388.  I$="t" 
  18389. I$="T" 
  18390. b_but(3):
  18391. b_talk:
  18392.  giveup 
  18393. b_checkdead
  18394.  I$="q" 
  18395. I$="Q" 
  18396. b_but(4):
  18397. querybattle: 
  18398.  accepted 
  18399.  giveup=1:
  18400. b_checkdead
  18401. b_walk
  18402.  m1,m2,m3,m4,rett,rettn,st,killed,steps
  18403.  eb=2 
  18404.  eb=5 st=4 
  18405.  st=3
  18406.  steps=0
  18407.  m1=0:m2=0:m3=0:m4=0
  18408.  b<11 
  18409.  bf%(a,b+1)=0:m1=1
  18410.  b>1  
  18411.  bf%(a,b-1)=0:m2=1
  18412.  a>1  
  18413.  bf%(a-1,b)=0:m3=1
  18414.  a<16 
  18415.  bf%(a+1,b)=0:m4=1
  18416.  m1+m2+m3+m4=0 
  18417. b_paintarr
  18418.  x,y,c
  18419.   I$=
  18420.  I$="i" 
  18421. I$="I" 
  18422. b_but(1):
  18423. b_stat:c=0
  18424.  I$="f" 
  18425. I$="F" 
  18426. b_but(2):
  18427. b_spsl
  18428.  I$="t" 
  18429. I$="T" 
  18430. b_but(3):
  18431. b_talk:c=0:
  18432.  giveup 
  18433. b_checkdead:
  18434.  I$="q" 
  18435. I$="Q" 
  18436. b_but(4):
  18437. querybattle: 
  18438.  accepted 
  18439.  giveup=1:
  18440. b_checkdead:
  18441.  IF I$="x" ORI$="X" PROCb_ecomm(1):REM TEST!!!!!!!
  18442.  c>0 
  18443.  x>900 
  18444. x<1072 
  18445. y>=952
  18446. y<1004 
  18447. b_but(1):
  18448. b_stat:c=0
  18449.  x>900 
  18450. x<1072 
  18451. y>=896
  18452. y<948 
  18453. b_but(2):
  18454. b_spsl:c=0
  18455.  x>1100 
  18456. x<1272 
  18457. y>=952
  18458. y<1004 
  18459. b_but(3):
  18460. b_talk:c=0:
  18461.  giveup 
  18462. b_checkdead:
  18463.  x>1100 
  18464. x<1272 
  18465. y>=896
  18466. y<948 
  18467. b_but(4):
  18468. querybattle:
  18469.  accepted 
  18470.  giveup=1:
  18471. b_checkdead:
  18472.  c>0 
  18473.  b_won=0 
  18474.    x=
  18475. ((x+80)/80)
  18476.    y=
  18477. ((y+80)/80)
  18478.    ok=0
  18479.  x=a 
  18480.  y=b+1 
  18481.  m1=1 
  18482.  ok=1
  18483.  x=a 
  18484.  y=b-1 
  18485.  m2=1 
  18486.  ok=1
  18487.  x=a+1 
  18488.  y=b 
  18489.  m4=1 
  18490.  ok=1
  18491.  x=a-1 
  18492.  y=b 
  18493.  m3=1 
  18494.  ok=1
  18495.     steps+=1
  18496. !    
  18497.  IF b<11 PROCb_gr(a,b+1)
  18498. !    
  18499.  IF a<16 PROCb_gr(a+1,b)
  18500. !    
  18501.  IF b>1  PROCb_gr(a,b-1)
  18502. !    
  18503.  IF a>1  PROCb_gr(a-1,b)
  18504. schoose("underarrow")
  18505. "    
  18506. plot(0,a*80-160,b*80-160)
  18507. sdelete("underarrow")
  18508. !    
  18509.  eb=2 
  18510.  eb=5 
  18511. b_sound(4)
  18512. &    
  18513.  eb=1 
  18514.  eb=4 
  18515. b_sound(
  18516. (3)+4)
  18517. $    rett=bf%(a,b):rettn=bn%(a,b)
  18518. (    bf%(a,b)=0:bs%(a,b)=0:bn%(a,b)=0
  18519. b_glide(
  18520. (eb),a,b,x,y)
  18521. F    
  18522.  gr%(x,y)=19 
  18523.  (eb=2 
  18524.  eb=5) 
  18525. b_hitmine:
  18526. b_kill(x,y):killed=1
  18527. *    
  18528.  gr%(x,y)=25 
  18529. b_loadship:killed=1
  18530.     a=x:b=y
  18531. /    
  18532.  killed=0 bf%(a,b)=rett:bn%(a,b)=rettn
  18533.  killed=0 
  18534.  steps<st 
  18535.      m1=0:m2=0:m3=0:m4=0
  18536. %     
  18537.  b<11 
  18538.  bf%(a,b+1)=0:m1=1
  18539. %     
  18540.  b>1  
  18541.  bf%(a,b-1)=0:m2=1
  18542. %     
  18543.  a>1  
  18544.  bf%(a-1,b)=0:m3=1
  18545. %     
  18546.  a<16 
  18547.  bf%(a+1,b)=0:m4=1
  18548.      
  18549. b_paintarr
  18550.         
  18551.  (x=a 
  18552.  y=b) 
  18553.      
  18554. schoose("ma5")
  18555. !     
  18556. plot(8,a*80-60,b*80-60)
  18557.      
  18558. wait(10)
  18559.      
  18560. b_ps(
  18561. (eb),a,b)
  18562.      steps=st
  18563. "     
  18564.  IF b<11 PROCb_gr(a,b+1)
  18565. "     
  18566.  IF a<16 PROCb_gr(a+1,b)
  18567. "     
  18568.  IF a>1  PROCb_gr(a-1,b)
  18569. "     
  18570.  IF b>1  PROCb_gr(a,b-1)
  18571.      
  18572. schoose("underarrow")
  18573. #     
  18574. plot(0,a*80-160,b*80-160)
  18575.      
  18576. sdelete("underarrow")
  18577.         
  18578.  x,y,c:
  18579.  killed 
  18580.  steps=st
  18581.  killed=0 
  18582.  bs%(a,b)=3 
  18583. b_checkdead
  18584. b_esetup
  18585.  pa,lim,l,g
  18586.  human=1 size=size_DF 
  18587.  size=size_AT
  18588.  human=2 
  18589.  a_army(3)>0 
  18590.    pa=a_army(3)
  18591.  pa>=4 
  18592. ;    bf%(7,1)=3:bn%(7,1)=size:bf%(7,11)=3:bn%(7,11)=size
  18593.      bf%(1,5)=3:bn%(1,5)=size
  18594.  pa-3
  18595. :     
  18596. (7):ry=
  18597. (11): 
  18598.  bf%(rx,ry)=0 
  18599.  gr%(rx,ry)<1
  18600. %     bf%(rx,ry)=3:bn%(rx,ry)=size
  18601.     a_army(3)=0
  18602.  pa<4 
  18603. -    a_army(3)-=1:bf%(1,5)=3:bn%(1,5)=size
  18604. ;    
  18605.  a_army(3)>0 bf%(7,2)=3:bn%(7,2)=size:a_army(3)-=1
  18606. =    
  18607.  a_army(3)>0 bf%(7,10)=3:bn%(7,10)=size:a_army(3)-=1
  18608. (3)>1 
  18609. (3)=1 
  18610.  lim=1 
  18611.  lim=0
  18612. (3)=1 
  18613.  g=5 
  18614.  X=g 
  18615. C%'     
  18616.  (Y=5 
  18617. Y=6) 
  18618.  lim=1 l=1 
  18619. C&,     
  18620.  bf%(X,Y)=0 
  18621.  gr%(X,Y)<>25 
  18622.  l=0 
  18623.       sok=0
  18624. C(E      
  18625.  a_army(1)>0 
  18626.  a_army(1)-=1:bf%(X,Y)=1:bn%(X,Y)=size:sok=1
  18627. C)M      
  18628.  sok=0 
  18629.  a_army(2)>0 
  18630.  a_army(2)-=1:bf%(X,Y)=2:bn%(X,Y)=size:sok=1
  18631. C*G      
  18632.  sok=0 
  18633.  a_army(3)>0 
  18634.  a_army(3)-=1:bf%(X,Y)=3:bn%(X,Y)=size
  18635. C+4      
  18636.  a_army(1)+a_army(2)+a_army(3)=0 X=1:Y=11
  18637.      
  18638.  a_army(y)>0 
  18639.      
  18640.  a_army(y)
  18641. C3;      
  18642. (7):ry=
  18643. (11): 
  18644.  bf%(rx,ry)=0 
  18645.  gr%(rx,ry)<1
  18646. C4&      bf%(rx,ry)=y:bn%(rx,ry)=size
  18647.      
  18648. C6        
  18649. C:6   
  18650. (6):ry=
  18651. (11):
  18652.  bf%(rx,ry)=0:gr%(rx,ry)=25
  18653.  d_army(3)>0 
  18654.    pa=d_army(3)
  18655.  pa>=4 
  18656. C@;    bf%(9,1)=6:bn%(9,1)=size:bf%(9,11)=6:bn%(9,11)=size
  18657. CA"    bf%(16,5)=6:bn%(16,5)=size
  18658.  pa-3
  18659. CC<     
  18660. (8)+8:ry=
  18661. (11): 
  18662.  bf%(rx,ry)=0 
  18663.  gr%(rx,ry)<1
  18664. CD%     bf%(rx,ry)=6:bn%(rx,ry)=size
  18665.     d_army(3)=0
  18666.  pa<4 
  18667. CI/    d_army(3)-=1:bf%(16,5)=6:bn%(16,5)=size
  18668. CJ;    
  18669.  d_army(3)>0 bf%(9,2)=6:bn%(9,2)=size:d_army(3)-=1
  18670. CK=    
  18671.  d_army(3)>0 bf%(9,10)=6:bn%(9,10)=size:d_army(3)-=1
  18672. (3)>1 
  18673. (3)=1 
  18674.  lim=1 
  18675.  lim=0
  18676. (3)=1 
  18677.  g=9 
  18678.  g=10
  18679.  X=g 
  18680.  Y=11
  18681. CS'     
  18682.  (Y=5 
  18683. Y=6) 
  18684.  lim=1 l=1 
  18685. CT,     
  18686.  bf%(X,Y)=0 
  18687.  gr%(X,Y)<>25 
  18688.  l=0 
  18689.       sok=0
  18690. CVE      
  18691.  d_army(1)>0 
  18692.  d_army(1)-=1:bf%(X,Y)=4:bn%(X,Y)=size:sok=1
  18693. CWM      
  18694.  sok=0 
  18695.  d_army(2)>0 
  18696.  d_army(2)-=1:bf%(X,Y)=5:bn%(X,Y)=size:sok=1
  18697. CXG      
  18698.  sok=0 
  18699.  d_army(3)>0 
  18700.  d_army(3)-=1:bf%(X,Y)=6:bn%(X,Y)=size
  18701. CY4      
  18702.  d_army(1)+d_army(2)+d_army(3)=0 X=16:Y=1
  18703.      
  18704.  d_army(y)>0 
  18705.      
  18706.  d_army(y)
  18707. Ca=      
  18708. (8)+8:ry=
  18709. (11): 
  18710.  bf%(rx,ry)=0 
  18711.  gr%(rx,ry)<1
  18712. Cb(      bf%(rx,ry)=y+3:bn%(rx,ry)=size
  18713.      
  18714. Cd        
  18715.  X=1 
  18716.  Y=1 
  18717. Ci?    
  18718.  (gr%(X,Y)=30 
  18719.  gr%(X,Y)=31) 
  18720.  bf%(X,Y)>0 
  18721.  gr%(X,Y)=0
  18722. Ck      
  18723.  mines>0 
  18724.  mines
  18725. CnH    
  18726. (3)+9:ry=
  18727. (11):
  18728.  bf%(rx,ry)=0 
  18729.  gr%(rx,ry)=0:gr%(rx,ry)=19
  18730. b_stat
  18731.  I$=""
  18732.  gn,stx%,sty%,geb,aat%,adf%,tsa,tsb,lat%,ldf%
  18733. Cw  aat%=0:adf%=0:lat%=0:ldf%=0
  18734.  stx%=1
  18735.  sty%=1
  18736.    geb=bf%(stx%,sty%)
  18737.  geb 
  18738. C|     
  18739.  1:aat%+=bn%(stx%,sty%)
  18740. C}"    
  18741.  2:aat%+=bn%(stx%,sty%)*2
  18742. C~"    
  18743.  3:aat%+=bn%(stx%,sty%)*3
  18744.      
  18745.  4:adf%+=bn%(stx%,sty%)
  18746. "    
  18747.  5:adf%+=bn%(stx%,sty%)*2
  18748. "    
  18749.  6:adf%+=bn%(stx%,sty%)*3
  18750. "    
  18751. 21:adf%+=bn%(stx%,sty%)*4
  18752.  geb>0 
  18753. geb<4 lat%+=bn%(stx%,sty%)
  18754.  (geb>3 
  18755. geb<7) 
  18756. geb=21 ldf%+=bn%(stx%,sty%)
  18757.  sty%,stx%
  18758.  aat%<1 
  18759.  aat%=1
  18760.  adf%<1 
  18761.  adf%=1
  18762.  aat%>adf% 
  18763.  tsa=
  18764. ((aat%/adf%)*100)/100:tsb=1 
  18765.  tsa=1:tsb=
  18766. ((adf%/aat%)*100)/100
  18767. (tsa))>8 
  18768.  tsa=
  18769. (tsa)
  18770. (tsb))>8 
  18771.  tsb=
  18772. (tsb)
  18773.  300,300:
  18774.  979,724:
  18775. sget("screen")
  18776. frame(300,300,979,724,42)
  18777. inframe(308,308,971,624,42)
  18778. inframe(308,636,971,716,42)
  18779. f_yel
  18780. sfpB("The battle of "+moonof$+", Status",336,664)
  18781.  human=2 
  18782. f_wht 
  18783. f_yel
  18784. sfpB("Attakers",336,572)
  18785.  human=1 
  18786. f_wht 
  18787. f_yel
  18788. sfpB("Defenders",676,572)
  18789. f_wht
  18790.  gn=0
  18791. sfpB("Active:",336+gn*340,522)
  18792. sfpB("Killed:",336+gn*340,482)
  18793. sfpB(
  18794. (lat%),500,522)
  18795. sfpB(
  18796. (acat%-lat%),500,482)
  18797. sfpB(
  18798. (ldf%),840,522)
  18799. sfpB(
  18800. (acdf%-ldf%),840,482)
  18801. sfpB("Move "+
  18802. (move%),336,422)
  18803.  human=2 
  18804.  tsa,tsb
  18805. sfpB("Our chances are  "+
  18806. (tsa)+" : "+
  18807. (tsb),336,362)
  18808. getMK
  18809. schoose("screen")
  18810. plot(0,300,300)
  18811. sdelete("screen")
  18812.  A,B,C:
  18813. querybattle
  18814.  300,300:
  18815.  979,724:
  18816. sget("screen")
  18817. frame(300,300,979,724,42)
  18818. inframe(308,308,971,716,42)
  18819. frame(318,342,392,390,42)
  18820. frame(876,342,960,390,42)
  18821. sfpB("SURRENDER?",480,600)
  18822.  0,0,1271,1023
  18823. askmaster(400,340,2)
  18824. schoose("screen")
  18825. plot(0,300,300)
  18826. sdelete("screen")
  18827.  A,B,C:
  18828. b_talk
  18829.  retta,rettb,retts,rettac
  18830.  aliens% 
  18831.  retts=s:rettac=actual
  18832.  retta=a:rettb=b
  18833.  rebels% 
  18834.   lord=eplayer
  18835. b_ecomm(4)
  18836. b_comme
  18837.  a=retta:b=rettb
  18838.  s=retts:actual=rettac
  18839. b_sound(sound)
  18840.  music=0 
  18841.  sd$=
  18842. (sound)
  18843.  *stereo 1 -15
  18844.  *stereo 2 15
  18845.  chn%=1 
  18846.  chn%=2 
  18847.  chn%=1
  18848.  5,com$(15)+
  18849. (chn%)+" Battle"+sd$
  18850.  vol=-15
  18851.  m=&2000:
  18852.  sound=4 m=&1000
  18853.  sound>4 m%=&1C00
  18854.  sound=3 m=&500
  18855.  sound=8 m=&2500:vol=-6
  18856.  chn%,vol,m,300
  18857. b_correct
  18858.     eb=bf%(X,Y)
  18859.  eb=n 
  18860.  a_corr%(n)>0 
  18861. 1     bn%(X,Y)=size_AT-a_corr%(n):a_corr%(n)=0
  18862.         
  18863. !    
  18864.  eb=n+3 
  18865.  d_corr%(n)>0 
  18866. 1     bn%(X,Y)=size_DF-d_corr%(n):d_corr%(n)=0
  18867.         
  18868. b_btext
  18869. fillarray("bt1",5)
  18870.  300,440:
  18871.  979,723:
  18872. sget("screen")
  18873. frame(300,440,979,723,42)
  18874. inframe(308,448,971,715,42)
  18875. sfpB(ar$(n),324,700-n*40)
  18876. getMK
  18877. schoose("screen")
  18878. plot(0,300,440)
  18879. b_end
  18880. wait(40)
  18881.  stx%,sty%,lat%,ldf%,geb
  18882.  stx%=1
  18883.  sty%=1
  18884.    geb=bf%(stx%,sty%)
  18885.  geb>0 
  18886. geb<4 lat%+=bn%(stx%,sty%)
  18887.  (geb>3 
  18888. geb<7) 
  18889. geb=21 ldf%+=bn%(stx%,sty%)
  18890.  sty%,stx%
  18891.  music>0 
  18892.  5,com$(3)+"Battle"+
  18893. b_report
  18894. b_report
  18895.  300,440:
  18896.  979,723:
  18897. sget("screen")
  18898. mus_load("ST3")
  18899.  reason=1 
  18900.  b_won=1 
  18901. mpart(5)
  18902.    ar$(1)=t$(634)
  18903. +   ar$(2)=t$(635)+
  18904. (acat%-lat%)+t$(636)
  18905. %   ar$(3)=t$(637)+
  18906. (lat%)+t$(638)
  18907. !   ar$(4)=t$(639)+moonof$+"."
  18908. mpart(9)
  18909.    ar$(1)=t$(640)
  18910. &   ar$(2)=t$(641)+
  18911. (acat%)+t$(642)
  18912.    ar$(3)=t$(643)+moonof$
  18913.    ar$(4)=t$(644)
  18914.  letwin 
  18915.     ar$(2)=t$(645)
  18916.     ar$(3)=t$(646)
  18917.     ar$(4)=t$(647)
  18918.  b_won=1 
  18919. mpart(9)
  18920. D &   ar$(1)=t$(648)+
  18921. (acdf%)+t$(649)
  18922.    ar$(2)=t$(650)
  18923.    ar$(3)=t$(651)
  18924.    ar$(4)=moonof$+"."
  18925. D$g   
  18926.  aliens%=0 
  18927.  rebels%=0 
  18928. donotice(stkx,stky,H$(eplayer)+" has taken over "+PName$+"'s planet")
  18929. mpart(5)
  18930.    ar$(1)=t$(652)
  18931. D(!   ar$(2)=t$(653)+moonof$+"."
  18932. D)4   ar$(3)=t$(654)+
  18933. (acdf%-ldf%)+t$(655)+
  18934. (acdf%)
  18935.    ar$(4)=t$(656)
  18936. D+\   
  18937.  aliens%=0 
  18938.  rebels%=0 
  18939. donotice(stkx,stky,H$(eplayer)+t$(657)+PName$+"'s planet")
  18940. frame(300,440,979,723,42)
  18941. inframe(308,448,971,715,42)
  18942. sfpB(t$(658),324,660)
  18943. D2"  
  18944. sfpB(ar$(n-1),324,700-n*40)
  18945. hour_off
  18946. getMK
  18947.  aliens%>0 
  18948.  b_won=2 
  18949. D7"  
  18950. inframe(308,448,971,715,42)
  18951.   ar$(1)=t$(659)
  18952.   ar$(2)=""
  18953.   ar$(3)=t$(660)
  18954.   ar$(4)=t$(661)
  18955.   ar$(5)=t$(662)
  18956. D>!   
  18957. sfpB(ar$(n),324,700-n*40)
  18958. D?      
  18959. getMK
  18960.   inventnow=SIi(stkx,stky)
  18961. schoose("screen")
  18962. plot(0,300,440)
  18963. b_actual
  18964.   a_army(n)=0:d_army(n)=0
  18965.    eb=bf%(X,Y)
  18966. DN+   
  18967.  eb>0 
  18968.  eb<4 
  18969.  a_army(eb)+=bn%(X,Y)
  18970. DO-   
  18971.  eb>3 
  18972.  eb<7 
  18973.  d_army(eb-3)+=bn%(X,Y)
  18974. DP      
  18975. b_stare
  18976. 6,112,2
  18977. picture("lb1")
  18978. pixelswap
  18979. 6,112,1
  18980. wait(30)
  18981. frame(300,440,979,723,42)
  18982. inframe(308,448,971,715,42)
  18983. sfpB(t$(663)+moonof$,324,660)
  18984. sfpB(t$(664),324,620)
  18985. wait(150)
  18986. 6,112,2
  18987. picture("lb1")
  18988. pixelswap
  18989. 6,112,1
  18990. b_calc
  18991. b_calc
  18992. hour_on
  18993.  bs,ra,rb,phase,round,which,more
  18994.  station% 
  18995.  bs=12 
  18996.  bs=0
  18997. Dl&  ra=a_army(1)+a_army(2)+a_army(3)
  18998. Dm&  rd=d_army(1)+d_army(2)+d_army(3)
  18999. Dn0  
  19000.  ra>rd 
  19001.  more=ra-rd:round=ra-more:which=1
  19002. Do1  
  19003.  rd>=ra 
  19004.  more=rd-ra:round=rd-more:which=2
  19005.  phase=1 
  19006.  round
  19007. Dq8   
  19008.  a_army(1)+a_army(2)+a_army(3)>0    
  19009. bc_act(1)
  19010. Dr8   
  19011.  d_army(1)+d_army(2)+d_army(3)+bs>0 
  19012. bc_act(2)
  19013.  phase
  19014.  phase=1 
  19015.  more
  19016.  which 
  19017. Dw:     
  19018.  a_army(1)+a_army(2)+a_army(3)>0    
  19019. bc_act(1)
  19020. Dy:     
  19021.  d_army(1)+d_army(2)+d_army(3)+bs>0 
  19022. bc_act(2)
  19023.  phase
  19024. D|1  
  19025.  a_army(1)+a_army(2)+a_army(3)=0 
  19026.  b_won=2
  19027. D}4  
  19028.  d_army(1)+d_army(2)+d_army(3)+bs=0 
  19029.  b_won=1
  19030.  b_won
  19031. ' lat%=a_army(1)+a_army(2)+a_army(3)
  19032. ' ldf%=d_army(1)+d_army(2)+d_army(3)
  19033.  hbat 
  19034. b_report
  19035. hour_off
  19036. bc_act(acting)
  19037.  base,i,g,a,prop,power,alienhit
  19038.  Welche Einheit?
  19039.  acting 
  19040.  1:base=0:i=a_army(1):g=a_army(2):a=a_army(3)
  19041.  2:base=bs:i=d_army(1):g=d_army(2):a=d_army(3)
  19042.  prop=i+g+a+base
  19043.  prop>1 
  19044. (prop) 
  19045.      an=0
  19046.  R<=i 
  19047.  an=1
  19048.  R<=i+g 
  19049.  an=0 
  19050.  an=2
  19051.  R<=i+g+a 
  19052.  an=0 
  19053.  an=3
  19054.  R>i+g+a 
  19055.  an=4
  19056.  Minen?
  19057.  an=2 
  19058.  acting=1 
  19059.  mines>0 
  19060. (20)=1 
  19061.  a_army(2)-=1:an=0
  19062.  Nicht in Feuerreichweite?
  19063.  an=1 
  19064. (4)=1 
  19065.  an=0
  19066.  an=2 
  19067. (5)=1 
  19068.  an=0
  19069.  an=3 
  19070. (7)=1 
  19071.  an=0
  19072.  Feuerkraft
  19073.  an>0 
  19074.   power=an
  19075.  rebels%=1 
  19076.  acting=1 
  19077.  power=1
  19078.  acting=1 
  19079.  power+=generalAT-2 
  19080.  power+=generalDF-2
  19081.  power>4 power=4
  19082.  power<0 power=0
  19083.  aliens%=1 
  19084.  acting=1 
  19085.  alienhit=1 
  19086.  alienhit=0
  19087. (6-power)=1 
  19088.  alienhit=1 
  19089. bc_kill
  19090. bc_kill
  19091.  kbase,ki,kg,ka,kan,kprop
  19092.  acting 
  19093.  1:kbase=bs:ki=d_army(1):kg=d_army(2):ka=d_army(3)
  19094.  2:kbase=0:ki=a_army(1):kg=a_army(2):ka=a_army(3)
  19095.  ki+kg+ka+kbase=0 
  19096.  kprop=ki+kg+ka+kbase
  19097.  kprop>1 
  19098. (kprop) 
  19099.  kan=0
  19100.  R<=ki 
  19101.  kan=1
  19102.  R<=ki+kg 
  19103.  kan=0 
  19104.  kan=2
  19105.  R<=ki+kg+ka 
  19106.  kan=0 
  19107.  kan=3
  19108.  R>ki+kg+ka 
  19109.  kan=4
  19110.  acting=1 
  19111.  kan 
  19112. 1:d_army(1)-=1
  19113. 2:d_army(2)-=1
  19114. 3:d_army(3)-=1
  19115. 4:bs-=1
  19116.  kan 
  19117. 1:a_army(1)-=1
  19118. 2:a_army(2)-=1
  19119. 3:a_army(3)-=1
  19120. cbutton(cx)
  19121. button(397,15,609,60,1)
  19122. button(618,15,826,60,1)
  19123. button(832,15,1040,60,1)
  19124. button(1048,15,1260,60,1)
  19125. fadeinit
  19126.  CodeA% 800
  19127.  CodeB% 800
  19128.  CodeC% 800
  19129.  CodeD% 800
  19130.  Farben% 255
  19131.  vdu%    16
  19132.  ZeilenA = 256
  19133.  ZeilenB = 200
  19134.  vdu%!0=149
  19135.  vdu%!4=-1
  19136.  49,vdu%,vdu%+8
  19137.  ScraddrA%=vdu%!8
  19138.  ScraddrB%=vdu%!8+81920
  19139. _MakeCodeA
  19140. _MakeCodeB
  19141. _MakeCodeC
  19142. _MakeCodeD
  19143. _MakeColortab
  19144. fade(scr%,zei%,lev%)
  19145.  arm=2 
  19146.  X% = 0 
  19147.  lev%
  19148.  zei%=0 
  19149.  scr%=1 
  19150.  CodeA%
  19151.  scr%=2 
  19152.  CodeC%
  19153.  zei%=1 
  19154.  scr%=1 
  19155.  CodeB%
  19156.  scr%=2 
  19157.  CodeD%
  19158.  arm>=6 
  19159. wait(3)
  19160. 6,21,9
  19161. _MakeCodeA
  19162.  pass% = 0 
  19163.  P%=CodeA%
  19164.  [OPT pass%
  19165.  ADR R12,stack
  19166.  STMIA R12,{R0-R11,R13,R14}
  19167.  ADR R12,Daten
  19168.  LDMIA R12,{R1,R2}
  19169.  MOV R11,#255
  19170.  MOV R0,#ZeilenA*10
  19171. asmpart
  19172.  [OPT pass%
  19173.  ;*** Daten ***
  19174.  .Daten
  19175.  EQUD Farben%
  19176.  EQUD ScraddrA%
  19177.  .stack
  19178. < EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
  19179. < EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
  19180. _MakeCodeB
  19181.  pass% = 0 
  19182.  P%=CodeB%
  19183.  [OPT pass%
  19184.  ADR R12,stack
  19185.  STMIA R12,{R0-R11,R13,R14}
  19186.  ADR R12,Daten
  19187.  LDMIA R12,{R1,R2}
  19188.  MOV R11,#255
  19189.  MOV R0,#2000
  19190.  ADD R0,R0,#40
  19191. asmpart
  19192.  [OPT pass%
  19193.  ;*** Daten ***
  19194.  .Daten
  19195.  EQUD Farben%
  19196.  EQUD ScraddrA%
  19197.  .stack
  19198. E%< EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
  19199. E&< EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
  19200. _MakeCodeC
  19201.  pass% = 0 
  19202.  P%=CodeC%
  19203.  [OPT pass%
  19204.  ADR R12,stack
  19205.  STMIA R12,{R0-R11,R13,R14}
  19206.  ADR R12,Daten
  19207.  LDMIA R12,{R1,R2}
  19208.  MOV R11,#255
  19209.  MOV R0,#ZeilenA*10
  19210. asmpart
  19211.  [OPT pass%
  19212.  ;*** Daten ***
  19213.  .Daten
  19214.  EQUD Farben%
  19215.  EQUD ScraddrB%
  19216.  .stack
  19217. E=< EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
  19218. E>< EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
  19219. _MakeCodeD
  19220.  pass% = 0 
  19221.  P%=CodeD%
  19222.  [OPT pass%
  19223.  ADR R12,stack
  19224.  STMIA R12,{R0-R11,R13,R14}
  19225.  ADR R12,Daten
  19226.  LDMIA R12,{R1,R2}
  19227.  MOV R11,#255
  19228.  MOV R0,#2000
  19229.  ADD R0,R0,#40
  19230. asmpart
  19231.  [OPT pass%
  19232.  ;*** Daten ***
  19233.  .Daten
  19234.  EQUD Farben%
  19235.  EQUD ScraddrB%
  19236.  .stack
  19237. EV< EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
  19238. EW< EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
  19239. asmpart
  19240. [OPT pass%
  19241. E`    .Loop
  19242. LDMIA R2,{R3-R10}
  19243.  R12,R3,#255
  19244.  R13,R11,R3,LSR#8
  19245.  R14,R11,R3,LSR#16
  19246. LDRB R12,[R1,R12]
  19247. LDRB R13,[R1,R13]
  19248. LDRB R14,[R1,R14]
  19249. LDRB R3,[R1,R3,LSR#24]
  19250. R R3,R12,R3,LSL#24:
  19251. R R3,R3,R13,LSL#8:
  19252. R R3,R3,R14,LSL#16
  19253.  R12,R4,#255
  19254.  R13,R11,R4,LSR#8
  19255.  R14,R11,R4,LSR#16
  19256. LDRB R12,[R1,R12]
  19257. LDRB R13,[R1,R13]
  19258. LDRB R14,[R1,R14]
  19259. LDRB R4,[R1,R4,LSR#24]
  19260. R R4,R12,R4,LSL#24:
  19261. R R4,R4,R13,LSL#8:
  19262. R R4,R4,R14,LSL#16
  19263.  R12,R5,#255
  19264.  R13,R11,R5,LSR#8
  19265.  R14,R11,R5,LSR#16
  19266. LDRB R12,[R1,R12]
  19267. LDRB R13,[R1,R13]
  19268. LDRB R14,[R1,R14]
  19269. LDRB R5,[R1,R5,LSR#24]
  19270. R R5,R12,R5,LSL#24:
  19271. R R5,R5,R13,LSL#8:
  19272. R R5,R5,R14,LSL#16
  19273.  R12,R6,#255
  19274.  R13,R11,R6,LSR#8
  19275.  R14,R11,R6,LSR#16
  19276. LDRB R12,[R1,R12]
  19277. LDRB R13,[R1,R13]
  19278. LDRB R14,[R1,R14]
  19279. LDRB R6,[R1,R6,LSR#24]
  19280. R R6,R12,R6,LSL#24:
  19281. R R6,R6,R13,LSL#8:
  19282. R R6,R6,R14,LSL#16
  19283.  R12,R7,#255
  19284.  R13,R11,R7,LSR#8
  19285.  R14,R11,R7,LSR#16
  19286. LDRB R12,[R1,R12]
  19287. LDRB R13,[R1,R13]
  19288. LDRB R14,[R1,R14]
  19289. LDRB R7,[R1,R7,LSR#24]
  19290. R R7,R12,R7,LSL#24:
  19291. R R7,R7,R13,LSL#8:
  19292. R R7,R7,R14,LSL#16
  19293.  R12,R8,#255
  19294.  R13,R11,R8,LSR#8
  19295.  R14,R11,R8,LSR#16
  19296. LDRB R12,[R1,R12]
  19297. LDRB R13,[R1,R13]
  19298. LDRB R14,[R1,R14]
  19299. LDRB R8,[R1,R8,LSR#24]
  19300. R R8,R12,R8,LSL#24:
  19301. R R8,R8,R13,LSL#8:
  19302. R R8,R8,R14,LSL#16
  19303.  R12,R9,#255
  19304.  R13,R11,R9,LSR#8
  19305.  R14,R11,R9,LSR#16
  19306. LDRB R12,[R1,R12]
  19307. LDRB R13,[R1,R13]
  19308. LDRB R14,[R1,R14]
  19309. LDRB R9,[R1,R9,LSR#24]
  19310. R R9,R12,R9,LSL#24:
  19311. R R9,R9,R13,LSL#8:
  19312. R R9,R9,R14,LSL#16
  19313.  R12,R10,#255
  19314.  R13,R11,R10,LSR#8
  19315.  R14,R11,R10,LSR#16
  19316. LDRB R12,[R1,R12]
  19317. LDRB R13,[R1,R13]
  19318. LDRB R14,[R1,R14]
  19319. LDRB R10,[R1,R10,LSR#24]
  19320. R R10,R12,R10,LSL#24:
  19321. R R10,R10,R13,LSL#8:
  19322. R R10,R10,R14,LSL#16
  19323. STMIA R2!,{R3-R10}
  19324. SUBS R0,R0,#1
  19325. BNE Loop
  19326. ADR R12,stack
  19327. LDMIA R12,{R0-R11,R13,R15}
  19328. _MakeColortab
  19329.  RESTORE 54847
  19330.  FOR X% = 0 TO 255
  19331.   READ wert%
  19332.   Farben%?X% = wert%
  19333.  NEXT
  19334.  "Load <Planets$Dir>.data2.cb1 "+
  19335. ~Farben%
  19336. hour_on
  19337.  hour=1
  19338.  hour_time=
  19339. _DoMouse(4)
  19340. hour_off
  19341.  hour=0
  19342.  hour_time=0
  19343. _DoMouse(1)
  19344. mouse_on
  19345. _DoMouse(1)
  19346. _DoMouse(mouse)
  19347. C ?osword%=0:osword%?1=1:osword%!2=&08081104:osword%!6=pointdat%
  19348.  A%=0 
  19349.  &100:pointdat%?A%=0:
  19350.  Y%=0 
  19351.  16:A$=mo$(mouse-1,Y%+1):
  19352.  X%=0 
  19353. B D%=
  19354. A$,X%+1,1):?(pointdat%+(X%>>2)+(Y%*4))+=D%<<((X%
  19355. 3)<<1)
  19356. 7,21,osword%
  19357. _InitMice
  19358.  osword% &10,pointdat% &100
  19359.  mo$(3,18),m_c(3,1)
  19360.  m_c(1,0)=128
  19361.  m_c(2,0)=196
  19362.  m_c(3,0)=255
  19363.  n,m_c(n,0),m_c(n,0),48
  19364. fillarray("pt"+
  19365. (a),17)
  19366. 17:mo$(a-1,n)=ar$(n):
  19367.  -----------
  19368.  next pv=609
  19369.  -----------
  19370. initlib(memory%)
  19371.  memory% > 0 
  19372.  Smem memory%
  19373.     !Smem   = memory%
  19374.     Smem!4  = 0
  19375.     Smem!8  = 0
  19376.     Smem!12 = 16
  19377.  memory% <= 0 
  19378.  Smem = 0
  19379.   spname$ = ""
  19380. )  var1 = 0:var2 = 0:var3 = 0:var4 = 0
  19381. mus_load(title$)
  19382.  5,com$(6)
  19383.  music=0 
  19384.  5,com$(5)+
  19385. (34)+"Music."+title$+
  19386.  SYS 5,com$(4)+STR$(64)
  19387.  5,com$(7)
  19388. backmusic
  19389.  play
  19390.  normalfont<2 
  19391.  play=17:
  19392. (4)=1 play=1
  19393.  oldp 
  19394. (3)=1 play=17
  19395.  2: play=4
  19396.  6: play=13
  19397.  8: play=2
  19398.  9: play=17
  19399. 10: play=13
  19400. (5)=1 play=3
  19401. mpart(play)
  19402. playsoon(mpart)
  19403.  ma,mb,ok
  19404.  ma=1
  19405.  players
  19406.  mb=1
  19407.  SunE(mb,ma) 
  19408.  ok=1
  19409.  mb,ma
  19410.  normalfont<2 
  19411.  ok=0
  19412.  soonplay=mpart 
  19413.  soonplay=0
  19414. mpart(mpart)
  19415.  vcnt
  19416.  mpart 
  19417.  1:p=&0
  19418.  2:p=&A
  19419.  3:p=&F
  19420.  4:p=&13
  19421.  5:p=&17
  19422.  6:p=&23 :
  19423.  7:p=&27
  19424.  8:p=&2A
  19425.  9:p=&2B
  19426. 10:p=&2C
  19427. 11:p=&2E
  19428. 12:p=&34
  19429. 13:p=&36
  19430. 14:p=&3C
  19431. 15:p=&42
  19432. 16:p=&48
  19433. 17:p=&4D
  19434. 18:p=&51
  19435. 19:p=&52
  19436. 20:p=&55
  19437. 21:p=&58
  19438.  mpart<>oldp 
  19439.  arm<3 
  19440.  st=8 
  19441.  st=2
  19442.  vcnt=64
  19443. FE!   
  19444.  SYS 5,com$(4)+STR$(vcnt)
  19445. mus_setvolume(vcnt)
  19446. FG       
  19447.  vcnt
  19448. mus_play(p,p+10)
  19449.  vcnt=32
  19450. FM!   
  19451.  SYS 5,com$(4)+STR$(vcnt)
  19452. mus_setvolume(vcnt)
  19453. FO       
  19454.  vcnt
  19455.   oldp=mpart
  19456. mus_play(start,end)
  19457.  music 
  19458.  5,com$(8)+
  19459. (start)+" "+
  19460. (end)
  19461. mus_fadeout
  19462.  music=0 
  19463.  vcnt
  19464.  vcnt=64
  19465. mus_setvolume(vcnt)
  19466. F_   
  19467.  SYS 5,com$(4)+STR$(vcnt)
  19468.  vcnt
  19469. mus_quit
  19470.  music=0 
  19471.  5,com$(9)
  19472.  5,com$(10)
  19473.  5,com$(11)
  19474.  5,com$(12)
  19475. mus_setvolume(volval)
  19476. Fm$ volval=
  19477. (max_volume/100*volval)
  19478.  5,com$(4)+
  19479. (volval)
  19480. adjust(cause)
  19481.  lastchoice=0
  19482. mus_load("ST2")
  19483. mus_play(0,13)
  19484.  cause 
  19485.  1: a$="MISSION FAILED"
  19486. Fx#  
  19487.  7: a$="END OF DEMO VERSION"
  19488.  2: a$="YOU HAVE DIED."
  19489. Fz'  
  19490.  3: a$="ALL HUMANS HAVE FAILED."
  19491. 6,112,1:
  19492. 6,112,2:
  19493. 6,112,1:
  19494. 6,113,1
  19495. 6,112,2:
  19496. picture("en1")
  19497. fillarray("ov",4)
  19498. f_yel
  19499. dspcB(a$,5)
  19500. f_wht
  19501.  n=1 
  19502. dspcB(ar$(n),7+n*2)
  19503. 6,113,2
  19504. getMK
  19505. againornot
  19506. againornot
  19507. 6,112,1
  19508. picture("en1")
  19509. centerB("Leave the game",1024-11*40)
  19510. centerB("Try a new game",1024-13*40)
  19511.  PROCcenter("Reload the last game",1024-15*40)
  19512. mouse_on
  19513.  SYS6,113,1
  19514. pixelswap
  19515.  A,B,C:
  19516.  A,B,C
  19517.  C>0 
  19518.  A>325 
  19519.  A<958 
  19520.  IF B>422 AND B<491 THEN lastchoice=3
  19521.  B>492 
  19522.  B<561 
  19523.  lastchoice=2
  19524.  B>561 
  19525.  B<641 
  19526.  lastchoice=1
  19527.  lastchoice
  19528.  lastchoice=1 
  19529. mus_quit
  19530. fade(2,0,15)
  19531. 262274,bfnt%
  19532. 262274,sfnt%
  19533. 262274,mfnt%
  19534.  SYS6,20
  19535. "ALPHABET LATIN1"
  19536. 262383,-1
  19537.  lastchoice=2 
  19538. mus_fadeout
  19539. fade(2,0,15)
  19540. 6,112,1
  19541.   screentype=1
  19542. ass_swap
  19543. len%=1024*8
  19544. swapspeed=255
  19545.  arm<3 swapspeed=80
  19546.  code len%
  19547.  pass=8 
  19548. P%=code
  19549. L%=code+len%
  19550. [OPT pass
  19551. .pixelswap
  19552.   STMFD  R13!,{R14}
  19553.   ADR    R4,swaptable
  19554.   MOV    R5,#swapspeed
  19555. .main_loop
  19556.   MOV    R2,#63
  19557. .y_loop
  19558.    MOV    R3,#79
  19559. .x_loop
  19560.     ADD    R6,R2,R3,LSL#6
  19561.     LDRB   R7,[R4,R6]
  19562.     CMP    R7,R5
  19563.     BNE    skip
  19564.     ADR    R8,offsets
  19565.     LDR    R0,scr1
  19566.     LDR    R1,scr2
  19567.     ADD    R7,R3,R2,LSL#6
  19568.     ADD    R7,R7,R2,LSL#8
  19569.     ADD    R0,R0,R7
  19570.     ADD    R1,R1,R7
  19571.  arm>7 
  19572. [OPT pass
  19573.     MOV    R7,#8192
  19574.  .waitsome
  19575.     SUB    R7,R7,#1
  19576.     CMP    R7,#0
  19577.     BNE    waitsome
  19578.  loop=1 
  19579. [OPT pass
  19580.     LDMIA  R8!,{R9-R12}
  19581.     LDRB   R7,[R0,R9]
  19582.     LDRB   R14,[R1,R9]
  19583.     STRB   R7,[R1,R9]
  19584.     STRB   R14,[R0,R9]
  19585.     LDRB   R7,[R0,R10]
  19586.     LDRB   R14,[R1,R10]
  19587.     STRB   R7,[R1,R10]
  19588.     STRB   R14,[R0,R10]
  19589.     LDRB   R7,[R0,R11]
  19590.     LDRB   R14,[R1,R11]
  19591.     STRB   R7,[R1,R11]
  19592.     STRB   R14,[R0,R11]
  19593.     LDRB   R7,[R0,R12]
  19594.     LDRB   R14,[R1,R12]
  19595.     STRB   R7,[R1,R12]
  19596.     STRB   R14,[R0,R12]
  19597. [OPT pass
  19598.     .skip
  19599.     SUBS   R3,R3,#1
  19600.    BPL    x_loop
  19601.    SUBS   R2,R2,#1
  19602.   BPL    y_loop
  19603.   SUBS   R5,R5,#1
  19604.   BNE    main_loop
  19605.   LDMFD  R13!,{PC}
  19606. G        .scr1
  19607.   EQUD   0
  19608.     .scr2
  19609.   EQUD   0
  19610. .offsets
  19611. array(64)
  19612. .swaptable
  19613. array(64*80+4)
  19614. .swapit
  19615.   STMFD  R13!,{R14}
  19616.   LDR    R4,bank
  19617.   RSB    R4,R4,#3
  19618.   STR    R4,bank
  19619.   MOV    R0,#112
  19620.   MOV    R1,R4
  19621.   SWI    &6
  19622.   MOV    R0,#113
  19623.   RSB    R1,R4,#3
  19624.   SWI    &6
  19625.   ADR    R0,vduA
  19626.   ADR    R1,psscreen
  19627.   SWI    &31
  19628.   LDMFD  R13!,{PC}
  19629. G%    .bank
  19630.   EQUD   1
  19631. G'    .vduA
  19632.   EQUD   148
  19633.   EQUD   -1
  19634. .psscreen
  19635.   EQUD   0
  19636.  i%=0 
  19637.  j%=0 
  19638. G0*  offsets!(4*i%+16*j%)=80*i%+320*64*j%
  19639. array(b%)
  19640.  P%+=b%
  19641. pswapinit
  19642.  i=0 
  19643.  64*80
  19644.   swaptable?i=
  19645. (swapspeed)
  19646.  swapit
  19647.  !scr1=!psscreen
  19648.  swapit
  19649.  !scr2=!psscreen
  19650. fl_init
  19651. fl_ass
  19652. fl_doanim
  19653. flagload(flag)
  19654.  fa,fb,fx
  19655. GL+ fx=
  19656. ("<Planets$Dir>.Data2.fg"+
  19657. (flag))
  19658.  fb=47 
  19659.  fa=27 
  19660.    flagspr?(fa*48+fb)=
  19661. flagstep(flsx,flsy)
  19662. 6,113,2
  19663. 6,112,1
  19664. schoose("flback"):
  19665. plot(0,144,698)
  19666. plot(0,144,698)
  19667.  flaggy
  19668.  144,698:
  19669. 364,829:
  19670. sget("flg1")
  19671.  6,112,2
  19672. schoose("flg1")
  19673. plot(0,flsx,flsy)
  19674. fl_doanim
  19675. k=359/255
  19676.  i%=0 
  19677.  a=i%*k
  19678. Ge+ x%=20*
  19679. (a*5)+15*
  19680. (a*2)+10*
  19681. (a*3)
  19682. Gf) y%=20*
  19683. (a*3)+10*
  19684. (a)+10*
  19685. (a*2)
  19686.  !(motion+i%*8)=
  19687. (x%/16)
  19688.  !(motion+i%*8+4)=
  19689. (y%/16)
  19690. fl_ass
  19691.  code% 1000,motion 256*8,flagspr 28*48
  19692.  i%=0 
  19693.  P%=code%
  19694.  [OPT i%
  19695.  .flaggy LDR     r10,screen
  19696.          MOV     r2,#&AA
  19697.          ADR     r5,abc
  19698.          LDR     r5,[r5]
  19699.          ADR     r12,fls
  19700.          LDR     r12,[r12]
  19701.          LDR     r4,count
  19702.          ADD     r4,r4,#1
  19703.          
  19704.      r4,r4,#&FF
  19705.          STR     r4,count
  19706.          MOV     r7,#50
  19707. G|/         MOV     r9,#28                 ;17
  19708.  .fl_loopx  MOV     r6,#40
  19709. G~/         MOV     r8,#48                 ;24
  19710. 1 .fl_loopy  ADD     r11,r4,r8,LSL #1       ;1
  19711. .         ADD     r11,r11,r9,LSL #2      ;2
  19712.          
  19713.      r11,r11,#&FF
  19714. #         MOV     r11,r11,LSL #3
  19715.           LDR     r0,[r5,r11]
  19716.          ADD     r11,r11,#4
  19717.           LDR     r1,[r5,r11]
  19718.          LDR     r2,[r12]
  19719.          ADD     r12,r12,#1
  19720.          ADD     r0,r0,r6
  19721.          ADD     r1,r1,r7
  19722. $         ADD     r0,r0,r1,LSL #8
  19723. $         ADD     r0,r0,r1,LSL #6
  19724.           STRB    r2,[r10,r0]
  19725.          ADD     r0,r0,#1
  19726.           STRB    r2,[r10,r0]
  19727.          ADD     r0,r0,#320
  19728.           STRB    r2,[r10,r0]
  19729.          SUB     r0,r0,#1
  19730.           STRB    r2,[r10,r0]
  19731. /         ADD     r6,r6,#1      ;Steps   ;10
  19732.          SUBS    r8,r8,#1
  19733.          BNE     fl_loopy
  19734. /         ADD     r7,r7,#1      ;Steps   ;10
  19735.          SUBS    r9,r9,#1
  19736.          BNE     fl_loopx
  19737.          MOV     r15,r14
  19738.  .count  EQUD    0
  19739.  .screen EQUD    148
  19740.          EQUD    -1
  19741.  .fls    EQUD    flagspr
  19742.  .abc    EQUD    motion
  19743.  ENDIF
  19744.  49,screen,screen
  19745. abspann
  19746. mus_load("ST2")
  19747. gload("en1")
  19748. mus_play(14,18)
  19749. swapscreen
  19750. 6,113,1
  19751. swapscreen
  19752. schoose("hall")
  19753. $ inc=50:dl=10:coul=3:letwait%=50
  19754.  arm>2.5 
  19755.  inc=25:dl=5:coul=6:letwait%=100
  19756.  X=999
  19757.  X=1000
  19758.  open=0
  19759.  add=inc
  19760.  cou=0
  19761.  stad=0
  19762. schoose("door1"):
  19763. plot(0,0,0)
  19764. schoose("hall"):
  19765. plot(0,0,0)      
  19766. zoom(640-((160-136+open)*X/1000)*4,512-((128-114)*X/1000)*4,X,X,1000,1000,"door1")
  19767. zoom(640-((160-158-open)*X/1000)*4,512-((128-114)*X/1000)*4,X,X,1000,1000,"door2")
  19768. zoom(640-((160)*X/1000)*4,512-((128)*X/1000)*4,X,X,1000,1000,"hall")
  19769. pixelswap
  19770.  letwait%=0 
  19771.    X+=
  19772. (add)
  19773.    add+=add/30
  19774.  letwait%>0 
  19775.  letwait%-=1
  19776.  X>1500 
  19777.  cou+=1:
  19778.  cou=coul 
  19779.  cou=1:stad+=4
  19780.  X>1500 
  19781.  open+=1
  19782.  X>1500 
  19783. schoose("stars"):
  19784. plot(0,-284+stad,0)
  19785.  X<9600 
  19786. zoom(640-((160-136+open)*X/1000)*4,512-((128-114)*X/1000)*4,X,X,1000,1000,"door1")
  19787. zoom(640-((160-158-open)*X/1000)*4,512-((128-114)*X/1000)*4,X,X,1000,1000,"door2")
  19788. zoom(640-((160)*X/1000)*4,512-((128)*X/1000)*4,X,X,1000,1000,"hall")
  19789.  stad>=68 
  19790. schoose("Welcome"):
  19791. plot(8,300,480)
  19792. swapscreen
  19793.  stad>=180 :
  19794. fade((3-I),0,15)
  19795. mus_fadeout
  19796.  *DSym FlushOutput
  19797.  *DSym Vol 64
  19798. mus_play(0,13)
  19799. 6,112,2:
  19800. 6,112,1:
  19801. 6,113,1
  19802.  fin%=0:fa=1:flen=2
  19803. fadeinstars
  19804. exfade(t$(665))
  19805. exfade(t$(666))
  19806. exfade(t$(667))
  19807. exfade(t$(668))
  19808. exfade(t$(669))
  19809. wait(100)
  19810. exfade(t$(670))
  19811. 6,112,2
  19812. picture("ey2")
  19813. fillarray("jdg",40)
  19814.  trace%(16)=0
  19815.  SIi(A,B)=1 
  19816.  trace%(16)+=1
  19817. pixelswap
  19818. 6,112,1
  19819. cfadein(t$(671),2)
  19820. wait(50)
  19821.      ct=0
  19822.  n=1 
  19823.  trace%(n)>0 
  19824.  ct+=1:
  19825. cfadein("You have "+ar$((n-1)*2+1)+" "+
  19826. (trace%(n))+" "+ar$((n-1)*2+2),3+ct*2):
  19827. wait(50)
  19828. wait(50)
  19829. cfadein(t$(672),24)
  19830. 6,112,2
  19831. picture("ey2")
  19832. getMK
  19833. pixelswap
  19834. 6,112,1
  19835. cfadein(t$(673),2)
  19836. wait(50)
  19837.      ct=0
  19838.  n=10 
  19839.  trace%(n)>0 
  19840.  ct+=1:
  19841. cfadein("You have "+ar$((n-1)*2+1)+" "+
  19842. (trace%(n))+" "+ar$((n-1)*2+2),3+ct*2):
  19843. wait(50)
  19844. cfadein(t$(674),3+(ct+1)*2)
  19845. wait(50)
  19846. cfadein(t$(672),24)
  19847. getMK
  19848. fade(1,0,15)
  19849. 6,112,2:
  19850. 6,112,1:
  19851. 6,113,1
  19852.  fin%=0:fa=1:flen=2
  19853. fadeinstars
  19854. exfade(t$(675))
  19855. exfade(t$(676))
  19856. wait(100)
  19857. gload("en2")
  19858. fade(1,0,15)
  19859. 6,112,2:
  19860. 6,112,1:
  19861. 6,113,1
  19862. fillarray("fw",9)
  19863. swapscreen
  19864. schoose("scape")
  19865.  fc=0:fw=0:nx=1:act=0
  19866. f_yel
  19867.  arm>2.5 
  19868. mus_play(5,13):t=12280 
  19869. mus_play(3,13):t=15100
  19870. plot(0,0,X)
  19871.  nx>1 
  19872.  fw<10 
  19873. dspcB(ar$(fw),12)
  19874. /  fc+=1:
  19875.  (nx=1 
  19876.  fc=15) 
  19877.  (nx=2 
  19878.  fc=20) 
  19879.    fc=0
  19880. H!!   
  19881.  nx=1 
  19882.  nx=2:fw+=1 
  19883.  nx=1
  19884.   X-=4
  19885.  X=-1100 
  19886.  act=1
  19887. H%   
  19888.  act>0 
  19889.  act<10 
  19890. stsfly
  19891.   tm=
  19892. -tm>20
  19893. swapscreen
  19894.  X<-1908
  19895. wait(200)
  19896. plot(0,0,X+4)
  19897. schoose("theend"):
  19898. plot(8,400,400)
  19899. swapscreen
  19900. fade((3-I),0,15)
  19901. f_wht
  19902. 6,112,2:
  19903. 6,112,1:
  19904. 6,113,1
  19905. wait(20)
  19906. cfadein("...for now.",12)
  19907. mus_fadeout
  19908. wait(50)
  19909. fade(1,0,15)
  19910. wait(50)
  19911. mus_quit
  19912. makingof
  19913. "Alphabet Latin1"
  19914. 262383,-1
  19915. stsfly
  19916. schoose("sts"+
  19917. (act)):
  19918. plot(0,800,800):act+=1:
  19919. schoose("scape")
  19920. exfade(t$)
  19921. lfadein(t$,500)
  19922. wait(250)
  19923. lfadeout(t$,500)
  19924. wait(100)
  19925. lfadein(f$,fy)
  19926.  RESTORE 8830
  19927.  READ col
  19928. HR2  
  19929.  SYS 262291,,0,1,6,&00000000,fadetable(X-1)
  19930. HS   font_col=fadetable(X-1)   
  19931. center(f$,fy)
  19932. wait(3)
  19933. lfadeout(f$,fy)
  19934.  RESTORE 8830
  19935.  FOR X=1TO17
  19936.  READ col:ar$(X)=STR$(col)
  19937.  NEXT X
  19938.  X=17
  19939. H_2  
  19940.  SYS 262291,,0,1,6,&00000000,fadetable(X-1)
  19941.   font_col=fadetable(X-1)
  19942. center(f$,fy)
  19943. wait(3)
  19944.  0,485,1279,66
  19945. f_wht
  19946. Hh%                                 
  19947. cfadein(f$,fy)
  19948.  RESTORE 8830
  19949.  READ col
  19950. Hm2  
  19951.  SYS 262291,,0,1,6,&00000000,fadetable(X-1)
  19952.   font_col=fadetable(X-1)
  19953. dspc(f$,fy)
  19954. wait(3)
  19955. doship(nu,a1,a2,a3,a4,a$,a6,a7,a8,a9,a10,a11,a12,a13,a14)
  19956.  sh_addx(nu)=a1:sh_addy(nu)=a2:sh_slen(nu)=a3:sh_shgt(nu)=a4:sh_name$(nu)=a$:sh_px(nu)=a6:sh_py(nu)=a7:sh_vx(nu)=a8:sh_vy(nu)=a9:sh_delay%(nu)=a10
  19957. Hw= sh_ai(nu)=a11:sh_iadd(nu)=a12:sh_X(nu)=a13:sh_xl(nu)=a14
  19958. moveships(limit,f$,pot,rand,hjumps)
  19959.  ma,mb,mc:
  19960.  I$="" 
  19961.  mc=0
  19962.  inc=1
  19963.  incadd=0.1
  19964.   X+=inc
  19965. schoose(f$)
  19966. plot(8,0,0)
  19967.  k=1 
  19968.  ships
  19969.  sh_delay%(k)=0 
  19970. schoose(sh_name$(k))
  19971. %    p=sh_slen(k)*2:q=sh_shgt(k)*2
  19972. <    a$=sh_name$(k):
  19973.  rand=1 
  19974. (15)=1 
  19975. a$,2,1)=
  19976. m    
  19977. zoom(sh_px(k)+sh_vx(k)-p*sh_X(k)/1000,sh_py(k)+sh_vy(k)-q*sh_X(k)/1000,sh_X(k),sh_X(k),1000,1000,a$)
  19978.  sh_X(k)<sh_xl(k) 
  19979.      sh_ai(k)=4
  19980. H     sh_vx(k)+=sh_addx(k)/4*sh_ai(k):sh_vy(k)+=sh_addy(k)/4*sh_ai(k)
  19981. %     
  19982.  pot 
  19983.  sh_ai(k)+=sh_iadd(k)
  19984. #     sh_iadd(k)+=sh_iadd(k)/100
  19985.      sh_X(k)+=sh_ai(k)
  19986.         
  19987.     sh_delay%(k)-=1
  19988.  hypc<10 
  19989.  hyp>0 
  19990.  hypw=0 
  19991.     hypc+=1
  19992. ,    
  19993.  hypc<6 
  19994.  hypa+=hypa 
  19995.  hypa-=hypa/2
  19996. !    hypy+=1:
  19997.  hypy>5 
  19998.  hypy=1
  19999.     hypx=hypa*100
  20000. T    
  20001. zoom(640-120*hypx/1000,512-120*hypx/1000,hypx,hypx,1000,1000,"hyp"+
  20002. (hypy))
  20003.     hypw-=1
  20004.  hjumps>1 
  20005.  hjumpb%>0 
  20006. 4    hjumpb%-=1:
  20007.  hjumpb%=0 
  20008.  hypc=0:hypw=0:hyp=1
  20009.  hjumpc%>0 
  20010. 4    hjumpc%-=1:
  20011.  hjumpc%=0 
  20012.  hypc=0:hypw=0:hyp=1
  20013.  arm>3 
  20014. wait(4)
  20015.   inc+=incadd
  20016.   incadd+=incadd/100
  20017. swapscreen
  20018. A  I$=
  20019.  ma,mb,mc:
  20020.  mc>0 
  20021.  I$<>"" 
  20022.  X=limit+1:killintro=1
  20023.  X>limit
  20024. film_shiplands(lordname$,planetname$,plantyp,ownername$)
  20025.  nc,killit,tme,plusx,plusy,loadappr
  20026. hour_off
  20027. 6,21,0
  20028. 6,21,9
  20029. 6,112,1
  20030.  loadappr=plantyp
  20031.  plantyp 
  20032.  1:loadappr=1
  20033.  2:loadappr=1
  20034.  3:loadappr=3
  20035.  4:loadappr=1
  20036.  5:loadappr=1
  20037.  6:loadappr=1
  20038.  8:loadappr=8
  20039.  plantyp=3 
  20040.  plusx=150:plusy=0
  20041. gload("ap"+
  20042. (loadappr))
  20043. picture("sh"+
  20044. (plantyp))
  20045. f_wht
  20046. dspB(lordname$+t$(546)+planetname$+" "+t$(547)+" "+ownername$+".",40,19)
  20047.  8+8,217+8 :
  20048.  1271-8,1015-8:
  20049. sget("harbour")
  20050. frame(0,209,1279,1023,42)
  20051.  no_texture=1
  20052. inframe(0+8,209+8,1279-8,1023-8,42)
  20053.  no_texture=0
  20054. schoose("harbour"):
  20055. plot(0,8+8,217+8)
  20056.  nc=100 
  20057.   tme=
  20058. 6,112,1
  20059. schoose("harbour"):
  20060. plot(0,8+8,217+8)
  20061. zoom(640-400*(nc/100)+plusx,700-70*(nc/100)+nc+plusy,nc,nc,100,100,"approach")
  20062.  0,209:
  20063. 1279,1023:
  20064. sget("copy")
  20065. 6,112,2
  20066. schoose("copy"):
  20067. plot(0,0,209)
  20068. -tme<10 
  20069. -tme>=10
  20070.   I$=
  20071.  A,B,C
  20072.  I$<>"" 
  20073.  C<>0 
  20074.  killit=1:nc=40
  20075.  killit=0 
  20076. 6,112,1
  20077. gload("lp1")
  20078. picture("lp1")
  20079. dspB(lordname$+t$(546)+planetname$+" "+t$(547)+" "+ownername$+".",40,19)
  20080.  8+8,217+8 :
  20081.  1271-8,1015-8:
  20082. sget("backg")
  20083. frame(0,209,1279,1023,42)
  20084.   no_texture=1
  20085. inframe(0+8,209+8,1279-8,1023-8,42)
  20086.   no_texture=0
  20087. schoose("backg"):
  20088. plot(0,8+8,217+8):
  20089.  PROCplot(0,0,60)
  20090. sdelete("backg")
  20091.  0,209:
  20092. 1279,1023:
  20093. sget("copy")
  20094. 6,112,2
  20095. schoose("copy"):
  20096. plot(0,0,209)
  20097. 24,0+12;209+12+4;1279-12;1023-12;
  20098.  nc=2 
  20099.    tme=
  20100. schoose("land"+
  20101. (nc))
  20102. plot(0,520,425+64)
  20103. wait(10)
  20104. -tme<9 
  20105. -tme>=9
  20106.    I$=
  20107.  A,B,C
  20108.  I$<>"" 
  20109.  C<>0 
  20110.  killit=1:nc=40
  20111. wait(30)
  20112. gload("pt1")
  20113. gmerge("ts1")
  20114. film_flyaway
  20115.  x,t%,af,fin
  20116. 6,21,0
  20117. 6,21,9
  20118.  n=1 
  20119.   var(n)=
  20120. (10)+5
  20121. 6,112,1
  20122. gload("pt1")
  20123. picture("js1")
  20124. 1279,1023:
  20125. sget("stars")
  20126. 6,112,2
  20127. 1279,1023:
  20128. sget("scr")
  20129. 6,112,1
  20130. schoose("scr"):
  20131. plot(0,0,0):
  20132. sdelete("scr")
  20133. frame(0,209,1279,1023,42)
  20134. inframe(0+8,209+8,1279-8,1023-8,42)
  20135. 24,0+12;209+12+4;1279-12;1023-12;
  20136. smerge(sgr$+"fl5")
  20137.  PROCsmerge(sgr$+"fl6")
  20138.  0,160
  20139. schoose("stars"):
  20140. plot(0,0,0)
  20141.  x=1000
  20142.  IF arm>3 THEN t%=5:af=8:hypw=54-8 ELSE t%=2:af=8:x=600:hypw=42-8
  20143.  t%=5:af=8:hypw=54-8
  20144. zoom(640-640*x/1000,512-512*x/1000,x,x,1000,1000,"fleet")
  20145.  jk=1 
  20146. schoose(
  20147. (jk)+"-5")
  20148.  1:ja=376:jb=788
  20149.  2:ja=36:jb=652
  20150.  3:ja=392:jb=626
  20151.  4:ja=188:jb=468
  20152.  5:ja=910:jb=620
  20153.  6:ja=480:jb=198
  20154.  7:ja=1148:jb=514
  20155.  8:ja=1044:jb=888
  20156.  9:ja=768:jb=692
  20157. 10:ja=1028:jb=594
  20158. 11:ja=228:jb=298
  20159. 12:ja=1164:jb=156
  20160.    jb+=32
  20161. plot(0,ja,jb)
  20162. 0,200:
  20163. 1279,1023:
  20164. sget("scr")
  20165. 6,112,2:
  20166. schoose("scr"):
  20167. plot(0,0,200)
  20168. 6,112,1
  20169. sdelete("scr")
  20170. gmerge("hp1")
  20171. 24,0+12;209+12+4;1279-12;1023-12;
  20172.  0,160
  20173. I:= hyp=1:hypa=1:hypc=1:hypy=0:hypx=0:hjumpb%=80:hjumpc%=150
  20174.  vok=0
  20175. IA$  
  20176. schoose("stars"):
  20177. plot(0,0,0)
  20178. IBG  
  20179.  x>30 
  20180. zoom(640-640*x/1000,512-512*x/1000,x,x,1000,1000,"fleet")
  20181.   vok=1
  20182.  jk=1 
  20183. II%   
  20184.  var(jk)>1 
  20185.  var(jk)-=1:vok=0
  20186.  var(jk)<6 
  20187. IN2    
  20188.  var(jk)>1 
  20189. schoose(
  20190. (jk)+"-"+
  20191. (var(jk)))
  20192. schoose(
  20193. (jk)+"-5")
  20194.  1:ja=376:jb=788
  20195.  2:ja=36:jb=652
  20196.  3:ja=392:jb=626
  20197.  4:ja=188:jb=468
  20198.  5:ja=910:jb=620
  20199.  6:ja=480:jb=198
  20200.  7:ja=1148:jb=514
  20201.  8:ja=1044:jb=888
  20202.  9:ja=768:jb=692
  20203. 10:ja=1028:jb=594
  20204. 11:ja=228:jb=298
  20205. 12:ja=1164:jb=156
  20206.    jb+=32
  20207. Ij!   
  20208.  var(jk)>1 
  20209. plot(0,ja,jb)
  20210.  hypc=10 
  20211.  hypc=11
  20212.  hypc<10 
  20213.  hypw=0 
  20214.     hypc+=1
  20215. Ix,    
  20216.  hypc<6 
  20217.  hypa+=hypa 
  20218.  hypa-=hypa/2
  20219. Iy!    hypy+=1:
  20220.  hypy>5 
  20221.  hypy=1
  20222.     hypx=hypa*100
  20223. I{^    
  20224.  hypx>30 
  20225. zoom(640-120*hypx/1000,512-120*hypx/1000,hypx,hypx,1000,1000,"hyp"+
  20226. (hypy))
  20227.     hypw-=1
  20228. wait(1)
  20229.  x-1<af 
  20230. wait(6)
  20231. swapscreen
  20232.  vok 
  20233.  x-=af 
  20234. wait(6)
  20235.   I$=
  20236.  a,b,c
  20237.  I$<>"" 
  20238.  c>0 
  20239.  fin=1
  20240.   af+=1
  20241.  (x<af 
  20242.  hypc>=11) 
  20243.  fin=1
  20244.  fin=1 
  20245. 6,112,3-I:
  20246.  0,0:
  20247. 1279,1023:
  20248. sget("b"):
  20249. 6,112,I:
  20250. schoose("b"):
  20251. plot(0,0,0)
  20252.  0,0:
  20253. gload("ts1")
  20254. gmerge("pt1")
  20255. film_arrive
  20256.  x,t%,af,fin,max,drow
  20257. 6,21,0
  20258. 6,21,9
  20259. 6,112,1
  20260. sload(sgr$+"fl6")
  20261. gmerge("pt1")
  20262. schoose("stars"):
  20263. plot(0,0,0)
  20264. ! drow=6:
  20265.  players>1 
  20266.  drow=23
  20267. dspB(ab$,40,drow)
  20268. 1279,1023:
  20269. sget("stars")
  20270. 6,112,2
  20271. 1279,1023:
  20272. sget("scr")
  20273. 6,112,1
  20274. schoose("scr"):
  20275. plot(0,0,0):
  20276. sdelete("scr")
  20277. frame(0,209,1279,1023,42)
  20278. inframe(0+8,209+8,1279-8,1023-8,42)
  20279. sdelete("pattern")
  20280. 24,0+12;209+12+4;1279-12;1023-12;
  20281. smerge(sgr$+"fl4")
  20282.  0,160
  20283. schoose("stars"):
  20284. plot(0,0,0)
  20285.  x=1:max=1000:hypw=0
  20286.  arm>3 
  20287.  t%=75:af=16 
  20288.  t%=2:af=16:max=599
  20289. 0,200:
  20290. 1279,1023:
  20291. sget("scr")
  20292. 6,112,2:
  20293. schoose("scr"):
  20294. plot(0,0,200)
  20295. 6,112,1
  20296. sdelete("scr")
  20297. gmerge("hp1")
  20298. 24,0+12;209+12+4;1279-12;1023-12;
  20299.  0,160
  20300. = hyp=1:hypa=1:hypc=1:hypy=0:hypx=0:hjumpb%=80:hjumpc%=150
  20301. schoose("stars"):
  20302. plot(0,0,0)
  20303. zoom(640-640*x/1000,512-512*x/1000,x,x,1000,1000,"fleet")
  20304.  hypc<10 
  20305.  hypw=0 
  20306.     hypc+=1
  20307. ,    
  20308.  hypc<6 
  20309.  hypa+=hypa 
  20310.  hypa-=hypa/2
  20311. !    hypy+=1:
  20312.  hypy>5 
  20313.  hypy=1
  20314.     hypx=hypa*100
  20315. T    
  20316. zoom(640-120*hypx/1000,512-120*hypx/1000,hypx,hypx,1000,1000,"hyp"+
  20317. (hypy))
  20318. wait(5)
  20319.     hypw-=1
  20320. wait(1)
  20321.  x<af 
  20322. wait(3)
  20323. swapscreen
  20324.  t%>0 
  20325.  t%-=1
  20326.  x<=max x+=af
  20327.   I$=
  20328.  a,b,c
  20329.  I$<>"" 
  20330.  c>0 
  20331.  fin=1
  20332.  (x>max 
  20333.  t%=0) 
  20334.  fin=1
  20335.  fin=1 
  20336. 6,112,3-I:
  20337.  0,0:
  20338. 1279,1023:
  20339. sget("b"):
  20340. 6,112,I:
  20341. schoose("b"):
  20342. plot(0,0,0)
  20343.  0,0:
  20344. gload("ts1")
  20345. gmerge("pt1")
  20346. init_tristars
  20347. Sts_max=20:
  20348.  ts_x(ts_max),ts_y(ts_max),nts_x(ts_max),nts_y(ts_max),ats_x(ts_max)
  20349. ts_wx=800:ts_wy=600
  20350. !sts_max=100:shiftx=0:shifty=0
  20351.  n=1 
  20352.  ts_max
  20353.  ts_x(n)=ts_wx/2
  20354.  ts_y(n)=ts_wy/2
  20355.  nts_x(n)=(
  20356. (21)-11)/10
  20357.  nts_y(n)=(
  20358. (21)-11)/10
  20359.  ats_x(n)=
  20360. (ts_max)*4
  20361. tristars
  20362.  n=1 
  20363.  ts_max
  20364.  ats_x(n)=0 
  20365.    ts_x(n)+=nts_x(n)
  20366.    ts_y(n)+=nts_y(n)
  20367.    nts_x(n)+=nts_x(n)/40
  20368.    nts_y(n)+=nts_y(n)/40
  20369.  ts_x(n)>ts_wx+sts_max 
  20370.  ts_x(n)<0-sts_max 
  20371.  ts_y(n)>ts_wy+sts_max 
  20372.  ts_y(n)<0-sts_max 
  20373.     ts_x(n)=ts_wx/2
  20374.     ts_y(n)=ts_wy/2
  20375.     nts_x(n)=(
  20376. (21)-11)/10
  20377.     nts_y(n)=(
  20378. (21)-11)/10
  20379. 6   ts_r=
  20380. ((ts_x(n)-ts_wx/2)^2+(ts_y(n)-ts_wy/2)^2)
  20381.    d=0:
  20382.  ts_r>150 
  20383.    c=63:t=128
  20384.  ts_r<480 
  20385.  c=63:t=0
  20386.  ts_r<270 
  20387.  c=42:t=128
  20388.  ts_r<190 
  20389.  c=42:t=0
  20390.  ts_r<110 
  20391.  c=21:t=128
  20392.  ts_r<70 
  20393.  c=0:t=192
  20394.  ts_r<40 
  20395.  c=0:t=0
  20396.    kx=ts_x(n)+shiftx
  20397.    ky=ts_y(n)+shifty
  20398.  kx>0+4 
  20399.  ky>0+4 
  20400.  kx<ts_wx-4 
  20401.  ky<ts_wy-4 
  20402.  t+c>0 
  20403.  kx+gx,ky+gy
  20404. D    
  20405.  d=1 
  20406.  kx+4+gx,ky+4+gy:
  20407.  kx+4+gx,ky+gy:
  20408.  kx+gx,ky+4+gy
  20409.    ats_x(n)-=1
  20410. clearmemory
  20411.  normalfont=0
  20412.  markX()=0:markY()=0
  20413.  mark$()=""
  20414. * flashnum=0:flashstate=0:flashactual=0
  20415.  recall$()=""
  20416. 3:high$(X)="Barkeeper":high(X)=X*10657
  20417.      xy=0
  20418.  fx=0:fxc=0
  20419.  watcher=0
  20420.  claimed=0
  20421.  actualMenu=1
  20422.  spaceport=0
  20423.  firstplanet()=0
  20424.  findvar=0
  20425.  varfound=0
  20426.  window_open=0
  20427.  noplanet=0
  20428.  whichlord=0
  20429.  nomoney=0
  20430.  spotted=0
  20431.  aliens=0
  20432.  nonclick=0
  20433.  xx%=0:yy%=0
  20434.  trans%=50
  20435.  scout%=0
  20436.  war%=3
  20437.  bomb%=0
  20438.  ckind=0
  20439.  useproc=0
  20440. J+     cr=0
  20441.  inc=0
  20442.  firm=0
  20443.  decision=0
  20444.  connum=0
  20445.  gflag=0
  20446.  fwn=0
  20447.  PMission=1
  20448.  PDifficult=1
  20449.  codde=0
  20450.  ftime=0
  20451.  hour=0
  20452.  flysys=0
  20453.  mappic=6
  20454.  usenova=0
  20455.  attacklord=0
  20456.  reput=3
  20457.  players=1
  20458.  usepattern=1
  20459.  hour_time=0
  20460.  nopirates=0
  20461.  oldp=-1
  20462.  chold=0
  20463.  mousewait=0
  20464.  pl_num=0
  20465.  pl_act=0
  20466.  old_c=0
  20467. JF     jt=0
  20468.  san=0
  20469.  sanc=0
  20470.  lastsaveplace=0
  20471.  fght%=0
  20472.  festival=0
  20473.  mustclear=0
  20474.  soonplay=0
  20475.  atlord=0
  20476.  old_C=0
  20477.  inventnow=0
  20478.  hyp=0:hypc=0
  20479.  ta$="Lord":tb$="Milord"
  20480.  rcd$="fl2"
  20481.  battlecom=0
  20482.  backtoslave=0
  20483.  quittalk=0:letexit=0
  20484.  lookagain=0
  20485.  rebelpeace=0
  20486.  donecode=0
  20487.  inmenu=0
  20488.  usemeteor=0
  20489.  recall_num=0
  20490.  usemark=0
  20491.  chcount=0
  20492.  actualplayer=1
  20493.  useanim=0
  20494.  escpressed=0
  20495.  screentype=0
  20496.  noraces=0
  20497.  no_texture=0
  20498.  track_x=640
  20499.  track_y=512
  20500.  track_lock=0
  20501.  stsh%()=0
  20502.  t%()=0            
  20503.  credits()=0       
  20504.  orbit()=0
  20505.  tactic()=0
  20506.  flying()=0
  20507.  TS()=0
  20508.  TP()=0
  20509.  eship()=0
  20510.  efreight()=0
  20511.  flag()=0
  20512.  existing()=0
  20513.  gmember()=0
  20514.  firstcity%()=0
  20515.  MI()=0
  20516.  MIs()=0
  20517.  MIp()=0
  20518.  evillord()=0
  20519.  whichp()=0
  20520.  pphase()=0
  20521.  psun()=0
  20522.  ptarget()=0
  20523.  invent%()=0
  20524.  etrans%()=0
  20525.  ewar%()=0
  20526.  escout%()=0
  20527.  ebomb%()=0
  20528.  hi%()=0
  20529.  md%()=0
  20530.  lo%()=0
  20531.  v%()=0
  20532. @ rau_c()=0:rau_x()=0:rau_y()=0:rau_l()=0:rau_d()=0:rau_t()=0
  20533.  b$()=""
  20534.  Ps%()=0
  20535.  Pm()=0
  20536.  veh()=0
  20537.  reput()=0
  20538.  ftime()=0
  20539.  selectedsys()=0
  20540.  trace%()=0
  20541.  lordvar()=0
  20542.  punish%()=0
  20543.  rotphase%()=0
  20544.  verhalten()=0
  20545.  pl$=""
  20546.  PName$=""              
  20547.  ttl=0               
  20548.  ship()=0
  20549.  freight()=0
  20550.  c()=0:c$()=""
  20551.  shift%()=0
  20552.  ship()=0
  20553.  freight()=0
  20554.  verhalten()=2
  20555.  radioX()=0:radioY()=0
  20556.  surf%()=0
  20557.  price(1)=20
  20558.  price(2)=3
  20559.  price(3)=15
  20560.  price(4)=25
  20561.  price(5)=30
  20562.  price(6)=5
  20563.  price(7)=10
  20564.  price(8)=20
  20565.  price(9)=30
  20566.  price(10)=15
  20567.  price(11)=10
  20568.  price(12)=20
  20569.  price(13)=100
  20570.  price(14)=120
  20571.  price(15)=10
  20572.  prices()=0
  20573.  plandat()=0
  20574. ("<Planets$Dir>.font.fontdat")
  20575.  z=1 
  20576.  x=1 
  20577. #A,prices(z,x,1)
  20578.  y=1 
  20579. #A,prices(z,y,2)
  20580. ("<Planets$Dir>.font.plandat")
  20581.  y=1 
  20582.  x=1 
  20583. #A,plandat(y,x)
  20584.  partyAT=0
  20585.  partyPA=0
  20586.  flying=0
  20587.  accepted=0
  20588.  icon=0
  20589.  icond=1
  20590.  credits=300
  20591.  row=0
  20592.  won=0
  20593.  attacker=0
  20594.  rebels=0
  20595. " sgr$="<Planets$Dir>.StartGr."
  20596.  radiocount=0
  20597.  H$()=""
  20598.  Hl()=0
  20599.  Ha()=0
  20600.  Hg()=0
  20601.  selected=0
  20602.  actual=2
  20603.  selectedsys=0
  20604.  allied()=0
  20605. 15:Hl(X)=
  20606.  H$(1)=PName$
  20607. fillarray("ld"+
  20608. (Hl(X)),15)
  20609.    R=
  20610. !   H$(X)=
  20611. ar$(R),
  20612. (ar$(R))-2)
  20613. ar$(R),1)="m" 
  20614.  Hg(X)=1 
  20615.  Hg(X)=2
  20616.    ok=1
  20617. #    
  20618.  H$(Y)=H$(X) 
  20619.  Y<>X 
  20620.  ok=0
  20621.   reput(X)=3
  20622. (4)=1 
  20623.  evillord(X)=
  20624. (15): 
  20625.  evillord(X)<>X
  20626.   tactic(X)=0
  20627.   etrans%(X)=50
  20628.  Hl(X)=1 
  20629.    hi%(X)=132
  20630.    md%(X)=369
  20631.    lo%(X)=10
  20632.  Hl(X)=2 
  20633.    hi%(X)=394
  20634.    md%(X)=4
  20635.    lo%(X)=113
  20636.  Hl(X)=3 
  20637.    hi%(X)=241
  20638.    md%(X)=12
  20639.    lo%(X)=258
  20640.  Hl(X)=4 
  20641.    hi%(X)=289
  20642.    md%(X)=90
  20643.    lo%(X)=132
  20644.  Hl(X)=0 
  20645.    md%(X)=511
  20646.  X=1 
  20647.   existing(X)=1
  20648.   stsh%(X,2)=1
  20649.   stsh%(X,4)=5
  20650.   t%(X)=30
  20651.  hi%(X) 
  20652.  t%(X)-=10
  20653.  hi%(X) 
  20654.  t%(X)+=10
  20655.  lo%(X) 
  20656.  t%(X)-=10
  20657.  mmbx=0                    
  20658.  mmby=0
  20659.  SIs()=0
  20660.  SIn$()=""
  20661.  SIi()=0
  20662.  SIb()=0
  20663.  SIt()=0
  20664.  SIk%()=0
  20665.  SIr()=0
  20666.  SIg%()=0
  20667.  SIna()=0
  20668.  SIc()=0
  20669.  SIam()=0
  20670.  SId()=0
  20671.  SIv()=0
  20672.  SIrm()=0
  20673.  SIu()=0
  20674.  SIgr()=0
  20675.  SIm%()=0
  20676.  SIpo%()=0
  20677.  SIl%()=0
  20678.  SItb%()=0
  20679.  SunX()=0
  20680.  SunY()=0
  20681.  SunE()=0
  20682.  SunP()=0
  20683.  sunsel()=0
  20684.  Sunsize()=0
  20685.  SunName$()=""
  20686.  plan()=0
  20687.  planX()=0
  20688.  planY()=0
  20689.  pspeed()=0
  20690.  ps()=0
  20691.  animate()=0
  20692.  surf$()=""
  20693.  plan(X,5)=0 
  20694.    planX(X,5)=1100
  20695.    planY(X,5)=500
  20696.    pspeed(X,5)=10
  20697. patch_terrapicture
  20698.  patch_a
  20699. KA( patch_a=
  20700. ("<Planets$Dir>.FILM.a01")
  20701.  patch_a 
  20702. 6,112,2
  20703. sload("<Planets$Dir>.pictures.pl6")
  20704. schoose("screendump")
  20705. plot(0,0,0)
  20706. sdelete("screendump")
  20707. "COMPRESS <Planets$Dir>.pictures.PL6"
  20708. 6,112,1
  20709. KL( patch_a=
  20710. ("<Planets$Dir>.FILM.a01")
  20711. #patch_a,"P"
  20712. #patch_a
  20713.