home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
amos
/
se_edit.amos
/
se_edit.amosSourceCode
Wrap
AMOS Source Code
|
1995-03-16
|
2KB
|
94 lines
NP=5
'
Screen Open 1,640,30,16,Hires
Flash Off : Curs Off
Palette $0,$FFF,$F00,$F0,$F,$FF0,$FF,$F0F,$F80,$888,$44F
Cls 0
Pen 1
Set Rainbow 0,0,300,"","","(17,1,32)"
Rainbow 0,0,100,300
Set Rainbow 1,0,32,"(2,1,15)","(2,1,15)","(2,1,15)"
Rainbow 1,0,57,32
Screen Open 0,320,200,16,Lowres
Screen 0
Get Palette 1
Screen Display 0,,100,,
Flash Off : Curs Off
Cls 0
Dim A(60,30)
'
Screen 1
Paper 0
Pen 8
Centre "- Space Empires universe editor -"
Print
Pen 1
Centre "-- Create shape of the universe using the mouse and menus --"
Screen 0
'
Ink 1
WTYPE=1
For I=0 To 59
For J=0 To 29
A(I,J)=0
Next
Next
Limit Mouse
'
Menu$(1)="Project "
Menu$(2)="Change "
Menu$(1,1)="Save "
Menu$(1,2)="Compile "
Menu$(2,1)="world type "
Menu$(2,1,1)="Unowned "
Menu$(2,1,2)="Homeworld"
Menu$(2,1,3)="Occupied "
Menu$(2,1,4)="Blank "
For I=1 To NP
Menu$(2,1,2,I)="Player #"+Str$(I)
Menu$(2,1,3,I)="Player #"+Str$(I)
Next
Menu$(2,2)="numbers"
Menu On
On Menu Proc PROJECT,CHANGE
MENU:
Menu Separate 2
On Menu On
'
WTYPE=1
Do
If Mouse Key=1
I=X Screen(X Mouse)/6
J=Y Screen(Y Mouse)/6
If I<60 and J<30 and I>=0 and J>=0
A(I,J)=WTYPE
Ink FTYPE
Bar I*6,J*6 To I*6+4,J*6+4
Ink WTYPE
Box I*6,J*6 To I*6+4,J*6+4
End If
End If
Loop
'
Procedure CHANGE
Shared WTYPE,FTYPE
If Choice(2)=1
If Choice(3)=1
WTYPE=1
End If
If Choice(3)=2
WTYPE=2
End If
If Choice(3)=3
WTYPE=3
End If
If Choice(3)=4
WTYPE=0
End If
FTYPE=Choice(4)
End If
On Menu On
End Proc
'
Procedure PROJECT
End Proc