home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd371 / zion.amos / zion.amosSourceCode < prev   
AMOS Source Code  |  1991-07-30  |  7KB  |  249 lines
  1. '
  2. '
  3. ' Z I O N   Demo 
  4. ' ============== 
  5. '  
  6. ' Full game available soon.
  7. '
  8. Screen Close 0
  9. Hide On 
  10. Screen Open 3,320,251,16,Lowres
  11. Colour 1,$FFF : Pen 1 : Paper 0 : Ink 1,0 : Curs Off : Flash Off : Cls 0
  12. Box 1,1 To 21,21
  13. Get Bob 1,0,0 To 22,22
  14. Load Iff "Graphics/Zion2.Iff"
  15. Screen Hide 3
  16. Screen Open 2,340,270,2,Lowres
  17. Colour 1,$FFF : Ink 1,0 : Curs Off : Flash Off : Cls 0
  18. Screen Hide 2
  19. For F=1 To 100
  20.    X=Rnd(340)
  21.    Y=Rnd(270)
  22.    Plot X,Y
  23. Next F
  24. Screen Open 0,320,256,16,Lowres
  25. Curs Off : Flash Off : Cls 0
  26. Double Buffer : Autoback 0
  27. Screen Open 1,320,70,16,Lowres
  28. Curs Off : Flash Off : Cls 0
  29. Load Iff "Graphics/Zion1.Iff"
  30. Screen Display 1,130,220,320,70
  31. Screen 0
  32. Pen 1 : Paper 0 : Colour 1,$FFF
  33. '
  34. Dim PLANET$(10)
  35. PLANET$(1)="Zircon    "
  36. PLANET$(2)="Omega     "
  37. PLANET$(3)="Epilson   "
  38. PLANET$(4)="Betelgeuse"
  39. PLANET$(5)="Zeugma    "
  40. '
  41. '
  42. If Not Exist("AMOS:")
  43.    Centre At(,10)+"Please insert volume AMOS:"
  44.    Centre At(,11)+"into ANY drive"
  45.    Repeat 
  46.       Curs Off 
  47.    Until Exist("AMOS:")
  48. End If 
  49. Curs Off : Cls 0
  50. Dir$="AMOS:"
  51.  Extension_4_0548 
  52.  Extension_4_0054 200
  53. '
  54. If Not Exist("Odyssey:")
  55.    Centre At(,10)+"Please insert volume Odyssey:"
  56.    Centre At(,11)+"into ANY drive"
  57.    Repeat 
  58.       Curs Off 
  59.    Until Exist("Odyssey:")
  60. End If 
  61. Curs Off : Cls 0
  62. Dir$="Odyssey:"
  63.  Extension_4_04D6 "Df0:3D/"
  64.  Extension_4_0016 "zion1"
  65.  Extension_4_0016 "zion2"
  66.  Extension_4_0016 "zion3"
  67. '
  68.  Extension_4_0036 1,"zion1",8000,2000,80000,0,0,0
  69.  Extension_4_0036 2,"zion2",-5000,2000,60000,0,0,0
  70.  Extension_4_0036 3,"zion3",1000,2000,90000,0,0,0
  71.  Extension_4_0036 4,"zion1",10000,7000,2000,0,0,0
  72.  Extension_4_0036 5,"zion2",-4000,-5000,30000,0,0,0
  73.  Extension_4_00EC 0,2000,2000,50000
  74.  Extension_4_0328 0,0,0,0,0,100
  75.  Extension_4_0328 1,0,0,0,1,10000
  76.  Extension_4_0328 2,0,0,0,2,10000
  77.  Extension_4_0328 3,0,0,0,3,10000
  78.  Extension_4_0328 4,0,0,0,4,10000
  79.  Extension_4_0328 5,0,0,0,5,10000
  80. '
  81. '
  82. X=130 : Y=30
  83. X2=0 : Y2=0
  84. P$="None"
  85. RNG=0
  86. Repeat 
  87.     Extension_4_053C 
  88.     Extension_4_049E 3,0,0,320,251 To 0,0
  89.     Extension_4_0318 
  90.     Extension_4_049E 2,0,0,320,256 To 0,0
  91.    Screen Swap 
  92.    Wait Vbl 
  93.     Extension_4_01F8 1,0
  94.     Extension_4_01F8 2,0
  95.     Extension_4_01F8 3,0
  96.     Extension_4_01F8 4,0
  97.     Extension_4_01F8 5,0
  98.    If Extension_4_0344(0)=1
  99.       RNG= Extension_4_007E(1,0)
  100.       P$=PLANET$(1)
  101.       P=1
  102.    End If 
  103.    If Extension_4_0344(0)=2
  104.       RNG= Extension_4_007E(2,0)
  105.       P$=PLANET$(2)
  106.       P=2
  107.    End If 
  108.    If Extension_4_0344(0)=3
  109.       RNG= Extension_4_007E(3,0)
  110.       P$=PLANET$(3)
  111.       P=3
  112.    End If 
  113.    If Extension_4_0344(0)=4
  114.       RNG= Extension_4_007E(4,0)
  115.       P$=PLANET$(4)
  116.       P=4
  117.    End If 
  118.    If Extension_4_0344(0)=5
  119.       RNG= Extension_4_007E(5,0)
  120.       P$=PLANET$(5)
  121.       P=5
  122.    End If 
  123.    If Extension_4_0344(0)=-1
  124.       RNG=0
  125.       P$="None      "
  126.       P=0
  127.    End If 
  128.    If RNG<200 and RNG>0
  129.       INFO[P$]
  130.       SP=-100
  131.        Extension_4_0100 0,-300
  132.    End If 
  133.    '
  134.    If Jup(1)
  135.        Extension_4_018C 0,-500,0,0
  136.       For F=1 To 2
  137.          Screen Copy 2,0,0,320,250 To 2,0,-4
  138.          Screen Copy 2,0,0,320,20 To 2,0,200
  139.       Next F
  140.    End If 
  141.    If Jdown(1)
  142.        Extension_4_018C 0,500,0,0
  143.       For F=1 To 2
  144.          Screen Copy 2,0,0,320,250 To 2,0,4
  145.          Screen Copy 2,0,200,320,220 To 2,0,0
  146.       Next F
  147.    End If 
  148.    If Jleft(1)
  149.        Extension_4_018C 0,0,-500,0
  150.       For F=1 To 2
  151.          Screen Copy 2,0,0,320,250 To 2,4,0
  152.          Screen Copy 2,300,0,320,320 To 2,0,0
  153.       Next F
  154.    End If 
  155.    If Jright(1)
  156.        Extension_4_018C 0,0,500,0
  157.       For F=1 To 2
  158.          Screen Copy 2,0,0,320,250 To 2,-4,0
  159.          Screen Copy 2,0,0,20,250 To 2,300,0
  160.       Next F
  161.    End If 
  162.    '
  163.     Extension_4_0100 0,SP
  164.    A$=Lower$(Inkey$)
  165.    If A$="="
  166.       Add SP,100
  167.       If SP>1000
  168.          SP=1000
  169.       End If 
  170.    End If 
  171.    If A$="-"
  172.       Add SP,-100
  173.       If SP<-200
  174.          SP=-200
  175.       End If 
  176.    End If 
  177.    If A$=" "
  178.       SP=0
  179.    End If 
  180.    '
  181.    Screen 1
  182.    Ink 3,0
  183.    Text 40,12,P$
  184.    Text 40,26,Str$(RNG)-" "+"       "
  185.    Text 195,12,Str$(SP)-" "+"       "
  186.    Ink 10,0
  187.    Text 4,59,M$
  188.    Screen 0
  189. Until QUIT=1
  190. '
  191. Procedure INFO[P$]
  192.    S$=String$(" ",37)
  193.    If Left$(P$,6)="Zeugma"
  194.       S$=S$+"Zeugma, is the home of the Galactic Government."
  195.       S$=S$+"In the full game, you'll be able to visit the galactic "
  196.       S$=S$+"parliament.  Alas, you won't be able to become president, "
  197.       S$=S$+"but you'll see where all the galactic decisions are carried "
  198.       S$=S$+"out. "
  199.       S$=S$+"Also, This planet has no sea, therefore you won't find a "
  200.       S$=S$+"navy. "
  201.       S$=S$+"Like most planets, the Zeugmians, are mainly humanoid. But they"
  202.       S$=S$+" also provide the best hospitality in the galaxy. "
  203.    End If 
  204.    If Left$(P$,10)="Betelgeuse"
  205.       S$=S$+"Betelgeuse, is the only planet in the Zion Solar System, which"
  206.       S$=S$+" can be seen from Earth.  Earth itself, is called Djon on Betelgeuse. "
  207.       S$=S$+"Plans have come to make intergalactic contact with Earth, but "
  208.       S$=S$+"Betelgeuse Research centres, still require more information, "
  209.       S$=S$+"before going ahead.  Because of all this work in the Extra Terrestrial "
  210.       S$=S$+"departments, Betelgeuse has become the main research planet. "
  211.    End If 
  212.    If Left$(P$,6)="Zircon"
  213.       S$=S$+"Zircon, is the central trading planet of the whole Zion system. "
  214.       S$=S$+"Almost everything can be bought and sold here.  And it is the "
  215.       S$=S$+"busiest planet in the whole galaxy.   It is also the place where "
  216.       S$=S$+"a trader can make millions of Stellar currency, at the selling of "
  217.       S$=S$+"cargo.  Back in 20000 B.C ( Earth Date ), Zircon suffered a large "
  218.       S$=S$+"pollution catastrophe, killing 3 billion people.  Zircon recovered "
  219.       S$=S$+"only 1000 yrs ago. "
  220.    End If 
  221.    If Left$(P$,5)="Omega"
  222.       S$=S$+"The Omegians, have long since trashed the wheel, and has now become "
  223.       S$=S$+"the centre of technology and entertainment.  Anyone who wants to "
  224.       S$=S$+"make it big in film, advertising or technology comes here.  And it "
  225.       S$=S$+"provides worthy competitors with a good life, if they can beat the "
  226.       S$=S$+"rest of the bunch. "
  227.    End If 
  228.    If Left$(P$,7)="Epilson"
  229.       S$=S$+"Epilson has the biggest residential town in the solar system. "
  230.       S$=S$+"Millions of beings commute to work on other planets from here. "
  231.       S$=S$+"Although it has the biggest residential area, it is not the only "
  232.       S$=S$+"one.  ( Most planets have one, for the convieniance ). "
  233.       S$=S$+"It is also, mainly tropical.  Most towns have been made into "
  234.       S$=S$+"luxurious resorts for the rich only. "
  235.    End If 
  236.    Screen 1
  237.    Ink 10,0
  238.    V=1 : L=Len(S$)
  239.    Repeat 
  240.       Text 4,59,Mid$(S$,V,39)
  241.       Add V,1
  242.       If V>L
  243.          V=1
  244.       End If 
  245.       Wait 4
  246.    Until Fire(1)
  247.    Text 4,59,String$(" ",39)
  248.    Screen 0
  249. End Proc