home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / amos / se_edit.amos / se_edit.amosSourceCode
AMOS Source Code  |  1995-03-16  |  2KB  |  94 lines
  1. NP=5
  2. '
  3. Screen Open 1,640,30,16,Hires
  4. Flash Off : Curs Off 
  5. Palette $0,$FFF,$F00,$F0,$F,$FF0,$FF,$F0F,$F80,$888,$44F
  6. Cls 0
  7. Pen 1
  8. Set Rainbow 0,0,300,"","","(17,1,32)"
  9. Rainbow 0,0,100,300
  10. Set Rainbow 1,0,32,"(2,1,15)","(2,1,15)","(2,1,15)"
  11. Rainbow 1,0,57,32
  12. Screen Open 0,320,200,16,Lowres
  13. Screen 0
  14. Get Palette 1
  15. Screen Display 0,,100,,
  16. Flash Off : Curs Off 
  17. Cls 0
  18. Dim A(60,30)
  19. '
  20. Screen 1
  21. Paper 0
  22. Pen 8
  23. Centre "- Space Empires universe editor -"
  24. Print 
  25. Pen 1
  26. Centre "--  Create shape of the universe using the mouse and menus  --"
  27. Screen 0
  28. '
  29. Ink 1
  30. WTYPE=1
  31. For I=0 To 59
  32.    For J=0 To 29
  33.       A(I,J)=0
  34.    Next 
  35. Next 
  36. Limit Mouse 
  37. '
  38. Menu$(1)="Project  "
  39. Menu$(2)="Change  "
  40. Menu$(1,1)="Save    "
  41. Menu$(1,2)="Compile "
  42. Menu$(2,1)="world type "
  43. Menu$(2,1,1)="Unowned  "
  44. Menu$(2,1,2)="Homeworld"
  45. Menu$(2,1,3)="Occupied "
  46. Menu$(2,1,4)="Blank    "
  47. For I=1 To NP
  48.    Menu$(2,1,2,I)="Player #"+Str$(I)
  49.    Menu$(2,1,3,I)="Player #"+Str$(I)
  50. Next 
  51. Menu$(2,2)="numbers"
  52. Menu On 
  53. On Menu Proc PROJECT,CHANGE
  54. MENU:
  55. Menu Separate 2
  56. On Menu On 
  57. '
  58. WTYPE=1
  59. Do 
  60.    If Mouse Key=1
  61.       I=X Screen(X Mouse)/6
  62.       J=Y Screen(Y Mouse)/6
  63.       If I<60 and J<30 and I>=0 and J>=0
  64.          A(I,J)=WTYPE
  65.          Ink FTYPE
  66.          Bar I*6,J*6 To I*6+4,J*6+4
  67.          Ink WTYPE
  68.          Box I*6,J*6 To I*6+4,J*6+4
  69.       End If 
  70.    End If 
  71. Loop 
  72. '
  73. Procedure CHANGE
  74.    Shared WTYPE,FTYPE
  75.    If Choice(2)=1
  76.       If Choice(3)=1
  77.          WTYPE=1
  78.       End If 
  79.       If Choice(3)=2
  80.          WTYPE=2
  81.       End If 
  82.       If Choice(3)=3
  83.          WTYPE=3
  84.       End If 
  85.       If Choice(3)=4
  86.          WTYPE=0
  87.       End If 
  88.       FTYPE=Choice(4)
  89.    End If 
  90.    On Menu On 
  91. End Proc
  92. '
  93. Procedure PROJECT
  94. End Proc